21 { -1 -1 -21 } cut-solid
22 { -1 0 -12 } cut-solid
30 { -1 -1 -21 } cut-solid
31 { -1 0 -12 } cut-solid
40 { -1 1 -10 } cut-solid
41 { -1 -1 -28 } cut-solid
43 ! { 1 2 16 } cut-solid
54 { -1 0 -36 } cut-solid
56 { 0 -1 -17 } cut-solid
57 ! { 1 2 16 } cut-solid
69 { -1 0 -36 } cut-solid
71 { 0 -1 -17 } cut-solid
82 { -1 0 -17 } cut-solid
84 { 0 -1 -19 } cut-solid
95 { 1 -5 -66 } cut-solid
96 { -2 1 -75 } cut-solid
102 solid3 clone solid2 clone subtract
105 : space1 ( -- space )
108 ! solid3 suffix-solids
111 ! solid6s [ suffix-solids ] each
113 ! solid5 suffix-solids
115 { 1 1 1 } >>ambient-color
117 { -100 -100 } >>position
118 { 0.2 0.7 0.1 } >>color
122 : space2 ( -- space )
125 ! 4cube suffix-solids
126 { 1 1 1 } >>ambient-color
128 { -100 -100 } >>position
129 { 0.2 0.7 0.1 } >>color
139 ! { 0 0 0.984807753012208 -0.1736481776669303 }
140 ! { 0 0 0.1736481776669303 0.984807753012208 }
143 ! ------------------------------------------------------------
145 [ { 1 2 5 } ] [ { 1 2 3 } 2 constant+ ] unit-test
147 ! ------------------------------------------------------------
149 [ { 1 -1 0 } ] [ { 1 -1 -5 } { 3 -2 } translate ] unit-test
151 ! ------------------------------------------------------------
153 [ { -1 -1 -5 21.0 } ] [ { -1 -1 -5 21 }
160 ! ------------------------------------------------------------
161 ! compare-nleft-to-identity-matrix
167 3 compare-nleft-to-identity-matrix
171 { { 1 0 0 } { 0 1 0 } { 0 0 0 } }
172 3 compare-nleft-to-identity-matrix
176 { { 2 0 0 } { 0 1 0 } { 0 0 1 } }
177 3 compare-nleft-to-identity-matrix
179 ! ------------------------------------------------------------
183 { 0 0 1 } } 3 valid-solution?
189 { 0 0 1 0 } } 3 valid-solution?
194 { 0 0 0 1 } } 3 valid-solution?
200 { 0 0 1 0 } } 2 valid-solution?
203 ! ------------------------------------------------------------
204 [ 3 ] [ { 1 2 3 } last ] unit-test
206 [ { 1 2 5 } ] [ { 1 2 3 } dup [ 2 + ] change-last ] unit-test
208 ! ------------------------------------------------------------
211 { 1 -1 -5 } { 2 7 } position-point
214 ! ------------------------------------------------------------
217 ! TODO construire un exemple
220 ! ------------------------------------------------------------
223 ! ------------------------------------------------------------
225 ! deux cas de tests, avec solution et sans solution
228 [ { { 1 -1 -5 } { 1 2 16 } } intersect-hyperplanes ]
232 [ { { 1 -1 -5 } { 1 2 16 } { -1 -1 -21 } } intersect-hyperplanes ]
236 [ { { 1 0 -5 } { 1 0 16 } } intersect-hyperplanes ]
239 ! ------------------------------------------------------------
240 ! point-inside-halfspace
241 [ t ] [ { 1 -1 -5 } { 0 0 } point-inside-halfspace? ]
243 [ f ] [ { 1 -1 -5 } { 8 13 } point-inside-halfspace? ]
245 [ t ] [ { 1 -1 -5 } { 8 13 } point-inside-or-on-halfspace? ]
249 ! ------------------------------
252 [ 1 ] [ 0 >pv solid1 solid2 order-solid ] unit-test
253 [ -1 ] [ 0 >pv solid2 solid1 order-solid ] unit-test
254 [ f ] [ 1 >pv solid1 solid2 order-solid ] unit-test
255 [ f ] [ 1 >pv solid2 solid1 order-solid ] unit-test
259 [ { { 13 15 } { 15 13 } { 13 13 } } ]
260 [ 0 >pv solid2 solid1 clip-solid first corners>> ] unit-test
262 solid1 corners>> '[ _ ]
263 [ 0 >pv solid1 solid1 clip-solid first corners>> ] unit-test
265 solid1 corners>> '[ _ ]
266 [ 0 >pv solid1 solid2 clip-solid first corners>> ] unit-test
268 solid1 corners>> '[ _ ]
269 [ 1 >pv solid1 solid2 clip-solid first corners>> ] unit-test
270 solid2 corners>> '[ _ ]
271 [ 1 >pv solid2 solid1 clip-solid first corners>> ] unit-test
276 { { 13 15 } { 15 13 } { 13 13 } }
277 { { 16 17 } { 16 13 } { 36 17 } { 36 13 } }
278 { { 16 1 } { 16 2 } { 36 1 } { 36 2 } }
280 ] [ 0 >pv solid2 solid3 2array
281 solid1 (solids-silhouette-subtract)
288 { { 8 13 } { 2 7 } { 12 9 } { 12 2 } }
289 { { 13 15 } { 15 13 } { 13 13 } }
290 { { 16 17 } { 16 15 } { 36 17 } { 36 15 } }
291 { { 16 1 } { 16 2 } { 36 1 } { 36 2 } }
294 0 >pv <space> solid1 suffix-solids
298 solids>> [ corners>> ] map
303 ! <light> { 0.2 0.3 0.4 } >>color { 1 -1 1 } >>direction suffix
304 ! <light> { 0.4 0.3 0.1 } >>color { -1 -1 -1 } >>direction suffix
306 ! { 0.1 0.1 0.1 } suffix ! ambient color
307 ! { 0.23 0.32 0.17 } suffix ! solid color
308 ! solid3 faces>> first