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