как нарисовать сердце в АВСПаскаль?

+ 0 -

265F

18 апр. 2013 г., 0:17:01 (11 лет назад)

program serdce;
uses graphABC,crt;
var dx,dy,xc,x1,y1:integer;
begin
 hidecursor;
 setpencolor(clblue);
 setpenwidth(6);
 line(300,300,150,150);
   line(150,150,150,100);
    line(150,100,180,80);
     line(180,80,210,80);      
line(210,80,300,130);  
    line(300,130,390,80);
       line(390,80,420,80);  
      line(420,80,450,100);      
    line(450,100,450,150);        
   line(450,150,300,300);      
     floodfill(190,130,clred);  
 xc:=windowwidth div 2;