(*---------------------------------------------------------------------------
    :Program.     BackDrop.def
    :Contents.	  Öffnet Screen und BackDrop-Borderless-SmartRefresh-Window
    :Author.      Bernd Preusing
    :Address.	  Gerhardstr. 16  D-2200 Elmshorn
    :Phone.	  04121/22486
    :Copyright.	  Public Domain
    :Language.	  Modula-2
    :Translator.  M2Amiga V3.2e
    :Support.	  einige Ideen von Pit Burkhardt [pit]
    :History.	  V1.2 Preusing 27-Apr-89
    :Bugs.	  none
    :Remark.      Für fast Alles zu gebrauchen, kann auch OverScan!
    :Remark.	  Nicht reentrant!
---------------------------------------------------------------------------*)

DEFINITION MODULE BackDrop;

FROM SYSTEM	IMPORT ADDRESS;
FROM IntuitionD	IMPORT WindowPtr, ScreenPtr;
FROM GraphicsD	IMPORT RastPortPtr;


VAR (* die kann man nach OpenBackDrop benutzen: *)
  BdScreen  :ScreenPtr;
  BdWindow  :WindowPtr;
  BdRp	    :RastPortPtr; (* RastPort des Windows, also geclippt! *)

PROCEDURE OpenBackDrop(Depth, Width, Height:INTEGER; Title:ADDRESS);
(* Input.	Depth: Anzahl Bitplanes des Screens
   Input.		falls Depth=6, dann ExtraHalfBrite
   Input.	Width: Breite des Windows und des Screens
   Input.	Height: Höhe des WINDOWS!
   Input.	Title: Addresse des Screen-Titels
   Input.		falls NIL: kein Titel, Screenhöhe = Windowhöhe,
   Input.		sonst Screenhöhe = Windowhöhe+12
   Semantic.	Öffnet Screen und Window, je nach Breite und Höhe wird
   Semantic.	Interlace und/oder HiRes gesetzt. Keine IDCMPs!
   Semantic.	Das Ding kommt MITTIG auf die Glotze! (versuche: 200,50!)
*)

PROCEDURE CloseBackDrop; (* ist auch in TermProcedure *)
(* Semantic.	Schließt Window und Screen wieder, muß aber nicht aufgerufen
   Semantic.	werden, ist auch TermProcedure
*)
END BackDrop.def