开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MMD3DTyp.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：42k
源码类别：

Delphi控件源码

开发平台：

Delphi

MMD3DTyp.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 20.01.1998 - 18:00:00 $                                      =}
  24. {========================================================================}
  25. {=  Aufgabe: Direct3D types Unit                                        =}
  26. {========================================================================}
  27. {=  This code is for reference purposes only and may not be copied or   =}
  28. {=  distributed in any format electronic or otherwise except one copy   =}
  29. {=  for backup purposes.                                                =}
  30. {=                                                                      =}
  31. {=  No Delphi Component Kit or Component individually or in a collection=}
  32. {=  subclassed or otherwise from the code in this unit, or associated   =}
  33. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  34. {=  without express permission from SwiftSoft.                          =}
  35. {=                                                                      =}
  36. {=  For more licence informations please refer to the associated        =}
  37. {=  HelpFile.                                                           =}
  38. {========================================================================}
  39. unit MMD3DTyp;
  41. {$I COMPILER.INC}
  43. interface
  45. uses
  46.     Windows,
  47.     MMDDraw;
  49. type
  50.     FLOAT       = Single;
  51.     LONG        = LongInt;
  52.     PVOID       = Pointer;
  53.     D3DENUM     = DWORD;
  55. {-- D3DVALUE is the fundamental Direct3D fractional data type ----------------}
  57. type
  58.     PD3DVALUE   = ^D3DVALUE;
  59.     D3DVALUE    = FLOAT;
  61. function    D3DVALP(val: Extended; prec: Integer): D3DVALUE;
  62. function    D3DVAL(val: Extended): D3DVALUE;
  64. function    D3DDivide(a, b: D3DVALUE): D3DVALUE;
  65. function    D3DMultiply(a, b: D3DVALUE): D3DVALUE;
  67. type
  68.     D3DFIXED    = LONG;
  69.     PD3DCOLOR   = ^D3DCOLOR;
  70.     D3DCOLOR    = DWORD;
  72. //
  73. // Format of CI colors is
  74. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  75. //  |    alpha      |         color index           |   fraction    |
  76. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  77. //
  79. function    CI_GETALPHA(ci: D3DCOLOR): Byte;
  80. function    CI_GETINDEX(ci: D3DCOLOR): Word;
  81. function    CI_GETFRACTION(ci: D3DCOLOR): Byte;
  82. function    CI_ROUNDINDEX(ci: D3DCOLOR): Word;
  83. function    CI_MASKALPHA(ci: D3DCOLOR): DWord;
  84. function    CI_MAKE(a: Byte; i: Word; f: Byte): D3DCOLOR;
  86. //
  87. // Format of RGBA colors is
  88. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  89. //  |    alpha      |      red      |     green     |     blue      |
  90. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  91. //
  93. function    RGBA_GETALPHA(rgb: D3DCOLOR): Byte;
  94. function    RGBA_GETRED(rgb: D3DCOLOR): Byte;
  95. function    RGBA_GETGREEN(rgb: D3DCOLOR): Byte;
  96. function    RGBA_GETBLUE(rgb: D3DCOLOR): Byte;
  97. function    RGBA_MAKE(r, g, b, a: Byte): D3DCOLOR;
  99. //
  100. // D3DRGB and D3DRGBA may be used as initialisers for D3DCOLORs
  101. // The float values must be in the range 0..1
  102. //
  104. function    D3DRGB(r, g, b: D3DVALUE): D3DCOLOR;
  105. function    D3DRGBA(r, g, b, a: D3DVALUE): D3DCOLOR;
  107. //
  108. // Format of RGB colors is
  109. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  110. //  |    ignored    |      red      |     green     |     blue      |
  111. //  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  112. //
  114. function    RGB_GETRED(rgb: D3DCOLOR): Byte;
  115. function    RGB_GETGREEN(rgb: D3DCOLOR): Byte;
  116. function    RGB_GETBLUE(rgb: D3DCOLOR): Byte;
  117. function    RGBA_SETALPHA(rgba: D3DCOLOR; x: Byte): D3DCOLOR;
  118. function    RGB_MAKE(r, g, b: Byte): D3DCOLOR;
  119. function    RGBA_TORGB(rgba: D3DCOLOR): D3DCOLOR;
  120. function    RGB_TORGBA(rgb: D3DCOLOR): D3DCOLOR;
  122. {== Flags for Enumerate functions ============================================}
  124. const
  126. {-- Stop the enumeration -----------------------------------------------------}
  128.     D3DENUMRET_CANCEL               = DDENUMRET_CANCEL;
  130. {-- Continue the enumeration -------------------------------------------------}
  132.     D3DENUMRET_OK                   = DDENUMRET_OK;
  134. type
  135.     TD3DVALIDATECALLBACK            = function(lpUserArg: PVOID; dwOffset: DWORD): HRESULT; stdcall;
  136.     TD3DENUMTEXTUREFORMATSCALLBACK  = function(lpDdsd: PDDSURFACEDESC; lpContext: PVOID): HRESULT; stdcall;
  138.     PD3DMATERIALHANDLE              = ^D3DMATERIALHANDLE;
  139.     D3DMATERIALHANDLE               = DWORD;
  141.     PD3DTEXTUREHANDLE               = ^D3DTEXTUREHANDLE;
  142.     D3DTEXTUREHANDLE                = DWORD;
  144.     PD3DMATRIXHANDLE                = ^D3DMATRIXHANDLE;
  145.     D3DMATRIXHANDLE                 = DWORD;
  147.     TD3DCOLORVALUE                  = record
  148.         case Byte of
  149.             0: (r, g, b, a          : D3DVALUE);
  150.             1: (dvR, dvG, dvB, dvA  : D3DVALUE);
  151.     end;
  153.     PD3DRECT                        = ^TD3DRECT;
  154.     TD3DRECT                        = record
  155.         case Byte of
  156.             0: (x1, y1, x2, y2: LONG);
  157.             1: (lX1, lY1, lX2, lY2: LONG);
  158.     end;
  160.     PD3DVECTOR                      = ^TD3DVECTOR;
  161.     TD3DVECTOR                      = record
  162.         case Byte of
  163.             0: (x, y, z: D3DVALUE);
  164.             1: (dvX, dvY, dvZ: D3DVALUE);
  165.     end;
  167. {== Vertext data types supported in an ExecuteBuffer =========================}
  169. {-- Homogenous vertices ------------------------------------------------------}
  171. type
  172.     PD3DHVERTEX                     = ^TD3DHVERTEX;
  173.     TD3DHVERTEX                     = record
  174.         dwFlags                     : DWORD;    // Homogeneous clipping flags
  175.         case Byte of
  176.             0: (hx, hy, hz: D3DVALUE);
  177.             1: (dvHX, dvHY, dvHZ: D3DVALUE);
  178.     end;
  180. {-- Transformed/lit vertices -------------------------------------------------}
  182.     PD3DTLVERTEX                    = ^TD3DTLVERTEX;
  183.     TD3DTLVERTEX                    = record
  184.         case Byte of
  185.             0: (
  186.                 sx          : D3DVALUE;     // Screen coordinates
  187.                 sy          : D3DVALUE;
  188.                 sz          : D3DVALUE;
  189.                 rhw         : D3DVALUE;     // Reciprocal of homogeneous w
  190.                 color       : D3DCOLOR;     // Vertex color
  191.                 specular    : D3DCOLOR;     // Specular component of vertex
  192.                 tu          : D3DVALUE;     // Texture coordinates
  193.                 tv          : D3DVALUE
  194.             );
  195.             1: (
  196.                 dvSX        : D3DVALUE;
  197.                 dvSY        : D3DVALUE;
  198.                 dvSZ        : D3DVALUE;
  199.                 dvRHW       : D3DVALUE;
  200.                 dcColor     : D3DCOLOR;
  201.                 dcSpecular  : D3DCOLOR;
  202.                 dvTU        : D3DVALUE;
  203.                 dvTV        : D3DVALUE
  204.             );
  205.     end;
  207. {-- Untransformed/lit vertices -----------------------------------------------}
  209.     PD3DLVERTEX                     = ^TD3DLVERTEX;
  210.     TD3DLVERTEX                     = record
  211.         case Byte of
  212.             0: (
  213.                 x           : D3DVALUE;     // Screen coordinates
  214.                 y           : D3DVALUE;
  215.                 z           : D3DVALUE;
  216.                 dwReserved  : DWORD;
  217.                 color       : D3DCOLOR;     // Vertex color
  218.                 specular    : D3DCOLOR;     // Specular component of vertex
  219.                 tu          : D3DVALUE;     // Texture coordinates
  220.                 tv          : D3DVALUE
  221.             );
  222.             1: (
  223.                 dvX         : D3DVALUE;
  224.                 dvY         : D3DVALUE;
  225.                 dvZ         : D3DVALUE;
  226.                 _dwReserved : DWORD;
  227.                 dcColor     : D3DCOLOR;
  228.                 dcSpecular  : D3DCOLOR;
  229.                 dvTU        : D3DVALUE;
  230.                 dvTV        : D3DVALUE
  231.             );
  232.     end;
  234. {-- Untransformed/unlit vertices ---------------------------------------------}
  236.     PD3DVERTEX                      = ^TD3DVERTEX;
  237.     TD3DVERTEX                      = record
  238.         case Byte of
  239.             0: (
  240.                 x           : D3DVALUE;     // Screen coordinates
  241.                 y           : D3DVALUE;
  242.                 z           : D3DVALUE;
  243.                 nx          : D3DVALUE;     // Normal
  244.                 ny          : D3DVALUE;
  245.                 nz          : D3DVALUE;
  246.                 tu          : D3DVALUE;     // Texture coordinates
  247.                 tv          : D3DVALUE
  248.             );
  249.             1: (
  250.                 dvX         : D3DVALUE;
  251.                 dvY         : D3DVALUE;
  252.                 dvZ         : D3DVALUE;
  253.                 dvNX        : D3DVALUE;
  254.                 dvNY        : D3DVALUE;
  255.                 dvNZ        : D3DVALUE;
  256.                 dvTU        : D3DVALUE;
  257.                 dvTV        : D3DVALUE
  258.             );
  259.     end;
  261. {-- Matrix, viewport, and transformation structures and definitions ----------}
  263.     PD3DMATRIX                      = ^TD3DMATRIX;
  264.     TD3DMATRIX                      = record
  265.         _11, _12, _13, _14          : D3DVALUE;
  266.         _21, _22, _23, _24          : D3DVALUE;
  267.         _31, _32, _33, _34          : D3DVALUE;
  268.         _41, _42, _43, _44          : D3DVALUE;
  269.     end;
  271.     PD3DVIEWPORT                    = ^TD3DVIEWPORT;
  272.     TD3DVIEWPORT                    = record
  273.         dwSize                      : DWORD;
  274.         dwX                         : DWORD;
  275.         dwY                         : DWORD;        // Top left
  276.         dwWidth                     : DWORD;
  277.         dwHeight                    : DWORD;        // Dimensions
  278.         dvScaleX                    : D3DVALUE;     // Scale homogeneous to screen
  279.         dvScaleY                    : D3DVALUE;     // Scale homogeneous to screen
  280.         dvMaxX                      : D3DVALUE;     // Min/max homogeneous x coord
  281.         dvMaxY                      : D3DVALUE;     // Min/max homogeneous y coord
  282.         dvMinZ                      : D3DVALUE;
  283.         dvMaxZ                      : D3DVALUE;     // Min/max homogeneous z coord
  284.     end;
  286. {-- Values for clip fields ---------------------------------------------------}
  288. const
  289.     D3DCLIP_LEFT                    = $00000001 ;
  290.     D3DCLIP_RIGHT                   = $00000002 ;
  291.     D3DCLIP_TOP                     = $00000004 ;
  292.     D3DCLIP_BOTTOM                  = $00000008 ;
  293.     D3DCLIP_FRONT                   = $00000010 ;
  294.     D3DCLIP_BACK                    = $00000020 ;
  295.     D3DCLIP_GEN0                    = $00000040 ;
  296.     D3DCLIP_GEN1                    = $00000080 ;
  297.     D3DCLIP_GEN2                    = $00000100 ;
  298.     D3DCLIP_GEN3                    = $00000200 ;
  299.     D3DCLIP_GEN4                    = $00000400 ;
  300.     D3DCLIP_GEN5                    = $00000800 ;
  302. {-- Values for D3D status ----------------------------------------------------}
  304.     D3DSTATUS_CLIPUNIONLEFT         = D3DCLIP_LEFT;
  305.     D3DSTATUS_CLIPUNIONRIGHT        = D3DCLIP_RIGHT;
  306.     D3DSTATUS_CLIPUNIONTOP          = D3DCLIP_TOP;
  307.     D3DSTATUS_CLIPUNIONBOTTOM       = D3DCLIP_BOTTOM;
  308.     D3DSTATUS_CLIPUNIONFRONT        = D3DCLIP_FRONT;
  309.     D3DSTATUS_CLIPUNIONBACK         = D3DCLIP_BACK;
  310.     D3DSTATUS_CLIPUNIONGEN0         = D3DCLIP_GEN0;
  311.     D3DSTATUS_CLIPUNIONGEN1         = D3DCLIP_GEN1;
  312.     D3DSTATUS_CLIPUNIONGEN2         = D3DCLIP_GEN2;
  313.     D3DSTATUS_CLIPUNIONGEN3         = D3DCLIP_GEN3;
  314.     D3DSTATUS_CLIPUNIONGEN4         = D3DCLIP_GEN4;
  315.     D3DSTATUS_CLIPUNIONGEN5         = D3DCLIP_GEN5;
  317.     D3DSTATUS_CLIPINTERSECTIONLEFT  = $00001000;
  318.     D3DSTATUS_CLIPINTERSECTIONRIGHT = $00002000;
  319.     D3DSTATUS_CLIPINTERSECTIONTOP   = $00004000;
  320.     D3DSTATUS_CLIPINTERSECTIONBOTTOM= $00008000;
  321.     D3DSTATUS_CLIPINTERSECTIONFRONT = $00010000;
  322.     D3DSTATUS_CLIPINTERSECTIONBACK  = $00020000;
  323.     D3DSTATUS_CLIPINTERSECTIONGEN0  = $00040000;
  324.     D3DSTATUS_CLIPINTERSECTIONGEN1  = $00080000;
  325.     D3DSTATUS_CLIPINTERSECTIONGEN2  = $00100000;
  326.     D3DSTATUS_CLIPINTERSECTIONGEN3  = $00200000;
  327.     D3DSTATUS_CLIPINTERSECTIONGEN4  = $00400000;
  328.     D3DSTATUS_CLIPINTERSECTIONGEN5  = $00800000;
  329.     D3DSTATUS_ZNOTVISIBLE           = $01000000;
  331.     D3DSTATUS_CLIPUNIONALL          =
  332.                                       D3DSTATUS_CLIPUNIONLEFT   or
  333.                                       D3DSTATUS_CLIPUNIONRIGHT  or
  334.                                       D3DSTATUS_CLIPUNIONTOP    or
  335.                                       D3DSTATUS_CLIPUNIONBOTTOM or
  336.                                       D3DSTATUS_CLIPUNIONFRONT  or
  337.                                       D3DSTATUS_CLIPUNIONBACK   or
  338.                                       D3DSTATUS_CLIPUNIONGEN0   or
  339.                                       D3DSTATUS_CLIPUNIONGEN1   or
  340.                                       D3DSTATUS_CLIPUNIONGEN2   or
  341.                                       D3DSTATUS_CLIPUNIONGEN3   or
  342.                                       D3DSTATUS_CLIPUNIONGEN4   or
  343.                                       D3DSTATUS_CLIPUNIONGEN5
  344.                                     ;
  346.     D3DSTATUS_CLIPINTERSECTIONALL   =
  347.                                       D3DSTATUS_CLIPINTERSECTIONLEFT   or
  348.                                       D3DSTATUS_CLIPINTERSECTIONRIGHT  or
  349.                                       D3DSTATUS_CLIPINTERSECTIONTOP    or
  350.                                       D3DSTATUS_CLIPINTERSECTIONBOTTOM or
  351.                                       D3DSTATUS_CLIPINTERSECTIONFRONT  or
  352.                                       D3DSTATUS_CLIPINTERSECTIONBACK   or
  353.                                       D3DSTATUS_CLIPINTERSECTIONGEN0   or
  354.                                       D3DSTATUS_CLIPINTERSECTIONGEN1   or
  355.                                       D3DSTATUS_CLIPINTERSECTIONGEN2   or
  356.                                       D3DSTATUS_CLIPINTERSECTIONGEN3   or
  357.                                       D3DSTATUS_CLIPINTERSECTIONGEN4   or
  358.                                       D3DSTATUS_CLIPINTERSECTIONGEN5
  359.                                     ;
  361.     D3DSTATUS_DEFAULT               =
  362.                                       D3DSTATUS_CLIPINTERSECTIONALL    or
  363.                                       D3DSTATUS_ZNOTVISIBLE
  364.                                     ;
  366. {-- Options for direct transform calls ---------------------------------------}
  368.     D3DTRANSFORM_CLIPPED            = $00000001;
  369.     D3DTRANSFORM_UNCLIPPED          = $00000002;
  371. type
  372.     PD3DTRANSFORMDATA               = ^TD3DTRANSFORMDATA;
  373.     TD3DTRANSFORMDATA               = record
  374.         dwSize                      : DWORD;
  375.         lpIn                        : PVOID;            // Input vertices
  376.         dwInSize                    : DWORD;            // Stride of input vertices 
  377.         lpOut                       : PVOID;            // Output vertices
  378.         dwOutSize                   : DWORD;            // Stride of output vertices 
  379.         lpHOut                      : PD3DHVERTEX;      // Output homogeneous vertices 
  380.         dwClip                      : DWORD;            // Clipping hint 
  381.         dwClipIntersection          : DWORD;
  382.         dwClipUnion                 : DWORD;            // Union of all clip flags
  383.         drExtent                    : TD3DRECT;         // Extent of transformed vertices
  384.     end;
  386. {-- Structure defining position and direction properties for lightning -------}
  388.     PD3DLIGHTINGELEMENT             = ^TD3DLIGHTINGELEMENT;
  389.     TD3DLIGHTINGELEMENT             = record
  390.         dvPosition                  : TD3DVECTOR;       // Lightable point in model space
  391.         dvNormal                    : TD3DVECTOR;       // Normalised unit vector
  392.     end;
  394. {-- Structure defining material properties for lightning ---------------------}
  396.     PD3DMATERIAL                    = ^TD3DMATERIAL;
  397.     TD3DMATERIAL                    = record
  398.         dwSize                      : DWORD;
  399.         case Byte of
  400.             0: (diffuse             : TD3DCOLORVALUE;   // Diffuse color RGBA
  401.                 ambient             : TD3DCOLORVALUE;   // Ambient color RGB
  402.                 specular            : TD3DCOLORVALUE;   // Specular 'shininess'
  403.                 emissive            : TD3DCOLORVALUE;   // Emissive color RGB
  404.                 power               : D3DVALUE;         // Sharpness if specular highlight
  405.                );
  406.             1: (dcvDiffuse          : TD3DCOLORVALUE;
  407.                 dcvAmbient          : TD3DCOLORVALUE;
  408.                 dcvSpecular         : TD3DCOLORVALUE;
  409.                 dcvEmissive         : TD3DCOLORVALUE;
  410.                 dvPower             : D3DVALUE;
  412.                 hTexture            : D3DTEXTUREHANDLE; // Handle to texture map
  413.                 dwRampSize          : DWORD;
  414.             );
  415.     end;
  417. type
  418.     D3DLIGHTTYPE                    = D3DENUM;
  420. const
  421.     D3DLIGHT_POINT                  = 1;
  422.     D3DLIGHT_SPOT                   = 2;
  423.     D3DLIGHT_DIRECTIONAL            = 3;
  424.     D3DLIGHT_PARALLELPOINT          = 4;
  425.     D3DLIGHT_GLSPOT                 = 5;
  427. {-- Structure defining a light source and its properties ---------------------}
  429. type
  430.     PD3DLIGHT                       = ^TD3DLIGHT;
  431.     TD3DLIGHT                       = record
  432.         dwSize                      : DWORD;
  433.         dltType                     : D3DLIGHTTYPE;     // Type of light source 
  434.         dcvColor                    : TD3DCOLORVALUE;   // Color of light
  435.         dvPosition                  : TD3DVECTOR;       // Position in world space
  436.         dvDirection                 : TD3DVECTOR;       // Direction in world space
  437.         dvRange                     : D3DVALUE;         // Cutoff range 
  438.         dvFalloff                   : D3DVALUE;         // Falloff 
  439.         dvAttenuation0              : D3DVALUE;         // Constant attenuation 
  440.         dvAttenuation1              : D3DVALUE;         // Linear attenuation 
  441.         dvAttenuation2              : D3DVALUE;         // Quadratic attenuation 
  442.         dvTheta                     : D3DVALUE;         // Inner angle of spotlight cone 
  443.         dvPhi                       : D3DVALUE;         // Outer angle of spotlight cone
  444.     end;
  446.     PD3DLIGHTDATA                   = ^TD3DLIGHTDATA;
  447.     TD3DLIGHTDATA                   = record
  448.         dwSize                      : DWORD;
  449.         lpIn                        : PD3DLIGHTINGELEMENT;  // Input positions and normals
  450.         dwInSize                    : DWORD;                // Stride of input elements
  451.         lpOut                       : PD3DTLVERTEX;         // Output colors
  452.         dwOutSize                   : DWORD;                // Stride of output colors
  453.     end;
  455.     D3DCOLORMODEL                   = D3DENUM;
  457. const
  458.     D3DCOLOR_MONO                   = 1;
  459.     D3DCOLOR_RGB                    = 2;
  461. {-- Options for clearing -----------------------------------------------------}
  463.     D3DCLEAR_TARGET                 = $00000001;            // Clear target surface 
  464.     D3DCLEAR_ZBUFFER                = $00000002;            // Clear target z buffer
  466. //
  467. // Execute buffers are allocated via Direct3D.  These buffers may then
  468. // be filled by the application with instructions to execute along with
  469. // vertex data.
  470. //
  472. //
  473. // Supported op codes for execute instructions.
  474. //
  475. type
  476.     D3DOPCODE                       = D3DENUM;
  478. const
  479.     D3DOP_POINT                     = 1;
  480.     D3DOP_LINE                      = 2;
  481.     D3DOP_TRIANGLE                  = 3;
  482.     D3DOP_MATRIXLOAD                = 4;
  483.     D3DOP_MATRIXMULTIPLY            = 5;
  484.     D3DOP_STATETRANSFORM            = 6;
  485.     D3DOP_STATELIGHT                = 7;
  486.     D3DOP_STATERENDER               = 8;
  487.     D3DOP_PROCESSVERTICES           = 9;
  488.     D3DOP_TEXTURELOAD               = 10;
  489.     D3DOP_EXIT                      = 11;
  490.     D3DOP_BRANCHFORWARD             = 12;
  491.     D3DOP_SPAN                      = 13;
  492.     D3DOP_SETSTATUS                 = 14;
  494. type
  495.     PD3DINSTRUCTION                 = ^TD3DINSTRUCTION;
  496.     TD3DINSTRUCTION                 = record
  497.         bOpcode                     : BYTE;     // Instruction opcode
  498.         bSize                       : BYTE;     // Size of each instruction data unit
  499.         wCount                      : WORD;     // Count of instruction data units to follow
  500.     end;
  502. {-- Structure for texture loads ----------------------------------------------}
  504.     PD3DTEXTURELOAD                 = ^TD3DTEXTURELOAD;
  505.     TD3DTEXTURELOAD                 = record
  506.         hDestTexture                : D3DTEXTUREHANDLE;
  507.         hSrcTexture                 : D3DTEXTUREHANDLE;
  508.     end;
  510. {-- Structure for picking ----------------------------------------------------}
  512.     PD3DPICKRECORD                  = ^TD3DPICKRECORD;
  513.     TD3DPICKRECORD                  = record
  514.         bOpcode                     : BYTE;
  515.         bPad                        : BYTE;
  516.         dwOffset                    : DWORD;
  517.         dvZ                         : D3DVALUE;
  518.     end;
  520. {-- Following defines the rendering states which can be set in execute buf ---}
  522. type
  523.     D3DSHADEMODE                    = D3DENUM;
  525. const
  526.     D3DSHADE_FLAT                   = 1;
  527.     D3DSHADE_GOURAUD                = 2;
  528.     D3DSHADE_PHONG                  = 3;
  530. type
  531.     D3DFILLMODE                     = D3DENUM;
  533. const
  534.     D3DFILL_POINT                   = 1;
  535.     D3DFILL_WIREFRAME               = 2;
  536.     D3DFILL_SOLID                   = 3;
  538. type
  539.     PD3DLINEPATTERN                 = ^TD3DLINEPATTERN;
  540.     TD3DLINEPATTERN                 = record
  541.         wRepeatFactor               : WORD;
  542.         wLinePattern                : WORD;
  543.     end;
  545.     D3DTEXTUREFILTER                = D3DENUM;
  547. const
  548.     D3DFILTER_NEAREST               = 1;
  549.     D3DFILTER_LINEAR                = 2;
  550.     D3DFILTER_MIPNEAREST            = 3;
  551.     D3DFILTER_MIPLINEAR             = 4;
  552.     D3DFILTER_LINEARMIPNEAREST      = 5;
  553.     D3DFILTER_LINEARMIPLINEAR       = 6;
  555. type
  556.     D3DBLEND                        = D3DENUM;
  558. const
  559.     D3DBLEND_ZERO                   = 1;
  560.     D3DBLEND_ONE                    = 2;
  561.     D3DBLEND_SRCCOLOR               = 3;
  562.     D3DBLEND_INVSRCCOLOR            = 4;
  563.     D3DBLEND_SRCALPHA               = 5;
  564.     D3DBLEND_INVSRCALPHA            = 6;
  565.     D3DBLEND_DESTALPHA              = 7;
  566.     D3DBLEND_INVDESTALPHA           = 8;
  567.     D3DBLEND_DESTCOLOR              = 9;
  568.     D3DBLEND_INVDESTCOLOR           = 10;
  569.     D3DBLEND_SRCALPHASAT            = 11;
  570.     D3DBLEND_BOTHSRCALPHA           = 12;
  571.     D3DBLEND_BOTHINVSRCALPHA        = 13;
  573. type
  574.     D3DTEXTUREBLEND                 = D3DENUM;
  576. const
  577.     D3DTBLEND_DECAL                 = 1;
  578.     D3DTBLEND_MODULATE              = 2;
  579.     D3DTBLEND_DECALALPHA            = 3;
  580.     D3DTBLEND_MODULATEALPHA         = 4;
  581.     D3DTBLEND_DECALMASK             = 5;
  582.     D3DTBLEND_MODULATEMASK          = 6;
  583.     D3DTBLEND_COPY                  = 7;
  585. type
  586.     D3DTEXTUREADDRESS               = D3DENUM;
  588. const
  589.     D3DTADDRESS_WRAP                = 1;
  590.     D3DTADDRESS_MIRROR              = 2;
  591.     D3DTADDRESS_CLAMP               = 3;
  593. type
  594.     D3DCULL                         = D3DENUM;
  596. const
  597.     D3DCULL_NONE                    = 1;
  598.     D3DCULL_CW                      = 2;
  599.     D3DCULL_CCW                     = 3;
  601. type
  602.     D3DCMPFUNC                      = D3DENUM;
  604. const
  605.     D3DCMP_NEVER                    = 1;
  606.     D3DCMP_LESS                     = 2;
  607.     D3DCMP_EQUAL                    = 3;
  608.     D3DCMP_LESSEQUAL                = 4;
  609.     D3DCMP_GREATER                  = 5;
  610.     D3DCMP_NOTEQUAL                 = 6;
  611.     D3DCMP_GREATEREQUAL             = 7;
  612.     D3DCMP_ALWAYS                   = 8;
  614. type
  615.     D3DFOGMODE                      = D3DENUM;
  617. const
  618.     D3DFOG_NONE                     = 0;
  619.     D3DFOG_EXP                      = 1;
  620.     D3DFOG_EXP2                     = 2;
  621.     D3DFOG_LINEAR                   = 3;
  623. {-- Amount to add to a state to generate the override for that state ---------}
  625. const
  626.     D3DSTATE_OVERRIDE_BIAS          = 256;
  628. {-- A state which sets the override flag for the specified state type --------}
  630. function    D3DSTATE_OVERRIDE(_type: DWORD): DWORD;
  632. type
  633.     D3DTRANSFORMSTATETYPE           = D3DENUM;
  635. const
  636.     D3DTRANSFORMSTATE_WORLD         = 1;
  637.     D3DTRANSFORMSTATE_VIEW          = 2;
  638.     D3DTRANSFORMSTATE_PROJECTION    = 3;
  640. type
  641.     D3DLIGHTSTATETYPE               = D3DENUM;
  643. const
  644.     D3DLIGHTSTATE_MATERIAL          = 1;
  645.     D3DLIGHTSTATE_AMBIENT           = 2;
  646.     D3DLIGHTSTATE_COLORMODEL        = 3;
  647.     D3DLIGHTSTATE_FOGMODE           = 4;
  648.     D3DLIGHTSTATE_FOGSTART          = 5;
  649.     D3DLIGHTSTATE_FOGEND            = 6;
  650.     D3DLIGHTSTATE_FOGDENSITY        = 7;
  652. type
  653.     D3DRENDERSTATETYPE              = D3DENUM;
  655. const
  656.     D3DRENDERSTATE_TEXTUREHANDLE        = 1;    // Texture handle
  657.     D3DRENDERSTATE_ANTIALIAS            = 2;    // Antialiasing prim edges
  658.     D3DRENDERSTATE_TEXTUREADDRESS       = 3;    // D3DTEXTUREADDRESS
  659.     D3DRENDERSTATE_TEXTUREPERSPECTIVE   = 4;    // TRUE for perspective correction
  660.     D3DRENDERSTATE_WRAPU                = 5;    // TRUE for wrapping in u
  661.     D3DRENDERSTATE_WRAPV                = 6;    // TRUE for wrapping in v
  662.     D3DRENDERSTATE_ZENABLE              = 7;    // TRUE to enable z test
  663.     D3DRENDERSTATE_FILLMODE             = 8;    // D3DFILL_MODE
  664.     D3DRENDERSTATE_SHADEMODE            = 9;    // D3DSHADEMODE
  665.     D3DRENDERSTATE_LINEPATTERN          = 10;   // D3DLINEPATTERN
  666.     D3DRENDERSTATE_MONOENABLE           = 11;   // TRUE to enable mono rasterization
  667.     D3DRENDERSTATE_ROP2                 = 12;   // ROP2
  668.     D3DRENDERSTATE_PLANEMASK            = 13;   // DWORD physical plane mask
  669.     D3DRENDERSTATE_ZWRITEENABLE         = 14;   // TRUE to enable z writes
  670.     D3DRENDERSTATE_ALPHATESTENABLE      = 15;   // TRUE to enable alpha tests
  671.     D3DRENDERSTATE_LASTPIXEL            = 16;   // TRUE for last-pixel on lines
  672.     D3DRENDERSTATE_TEXTUREMAG           = 17;   // D3DTEXTUREFILTER
  673.     D3DRENDERSTATE_TEXTUREMIN           = 18;   // D3DTEXTUREFILTER
  674.     D3DRENDERSTATE_SRCBLEND             = 19;   // D3DBLEND
  675.     D3DRENDERSTATE_DESTBLEND            = 20;   // D3DBLEND
  676.     D3DRENDERSTATE_TEXTUREMAPBLEND      = 21;   // D3DTEXTUREBLEND 
  677.     D3DRENDERSTATE_CULLMODE             = 22;   // D3DCULL 
  678.     D3DRENDERSTATE_ZFUNC                = 23;   // D3DCMPFUNC 
  679.     D3DRENDERSTATE_ALPHAREF             = 24;   // D3DFIXED 
  680.     D3DRENDERSTATE_ALPHAFUNC            = 25;   // D3DCMPFUNC
  681.     D3DRENDERSTATE_DITHERENABLE         = 26;   // TRUE to enable dithering 
  682.     D3DRENDERSTATE_BLENDENABLE          = 27;   // TRUE to enable alpha blending 
  683.     D3DRENDERSTATE_FOGENABLE            = 28;   // TRUE to enable fog 
  684.     D3DRENDERSTATE_SPECULARENABLE       = 29;   // TRUE to enable specular 
  685.     D3DRENDERSTATE_ZVISIBLE             = 30;   // TRUE to enable z checking
  686.     D3DRENDERSTATE_SUBPIXEL             = 31;   // TRUE to enable subpixel correction 
  687.     D3DRENDERSTATE_SUBPIXELX            = 32;   // TRUE to enable correction in X only
  688.     D3DRENDERSTATE_STIPPLEDALPHA        = 33;   // TRUE to enable stippled alpha
  689.     D3DRENDERSTATE_FOGCOLOR             = 34;   // D3DCOLOR
  690.     D3DRENDERSTATE_FOGTABLEMODE         = 35;   // D3DFOGMODE
  691.     D3DRENDERSTATE_FOGTABLESTART        = 36;   // Fog table start        
  692.     D3DRENDERSTATE_FOGTABLEEND          = 37;   // Fog table end          
  693.     D3DRENDERSTATE_FOGTABLEDENSITY      = 38;   // Fog table density      
  694.     D3DRENDERSTATE_STIPPLEENABLE        = 39;   // TRUE to enable stippling
  695.     D3DRENDERSTATE_STIPPLEPATTERN00     = 64;   // Stipple pattern 01...
  696.     D3DRENDERSTATE_STIPPLEPATTERN01     = 65;
  697.     D3DRENDERSTATE_STIPPLEPATTERN02     = 66;
  698.     D3DRENDERSTATE_STIPPLEPATTERN03     = 67;
  699.     D3DRENDERSTATE_STIPPLEPATTERN04     = 68;
  700.     D3DRENDERSTATE_STIPPLEPATTERN05     = 69;
  701.     D3DRENDERSTATE_STIPPLEPATTERN06     = 70;
  702.     D3DRENDERSTATE_STIPPLEPATTERN07     = 71;
  703.     D3DRENDERSTATE_STIPPLEPATTERN08     = 72;
  704.     D3DRENDERSTATE_STIPPLEPATTERN09     = 73;
  705.     D3DRENDERSTATE_STIPPLEPATTERN10     = 74;
  706.     D3DRENDERSTATE_STIPPLEPATTERN11     = 75;
  707.     D3DRENDERSTATE_STIPPLEPATTERN12     = 76;
  708.     D3DRENDERSTATE_STIPPLEPATTERN13     = 77;
  709.     D3DRENDERSTATE_STIPPLEPATTERN14     = 78; 
  710.     D3DRENDERSTATE_STIPPLEPATTERN15     = 79;
  711.     D3DRENDERSTATE_STIPPLEPATTERN16     = 80; 
  712.     D3DRENDERSTATE_STIPPLEPATTERN17     = 81;
  713.     D3DRENDERSTATE_STIPPLEPATTERN18     = 82; 
  714.     D3DRENDERSTATE_STIPPLEPATTERN19     = 83; 
  715.     D3DRENDERSTATE_STIPPLEPATTERN20     = 84;
  716.     D3DRENDERSTATE_STIPPLEPATTERN21     = 85; 
  717.     D3DRENDERSTATE_STIPPLEPATTERN22     = 86; 
  718.     D3DRENDERSTATE_STIPPLEPATTERN23     = 87; 
  719.     D3DRENDERSTATE_STIPPLEPATTERN24     = 88; 
  720.     D3DRENDERSTATE_STIPPLEPATTERN25     = 89;
  721.     D3DRENDERSTATE_STIPPLEPATTERN26     = 90;
  722.     D3DRENDERSTATE_STIPPLEPATTERN27     = 91;
  723.     D3DRENDERSTATE_STIPPLEPATTERN28     = 92;
  724.     D3DRENDERSTATE_STIPPLEPATTERN29     = 93;
  725.     D3DRENDERSTATE_STIPPLEPATTERN30     = 94;
  726.     D3DRENDERSTATE_STIPPLEPATTERN31     = 95; 
  728. function    D3DRENDERSTATE_STIPPLEPATTERN(y: D3DRENDERSTATETYPE): D3DRENDERSTATETYPE; 
  730. type
  731.     TStateType                          = record
  732.         case Byte of
  733.             0: (dtstTransformStateType      : D3DTRANSFORMSTATETYPE);
  734.             1: (dlstLightStateType          : D3DLIGHTSTATETYPE);
  735.             2: (drstRenderStateType         : D3DRENDERSTATETYPE);
  736.     end;
  738.     PD3DSTATE                           = ^TD3DSTATE;
  739.     TD3DSTATE                           = record
  740.         stType                          : TStateType;
  741.         case Byte of
  742.             0: (dwArg: array[0..0] of DWORD);
  743.             1: (dvArg: array[0..0] of D3DVALUE);
  744.     end;
  746. {-- Operation used to load matrices (hDstMat = hSrcMat) ----------------------}
  748.     PD3DMATRIXLOAD                      = ^TD3DMATRIXLOAD;
  749.     TD3DMATRIXLOAD                      = record
  750.         hDestMatrix                     : D3DMATRIXHANDLE;  // Destination matrix
  751.         hSrcMatrix                      : D3DMATRIXHANDLE;  // Source matrix
  752.     end;
  754. {-- Operation used to multiply matrices (hDstMat = hSrcMat1 * hSrcMat2) ------}
  756.     PD3DMATRIXMULTIPLY                  = ^TD3DMATRIXMULTIPLY;
  757.     TD3DMATRIXMULTIPLY                  = record
  758.         hDestMatrix                     : D3DMATRIXHANDLE;  // Destination matrix
  759.         hSrcMatrix1                     : D3DMATRIXHANDLE;  // First source matrix
  760.         hSrcMatrix2                     : D3DMATRIXHANDLE;  // Second source matrix
  761.     end;
  763. {-- Operation used to transform and light vertices ---------------------------}
  765.     PD3DPROCESSVERTICES                 = ^TD3DPROCESSVERTICES;
  766.     TD3DPROCESSVERTICES                 = record
  767.         dwFlags                         : DWORD;            // Do we transform or light or just copy?
  768.         wStart                          : WORD;             // Index to first vertex in source 
  769.         wDest                           : WORD;             // Index to first vertex in local buffer 
  770.         dwCount                         : DWORD;            // Number of vertices to be processed 
  771.         dwReserved                      : DWORD;            // Must be zero 
  772.     end;
  774. const
  775.     D3DPROCESSVERTICES_TRANSFORMLIGHT   = $00000000;
  776.     D3DPROCESSVERTICES_TRANSFORM        = $00000001;
  777.     D3DPROCESSVERTICES_COPY             = $00000002;
  778.     D3DPROCESSVERTICES_OPMASK           = $00000007;
  780.     D3DPROCESSVERTICES_UPDATEEXTENTS    = $00000008;
  781.     D3DPROCESSVERTICES_NOCOLOR          = $00000010;
  783. {== Triangle flags ===========================================================}
  785. {-- Tri strip and fan flags --------------------------------------------------}
  787. //
  788. // START loads all three vertices
  789. // EVEN and ODD load just v3 with even or odd culling
  790. // START_FLAT contains a count from 0 to 29 that allows the
  791. // whole strip or fan to be culled in one hit.
  792. // e.g. for a quad len = 1
  793. //
  794. const
  795.     D3DTRIFLAG_START                        = $00000000;
  797. // 0 < len < 30
  798. function    D3DTRIFLAG_STARTFLAT(len: DWORD): DWORD;
  800. const
  801.     D3DTRIFLAG_ODD                          = $0000001e;
  802.     D3DTRIFLAG_EVEN                         = $0000001f;
  804. {-- Triangle edge flags - enable edges for wireframe or antialiasing ---------}
  806. const
  807.     D3DTRIFLAG_EDGEENABLE1                  = $00000100;    // v0-v1 edge
  808.     D3DTRIFLAG_EDGEENABLE2                  = $00000200;    // v1-v2 edge
  809.     D3DTRIFLAG_EDGEENABLE3                  = $00000400;    // v2-v0 edge
  810.     D3DTRIFLAG_EDGEENABLETRIANGLE           = D3DTRIFLAG_EDGEENABLE1 or D3DTRIFLAG_EDGEENABLE2 or D3DTRIFLAG_EDGEENABLE3;
  812. {== Primitive structures and related defines =================================}
  814. // Vertex offsets are to types D3DVERTEX, D3DLVERTEX, or D3DTLVERTEX.
  816. {-- Triangle list primitive structure ----------------------------------------}
  818. type
  819.     PD3DTRIANGLE                            = ^TD3DTRIANGLE;
  820.     TD3DTRIANGLE                            = record
  821.         case Byte of
  822.             0: (v1, v2, v3: WORD);          // Vertex indices
  823.             1: (wV1, wV2, wV3,
  824.                 wFlags: WORD);              // Edge (and other) flags
  825.     end;
  827. {-- Line strip structure - the instr count - 1 defines the num of line segs --}
  829.     PD3DLINE                                = ^TD3DLINE;
  830.     TD3DLINE                                = record
  831.         case Byte of
  832.             0: (v1, v2: WORD);              // Vertex indices
  833.             1: (wV1, wV2: WORD);
  834.     end;
  836. {-- Span structure -----------------------------------------------------------}
  838. // Spans join a list of points with the same y value.
  839. // If the y value changes, a new span is started.
  841.     PD3DSPAN                                = ^TD3DSPAN;
  842.     TD3DSPAN                                = record
  843.         wCount                              : WORD;     // Number of spans
  844.         wFirst                              : WORD;     // Index to first vertex
  845.     end;
  847. {-- Point structure ----------------------------------------------------------}
  849.     PD3DPOINT                               = ^TD3DPOINT;
  850.     TD3DPOINT                               = record
  851.         wCount                              : WORD;     // number of points
  852.         wFirst                              : WORD;     // index to first vertex
  853.     end;
  855. {-- Forward branch structure -------------------------------------------------}
  857. // Mask is logically anded with the driver status mask
  858. // if the result equals 'value', the branch is taken.
  860.     PD3DBRANCH                              = ^TD3DBRANCH;
  861.     TD3DBRANCH                              = record
  862.         dwMask                              : DWORD;    // Bitmask against D3D status
  863.         dwValue                             : DWORD;
  864.         bNegate                             : BOOL;     // TRUE to negate comparison
  865.         dwOffset                            : DWORD;    // How far to branch forward (0 for exit)
  866.     end;
  868. {-- Status used for set status instruction -----------------------------------}
  870. // The D3D status is initialised on device creation
  871. // and is modified by all execute calls.
  873.     PD3DSTATUS                              = ^TD3DSTATUS;
  874.     TD3DSTATUS                              = record
  875.         dwFlags                             : DWORD;    // Do we set extents or status
  876.         dwStatus                            : DWORD;    // D3D status
  877.         drExtent                            : TD3DRECT;
  878.     end;
  880. const
  881.     D3DSETSTATUS_STATUS                     = $00000001;
  882.     D3DSETSTATUS_EXTENTS                    = $00000002;
  883.     D3DSETSTATUS_ALL                        = (D3DSETSTATUS_STATUS or D3DSETSTATUS_EXTENTS);
  885. {-- Statistics structure -----------------------------------------------------}
  887. type
  888.     PD3DSTATS                               = ^TD3DSTATS;
  889.     TD3DSTATS                               = record
  890.         dwSize                              : DWORD;
  891.         dwTrianglesDrawn                    : DWORD;
  892.         dwLinesDrawn                        : DWORD;
  893.         dwPointsDrawn                       : DWORD;
  894.         dwSpansDrawn                        : DWORD;
  895.         dwVerticesProcessed                 : DWORD;
  896.     end;
  898. {-- Execute options ----------------------------------------------------------}
  900. // When calling using D3DEXECUTE_UNCLIPPED all the primitives
  901. // inside the buffer must be contained within the viewport.
  903. const
  904.     D3DEXECUTE_CLIPPED                      = $00000001;
  905.     D3DEXECUTE_UNCLIPPED                    = $00000002;
  907. type
  908.     PD3DEXECUTEDATA                         = ^TD3DEXECUTEDATA;
  909.     TD3DEXECUTEDATA                         = record
  910.         dwSize                              : DWORD;
  911.         dwVertexOffset                      : DWORD;
  912.         dwVertexCount                       : DWORD;
  913.         dwInstructionOffset                 : DWORD;
  914.         dwInstructionLength                 : DWORD;
  915.         dwHVertexOffset                     : DWORD;
  916.         dsStatus                            : TD3DSTATUS;   // Status after execute
  917.     end;
  919. {-- Palette flags ------------------------------------------------------------}
  921. // This are or'ed with the peFlags in the PALETTEENTRYs passed to DirectDraw.
  923. const
  924.     D3DPAL_FREE                             = $00;  // Renderer may use this entry freely
  925.     D3DPAL_READONLY                         = $40;  // Renderer may not set this entry
  926.     D3DPAL_RESERVED                         = $80;  // Renderer may not use this entry
  928. function D3DVector(vX,vY,vZ: D3DValue): TD3DVECTOR;
  930. implementation
  932. function D3DVector(vX,vY,vZ: D3DValue): TD3DVECTOR;
  933. begin
  934.    with Result do
  935.    begin
  936.       X := vX;
  937.       Y := vY;
  938.       Z := vZ;
  939.    end;
  940. end;
  942. function    D3DVALP(val: Extended; prec: Integer): D3DVALUE;
  943. begin
  944.     Result  := val;
  945. end;
  947. function    D3DVAL(val: Extended): D3DVALUE;
  948. begin
  949.     Result  := val;
  950. end;
  952. function    D3DDivide(a, b: D3DVALUE): D3DVALUE;
  953. begin
  954.     Result  := a / b;
  955. end;
  957. function    D3DMultiply(a, b: D3DVALUE): D3DVALUE;
  958. begin
  959.     Result  := a * b;
  960. end;
  962. function    CI_GETALPHA(ci: D3DCOLOR): Byte;
  963. begin
  964.     Result  := ci shr 24;
  965. end;
  967. function    CI_GETINDEX(ci: D3DCOLOR): Word;
  968. begin
  969.     Result  := (ci shr 8) and $ffff;
  970. end;
  972. function    CI_GETFRACTION(ci: D3DCOLOR): Byte;
  973. begin
  974.     Result  := ci and $ff;
  975. end;
  977. function    CI_ROUNDINDEX(ci: D3DCOLOR): Word;
  978. begin
  979.     Result  := CI_GETINDEX(ci + $80);
  980. end;
  982. function    CI_MASKALPHA(ci: D3DCOLOR): DWord;
  983. begin
  984.     Result  := ci and $ffffff;
  985. end;
  987. function    CI_MAKE(a: Byte; i: Word; f: Byte): D3DCOLOR;
  988. begin
  989.     Result  := (a shl 24) or (i shl 8) or f;
  990. end;
  992. function    RGBA_GETALPHA(rgb: D3DCOLOR): Byte;
  993. begin
  994.     Result  := rgb shr 24;
  995. end;
  997. function    RGBA_GETRED(rgb: D3DCOLOR): Byte;
  998. begin
  999.     Result  := (rgb shr 16) and $ff;
  1000. end;
  1002. function    RGBA_GETGREEN(rgb: D3DCOLOR): Byte;
  1003. begin
  1004.     Result  := (rgb shr 8) and $ff;
  1005. end;
  1007. function    RGBA_GETBLUE(rgb: D3DCOLOR): Byte;
  1008. begin
  1009.     Result  := rgb and $ff;
  1010. end;
  1012. function    RGBA_MAKE(r, g, b, a: Byte): D3DCOLOR;
  1013. begin
  1014.     Result  := (a shl 24) or (r shl 16) or (g shl 8) or b;
  1015. end;
  1017. function    D3DRGB(r, g, b: D3DVALUE): D3DCOLOR;
  1018. begin
  1019.     Result  := $ff000000 or (Trunc(r * 255) shl 16) or (Trunc(g * 255) shl 8) or Trunc(b * 255);
  1020. end;
  1022. function    D3DRGBA(r, g, b, a: D3DVALUE): D3DCOLOR;
  1023. begin
  1024.     Result  := (Trunc(a * 255) shl 24) or (Trunc(r * 255) shl 16) or (Trunc(g * 255) shl 8) or Trunc(b * 255);
  1025. end;
  1027. function    RGB_GETRED(rgb: D3DCOLOR): Byte;
  1028. begin
  1029.     Result  := (rgb shr 16) and $ff;
  1030. end;
  1032. function    RGB_GETGREEN(rgb: D3DCOLOR): Byte;
  1033. begin
  1034.     Result  := (rgb shr 8) and $ff;
  1035. end;
  1037. function    RGB_GETBLUE(rgb: D3DCOLOR): Byte;
  1038. begin
  1039.     Result  := rgb and $ff;
  1040. end;
  1042. function    RGBA_SETALPHA(rgba: D3DCOLOR; x: Byte): D3DCOLOR;
  1043. begin
  1044.     Result  := (x shl 24) or (rgba and $00ffffff);
  1045. end;
  1047. function    RGB_MAKE(r, g, b: Byte): D3DCOLOR;
  1048. begin
  1049.     Result  := (r shl 16) or (g shl 8) or b;
  1050. end;
  1052. function    RGBA_TORGB(rgba: D3DCOLOR): D3DCOLOR;
  1053. begin
  1054.     Result  := rgba and $ffffff;
  1055. end;
  1057. function    RGB_TORGBA(rgb: D3DCOLOR): D3DCOLOR;
  1058. begin
  1059.     Result  := rgb or $ff000000;
  1060. end;
  1062. {-- A state which sets the override flag for the specified state type --------}
  1064. function    D3DSTATE_OVERRIDE(_type: DWORD): DWORD;
  1065. begin
  1066.     Result  := _type + D3DSTATE_OVERRIDE_BIAS;
  1067. end;
  1069. function    D3DRENDERSTATE_STIPPLEPATTERN(y: D3DRENDERSTATETYPE): D3DRENDERSTATETYPE;
  1070. begin
  1071.     Result  := D3DRENDERSTATE_STIPPLEPATTERN00 + y;
  1072. end;
  1074. function    D3DTRIFLAG_STARTFLAT(len: DWORD): DWORD;
  1075. begin
  1076.     Result  := len;
  1077. end;
  1079. end.