{ EDWIN routine specs added                                      %end %of %list
%record %format POINTFM (%integer x,y)

%externalroutinespec SET ARC POINTS %alias "ED_ARC_POINTS" (%integer number)
%externalroutinespec ED CIRCLE %alias "ED_CIRCLE" (%integer rad)

! 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 (%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 "ED_TEXT_COL_ESC" (%integer CH)
%external %routine %spec TEXT FONT ESCAPE   %alias "ED_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 {%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 NEW COLOUR %alias "setcolour" (%integer COLOUR)
%external %routine %spec SET LINE STYLE (%integer STYLE)
%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 DEVICE CURSOR %alias "dcursor" (%integer %name s, x, y)
%external %routine %spec DRIVE DEV (%integer COM, X, Y)
%external %routine %spec DRIVE DEVICE %alias "drivedev" (%integer com, x, y)
%external %integer %fn %spec DEFAULT DEVICE


%end %of %file