home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / bgi / vesabgi / bspvesa.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-11-22  |  1.7 KB  |  62 lines
  1. {$A+,B-,D-,E-,F+,I-,L-,N-,O+,R-,S-,V-}
  2. program BeispielVESA;
  3.  
  4. {*****************************************************************
  5.               Demo Einbindung BGI-Treiber
  6. ******************************************************************
  7.  
  8. (c)    ████████████████
  9.        ██           ▐██     Dr. Dieter Weirauch
  10.        ██   W & B   │ █         Karl-Laux-Str. 38
  11.        ██           │ █         Dresden, O-8020
  12.        ██  Software │ █
  13.        ██▄──────────┘ █     Dipl.-Ing. Frank Behrens
  14.        ███▄▄▄▄▄▄▄▄▄▄▄▄█
  15.  
  16.  
  17. *****************************************************************}
  18.  
  19.  
  20. uses
  21.       Crt,
  22.       Graph,         { Graph unbedingt vor                     }
  23.       VGAVESA;       { VGAVESA-Treibereinbindung, so wird      }
  24.                      { Graph.InitGraph durch VGAVESA.InitGraph }
  25.                      { ersetzt                                 }
  26.  
  27. const
  28.    Titel = 'Rechtecke';
  29.  
  30. var
  31.    Gmode, Gdriver,
  32.    dx, dy, dd, rx1, ry1, fehler: integer;
  33.    taste: char;
  34.  
  35. begin
  36.  
  37.   Gdriver := detect;
  38.   InitGraph (Gdriver, Gmode, '');
  39.   fehler := GraphResult;
  40.   if fehler <> 0 then begin
  41.     writeln (GraphErrorMsg (fehler));
  42.     repeat until KeyPressed;
  43.     halt;
  44.   end;
  45.   SetColor (14);
  46.   OutTextXY ((GetMaxX - TextWidth (Titel)) div 2, 20, Titel);
  47.   SetViewPort (10, 40, GetMaxX, GetMaxy, ClipOn);
  48.   repeat
  49.     dd := 100;
  50.     dx := trunc (random (dd));
  51.     dy := trunc (random (dd));
  52.     dd := GetMaxX;
  53.     rx1 := trunc (random (dd));
  54.     dd := GetMaxY;
  55.     ry1 := trunc (random (dd));
  56.     dd := 12;
  57.     SetFillstyle (SolidFill, trunc (random (dd)));
  58.     Bar (rx1, ry1, dx, dy);
  59.   until KeyPressed;
  60.   SetViewPort (0, 0, GetMaxX, GetMaxy, ClipOn);
  61.   CloseGraph
  62. end.