home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
copper.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-07
|
1KB
|
28 lines
Uses Crt,ModeXLib;
var y1, {ordonnée du copper 1}
y1_dir, {direction du copper 1}
Masque:Word; {masque de recouvrement des coppers}
Procedure MakeCopper(y_pos1,y_pos2,overlay_Masque:word);external;
{$l c:\edition\prog\fr\asm\copper}
begin
TextMode(3); {les coppers fonctionnent dans TOUS les modes vidéos ! }
y1:=Port[$3da]; {active le mode index de l'ATC }
Port[$3c0]:=$11 or 32; {sélectionne le registre 11h }
Port[$3c0]:=255; {couleur de cadre 255}
y1:=0; {on commence au bord supérieur de l'écran }
y1_dir:=2; {déplacement d'abord vers le bas }
Masque:=$00ff; {copper 1 (rouge) au premier plan}
Repeat
Inc(y1,y1_dir); {déplacement du copper }
If (y1<=0) or (y1>=150) {arrivé au bord :}
then Begin
y1_dir:=-y1_dir; {change de direction}
Masque:=Swap(Masque); {autre copper au premier plan }
End;
Write('C e c i e s t u n t e x t e ');
MakeCopper(y1,150-y1,Masque); {dessine le copper}
Until KeyPressed;
End.