Procedure Ball(x,y:integer); begin circle(x,y,15); floodfill(x,y,clRed); end;
begin lockdrawing; for i:=1 to 20 do begin boy(100,200); Ball(100+i*5,200-i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; for i:=1 to 5 do begin boy(100,200); Ball(200+i*5,100+i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; for i:=1 to 25 do begin boy(100,200); Ball(225,125+i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; end.
Erase, copy, rotate, paste, move, array, break, join, fillet, extend, chamfer, distance, trim, mirror, explode.