home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / praxis / graf0cga.def < prev    next >
Encoding:
Modula Definition  |  1990-08-08  |  1.5 KB  |  49 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    GRAF0CGA.DEF                        *)
  3. (*               Grafikbibiothek für CGA                  *)
  4. (*       (c) 1990  H.Zinner, G.Clarici & TOOLBOX          *)
  5. (* ------------------------------------------------------ *)
  6. DEFINITION MODULE Graf0CGA;
  7.  
  8. CONST
  9.   ZEILEN  = 200;                  (* Gesamtzeilenzahl     *)
  10.   SPALTEN = 640;                  (* Gesamtspaltenzahl    *)
  11.   FARBEN  =   2;                  (* Anzahl der Farben    *)
  12.   SCHWARZ =   0;                  (* Werte für die Farben *)
  13.   WEISS   =   1;
  14.  
  15.   AspectX =   3;
  16.   AspectY =   4;
  17.   AspectRatio = FLOAT(AspectX)/FLOAT(AspectY);
  18.  
  19.  
  20.   PROCEDURE GrafikEin;
  21.  
  22.   PROCEDURE GrafikAus;
  23.  
  24.   PROCEDURE BildschirmLoeschen;
  25.  
  26.   PROCEDURE Punkt(X, Y, Farbe : CARDINAL);
  27.  
  28.   PROCEDURE PunktInvertieren(X, Y : CARDINAL);
  29.  
  30.   PROCEDURE PunktTest(X, Y : CARDINAL) : CARDINAL;
  31.  
  32.   PROCEDURE SchreibeZeichen(Zeichen    : CHAR;
  33.                             XPosition,
  34.                             YPosition,
  35.                             Farbe      : CARDINAL);
  36.  
  37.   PROCEDURE SchreibeString(String     : ARRAY OF CHAR;
  38.                            XPosition,
  39.                            YPosition,
  40.                            Farbe      : CARDINAL);
  41.  
  42.   PROCEDURE VertLinie(X1, Y1, Y2, Farbe : CARDINAL);
  43.  
  44.   PROCEDURE HorLinie(X1, X2, Y1, Farbe : CARDINAL);
  45.  
  46. END Graf0CGA.
  47. (* ------------------------------------------------------ *)
  48. (*                 Ende von GRAF0CGA.DEF                  *)
  49.