{ EDWIN procedure specs for Pascal Geometric Utilities }
%option '-NONS'

procedure SetWireMode  %alias 'EDWIN_SET_WIRE_MODE' (mode : integer); Extern;
procedure SetColourMap %alias 'EDWIN_SET_COLOUR_MAP' (adr, red, blue, green : integer); Extern;
procedure Arc          %alias 'EDWIN_ARC' (ox, oy, rad, startAng, endAng : integer); Extern;
procedure Sector       %alias 'EDWIN_SECTOR' (ox, oy, rad, startAng, endAng : integer); Extern;
procedure Circle       %alias 'EDWIN_CIRCLE' (rad : integer); Extern;
procedure Rectangle    %alias 'EDWIN_RECTANGLE' (xl, yl, xu, yu : integer); Extern;
procedure Box          %alias 'EDWIN_BOX' (L, W : integer; var C, D : pointfm); Extern;
procedure Wire         %alias 'EDWIN_WIRE' (W, NE : integer; var parray : pointa); Extern;
procedure Polygon      %alias 'EDWIN_POLYGON' (NE : integer; 
                       var parray : array [i..j :integer] of pointfm); extern;