{ 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) %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 {%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 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 %external %routine %spec DRIVE DEVICE %alias "DRIVEDEV" (%integer COM, X, Y) %record %format DEVICE DATA FM (%integer DEV NO, %string (31) NAME) %external %record (DEVICE DATA FM) %map %spec DEVICE DATA %alias "EDWIN_DEVICE_DATA" %end %of %file