! EDWIN routine specs added.
%end %of %list

! This include file can be used on systems such as RSX and DEC-10 if
! the ecce command   F/{/ED/}/   is applied to it.

! Routines for initialisation and termination
%external %routine %spec INITIALISE FOR (%integer DEVICE TYPE)
%external %routine %spec TERMINATE EDWIN {%alias "ED$TER"}

! 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 {%alias "ED$MKA"} (%integer N,X,Y)
%external %routine %spec MARKER REL {%alias "ED$MKR"} (%integer N,DX,DY)
%external %routine %spec CHARACTER (%integer SYM)
%external %routine %spec TEXT (%string (255) ST)

! 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 {%alias "ED$SON"} (%integer STREAM)
%external %routine %spec STORE OFF {%alias "ED$SOF"}
%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 INTENSITY  (%integer BRIGHTNESS)
%external %routine %spec SET CHAR SIZE {%alias "ED$SCS"} (%integer SIZE)
%external %routine %spec SET CHAR ROT {%alias "ED$SCR"} (%integer ROT)
%external %routine %spec SET CHAR QUALITY {%alias "ED$SCQ"} (%integer WHICH)
%external %routine %spec SET CHAR FONT {%alias "ED$SCF"} (%integer WHICH)
%external %routine %spec SET CHAR SLANT {%alias "ED$SCI"} (%integer ANGLE)
%external %routine %spec SET SPEED (%integer SPEED)

! Miscellaneous routines
%external %routine %spec REVIEW
%external %routine %spec INQUIRE POSITION {%alias "ED$IP"} (%integer %name X,Y)
%external %routine %spec INQUIRE WINDOW {%alias "ED$IW"} (%integer %name XL,XR,YB,YT)
%external %routine %spec INQUIRE VIEW PORT {%alias "ED$IV"} (%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 {%alias "ED$DN"}
%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

%list
%end %of %file