6 [(10,20)] [(5,14) (5,6) add] test
7 [(10,20,30)] [(5,14,23) (5,6,7) add] test
10 [(0,8,16)] [(5,14,23) (5,6,7) sub] test
12 [1170] [117 10 mul] test
13 [(15,42)] [(5,14) 3 mul] test
14 [(10,28)] [2 (5,14) mul] test
15 [(15,42,69)] [(5,14,23) 3 mul] test
16 [(10,28,46)] [2 (5,14,23) mul] test
17 [2.0] [(1,0) (2,3) mul] test
18 [6.0] [(1,0,1) (2,3,4) mul] test
20 % Stupid bug with vec3 dot product
21 [20.0] [(1,0,1) 1 add (2,4,6) mul] test
23 [0.125] [2 16 div] test
24 [(1,4,10)] [(2,8,20) 2 div] test
30 [(-1,-2)] [(1,2) neg] test
31 [(-1,-2,-3)] [(1,2,3) neg] test
51 [-1.0] [-2.0 (-1.0,10.0) clamp] test
52 [0.5] [0.5 (-1.0,10.0) clamp] test
53 [10.0] [22.0 (-1.0,10.0) clamp] test
55 "Logical operators" print
59 [0] [0.0 0.0 and] test
61 [1] [1.0 "hi" and] test
68 [1] [1.0 "hi" or] test
76 [126.42] [-126.42 abs] test
77 [5.0] [(3,4) abs] test
78 [129.0] [128.15 ceiling] test
79 [128.0] [128.95 floor] test
80 [-13.0] [-12.35 floor] test
81 [12.0] [12.34 trunc] test
83 [-12.0] [-12.35 trunc] test
84 [12.0] [12.34 round] test
85 [13.0] [12.64 round] test
86 [-12.0] [-12.35 round] test
87 [-13.0] [-12.65 round] test
92 [1000.0] [10 3 pow] test
94 [180.0] [-1 acos] test
96 [-90.0] [-1 asin] test
98 [-45.0] [-1 atan] test
100 [45.0] [1 1 atan2] test
101 [135.0] [1 -1 atan2] test
102 [-45.0] [-1 1 atan2] test
104 "Vector operations" print
105 [5.0] [(5.0,1.3) getX] test
106 [1.3] [(5.0,1.3) getY] test
107 [5.0] [(5.0,1.3,2.7) getX] test
108 [1.3] [(5.0,1.3,2.7) getY] test
109 [2.7] [(5.0,1.3,2.7) getZ] test
111 [(1.7,1.3)] [(5.0,1.3) 1.7 putX] test
112 [(5.0,1.7)] [(5.0,1.3) 1.7 putY] test
113 [(1.7,1.3,2.7)] [(5.0,1.3,2.7) 1.7 putX] test
114 [(5.0,1.7,2.7)] [(5.0,1.3,2.7) 1.7 putY] test
115 [(5.0,1.3,1.7)] [(5.0,1.3,2.7) 1.7 putZ] test
117 [(5.0,1.3)] [5.0 1.3 vector2] test
118 [(5.0,1.3,2.7)] [5.0 1.3 2.7 vector3] test
120 [(3.5,4.1,0.0)] [(1.0,0.0,0.0) (0.0,1.0,0.0) (3.5,4.1) planemul] test
122 [(0.0,0.0,1.0)] [(1.0,0.0,0.0) (0.0,1.0,0.0) cross] test
123 [(0.0,-1.0,0.0)] [(1.0,0.0,0.0) (0.0,0.0,1.0) cross] test
125 [(-0.0,1)] [(1,0) aNormal] test
126 [(-0.0,-1)] [(-1,0) aNormal] test
127 [(-1,0)] [(0,1) aNormal] test
128 [(1,0)] [(0,-1) aNormal] test
129 % [(0.0,1,0)] [(1,0,0) aNormal] test
130 % [(-0.0,-1,0)] [(-1,0,0) aNormal] test
131 % [(-1,0,0)] [(0,1,0) aNormal] test
132 % [(1,0,0)] [(0,-1,0) aNormal] test
133 % [(-1,0,0)] [(0,0,1) aNormal] test
134 % [(1,0,0)] [(0,0,-1) aNormal] test
136 [-2.0] [(1,2) (3,4) determinant] test
137 [0.0] [(1,2,3) (4,5,6) (7,8,9) determinant] test
138 [6.0] [(1,2,3) (4,5,6) (7,8,7) determinant] test
145 dup 1 le {pop 1} {dup 1 sub fib exch 2 sub fib add} ifelse
148 [121393] [25 fib] test
161 [121393] [25 fibreg] test
165 "Make sure nothing is left on the stack after the test" print
166 count [exch] [0] test