Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Demo Making    >>    col
   
 
 Copper Bars in Text Mode  Unknown 07.02.1998

Эффект "Полосок Коппера" для текстового режима. Поверх текста на эране плавает вверх-вниз цветная полоса.
Copper bars effect for text full screen mode. Cool!



1k 
 

  {> Cut here. FileName= COL.PAS } var i,k:byte; Const j :byte = 0; dj:ShortInt = 1; procedure vertical_retrace; assembler; asm mov dx,$3da;@1:in al,dx;test al,8;jz @1; @2:in al,dx;test al,8;jnz @2 end; procedure wait_line;assembler; asm mov dx,$3da;@1:in al,dx;test al,1;jnz @1; @2:in al,dx;test al,1;jz @2 end; procedure set_color(c,r,g,b:byte);assembler; Asm mov dx,3C8h;mov al,c;out dx,al;inc dx;mov al,r; out dx,al;mov al,g;out dx,al;mov al,b;out dx,al end; begin Repeat Vertical_Retrace; asm cli end; for k:=0 to j do wait_line; For i:=0 to 7 do begin wait_line; set_color(0,0,0,i*8); end; For i:=7 downto 0 do begin wait_line; set_color(0,0,0,i*8); end; asm sti end; inc(j,dj); if (j>220)or(j<1) then dj:=-dj; Until Port[$60]=1; end.