home *** CD-ROM | disk | FTP | other *** search
- program panning;
-
- {Demo des PAN- Features.
- (!)
- Leider benutze ich eine nicht 100% kompatible VGA- Karte.
- Das Programm sollte folgendermaßen arbeiten:
-
- Erstellen der Grafiken im Hintergrund, waehrend des
- Scrolling.
- Falls dies auf ihrer Maschine nicht der Fall sein sollte,
- dann informieren Sie mich bitte.
-
- STEVEN OF OZ
- DISASTER MULTIUSER 0211- 686331
- }
-
-
- uses mcga,crt;
- var x,y,a:integer;
- begin
- setmode($12);
- setmode(mcgam);
- for x:=1 to 50 do box (160-x*2,100-x*2,160+x*2,100+x*2,x);
- repeat
- for y:=0 to 200 do screenorigin(0,y);
- Clearscreen;
- for y:=201 downto 0 do begin
- if y>101 then ellipse(160,100,y-101,y-101,y) else delay(1);
- screenorigin(0,y)
- end;
- for y:=0 to 200 do screenorigin(0,y);
- Clearscreen;
- for y:=201 downto 0 do begin
- 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);
- screenorigin(0,y)
- end;
- for y:=0 to 200 do screenorigin(0,y);
- Clearscreen;
- for y:=201 downto 0 do begin
- if y>151 then raute(160-(y-151),50+(y-151),160+(y-151),50-(y-151),y-151) else delay(1);
- screenorigin(0,y)
- end;
- until keypressed;
- setmode(text)
- end.
-
-
-