3D in 2D Cube

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|525\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Phoenix	Created : 20 March 2008 Edited : 24 January 2009 System : Windows Language : Blitz 3D in 2D Cube A classical and simple 3D effect made in 2D
\|edit\| Note: this snippet is really cheap. Oh well, might be useful anyway. \|edit\| Had a play with Blitz after making that file browsing code for Forklift_Fred: Graphics(400, 400, 0, 2) SetBuffer(BackBuffer()) While(Not KeyHit(1)) a = a + 1 DrawCube(150, 150, 100, a) Flip Cls Wend End Function DrawCube(x#, y#, s#, a#) x1# = x y1# = y x2# = x1+Cos(a)s y2# = y1+Sin(a)s x3# = x2+Cos(a+90)s y3# = y2+Sin(a+90)s x4# = x1+Cos(a+90)s y4# = y1+Sin(a+90)s ; Draw the first plane Line x1, y1, x2, y2 Line x2, y2, x3, y3 Line x3, y3, x4, y4 Line x4, y4, x1, y1 ; Draw another parallel plane Line x1+s, y1, x2+s, y2 Line x2+s, y2, x3+s, y3 Line x3+s, y3, x4+s, y4 Line x4+s, y4, x1+s, y1 ; Connect the two planes Line x1, y1, x1+s, y1 Line x2, y2, x2+s, y2 Line x3, y3, x3+s, y3 Line x4, y4, x4+s, y4 End Function --v

Comments