uses Drawman;
procedure o (x,y: integer);
begin
topoint(x, y);
pendown;
onvector(0, 4);
onvector(2, 0);
onvector(0, -4);
onvector(-2, 0);
penup
end;
field (10,6);
o (1,1);
topoint (4,1);
onvector(0, -2);
onvector(2, 2);
onvector(-2, -2);
onvector(2, -2);
penup;
o (7,1);
topoint (0,0)
end.
uses Drawman;
procedure o (x,y: integer);
begin
topoint(x, y);
pendown;
onvector(0, 4);
onvector(2, 0);
onvector(0, -4);
onvector(-2, 0);
penup
end;
begin
field (10,6);
o (1,1);
topoint (4,1);
pendown;
onvector(0, 4);
onvector(0, -2);
onvector(2, 2);
onvector(-2, -2);
onvector(2, -2);
penup;
o (7,1);
topoint (0,0)
end.