home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / praxis / graf0hrc.def < prev    next >
Encoding:
Modula Definition  |  1990-08-08  |  2.9 KB  |  88 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  GRAF0HRC.DEF                          *)
  3. (*           Grafikbibiothek für Hercules                 *)
  4. (*       (c) 1990  H.Zinner, G.Clarici & TOOLBOX          *)
  5. (* ------------------------------------------------------ *)
  6. DEFINITION MODULE Graf0Hrc;
  7.  
  8. CONST
  9.   ZEILEN      = 348;              (* Gesamtzeilenzahl     *)
  10.   SPALTEN     = 720;              (* Gesamtspaltenzahl    *)
  11.   FARBEN      =   2;              (* Anzahl der Farben    *)
  12.   SCHWARZ     =   0;              (* Werte für die Farben *)
  13.   WEISS       =   1;
  14.   SEITE1      =   0;              (* Werte für die Seiten *)
  15.   SEITE2      =   1;
  16.  
  17.   AspectX     =   5;
  18.   AspectY     =   7;
  19.   AspectRatio = FLOAT(AspectX)/FLOAT(AspectY);
  20.  
  21. VAR
  22.   SEITE       : CARDINAL;
  23.  
  24.   (* Erlaubte Werte für :
  25.         - X Parameter         : 0 bis 719
  26.         - Y Parameter         : 0 bis 347
  27.         - Seite Parameter     : 0 und 1
  28.         - Farbe Parameter     : 0 und 1
  29.         - XPosition Parameter : 1 bis 80
  30.         - YPosition Parameter : 1 bis 25    *)
  31.  
  32.  
  33.   PROCEDURE FontLesen(Fontname : ARRAY OF CHAR) : BOOLEAN;
  34.   (* Gibt TRUE bei erfolgreichem Lesen und
  35.      FALSE bei einem Mißerfolg zurück                     *)
  36.  
  37.   PROCEDURE ROMFontLesen(GrafikZeichen : BOOLEAN)
  38.  
  39.   (* Grafik initialisieren, ein- und ausschalten -------- *)
  40.   PROCEDURE InitialisiereGrafik;
  41.  
  42.   PROCEDURE GrafikEin;
  43.  
  44.   PROCEDURE GrafikAus;
  45.  
  46.   (* Funktionen für die Seitenbehandlung ---------------- *)
  47.  
  48.   PROCEDURE SichtbareSeite(Seite : CARDINAL);
  49.   (* Erlaubte Parameter für diese Funktion sind 0 und 1   *)
  50.  
  51.   PROCEDURE AktiveSeite(Seite : CARDINAL);
  52.   (* Erlaubte Parameter für diese Funktion sind 0 und 1   *)
  53.  
  54.   PROCEDURE SeiteKopieren(Ziel, Quelle : CARDINAL);
  55.   (* Erlaubte Parameter für diese Funktion sind 0 und 1   *)
  56.  
  57.   PROCEDURE SeiteLoeschen(Seite : CARDINAL);
  58.  
  59.   PROCEDURE BildschirmLoeschen;
  60.  
  61.   (* Punkt-Funktionen ----------------------------------- *)
  62.  
  63.   PROCEDURE Punkt(X, Y : CARDINAL; Farbe : CARDINAL);
  64.  
  65.   PROCEDURE PunktInvertieren(X, Y : CARDINAL);
  66.  
  67.   PROCEDURE PunktTest(X, Y : CARDINAL) : CARDINAL;
  68.  
  69.   (* Zeichenausgabe-Funktionen -------------------------- *)
  70.   PROCEDURE SchreibeZeichen(Zeichen   : CHAR;
  71.                             XPosition,
  72.                             YPosition,
  73.                             Farbe     : CARDINAL);
  74.  
  75.   PROCEDURE SchreibeString( String    : ARRAY OF CHAR;
  76.                             XPosition,
  77.                             YPosition,
  78.                             Farbe     : CARDINAL);
  79.  
  80.   (* Linien-Funktionen ---------------------------------- *)
  81.   PROCEDURE VertLinie(X1, Y1, Y2, Farbe : CARDINAL);
  82.  
  83.   PROCEDURE HorLinie(X1, X2, Y,Farbe : CARDINAL);
  84.  
  85. END Graf0Hrc.
  86. (* ------------------------------------------------------ *)
  87. (*                Ende von GRAF0HRC.DEF                   *)
  88.