{ EDWIN procedure specs in PASCAL format.}

{ procedures for initialisation and termination}
procedure initialisefor       (devicetype : integer);                   extern;
procedure terminateedwin;                                               extern;

{ Output primitives}
procedure moveabs             (x,y : integer);                          extern;
procedure moverel             (dx,dy : integer);                        extern;
procedure lineabs             (x,y : integer);                          extern;
procedure linerel             (dx,dy : integer);                        extern;
procedure markerabs           (n,x,y : integer);                        extern;
procedure markerrel           (n,dx,dy : integer);                      extern;
procedure character           (sym : char);                             extern;

{ Control}
procedure newframe;                                                     extern;
procedure update;                                                       extern;
procedure storeon             (stream : integer);                       extern;
procedure storeoff;                                                     extern;
procedure viewon              (stream : integer);                       extern;
procedure viewoff;                                                      extern;
procedure aspectratioing      (mode : integer);                         extern;
procedure window              (xl, xr, yb, yt : integer);               extern;
procedure viewport            (xl, xr, yb, yt : integer);               extern;

{ Attributes}
procedure SetColour           (colour : integer);                       extern;
procedure SetColourMode       (mode : integer);                         extern;
procedure SetLineStyle        (style : integer);                        extern;
procedure SetMarkerSize       (size : integer);                         extern;
procedure SetCharSize         (size : integer);                         extern;
procedure SetCharRot          (rot : integer);                          extern;
procedure SetCharQuality      (which : integer);                        extern;
procedure SetCharFont         (which : integer);                        extern;
procedure SetCharSlant        (which : integer);                        extern;
procedure SetSpeed            (which : integer);                        extern;
procedure SetChordStep        (step : integer);                         extern;
procedure SetShadeMode        (mode : integer);                         extern;

{ Miscellaneous procedures}
procedure Review;                                                       extern;
procedure InquirePosition     (var x,y : integer);                      extern;
procedure InquireWindow       (var xl,xr,yb,yt : integer);              extern;
procedure InquireViewport     (var xl,xr,yb,yt : integer);              extern;
procedure MapToDeviceCoords   (var x,y : integer);                      extern;
procedure MapToVirtualCoords  (var x,y : integer);                      extern;
procedure DriveDevice         (com, x, y : integer);                    extern;
procedure RequestCursor       (var state,x,y : integer);                extern;
procedure SampleCursor        (var state,x,y : integer);                extern;
procedure AreaCursor          (var xl,yb,xr,yt : integer);              extern;
procedure RequestDevice       (var state,x,y : integer);                extern;
procedure SampleDevice        (var state,x,y : integer);                extern;
procedure AreaDevice          (var xl,yb,xr,yt : integer);              extern;
procedure Cursor              (var state,x,y : integer);                extern;
procedure DeviceCursor        (var state,x,y : integer);                extern;
function DefaultDevice : integer;                                       extern;

{ Other things for users convenience }
Procedure EdwinWrite     (I, P : integer);                              extern;
Procedure EdwinPrint     (R : real; BP, AP : integer);                  extern;