помогите нарисовать паровоз с колёсами в Pascal abs с колёсами через line и cirkle

В PascalABC.NET можно нарисовать простой паровоз так. Команда для окружности пишется Circle, не cirkle.

Пример программы:

uses GraphABC;

begin
SetWindowSize(700, 400);
ClearWindow(clWhite);

// вагон
SetPenColor(clBlack);
SetBrushColor(clLightBlue);
Rectangle(180, 160, 430, 250);

// кабина
SetBrushColor(clSkyBlue);
Rectangle(430, 120, 540, 250);

// окно
SetBrushColor(clWhite);
Rectangle(460, 145, 515, 190);

// труба
SetBrushColor(clGray);
Rectangle(220, 110, 260, 160);

// дым
SetBrushColor(clLightGray);
Circle(240, 90, 18);
Circle(220, 70, 14);
Circle(260, 65, 16);

// колёса через Circle
SetBrushColor(clBlack);
Circle(230, 270, 35);
Circle(330, 270, 35);
Circle(480, 270, 35);

// середины колёс
SetBrushColor(clWhite);
Circle(230, 270, 12);
Circle(330, 270, 12);
Circle(480, 270, 12);

// спицы колёс через Line
Line(195, 270, 265, 270);
Line(230, 235, 230, 305);

Line(295, 270, 365, 270);
Line(330, 235, 330, 305);

Line(445, 270, 515, 270);
Line(480, 235, 480, 305);

// линия земли
SetPenColor(clGreen);
Line(100, 305, 620, 305);
end.

0 0 Пожаловаться