Сообщение от Vladimir_S
Вот, жука. Только уж извините, но упростил несколько. Потому что программировать отсеченные эллипсы-пятнышки и заполненные треугольники на концах усиков - можно, но такая морока... Может быть, и так сойдет?
Код:
Uses CRT, Graph;
Begin
InitGraph(..); {ТУТ - САМОСТОЯТЕЛЬНО}
SetLineStyle(SolidLn,0,ThickWidth);
SetFillStyle(SolidFill,GetColor);
FillEllipse((GetMaxX div 2),Round(0.4*GetMaxY),
Round(0.1*GetMaxX),Round(0.2*GetMaxY));
SetFillStyle(SolidFill,GetBkColor);
FillEllipse((GetMaxX div 2),Round(0.6*GetMaxY),
Round(0.2*GetMaxX),Round(0.3*GetMaxY));
Line((GetMaxX div 2),Round(0.9*GetMaxY),
(GetMaxX div 2),Round(0.3*GetMaxY));
SetFillStyle(SolidFill,GetColor);
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.12),Round(0.75*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.12),Round(0.75*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.12),Round(0.45*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.12),Round(0.45*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.38*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.38*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.82*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.82*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.6*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.6*GetMaxY),
|