home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
graftype.erw
< prev
next >
Wrap
Text File
|
1987-05-18
|
2KB
|
34 lines
(*--------------------------------------------------------------------------*)
(* GRAFTYPE.ERW *)
(* Erweiterung der Typendeklarationen der Graphikserie fuer Windowhandling *)
(*-------------------------------------------------------------------*)
(* Der folgende Typ WinBackground muss so vereinbart werden, dass er *)
(* ggf. dazu geeignet ist, den Hintergrund, der beim oeffnen des *)
(* Fensters abgespeichert wird, aufzunehmen. *)
(* SYSTEMABHAENGIG (wenn ueberhaupt moeglich) ! *)
WinBuffer = ARRAY[1..8003] OF INTEGER; (* Turbo Pascal auf MS-DOS *)
WinBackground = ^WinBuffer; (* mit CGA-Grafikkarte. *)
(* *)
(*-------------------------------------------------------------------*)
WinNrBereich = NULL..MaxWins;
WinRec = RECORD
xmin, ymin,
xmax, ymax : REAL; (* Weltkoordinatenausschnitt *)
Pixel_pro_x, (* Window/Viewport- *)
Pixel_pro_y : REAL; (* Proportionen *)
Vxmin, Vxmax : x_Koord; (* Bildschirmausschnitt *)
Vymin, Vymax : y_Koord; (* des Viewport *)
Background : WinBackground
END;
WinFeld = ARRAY[WinNrBereich] OF ^WinRec;
(*-------------------------------------------------------------------------*)
(* Ende GRAFTYPE.ERW *)