Question

Как сделать, чтобы глаза котика моргали? паскаль! 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.

Answer 1

Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.

Исходник в приложении к ответу.