home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / grafik / test7.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-01-10  |  1.8 KB  |  49 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      TEST7.PAS                         *)
  3. (*               Zeichnen in RAM-Bildschirm               *)
  4. (*           (c) 1989 Peter Bierbach & TOOLBOX            *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Test7;
  7.  
  8. {$I GRAPH.P  }
  9.            { Grafik-Befehle für CGA-Schirm --> GRAPH.BIN }
  10. {$i R7GRAPH.NEU }
  11.            { Grafik-Befehle für RAM-Schirm --> R7GRAPH.RAM }
  12.  
  13. (* Wenn Sie einen Monochrom-Bildschirm haben, dann ändern *)
  14. (* Sie bitte "GraphColorMode" in "GraphMode" um.          *)
  15.  
  16. VAR
  17.   bildcga : ARRAY[1..16000] OF BYTE ABSOLUTE $b800:0;
  18.   bildram : ARRAY[1..16000] OF BYTE ABSOLUTE $7800:0;
  19.   bild    : ARRAY[1..2000]  OF BYTE;
  20.   z       : INTEGER;
  21.  
  22. BEGIN
  23.   GraphColorMode;       { 3.0 Grafik-Befehl auf CGA-Schirm }
  24.   r7graphmode;          { 3.0 Grafik-Befehl auf RAM-Schirm }
  25.   ClearScreen;          { 3.0 Grafik-Befehl auf CGA-Schirm }
  26.   r7clearscreen;        { 3.0 Grafik-Befehl auf RAM-Schirm }
  27.  
  28.                    { 80 Kreise auf CGA-Schirm --> sichtbar }
  29.   WriteLn('Jetzt wird im CGA-Schirm gezeichnet...');
  30.   FOR z := 1 TO 80 DO Circle(100, 100, z, 1);
  31.   WriteLn;
  32.   WriteLn('jetzt wird im RAM-Schirm gezeichnet...');
  33.     { 80 Kreise auf RAM-Schirm ab $7800 --> nicht sichtbar }
  34.   FOR z:=1 TO 80 DO r7circle (200, 100, z, 3);
  35.   Move(bildram, bildcga, 16000);
  36.   WriteLn('RAM-SCHIRM nach CGA-SCHIRM kopiert !');
  37.   Delay(3000);
  38.   ClearScreen;
  39.   WriteLn('Ein Trick mit GET und PIC: ');
  40.  
  41.   FOR z:=50 TO 280 DO BEGIN
  42.     r7getpic(bild, 10 + z, 130, 60 + z, 180);
  43.                  { Bildausschnitt aus dem RAM-Schirm holen }
  44.     PutPic(bild, 100, 100); { und in den CGA-Schirm setzen }
  45.   END;
  46. END.
  47. (* ------------------------------------------------------ *)
  48. (*                   Ende von TEST7.PAS                   *)
  49.