home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / review / graphdem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-02  |  1.4 KB  |  54 lines
  1. PROGRAM Demo;
  2.  
  3. { Einfache Demonstration der Graphikmöglichkeiten }
  4. { (c) 1990 Prospero Software }
  5.  
  6. {$I PASPC}
  7.  
  8. CONST Msg = 'PROSPERO SOFTWARE';
  9.  
  10. VAR Ch   : Char;
  11.     Scan : Byte;
  12.     i    : Integer;
  13.     BIOS : Boolean;
  14.  
  15. BEGIN
  16.     InitScreen;
  17.     SetGraphics;
  18.     Scale (4000,3000); { Auf 4000x3000 Punkte skalieren }
  19.  
  20.     FOR i := 1 TO 15 DO  { Zeichnen von verschieden- }
  21.     BEGIN                { farbigen konzentrischen Kreisen }
  22.       SetFill (i,0,FALSE);
  23.       Circle (1000,2000,i*60);
  24.     END;
  25.  
  26.     SetFill (White,Blue,TRUE); { Text blau mit weißem Rand }
  27.     ScreenText (Msg,100,100,3800 DIV Length(Msg),800);
  28.     ScreenText ('Pascal Version iid 5.205',350,750,0,0);
  29.  
  30.     { Zeichnen einer Phantasiefigur }
  31.     Draw (2000,2900,2000,2500,Magenta);
  32.     FOR i := 0 TO 20 DO
  33.     BEGIN
  34.       DrawTo (2000+80*i,2000,Magenta);
  35.       DrawTo (2040+80*i,2000,Magenta);
  36.       DrawTo (2040+80*i,2500,Magenta);
  37.       DrawTo (2080+80*i,2500,Magenta);
  38.     END;
  39.     DrawTo (3680,2900,Magenta);
  40.     DrawTo (2000,2900,Magenta);
  41.     FillShape (2020,2600,LightMagenta,Magenta);
  42.  
  43.     SetFill (LightBlue,Green,TRUE);
  44.     Ellipse (3400,1000,500,200);
  45.     Sector (3500,1600,300,1.0,5.0);
  46.     Seg (2500,1500,200,2.0,4.5);
  47.     Crescent (2400,1400,480,2200,1500,400,FALSE);
  48.     Triangle (500,900,2000,1000,1400,1100);
  49.  
  50.     GetKeyboard(Ch,Scan);
  51.     InitScreen;
  52. END.
  53. 
  54.