{ NB: Specs for Version 4 of EDWIN :  See ECSLIB.EDWIN_SPECS for latest info }
{ EDWIN routine specs added }                      %end %of %list

! Routines for initialisation and termination
%external %routine %spec INITIALISE FOR (%integer DEVICE TYPE)
%external %routine %spec TERMINATE EDWIN

! Output primitives
%external %routine %spec MOVE ABS (%integer X,Y)
%external %routine %spec MOVE REL (%integer DX,DY)
%external %routine %spec LINE ABS (%integer X,Y)
%external %routine %spec LINE REL (%integer DX,DY)
%external %routine %spec MARKER ABS (%integer N,X,Y)
%external %routine %spec MARKER REL (%integer N,DX,DY)
%external %routine %spec CHARACTER (%integer SYM)
%external %routine %spec TEXT (%string (255) ST)
%external %routine %spec TEXT COLOUR ESCAPE %alias "EDWIN_TEXT_COL_ESC" (%integer CH)
%external %routine %spec TEXT FONT ESCAPE %alias "EDWIN_TEXT_FONT_ESC" (%integer CH)

! Control
%external %routine %spec NEW FRAME
%external %routine %spec UPDATE
%external %routine %spec CLIP ON
%external %routine %spec CLIP OFF
%external %routine %spec STORE ON (%integer STREAM)
%external %routine %spec STORE OFF
%external %routine %spec VIEW ON (%integer STREAM)
%external %routine %spec VIEW OFF
%external %routine %spec ASPECT RATIOING (%integer MODE)
%external %routine %spec WINDOW (%integer XL, XR, YB, YT)
%external %routine %spec VIEW PORT (%integer XL, XR, YB, YT)

! Attributes
%external %routine %spec SET COLOUR (%integer COLOUR)
%external %routine %spec SET LINE STYLE (%integer STYLE)
%external %routine %spec SET CHAR SIZE (%integer SIZE)
%external %routine %spec SET CHAR ROT (%integer ROT)
%external %routine %spec SET CHAR QUALITY (%integer WHICH)
%external %routine %spec SET CHAR FONT (%integer WHICH)
%external %routine %spec SET CHAR SLANT (%integer ANGLE)
%external %routine %spec SET SPEED (%integer SPEED)

! Miscellaneous routines
%external %routine %spec REVIEW
%external %routine %spec INQUIRE POSITION (%integer %name X,Y)
%external %routine %spec INQUIRE WINDOW (%integer %name XL,XR,YB,YT)
%external %routine %spec INQUIRE VIEW PORT (%integer %name XL,XR,YB,YT)
%external %routine %spec MAP TO DEVICE COORDS (%integer %name X,Y)
%external %routine %spec MAP TO VIRTUAL COORDS (%integer %name X,Y)
%external %string (31) %fn %spec DEVICE NAME
%external %string (63) %fn %spec EDWIN ERROR (%integer X)
%external %routine %spec CURSOR (%integer %name STATE, X, Y)
%external %routine %spec D CURSOR (%integer %name STATE, X, Y)
%external %routine %spec DRIVE DEV (%integer COM, X, Y)
%external %integer %fn %spec DEFAULT DEVICE
%external %routine %spec DRIVE DEVICE %alias "DRIVEDEV" (%integer COM, X, Y)
%external %routine %spec DEVICE CURSOR %alias "DCURSOR" (%integer %name STATE, X, Y)

%list
%end %of %file