Scratch

So I was attempting wireframe 3d, and made a cube, and it was extremely glitchy. Here's a short version of the script without the rotation or camera if anyone can fix it, unless ill just have to start from scratch (haha)

when gf clicked

set [fl v] to [50]

set [xr v] to [0]

set [yr v] to [0]

set [zr v] to [0]

set [cx v] to [0]

set [cy v] to [0]

set [cz v] to [200]

forever  

if <key [left arrow v] pressed?> 

change [xr v] by (3)

end

if <key [right arrow v] pressed?> 

change [xr v] by (-3)

end

if <key [up arrow v] pressed?> 

change [yr v] by (3)

end

if <key [down arrow v] pressed?> 

change [yr v] by (-3)

end

pen down

set [i v] to [1]

set [xy v] to ((( [cos v] of (xr)) * (item (i) of [y v] )) - (( [sin v] of (xr)) * (item (i) of [z v] )))

set [xz v] to ((( [sin v] of (xr)) * (item (i) of [y v] )) + (( [cos v] of (xr)) * (item (i) of [z v] )))

set [yz v] to ((( [cos v] of (yr)) * (xz)) - (( [sin v] of (yr)) * (item (i) of [x v] )))

set [yx v] to ((( [sin v] of (xr)) * (xz)) + (( [cos v] of (yr)) * (item (i) of [x v] )))

set [zx v] to ((( [cos v] of (zr)) * (yx)) - (( [sin v] of (zr)) * (xy)))

set [zy v] to ((( [sin v] of (zr)) * (yx)) + (( [cos v] of (zr)) * (xy)))

change [i v] by (1)

set [sf v] to ((fl) / ((fl) + (((yz) - (cz)) + (item (i) of [z v] ))))

go to x: ((((zx) * (sf)) + (((cx) * (-1)) * (sf))) * (zoom)) y: ((((zy) * (sf)) + (((cx) * (-1)) * (sf))) * (zoom))

clear

end