home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / mcgatpu / panning.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-25  |  1.3 KB  |  48 lines

  1. program panning;
  2.  
  3.      {Demo des PAN- Features.
  4.       (!)
  5.       Leider benutze ich eine nicht 100% kompatible VGA- Karte.
  6.       Das Programm sollte folgendermaßen arbeiten:
  7.  
  8.          Erstellen der Grafiken im Hintergrund, waehrend des
  9.          Scrolling.
  10.          Falls dies auf ihrer Maschine nicht der Fall sein sollte,
  11.          dann informieren Sie mich bitte.
  12.  
  13.          STEVEN OF OZ
  14.          DISASTER MULTIUSER 0211- 686331
  15.      }
  16.  
  17.  
  18. uses mcga,crt;
  19.        var x,y,a:integer;
  20. begin
  21.    setmode($12);
  22.    setmode(mcgam);
  23.    for x:=1 to 50 do box (160-x*2,100-x*2,160+x*2,100+x*2,x);
  24.   repeat
  25.    for y:=0 to 200 do screenorigin(0,y);
  26.     Clearscreen;
  27.    for y:=201 downto 0 do begin
  28.     if y>101 then ellipse(160,100,y-101,y-101,y) else delay(1);
  29.     screenorigin(0,y)
  30.    end;
  31.    for y:=0 to 200 do screenorigin(0,y);
  32.     Clearscreen;
  33.    for y:=201 downto 0 do begin
  34.     if y>151 then box (160-(y-151)*2,100-(y-151)*2,160+(y-151)*2,100+(y-151)*2,y-151) else delay(1);
  35.     screenorigin(0,y)
  36.    end;
  37.    for y:=0 to 200 do screenorigin(0,y);
  38.     Clearscreen;
  39.    for y:=201 downto 0 do begin
  40.     if y>151 then raute(160-(y-151),50+(y-151),160+(y-151),50-(y-151),y-151) else delay(1);
  41.     screenorigin(0,y)
  42.    end;
  43.   until keypressed;
  44.   setmode(text)
  45. end.
  46.  
  47.  
  48.