[ALLY] I didn't make it to the bottom of his web page.

REBOL [ Title: "tamahori" Date: 23-OCT-2000 File: %tamahori.r Author: "chaz, based on Che Tamori" Email: [chaz--innocent--com] Purpose: { Not yet working partial REBOL port of Shockwave code on http://www.sfx.co.nz/tamahori/thought/shock_3d_howto.html Thanks to Gabriele for the Expression Evaluator. Hey, Star Trek fans, use this prompt! system/console/prompt: ["Computer, "] } Category: [view VID 3] ] points: [ [-50 50 -50] [50 50 -50] [-50 -50 -50] [50 -50 -50] [-50 50 50] [50 50 50] [-50 -50 50] [50 -50 50] ] max: func[ a b ][ either greater-or-equal? a b [ a ][b] ] min: func[ a b ][ either lesser-or-equal? a b [ a ][b] ] RotateXY: func [ xangle yangle points ][ foreach point points [ zpos: subtract multiply point/3 cosine yangle multiply point/1 sine yangle newpoint: copy [] append newpoint add multiply point/3 sine yangle multiply point/1 cosine yangle append newpoint add multiply point/2 sine xangle multiply zpos cosine xangle append newpoint subtract multiply point/2 cosine xangle multiply zpos sine xangle change point newpoint print point ] ] viewpoints: func [ { -- points: list of points -- xoff: x of the center of rotation onscreen -- yoff: y of the center of rotation onscreen -- depth: depth of perspective. 900 looks ok... } points xoff yoff depth ][ foreach point points [ scalar: divide 1 add divide multiply point/3 1 depth 1 print ["scalar: " scalar] xp: multiply point/1 scalar yp: multiply point/2 scalar print ["xp: " xp " yp:" yp] pcast: max min subtract 38 multiply 24 scalar 17 10 print ["pcast: " pcast] locH: add xp xoff locV: subtract yoff yp print [locH locV] ] ]