home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 06 / graftype.erw < prev    next >
Encoding:
Text File  |  1987-05-18  |  1.6 KB  |  34 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*                             GRAFTYPE.ERW                                 *)
  3. (*  Erweiterung der Typendeklarationen der Graphikserie fuer Windowhandling *)
  4.  
  5.   (*-------------------------------------------------------------------*)
  6.   (* Der folgende Typ WinBackground muss so vereinbart werden, dass er *)
  7.   (* ggf. dazu geeignet ist, den Hintergrund, der beim oeffnen des     *)
  8.   (* Fensters abgespeichert wird, aufzunehmen.                         *)
  9.   (* SYSTEMABHAENGIG (wenn ueberhaupt moeglich) !                      *)
  10.  
  11.     WinBuffer = ARRAY[1..8003] OF INTEGER; (* Turbo Pascal auf MS-DOS *)
  12.     WinBackground = ^WinBuffer;            (* mit CGA-Grafikkarte.    *)
  13.  
  14.   (*                                                                   *)
  15.   (*-------------------------------------------------------------------*)
  16.  
  17.   WinNrBereich = NULL..MaxWins;
  18.  
  19.   WinRec = RECORD
  20.              xmin, ymin,
  21.              xmax, ymax : REAL;            (* Weltkoordinatenausschnitt *)
  22.              Pixel_pro_x,                  (* Window/Viewport- *)
  23.              Pixel_pro_y : REAL;           (* Proportionen     *)
  24.              Vxmin, Vxmax : x_Koord;       (* Bildschirmausschnitt *)
  25.              Vymin, Vymax : y_Koord;       (* des Viewport         *)
  26.              Background : WinBackground
  27.            END;
  28.  
  29.   WinFeld = ARRAY[WinNrBereich] OF ^WinRec;
  30.  
  31. (*-------------------------------------------------------------------------*)
  32. (*                          Ende GRAFTYPE.ERW                              *)
  33.  
  34.