home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / gplottyp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.7 KB  |  30 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                             GPLOTTYP.PAS                                *)
  3. (*             Typendefinitionen fuer den Plottersimulator                 *)
  4. (*-------------------------------------------------------------------------*)
  5.  
  6.   GPfName    = STRING[14];                (* Dateiname der Pufferdatei     *)
  7.  
  8.   (* je nach Pascal-Implementation kann (muss) fuer 'bs' im Record 'GP-
  9.      element der Typ CARDINAL oder WORD verwendet werden. Turbo-Pascal
  10.      bereitet bei Zuweisungen an INTEGER von Hex.-Werten > MaxInt keine
  11.      Schwierigkeiten. Bei Implementationen mit LONG_INTEGERn kann mit
  12.      'TYPE word = 0..65535' dieser Typ vereinbart werden. Auch kann
  13.      LONG_INTEGER bei entspr. Aenderung des Records und der Prozeduren
  14.      IN GPLOTSYS.PAS direkt verwendet werden, wodurch weniger externe
  15.      Pufferzeilen benoetigt werden und das Ganze ein wenig schneller wird. *)
  16.  
  17.   GPelement  = RECORD                     (* ein Element einer Pufferzeile *)
  18.                  CASE BOOLEAN OF          (* s. o.                         *)
  19.                    TRUE : (bs: INTEGER);             (* fuer's plotten     *)
  20.                    FALSE: (cc: ARRAY[0..1] OF CHAR); (* fuer den Drucker   *)
  21.                END;
  22.  
  23.   GPpZeile   = ARRAY[GPXmin_Sys..GPXmax_Sys] OF GPelement;
  24.                                                        (* eine Pufferzeile *)
  25.  
  26.   GPModes    = (Setzen,Loeschen,Invertieren); (* Zeichen-Modes d. Plotters *)
  27.  
  28. (*-------------------------------------------------------------------------*)
  29. (*                        Ende von GPLOTTYP.PAS                            *)
  30.