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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 2D图形编程 > 查看源码
AsphyreScene.pas
资源名称：asphyre410.rar　[点击查看]
上传用户：ctlcnc
上传日期：2021-12-10
资源大小：4933k
文件大小：5k
源码类别：

2D图形编程

开发平台：

Delphi

AsphyreScene.pas：源码内容
  1. unit AsphyreScene;
  2. //---------------------------------------------------------------------------
  3. // AsphyreScene.pas                                     Modified: 09-Apr-2007
  4. // High-level structure for making 3D scenes in Asphyre           Version 1.0
  5. //---------------------------------------------------------------------------
  6. // Important Notice:
  7. //
  8. // If you modify/use this code or one of its parts either in original or
  9. // modified form, you must comply with Mozilla Public License v1.1,
  10. // specifically section 3, "Distribution Obligations". Failure to do so will
  11. // result in the license breach, which will be resolved in the court.
  12. // Remember that violating author's rights is considered a serious crime in
  13. // many countries. Thank you!
  14. //
  15. // !! Please *read* Mozilla Public License 1.1 document located at:
  16. //  http://www.mozilla.org/MPL/
  17. //
  18. // If you require any clarifications about the license, feel free to contact
  19. // us or post your question on our forums at: http://www.afterwarp.net
  20. //---------------------------------------------------------------------------
  21. // The contents of this file are subject to the Mozilla Public License
  22. // Version 1.1 (the "License"); you may not use this file except in
  23. // compliance with the License. You may obtain a copy of the License at
  24. // http://www.mozilla.org/MPL/
  25. //
  26. // Software distributed under the License is distributed on an "AS IS"
  27. // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
  28. // License for the specific language governing rights and limitations
  29. // under the License.
  30. //
  31. // The Original Code is AsphyreScene.pas.
  32. //
  33. // The Initial Developer of the Original Code is M. Sc. Yuriy Kotsarenko.
  34. // Portions created by M. Sc. Yuriy Kotsarenko are Copyright (C) 2007,
  35. // M. Sc. Yuriy Kotsarenko. All Rights Reserved.
  36. //---------------------------------------------------------------------------
  37. interface
  39. //--------------------------------------------------------------------------
  40. uses
  41.  d3dx9, Vectors3, Matrices4, AsphyreMatrices;
  43. //--------------------------------------------------------------------------
  44. var
  45. //--------------------------------------------------------------------------
  46. // Standard Asphyre matrices
  47. //--------------------------------------------------------------------------
  48.  WorldMtx: TAsphyreMatrix = nil;
  49.  ViewMtx : TAsphyreMatrix = nil;
  50.  ProjMtx : TAsphyreMatrix = nil;
  52. //--------------------------------------------------------------------------
  53. // Combined matrices and positions to be used with shaders
  54. //--------------------------------------------------------------------------
  55.  ShdrCameraPosition       : TVector3;
  56.  ShdrWorldView            : TMatrix4;
  57.  ShdrWorldViewProjection  : TMatrix4;
  58.  ShdrViewProjection       : TMatrix4;
  59.  ShdrWorldInverse         : TMatrix4;
  60.  ShdrWorldInverseTranspose: TMatrix4;
  62. //--------------------------------------------------------------------------
  63. procedure UpdateShdrCombined();
  65. //--------------------------------------------------------------------------
  66. implementation
  68. //--------------------------------------------------------------------------
  69. type
  70.  PLMatrix4 = ^TLMatrix4;
  71.  TLMatrix4 = array[0..15] of Single;
  73. //--------------------------------------------------------------------------
  74. procedure UpdateShdrCombined();
  75. var
  76.  View: PLMatrix4;
  77. begin
  78.  // -> World-View
  79.  D3DXMatrixMultiply(TD3DXMatrix(ShdrWorldView),
  80.   PD3DXMatrix(WorldMtx.RawMtx)^, PD3DXMatrix(ViewMtx.RawMtx)^);
  82.  // -> View-Projection
  83.  D3DXMatrixMultiply(TD3DXMatrix(ShdrViewProjection),
  84.   PD3DXMatrix(ViewMtx.RawMtx)^, PD3DXMatrix(ProjMtx.RawMtx)^);
  86.  // -> World-View-Projection
  87.  D3DXMatrixMultiply(TD3DXMatrix(ShdrWorldViewProjection),
  88.   PD3DXMatrix(WorldMtx.RawMtx)^, TD3DXMatrix(ShdrViewProjection));
  90.  // -> World-Inverse-Transpose
  91.  D3DXMatrixInverse(TD3DXMatrix(ShdrWorldInverse), nil,
  92.   PD3DXMatrix(WorldMtx.RawMtx)^);
  93.  D3DXMatrixTranspose(TD3DXMatrix(ShdrWorldInverseTranspose),
  94.   TD3DXMatrix(ShdrWorldInverse));
  96.  // -> View-Inverse
  97. { D3DXMatrixInverse(TD3DXMatrix(ShdrViewInverse), nil,
  98.   PD3DXMatrix(ViewMtx.RawMtx)^);
  100.  // -> Camera Position
  101.  ShdrCameraPosition.x:= ShdrViewInverse.Data[3, 0];
  102.  ShdrCameraPosition.y:= ShdrViewInverse.Data[3, 1];
  103.  ShdrCameraPosition.z:= ShdrViewInverse.Data[3, 2];}
  105.  View:= PLMatrix4(ViewMtx.RawMtx);
  106.  ShdrCameraPosition.x:= -View[0] * View[12] - View[1] * View[13] -
  107.   View[2] * View[14];
  108.  ShdrCameraPosition.y:= -View[4] * View[12] - View[5] * View[13] -
  109.   View[6] * View[14];
  110.  ShdrCameraPosition.z:= -View[8] * View[12] - View[9] * View[13] -
  111.   View[10] * View[14];
  112. // ShdrCameraPosition:= ViewMtx.Position;
  113. end;
  115. //--------------------------------------------------------------------------
  116. initialization
  117.  WorldMtx:= TAsphyreMatrix.Create();
  118.  ViewMtx := TAsphyreMatrix.Create();
  119.  ProjMtx := TAsphyreMatrix.Create();
  121. //--------------------------------------------------------------------------
  122. finalization
  123.  ProjMtx.Free();
  124.  ViewMtx.Free();
  125.  WorldMtx.Free();
  127. //--------------------------------------------------------------------------
  128. end.