Переглянути джерело

* removed and/or/xorput support from vesaputpix256 (not in TP either)
* added notput support to directputpix256

Jonas Maebe 26 роки тому
батько
коміт
bee7f62011
1 змінених файлів з 28 додано та 1 видалено
  1. 28 1
      rtl/inc/graph/vesa.inc

+ 28 - 1
rtl/inc/graph/vesa.inc

@@ -481,6 +481,28 @@ end;
   begin
      offs := longint(y) * BytesPerLine + x;
      SetWriteBank(integer(offs shr 16));
+<<<<<<< vesa.inc
+     Case CurrentWriteMode of
+       XorPut:
+         Begin
+           SetReadBank(integer(offs shr 16));
+           mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] xor byte(currentcolor);
+         End;
+       AndPut:
+         Begin
+           SetReadBank(integer(offs shr 16));
+           mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] And byte(currentcolor);
+         End;
+       OrPut:
+         Begin
+           SetReadBank(integer(offs shr 16));
+           mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] or byte(currentcolor);
+         End;
+       NormalPut:
+         mem[WinWriteSeg : word(offs)] := byte(currentcolor)
+      else mem[WinWriteSeg : word(offs)] := byte(CurrentColor);
+   End;
+=======
      Case CurrentWriteMode of
        XorPut:
          Begin
@@ -501,6 +523,7 @@ end;
          mem[WinWriteSeg : word(offs)] := byte(CurrentColor)
      Else mem[WinWriteSeg : word(offs)] := byte(CurrentColor);
    End;
+>>>>>>> 1.8
   end;
 
   function GetPixVESA256(x, y : integer): word; far;
@@ -1461,7 +1484,11 @@ end;
 
 {
 $Log$
-Revision 1.8  1999-07-18 15:07:21  jonas
+Revision 1.9  1999-08-01 14:51:07  jonas
+  * removed and/or/xorput support from vesaputpix256 (not in TP either)
+  * added notput support to directputpix256
+
+Revision 1.8  1999/07/18 15:07:21  jonas
   + xor-, and and- orput support for VESA256 modes
   * compile with -dlogging if you wnt some info to be logged to grlog.txt