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.
115 Commits
1 Branch
1.8 MiB
 
Tree: 964accb41a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '964accb41a'
${ noResults }
OpenGLCore/ugluVectorEx.pas

448 lines
12 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, Graphics,

  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. 

  43. 

  44.   PgluVector2p = ^TgluVector2p;

  45.   PgluVector3p = ^TgluVector3p;

  46.   PgluVector4p = ^TgluVector4p;

  47. 

  48.   PgluVector2e = ^TgluVector2e;

  49.   PgluVector3e = ^TgluVector3e;

  50.   PgluVector4e = ^TgluVector4e;

  51. 

  52.   PgluVector2i = ^TgluVector2i;

  53.   PgluVector3i = ^TgluVector3i;

  54.   PgluVector4i = ^TgluVector4i;

  55. 

  56.   PgluVector2us = ^TgluVector2us;

  57.   PgluVector3us = ^TgluVector3us;

  58.   PgluVector4us = ^TgluVector4us;

  59. 

  60.   PgluVector2ub = ^TgluVector2ub;

  61.   PgluVector3ub = ^TgluVector3ub;

  62.   PgluVector4ub = ^TgluVector4ub;

  63. 

  64.   PgluVector2f = ^TgluVector2f;

  65.   PgluVector3f = ^TgluVector3f;

  66.   PgluVector4f = ^TgluVector4f;

  67. 

  68.   PgluVector2d = ^TgluVector2d;

  69.   PgluVector3d = ^TgluVector3d;

  70.   PgluVector4d = ^TgluVector4d;

  71. 

  72. 

  73. 

  74. {$DEFINE __VECTOR_HELPER_INTERFACE}

  75.   { TgluVector2p }

  76.   {$DEFINE __IMPL     := TgluVectorP}

  77.   {$DEFINE __SIZE     := 2}

  78.   {$DEFINE __VEC      := TgluVector2p}

  79.   {$DEFINE __HELPER   := TgluTypeHelperVector2p}

  80.   {$I ugluVectorEx.inc}

  81. 

  82.   { TgluVector3p }

  83.   {$DEFINE __IMPL     := TgluVectorP}

  84.   {$DEFINE __SIZE     := 3}

  85.   {$DEFINE __VEC      := TgluVector3p}

  86.   {$DEFINE __HELPER   := TgluTypeHelperVector3p}

  87.   {$I ugluVectorEx.inc}

  88. 

  89.   { TgluVector4p }

  90.   {$DEFINE __IMPL     := TgluVectorP}

  91.   {$DEFINE __SIZE     := 4}

  92.   {$DEFINE __VEC      := TgluVector4p}

  93.   {$DEFINE __HELPER   := TgluTypeHelperVector4p}

  94.   {$I ugluVectorEx.inc}

  95. 

  96. 

  97. 

  98.   { TgluVector2e }

  99.   {$DEFINE __IMPL     := TgluVectorE}

  100.   {$DEFINE __SIZE     := 2}

  101.   {$DEFINE __VEC      := TgluVector2e}

  102.   {$DEFINE __HELPER   := TgluTypeHelperVector2e}

  103.   {$I ugluVectorEx.inc}

  104. 

  105.   { TgluVector3e }

  106.   {$DEFINE __IMPL     := TgluVectorE}

  107.   {$DEFINE __SIZE     := 3}

  108.   {$DEFINE __VEC      := TgluVector3e}

  109.   {$DEFINE __HELPER   := TgluTypeHelperVector3e}

  110.   {$I ugluVectorEx.inc}

  111. 

  112.   { TgluVector4e }

  113.   {$DEFINE __IMPL     := TgluVectorE}

  114.   {$DEFINE __SIZE     := 4}

  115.   {$DEFINE __VEC      := TgluVector4e}

  116.   {$DEFINE __HELPER   := TgluTypeHelperVector4e}

  117.   {$I ugluVectorEx.inc}

  118. 

  119. 

  120. 

  121.   { TgluVector2i }

  122.   {$DEFINE __IMPL     := TgluVectorI}

  123.   {$DEFINE __SIZE     := 2}

  124.   {$DEFINE __VEC      := TgluVector2i}

  125.   {$DEFINE __HELPER   := TgluTypeHelperVector2i}

  126.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ii}

  127.   {$I ugluVectorEx.inc}

  128. 

  129.   { TgluVector3i }

  130.   {$DEFINE __IMPL     := TgluVectorI}

  131.   {$DEFINE __SIZE     := 3}

  132.   {$DEFINE __VEC      := TgluVector3i}

  133.   {$DEFINE __HELPER   := TgluTypeHelperVector3i}

  134.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ii}

  135.   {$I ugluVectorEx.inc}

  136. 

  137.   { TgluVector4i }

  138.   {$DEFINE __IMPL     := TgluVectorI}

  139.   {$DEFINE __SIZE     := 4}

  140.   {$DEFINE __VEC      := TgluVector4i}

  141.   {$DEFINE __HELPER   := TgluTypeHelperVector4i}

  142.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ii}

  143.   {$I ugluVectorEx.inc}

  144. 

  145. 

  146. 

  147.   { TgluVector2us }

  148.   {$DEFINE __IMPL     := TgluVectorUS}

  149.   {$DEFINE __SIZE     := 2}

  150.   {$DEFINE __VEC      := TgluVector2us}

  151.   {$DEFINE __HELPER   := TgluTypeHelperVector2us}

  152.   {$DEFINE __HELPER_I := TgluTypeHelperVector2usi}

  153.   {$I ugluVectorEx.inc}

  154. 

  155.   { TgluVector3us }

  156.   {$DEFINE __IMPL     := TgluVectorUS}

  157.   {$DEFINE __SIZE     := 3}

  158.   {$DEFINE __VEC      := TgluVector3us}

  159.   {$DEFINE __HELPER   := TgluTypeHelperVector3us}

  160.   {$DEFINE __HELPER_I := TgluTypeHelperVector3usi}

  161.   {$I ugluVectorEx.inc}

  162. 

  163.   { TgluVector4us }

  164.   {$DEFINE __IMPL     := TgluVectorUS}

  165.   {$DEFINE __SIZE     := 4}

  166.   {$DEFINE __VEC      := TgluVector4us}

  167.   {$DEFINE __HELPER   := TgluTypeHelperVector4us}

  168.   {$DEFINE __HELPER_I := TgluTypeHelperVector4usi}

  169.   {$I ugluVectorEx.inc}

  170. 

  171. 

  172. 

  173.   { TgluVector2ub }

  174.   {$DEFINE __IMPL     := TgluVectorUB}

  175.   {$DEFINE __SIZE     := 2}

  176.   {$DEFINE __VEC      := TgluVector2ub}

  177.   {$DEFINE __HELPER   := TgluTypeHelperVector2ub}

  178.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ubi}

  179.   {$I ugluVectorEx.inc}

  180. 

  181.   { TgluVector3ub }

  182.   {$DEFINE __IMPL     := TgluVectorUB}

  183.   {$DEFINE __SIZE     := 3}

  184.   {$DEFINE __VEC      := TgluVector3ub}

  185.   {$DEFINE __HELPER   := TgluTypeHelperVector3ub}

  186.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ubi}

  187.   {$DEFINE __MAXCOLOR := 255}

  188.   {$I ugluVectorEx.inc}

  189. 

  190.   { TgluVector4ub }

  191.   {$DEFINE __IMPL     := TgluVectorUB}

  192.   {$DEFINE __SIZE     := 4}

  193.   {$DEFINE __VEC      := TgluVector4ub}

  194.   {$DEFINE __HELPER   := TgluTypeHelperVector4ub}

  195.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ubi}

  196.   {$I ugluVectorEx.inc}

  197. 

  198. 

  199. 

  200.   { TgluVector2f }

  201.   {$DEFINE __IMPL     := TgluVectorF}

  202.   {$DEFINE __SIZE     := 2}

  203.   {$DEFINE __VEC      := TgluVector2f}

  204.   {$DEFINE __HELPER   := TgluTypeHelperVector2f}

  205.   {$DEFINE __HELPER_I := TgluTypeHelperVector2fi}

  206.   {$DEFINE __HELPER_F := TgluTypeHelperVector2ff}

  207.   {$I ugluVectorEx.inc}

  208. 

  209.   { TgluVector3f }

  210.   {$DEFINE __IMPL     := TgluVectorF}

  211.   {$DEFINE __SIZE     := 3}

  212.   {$DEFINE __VEC      := TgluVector3f}

  213.   {$DEFINE __HELPER   := TgluTypeHelperVector3f}

  214.   {$DEFINE __HELPER_I := TgluTypeHelperVector3fi}

  215.   {$DEFINE __HELPER_F := TgluTypeHelperVector3ff}

  216.   {$DEFINE __MAXCOLOR := 1.0}

  217.   {$I ugluVectorEx.inc}

  218. 

  219.   { TgluVector4f }

  220.   {$DEFINE __IMPL     := TgluVectorF}

  221.   {$DEFINE __SIZE     := 4}

  222.   {$DEFINE __VEC      := TgluVector4f}

  223.   {$DEFINE __HELPER   := TgluTypeHelperVector4f}

  224.   {$DEFINE __HELPER_I := TgluTypeHelperVector4fi}

  225.   {$DEFINE __HELPER_F := TgluTypeHelperVector4ff}

  226.   {$I ugluVectorEx.inc}

  227. 

  228. 

  229. 

  230.   { TgluVector2d }

  231.   {$DEFINE __IMPL     := TgluVectorD}

  232.   {$DEFINE __SIZE     := 2}

  233.   {$DEFINE __VEC      := TgluVector2d}

  234.   {$DEFINE __HELPER   := TgluTypeHelperVector2d}

  235.   {$DEFINE __HELPER_I := TgluTypeHelperVector2di}

  236.   {$DEFINE __HELPER_F := TgluTypeHelperVector2df}

  237.   {$I ugluVectorEx.inc}

  238. 

  239.   { TgluVector3d }

  240.   {$DEFINE __IMPL     := TgluVectorD}

  241.   {$DEFINE __SIZE     := 3}

  242.   {$DEFINE __VEC      := TgluVector3d}

  243.   {$DEFINE __HELPER   := TgluTypeHelperVector3d}

  244.   {$DEFINE __HELPER_I := TgluTypeHelperVector3di}

  245.   {$DEFINE __HELPER_F := TgluTypeHelperVector3df}

  246.   {$DEFINE __MAXCOLOR := 1.0}

  247.   {$I ugluVectorEx.inc}

  248. 

  249.   { TgluVector4d }

  250.   {$DEFINE __IMPL     := TgluVectorD}

  251.   {$DEFINE __SIZE     := 4}

  252.   {$DEFINE __VEC      := TgluVector4d}

  253.   {$DEFINE __HELPER   := TgluTypeHelperVector4d}

  254.   {$DEFINE __HELPER_I := TgluTypeHelperVector4di}

  255.   {$DEFINE __HELPER_F := TgluTypeHelperVector4df}

  256.   {$I ugluVectorEx.inc}

  257. {$UNDEF __VECTOR_HELPER_INTERFACE}

  258. 

  259. implementation

  260. 

  261. {$DEFINE __VECTOR_HELPER_IMPL}

  262.   { TgluVector2p }

  263.   {$DEFINE __IMPL     := TgluVectorP}

  264.   {$DEFINE __SIZE     := 2}

  265.   {$DEFINE __VEC      := TgluVector2p}

  266.   {$DEFINE __HELPER   := TgluTypeHelperVector2p}

  267.   {$I ugluVectorEx.inc}

  268. 

  269.   { TgluVector3p }

  270.   {$DEFINE __IMPL     := TgluVectorP}

  271.   {$DEFINE __SIZE     := 3}

  272.   {$DEFINE __VEC      := TgluVector3p}

  273.   {$DEFINE __HELPER   := TgluTypeHelperVector3p}

  274.   {$I ugluVectorEx.inc}

  275. 

  276.   { TgluVector4p }

  277.   {$DEFINE __IMPL     := TgluVectorP}

  278.   {$DEFINE __SIZE     := 4}

  279.   {$DEFINE __VEC      := TgluVector4p}

  280.   {$DEFINE __HELPER   := TgluTypeHelperVector4p}

  281.   {$I ugluVectorEx.inc}

  282. 

  283. 

  284. 

  285.   { TgluVector2e }

  286.   {$DEFINE __IMPL     := TgluVectorE}

  287.   {$DEFINE __SIZE     := 2}

  288.   {$DEFINE __VEC      := TgluVector2e}

  289.   {$DEFINE __HELPER   := TgluTypeHelperVector2e}

  290.   {$I ugluVectorEx.inc}

  291. 

  292.   { TgluVector3e }

  293.   {$DEFINE __IMPL     := TgluVectorE}

  294.   {$DEFINE __SIZE     := 3}

  295.   {$DEFINE __VEC      := TgluVector3e}

  296.   {$DEFINE __HELPER   := TgluTypeHelperVector3e}

  297.   {$I ugluVectorEx.inc}

  298. 

  299.   { TgluVector4e }

  300.   {$DEFINE __IMPL     := TgluVectorE}

  301.   {$DEFINE __SIZE     := 4}

  302.   {$DEFINE __VEC      := TgluVector4e}

  303.   {$DEFINE __HELPER   := TgluTypeHelperVector4e}

  304.   {$I ugluVectorEx.inc}

  305. 

  306. 

  307. 

  308.   { TgluVector2i }

  309.   {$DEFINE __IMPL     := TgluVectorI}

  310.   {$DEFINE __SIZE     := 2}

  311.   {$DEFINE __VEC      := TgluVector2i}

  312.   {$DEFINE __HELPER   := TgluTypeHelperVector2i}

  313.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ii}

  314.   {$I ugluVectorEx.inc}

  315. 

  316.   { TgluVector3i }

  317.   {$DEFINE __IMPL     := TgluVectorI}

  318.   {$DEFINE __SIZE     := 3}

  319.   {$DEFINE __VEC      := TgluVector3i}

  320.   {$DEFINE __HELPER   := TgluTypeHelperVector3i}

  321.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ii}

  322.   {$I ugluVectorEx.inc}

  323. 

  324.   { TgluVector4i }

  325.   {$DEFINE __IMPL     := TgluVectorI}

  326.   {$DEFINE __SIZE     := 4}

  327.   {$DEFINE __VEC      := TgluVector4i}

  328.   {$DEFINE __HELPER   := TgluTypeHelperVector4i}

  329.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ii}

  330.   {$I ugluVectorEx.inc}

  331. 

  332. 

  333. 

  334.   { TgluVector2us }

  335.   {$DEFINE __IMPL     := TgluVectorUS}

  336.   {$DEFINE __SIZE     := 2}

  337.   {$DEFINE __VEC      := TgluVector2us}

  338.   {$DEFINE __HELPER   := TgluTypeHelperVector2us}

  339.   {$DEFINE __HELPER_I := TgluTypeHelperVector2usi}

  340.   {$I ugluVectorEx.inc}

  341. 

  342.   { TgluVector3us }

  343.   {$DEFINE __IMPL     := TgluVectorUS}

  344.   {$DEFINE __SIZE     := 3}

  345.   {$DEFINE __VEC      := TgluVector3us}

  346.   {$DEFINE __HELPER   := TgluTypeHelperVector3us}

  347.   {$DEFINE __HELPER_I := TgluTypeHelperVector3usi}

  348.   {$I ugluVectorEx.inc}

  349. 

  350.   { TgluVector4us }

  351.   {$DEFINE __IMPL     := TgluVectorUS}

  352.   {$DEFINE __SIZE     := 4}

  353.   {$DEFINE __VEC      := TgluVector4us}

  354.   {$DEFINE __HELPER   := TgluTypeHelperVector4us}

  355.   {$DEFINE __HELPER_I := TgluTypeHelperVector4usi}

  356.   {$I ugluVectorEx.inc}

  357. 

  358. 

  359. 

  360.   { TgluVector2ub }

  361.   {$DEFINE __IMPL     := TgluVectorUB}

  362.   {$DEFINE __SIZE     := 2}

  363.   {$DEFINE __VEC      := TgluVector2ub}

  364.   {$DEFINE __HELPER   := TgluTypeHelperVector2ub}

  365.   {$DEFINE __HELPER_I := TgluTypeHelperVector2ubi}

  366.   {$I ugluVectorEx.inc}

  367. 

  368.   { TgluVector3ub }

  369.   {$DEFINE __IMPL     := TgluVectorUB}

  370.   {$DEFINE __SIZE     := 3}

  371.   {$DEFINE __VEC      := TgluVector3ub}

  372.   {$DEFINE __HELPER   := TgluTypeHelperVector3ub}

  373.   {$DEFINE __HELPER_I := TgluTypeHelperVector3ubi}

  374.   {$DEFINE __MAXCOLOR := 255}

  375.   {$I ugluVectorEx.inc}

  376. 

  377.   { TgluVector4ub }

  378.   {$DEFINE __IMPL     := TgluVectorUB}

  379.   {$DEFINE __SIZE     := 4}

  380.   {$DEFINE __VEC      := TgluVector4ub}

  381.   {$DEFINE __HELPER   := TgluTypeHelperVector4ub}

  382.   {$DEFINE __HELPER_I := TgluTypeHelperVector4ubi}

  383.   {$I ugluVectorEx.inc}

  384. 

  385. 

  386. 

  387.   { TgluVector2f }

  388.   {$DEFINE __IMPL     := TgluVectorF}

  389.   {$DEFINE __SIZE     := 2}

  390.   {$DEFINE __VEC      := TgluVector2f}

  391.   {$DEFINE __HELPER   := TgluTypeHelperVector2f}

  392.   {$DEFINE __HELPER_I := TgluTypeHelperVector2fi}

  393.   {$DEFINE __HELPER_F := TgluTypeHelperVector2ff}

  394.   {$I ugluVectorEx.inc}

  395. 

  396.   { TgluVector3f }

  397.   {$DEFINE __IMPL     := TgluVectorF}

  398.   {$DEFINE __SIZE     := 3}

  399.   {$DEFINE __VEC      := TgluVector3f}

  400.   {$DEFINE __HELPER   := TgluTypeHelperVector3f}

  401.   {$DEFINE __HELPER_I := TgluTypeHelperVector3fi}

  402.   {$DEFINE __HELPER_F := TgluTypeHelperVector3ff}

  403.   {$DEFINE __MAXCOLOR := 1.0}

  404.   {$I ugluVectorEx.inc}

  405. 

  406.   { TgluVector4ub }

  407.   {$DEFINE __IMPL     := TgluVectorF}

  408.   {$DEFINE __SIZE     := 4}

  409.   {$DEFINE __VEC      := TgluVector4f}

  410.   {$DEFINE __HELPER   := TgluTypeHelperVector4f}

  411.   {$DEFINE __HELPER_I := TgluTypeHelperVector4fi}

  412.   {$DEFINE __HELPER_F := TgluTypeHelperVector4ff}

  413.   {$I ugluVectorEx.inc}

  414. 

  415. 

  416. 

  417.   { TgluVector2d }

  418.   {$DEFINE __IMPL     := TgluVectorD}

  419.   {$DEFINE __SIZE     := 2}

  420.   {$DEFINE __VEC      := TgluVector2d}

  421.   {$DEFINE __HELPER   := TgluTypeHelperVector2d}

  422.   {$DEFINE __HELPER_I := TgluTypeHelperVector2di}

  423.   {$DEFINE __HELPER_F := TgluTypeHelperVector2df}

  424.   {$I ugluVectorEx.inc}

  425. 

  426.   { TgluVector3d }

  427.   {$DEFINE __IMPL     := TgluVectorD}

  428.   {$DEFINE __SIZE     := 3}

  429.   {$DEFINE __VEC      := TgluVector3d}

  430.   {$DEFINE __HELPER   := TgluTypeHelperVector3d}

  431.   {$DEFINE __HELPER_I := TgluTypeHelperVector3di}

  432.   {$DEFINE __HELPER_F := TgluTypeHelperVector3df}

  433.   {$DEFINE __MAXCOLOR := 1.0}

  434.   {$I ugluVectorEx.inc}

  435. 

  436.   { TgluVector4d }

  437.   {$DEFINE __IMPL     := TgluVectorD}

  438.   {$DEFINE __SIZE     := 4}

  439.   {$DEFINE __VEC      := TgluVector4d}

  440.   {$DEFINE __HELPER   := TgluTypeHelperVector4d}

  441.   {$DEFINE __HELPER_I := TgluTypeHelperVector4di}

  442.   {$DEFINE __HELPER_F := TgluTypeHelperVector4df}

  443.   {$I ugluVectorEx.inc}

  444. {$UNDEF __VECTOR_HELPER_IMPL}

  445. 

  446. end.