home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
fade_txt.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-07
|
1KB
|
34 lines
Uses Crt,Gif,ModeXLib,Fade;
Var
Text_Pal:Array[0..767] of Byte;
i:word;
Begin
Init_Mode13; {initialise le mode 13h }
Screen_Off; {désactive l'écran pendant le chargement }
LoadGif('vflog210'); {charge la partie statique }
Move(Palette[210*3], {et enregistre sa participation à la palette (couleurs 210..255)}
Text_Pal[210*3],46*3);
Show_Pic13; {copie en mémoire VGA l'image statique }
LoadGif('texte'); {charge une image avec des textes }
Move(Palette,Text_Pal,14*3); {et enregistre sa participation à la palette (couleurs 0..13)}
Move(Text_Pal,Palette,768); {réalise la palette préparée }
SetPal;
Move(vscreen^, {le premier texte peut être directement copié }
Ptr($a000,160*320)^,19*320);{sur l'écran }
Screen_On; {on réallume l'écran }
Colors:=14; {dans ce programme les images ont 14 couleurs !}
For i:=1 to 6 do Begin {ouvre en fondu les 6 autres textes }
Delay(500); {temps laissé à la lecture }
FonduEnch(vscreen, {fondu enchaîné sur l'image suivante à l'ancienne position (y=160) }
text_pal,i*20,160,19);
Fade_ResetPic(160,19); {réinitialisation }
If KeyPressed Then Exit; {possibilité d'interruption }
End;
Readln;
TextMode(3);
End.