home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / grafcons.pas < prev    next >
Pascal/Delphi Source File  |  1987-03-13  |  2KB  |  49 lines
  1. (*------------------------------------------------------------*)
  2. (*                     GRAFCONS.PAS                           *)
  3. (* Globale, systemspezifische Konstanten fuer die Grafikserie *)
  4. (*------------------------------------------------------------*)
  5.  
  6. (*---------------------- Systemkonstanten: -------------------*)
  7.  
  8. (*  Die hier definierten Systemkonstanten gelten fuer einen
  9.     MS-DOS Rechner mit der "normalen" Color-Grafikkarte CGA   *)
  10.  
  11. (* Grenzkoordinaten des verwendeten Systems:
  12.    die damit definierten Typen verhindern illegale Koordinaten
  13.    in der Prozedur 'Point_System', was sonst je nach System
  14.    zu unangenehmen Abstuerzen fuehren kann. So wird nur das
  15.    Pascal-Programm mit einer Fehlermeldung des Laufzeitsystems
  16.    abgebrochen!                                               *)
  17.   ScreenXmin_Sys = 0;
  18.   ScreenXmax_Sys = 639;
  19.   ScreenYmin_Sys = 0;
  20.   ScreenYmax_Sys = 199;
  21.  
  22. (* Faktor zur Korrektur des Hoehen:Breiten-Verhaeltnisses:    *)
  23.   Aspect_Ratio  = 0.5;
  24.  
  25. (* Ursprung des Koordinatensystems des verwendeten Systems:
  26.      TRUE: linke, obere Ecke   FALSE: linke, untere Ecke      *)
  27.   Origin_is_Top = TRUE;
  28.  
  29. (* Bereichsgrenzen zulaessiger Farbwerte:                     *)
  30.   First_Color_Value = 0;
  31.   Last_Color_Value  = 15;
  32.  
  33. (*------------------- Grafik-Systemkonstanten: ---------------*)
  34.  
  35. (* max. Grenzkoordinaten fuer unsere Grafik-Prozeduren, die
  36.    mit Koordinaten von (0,0) bis (ScreenXmax,ScreenYmax) ar-
  37.    beiten (s. Typen 'x_Koord' und 'y_Koord'):
  38.      Bsp.: ScreenXmin_Sys = 1  und  ScreenXmax_Sys = 640
  39.            --> ScreenXmax = 639 !
  40.    Aehnlicher Zweck wie die Grenzkoordinaten des verwendeten
  41.    Systems: zum Auffinden von illegalen Koordinaten inner-
  42.    halb unseres Grafiksystems.                                *)
  43.  
  44.   ScreenXmax = 639;
  45.   ScreenYmax = 199;
  46.  
  47. (*------------------------------------------------------------*)
  48. (*                 Ende von GRAFCONS.PAS                      *)
  49.