home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 07 / grafik / grafcons.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-04  |  2.6 KB  |  72 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. (*----------------- Polygon-Konstante: -----------------------*)
  48.  
  49.   PolyMax = 100;            (* max. Anzahl von Eckkoordinaten *)
  50.  
  51. (*----------------- Pattern-Konstante: -----------------------*)
  52. (*         Hier für ein Muster von 16 x 16 Pixeln.            *)
  53.  
  54.   PatternSize = 15;
  55.  
  56. (*----------------- Window-Konstante: ------------------------*)
  57. (*                Maximale Fensterzahl                        *)
  58.  
  59.   MaxWins = 30;
  60.   NULL = 0;
  61.  
  62. (*------------------------------------------------------------*)
  63. (* Konstantendefinition f. die zweidimensionale Koordinaten-  *)
  64. (* transformation:                                            *)
  65.  
  66.   xMatDim    = 3;
  67.   yMatDim    = 3;
  68.   MaxLineObj = 100;
  69.  
  70. (*------------------------------------------------------------*)
  71. (*                 Ende von GRAFCONS.PAS                      *)
  72.