Как сделать, чтобы глаза котика моргали? паскаль! uses graphABC; begin setwindowsize(600,700); setbrushcolor(clGray); Line(120,240,150,40); Line(150,40,280,150); Line(280,150,120,240); Line(320,150,480,240); Line(480,240,450,40...
Как сделать, чтобы глаза котика моргали? паскаль!
uses graphABC;
begin
setwindowsize(600,700);
setbrushcolor(clGray);
Line(120,240,150,40);
Line(150,40,280,150);
Line(280,150,120,240);
Line(320,150,480,240);
Line(480,240,450,40);
Line(450,40,320,150);
Floodfill(200,100,clSilver);
Floodfill(400,100,clSilver);
Setbrushcolor(clGray);
Floodfill(300,500,clGray);
Setbrushcolor(clGray);
Ellipse(100,430,500,130);
Line(120,350,0,700);
Line(0,700,600,700);
Line(600,700,470,350);
Line(120,350,300,550);
Line(300,550,470,350);
Floodfill(120,370,clLime);
Floodfill(90,360,clskyblue);
Setbrushcolor(clWhite);
Ellipse(300,240,200,330);
Ellipse(300,240,400,330);
setbrushcolor(clBlack);
Ellipse(260,270,240,300);
Ellipse(360,270,340,300);
Setbrushcolor(clblack);
Ellipse(270,330,330,370);
Line(50,350,200,350);
Line(30,340,190,340);
Line(10,330,180,330);
Line(410,330,570,330);
Line(400,340,560,340);
Line(390,350,550,350);
end.
Гость
Ответ(ы) на вопрос:
ГостьМожно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.
Исходник в приложении к ответу.
Не нашли ответ?
Похожие вопросы