(*
 * -------------------------------------------------------------------------
 *
 *	:Program.	Graphik.def
 *	:Contents.	Minimale Graphikroutinen auf bis zu 5 Screens
 *	:Author.	Reiner Nix
 *	:Address.	Geranienhof 2, 5000 Köln 71 Seeberg
 *	:Copyright.	Public Domain
 *	:Language.	Modula-2
 *	:Translator.	M2Amiga A-L V3.3d
 *	:History.	V1.0	21.11.90
 *
 * -------------------------------------------------------------------------
 *)
DEFINITION MODULE Graphik;

(* $R- Bereichskontrolle aus   *)
(* $V- Überlaufkontrolle aus   *)
(* $S- Stackkontrolle aus      *)


CONST     maxGraphik            =   5;
          maxRegister           =  32;
          xMax                  = 640;
          yMax                  = 256;

TYPE      GraphikBereich        = [1..maxGraphik];
          RegisterBereich       = [0..maxRegister-1];
          xBereich              = INTEGER[0..xMax-1];
          yBereich              = INTEGER[0..yMax-1];


PROCEDURE GraphikNachVorne      (n              :GraphikBereich);
PROCEDURE GraphikNachHinten     (n              :GraphikBereich);

PROCEDURE BenutzeGraphik        (n              :GraphikBereich);
PROCEDURE LoescheGraphik        (n              :GraphikBereich);

PROCEDURE BenutzeFarbe          (n              :RegisterBereich);
PROCEDURE GraphikFarbe          (n              :RegisterBereich;
                                 Farbe          :CARDINAL);


PROCEDURE ZeichnePunkt          (x              :xBereich;
                                 y              :yBereich);

PROCEDURE ZeichneLinie          (x1             :xBereich;
                                 y1             :yBereich;
                                 x2             :xBereich;
                                 y2             :yBereich);

PROCEDURE ZeichneRechteck       (x1             :xBereich;
                                 y1             :yBereich;
                                 x2             :xBereich;
                                 y2             :yBereich);

PROCEDURE SchreibeSatz          (x              :xBereich;
                                 y              :yBereich;
                                 Satz           :ARRAY OF CHAR);

END Graphik.