%FOREIGN DEFINITION MODULE HPISP;

(* Interface with the HP-ISSPP Fortran Subroutine package for
   the Hp ISP plotter. The routine Buf can be used to send
   HP-GL instructions directly. Hpinit must be called first to
   initialize.
                    Sohail Aslam CS Dept. 
*)

EXPORT QUALIFIED  
             Buff            , Hpinit          , 
             NewPen          , Plot            ,
             ForSymbol       ;

  PROCEDURE Buff
    (	%REF  Mode          : INTEGER;
    VAR	%REF  Ibuf          : ARRAY OF INTEGER;
    VAR %REF  Xbuf          : ARRAY OF REAL;
    VAR %REF  Inum          : INTEGER         );


  PROCEDURE Hpinit
    (	%REF  Lio           : INTEGER;
	%REF  Lmon          : INTEGER;
	%REF  Lchars        : INTEGER;
	%REF  Lunit         : INTEGER;
	%REF  Ldev          : INTEGER  );
    
  PROCEDURE NewPen
    (	%REF  Ipen          : INTEGER  );
    
  PROCEDURE Plot
    (	%REF  Xcoor         : REAL;  (* inches *)
        %REF  Ycoor         : REAL;
	%REF  PenControl    :INTEGER );

  PROCEDURE ForSymbol
    (    %REF      X:                  REAL;
         %REF      Y:                  REAL;
         %REF      Height:             REAL;
         %STDESCR  Text:               ARRAY OF CHAR;
         %REF      Angle:              REAL;
         %REF      CharCount:          INTEGER  );

END HPISP.
