%record %format pointfm (%integer x,y)
%include "edwin:specs.inc"
%include "edwin:shapes.inc"

%external %routine polygon4(%integer a,b,c,d,e,f,g,h)

   %integer i
   %record(pointfm)%array p(1:4)

   p(1)_x = a; p(1)_y = b
   p(2)_x = c; p(2)_y = d
   p(3)_x = e; p(3)_y = f
   p(4)_x = g; p(4)_y = h
   polygon(4, p)
%end

%endoffile