home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / wobbler.pas < prev   
Pascal/Delphi Source File  |  1994-10-07  |  944b  |  26 lines
  1. Uses Crt,Gif,ModeXLib,Tools;
  2. const y=100;                {ordonnée et hauteur, peuvent aussi }
  3.       hauteur=100;          {se présenter sous forme de variable }
  4.  
  5. Var Sinus:Array[0..63] of Word; {table de sinus, remplie ultérieurement }
  6.     i:Word;                     {compteur temporaire }
  7.  
  8. Procedure Make_Wob(wob_pos,wob_hauteur,wob_offset:word);external;
  9. {$l c:\edition\prog\fr\asm\wobbler}
  10.  
  11. begin
  12.   TextMode(3);          {le wobbler fonctionne dans TOUS les modes vidéos ! }
  13.   For i:=1 to 40 do     {prépare une image test }
  14.     Write('Ceci est un texte de démo ');
  15.  
  16.   Sin_Gen(Sinus,64,4,83); {calcule les sinus }
  17.   CRTC_Unprotect;         {libère l'accès au timing horizontal }
  18.   ReadKey;                {attend }
  19.   i:=0;
  20.   Repeat
  21.     inc(i);                {paramètre de déplacement }
  22.     Make_Wob(y,hauteur,i); {fait des vagues }
  23.   Until KeyPressed;
  24.   CRTC_Protect;            {protège à nouveau le CRTC }
  25. End.
  26.