opengl
/
OpenGLCore
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
111 Commits
1 Branch
1.8 MiB
 
Tree: 02d239b231
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '02d239b231'
${ noResults }
OpenGLCore/ugluVectorEx.pas

410 lines
11 KiB
Raw Blame History 

  1. unit ugluVectorEx;

  2. 

  3. {$mode objfpc}{$H+}

  4. {$macro on}

  5. {$modeswitch typehelpers}

  6. 

  7. interface

  8. 

  9. uses

  10.   Classes, SysUtils,

  11.   ugluVectorExHelper;

  12. 

  13. type

  14.   TgluVector2p = TgluVectorP.TVector2;

  15.   TgluVector3p = TgluVectorP.TVector3;

  16.   TgluVector4p = TgluVectorP.TVector4;

  17. 

  18.   TgluVector2e = TgluVectorE.TVector2;

  19.   TgluVector3e = TgluVectorE.TVector3;

  20.   TgluVector4e = TgluVectorE.TVector4;

  21. 

  22.   TgluVector2i = TgluVectorI.TVector2;

  23.   TgluVector3i = TgluVectorI.TVector3;

  24.   TgluVector4i = TgluVectorI.TVector4;

  25. 

  26.   TgluVector2us = TgluVectorUS.TVector2;

  27.   TgluVector3us = TgluVectorUS.TVector3;

  28.   TgluVector4us = TgluVectorUS.TVector4;

  29. 

  30.   TgluVector2ub = TgluVectorUB.TVector2;

  31.   TgluVector3ub = TgluVectorUB.TVector3;

  32.   TgluVector4ub = TgluVectorUB.TVector4;

  33. 

  34.   TgluVector2f = TgluVectorF.TVector2;

  35.   TgluVector3f = TgluVectorF.TVector3;

  36.   TgluVector4f = TgluVectorF.TVector4;

  37. 

  38.   TgluVector2d = TgluVectorD.TVector2;

  39.   TgluVector3d = TgluVectorD.TVector3;

  40.   TgluVector4d = TgluVectorD.TVector4;

  41. 

  42. {$DEFINE __VECTOR_HELPER_INTERFACE}

  43.   { TgluVector2p }

  44.   {$DEFINE __IMPL     := TgluVectorP}

  45.   {$DEFINE __SIZE     := 2}

  46.   {$DEFINE __VEC      := TgluVector2p}

  47.   {$DEFINE __HELPER   := TgluTypeHelperVector2p}

  48.   {$I ugluVectorEx.inc}

  49. 

  50.   { TgluVector3p }

  51.   {$DEFINE __IMPL     := TgluVectorP}

  52.   {$DEFINE __SIZE     := 3}

  53.   {$DEFINE __VEC      := TgluVector3p}

  54.   {$DEFINE __HELPER   := TgluTypeHelperVector3p}

  55.   {$I ugluVectorEx.inc}

  56. 

  57.   { TgluVector4p }

  58.   {$DEFINE __IMPL     := TgluVectorP}

  59.   {$DEFINE __SIZE     := 4}

  60.   {$DEFINE __VEC      := TgluVector4p}

  61.   {$DEFINE __HELPER   := TgluTypeHelperVector4p}

  62.   {$I ugluVectorEx.inc}

  63. 

  64. 

  65. 

  66.   { TgluVector2e }

  67.   {$DEFINE __IMPL     := TgluVectorE}

  68.   {$DEFINE __SIZE     := 2}

  69.   {$DEFINE __VEC      := TgluVector2e}

  70.   {$DEFINE __HELPER   := TgluTypeHelperVector2e}

  71.   {$I ugluVectorEx.inc}

  72. 

  73.   { TgluVector3e }

  74.   {$DEFINE __IMPL     := TgluVectorE}

  75.   {$DEFINE __SIZE     := 3}

  76.   {$DEFINE __VEC      := TgluVector3e}

  77.   {$DEFINE __HELPER   := TgluTypeHelperVector3e}

  78.   {$I ugluVectorEx.inc}

  79. 

  80.   { TgluVector4e }

  81.   {$DEFINE __IMPL     := TgluVectorE}

  82.   {$DEFINE __SIZE     := 4}

  83.   {$DEFINE __VEC      := TgluVector4e}

  84.   {$DEFINE __HELPER   := TgluTypeHelperVector4e}

  85.   {$I ugluVectorEx.inc}

  86. 

  87. 

  88. 

  89.   { TgluVector2i }

  90.   {$DEFINE __IMPL     := TgluVectorI}

  91.   {$DEFINE __SIZE     := 2}

  92.   {$DEFINE __VEC      := TgluVector2i}

  93.   {$DEFINE __HELPER   := TgluTypeHelperVector2i}

  94.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ii}

  95.   {$I ugluVectorEx.inc}

  96. 

  97.   { TgluVector3i }

  98.   {$DEFINE __IMPL     := TgluVectorI}

  99.   {$DEFINE __SIZE     := 3}

  100.   {$DEFINE __VEC      := TgluVector3i}

  101.   {$DEFINE __HELPER   := TgluTypeHelperVector3i}

  102.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ii}

  103.   {$I ugluVectorEx.inc}

  104. 

  105.   { TgluVector4i }

  106.   {$DEFINE __IMPL     := TgluVectorI}

  107.   {$DEFINE __SIZE     := 4}

  108.   {$DEFINE __VEC      := TgluVector4i}

  109.   {$DEFINE __HELPER   := TgluTypeHelperVector4i}

  110.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ii}

  111.   {$I ugluVectorEx.inc}

  112. 

  113. 

  114. 

  115.   { TgluVector2us }

  116.   {$DEFINE __IMPL     := TgluVectorUS}

  117.   {$DEFINE __SIZE     := 2}

  118.   {$DEFINE __VEC      := TgluVector2us}

  119.   {$DEFINE __HELPER   := TgluTypeHelperVector2us}

  120.   {$DEFINE __HELPER_I := TgluTypeHelperVector2usi}

  121.   {$I ugluVectorEx.inc}

  122. 

  123.   { TgluVector3us }

  124.   {$DEFINE __IMPL     := TgluVectorUS}

  125.   {$DEFINE __SIZE     := 3}

  126.   {$DEFINE __VEC      := TgluVector3us}

  127.   {$DEFINE __HELPER   := TgluTypeHelperVector3us}

  128.   {$DEFINE __HELPER_I := TgluTypeHelperVector3usi}

  129.   {$I ugluVectorEx.inc}

  130. 

  131.   { TgluVector4us }

  132.   {$DEFINE __IMPL     := TgluVectorUS}

  133.   {$DEFINE __SIZE     := 4}

  134.   {$DEFINE __VEC      := TgluVector4us}

  135.   {$DEFINE __HELPER   := TgluTypeHelperVector4us}

  136.   {$DEFINE __HELPER_I := TgluTypeHelperVector4usi}

  137.   {$I ugluVectorEx.inc}

  138. 

  139. 

  140. 

  141.   { TgluVector2ub }

  142.   {$DEFINE __IMPL     := TgluVectorUB}

  143.   {$DEFINE __SIZE     := 2}

  144.   {$DEFINE __VEC      := TgluVector2ub}

  145.   {$DEFINE __HELPER   := TgluTypeHelperVector2ub}

  146.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ubi}

  147.   {$I ugluVectorEx.inc}

  148. 

  149.   { TgluVector3ub }

  150.   {$DEFINE __IMPL     := TgluVectorUB}

  151.   {$DEFINE __SIZE     := 3}

  152.   {$DEFINE __VEC      := TgluVector3ub}

  153.   {$DEFINE __HELPER   := TgluTypeHelperVector3ub}

  154.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ubi}

  155.   {$I ugluVectorEx.inc}

  156. 

  157.   { TgluVector4ub }

  158.   {$DEFINE __IMPL     := TgluVectorUB}

  159.   {$DEFINE __SIZE     := 4}

  160.   {$DEFINE __VEC      := TgluVector4ub}

  161.   {$DEFINE __HELPER   := TgluTypeHelperVector4ub}

  162.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ubi}

  163.   {$I ugluVectorEx.inc}

  164. 

  165. 

  166. 

  167.   { TgluVector2f }

  168.   {$DEFINE __IMPL     := TgluVectorF}

  169.   {$DEFINE __SIZE     := 2}

  170.   {$DEFINE __VEC      := TgluVector2f}

  171.   {$DEFINE __HELPER   := TgluTypeHelperVector2f}

  172.   {$DEFINE __HELPER_I := TgluTypeHelperVector2fi}

  173.   {$DEFINE __HELPER_F := TgluTypeHelperVector2ff}

  174.   {$I ugluVectorEx.inc}

  175. 

  176.   { TgluVector3f }

  177.   {$DEFINE __IMPL     := TgluVectorF}

  178.   {$DEFINE __SIZE     := 3}

  179.   {$DEFINE __VEC      := TgluVector3f}

  180.   {$DEFINE __HELPER   := TgluTypeHelperVector3f}

  181.   {$DEFINE __HELPER_I := TgluTypeHelperVector3fi}

  182.   {$DEFINE __HELPER_F := TgluTypeHelperVector3ff}

  183.   {$I ugluVectorEx.inc}

  184. 

  185.   { TgluVector4f }

  186.   {$DEFINE __IMPL     := TgluVectorF}

  187.   {$DEFINE __SIZE     := 4}

  188.   {$DEFINE __VEC      := TgluVector4f}

  189.   {$DEFINE __HELPER   := TgluTypeHelperVector4f}

  190.   {$DEFINE __HELPER_I := TgluTypeHelperVector4fi}

  191.   {$DEFINE __HELPER_F := TgluTypeHelperVector4ff}

  192.   {$I ugluVectorEx.inc}

  193. 

  194. 

  195. 

  196.   { TgluVector2d }

  197.   {$DEFINE __IMPL     := TgluVectorD}

  198.   {$DEFINE __SIZE     := 2}

  199.   {$DEFINE __VEC      := TgluVector2d}

  200.   {$DEFINE __HELPER   := TgluTypeHelperVector2d}

  201.   {$DEFINE __HELPER_I := TgluTypeHelperVector2di}

  202.   {$DEFINE __HELPER_F := TgluTypeHelperVector2df}

  203.   {$I ugluVectorEx.inc}

  204. 

  205.   { TgluVector3d }

  206.   {$DEFINE __IMPL     := TgluVectorD}

  207.   {$DEFINE __SIZE     := 3}

  208.   {$DEFINE __VEC      := TgluVector3d}

  209.   {$DEFINE __HELPER   := TgluTypeHelperVector3d}

  210.   {$DEFINE __HELPER_I := TgluTypeHelperVector3di}

  211.   {$DEFINE __HELPER_F := TgluTypeHelperVector3df}

  212.   {$I ugluVectorEx.inc}

  213. 

  214.   { TgluVector4d }

  215.   {$DEFINE __IMPL     := TgluVectorD}

  216.   {$DEFINE __SIZE     := 4}

  217.   {$DEFINE __VEC      := TgluVector4d}

  218.   {$DEFINE __HELPER   := TgluTypeHelperVector4d}

  219.   {$DEFINE __HELPER_I := TgluTypeHelperVector4di}

  220.   {$DEFINE __HELPER_F := TgluTypeHelperVector4df}

  221.   {$I ugluVectorEx.inc}

  222. {$UNDEF __VECTOR_HELPER_INTERFACE}

  223. 

  224. implementation

  225. 

  226. {$DEFINE __VECTOR_HELPER_IMPL}

  227.   { TgluVector2p }

  228.   {$DEFINE __IMPL     := TgluVectorP}

  229.   {$DEFINE __SIZE     := 2}

  230.   {$DEFINE __VEC      := TgluVector2p}

  231.   {$DEFINE __HELPER   := TgluTypeHelperVector2p}

  232.   {$I ugluVectorEx.inc}

  233. 

  234.   { TgluVector3p }

  235.   {$DEFINE __IMPL     := TgluVectorP}

  236.   {$DEFINE __SIZE     := 3}

  237.   {$DEFINE __VEC      := TgluVector3p}

  238.   {$DEFINE __HELPER   := TgluTypeHelperVector3p}

  239.   {$I ugluVectorEx.inc}

  240. 

  241.   { TgluVector4p }

  242.   {$DEFINE __IMPL     := TgluVectorP}

  243.   {$DEFINE __SIZE     := 4}

  244.   {$DEFINE __VEC      := TgluVector4p}

  245.   {$DEFINE __HELPER   := TgluTypeHelperVector4p}

  246.   {$I ugluVectorEx.inc}

  247. 

  248. 

  249. 

  250.   { TgluVector2e }

  251.   {$DEFINE __IMPL     := TgluVectorE}

  252.   {$DEFINE __SIZE     := 2}

  253.   {$DEFINE __VEC      := TgluVector2e}

  254.   {$DEFINE __HELPER   := TgluTypeHelperVector2e}

  255.   {$I ugluVectorEx.inc}

  256. 

  257.   { TgluVector3e }

  258.   {$DEFINE __IMPL     := TgluVectorE}

  259.   {$DEFINE __SIZE     := 3}

  260.   {$DEFINE __VEC      := TgluVector3e}

  261.   {$DEFINE __HELPER   := TgluTypeHelperVector3e}

  262.   {$I ugluVectorEx.inc}

  263. 

  264.   { TgluVector4e }

  265.   {$DEFINE __IMPL     := TgluVectorE}

  266.   {$DEFINE __SIZE     := 4}

  267.   {$DEFINE __VEC      := TgluVector4e}

  268.   {$DEFINE __HELPER   := TgluTypeHelperVector4e}

  269.   {$I ugluVectorEx.inc}

  270. 

  271. 

  272. 

  273.   { TgluVector2i }

  274.   {$DEFINE __IMPL     := TgluVectorI}

  275.   {$DEFINE __SIZE     := 2}

  276.   {$DEFINE __VEC      := TgluVector2i}

  277.   {$DEFINE __HELPER   := TgluTypeHelperVector2i}

  278.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ii}

  279.   {$I ugluVectorEx.inc}

  280. 

  281.   { TgluVector3i }

  282.   {$DEFINE __IMPL     := TgluVectorI}

  283.   {$DEFINE __SIZE     := 3}

  284.   {$DEFINE __VEC      := TgluVector3i}

  285.   {$DEFINE __HELPER   := TgluTypeHelperVector3i}

  286.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ii}

  287.   {$I ugluVectorEx.inc}

  288. 

  289.   { TgluVector4i }

  290.   {$DEFINE __IMPL     := TgluVectorI}

  291.   {$DEFINE __SIZE     := 4}

  292.   {$DEFINE __VEC      := TgluVector4i}

  293.   {$DEFINE __HELPER   := TgluTypeHelperVector4i}

  294.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ii}

  295.   {$I ugluVectorEx.inc}

  296. 

  297. 

  298. 

  299.   { TgluVector2us }

  300.   {$DEFINE __IMPL     := TgluVectorUS}

  301.   {$DEFINE __SIZE     := 2}

  302.   {$DEFINE __VEC      := TgluVector2us}

  303.   {$DEFINE __HELPER   := TgluTypeHelperVector2us}

  304.   {$DEFINE __HELPER_I := TgluTypeHelperVector2usi}

  305.   {$I ugluVectorEx.inc}

  306. 

  307.   { TgluVector3us }

  308.   {$DEFINE __IMPL     := TgluVectorUS}

  309.   {$DEFINE __SIZE     := 3}

  310.   {$DEFINE __VEC      := TgluVector3us}

  311.   {$DEFINE __HELPER   := TgluTypeHelperVector3us}

  312.   {$DEFINE __HELPER_I := TgluTypeHelperVector3usi}

  313.   {$I ugluVectorEx.inc}

  314. 

  315.   { TgluVector4us }

  316.   {$DEFINE __IMPL     := TgluVectorUS}

  317.   {$DEFINE __SIZE     := 4}

  318.   {$DEFINE __VEC      := TgluVector4us}

  319.   {$DEFINE __HELPER   := TgluTypeHelperVector4us}

  320.   {$DEFINE __HELPER_I := TgluTypeHelperVector4usi}

  321.   {$I ugluVectorEx.inc}

  322. 

  323. 

  324. 

  325.   { TgluVector2ub }

  326.   {$DEFINE __IMPL     := TgluVectorUB}

  327.   {$DEFINE __SIZE     := 2}

  328.   {$DEFINE __VEC      := TgluVector2ub}

  329.   {$DEFINE __HELPER   := TgluTypeHelperVector2ub}

  330.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ubi}

  331.   {$I ugluVectorEx.inc}

  332. 

  333.   { TgluVector3ub }

  334.   {$DEFINE __IMPL     := TgluVectorUB}

  335.   {$DEFINE __SIZE     := 3}

  336.   {$DEFINE __VEC      := TgluVector3ub}

  337.   {$DEFINE __HELPER   := TgluTypeHelperVector3ub}

  338.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ubi}

  339.   {$I ugluVectorEx.inc}

  340. 

  341.   { TgluVector4ub }

  342.   {$DEFINE __IMPL     := TgluVectorUB}

  343.   {$DEFINE __SIZE     := 4}

  344.   {$DEFINE __VEC      := TgluVector4ub}

  345.   {$DEFINE __HELPER   := TgluTypeHelperVector4ub}

  346.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ubi}

  347.   {$I ugluVectorEx.inc}

  348. 

  349. 

  350. 

  351.   { TgluVector2f }

  352.   {$DEFINE __IMPL     := TgluVectorF}

  353.   {$DEFINE __SIZE     := 2}

  354.   {$DEFINE __VEC      := TgluVector2f}

  355.   {$DEFINE __HELPER   := TgluTypeHelperVector2f}

  356.   {$DEFINE __HELPER_I := TgluTypeHelperVector2fi}

  357.   {$DEFINE __HELPER_F := TgluTypeHelperVector2ff}

  358.   {$I ugluVectorEx.inc}

  359. 

  360.   { TgluVector3f }

  361.   {$DEFINE __IMPL     := TgluVectorF}

  362.   {$DEFINE __SIZE     := 3}

  363.   {$DEFINE __VEC      := TgluVector3f}

  364.   {$DEFINE __HELPER   := TgluTypeHelperVector3f}

  365.   {$DEFINE __HELPER_I := TgluTypeHelperVector3fi}

  366.   {$DEFINE __HELPER_F := TgluTypeHelperVector3ff}

  367.   {$I ugluVectorEx.inc}

  368. 

  369.   { TgluVector4ub }

  370.   {$DEFINE __IMPL     := TgluVectorF}

  371.   {$DEFINE __SIZE     := 4}

  372.   {$DEFINE __VEC      := TgluVector4f}

  373.   {$DEFINE __HELPER   := TgluTypeHelperVector4f}

  374.   {$DEFINE __HELPER_I := TgluTypeHelperVector4fi}

  375.   {$DEFINE __HELPER_F := TgluTypeHelperVector4ff}

  376.   {$I ugluVectorEx.inc}

  377. 

  378. 

  379. 

  380.   { TgluVector2d }

  381.   {$DEFINE __IMPL     := TgluVectorD}

  382.   {$DEFINE __SIZE     := 2}

  383.   {$DEFINE __VEC      := TgluVector2d}

  384.   {$DEFINE __HELPER   := TgluTypeHelperVector2d}

  385.   {$DEFINE __HELPER_I := TgluTypeHelperVector2di}

  386.   {$DEFINE __HELPER_F := TgluTypeHelperVector2df}

  387.   {$I ugluVectorEx.inc}

  388. 

  389.   { TgluVector3d }

  390.   {$DEFINE __IMPL     := TgluVectorD}

  391.   {$DEFINE __SIZE     := 3}

  392.   {$DEFINE __VEC      := TgluVector3d}

  393.   {$DEFINE __HELPER   := TgluTypeHelperVector3d}

  394.   {$DEFINE __HELPER_I := TgluTypeHelperVector3di}

  395.   {$DEFINE __HELPER_F := TgluTypeHelperVector3df}

  396.   {$I ugluVectorEx.inc}

  397. 

  398.   { TgluVector4d }

  399.   {$DEFINE __IMPL     := TgluVectorD}

  400.   {$DEFINE __SIZE     := 4}

  401.   {$DEFINE __VEC      := TgluVector4d}

  402.   {$DEFINE __HELPER   := TgluTypeHelperVector4d}

  403.   {$DEFINE __HELPER_I := TgluTypeHelperVector4di}

  404.   {$DEFINE __HELPER_F := TgluTypeHelperVector4df}

  405.   {$I ugluVectorEx.inc}

  406. {$UNDEF __VECTOR_HELPER_IMPL}

  407. 

  408. end.