Версия для печати темы

Автор: Shadow 16.05.2004 4:07

привет
---------------
у кого нибудь есть инфа работы с палитрой
через порты
---------------
просто нужно нет у меня в справочнике

Автор: Dark 16.05.2004 7:39

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Procedure GetPal(ColorNo : Byte; Var R,G,B : Byte);
  { This reads the values of the Red, Green and Blue values of a certain
    color and returns them to you. }
Begin
   Port[$3c7] := ColorNo;
   R := Port[$3c9];
   G := Port[$3c9];
   B := Port[$3c9];
End;

Автор: Dark 16.05.2004 7:43

Procedure Pal(ColorNo : Byte; R,G,B : Byte);
  { This sets the Red, Green and Blue values of a certain color }
Begin
   Port[$3c8] := ColorNo;
   Port[$3c9] := R;
   Port[$3c9] := G;
   Port[$3c9] := B;
End;

Автор: Dark 16.05.2004 7:54

Вот - погляди по регистрам в прикрепленном файле, там и нетолько это найти можно, но все на буржуйском


Прикрепленные файлы
 Vgaregs.txt ( 40.05 килобайт ) Кол-во скачиваний: 463

Автор: Shadow 16.05.2004 18:42

спасибо понятно