! Program to show polyon drawing from Imp record format POINTFM (integer X, Y) include "edwin_dir:specs.inc" include "edwin_dir:shapes.inc" begin const integer MAX = 4 record (POINTFM) array P(1:MAX) Initialise for (default device) Newframe p(1)_x = 250; p(1)_y = 250 p(2)_x = 750; p(2)_y = 250 p(3)_x = 750; p(3)_y = 750 p(4)_x = 250; p(4)_y = 750 Polygon (4, p) Terminate edwin end of program