{ NB: Specs for Version 4 of EDWIN :  See ECSLIB.EDWIN_SHAPES for latest info }

{ EDWIN Geometric utility routines added }   %end %of %list

%external %routine %spec SHADE SHAPES   %alias "EDWIN_SHADE_SHAPES"    (%integer ON or OFF)
%external %routine %spec SET ARC POINTS %alias "EDWIN_SET_ARC_POINTS"  (%integer I)
%external %routine %spec CIRCLE         %alias "EDWIN_CIRCLE"          (%integer RAD)
%external %routine %spec RECTANGLE      %alias "EDWIN_RECTANGLE"       (%integer XL, YL, XU, YU)
%external %routine %spec BOX            %alias "EDWIN_BOX"             (%integer L, W, %record (POINTFM) %name C, D)
%external %routine %spec WIRE           %alias "EDWIN_WIRE"            (%integer W, N, %record (POINTFM) %array %name P)
%external %routine %spec POLYGON        %alias "EDWIN_POLYGON"         (%integer NUM E, %record (POINTFM) %array %name AP)

%list
%end %of %file