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.inc

995 lines
65 KiB
Raw Blame History 

  1. {$IF DEFINED(__VECTOR_HELPER_INTERFACE)}

  2.   {$IFDEF __HELPER}

  3.     type __HELPER = type helper for __VEC

  4.     public

  5.       {$IF __SIZE = 2}

  6.       class function Create(const x, y: __IMPL.TBaseType): __IMPL.TVector2; static; inline;

  7.       {$ELSEIF __SIZE = 3}

  8.       class function Create(const x, y, z: __IMPL.TBaseType): __IMPL.TVector3; static; inline;

  9.       {$ELSEIF __SIZE = 4}

  10.       class function Create(const x, y, z, w: __IMPL.TBaseType): __IMPL.TVector4; static; inline;

  11.       {$ELSE}

  12.         {$ERROR only vectors of size 2, 3 or 4 are supported}

  13.       {$ENDIF}

  14. 

  15.       function ToString(const aRound: Integer = -3): String; inline;

  16.       class function FromString(const s: String): __VEC; static; inline;

  17.       class function TryFromString(const s: String; out v: __VEC): Boolean; static; inline;

  18.       class function Zero: __VEC; static; inline;

  19. 

  20.       {$IF __SIZE = 2}

  21.       function x: __IMPL.TBaseType; inline;

  22.       function y: __IMPL.TBaseType; inline;

  23.       function yx: __IMPL.TVector2; inline;

  24.       {$ENDIF}

  25. 

  26.       {$IF __SIZE = 3}

  27.       function x: __IMPL.TBaseType; inline;

  28.       function y: __IMPL.TBaseType; inline;

  29.       function z: __IMPL.TBaseType; inline;

  30. 

  31.       function xx: __IMPL.TVector2; inline;

  32.       function xy: __IMPL.TVector2; inline;

  33.       function xz: __IMPL.TVector2; inline;

  34.       function yx: __IMPL.TVector2; inline;

  35.       function yy: __IMPL.TVector2; inline;

  36.       function yz: __IMPL.TVector2; inline;

  37.       function zx: __IMPL.TVector2; inline;

  38.       function zy: __IMPL.TVector2; inline;

  39.       function zz: __IMPL.TVector2; inline;

  40. 

  41.       function xxx: __IMPL.TVector3; inline;

  42.       function xxy: __IMPL.TVector3; inline;

  43.       function xxz: __IMPL.TVector3; inline;

  44.       function xyx: __IMPL.TVector3; inline;

  45.       function xyy: __IMPL.TVector3; inline;

  46.       function xyz: __IMPL.TVector3; inline;

  47.       function xzx: __IMPL.TVector3; inline;

  48.       function xzy: __IMPL.TVector3; inline;

  49.       function xzz: __IMPL.TVector3; inline;

  50. 

  51.       function yxx: __IMPL.TVector3; inline;

  52.       function yxy: __IMPL.TVector3; inline;

  53.       function yxz: __IMPL.TVector3; inline;

  54.       function yyx: __IMPL.TVector3; inline;

  55.       function yyy: __IMPL.TVector3; inline;

  56.       function yyz: __IMPL.TVector3; inline;

  57.       function yzx: __IMPL.TVector3; inline;

  58.       function yzy: __IMPL.TVector3; inline;

  59.       function yzz: __IMPL.TVector3; inline;

  60. 

  61.       function zxx: __IMPL.TVector3; inline;

  62.       function zxy: __IMPL.TVector3; inline;

  63.       function zxz: __IMPL.TVector3; inline;

  64.       function zyx: __IMPL.TVector3; inline;

  65.       function zyy: __IMPL.TVector3; inline;

  66.       function zyz: __IMPL.TVector3; inline;

  67.       function zzx: __IMPL.TVector3; inline;

  68.       function zzy: __IMPL.TVector3; inline;

  69.       function zzz: __IMPL.TVector3; inline;

  70.       {$ENDIF}

  71. 

  72.       {$IF __SIZE = 4}

  73.       function x: __IMPL.TBaseType; inline;

  74.       function y: __IMPL.TBaseType; inline;

  75.       function z: __IMPL.TBaseType; inline;

  76.       function w: __IMPL.TBaseType; inline;

  77. 

  78.       function xx: __IMPL.TVector2; inline;

  79.       function xy: __IMPL.TVector2; inline;

  80.       function xz: __IMPL.TVector2; inline;

  81.       function xw: __IMPL.TVector2; inline;

  82.       function yx: __IMPL.TVector2; inline;

  83.       function yy: __IMPL.TVector2; inline;

  84.       function yz: __IMPL.TVector2; inline;

  85.       function yw: __IMPL.TVector2; inline;

  86.       function zx: __IMPL.TVector2; inline;

  87.       function zy: __IMPL.TVector2; inline;

  88.       function zz: __IMPL.TVector2; inline;

  89.       function zw: __IMPL.TVector2; inline;

  90.       function wx: __IMPL.TVector2; inline;

  91.       function wy: __IMPL.TVector2; inline;

  92.       function wz: __IMPL.TVector2; inline;

  93.       function ww: __IMPL.TVector2; inline;

  94. 

  95.       function xxx: __IMPL.TVector3; inline;

  96.       function xxy: __IMPL.TVector3; inline;

  97.       function xxz: __IMPL.TVector3; inline;

  98.       function xxw: __IMPL.TVector3; inline;

  99.       function xyx: __IMPL.TVector3; inline;

  100.       function xyy: __IMPL.TVector3; inline;

  101.       function xyz: __IMPL.TVector3; inline;

  102.       function xyw: __IMPL.TVector3; inline;

  103.       function xzx: __IMPL.TVector3; inline;

  104.       function xzy: __IMPL.TVector3; inline;

  105.       function xzz: __IMPL.TVector3; inline;

  106.       function xzw: __IMPL.TVector3; inline;

  107.       function xwx: __IMPL.TVector3; inline;

  108.       function xwy: __IMPL.TVector3; inline;

  109.       function xwz: __IMPL.TVector3; inline;

  110.       function xww: __IMPL.TVector3; inline;

  111.       function yxx: __IMPL.TVector3; inline;

  112.       function yxy: __IMPL.TVector3; inline;

  113.       function yxz: __IMPL.TVector3; inline;

  114.       function yxw: __IMPL.TVector3; inline;

  115.       function yyx: __IMPL.TVector3; inline;

  116.       function yyy: __IMPL.TVector3; inline;

  117.       function yyz: __IMPL.TVector3; inline;

  118.       function yyw: __IMPL.TVector3; inline;

  119.       function yzx: __IMPL.TVector3; inline;

  120.       function yzy: __IMPL.TVector3; inline;

  121.       function yzz: __IMPL.TVector3; inline;

  122.       function yzw: __IMPL.TVector3; inline;

  123.       function ywx: __IMPL.TVector3; inline;

  124.       function ywy: __IMPL.TVector3; inline;

  125.       function ywz: __IMPL.TVector3; inline;

  126.       function yww: __IMPL.TVector3; inline;

  127.       function zxx: __IMPL.TVector3; inline;

  128.       function zxy: __IMPL.TVector3; inline;

  129.       function zxz: __IMPL.TVector3; inline;

  130.       function zxw: __IMPL.TVector3; inline;

  131.       function zyx: __IMPL.TVector3; inline;

  132.       function zyy: __IMPL.TVector3; inline;

  133.       function zyz: __IMPL.TVector3; inline;

  134.       function zyw: __IMPL.TVector3; inline;

  135.       function zzx: __IMPL.TVector3; inline;

  136.       function zzy: __IMPL.TVector3; inline;

  137.       function zzz: __IMPL.TVector3; inline;

  138.       function zzw: __IMPL.TVector3; inline;

  139.       function zwx: __IMPL.TVector3; inline;

  140.       function zwy: __IMPL.TVector3; inline;

  141.       function zwz: __IMPL.TVector3; inline;

  142.       function zww: __IMPL.TVector3; inline;

  143.       function wxx: __IMPL.TVector3; inline;

  144.       function wxy: __IMPL.TVector3; inline;

  145.       function wxz: __IMPL.TVector3; inline;

  146.       function wxw: __IMPL.TVector3; inline;

  147.       function wyx: __IMPL.TVector3; inline;

  148.       function wyy: __IMPL.TVector3; inline;

  149.       function wyz: __IMPL.TVector3; inline;

  150.       function wyw: __IMPL.TVector3; inline;

  151.       function wzx: __IMPL.TVector3; inline;

  152.       function wzy: __IMPL.TVector3; inline;

  153.       function wzz: __IMPL.TVector3; inline;

  154.       function wzw: __IMPL.TVector3; inline;

  155.       function wwx: __IMPL.TVector3; inline;

  156.       function wwy: __IMPL.TVector3; inline;

  157.       function wwz: __IMPL.TVector3; inline;

  158.       function www: __IMPL.TVector3; inline;

  159. 

  160.       function xxxx: __IMPL.TVector4; inline;

  161.       function xxxy: __IMPL.TVector4; inline;

  162.       function xxxz: __IMPL.TVector4; inline;

  163.       function xxxw: __IMPL.TVector4; inline;

  164.       function xxyx: __IMPL.TVector4; inline;

  165.       function xxyy: __IMPL.TVector4; inline;

  166.       function xxyz: __IMPL.TVector4; inline;

  167.       function xxyw: __IMPL.TVector4; inline;

  168.       function xxzx: __IMPL.TVector4; inline;

  169.       function xxzy: __IMPL.TVector4; inline;

  170.       function xxzz: __IMPL.TVector4; inline;

  171.       function xxzw: __IMPL.TVector4; inline;

  172.       function xxwx: __IMPL.TVector4; inline;

  173.       function xxwy: __IMPL.TVector4; inline;

  174.       function xxwz: __IMPL.TVector4; inline;

  175.       function xxww: __IMPL.TVector4; inline;

  176.       function xyxx: __IMPL.TVector4; inline;

  177.       function xyxy: __IMPL.TVector4; inline;

  178.       function xyxz: __IMPL.TVector4; inline;

  179.       function xyxw: __IMPL.TVector4; inline;

  180.       function xyyx: __IMPL.TVector4; inline;

  181.       function xyyy: __IMPL.TVector4; inline;

  182.       function xyyz: __IMPL.TVector4; inline;

  183.       function xyyw: __IMPL.TVector4; inline;

  184.       function xyzx: __IMPL.TVector4; inline;

  185.       function xyzy: __IMPL.TVector4; inline;

  186.       function xyzz: __IMPL.TVector4; inline;

  187.       function xyzw: __IMPL.TVector4; inline;

  188.       function xywx: __IMPL.TVector4; inline;

  189.       function xywy: __IMPL.TVector4; inline;

  190.       function xywz: __IMPL.TVector4; inline;

  191.       function xyww: __IMPL.TVector4; inline;

  192.       function xzxx: __IMPL.TVector4; inline;

  193.       function xzxy: __IMPL.TVector4; inline;

  194.       function xzxz: __IMPL.TVector4; inline;

  195.       function xzxw: __IMPL.TVector4; inline;

  196.       function xzyx: __IMPL.TVector4; inline;

  197.       function xzyy: __IMPL.TVector4; inline;

  198.       function xzyz: __IMPL.TVector4; inline;

  199.       function xzyw: __IMPL.TVector4; inline;

  200.       function xzzx: __IMPL.TVector4; inline;

  201.       function xzzy: __IMPL.TVector4; inline;

  202.       function xzzz: __IMPL.TVector4; inline;

  203.       function xzzw: __IMPL.TVector4; inline;

  204.       function xzwx: __IMPL.TVector4; inline;

  205.       function xzwy: __IMPL.TVector4; inline;

  206.       function xzwz: __IMPL.TVector4; inline;

  207.       function xzww: __IMPL.TVector4; inline;

  208.       function xwxx: __IMPL.TVector4; inline;

  209.       function xwxy: __IMPL.TVector4; inline;

  210.       function xwxz: __IMPL.TVector4; inline;

  211.       function xwxw: __IMPL.TVector4; inline;

  212.       function xwyx: __IMPL.TVector4; inline;

  213.       function xwyy: __IMPL.TVector4; inline;

  214.       function xwyz: __IMPL.TVector4; inline;

  215.       function xwyw: __IMPL.TVector4; inline;

  216.       function xwzx: __IMPL.TVector4; inline;

  217.       function xwzy: __IMPL.TVector4; inline;

  218.       function xwzz: __IMPL.TVector4; inline;

  219.       function xwzw: __IMPL.TVector4; inline;

  220.       function xwwx: __IMPL.TVector4; inline;

  221.       function xwwy: __IMPL.TVector4; inline;

  222.       function xwwz: __IMPL.TVector4; inline;

  223.       function xwww: __IMPL.TVector4; inline;

  224.       function yxxx: __IMPL.TVector4; inline;

  225.       function yxxy: __IMPL.TVector4; inline;

  226.       function yxxz: __IMPL.TVector4; inline;

  227.       function yxxw: __IMPL.TVector4; inline;

  228.       function yxyx: __IMPL.TVector4; inline;

  229.       function yxyy: __IMPL.TVector4; inline;

  230.       function yxyz: __IMPL.TVector4; inline;

  231.       function yxyw: __IMPL.TVector4; inline;

  232.       function yxzx: __IMPL.TVector4; inline;

  233.       function yxzy: __IMPL.TVector4; inline;

  234.       function yxzz: __IMPL.TVector4; inline;

  235.       function yxzw: __IMPL.TVector4; inline;

  236.       function yxwx: __IMPL.TVector4; inline;

  237.       function yxwy: __IMPL.TVector4; inline;

  238.       function yxwz: __IMPL.TVector4; inline;

  239.       function yxww: __IMPL.TVector4; inline;

  240.       function yyxx: __IMPL.TVector4; inline;

  241.       function yyxy: __IMPL.TVector4; inline;

  242.       function yyxz: __IMPL.TVector4; inline;

  243.       function yyxw: __IMPL.TVector4; inline;

  244.       function yyyx: __IMPL.TVector4; inline;

  245.       function yyyy: __IMPL.TVector4; inline;

  246.       function yyyz: __IMPL.TVector4; inline;

  247.       function yyyw: __IMPL.TVector4; inline;

  248.       function yyzx: __IMPL.TVector4; inline;

  249.       function yyzy: __IMPL.TVector4; inline;

  250.       function yyzz: __IMPL.TVector4; inline;

  251.       function yyzw: __IMPL.TVector4; inline;

  252.       function yywx: __IMPL.TVector4; inline;

  253.       function yywy: __IMPL.TVector4; inline;

  254.       function yywz: __IMPL.TVector4; inline;

  255.       function yyww: __IMPL.TVector4; inline;

  256.       function yzxx: __IMPL.TVector4; inline;

  257.       function yzxy: __IMPL.TVector4; inline;

  258.       function yzxz: __IMPL.TVector4; inline;

  259.       function yzxw: __IMPL.TVector4; inline;

  260.       function yzyx: __IMPL.TVector4; inline;

  261.       function yzyy: __IMPL.TVector4; inline;

  262.       function yzyz: __IMPL.TVector4; inline;

  263.       function yzyw: __IMPL.TVector4; inline;

  264.       function yzzx: __IMPL.TVector4; inline;

  265.       function yzzy: __IMPL.TVector4; inline;

  266.       function yzzz: __IMPL.TVector4; inline;

  267.       function yzzw: __IMPL.TVector4; inline;

  268.       function yzwx: __IMPL.TVector4; inline;

  269.       function yzwy: __IMPL.TVector4; inline;

  270.       function yzwz: __IMPL.TVector4; inline;

  271.       function yzww: __IMPL.TVector4; inline;

  272.       function ywxx: __IMPL.TVector4; inline;

  273.       function ywxy: __IMPL.TVector4; inline;

  274.       function ywxz: __IMPL.TVector4; inline;

  275.       function ywxw: __IMPL.TVector4; inline;

  276.       function ywyx: __IMPL.TVector4; inline;

  277.       function ywyy: __IMPL.TVector4; inline;

  278.       function ywyz: __IMPL.TVector4; inline;

  279.       function ywyw: __IMPL.TVector4; inline;

  280.       function ywzx: __IMPL.TVector4; inline;

  281.       function ywzy: __IMPL.TVector4; inline;

  282.       function ywzz: __IMPL.TVector4; inline;

  283.       function ywzw: __IMPL.TVector4; inline;

  284.       function ywwx: __IMPL.TVector4; inline;

  285.       function ywwy: __IMPL.TVector4; inline;

  286.       function ywwz: __IMPL.TVector4; inline;

  287.       function ywww: __IMPL.TVector4; inline;

  288.       function zxxx: __IMPL.TVector4; inline;

  289.       function zxxy: __IMPL.TVector4; inline;

  290.       function zxxz: __IMPL.TVector4; inline;

  291.       function zxxw: __IMPL.TVector4; inline;

  292.       function zxyx: __IMPL.TVector4; inline;

  293.       function zxyy: __IMPL.TVector4; inline;

  294.       function zxyz: __IMPL.TVector4; inline;

  295.       function zxyw: __IMPL.TVector4; inline;

  296.       function zxzx: __IMPL.TVector4; inline;

  297.       function zxzy: __IMPL.TVector4; inline;

  298.       function zxzz: __IMPL.TVector4; inline;

  299.       function zxzw: __IMPL.TVector4; inline;

  300.       function zxwx: __IMPL.TVector4; inline;

  301.       function zxwy: __IMPL.TVector4; inline;

  302.       function zxwz: __IMPL.TVector4; inline;

  303.       function zxww: __IMPL.TVector4; inline;

  304.       function zyxx: __IMPL.TVector4; inline;

  305.       function zyxy: __IMPL.TVector4; inline;

  306.       function zyxz: __IMPL.TVector4; inline;

  307.       function zyxw: __IMPL.TVector4; inline;

  308.       function zyyx: __IMPL.TVector4; inline;

  309.       function zyyy: __IMPL.TVector4; inline;

  310.       function zyyz: __IMPL.TVector4; inline;

  311.       function zyyw: __IMPL.TVector4; inline;

  312.       function zyzx: __IMPL.TVector4; inline;

  313.       function zyzy: __IMPL.TVector4; inline;

  314.       function zyzz: __IMPL.TVector4; inline;

  315.       function zyzw: __IMPL.TVector4; inline;

  316.       function zywx: __IMPL.TVector4; inline;

  317.       function zywy: __IMPL.TVector4; inline;

  318.       function zywz: __IMPL.TVector4; inline;

  319.       function zyww: __IMPL.TVector4; inline;

  320.       function zzxx: __IMPL.TVector4; inline;

  321.       function zzxy: __IMPL.TVector4; inline;

  322.       function zzxz: __IMPL.TVector4; inline;

  323.       function zzxw: __IMPL.TVector4; inline;

  324.       function zzyx: __IMPL.TVector4; inline;

  325.       function zzyy: __IMPL.TVector4; inline;

  326.       function zzyz: __IMPL.TVector4; inline;

  327.       function zzyw: __IMPL.TVector4; inline;

  328.       function zzzx: __IMPL.TVector4; inline;

  329.       function zzzy: __IMPL.TVector4; inline;

  330.       function zzzz: __IMPL.TVector4; inline;

  331.       function zzzw: __IMPL.TVector4; inline;

  332.       function zzwx: __IMPL.TVector4; inline;

  333.       function zzwy: __IMPL.TVector4; inline;

  334.       function zzwz: __IMPL.TVector4; inline;

  335.       function zzww: __IMPL.TVector4; inline;

  336.       function zwxx: __IMPL.TVector4; inline;

  337.       function zwxy: __IMPL.TVector4; inline;

  338.       function zwxz: __IMPL.TVector4; inline;

  339.       function zwxw: __IMPL.TVector4; inline;

  340.       function zwyx: __IMPL.TVector4; inline;

  341.       function zwyy: __IMPL.TVector4; inline;

  342.       function zwyz: __IMPL.TVector4; inline;

  343.       function zwyw: __IMPL.TVector4; inline;

  344.       function zwzx: __IMPL.TVector4; inline;

  345.       function zwzy: __IMPL.TVector4; inline;

  346.       function zwzz: __IMPL.TVector4; inline;

  347.       function zwzw: __IMPL.TVector4; inline;

  348.       function zwwx: __IMPL.TVector4; inline;

  349.       function zwwy: __IMPL.TVector4; inline;

  350.       function zwwz: __IMPL.TVector4; inline;

  351.       function zwww: __IMPL.TVector4; inline;

  352.       function wxxx: __IMPL.TVector4; inline;

  353.       function wxxy: __IMPL.TVector4; inline;

  354.       function wxxz: __IMPL.TVector4; inline;

  355.       function wxxw: __IMPL.TVector4; inline;

  356.       function wxyx: __IMPL.TVector4; inline;

  357.       function wxyy: __IMPL.TVector4; inline;

  358.       function wxyz: __IMPL.TVector4; inline;

  359.       function wxyw: __IMPL.TVector4; inline;

  360.       function wxzx: __IMPL.TVector4; inline;

  361.       function wxzy: __IMPL.TVector4; inline;

  362.       function wxzz: __IMPL.TVector4; inline;

  363.       function wxzw: __IMPL.TVector4; inline;

  364.       function wxwx: __IMPL.TVector4; inline;

  365.       function wxwy: __IMPL.TVector4; inline;

  366.       function wxwz: __IMPL.TVector4; inline;

  367.       function wxww: __IMPL.TVector4; inline;

  368.       function wyxx: __IMPL.TVector4; inline;

  369.       function wyxy: __IMPL.TVector4; inline;

  370.       function wyxz: __IMPL.TVector4; inline;

  371.       function wyxw: __IMPL.TVector4; inline;

  372.       function wyyx: __IMPL.TVector4; inline;

  373.       function wyyy: __IMPL.TVector4; inline;

  374.       function wyyz: __IMPL.TVector4; inline;

  375.       function wyyw: __IMPL.TVector4; inline;

  376.       function wyzx: __IMPL.TVector4; inline;

  377.       function wyzy: __IMPL.TVector4; inline;

  378.       function wyzz: __IMPL.TVector4; inline;

  379.       function wyzw: __IMPL.TVector4; inline;

  380.       function wywx: __IMPL.TVector4; inline;

  381.       function wywy: __IMPL.TVector4; inline;

  382.       function wywz: __IMPL.TVector4; inline;

  383.       function wyww: __IMPL.TVector4; inline;

  384.       function wzxx: __IMPL.TVector4; inline;

  385.       function wzxy: __IMPL.TVector4; inline;

  386.       function wzxz: __IMPL.TVector4; inline;

  387.       function wzxw: __IMPL.TVector4; inline;

  388.       function wzyx: __IMPL.TVector4; inline;

  389.       function wzyy: __IMPL.TVector4; inline;

  390.       function wzyz: __IMPL.TVector4; inline;

  391.       function wzyw: __IMPL.TVector4; inline;

  392.       function wzzx: __IMPL.TVector4; inline;

  393.       function wzzy: __IMPL.TVector4; inline;

  394.       function wzzz: __IMPL.TVector4; inline;

  395.       function wzzw: __IMPL.TVector4; inline;

  396.       function wzwx: __IMPL.TVector4; inline;

  397.       function wzwy: __IMPL.TVector4; inline;

  398.       function wzwz: __IMPL.TVector4; inline;

  399.       function wzww: __IMPL.TVector4; inline;

  400.       function wwxx: __IMPL.TVector4; inline;

  401.       function wwxy: __IMPL.TVector4; inline;

  402.       function wwxz: __IMPL.TVector4; inline;

  403.       function wwxw: __IMPL.TVector4; inline;

  404.       function wwyx: __IMPL.TVector4; inline;

  405.       function wwyy: __IMPL.TVector4; inline;

  406.       function wwyz: __IMPL.TVector4; inline;

  407.       function wwyw: __IMPL.TVector4; inline;

  408.       function wwzx: __IMPL.TVector4; inline;

  409.       function wwzy: __IMPL.TVector4; inline;

  410.       function wwzz: __IMPL.TVector4; inline;

  411.       function wwzw: __IMPL.TVector4; inline;

  412.       function wwwx: __IMPL.TVector4; inline;

  413.       function wwwy: __IMPL.TVector4; inline;

  414.       function wwwz: __IMPL.TVector4; inline;

  415.       function wwww: __IMPL.TVector4; inline;

  416.       {$ENDIF}

  417.     end;

  418.     operator = (const v1, v2: __VEC): Boolean; inline;

  419.     {$IFDEF __HELPER_I}

  420.       type __HELPER_I = type helper(__HELPER) for __VEC

  421.       public

  422.         function Length: Double; inline;

  423.         {$IF __SIZE <> 4}

  424.         function Add(const v: __VEC): __VEC; inline;

  425.         function Subtract(const v: __VEC): __VEC; inline;

  426.         {$ENDIF}

  427.         function Multiply(const v: __IMPL.TBaseType): __VEC; inline;

  428.       end;

  429.       {$IF __SIZE <> 4}

  430.       operator + (const v1, v2: __VEC): __VEC; inline;

  431.       operator - (const v1, v2: __VEC): __VEC; inline;

  432.       {$ENDIF}

  433.       {$IFDEF __HELPER_F}

  434.         type __HELPER_F = type helper(__HELPER_I) for __VEC

  435.         public

  436.           function Normalize: __VEC; inline;

  437.           function Divide(const v: __IMPL.TBaseType): __VEC; inline;

  438.           function Dot(const v: __VEC): __IMPL.TBaseType; inline;

  439.           {$IF __SIZE <> 4}

  440.           function Angle(const v: __VEC): Double; inline;

  441.           {$ENDIF}

  442.           {$IF __SIZE = 2}

  443.           function Angle2(const v: __VEC): Double; inline;

  444.           {$ENDIF}

  445.           function Clamp(const min, max: __VEC): __VEC; inline;

  446.           function Clamp(const min, max: __IMPL.TBaseType): __VEC; inline;

  447.         end;

  448.         operator * (const v: __VEC; const s: __IMPL.TBaseType): __VEC;

  449.         operator * (const s: __IMPL.TBaseType; const v: __VEC): __VEC;

  450.         operator * (const v1, v2: __VEC): __IMPL.TBaseType;

  451.       {$ENDIF}

  452.     {$ENDIF}

  453.   {$ENDIF}

  454. {$ELSEIF DEFINED (__VECTOR_HELPER_IMPL)}

  455.   {$IFDEF __HELPER}

  456.     {$IF __SIZE = 2}

  457.     class function __HELPER.Create(const x, y: __IMPL.TBaseType): __VEC;

  458.     begin

  459.       result := __IMPL.Vector2(x, y);

  460.     end;

  461.     {$ELSEIF __SIZE = 3}

  462.     class function __HELPER.Create(const x, y, z: __IMPL.TBaseType): __VEC;

  463.     begin

  464.       result := __IMPL.Vector3(x, y, z);

  465.     end;

  466.     {$ELSEIF __SIZE = 4}

  467.     class function __HELPER.Create(const x, y, z, w: __IMPL.TBaseType): __VEC;

  468.     begin

  469.       result := __IMPL.Vector4(x, y, z, w);

  470.     end;

  471.     {$ENDIF}

  472. 

  473.     function __HELPER.ToString(const aRound: Integer): String;

  474.     begin

  475.       result := __IMPL.ToString(self, aRound);

  476.     end;

  477. 

  478.     class function __HELPER.FromString(const s: String): __VEC;

  479.     begin

  480.       if not __IMPL.TryFromString(s, result) then

  481.         result := Zero;

  482.     end;

  483. 

  484.     class function __HELPER.TryFromString(const s: String; out v: __VEC): Boolean;

  485.     begin

  486.       result := __IMPl.TryFromString(s, v);

  487.     end;

  488. 

  489.     class function __HELPER.Zero: __VEC;

  490.     begin

  491.       FillByte(result{%H-}[0], Length(result) * SizeOf(result[0]), 0);

  492.     end;

  493. 

  494.     {$IF __SIZE = 2}

  495.     function __HELPER.x: __IMPL.TBaseType; begin result := self[0]; end;

  496.     function __HELPER.y: __IMPL.TBaseType; begin result := self[1]; end;

  497.     function __HELPER.yx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[0]); end;

  498.     {$ENDIF}

  499. 

  500.     {$IF __SIZE = 3}

  501.     function __HELPER.x: __IMPL.TBaseType; begin result := self[0]; end;

  502.     function __HELPER.y: __IMPL.TBaseType; begin result := self[1]; end;

  503.     function __HELPER.z: __IMPL.TBaseType; begin result := self[2]; end;

  504. 

  505.     function __HELPER.xx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[0]); end;

  506.     function __HELPER.xy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[1]); end;

  507.     function __HELPER.xz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[2]); end;

  508.     function __HELPER.yx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[0]); end;

  509.     function __HELPER.yy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[1]); end;

  510.     function __HELPER.yz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[2]); end;

  511.     function __HELPER.zx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[0]); end;

  512.     function __HELPER.zy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[1]); end;

  513.     function __HELPER.zz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[2]); end;

  514. 

  515.     function __HELPER.xxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[0]); end;

  516.     function __HELPER.xxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[1]); end;

  517.     function __HELPER.xxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[2]); end;

  518.     function __HELPER.xyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[0]); end;

  519.     function __HELPER.xyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[1]); end;

  520.     function __HELPER.xyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[2]); end;

  521.     function __HELPER.xzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[0]); end;

  522.     function __HELPER.xzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[1]); end;

  523.     function __HELPER.xzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[1]); end;

  524. 

  525.     function __HELPER.yxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[0]); end;

  526.     function __HELPER.yxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[1]); end;

  527.     function __HELPER.yxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[2]); end;

  528.     function __HELPER.yyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[0]); end;

  529.     function __HELPER.yyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[1]); end;

  530.     function __HELPER.yyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[2]); end;

  531.     function __HELPER.yzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[0]); end;

  532.     function __HELPER.yzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[1]); end;

  533.     function __HELPER.yzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[2]); end;

  534. 

  535.     function __HELPER.zxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[0]); end;

  536.     function __HELPER.zxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[1]); end;

  537.     function __HELPER.zxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[2]); end;

  538.     function __HELPER.zyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[0]); end;

  539.     function __HELPER.zyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[1]); end;

  540.     function __HELPER.zyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[2]); end;

  541.     function __HELPER.zzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[0]); end;

  542.     function __HELPER.zzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[1]); end;

  543.     function __HELPER.zzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[2]); end;

  544.     {$ENDIF}

  545. 

  546.     {$IF __SIZE = 4}

  547.     function __Helper.x: __IMPL.TBaseType; begin result := self[0]; end;

  548.     function __Helper.y: __IMPL.TBaseType; begin result := self[1]; end;

  549.     function __Helper.z: __IMPL.TBaseType; begin result := self[2]; end;

  550.     function __Helper.w: __IMPL.TBaseType; begin result := self[3]; end;

  551. 

  552.     function __Helper.xx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[0]); end;

  553.     function __Helper.xy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[1]); end;

  554.     function __Helper.xz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[2]); end;

  555.     function __Helper.xw: __IMPL.TVector2; begin result := __IMPL.Vector2(self[0], self[3]); end;

  556.     function __Helper.yx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[0]); end;

  557.     function __Helper.yy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[1]); end;

  558.     function __Helper.yz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[2]); end;

  559.     function __Helper.yw: __IMPL.TVector2; begin result := __IMPL.Vector2(self[1], self[3]); end;

  560.     function __Helper.zx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[0]); end;

  561.     function __Helper.zy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[1]); end;

  562.     function __Helper.zz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[2]); end;

  563.     function __Helper.zw: __IMPL.TVector2; begin result := __IMPL.Vector2(self[2], self[3]); end;

  564.     function __Helper.wx: __IMPL.TVector2; begin result := __IMPL.Vector2(self[3], self[0]); end;

  565.     function __Helper.wy: __IMPL.TVector2; begin result := __IMPL.Vector2(self[3], self[1]); end;

  566.     function __Helper.wz: __IMPL.TVector2; begin result := __IMPL.Vector2(self[3], self[2]); end;

  567.     function __Helper.ww: __IMPL.TVector2; begin result := __IMPL.Vector2(self[3], self[3]); end;

  568. 

  569.     function __Helper.xxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[0]); end;

  570.     function __Helper.xxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[1]); end;

  571.     function __Helper.xxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[2]); end;

  572.     function __Helper.xxw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[0], self[3]); end;

  573.     function __Helper.xyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[0]); end;

  574.     function __Helper.xyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[1]); end;

  575.     function __Helper.xyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[2]); end;

  576.     function __Helper.xyw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[1], self[3]); end;

  577.     function __Helper.xzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[0]); end;

  578.     function __Helper.xzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[1]); end;

  579.     function __Helper.xzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[2]); end;

  580.     function __Helper.xzw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[2], self[3]); end;

  581.     function __Helper.xwx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[3], self[0]); end;

  582.     function __Helper.xwy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[3], self[1]); end;

  583.     function __Helper.xwz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[3], self[2]); end;

  584.     function __Helper.xww: __IMPL.TVector3; begin result := __IMPL.Vector3(self[0], self[3], self[3]); end;

  585.     function __Helper.yxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[0], self[0]); end;

  586.     function __Helper.yxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[0], self[1]); end;

  587.     function __Helper.yxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[0], self[2]); end;

  588.     function __Helper.yxw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[0], self[3]); end;

  589.     function __Helper.yyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[1], self[0]); end;

  590.     function __Helper.yyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[1], self[1]); end;

  591.     function __Helper.yyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[1], self[2]); end;

  592.     function __Helper.yyw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[1], self[3]); end;

  593.     function __Helper.yzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[2], self[0]); end;

  594.     function __Helper.yzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[2], self[1]); end;

  595.     function __Helper.yzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[2], self[2]); end;

  596.     function __Helper.yzw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[2], self[3]); end;

  597.     function __Helper.ywx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[3], self[0]); end;

  598.     function __Helper.ywy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[3], self[1]); end;

  599.     function __Helper.ywz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[3], self[2]); end;

  600.     function __Helper.yww: __IMPL.TVector3; begin result := __IMPL.Vector3(self[1], self[3], self[3]); end;

  601.     function __Helper.zxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[0], self[0]); end;

  602.     function __Helper.zxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[0], self[1]); end;

  603.     function __Helper.zxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[0], self[2]); end;

  604.     function __Helper.zxw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[0], self[3]); end;

  605.     function __Helper.zyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[1], self[0]); end;

  606.     function __Helper.zyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[1], self[1]); end;

  607.     function __Helper.zyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[1], self[2]); end;

  608.     function __Helper.zyw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[1], self[3]); end;

  609.     function __Helper.zzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[2], self[0]); end;

  610.     function __Helper.zzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[2], self[1]); end;

  611.     function __Helper.zzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[2], self[2]); end;

  612.     function __Helper.zzw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[2], self[3]); end;

  613.     function __Helper.zwx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[3], self[0]); end;

  614.     function __Helper.zwy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[3], self[1]); end;

  615.     function __Helper.zwz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[3], self[2]); end;

  616.     function __Helper.zww: __IMPL.TVector3; begin result := __IMPL.Vector3(self[2], self[3], self[3]); end;

  617.     function __Helper.wxx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[0], self[0]); end;

  618.     function __Helper.wxy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[0], self[1]); end;

  619.     function __Helper.wxz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[0], self[2]); end;

  620.     function __Helper.wxw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[0], self[3]); end;

  621.     function __Helper.wyx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[1], self[0]); end;

  622.     function __Helper.wyy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[1], self[1]); end;

  623.     function __Helper.wyz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[1], self[2]); end;

  624.     function __Helper.wyw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[1], self[3]); end;

  625.     function __Helper.wzx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[2], self[0]); end;

  626.     function __Helper.wzy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[2], self[1]); end;

  627.     function __Helper.wzz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[2], self[2]); end;

  628.     function __Helper.wzw: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[2], self[3]); end;

  629.     function __Helper.wwx: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[3], self[0]); end;

  630.     function __Helper.wwy: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[3], self[1]); end;

  631.     function __Helper.wwz: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[3], self[2]); end;

  632.     function __Helper.www: __IMPL.TVector3; begin result := __IMPL.Vector3(self[3], self[3], self[3]); end;

  633. 

  634.     function __Helper.xxxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[0], self[0]); end;

  635.     function __Helper.xxxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[0], self[1]); end;

  636.     function __Helper.xxxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[0], self[2]); end;

  637.     function __Helper.xxxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[0], self[3]); end;

  638.     function __Helper.xxyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[1], self[0]); end;

  639.     function __Helper.xxyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[1], self[1]); end;

  640.     function __Helper.xxyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[1], self[2]); end;

  641.     function __Helper.xxyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[1], self[3]); end;

  642.     function __Helper.xxzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[2], self[0]); end;

  643.     function __Helper.xxzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[2], self[1]); end;

  644.     function __Helper.xxzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[2], self[2]); end;

  645.     function __Helper.xxzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[2], self[3]); end;

  646.     function __Helper.xxwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[3], self[0]); end;

  647.     function __Helper.xxwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[3], self[1]); end;

  648.     function __Helper.xxwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[3], self[2]); end;

  649.     function __Helper.xxww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[0], self[3], self[3]); end;

  650.     function __Helper.xyxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[0], self[0]); end;

  651.     function __Helper.xyxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[0], self[1]); end;

  652.     function __Helper.xyxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[0], self[2]); end;

  653.     function __Helper.xyxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[0], self[3]); end;

  654.     function __Helper.xyyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[1], self[0]); end;

  655.     function __Helper.xyyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[1], self[1]); end;

  656.     function __Helper.xyyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[1], self[2]); end;

  657.     function __Helper.xyyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[1], self[3]); end;

  658.     function __Helper.xyzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[2], self[0]); end;

  659.     function __Helper.xyzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[2], self[1]); end;

  660.     function __Helper.xyzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[2], self[2]); end;

  661.     function __Helper.xyzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[2], self[3]); end;

  662.     function __Helper.xywx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[3], self[0]); end;

  663.     function __Helper.xywy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[3], self[1]); end;

  664.     function __Helper.xywz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[3], self[2]); end;

  665.     function __Helper.xyww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[1], self[3], self[3]); end;

  666.     function __Helper.xzxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[0], self[0]); end;

  667.     function __Helper.xzxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[0], self[1]); end;

  668.     function __Helper.xzxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[0], self[2]); end;

  669.     function __Helper.xzxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[0], self[3]); end;

  670.     function __Helper.xzyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[1], self[0]); end;

  671.     function __Helper.xzyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[1], self[1]); end;

  672.     function __Helper.xzyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[1], self[2]); end;

  673.     function __Helper.xzyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[1], self[3]); end;

  674.     function __Helper.xzzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[2], self[0]); end;

  675.     function __Helper.xzzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[2], self[1]); end;

  676.     function __Helper.xzzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[2], self[2]); end;

  677.     function __Helper.xzzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[2], self[3]); end;

  678.     function __Helper.xzwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[3], self[0]); end;

  679.     function __Helper.xzwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[3], self[1]); end;

  680.     function __Helper.xzwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[3], self[2]); end;

  681.     function __Helper.xzww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[2], self[3], self[3]); end;

  682.     function __Helper.xwxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[0], self[0]); end;

  683.     function __Helper.xwxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[0], self[1]); end;

  684.     function __Helper.xwxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[0], self[2]); end;

  685.     function __Helper.xwxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[0], self[3]); end;

  686.     function __Helper.xwyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[1], self[0]); end;

  687.     function __Helper.xwyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[1], self[1]); end;

  688.     function __Helper.xwyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[1], self[2]); end;

  689.     function __Helper.xwyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[1], self[3]); end;

  690.     function __Helper.xwzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[2], self[0]); end;

  691.     function __Helper.xwzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[2], self[1]); end;

  692.     function __Helper.xwzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[2], self[2]); end;

  693.     function __Helper.xwzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[2], self[3]); end;

  694.     function __Helper.xwwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[3], self[0]); end;

  695.     function __Helper.xwwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[3], self[1]); end;

  696.     function __Helper.xwwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[3], self[2]); end;

  697.     function __Helper.xwww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[0], self[3], self[3], self[3]); end;

  698.     function __Helper.yxxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[0], self[0]); end;

  699.     function __Helper.yxxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[0], self[1]); end;

  700.     function __Helper.yxxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[0], self[2]); end;

  701.     function __Helper.yxxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[0], self[3]); end;

  702.     function __Helper.yxyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[1], self[0]); end;

  703.     function __Helper.yxyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[1], self[1]); end;

  704.     function __Helper.yxyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[1], self[2]); end;

  705.     function __Helper.yxyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[1], self[3]); end;

  706.     function __Helper.yxzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[2], self[0]); end;

  707.     function __Helper.yxzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[2], self[1]); end;

  708.     function __Helper.yxzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[2], self[2]); end;

  709.     function __Helper.yxzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[2], self[3]); end;

  710.     function __Helper.yxwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[3], self[0]); end;

  711.     function __Helper.yxwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[3], self[1]); end;

  712.     function __Helper.yxwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[3], self[2]); end;

  713.     function __Helper.yxww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[0], self[3], self[3]); end;

  714.     function __Helper.yyxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[0], self[0]); end;

  715.     function __Helper.yyxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[0], self[1]); end;

  716.     function __Helper.yyxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[0], self[2]); end;

  717.     function __Helper.yyxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[0], self[3]); end;

  718.     function __Helper.yyyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[1], self[0]); end;

  719.     function __Helper.yyyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[1], self[1]); end;

  720.     function __Helper.yyyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[1], self[2]); end;

  721.     function __Helper.yyyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[1], self[3]); end;

  722.     function __Helper.yyzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[2], self[0]); end;

  723.     function __Helper.yyzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[2], self[1]); end;

  724.     function __Helper.yyzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[2], self[2]); end;

  725.     function __Helper.yyzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[2], self[3]); end;

  726.     function __Helper.yywx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[3], self[0]); end;

  727.     function __Helper.yywy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[3], self[1]); end;

  728.     function __Helper.yywz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[3], self[2]); end;

  729.     function __Helper.yyww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[1], self[3], self[3]); end;

  730.     function __Helper.yzxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[0], self[0]); end;

  731.     function __Helper.yzxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[0], self[1]); end;

  732.     function __Helper.yzxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[0], self[2]); end;

  733.     function __Helper.yzxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[0], self[3]); end;

  734.     function __Helper.yzyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[1], self[0]); end;

  735.     function __Helper.yzyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[1], self[1]); end;

  736.     function __Helper.yzyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[1], self[2]); end;

  737.     function __Helper.yzyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[1], self[3]); end;

  738.     function __Helper.yzzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[2], self[0]); end;

  739.     function __Helper.yzzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[2], self[1]); end;

  740.     function __Helper.yzzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[2], self[2]); end;

  741.     function __Helper.yzzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[2], self[3]); end;

  742.     function __Helper.yzwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[3], self[0]); end;

  743.     function __Helper.yzwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[3], self[1]); end;

  744.     function __Helper.yzwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[3], self[2]); end;

  745.     function __Helper.yzww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[2], self[3], self[3]); end;

  746.     function __Helper.ywxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[0], self[0]); end;

  747.     function __Helper.ywxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[0], self[1]); end;

  748.     function __Helper.ywxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[0], self[2]); end;

  749.     function __Helper.ywxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[0], self[3]); end;

  750.     function __Helper.ywyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[1], self[0]); end;

  751.     function __Helper.ywyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[1], self[1]); end;

  752.     function __Helper.ywyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[1], self[2]); end;

  753.     function __Helper.ywyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[1], self[3]); end;

  754.     function __Helper.ywzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[2], self[0]); end;

  755.     function __Helper.ywzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[2], self[1]); end;

  756.     function __Helper.ywzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[2], self[2]); end;

  757.     function __Helper.ywzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[2], self[3]); end;

  758.     function __Helper.ywwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[3], self[0]); end;

  759.     function __Helper.ywwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[3], self[1]); end;

  760.     function __Helper.ywwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[3], self[2]); end;

  761.     function __Helper.ywww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[1], self[3], self[3], self[3]); end;

  762.     function __Helper.zxxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[0], self[0]); end;

  763.     function __Helper.zxxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[0], self[1]); end;

  764.     function __Helper.zxxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[0], self[2]); end;

  765.     function __Helper.zxxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[0], self[3]); end;

  766.     function __Helper.zxyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[1], self[0]); end;

  767.     function __Helper.zxyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[1], self[1]); end;

  768.     function __Helper.zxyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[1], self[2]); end;

  769.     function __Helper.zxyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[1], self[3]); end;

  770.     function __Helper.zxzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[2], self[0]); end;

  771.     function __Helper.zxzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[2], self[1]); end;

  772.     function __Helper.zxzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[2], self[2]); end;

  773.     function __Helper.zxzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[2], self[3]); end;

  774.     function __Helper.zxwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[3], self[0]); end;

  775.     function __Helper.zxwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[3], self[1]); end;

  776.     function __Helper.zxwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[3], self[2]); end;

  777.     function __Helper.zxww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[0], self[3], self[3]); end;

  778.     function __Helper.zyxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[0], self[0]); end;

  779.     function __Helper.zyxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[0], self[1]); end;

  780.     function __Helper.zyxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[0], self[2]); end;

  781.     function __Helper.zyxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[0], self[3]); end;

  782.     function __Helper.zyyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[1], self[0]); end;

  783.     function __Helper.zyyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[1], self[1]); end;

  784.     function __Helper.zyyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[1], self[2]); end;

  785.     function __Helper.zyyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[1], self[3]); end;

  786.     function __Helper.zyzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[2], self[0]); end;

  787.     function __Helper.zyzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[2], self[1]); end;

  788.     function __Helper.zyzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[2], self[2]); end;

  789.     function __Helper.zyzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[2], self[3]); end;

  790.     function __Helper.zywx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[3], self[0]); end;

  791.     function __Helper.zywy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[3], self[1]); end;

  792.     function __Helper.zywz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[3], self[2]); end;

  793.     function __Helper.zyww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[1], self[3], self[3]); end;

  794.     function __Helper.zzxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[0], self[0]); end;

  795.     function __Helper.zzxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[0], self[1]); end;

  796.     function __Helper.zzxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[0], self[2]); end;

  797.     function __Helper.zzxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[0], self[3]); end;

  798.     function __Helper.zzyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[1], self[0]); end;

  799.     function __Helper.zzyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[1], self[1]); end;

  800.     function __Helper.zzyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[1], self[2]); end;

  801.     function __Helper.zzyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[1], self[3]); end;

  802.     function __Helper.zzzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[2], self[0]); end;

  803.     function __Helper.zzzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[2], self[1]); end;

  804.     function __Helper.zzzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[2], self[2]); end;

  805.     function __Helper.zzzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[2], self[3]); end;

  806.     function __Helper.zzwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[3], self[0]); end;

  807.     function __Helper.zzwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[3], self[1]); end;

  808.     function __Helper.zzwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[3], self[2]); end;

  809.     function __Helper.zzww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[2], self[3], self[3]); end;

  810.     function __Helper.zwxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[0], self[0]); end;

  811.     function __Helper.zwxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[0], self[1]); end;

  812.     function __Helper.zwxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[0], self[2]); end;

  813.     function __Helper.zwxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[0], self[3]); end;

  814.     function __Helper.zwyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[1], self[0]); end;

  815.     function __Helper.zwyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[1], self[1]); end;

  816.     function __Helper.zwyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[1], self[2]); end;

  817.     function __Helper.zwyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[1], self[3]); end;

  818.     function __Helper.zwzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[2], self[0]); end;

  819.     function __Helper.zwzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[2], self[1]); end;

  820.     function __Helper.zwzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[2], self[2]); end;

  821.     function __Helper.zwzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[2], self[3]); end;

  822.     function __Helper.zwwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[3], self[0]); end;

  823.     function __Helper.zwwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[3], self[1]); end;

  824.     function __Helper.zwwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[3], self[2]); end;

  825.     function __Helper.zwww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[2], self[3], self[3], self[3]); end;

  826.     function __Helper.wxxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[0], self[0]); end;

  827.     function __Helper.wxxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[0], self[1]); end;

  828.     function __Helper.wxxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[0], self[2]); end;

  829.     function __Helper.wxxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[0], self[3]); end;

  830.     function __Helper.wxyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[1], self[0]); end;

  831.     function __Helper.wxyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[1], self[1]); end;

  832.     function __Helper.wxyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[1], self[2]); end;

  833.     function __Helper.wxyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[1], self[3]); end;

  834.     function __Helper.wxzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[2], self[0]); end;

  835.     function __Helper.wxzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[2], self[1]); end;

  836.     function __Helper.wxzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[2], self[2]); end;

  837.     function __Helper.wxzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[2], self[3]); end;

  838.     function __Helper.wxwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[3], self[0]); end;

  839.     function __Helper.wxwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[3], self[1]); end;

  840.     function __Helper.wxwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[3], self[2]); end;

  841.     function __Helper.wxww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[0], self[3], self[3]); end;

  842.     function __Helper.wyxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[0], self[0]); end;

  843.     function __Helper.wyxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[0], self[1]); end;

  844.     function __Helper.wyxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[0], self[2]); end;

  845.     function __Helper.wyxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[0], self[3]); end;

  846.     function __Helper.wyyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[1], self[0]); end;

  847.     function __Helper.wyyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[1], self[1]); end;

  848.     function __Helper.wyyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[1], self[2]); end;

  849.     function __Helper.wyyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[1], self[3]); end;

  850.     function __Helper.wyzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[2], self[0]); end;

  851.     function __Helper.wyzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[2], self[1]); end;

  852.     function __Helper.wyzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[2], self[2]); end;

  853.     function __Helper.wyzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[2], self[3]); end;

  854.     function __Helper.wywx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[3], self[0]); end;

  855.     function __Helper.wywy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[3], self[1]); end;

  856.     function __Helper.wywz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[3], self[2]); end;

  857.     function __Helper.wyww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[1], self[3], self[3]); end;

  858.     function __Helper.wzxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[0], self[0]); end;

  859.     function __Helper.wzxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[0], self[1]); end;

  860.     function __Helper.wzxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[0], self[2]); end;

  861.     function __Helper.wzxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[0], self[3]); end;

  862.     function __Helper.wzyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[1], self[0]); end;

  863.     function __Helper.wzyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[1], self[1]); end;

  864.     function __Helper.wzyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[1], self[2]); end;

  865.     function __Helper.wzyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[1], self[3]); end;

  866.     function __Helper.wzzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[2], self[0]); end;

  867.     function __Helper.wzzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[2], self[1]); end;

  868.     function __Helper.wzzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[2], self[2]); end;

  869.     function __Helper.wzzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[2], self[3]); end;

  870.     function __Helper.wzwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[3], self[0]); end;

  871.     function __Helper.wzwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[3], self[1]); end;

  872.     function __Helper.wzwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[3], self[2]); end;

  873.     function __Helper.wzww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[2], self[3], self[3]); end;

  874.     function __Helper.wwxx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[0], self[0]); end;

  875.     function __Helper.wwxy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[0], self[1]); end;

  876.     function __Helper.wwxz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[0], self[2]); end;

  877.     function __Helper.wwxw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[0], self[3]); end;

  878.     function __Helper.wwyx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[1], self[0]); end;

  879.     function __Helper.wwyy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[1], self[1]); end;

  880.     function __Helper.wwyz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[1], self[2]); end;

  881.     function __Helper.wwyw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[1], self[3]); end;

  882.     function __Helper.wwzx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[2], self[0]); end;

  883.     function __Helper.wwzy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[2], self[1]); end;

  884.     function __Helper.wwzz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[2], self[2]); end;

  885.     function __Helper.wwzw: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[2], self[3]); end;

  886.     function __Helper.wwwx: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[3], self[0]); end;

  887.     function __Helper.wwwy: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[3], self[1]); end;

  888.     function __Helper.wwwz: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[3], self[2]); end;

  889.     function __Helper.wwww: __IMPL.TVector4; begin result := __IMPL.Vector4(self[3], self[3], self[3], self[3]); end;

  890.     {$ENDIF}

  891. 

  892.     operator = (const v1, v2: __VEC): Boolean;

  893.     begin

  894.       result := __IMPL.Equals(v1, v2);

  895.     end;

  896.     {$IFDEF __HELPER_I}

  897.       function __HELPER_I.Length: Double;

  898.       begin

  899.         result := __IMPL.Length(self);

  900.       end;

  901. 

  902.       {$IF __SIZE <> 4}

  903.       function __HELPER_I.Add(const v: __VEC): __VEC;

  904.       begin

  905.         result := __IMPL.Add(self, v);

  906.       end;

  907. 

  908.       function __HELPER_I.Subtract(const v: __VEC): __VEC;

  909.       begin

  910.         result := __IMPL.Sub(self, v);

  911.       end;

  912.       {$ENDIF}

  913. 

  914.       function __HELPER_I.Multiply(const v: __IMPL.TBaseType): __VEC;

  915.       begin

  916.         result := __IMPL.Multiply(self, v);

  917.       end;

  918. 

  919.       {$IF __SIZE <> 4}

  920.       operator + (const v1, v2: __VEC): __VEC;

  921.       begin

  922.         result := __IMPL.Add(v1, v2);

  923.       end;

  924. 

  925.       operator - (const v1, v2: __VEC): __VEC;

  926.       begin

  927.         result := __IMPL.Sub(v1, v2);

  928.       end;

  929.       {$ENDIF}

  930.       {$IFDEF __HELPER_F}

  931.         function __HELPER_F.Normalize: __VEC;

  932.         begin

  933.           result := __IMPL.Normalize(self);

  934.         end;

  935. 

  936.         function __HELPER_F.Divide(const v: __IMPL.TBaseType): __VEC;

  937.         begin

  938.           result := __IMPL.Divide(self, v);

  939.         end;

  940. 

  941.         function __HELPER_F.Dot(const v: __VEC): __IMPL.TBaseType;

  942.         begin

  943.           result := __IMPL.Dot(self, v);

  944.         end;

  945. 

  946.         {$IF __SIZE <> 4}

  947.         function __HELPER_F.Angle(const v: __VEC): Double;

  948.         begin

  949.           result := __IMPL.Angle(self, v);

  950.         end;

  951.         {$ENDIF}

  952. 

  953.         {$IF __SIZE = 2}

  954.         function __HELPER_F.Angle2(const v: __VEC): Double;

  955.         begin

  956.           result := __IMPL.Angle2(self, v);

  957.         end;

  958.         {$ENDIF}

  959. 

  960.         function __HELPER_F.Clamp(const min, max: __VEC): __VEC;

  961.         begin

  962.           result := __IMPL.Clamp(self, min, max);

  963.         end;

  964. 

  965.         function __HELPER_F.Clamp(const min, max: __IMPL.TBaseType): __VEC;

  966.         begin

  967.           result := __IMPL.Clamp(self, min, max);

  968.         end;

  969. 

  970.         operator * (const v: __VEC; const s: __IMPL.TBaseType): __VEC;

  971.         begin

  972.           result := __IMPl.Multiply(v, s);

  973.         end;

  974. 

  975.         operator * (const s: __IMPL.TBaseType; const v: __VEC): __VEC;

  976.         begin

  977.           result := __IMPl.Multiply(v, s);

  978.         end;

  979. 

  980.         operator * (const v1, v2: __VEC): __IMPL.TBaseType;

  981.         begin

  982.           result := __IMPl.Dot(v1, v2);

  983.         end;

  984.       {$ENDIF}

  985.     {$ENDIF}

  986.   {$ENDIF}

  987. {$ENDIF}

  988. 

  989. {$UNDEF __IMPL}

  990. {$UNDEF __SIZE}

  991. {$UNDEF __VEC}

  992. {$UNDEF __HELPER}

  993. {$UNDEF __HELPER_I}

  994. {$UNDEF __HELPER_F}