WebSVN – spacemission – Diff – /VCL_DELPHIX_D6/DXRender.pas

 interface
 {$INCLUDE DelphiXcfg.inc}
 uses
-  Windows, DirectX;
+  Windows,
+{$IfDef StandardDX}
+  DirectDraw,
+  {$ifdef DX7}
+  Direct3D;
+  {$endif}
+  {$IfDef DX9}
+  Direct3D9, Direct3D, D3DX9, {Direct3D8,} DX7toDX8;
+  {$EndIf}
+{$Else}
+  DirectX;
+{$EndIf}
 const
   DXR_MAXTEXTURE = 4;
 type
   TDXR_Value = Double;
   TDXR_Color = DWORD;
   TDXR_SurfaceColor = DWORD;
+  {  TDXR_Option  }
+  PDXR_Option = ^TDXR_Option;
+  TDXR_Option = (
+    DXR_OPTION_VERSION,
+    DXR_OPTION_MMXENABLE,
+    DXR_OPTION_RENDERPRIMITIVES
+  );
   {  TDXR_ShadeMode  }
   TDXR_ShadeMode = (
     DXR_SHADEMODE_FLAT,
     DXR_SHADEMODE_GOURAUD
     DXR_BLEND_ONE2,                        // r=c2
     DXR_BLEND_ONE1_ADD_ONE2,               // r=c1+c2
     DXR_BLEND_ONE1_SUB_ONE2,               // r=c1-c2
     DXR_BLEND_ONE2_SUB_ONE1,               // r=c2-c1
     DXR_BLEND_ONE1_MUL_ONE2,               // r=c1*c2
     DXR_BLEND_SRCALPHA1,                   // r=c1*a1
     DXR_BLEND_SRCALPHA1_ADD_ONE2,          // r=c1*a1+c2
     DXR_BLEND_ONE2_SUB_SRCALPHA1,          // r=c2-c1*a1
     DXR_BLEND_SRCALPHA1_ADD_INVSRCALPHA2,  // r=c1*a1+c2*(1-a2)
     DXR_BLEND_INVSRCALPHA1_ADD_SRCALPHA2,  // r=c1*(1-a1)+c2*a2
     // for lighting
+    DXR_BLEND_DECAL,                       // r=c1
     DXR_BLEND_DECALALPHA,                  // r=c1    ra=a2
     DXR_BLEND_MODULATE,                    // r=c1*c2 ra=a2
+    DXR_BLEND_MODULATEALPHA,               // r=c1*c2
     DXR_BLEND_ADD                          // r=c1+c2 ra=a2
   );
   {  TDXR_TextureFilter  }
   TDXR_TextureFilter = (
     DXR_TEXTUREFILTER_NEAREST,
-    DXR_TEXTUREFILTER_LINEAR
+    DXR_TEXTUREFILTER_LINEAR,
+    DXR_TEXTUREFILTER_MIPMAP_NEAREST,
+    DXR_TEXTUREFILTER_MIPMAP_LINEAR
   );
   {  TDXR_TextureAddress  }
   TDXR_TextureAddress = (
     DXR_TEXTUREADDRESS_TILE,           // tx=tx and WidthMask ty=ty and HeightMask
     DXR_TEXTUREADDRESS_DONOTCLIP       // tx=tx               ty=ty
   );
+  {  TDXR_CmpFunc  }
+  TDXR_CmpFunc = (
+    DXR_CMPFUNC_NEVER,
+    DXR_CMPFUNC_LESS,
+    DXR_CMPFUNC_EQUAL,
+    DXR_CMPFUNC_LESSEQUAL,
+    DXR_CMPFUNC_GREATER,
+    DXR_CMPFUNC_NOTEQUAL,
+    DXR_CMPFUNC_GREATEREQUAL,
+    DXR_CMPFUNC_ALWAYS
+  );
   {  TDXR_ColorType  }
   TDXR_ColorType = (
     DXR_COLORTYPE_INDEXED,     // Palette indexed color
     DXR_COLORTYPE_RGB          // RGB color
     WidthMask, HeightMask: DWORD;// Bit Mask of size of surface
     BitCount: DWORD;             // BitCount per Pixel(1, 2, 4, 8, 16, 24, 32 only)
     Bits: Pointer;               // Pointer to pixeldata(x:0 y:0)
     Pitch: Integer;              // Offset of next scanline
     PitchBit: Integer;           // Offset of next scanline (Number of bit)
+    MipmapChain: PDXR_Surface;
     case Integer of
 : (
         { Indexed color }
         idx_index: TDXR_ColorChannel;  // Index channel
         idx_alpha: TDXR_ColorChannel;  // Alpha channel
   PDXR_Vertex = ^TDXR_Vertex;
   TDXR_Vertex = record
     sx: TDXR_Value;            // Screen coordinates
     sy: TDXR_Value;
     sz: TDXR_Value;
+    rhw: TDXR_Value;           // 1/sz
     color: TDXR_Color;
     specular: TDXR_Color;
     tu, tv: array[0..DXR_MAXTEXTURE-1] of TDXR_Value;
   end;
     LayerBlend: TDXR_TextureLayerBlend;
     Blend: TDXR_Blend;
     ColorKeyEnable: Boolean;
     ColorKey: TDXR_SurfaceColor;
     TextureAddress: TDXR_TextureAddress;
+    BumpTexture: Integer;
   end;
   {  TDXR_Cull  }
   TDXR_Cull = (
     TexBlend: TDXR_Blend;
     Blend: TDXR_Blend;
     TextureEnable: Boolean;
     TextureList: array[0..DXR_MAXTEXTURE-1] of TDXR_TextureLayer;
     TextureFilter: TDXR_TextureFilter;
+    ZBuffer: PDXR_Surface;
+    ZFunc: TDXR_CmpFunc;
+    ZWriteEnable: Boolean;
-    EnableDrawLine: DWORD;
+    EnableDrawLine: Integer;
   end;
+function dxrGetOption(Option: TDXR_Option): DWORD;
+procedure dxrSetOption(Option: TDXR_Option; Value: DWORD);
 procedure dxrMakeIndexedSurface(var Surface: TDXR_Surface; Width, Height, BitCount: DWORD;
   Bits: Pointer; pitch: Integer; idx_index, idx_alpha: DWORD);
 procedure dxrMakeRGBSurface(var Surface: TDXR_Surface; Width, Height, BitCount: DWORD;
   Bits: Pointer; pitch: Integer; rgb_red, rgb_green, rgb_blue, rgb_alpha: DWORD);
 function dxrScanLine(const Surface: TDXR_Surface; y: DWORD): Pointer;
+procedure dxrZBufferClear(const Surface: TDXR_Surface);
-function dxrDDSurfaceLock(DDSurface: IDirectDrawSurface; var Surface: TDXR_Surface): Boolean;
+function dxrDDSurfaceLock(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; var Surface: TDXR_Surface): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
-function dxrDDSurfaceLock2(DDSurface: IDirectDrawSurface; var ddsd: TDDSurfaceDesc;
+function dxrDDSurfaceLock2(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; var ddsd: {$IFDEF D3D_deprecated}TDDSurfaceDesc{$ELSE}TDDSurfaceDesc2{$ENDIF};
-  var Surface: TDXR_Surface): Boolean;
+  var Surface: TDXR_Surface): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
-procedure dxrDDSurfaceUnLock(DDSurface: IDirectDrawSurface; const Surface: TDXR_Surface);
+procedure dxrDDSurfaceUnLock(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; const Surface: TDXR_Surface); {$IFDEF VER9UP}inline;{$ENDIF}
 procedure dxrDefRenderStates(var States: TDXR_RenderStates);
 procedure dxrDrawPrimitive(const Dest: TDXR_Surface; const States: TDXR_RenderStates; PrimitiveType: TDXR_PrimitiveType;
   VertexList: PDXR_Vertex; VertexCount: DWORD);
 type
   PInteger = ^Integer;
-  {  TDXR_CmpFunc  }
-  TDXR_CmpFunc = (
-    DXR_CMPFUNC_NEVER,
-    DXR_CMPFUNC_LESS,
-    DXR_CMPFUNC_EQUAL,
-    DXR_CMPFUNC_LESSEQUAL,
-    DXR_CMPFUNC_GREATER,
-    DXR_CMPFUNC_NOTEQUAL,
-    DXR_CMPFUNC_GREATEREQUAL,
-    DXR_CMPFUNC_ALWAYS
-  );
   {  TDXRMachine  }
   TDXRMachine_TreeType = (
     DXR_TREETYPE_LOADBLACK,      // Load black color
     DXR_TREETYPE_LOADCOLOR,      // Load vertex color
     DXR_TREETYPE_LOADCONSTCOLOR, // Load constant color
     DXR_TREETYPE_LOADTEXTURE,    // Load texel
+    DXR_TREETYPE_LOADBUMPTEXTURE,// Load texel with Bump mapping
+                                 //   dx := nx + (BumpTexture[nx-1, ny]-BumpTexture[nx+1, ny]);
+                                 //   dy := ny + (BumpTexture[nx, ny-1]-BumpTexture[nx, ny+1]);
     DXR_TREETYPE_LOADDESTPIXEL,  // Load dest pixel
     DXR_TREETYPE_BLEND           // Blend color
   );
   TDXRColorChannel = (chRed, chGreen, chBlue, chAlpha);
     EnableChannels: TDXRColorChannels;
     TextureAddress: TDXR_TextureAddress;
     DefaultColor: TDXRMachine_Color;
   end;
+  TDXRMachine_Reg_RHW = record
+    Enable: Boolean;
+    nRHW: TDXRMachine_Int64;
+    iRHW: TDXRMachine_Int64;
+  end;
   TDXRMachine_Reg_Dither = record
     Enable: Boolean;
   end;
+  TDXRMachine_Reg_ZBuffer = record
+    Enable: Boolean;
+    Surface: PDXR_Surface;
+    CmpFunc: TDXR_CmpFunc;
+    WriteEnable: Boolean;
+  end;
   TDXRMachine_Reg_Axis = record
     Axis: TDXRMachine_Axis;
     IncEnable: Boolean;
   end;
         ConstColor: TDXRMachine_Color;
         );
       DXR_TREETYPE_LOADTEXTURE: (
         Texture: Integer
         );
+      DXR_TREETYPE_LOADBUMPTEXTURE: (
+        _Texture: Integer;
+        BumpTexture: Integer;
+        );
       DXR_TREETYPE_LOADDESTPIXEL: (
         );
       DXR_TREETYPE_BLEND: (
         Blend: TDXR_Blend;
         BlendTree1: PDXRMachine_Tree;
     FCall: Pointer;
     FCompiled: Boolean;
     FTreeCount: Integer;
     FTreeList: array[0..127] of TDXRMachine_Tree;
     FMMXUsed: Boolean;
+    F_ZBuf: Pointer;
     F_BiLinearAxis: TDXRMachine_Axis;
     F_BiLinearCol1: TDXRMachine_Color;
     F_BiLinearCol2: TDXRMachine_Color;
     F_BiLinearCol3: TDXRMachine_Color;
     F_BiLinearCol4: TDXRMachine_Color;
+    F_BumpAxis: TDXRMachine_Axis;
+    F_BumpAxis2: TDXRMachine_Axis;
+    F_BumpTempCol: DWORD;
     FStack: array[0..255] of TDXRMachine_Color;
     procedure GenerateCode(var Code: Pointer; Tree: PDXRMachine_Tree);
   public
     Dest: PDXR_Surface;
     ColorList: array[0..7] of TDXRMachine_Reg_Color;
     ColorIndexCount: Integer;
     TextureList: array[0..7] of TDXRMachine_Reg_Texture;
     TextureIndex: array[0..7] of Integer;
     TextureIndexCount: Integer;
     Dither: TDXRMachine_Reg_Dither;
+    ZBuffer: TDXRMachine_Reg_ZBuffer;
     Axis: TDXRMachine_Reg_Axis;
+    RHW: TDXRMachine_Reg_RHW;
     constructor Create;
     destructor Destroy; override;
-    function CreateTree: PDXRMachine_Tree;
+    function CreateTree: PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    function CreateTree2(Typ: TDXRMachine_TreeType): PDXRMachine_Tree;
+    function CreateTree2(Typ: TDXRMachine_TreeType): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    function CreateTree_LoadColor(Color: DWORD): PDXRMachine_Tree;
+    function CreateTree_LoadColor(Color: DWORD): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    function CreateTree_LoadConstColor(R, G, B, A: Byte): PDXRMachine_Tree;
+    function CreateTree_LoadConstColor(R, G, B, A: Byte): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    function CreateTree_LoadTexture(Texture: DWORD): PDXRMachine_Tree;
+    function CreateTree_LoadTexture(Texture: DWORD): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
+    function CreateTree_LoadBumpTexture(Texture, BumpTexture: DWORD): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    function CreateTree_Blend(Blend: TDXR_Blend; BlendTree1, BlendTree2: PDXRMachine_Tree): PDXRMachine_Tree;
+    function CreateTree_Blend(Blend: TDXR_Blend; BlendTree1, BlendTree2: PDXRMachine_Tree): PDXRMachine_Tree; {$IFDEF VER9UP}inline;{$ENDIF}
-    procedure Initialize;
+    procedure Initialize; {$IFDEF VER9UP}inline;{$ENDIF}
     procedure Compile(Tree: PDXRMachine_Tree);
     procedure Run(Count: Integer);
     property Compiled: Boolean read FCompiled write FCompiled;
   end;
     mov CPUIDSignature,eax
     mov CPUIDFeatures,edx
   @@exit:
     pop ebx
   end;
   UseMMX := CPUIDFeatures and CPUIDF_MMX<>0;
 end;
+function dxrGetOption(Option: TDXR_Option): DWORD;
+begin
+  Result := 0;
+  case Option of
+    DXR_OPTION_VERSION:
+        begin
+          Result := 1*100 + 0;
+        end;
+    DXR_OPTION_MMXENABLE:
+        begin
+          Result := DWORD(LongBool(UseMMX));
+        end;
+    DXR_OPTION_RENDERPRIMITIVES:
+        begin
+          Result := RenderPrimitiveCount;
+        end;
+  end;
+end;
+procedure dxrSetOption(Option: TDXR_Option; Value: DWORD);
+begin
+  case Option of
+    DXR_OPTION_MMXENABLE:
+        begin
+          UseMMX := LongBool(Value) and (CPUIDFeatures and CPUIDF_MMX<>0);
+        end;
+    DXR_OPTION_RENDERPRIMITIVES:
+        begin
+          RenderPrimitiveCount := Value;
+        end;
+  end;
+end;
 function GetBitCount(B: Integer): DWORD;
 begin
   Result := 31;
   while (Result>0) and (((1 shl Result) and B)=0) do Dec(Result);
 end;
       (Surface1.rgb_alpha.Mask=Surface2.rgb_alpha.Mask);
   end else
     Result := False;
 end;
-function dxrDDSurfaceLock(DDSurface: IDirectDrawSurface; var Surface: TDXR_Surface): Boolean;
+function dxrDDSurfaceLock(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; var Surface: TDXR_Surface): Boolean;
 var
-  ddsd: TDDSurfaceDesc;
+  ddsd: {$IFDEF D3D_deprecated}TDDSurfaceDesc{$ELSE}TDDSurfaceDesc2{$ENDIF};
 begin
   Result := dxrDDSurfaceLock2(DDSurface, ddsd, Surface);
 end;
-function dxrDDSurfaceLock2(DDSurface: IDirectDrawSurface; var ddsd: TDDSurfaceDesc;
+function dxrDDSurfaceLock2(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; var ddsd: {$IFDEF D3D_deprecated}TDDSurfaceDesc{$ELSE}TDDSurfaceDesc2{$ENDIF};
   var Surface: TDXR_Surface): Boolean;
 const
   DDPF_PALETTEINDEXED = DDPF_PALETTEINDEXED1 or DDPF_PALETTEINDEXED2 or
     DDPF_PALETTEINDEXED4 or DDPF_PALETTEINDEXED8;
 begin
     begin
       dxrMakeIndexedSurface(Surface, ddsd.dwWidth, ddsd.dwHeight, ddsd.ddpfPixelFormat.dwRGBBitCount,
         ddsd.lpSurface, ddsd.lPitch, (1 shl ddsd.ddpfPixelFormat.dwRGBBitCount)-1, 0);
     end else
     begin
-      {if ddsd.ddpfPixelFormat.dwFlags and DDPF_ALPHAPIXELS<>0 then
+      if ddsd.ddpfPixelFormat.dwFlags and DDPF_ALPHAPIXELS<>0 then
       begin
         dxrMakeRGBSurface(Surface, ddsd.dwWidth, ddsd.dwHeight, ddsd.ddpfPixelFormat.dwRGBBitCount,
           ddsd.lpSurface, ddsd.lPitch, ddsd.ddpfPixelFormat.dwRBitMask, ddsd.ddpfPixelFormat.dwGBitMask,
           ddsd.ddpfPixelFormat.dwBBitMask, ddsd.ddpfPixelFormat.dwRGBAlphaBitMask);
-      end else}
+      end else
       begin
         dxrMakeRGBSurface(Surface, ddsd.dwWidth, ddsd.dwHeight, ddsd.ddpfPixelFormat.dwRGBBitCount,
           ddsd.lpSurface, ddsd.lPitch, ddsd.ddpfPixelFormat.dwRBitMask, ddsd.ddpfPixelFormat.dwGBitMask,
           ddsd.ddpfPixelFormat.dwBBitMask, 0);
       end;
     end;
   end;
 end;
-procedure dxrDDSurfaceUnLock(DDSurface: IDirectDrawSurface; const Surface: TDXR_Surface);
+procedure dxrDDSurfaceUnLock(DDSurface: {$IFDEF D3D_deprecated}IDirectDrawSurface{$ELSE}IDirectDrawSurface7{$ENDIF}; const Surface: TDXR_Surface);
 begin
   DDSurface.Unlock(Surface.Bits);
 end;
 function dxrScanLine(const Surface: TDXR_Surface; y: DWORD): Pointer;
 begin
   Result := Pointer(Integer(Surface.Bits)+Surface.Pitch*Integer(y));
 end;
+procedure dxrZBufferClear(const Surface: TDXR_Surface);
+var
+  i: Integer;
+begin
+  for i:=0 to Surface.Height-1 do
+    FillChar(dxrScanLine(Surface, i)^, Abs(Surface.Pitch), $FF);
+end;
 {  TDXRMachine  }
 constructor TDXRMachine.Create;
 begin
   inherited Create;
   FMMXUsed := False;
   FillChar(ColorList, SizeOf(ColorList), 0);
   FillChar(TextureList, SizeOf(TextureList), 0);
   FillChar(Dither, SizeOf(Dither), 0);
+  FillChar(ZBuffer, SizeOf(ZBuffer), 0);
   FillChar(Axis, SizeOf(Axis), 0);
+  FillChar(RHW, SizeOf(RHW), 0);
 end;
 function TDXRMachine.CreateTree: PDXRMachine_Tree;
 begin
   Result := @FTreeList[FTreeCount];
   Result := CreateTree;
   Result.Typ := DXR_TREETYPE_LOADTEXTURE;
   Result.Texture := Texture;
 end;
+function TDXRMachine.CreateTree_LoadBumpTexture(Texture, BumpTexture: DWORD): PDXRMachine_Tree;
+begin
+  Result := CreateTree;
+  Result.Typ := DXR_TREETYPE_LOADBUMPTEXTURE;
+  Result.Texture := Texture;
+  Result.BumpTexture := BumpTexture;
+end;
 function TDXRMachine.CreateTree_Blend(Blend: TDXR_Blend; BlendTree1, BlendTree2: PDXRMachine_Tree): PDXRMachine_Tree;
 begin
   Result := CreateTree;
   Result.Typ := DXR_TREETYPE_BLEND;
   Result.Blend := Blend;
             Col1_1 := [];
             Col1_2 := [];
             Col2_1 := [chRed, chGreen, chBlue, chAlpha];
             Col2_2 := [];
           end;
-        DXR_BLEND_ONE1_ADD_ONE2,
+        DXR_BLEND_ONE1_ADD_ONE2, DXR_BLEND_ONE1_SUB_ONE2:
+          begin
+            Col1_1 := [chRed, chGreen, chBlue, chAlpha];
-        DXR_BLEND_ONE1_SUB_ONE2,
+            Col1_2 := [];
+            Col2_1 := [chRed, chGreen, chBlue, chAlpha];
-        DXR_BLEND_ONE2_SUB_ONE1,
+            Col2_2 := [];
+          end;
-        DXR_BLEND_ONE1_MUL_ONE2:
+        DXR_BLEND_ONE2_SUB_ONE1, DXR_BLEND_ONE1_MUL_ONE2:
           begin
             Col1_1 := [chRed, chGreen, chBlue, chAlpha];
             Col1_2 := [];
             Col2_1 := [chRed, chGreen, chBlue, chAlpha];
             Col2_2 := [];
             Col1_2 := [chAlpha];
             Col2_1 := [chRed, chGreen, chBlue, chAlpha];
             Col2_2 := [];
           end;
+        DXR_BLEND_DECAL:
+          begin
+            Col1_1 := [chRed, chGreen, chBlue, chAlpha];
+            Col1_2 := [];
+            Col2_1 := [];
+            Col2_2 := [];
+          end;
         DXR_BLEND_DECALALPHA:
           begin
             Col1_1 := [chRed, chGreen, chBlue];
             Col1_2 := [];
             Col2_1 := [];
             Col2_2 := [chAlpha];
           end;
         DXR_BLEND_MODULATE:
           begin
+            Col1_1 := [chRed, chGreen, chBlue, chAlpha];
+            Col1_2 := [];
+            Col2_1 := [chRed, chGreen, chBlue, chAlpha];
+            Col2_2 := [];
+          end;
+        DXR_BLEND_MODULATEALPHA:
+          begin
             Col1_1 := [chRed, chGreen, chBlue];
             Col1_2 := [chAlpha];
             Col2_1 := [chRed, chGreen, chBlue];
             Col2_2 := [chAlpha];
           end;
           end;
       DXR_TREETYPE_LOADTEXTURE:
           begin
             // Load texel
           end;
+      DXR_TREETYPE_LOADBUMPTEXTURE:
+          begin
+            // Load texel with Bump mapping
+          end;
       DXR_TREETYPE_LOADDESTPIXEL:
           begin
             // Load dest pixel
           end;
       DXR_TREETYPE_BLEND:
             if (Tree.Blend=DXR_BLEND_ZERO) then
             begin
               c := Tree.Channels; Tree^.Typ := DXR_TREETYPE_LOADBLACK; Tree.Channels := c;
             end else
-            if (Tree.Blend in [DXR_BLEND_ONE1]) then
+            if (Tree.Blend in [DXR_BLEND_ONE1, DXR_BLEND_DECAL]) then
             begin
               c := Tree.Channels; Tree := Tree.BlendTree1; Tree.Channels := c;
             end else
             if (Tree.Blend=DXR_BLEND_ONE2) then
             begin
               c := Tree.Channels; Tree := Tree.BlendTree2; Tree.Channels := c;
             end else
-            if (Tree.Blend in [DXR_BLEND_ONE1_ADD_ONE2, DXR_BLEND_ONE1_SUB_ONE2]) and
+            if (Tree.Blend in [DXR_BLEND_ONE1_ADD_ONE2, DXR_BLEND_ONE2_SUB_ONE1]) and
               (Tree.BlendTree2.Typ=DXR_TREETYPE_LOADBLACK) then
             begin
               c := Tree.Channels; Tree := Tree.BlendTree1; Tree.Channels := c;
             end else
-            if (Tree.Blend in [DXR_BLEND_ONE1_ADD_ONE2, DXR_BLEND_ONE1_SUB_ONE2]) and
+            if (Tree.Blend in [DXR_BLEND_ONE1_ADD_ONE2, DXR_BLEND_ONE2_SUB_ONE1]) and
               (Tree.BlendTree1.Typ=DXR_TREETYPE_LOADBLACK) then
             begin
               c := Tree.Channels; Tree := Tree.BlendTree2; Tree.Channels := c;
             end else
             begin
             // Load texel
             TextureList[Tree.Texture].EnableChannels := TextureList[Tree.Texture].EnableChannels +
               Tree.Channels*GetSurfaceChannels(TextureList[Tree.Texture].Surface^);
             TextureList[Tree.Texture].Enable := TextureList[Tree.Texture].EnableChannels<>[];
           end;
+      DXR_TREETYPE_LOADBUMPTEXTURE:
+          begin
+            // Load texel with Bump mapping
+            TextureList[Tree.Texture].EnableChannels := TextureList[Tree.Texture].EnableChannels +
+              Tree.Channels*GetSurfaceChannels(TextureList[Tree.Texture].Surface^);
+            TextureList[Tree.Texture].Enable := TextureList[Tree.Texture].EnableChannels<>[];
+            TextureList[Tree.BumpTexture].Enable := True;
+          end;
       DXR_TREETYPE_LOADDESTPIXEL:
           begin
             // Load dest pixel
           end;
       DXR_TREETYPE_BLEND:
     begin
       TextureIndex[TextureIndexCount] := i;
       Inc(TextureIndexCount);
     end;
+  ZBuffer.Enable := ZBuffer.Surface<>nil;
+  RHW.Enable := ZBuffer.Enable;
   Axis.IncEnable := Dither.Enable;
   {  Generate X86 code  }
   Code := FBuf; GenerateCode(Code, Tree);
       sub edx,offset @@StartCode
       mov dword ptr [ecx+edx],eax
     end;
   end;
+  procedure genInitZBuffer(var Code: Pointer);
+  var
+    _Axis: Pointer;
+    ByteCount, Pitch: DWORD;
+    Bits, _ZBuf: Pointer;
+  begin
+    if not ZBuffer.Enable then Exit;
+    _Axis := @Axis.Axis;
+    ByteCount := ZBuffer.Surface.BitCount div 8;
+    Pitch := ZBuffer.Surface.Pitch;
+    Bits := ZBuffer.Surface.Bits;
+    _ZBuf := @F_ZBuf;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov edx,dword ptr [offset _null]{}@@AxisX:
+      imul edx,$11{}        @@ByteCount: // States.ZBuffer.BitCount div 8
+      mov eax,dword ptr [offset _null]{}@@AxisY:
+      imul eax,$11111111{}  @@Pitch: // States.ZBuffer.pitch
+      add eax,$11111111{}   @@Bits:  // States.ZBuffer.Bits
+      add eax,edx
+      mov dword ptr [offset _null],eax{}@@_ZBuf:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@AxisX  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@AxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisY  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@AxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@ByteCount  }
+      mov eax,ByteCount
+      mov edx,offset @@ByteCount-1
+      sub edx,offset @@StartCode
+      mov byte ptr [ecx+edx],al
+      {  @@Pitch  }
+      mov eax,Pitch
+      mov edx,offset @@Pitch-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@Bits  }
+      mov eax,Bits
+      mov edx,offset @@Bits-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@_ZBuf  }
+      mov eax,_ZBuf
+      mov edx,offset @@_ZBuf-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+  end;
+  procedure genZBufferTest(var Code: Pointer);
+  var
+    _ZBuf, _RHW: Pointer;
+  begin
+    if not ZBuffer.Enable then Exit;
+    _ZBuf := @F_ZBuf;
+    _RHW := @RHW.nRHW;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov edx,dword ptr [offset _null]{}@@_ZBuf:
+      mov ebx,dword ptr [offset _null]{}@@_RHW:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@_ZBuf  }
+      mov eax,_ZBuf
+      mov edx,offset @@_ZBuf-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@_RHW  }
+      mov eax,_RHW; add eax,4
+      mov edx,offset @@_RHW-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    if ZBuffer.CmpFunc<>DXR_CMPFUNC_ALWAYS then
+    begin
+      case ZBuffer.Surface.BitCount of
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               movzx eax,byte ptr [edx]
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               movzx eax,word ptr [edx]
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               movzx ax,byte ptr [edx+2]
+               shl eax,16
+               mov ax,word ptr [edx]
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               mov eax,dword ptr [edx]
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+      end;
+      asm
+        jmp @@EndCode
+      @@StartCode:
+        cmp eax,ebx
+      @@EndCode:
+        {$I DXRender.inc}
+      end;
+      genCmpFunc(Code, ZBuffer.CmpFunc, SkipAddress);
+    end;
+    if ZBuffer.WriteEnable then
+    begin
+      case ZBuffer.Surface.BitCount of
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               mov byte ptr [edx],bl
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               mov word ptr [edx],bx
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               mov word ptr [edx],bx
+               bswap ebx
+               mov byte ptr [edx+2],bh
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+: begin
+             asm
+               jmp @@EndCode
+             @@StartCode:
+               mov dword ptr [edx],ebx
+             @@EndCode:
+               {$I DXRender.inc}
+             end;
+           end;
+      end;
+    end;
+  end;
+  procedure genUpdateZBufferAddress(var Code: Pointer);
+  var
+    ByteCount: DWORD;
+    _ZBuf: Pointer;
+  begin
+    if not ZBuffer.Enable then Exit;
+    ByteCount := ZBuffer.Surface.BitCount shr 3;
+    _ZBuf := @F_ZBuf;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      add dword ptr [offset _null],$11{}@@_ZBuf:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@_ZBuf  }
+      mov eax,ByteCount
+      mov edx,offset @@_ZBuf-1
+      sub edx,offset @@StartCode
+      mov byte ptr [ecx+edx],al
+      {  @@_ZBuf  }
+      mov eax,_ZBuf
+      mov edx,offset @@_ZBuf-5
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+  end;
   procedure genReadDestPixel(var Code: Pointer);
   begin
     case Dest.BitCount of
 : begin
            asm
               mov edx,offset @@idx_indexPal-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestR  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
               mov edx,offset @@DestR-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestG  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
               mov edx,offset @@DestG-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestB  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
               mov edx,offset @@DestB-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@idx_indexPal-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestR  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
               mov edx,offset @@DestR-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestG  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
               mov edx,offset @@DestG-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestB  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
               mov edx,offset @@DestB-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@idx_indexPal-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestR  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
               mov edx,offset @@DestR-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestG  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
               mov edx,offset @@DestG-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
               {  @@DestB  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
               mov edx,offset @@DestB-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
             mov word ptr [offset _null],$1111{}@@DestG:// @Dest.G
             mov word ptr [offset _null],$1111{}@@DestB:// @Dest.B
           @@EndCode:
             {$I DXRender.inc}
             {  @@DestR  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R)
             mov edx,offset @@DestR-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcR
             mov edx,offset @@DestR-2
             sub edx,offset @@StartCode
             mov word ptr [ecx+edx],ax
             {  @@DestG  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G)
             mov edx,offset @@DestG-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcG
             mov edx,offset @@DestG-2
             sub edx,offset @@StartCode
             mov word ptr [ecx+edx],ax
             {  @@DestB  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B)
             mov edx,offset @@DestB-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcB
               mov edx,offset @@idx_alphaRShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@idx_alphaLShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
           @@StartCode:
             mov word ptr [offset _null],$1111{}@@Dest:// @Dest.A
           @@EndCode:
             {$I DXRender.inc}
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A)
             mov edx,offset @@Dest-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcA
               mov edx,offset @@RShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@LShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
           @@StartCode:
             mov word ptr [offset _null],$1111{}@@Dest:// @Dest.R
           @@EndCode:
             {$I DXRender.inc}
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R)
             mov edx,offset @@Dest-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcR
               mov edx,offset @@RShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@LShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
           @@StartCode:
             mov word ptr [offset _null],$1111{}@@Dest:// @Dest.G
           @@EndCode:
             {$I DXRender.inc}
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G)
             mov edx,offset @@Dest-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcG
               mov edx,offset @@RShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@LShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
           @@StartCode:
             mov word ptr [offset _null],$1111{}@@Dest:// @Dest.B
           @@EndCode:
             {$I DXRender.inc}
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B)
             mov edx,offset @@Dest-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcB
               mov edx,offset @@RShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end else
               mov edx,offset @@LShift-1
               sub edx,offset @@StartCode
               mov byte ptr [ecx+edx],al
               {  @@Dest  }
-              mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+              mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
               mov edx,offset @@Dest-4
               sub edx,offset @@StartCode
               mov dword ptr [ecx+edx],eax
             end;
           end;
           @@StartCode:
             mov word ptr [offset _null],$1111{}@@Dest:// @Dest.A
           @@EndCode:
             {$I DXRender.inc}
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A)
             mov edx,offset @@Dest-6
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             mov ax,dcA
           and edx,$11111111{}@@rgb_redMask:    // Surface.rgb_red.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_redMask  }
           and edx,$11111111{}@@rgb_redMask:    // Surface.rgb_red.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_redMask  }
           and edx,$11111111{}@@rgb_greenMask:    // Surface.rgb_green.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_greenMask  }
           and edx,$11111111{}@@rgb_greenMask:    // Surface.rgb_green.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_greenMask  }
           and edx,$11111111{}@@rgb_blueMask:    // Surface.rgb_blue.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_blueMask  }
           and edx,$11111111{}@@rgb_blueMask:    // Surface.rgb_blue.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_blueMask  }
           and edx,$11111111{}@@rgb_alphaMask:   // Surface.rgb_alpha.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_alphaMask  }
           and edx,$11111111{}@@rgb_alphaMask:   // Surface.rgb_alpha.Mask
           or eax,edx
         @@EndCode:
           {$I DXRender.inc}
           {  @@Src  }
-          mov eax,Src; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Src; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Src-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@rgb_alphaMask  }
       @@StartCode:
         movzx edx,byte ptr [offset _null]{}@@Src:// @Src.R
       @@EndCode:
         {$I DXRender.inc}
         {  @@Src  }
-        mov eax,Src; add eax,BYTE(TDXRMachine_Color.R+1)
+        mov eax,Src; add eax,Byte(TDXRMachine_Color.R+1)
         mov edx,offset @@Src-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
       @@StartCode:
         movzx edx,byte ptr [offset _null]{}@@Src:// @Src.G
       @@EndCode:
         {$I DXRender.inc}
         {  @@Src  }
-        mov eax,Src; add eax,BYTE(TDXRMachine_Color.G+1)
+        mov eax,Src; add eax,Byte(TDXRMachine_Color.G+1)
         mov edx,offset @@Src-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
       @@StartCode:
         movzx edx,byte ptr [offset _null]{}@@Src:// @Src.B
       @@EndCode:
         {$I DXRender.inc}
         {  @@Src  }
-        mov eax,Src; add eax,BYTE(TDXRMachine_Color.B+1)
+        mov eax,Src; add eax,Byte(TDXRMachine_Color.B+1)
         mov edx,offset @@Src-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
       @@StartCode:
         movzx edx,byte ptr [offset _null]{}@@Src:// @Src.R
       @@EndCode:
         {$I DXRender.inc}
         {  @@Src  }
-        mov eax,Src; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Src; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Src-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
   end;
   procedure genEncodeColor2(var Code: Pointer; const Surface: TDXR_Surface; Src: PDXRMachine_Color; EnableChannels: TDXRColorChannels);
   begin
     if Dither.Enable then
+    begin
       genEncodeColor_with_Dither(Code, Surface, Src, @Axis.Axis, EnableChannels)
-    else
+    end else
+    begin
       genEncodeColor(Code, Surface, Src, EnableChannels);
-  end;
+    end;
+  end;
   procedure genColorKey(var Code: Pointer; const Texture: TDXRMachine_Reg_Texture);
   var
     TransparentMask, TransparentColor: DWORD;
   begin
           mov byte ptr [offset _Null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@_BiLinearCol1  }
-          mov eax,_BiLinearCol1; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,_BiLinearCol1; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@_BiLinearCol1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol2  }
-          mov eax,_BiLinearCol2; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,_BiLinearCol2; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@_BiLinearCol2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol3  }
-          mov eax,_BiLinearCol3; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,_BiLinearCol3; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@_BiLinearCol3-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol4  }
-          mov eax,_BiLinearCol4; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,_BiLinearCol4; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@_BiLinearCol4-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@TexX  }
           mov edx,offset @@TexY-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov byte ptr [offset _Null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@_BiLinearCol1  }
-          mov eax,_BiLinearCol1; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,_BiLinearCol1; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@_BiLinearCol1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol2  }
-          mov eax,_BiLinearCol2; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,_BiLinearCol2; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@_BiLinearCol2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol3  }
-          mov eax,_BiLinearCol3; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,_BiLinearCol3; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@_BiLinearCol3-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol4  }
-          mov eax,_BiLinearCol4; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,_BiLinearCol4; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@_BiLinearCol4-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@TexX  }
           mov edx,offset @@TexY-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov byte ptr [offset _Null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@_BiLinearCol1  }
-          mov eax,_BiLinearCol1; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,_BiLinearCol1; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@_BiLinearCol1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol2  }
-          mov eax,_BiLinearCol2; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,_BiLinearCol2; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@_BiLinearCol2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol3  }
-          mov eax,_BiLinearCol3; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,_BiLinearCol3; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@_BiLinearCol3-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol4  }
-          mov eax,_BiLinearCol4; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,_BiLinearCol4; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@_BiLinearCol4-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@TexX  }
           mov edx,offset @@TexY-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov byte ptr [offset _Null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@_BiLinearCol1  }
-          mov eax,_BiLinearCol1; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,_BiLinearCol1; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@_BiLinearCol1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol2  }
-          mov eax,_BiLinearCol2; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,_BiLinearCol2; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@_BiLinearCol2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol3  }
-          mov eax,_BiLinearCol3; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,_BiLinearCol3; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@_BiLinearCol3-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@_BiLinearCol4  }
-          mov eax,_BiLinearCol4; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,_BiLinearCol4; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@_BiLinearCol4-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@TexX  }
           mov edx,offset @@TexY-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
   end;
   procedure genReadTexture(var Code: Pointer; Dest: PDXRMachine_Color;
     const Texture: TDXRMachine_Reg_Texture; EnableChannels: TDXRColorChannels);
   begin
-    if Texture.Filter in [DXR_TEXTUREFILTER_LINEAR] then
+    if Texture.Filter in [DXR_TEXTUREFILTER_LINEAR, DXR_TEXTUREFILTER_MIPMAP_LINEAR] then
       genReadTexture_BiLinear(Code, Dest, Texture, Texture.nAxis, EnableChannels)
     else
       genReadTexture_Nearest(Code, Dest, Texture, Texture.nAxis, EnableChannels);
   end;
+  procedure genReadBumpTexture_Nearest(var Code: Pointer; Dest: PDXRMachine_Color;
+    const Texture, BumpTexture: TDXRMachine_Reg_Texture; EnableChannels: TDXRColorChannels);
+  var
+    _Axis, _Axis2, _iAxis, _BumpAxis, _BumpAxis2: PDXRMachine_Axis;
+    _BumpTempCol: Pointer;
+  begin
+    if EnableChannels=[] then Exit;
+    _Axis := @BumpTexture.nAxis;
+    _Axis2 := @Texture.nAxis;
+    _iAxis := @BumpTexture.iAxis;
+    _BumpAxis := @F_BumpAxis;
+    _BumpAxis2 := @F_BumpAxis2;
+    _BumpTempCol := @F_BumpTempCol;
+    {  X  }
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov eax,dword ptr [offset _null]{}@@TexX:
+      mov edx,dword ptr [offset _null]{}@@TexY:
+      sub eax,dword ptr [offset _null]{}@@iTexX:
+      mov dword ptr [offset _null],edx{}@@AxisY:
+      mov dword ptr [offset _null],eax{}@@AxisX:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@TexX  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@TexX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@TexY  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@TexY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@iTexX  }
+      mov eax,_iAxis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@iTexX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisX  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@AxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisY  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@AxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    genReadSurfacePixel(Code, BumpTexture, _BumpAxis);
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov dword ptr [offset _null],eax{}@@BumpTempCol:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@BumpTempCol  }
+      mov eax,_BumpTempCol
+      mov edx,offset @@BumpTempCol-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov edx,dword ptr [offset _null]{}@@iAxisX:
+      add dword ptr [offset _null],edx{}@@AxisX:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@iAxisX  }
+      mov eax,_iAxis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@iAxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisX  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@AxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    genReadSurfacePixel(Code, BumpTexture, _BumpAxis);
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      sub eax,dword ptr [offset _null]{}@@BumpTempCol:
+      sal eax,16
+      add eax,dword ptr [offset _null]{}@@TexX:
+      mov dword ptr [offset _null],eax{}@@AxisX:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@BumpTempCol  }
+      mov eax,_BumpTempCol
+      mov edx,offset @@BumpTempCol-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@TexX  }
+      mov eax,_Axis2; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@TexX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisX  }
+      mov eax,_BumpAxis2; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@AxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    {  Y  }
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov eax,dword ptr [offset _null]{}@@TexX:
+      mov edx,dword ptr [offset _null]{}@@TexY:
+      sub edx,dword ptr [offset _null]{}@@iTexY:
+      mov dword ptr [offset _null],eax{}@@AxisX:
+      mov dword ptr [offset _null],edx{}@@AxisY:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@TexX  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@TexX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@TexY  }
+      mov eax,_Axis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@TexY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@iTexY  }
+      mov eax,_iAxis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@iTexY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisX  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.X
+      mov edx,offset @@AxisX-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisY  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@AxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    genReadSurfacePixel(Code, BumpTexture, _BumpTempCol);
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov dword ptr [offset _null],eax{}@@BumpTempCol:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@BumpTempCol  }
+      mov eax,_BumpTempCol
+      mov edx,offset @@BumpTempCol-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      mov edx,dword ptr [offset _null]{}@@iAxisY:
+      sal edx,1
+      sub dword ptr [offset _null],edx{}@@AxisY:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@iAxisY  }
+      mov eax,_iAxis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@iAxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisY  }
+      mov eax,_BumpAxis; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@AxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    genReadSurfacePixel(Code, BumpTexture, _BumpAxis);
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      sub eax,dword ptr [offset _null]{}@@BumpTempCol:
+      sal eax,16
+      add eax,dword ptr [offset _null]{}@@TexY:
+      mov dword ptr [offset _null],eax{}@@AxisY:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@BumpTempCol  }
+      mov eax,_BumpTempCol
+      mov edx,offset @@BumpTempCol-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@TexX  }
+      mov eax,_Axis2; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@TexY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@AxisX  }
+      mov eax,_BumpAxis2; add eax,TDXRMachine_Axis.Y
+      mov edx,offset @@AxisY-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+    genReadTexture_Nearest(Code, Dest, Texture, _BumpAxis2^, EnableChannels);
+  end;
+  procedure genReadBumpTexture(var Code: Pointer; Dest: PDXRMachine_Color;
+    const Texture, BumpTexture: TDXRMachine_Reg_Texture; EnableChannels: TDXRColorChannels);
+  begin
+    {if Texture.Filter in [DXR_TEXTUREFILTER_LINEAR, DXR_TEXTUREFILTER_MIPMAP_LINEAR] then
+      genReadBumpTexture_BiLinear(Code, Dest, Texture, BumpTexture, EnableChannels)
+    else }
+      genReadBumpTexture_Nearest(Code, Dest, Texture, BumpTexture, EnableChannels);
+  end;
   procedure genUpdateAxis(var Code: Pointer);
   var
     _Axis: Pointer;
   begin
     if not Axis.IncEnable then Exit;
     _Axis := @Axis.Axis;
     asm
       jmp @@EndCode
     @@StartCode:
       inc dword ptr [offset _null]{}@@AxisX:
     @@EndCode:
       Texture := @TextureList[TextureIndex[i]];
       nTex := @Texture.nAxis;
       iTex := @Texture.iAxis;
+      if UseMMX then
+      begin
+        FMMXUsed := True;
+        asm
+          jmp @@EndCode
+        @@StartCode:
+          db $0F,$6F,$05,$11,$11,$11,$11///movq mm0,qword ptr [$11111111]
+                                 @@nTex:
+          db $0F,$FE,$05,$11,$11,$11,$11///paddd mm0,qword ptr [$11111111]
+                                 @@iTex:
+          db $0F,$7F,$05,$11,$11,$11,$11///movq qword ptr [$11111111],mm0
+                                 @@nTex2:
+        @@EndCode:
+          {$I DXRender.inc}
+          {  @@nTex  }
+          mov eax,nTex
+          mov edx,offset @@nTex-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@nTex2  }
+          mov eax,nTex
+          mov edx,offset @@nTex2-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@iTex  }
+          mov eax,iTex
+          mov edx,offset @@iTex-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+        end;
+      end else
+      begin
-      if Texture.iAxisConstant then
+        if Texture.iAxisConstant then
-      begin
+        begin
-        if Texture.iAxis.X<>0 then
+          if Texture.iAxis.X<>0 then
-        begin
+          begin
-          asm
+            asm
-            sub edx,offset @@StartCode
+              sub edx,offset @@StartCode
-            mov dword ptr [ecx+edx],eax
+              mov dword ptr [ecx+edx],eax
-          end;
+            end;
-        end;
+          end;
-      end else
+        end else
-      begin
+        //begin
-        if UseMMX then
+         if UseMMX then
-        begin
+         begin
           FMMXUsed := True;
           asm
             jmp @@EndCode
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
-        end else
+         end else
-        begin
+         begin
           asm
             jmp @@EndCode
           @@StartCode:
             mov eax,dword ptr [offset _Null]{}@@iTexX:
             mov edx,dword ptr [offset _Null]{}@@iTexY:
         end;
       end;
     end;
   end;
+  procedure genUpdateRHW(var Code: Pointer);
+  var
+    nRHW, iRHW: Pointer;
+  begin
+    if not RHW.Enable then Exit;
+    nRHW := @RHW.nRHW;
+    iRHW := @RHW.iRHW;
+    asm
+      jmp @@EndCode
+    @@StartCode:
+      // 64 bit addition
+      mov eax,dword ptr [offset _null]{}@@iRHW:
+      mov edx,dword ptr [offset _null]{}@@iRHW2:
+      add dword ptr [offset _null],eax{}@@nRHW:
+      adc dword ptr [offset _null],edx{}@@nRHW2:
+    @@EndCode:
+      {$I DXRender.inc}
+      {  @@nRHW  }
+      mov eax,nRHW
+      mov edx,offset @@nRHW-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@nRHW2  }
+      mov eax,nRHW; add eax,4
+      mov edx,offset @@nRHW2-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@iRHW  }
+      mov eax,iRHW
+      mov edx,offset @@iRHW-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+      {  @@iRHW  }
+      mov eax,iRHW; add eax,4
+      mov edx,offset @@iRHW2-4
+      sub edx,offset @@StartCode
+      mov dword ptr [ecx+edx],eax
+    end;
+  end;
   procedure genBlend(var Code: Pointer; Blend: TDXR_Blend;
     Dest, Col1, Col2: PDXRMachine_Color; EnableChannels: TDXRColorChannels;
     ConstChannels1, ConstChannels2: TDXRColorChannels);
     procedure Func_col1_Add_col2(var Code: Pointer; Dest, col1, col2: PWord);
         mov edx,offset @@Col2-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
         {  @@Dest  }
-        mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+        mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
         mov edx,offset @@Dest-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
     end;
     procedure genBlend_ONE1(var Code: Pointer; Dest, Col1: PDXRMachine_Color;
       ConstChannels1: TDXRColorChannels);
     begin
       if Dest=Col1 then Exit;
-      if UseMMX then
+      if UseMMX then //False then//UseMMX then
       begin
         FMMXUsed := True;
         asm
           jmp @@EndCode
         @@StartCode:
         asm
           jmp @@EndCode
         @@StartCode:
-          db $0F,$6F,$05,$11,$11,$11,$11/// movq mm0,qword ptr [$11111111]
+          db $0F,$6F,$05,$11,$11,$11,$11///movq mm0,qword ptr [$11111111]
                                  @@Col1:
-          db $0F,$DD,$05,$11,$11,$11,$11/// paddusw mm0,qword ptr [$11111111]
+          db $0F,$6F,$0D,$11,$11,$11,$11///movq mm1,qword ptr [$11111111]
                                  @@Col2:
+          db $0F,$DD,$C1      ///paddusw mm0,mm1
-          db $0F,$7F,$05,$11,$11,$11,$11/// movq qword ptr [$11111111],mm0
+          db $0F,$7F,$05,$11,$11,$11,$11///movq qword ptr [$11111111],mm0
                                  @@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
             Func_col1_Add_col2(Code, @Dest.A, @Col1.A, @Col2.A);
         end;
       end;
     end;
+    procedure genBlend_ONE2_SUB_ONE1(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
+      ConstChannels1, ConstChannels12: TDXRColorChannels);
+    begin
+      if UseMMX then
+      begin
+        FMMXUsed := True;
+        asm
+          jmp @@EndCode
+        @@StartCode:
+          db $0F,$6F,$05,$11,$11,$11,$11///movq mm0,qword ptr [$11111111]
+                                 @@Col1:
+          db $0F,$6F,$0D,$11,$11,$11,$11///movq mm1,qword ptr [$11111111]
+                                 @@Col2:
+          db $0F,$D9,$C8      ///psubusw mm1,mm0
+          db $0F,$7F,$0D,$11,$11,$11,$11///movq qword ptr [$11111111],mm1
+                                 @@Dest:
+        @@EndCode:
+          {$I DXRender.inc}
+          {  @@Col1  }
+          mov eax,Col1
+          mov edx,offset @@Col1-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@Col2  }
+          mov eax,Col2
+          mov edx,offset @@Col2-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@Dest  }
+          mov eax,Dest
+          mov edx,offset @@Dest-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+        end;
+      end else
+      begin
+        { Red Channel }
+        if chRed in EnableChannels then
+        begin
+          if chRed in ConstChannels1 then
+          begin
+            Func_col1_Sub_const2(Code, @Dest.R, @Col2.R, @Col1.R);
+          end else
+          if chRed in ConstChannels2 then
+          begin
+            Func_const1_Sub_col2(Code, @Dest.R, @Col1.R, @Col2.R);
+          end else
+            Func_col1_Sub_col2(Code, @Dest.R, @Col2.R, @Col1.R);
+        end;
+        { Green Channel }
+        if chRed in EnableChannels then
+        begin
+          if chRed in ConstChannels1 then
+          begin
+            Func_col1_Sub_const2(Code, @Dest.G, @Col2.G, @Col1.G);
+          end else
+          if chRed in ConstChannels2 then
+          begin
+            Func_const1_Sub_col2(Code, @Dest.G, @Col1.G, @Col2.G);
+          end else
+            Func_col1_Sub_col2(Code, @Dest.G, @Col2.G, @Col1.G);
+        end;
+        { Blue Channel }
+        if chRed in EnableChannels then
+        begin
+          if chRed in ConstChannels1 then
+          begin
+            Func_col1_Sub_const2(Code, @Dest.B, @Col2.B, @Col1.B);
+          end else
+          if chRed in ConstChannels2 then
+          begin
+            Func_const1_Sub_col2(Code, @Dest.B, @Col1.B, @Col2.B);
+          end else
+            Func_col1_Sub_col2(Code, @Dest.B, @Col2.B, @Col1.B);
+        end;
+        { Alpha Channel }
+        if chRed in EnableChannels then
+        begin
+          if chRed in ConstChannels1 then
+          begin
+            Func_col1_Sub_const2(Code, @Dest.A, @Col2.A, @Col1.A);
+          end else
+          if chRed in ConstChannels2 then
+          begin
+            Func_const1_Sub_col2(Code, @Dest.A, @Col1.A, @Col2.A);
+          end else
+            Func_col1_Sub_col2(Code, @Dest.A, @Col2.A, @Col1.A);
+        end;
+      end;
+    end;
     procedure genBlend_ONE1_SUB_ONE2(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
       ConstChannels1, ConstChannels12: TDXRColorChannels);
     begin
       if UseMMX then
       begin
             mul byte ptr [offset offset _null]   {}@@Col2:
             mov byte ptr [offset offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             mul byte ptr [offset offset _null]   {}@@Col2:
             mov byte ptr [offset offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             mul byte ptr [offset offset _null]   {}@@Col2:
             mov byte ptr [offset offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             mul byte ptr [offset offset _null]   {}@@Col2:
             mov byte ptr [offset offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
       @@StartCode:
         movzx ebx,byte ptr [offset _null]{}@@Col1:
       @@EndCode:
         {$I DXRender.inc}
         {  @@Col1  }
-        mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Col1-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
             imul eax,ebx
             mov byte ptr [offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             imul eax,ebx
             mov byte ptr [offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             imul eax,ebx
             mov byte ptr [offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             imul eax,ebx
             mov byte ptr [offset _null],ah{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
       @@StartCode:
         movzx ebx,byte ptr [offset _null]{}@@Col1:
       @@EndCode:
         {$I DXRender.inc}
         {  @@Col1  }
-        mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Col1-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
           mov al,byte ptr [offset (_AddTable + eax + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_AddTable + eax + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_AddTable + eax + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_AddTable + eax + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
       @@StartCode:
         movzx ebx,byte ptr [offset _null]{}@@Col1:
       @@EndCode:
         {$I DXRender.inc}
         {  @@Col1  }
-        mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Col1-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
           mov al,byte ptr [offset (_SubTable + 255 + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_SubTable + 255 + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_SubTable + 255 + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset (_SubTable + 255 + edx)]
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
         mov ebp,ebx
         xor ebp,$FF
       @@EndCode:
         {$I DXRender.inc}
         {  @@Col1  }
-        mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Col1-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
         mov ebx,ebp
         xor ebx,$FF
       @@EndCode:
         {$I DXRender.inc}
         {  @@Col1A  }
-        mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+        mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
         mov edx,offset @@Col1A-4
         sub edx,offset @@StartCode
         mov dword ptr [ecx+edx],eax
       end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             add eax,edx
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col1  }
-            mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col1-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
           mov al,byte ptr [offset _null]{}@@Col2:
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
     end;
-    procedure genBlend_MODULATE_RGBONLY(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
+    procedure genBlend_MODULATE(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
       ConstChannels1, ConstChannels12: TDXRColorChannels);
     begin
       if chRed in EnableChannels then
       begin
         asm
           mul byte ptr [offset offset _null]   {}@@Col2:
           mov byte ptr [offset offset _null],ah{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.R+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mul byte ptr [offset offset _null]   {}@@Col2:
           mov byte ptr [offset offset _null],ah{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.G+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mul byte ptr [offset offset _null]   {}@@Col2:
           mov byte ptr [offset offset _null],ah{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col1-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Col2  }
-          mov eax,Col2; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Col2-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
           {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.B+1)
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
           mov edx,offset @@Dest-4
           sub edx,offset @@StartCode
           mov dword ptr [ecx+edx],eax
         end;
       end;
           mov al,byte ptr [offset _null]{}@@Col1:
           mov byte ptr [offset _null],al{}@@Dest:
         @@EndCode:
           {$I DXRender.inc}
           {  @@Col1  }
-          mov eax,Col1; add eax,BYTE(TDXRMachine_Color.A+1)
+          mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
+          mov edx,offset @@Col1-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@Dest  }
+          mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
+          mov edx,offset @@Dest-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+        end;
+      end;
+    end;
+    procedure genBlend_MODULATEALPHA(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
+      ConstChannels1, ConstChannels12: TDXRColorChannels);
+    begin
+      if UseMMX then
+      begin
+        FMMXUsed := True;
+        asm
+          jmp @@EndCode
+        @@StartCode:
+          db $0F,$6F,$05,$11,$11,$11,$11///movq mm0,qword ptr [$11111111]
+                                 @@Col1:
+          db $0F,$6F,$0D,$11,$11,$11,$11///movq mm1,qword ptr [$11111111]
+                                 @@Col2:
+          db $0F,$E5,$C1      ///pmulhw mm0,mm1
+          db $0F,$7F,$05,$11,$11,$11,$11///movq qword ptr [$11111111],mm0
+                                 @@Dest:
+        @@EndCode:
+          {$I DXRender.inc}
+          {  @@Col1  }
+          mov eax,Col1
+          mov edx,offset @@Col1-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@Col2  }
+          mov eax,Col2
+          mov edx,offset @@Col2-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+          {  @@Dest  }
+          mov eax,offset Dest
+          mov edx,offset @@Dest-4
+          sub edx,offset @@StartCode
+          mov dword ptr [ecx+edx],eax
+        end;
+      end else
+      begin
+        if chRed in EnableChannels then
+        begin
+          asm
+            jmp @@EndCode
+          @@StartCode:
+            mov al,byte ptr [offset offset _null]{}@@Col1:
+            mul byte ptr [offset offset _null]   {}@@Col2:
+            mov byte ptr [offset offset _null],ah{}@@Dest:
+          @@EndCode:
+            {$I DXRender.inc}
+            {  @@Col1  }
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.R+1)
+            mov edx,offset @@Col1-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Col2  }
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.R+1)
+            mov edx,offset @@Col2-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Dest  }
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.R+1)
+            mov edx,offset @@Dest-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+          end;
+        end;
+        if chGreen in EnableChannels then
+        begin
+          asm
+            jmp @@EndCode
+          @@StartCode:
+            mov al,byte ptr [offset offset _null]{}@@Col1:
+            mul byte ptr [offset offset _null]   {}@@Col2:
+            mov byte ptr [offset offset _null],ah{}@@Dest:
+          @@EndCode:
+            {$I DXRender.inc}
+            {  @@Col1  }
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.G+1)
+            mov edx,offset @@Col1-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Col2  }
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.G+1)
+            mov edx,offset @@Col2-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Dest  }
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.G+1)
+            mov edx,offset @@Dest-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+          end;
+        end;
+        if chBlue in EnableChannels then
+        begin
+          asm
+            jmp @@EndCode
+          @@StartCode:
+            mov al,byte ptr [offset offset _null]{}@@Col1:
+            mul byte ptr [offset offset _null]   {}@@Col2:
+            mov byte ptr [offset offset _null],ah{}@@Dest:
+          @@EndCode:
+            {$I DXRender.inc}
+            {  @@Col1  }
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.B+1)
-          mov edx,offset @@Col1-4
+            mov edx,offset @@Col1-4
-          sub edx,offset @@StartCode
+            sub edx,offset @@StartCode
-          mov dword ptr [ecx+edx],eax
+            mov dword ptr [ecx+edx],eax
+            {  @@Col2  }
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.B+1)
+            mov edx,offset @@Col2-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
-          {  @@Dest  }
+            {  @@Dest  }
-          mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.B+1)
-          mov edx,offset @@Dest-4
+            mov edx,offset @@Dest-4
-          sub edx,offset @@StartCode
+            sub edx,offset @@StartCode
-          mov dword ptr [ecx+edx],eax
+            mov dword ptr [ecx+edx],eax
-        end;
+          end;
-      end;
+        end;
+        if chAlpha in EnableChannels then
+        begin
+          asm
+            jmp @@EndCode
+          @@StartCode:
+            mov al,byte ptr [offset offset _null]{}@@Col1:
+            mul byte ptr [offset offset _null]   {}@@Col2:
+            mov byte ptr [offset offset _null],ah{}@@Dest:
+          @@EndCode:
+            {$I DXRender.inc}
+            {  @@Col1  }
+            mov eax,Col1; add eax,Byte(TDXRMachine_Color.A+1)
+            mov edx,offset @@Col1-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Col2  }
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
+            mov edx,offset @@Col2-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+            {  @@Dest  }
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
+            mov edx,offset @@Dest-4
+            sub edx,offset @@StartCode
+            mov dword ptr [ecx+edx],eax
+          end;
+        end;
+      end;
     end;
     procedure genBlend_ADD(var Code: Pointer; Dest, Col1, Col2: PDXRMachine_Color;
       ConstChannels1, ConstChannels12: TDXRColorChannels);
     begin
             mov al,byte ptr [offset _null]{}@@Col2:
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
             mov al,byte ptr [offset _null]{}@@Col2:
             mov byte ptr [offset _null],al{}@@Dest:
           @@EndCode:
             {$I DXRender.inc}
             {  @@Col2  }
-            mov eax,Col2; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Col2; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Col2-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
             {  @@Dest  }
-            mov eax,Dest; add eax,BYTE(TDXRMachine_Color.A+1)
+            mov eax,Dest; add eax,Byte(TDXRMachine_Color.A+1)
             mov edx,offset @@Dest-4
             sub edx,offset @@StartCode
             mov dword ptr [ecx+edx],eax
           end;
         end;
       DXR_BLEND_ZERO                      : genBlend_ZERO(Code, Dest);
       DXR_BLEND_ONE1                      : genBlend_ONE1(Code, Dest, Col1, ConstChannels1);
       DXR_BLEND_ONE2                      : genBlend_ONE1(Code, Dest, Col2, ConstChannels2);
       DXR_BLEND_ONE1_ADD_ONE2             : genBlend_ONE1_ADD_ONE2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_ONE1_SUB_ONE2             : genBlend_ONE1_SUB_ONE2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
-      DXR_BLEND_ONE2_SUB_ONE1             : genBlend_ONE1_SUB_ONE2(Code, Dest, Col2, Col1, ConstChannels2, ConstChannels1);
+      DXR_BLEND_ONE2_SUB_ONE1             : genBlend_ONE2_SUB_ONE1(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_ONE1_MUL_ONE2             : genBlend_ONE1_MUL_ONE2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_SRCALPHA1                 : genBlend_SRCALPHA1(Code, Dest, Col1, ConstChannels1);
       DXR_BLEND_SRCALPHA1_ADD_ONE2        : genBlend_SRCALPHA1_ADD_ONE2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_ONE2_SUB_SRCALPHA1        : genBlend_ONE2_SUB_SRCALPHA1(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_SRCALPHA1_ADD_INVSRCALPHA2: genBlend_SRCALPHA1_ADD_INVSRCALPHA2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_INVSRCALPHA1_ADD_SRCALPHA2: genBlend_INVSRCALPHA1_ADD_SRCALPHA2(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
+      DXR_BLEND_DECAL                     : genBlend_ONE1(Code, Dest, Col1, ConstChannels1);
       DXR_BLEND_DECALALPHA                : genBlend_DECALALPHA(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
-      DXR_BLEND_MODULATE                  : genBlend_MODULATE_RGBONLY(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
+      DXR_BLEND_MODULATE                  : genBlend_MODULATE(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
+      DXR_BLEND_MODULATEALPHA             : genBlend_MODULATEALPHA(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
       DXR_BLEND_ADD                       : genBlend_ADD(Code, Dest, Col1, Col2, ConstChannels1, ConstChannels2);
     end;
   end;
 var
           end;
       DXR_TREETYPE_LOADTEXTURE:
           begin
             genReadTexture(Code, Result, TextureList[Tree.Texture], Tree.Channels);
           end;
+      DXR_TREETYPE_LOADBUMPTEXTURE:
+          begin
+            genReadBumpTexture(Code, Result, TextureList[Tree.Texture], TextureList[Tree.BumpTexture], Tree.Channels);
+          end;
       DXR_TREETYPE_LOADDESTPIXEL:
           begin
             genReadDestPixel(Code);
             genDecodeColor(Code, Dest^, Result, Tree.Channels, _BlackColor);
           end;
 var
   ExitAddress, MainCode: Pointer;
   Col: PDXRMachine_Color;
 begin
   if (Tree.Typ=DXR_TREETYPE_LOADCOLOR) and (not ColorList[Tree.Color].Gouraud) and
-    (not Dither.Enable) and (Dest.BitCount in [16, 32]) then
+    (not ZBuffer.Enable) and (not Dither.Enable) and (Dest.BitCount in [16, 32]) then
   begin
     FCall := Code;
     genInitDestAddress(Code);
     genEncodeColor(Code, Dest^, @ColorList[Tree.Color].nColor, Tree.Channels);
   SkipAddress := Code;
   genUpdateAxis(Code);
   genUpdateColor(Code);
   genUpdateTextureAxis(Code);
+  genUpdateRHW(Code);
   genUpdateDestAddress(Code);
+  genUpdateZBufferAddress(Code);
   asm
     jmp @@EndCode
   @@StartCode:
     dec ecx
   genCmpFunc(Code, DXR_CMPFUNC_LESSEQUAL, ExitAddress);
   {  -----------  Main  -----------  }
   MainCode := Code;
+  genZBufferTest(Code);
   if Tree.Typ=DXR_TREETYPE_LOADCOLOR then
   begin
     genEncodeColor2(Code, Dest^, @ColorList[Tree.Color].nColor, Tree.Channels);
     genWriteDestPixel(Code);
   end else
   if (Tree.Typ=DXR_TREETYPE_LOADTEXTURE) and (not Dither.Enable) and
-    (TextureList[Tree.Texture].Filter in [DXR_TEXTUREFILTER_NEAREST]) and
+    (TextureList[Tree.Texture].Filter in [DXR_TEXTUREFILTER_NEAREST, DXR_TEXTUREFILTER_MIPMAP_NEAREST]) and
     (dxrCompareSurface(Dest^, TextureList[Tree.Texture].Surface^)) then
   begin
     genReadSurfacePixel(Code, TextureList[Tree.Texture], @TextureList[Tree.Texture].nAxis);
     genColorKey(Code, TextureList[Tree.Texture]);
     genWriteDestPixel(Code);
   {  -----------  Initialize  -----------  }
   FCall := Code;
   genInitDestAddress(Code);
+  genInitZBuffer(Code);
   genCmpFunc(Code, DXR_CMPFUNC_ALWAYS, MainCode);
 end;
 procedure TDXRMachine.Run(Count: Integer);
     CullMode := DXR_CULL_CCW;
     Shade := DXR_SHADEMODE_GOURAUD;
     TexBlend := DXR_BLEND_MODULATE;
     Blend := DXR_BLEND_ONE1;
     TextureFilter := DXR_TEXTUREFILTER_NEAREST;
+    ZBuffer := nil;
+    ZFunc := DXR_CMPFUNC_LESSEQUAL;
+    ZWriteEnable := True;
-    EnableDrawLine := $FFFFFFFF;
+    EnableDrawLine := 0;
   end;
   for i:=0 to DXR_MAXTEXTURE-1 do
     with States.TextureList[i] do
     begin
       Blend := DXR_BLEND_ONE1;
       Surface := nil;
       ColorKeyEnable := False;
       ColorKey := 0;
       TextureAddress := DXR_TEXTUREADDRESS_TILE;
+      BumpTexture := -1;
     end;
 end;
 {  Draw primitive  }
 procedure dxrDrawTriangle(const Dest: TDXR_Surface; const States: TDXR_RenderStates; const Tri: TDXR_Triangle);
   function InitGenerator_MakeTree_LoadTexture(Texture: Integer): PDXRMachine_Tree;
   begin
+    if States.TextureList[Texture].BumpTexture>=0 then
+      Result := DXRMachine.CreateTree_LoadBumpTexture(Texture, States.TextureList[Texture].BumpTexture)
+    else
-    Result := DXRMachine.CreateTree_LoadTexture(Texture);
+      Result := DXRMachine.CreateTree_LoadTexture(Texture);
   end;
   function InitGenerator_MakeTree: PDXRMachine_Tree;
   var
     end;
   var
     i: Integer;
     Layer: PDXR_TextureLayer;
+    Mipmap1, Mipmap2, Mipmap3: Integer;
+    TmpSurface2: PDXR_Surface;
   begin
     DXRMachine.Initialize;
     {  Parameter setting  }
     DXRMachine.Dest := @Dest;
+    DXRMachine.ZBuffer.Enable := States.ZBuffer<>nil;
+    DXRMachine.ZBuffer.Surface := States.ZBuffer;
+    DXRMachine.ZBuffer.CmpFunc := States.ZFunc;
+    DXRMachine.ZBuffer.WriteEnable := States.ZWriteEnable;
     DXRMachine.Dither.Enable := States.DitherEnable;
     DXRMachine.ColorList[0].Gouraud := States.Shade=DXR_SHADEMODE_GOURAUD;
     DXRMachine.ColorList[1].Gouraud := States.Shade=DXR_SHADEMODE_GOURAUD;
             ColorKeyEnable := Layer.ColorKeyEnable;
             ColorKey := Layer.ColorKey;
             Surface := Layer.Surface;
             Filter := States.TextureFilter;
             TextureAddress := Layer.TextureAddress;
+            if (Filter in [DXR_TEXTUREFILTER_MIPMAP_NEAREST, DXR_TEXTUREFILTER_MIPMAP_LINEAR]) and
+              (Surface.MipmapChain<>nil) then
+            begin
+              {  Mipmap  }
+              Mipmap1 := MaxInt;
+              Mipmap3 := Trunc(Abs(Hypot(Tri[2].sx-Tri[1].sx, Tri[2].sy-Tri[1].sy))*
+                Abs(Hypot(Tri[1].sx-Tri[0].sx, Tri[1].sy-Tri[0].sy))*
+                Abs(Hypot(Tri[2].sx-Tri[0].sx, Tri[2].sy-Tri[0].sy))/9);
+              TmpSurface2 := Surface;
+              while TmpSurface2<>nil do
+              begin
+                Mipmap2 := TmpSurface2.Width2*TmpSurface2.Height2;
+                if (Abs(Mipmap3-Mipmap2)<Abs(Mipmap3-Mipmap1)) then
+                begin
+                  Surface := TmpSurface2;
+                  Mipmap1 := Mipmap2;
+                end;
+                TmpSurface2 := TmpSurface2.MipmapChain;
+              end;
+            end;
           end;
         end;
       end;
     {  Tree making  }
   function FloatToTextureFloatY(i: Integer; d: Double): DWORD;
   begin
     Result := Comp2DWORD(d*TexYFloat[i]);
   end;
+  function FloatToRHWFloat(d: Extended): Comp;
+  begin
+    Result := d*Int32Value;
+  end;
   procedure drawline(x1, x2, y: Integer;
     const x_ntex1, x_ntex2: T2DAxis64Array;
-    const x_nc1, x_nc2: TCol64Array);
+    const x_nc1, x_nc2: TCol64Array;
+    const x_nRHW1, x_nRHW2: Comp);
   var
     i, xcount, xcount2, ofs: Integer;
   begin
     xcount := x2-x1;
     xcount2 := xcount;
             nColor.A := nColor.A + iColor.A*ofs;
           end;
         end;
       end;
+    with DXRMachine.RHW do
+    begin
+      if Enable then
+      begin
+        nRHW := x_nRHW1;
+        iRHW := (x_nRHW2-x_nRHW1) / xcount;
+        if ofs<>0 then
+          nRHW := nRHW + iRHW*ofs;
+      end;
+    end;
     DXRMachine.Run(xcount2);
   end;
   procedure draw(p1, pt1, p2, pt2: PDXR_Vertex; starty, ycount, y1, y2, ofs1, ofs2: Integer);
   var
     i, j, y: Integer;
     c1, c2, c2_1, c2_2: TDXR_Color;
     y_nx1, y_nx2, y_ix1, y_ix2: Comp;
     y_ntex1, y_ntex2, y_itex1, y_itex2: T2DAxis64Array;
     y_nc1, y_nc2, y_ic1, y_ic2: TCol64Array;
+    y_nRHW1, y_nRHW2, y_iRHW1, y_iRHW2: Comp;
   begin
     if ycount<=0 then Exit;
     if y1=0 then Exit;
     if y2=0 then Exit;
           y_nc2[i].B := y_nc2[i].B + y_ic2[i].B*ofs2;
           y_nc2[i].A := y_nc2[i].A + y_ic2[i].A*ofs2;
         end;
       end;
+    if DXRMachine.RHW.Enable then
+    begin
+      y_nRHW1 := FloatToRHWFloat(p1.rhw);
+      y_nRHW2 := FloatToRHWFloat(p2.rhw);
+      y_iRHW1 := FloatToRHWFloat((pt1.rhw-p1.rhw)/y1);
+      y_iRHW2 := FloatToRHWFloat((pt2.rhw-p2.rhw)/y2);
+      if ofs1<>0 then
+      begin
+        y_nRHW1 := y_nRHW1 + y_iRHW1*ofs1;
+      end;
+      if ofs2<>0 then
+      begin
+        y_nRHW2 := y_nRHW2 + y_iRHW2*ofs2;
+      end;
+    end else
+    begin
+      y_nRHW1 := 0;
+      y_nRHW2 := 0;
+      y_iRHW1 := 0;
+      y_iRHW2 := 0;
+    end;
     for y:=starty to starty+ycount-1 do
     begin
-      if States.EnableDrawLine and (1 shl (y and 31))<>0 then
+      if (States.EnableDrawLine=0) or ((States.EnableDrawLine-1)=y mod 2) then
         if PInteger(Integer(@y_nx1)+4)^<PInteger(Integer(@y_nx2)+4)^ then
         begin
           drawline(
             PInteger(Integer(@y_nx1)+4)^, PInteger(Integer(@y_nx2)+4)^, y,
             y_ntex1, y_ntex2,
-            y_nc1, y_nc2
+            y_nc1, y_nc2,
+            y_nRHW1, y_nRHW2
           );
         end else if PInteger(Integer(@y_nx1)+4)^>PInteger(Integer(@y_nx2)+4)^ then
         begin
           drawline(
             PInteger(Integer(@y_nx2)+4)^, PInteger(Integer(@y_nx1)+4)^, y,
             y_ntex2, y_ntex1,
-            y_nc2, y_nc1
+            y_nc2, y_nc1,
+            y_nRHW2, y_nRHW1
           );
         end;
       y_nx1 := y_nx1 + y_ix1;
       y_nx2 := y_nx2 + y_ix2;
             y_nc2[i].G := y_nc2[i].G + y_ic2[i].G;
             y_nc2[i].B := y_nc2[i].B + y_ic2[i].B;
             y_nc2[i].A := y_nc2[i].A + y_ic2[i].A;
           end;
         end;
+      if DXRMachine.RHW.Enable then
+      begin
+        y_nRHW1 := y_nRHW1 + y_iRHW1;
+        y_nRHW2 := y_nRHW2 + y_iRHW2;
+      end;
     end;
   end;
 var
   p: array[0..2] of PDXR_Vertex;
   if (p[2].sy<=0) or (p[0].sy>=Dest.Height) then Exit;
   if (p[0].sx<0) and (p[1].sx<0) and (p[2].sx<0) then Exit;
   if (p[0].sx>=Dest.Width) and (p[1].sx>=Dest.Width) and (p[2].sx>=Dest.Width) then Exit;
   {  Generate code  }
+  if States.TextureFilter in [DXR_TEXTUREFILTER_MIPMAP_NEAREST, DXR_TEXTUREFILTER_MIPMAP_LINEAR] then
+    DXRMachine.Compiled := False;
   if not DXRMachine.Compiled then
     InitGenerator;
   y1 := Trunc(p[1].sy)-Trunc(p[0].sy);
   y2 := Trunc(p[2].sy)-Trunc(p[1].sy);
   mov eax, a
   imul b
   idiv c
 end;
-function Max(B1, B2: Integer): Integer;
+function Max(B1, B2: Integer): Integer; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   if B1>=B2 then Result := B1 else Result := B2;
 end;
-function Min(B1, B2: Integer): Integer;
+function Min(B1, B2: Integer): Integer; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   if B1<=B2 then Result := B1 else Result := B2;
 end;
 function BltClipX(const Dest, Src: TDXR_Surface;
-  var StartX, EndX, StartSrcX: Integer): Boolean;
+  var StartX, EndX, StartSrcX: Integer): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   if StartX<0 then
   begin
     StartSrcX := StartSrcX-StartX;
     StartX := 0;
   Result := (EndX>0) and (EndX-StartX>0);
 end;
 function BltClipY(const Dest, Src: TDXR_Surface;
-  var StartY, EndY, StartSrcY: Integer): Boolean;
+  var StartY, EndY, StartSrcY: Integer): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   if StartY<0 then
   begin
     StartSrcY := StartSrcY-StartY;
     StartY := 0;
   Result := (EndY>0) and (EndY-StartY>0);
 end;
 function BltClip(const Dest, Src: TDXR_Surface;
-  var StartX, StartY, EndX, EndY, StartSrcX, StartSrcY: Integer): Boolean;
+  var StartX, StartY, EndX, EndY, StartSrcX, StartSrcY: Integer): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   Result := BltClipX(Dest, Src, StartX, EndX, StartSrcX) and
     BltClipY(Dest, Src, StartY, EndY, StartSrcY);
 end;
 function FillClip(const Dest: TDXR_Surface;
-  var StartX, StartY, EndX, EndY: Integer): Boolean;
+  var StartX, StartY, EndX, EndY: Integer): Boolean; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   StartX := Max(StartX, 0);
   StartY := Max(StartY, 0);
   EndX := Min(EndX, Dest.Width);
   EndY := Min(EndY, Dest.Height);
 end;
 var
   CosinTable: array[0..255] of Double;
-procedure InitCosinTable;
+procedure InitCosinTable; {$IFDEF VER9UP}inline;{$ENDIF}
 var
   i: Integer;
 begin
   for i:=Low(CosinTable) to High(CosinTable) do
     CosinTable[i] := Cos((i/256)*2*PI);
 end;
-function Cos256(i: Integer): Double;
+function Cos256(i: Integer): Double; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   Result := CosinTable[i and 255];
 end;
-function Sin256(i: Integer): Double;
+function Sin256(i: Integer): Double; {$IFDEF VER9UP}inline;{$ENDIF}
 begin
   Result := CosinTable[(i+192) and 255];
 end;
 function RotationClip(const Dest, Src: TDXR_Surface;
     sx := sx - yIncX;
     sy := sy + yIncY;
   end;
 end;
+//var TextureSurface, DestSurface: TDXR_Surface; RenderStates: TDXR_RenderStates;
+//
+//dxrDefRenderStates(RenderStates);
+//if dxrDDSurfaceLock(Surf.ISurface, DestSurface then begin
+//  dxrDDSurfaceLock(TextureSurface as IDirectDrawSurface, TextureSurface);
+//  RenderStates.TextureList<0>.Surface:=@TextureSurface;
+//  dxrDrawPrimitive(DestSurface, RenderStates, DXR_PRIMITIVETYPE_TRIANGLELIST, @VertexList, 36);
+//  dxrDDSurfaceUnlock(SurfaceTexture as IDirectDrawSurface, TextureSurface);
+//  dxrDDSurfaceUnlock(Surf.ISurface, DestSurface);
+//end;
 initialization
   ReadCPUID;
   Init;
   InitCosinTable;
+  dxrSetOption(DXR_OPTION_MMXENABLE, 1);
 finalization
   FDXRMachine.Free;
 end.

Subversion Repositories spacemission

spacemission/VCL_DELPHIX_D6/DXRender.pas – Rev 1 → 4