Rotating Wireframe Cube - GameCreators Forum

Author

Message

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 6th Mar 2003 20:35

Link

Made using 2D commands. I have only figured out how to make it rotate around 1 axis, and some of the calculations could be optimised but I couldn't figure out how to.

rem **********************
rem *   WIREFRAME CUBE   *
rem **********************
rem * By Hamish McHaggis *
rem **********************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0:cube_z#=500:size#=300:eye#=200:rot_speed=2

rem Define arrays
dim x#(2,10):dim y#(2,10):dim z#(2,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0

rem Read co-ordinates into arrays
for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x):next x

sync on:hide mouse:do

rem Loop through the angles
for rot=1 to 360 step rot_speed
rem Loop through the vertices
for l=1 to 8
   rem Work out the vertices according to the angle of rotation
   x#(2,l)=(sin(rot)*z#(1,l)+cos(rot)*x#(1,l))*size#
   y#(2,l)=y#(1,l)*size#/4*3
   z#(2,l)=(cos(x#(1,l)*360-rot)*z#(1,l)+sin(x#(1,l)*360-rot)*x#(1,l))*size#+cube_z#
   rem Work out the placement of the vertices on the screen
   sx#(l)=320+x#(2,l)/((z#(2,l)+eye#)/eye#):sy#(l)=240-y#(2,l)/((z#(2,l)+eye#)/eye#)
next l

rem Connect vertices with lines
rem Vertical lines
for x=1 to 4
   line sx#(x),sy#(x),sx#(x+4),sy#(x+4)
next x
rem Horizontal lines
for x=0 to 1:for y=1 to 2
   line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x)
next y:next x

sync:cls:next rot
loop

+ Code Snippet

rem **********************
rem *   WIREFRAME CUBE   *
rem **********************
rem * By Hamish McHaggis *
rem **********************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0:cube_z#=500:size#=300:eye#=200:rot_speed=2

rem Define arrays
dim x#(2,10):dim y#(2,10):dim z#(2,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0

rem Read co-ordinates into arrays
for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x):next x

sync on:hide mouse:do

rem Loop through the angles
for rot=1 to 360 step rot_speed
rem Loop through the vertices
for l=1 to 8
   rem Work out the vertices according to the angle of rotation
   x#(2,l)=(sin(rot)*z#(1,l)+cos(rot)*x#(1,l))*size#
   y#(2,l)=y#(1,l)*size#/4*3
   z#(2,l)=(cos(x#(1,l)*360-rot)*z#(1,l)+sin(x#(1,l)*360-rot)*x#(1,l))*size#+cube_z#
   rem Work out the placement of the vertices on the screen
   sx#(l)=320+x#(2,l)/((z#(2,l)+eye#)/eye#):sy#(l)=240-y#(2,l)/((z#(2,l)+eye#)/eye#)
next l

rem Connect vertices with lines
rem Vertical lines
for x=1 to 4
   line sx#(x),sy#(x),sx#(x+4),sy#(x+4)
next x
rem Horizontal lines
for x=0 to 1:for y=1 to 2
   line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x)
next y:next x

sync:cls:next rot
loop

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

The Darthster

21

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 7th Mar 2003 00:13

Link

This is similar to what I used to do in QBasic. Looks good, seeing as you aren't using the 3D commands.

Once I was but the learner,
now, I am the Master.

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 7th Mar 2003 17:29

Link

yeah, the first version I did was in yabasic

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 7th Mar 2003 20:08

Link

Oh no

I was planning to do a similare programm

congratulations ^^

I'm following John, but I'm not john.
Lol, it is funnier in french

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 7th Mar 2003 20:47

Link

You could always make it better. Make it rotate around 2 axis! Or give it faces (I tried to learn all that dot product and matrix stuff but I just couldn't get my head around it).

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 8th Mar 2003 16:49

Link

Ha Ha! Too late! Heres my updated version with an "interactive interface" (sounds good but isn't) and rotation along multiple axis'.

DBC only (someone could try and tweek it if they like, it would be appeciated)...

rem ****************************
rem * THE SUPER CUBE SIMULATOR *
rem ****************************
rem *    By Hamish McHaggis    *
rem ****************************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0:cube_z#=500:size#=300:eye#=600:hide mouse

rem Define arrays
dim x#(4,10):dim y#(4,10):dim z#(4,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0:for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x)

rem Start loop then control rotation and other stuff
next x:sync on:do:if upkey()=1:eye#=eye#+1
endif:if downkey()=1 and eye#>1.0:eye#=eye#-1
endif:if leftkey()=1 and size#>1.0:size#=size#-1:endif
if rightkey()=1:size#=size#+1:endif:if inkey$()="x":x_rot#=x_rot#+1
endif:if inkey$()="z":x_rot#=x_rot#-1:endif:if inkey$()="s"
y_rot#=y_rot#+1:endif:if inkey$()="a":y_rot#=y_rot#-1:endif
if inkey$()="w":z_rot#=z_rot#+1:endif:if inkey$()="q":z_rot#=z_rot#-1
endif:center text 320,10,"THE SUPER CUBE SIMULATOR v1.0"

rem Write text
text 20,20,"View Point: "+str$(eye#):text 20,40,"Cube Size: "+str$(size#):text 20,60,"Rotation Rate    X: "+str$(x_rot#/10)+"   Y: "+str$(y_rot#/10)+"   Z: "+str$(z_rot#/10)

rem Loop through the angles then loop through the vertices
rot1#=wrapvalue(rot1#+y_rot#/10):rot2#=wrapvalue(rot2#+x_rot#/10):rot3#=wrapvalue(rot3#+z_rot#/10):for l=1 to 8

rem Work out the vertices according to the angle of rotation
x#(2,l)=(cos(rot1#)*x#(1,l)-sin(rot1#)*z#(1,l)):y#(2,l)=y#(1,l)/3*2:z#(2,l)=(sin(rot1#)*x#(1,l)+cos(rot1#)*z#(1,l))
x#(3,l)=x#(2,l):y#(3,l)=(cos(rot2#)*y#(2,l)-sin(rot2#)*z#(2,l)):z#(3,l)=(sin(rot2#)*y#(2,l)+cos(rot2#)*z#(2,l))
x#(4,l)=(cos(rot3#)*x#(3,l)-sin(rot3#)*y#(3,l))*size#:y#(4,l)=(sin(rot3#)*x#(3,l)+cos(rot3#)*y#(3,l))*size#:z#(4,l)=z#(3,l)*size#

rem Work out the placement of the vertices on the screen
sx#(l)=320+x#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):sy#(l)=240-y#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):next l

rem Connect vertices with lines
ink rgb(255,255,255),0:for x=1 to 4:line sx#(x),sy#(x),sx#(x+4),sy#(x+4):next x:for x=0 to 1
for y=1 to 2:line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x):next y:next x

sync:cls:loop

+ Code Snippet

rem ****************************
rem * THE SUPER CUBE SIMULATOR *
rem ****************************
rem *    By Hamish McHaggis    *
rem ****************************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0:cube_z#=500:size#=300:eye#=600:hide mouse

rem Define arrays
dim x#(4,10):dim y#(4,10):dim z#(4,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0:for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x)

rem Start loop then control rotation and other stuff
next x:sync on:do:if upkey()=1:eye#=eye#+1
endif:if downkey()=1 and eye#>1.0:eye#=eye#-1
endif:if leftkey()=1 and size#>1.0:size#=size#-1:endif
if rightkey()=1:size#=size#+1:endif:if inkey$()="x":x_rot#=x_rot#+1
endif:if inkey$()="z":x_rot#=x_rot#-1:endif:if inkey$()="s"
y_rot#=y_rot#+1:endif:if inkey$()="a":y_rot#=y_rot#-1:endif
if inkey$()="w":z_rot#=z_rot#+1:endif:if inkey$()="q":z_rot#=z_rot#-1
endif:center text 320,10,"THE SUPER CUBE SIMULATOR v1.0"

rem Write text
text 20,20,"View Point: "+str$(eye#):text 20,40,"Cube Size: "+str$(size#):text 20,60,"Rotation Rate    X: "+str$(x_rot#/10)+"   Y: "+str$(y_rot#/10)+"   Z: "+str$(z_rot#/10)

rem Loop through the angles then loop through the vertices
rot1#=wrapvalue(rot1#+y_rot#/10):rot2#=wrapvalue(rot2#+x_rot#/10):rot3#=wrapvalue(rot3#+z_rot#/10):for l=1 to 8

rem Work out the vertices according to the angle of rotation
x#(2,l)=(cos(rot1#)*x#(1,l)-sin(rot1#)*z#(1,l)):y#(2,l)=y#(1,l)/3*2:z#(2,l)=(sin(rot1#)*x#(1,l)+cos(rot1#)*z#(1,l))
x#(3,l)=x#(2,l):y#(3,l)=(cos(rot2#)*y#(2,l)-sin(rot2#)*z#(2,l)):z#(3,l)=(sin(rot2#)*y#(2,l)+cos(rot2#)*z#(2,l))
x#(4,l)=(cos(rot3#)*x#(3,l)-sin(rot3#)*y#(3,l))*size#:y#(4,l)=(sin(rot3#)*x#(3,l)+cos(rot3#)*y#(3,l))*size#:z#(4,l)=z#(3,l)*size#

rem Work out the placement of the vertices on the screen
sx#(l)=320+x#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):sy#(l)=240-y#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):next l

rem Connect vertices with lines
ink rgb(255,255,255),0:for x=1 to 4:line sx#(x),sy#(x),sx#(x+4),sy#(x+4):next x:for x=0 to 1
for y=1 to 2:line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x):next y:next x

sync:cls:loop

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 8th Mar 2003 16:59

Link

Ooops! Controls :

"q" and "w" = z axis rotation
"a" and "s" = y axis rotation
"z" and "x" = x axis rotation
arrows = cube size and view point adjustment

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

D Man

21

Years of Service

User Offline

Joined: 3rd Oct 2002

Location: Germany

Posted: 8th Mar 2003 22:07

Link

It works for DBP too if you use this code.

rem ****************************
rem * THE SUPER CUBE SIMULATOR *
rem ****************************
rem *    By Hamish McHaggis    *
rem ****************************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0 : cube_z#=500 : size#=300 : eye#=600 : hide mouse

rem Define arrays
dim x#(4,10):dim y#(4,10):dim z#(4,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0:for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x)

rem Start loop then control rotation and other stuff
next x : sync on : do : if upkey()=1 : eye#=eye#+1
endif : if downkey()=1 and eye#>1.0 : eye#=eye#-1
endif : if leftkey()=1 and size#>1.0 : size#=size#-1 : endif
if rightkey()=1:size#=size#+1 : endif : if inkey$()="x" : x_rot#=x_rot#+1
endif : if inkey$()="z" : x_rot#=x_rot#-1 : endif : if inkey$()="s"
y_rot#=y_rot#+1 : endif : if inkey$()="a" : y_rot#=y_rot#-1 : endif
if inkey$()="w" : z_rot#=z_rot#+1 : endif : if inkey$()="q" : z_rot#=z_rot#-1
endif : center text 320,10,"THE SUPER CUBE SIMULATOR v1.0"

rem Write text
text 20,20,"View Point: "+str$(eye#):text 20,40,"Cube Size: "+str$(size#):text 20,60,"Rotation Rate    X: "+str$(x_rot#/10)+"   Y: "+str$(y_rot#/10)+"   Z: "+str$(z_rot#/10)

rem Loop through the angles then loop through the vertices
rot1#=wrapvalue(rot1#+y_rot#/10):rot2#=wrapvalue(rot2#+x_rot#/10):rot3#=wrapvalue(rot3#+z_rot#/10):for l=1 to 8

rem Work out the vertices according to the angle of rotation
x#(2,l)=(cos(rot1#)*x#(1,l)-sin(rot1#)*z#(1,l)):y#(2,l)=y#(1,l)/3*2:z#(2,l)=(sin(rot1#)*x#(1,l)+cos(rot1#)*z#(1,l))
x#(3,l)=x#(2,l):y#(3,l)=(cos(rot2#)*y#(2,l)-sin(rot2#)*z#(2,l)):z#(3,l)=(sin(rot2#)*y#(2,l)+cos(rot2#)*z#(2,l))
x#(4,l)=(cos(rot3#)*x#(3,l)-sin(rot3#)*y#(3,l))*size#:y#(4,l)=(sin(rot3#)*x#(3,l)+cos(rot3#)*y#(3,l))*size#:z#(4,l)=z#(3,l)*size#

rem Work out the placement of the vertices on the screen
sx#(l)=320+x#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):sy#(l)=240-y#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):next l

rem Connect vertices with lines
ink rgb(255,255,255),0:for x=1 to 4:line sx#(x),sy#(x),sx#(x+4),sy#(x+4):next x:for x=0 to 1
for y=1 to 2:line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x):next y:next x

sync
cls
loop

+ Code Snippet

rem ****************************
rem * THE SUPER CUBE SIMULATOR *
rem ****************************
rem *    By Hamish McHaggis    *
rem ****************************

rem Setup cube and 'camera' attributes (fiddle around with them if you want)
ink rgb(255,255,255),0 : cube_z#=500 : size#=300 : eye#=600 : hide mouse

rem Define arrays
dim x#(4,10):dim y#(4,10):dim z#(4,10):dim sx#(10):dim sy#(10)

rem Set co-ordinates for cube's vertices
data 0.0,1.0,1.0,0.0,1.0,-1.0,1.0,1.0,0.0,-1.0,1.0,0.0,0.0,-1.0,1.0,0.0,-1.0,-1.0,1.0,-1.0,0.0,-1.0,-1.0,0.0:for x=1 to 8:read x#(1,x):read y#(1,x):read z#(1,x)

rem Start loop then control rotation and other stuff
next x : sync on : do : if upkey()=1 : eye#=eye#+1
endif : if downkey()=1 and eye#>1.0 : eye#=eye#-1
endif : if leftkey()=1 and size#>1.0 : size#=size#-1 : endif
if rightkey()=1:size#=size#+1 : endif : if inkey$()="x" : x_rot#=x_rot#+1
endif : if inkey$()="z" : x_rot#=x_rot#-1 : endif : if inkey$()="s"
y_rot#=y_rot#+1 : endif : if inkey$()="a" : y_rot#=y_rot#-1 : endif
if inkey$()="w" : z_rot#=z_rot#+1 : endif : if inkey$()="q" : z_rot#=z_rot#-1
endif : center text 320,10,"THE SUPER CUBE SIMULATOR v1.0"

rem Write text
text 20,20,"View Point: "+str$(eye#):text 20,40,"Cube Size: "+str$(size#):text 20,60,"Rotation Rate    X: "+str$(x_rot#/10)+"   Y: "+str$(y_rot#/10)+"   Z: "+str$(z_rot#/10)

rem Loop through the angles then loop through the vertices
rot1#=wrapvalue(rot1#+y_rot#/10):rot2#=wrapvalue(rot2#+x_rot#/10):rot3#=wrapvalue(rot3#+z_rot#/10):for l=1 to 8

rem Work out the vertices according to the angle of rotation
x#(2,l)=(cos(rot1#)*x#(1,l)-sin(rot1#)*z#(1,l)):y#(2,l)=y#(1,l)/3*2:z#(2,l)=(sin(rot1#)*x#(1,l)+cos(rot1#)*z#(1,l))
x#(3,l)=x#(2,l):y#(3,l)=(cos(rot2#)*y#(2,l)-sin(rot2#)*z#(2,l)):z#(3,l)=(sin(rot2#)*y#(2,l)+cos(rot2#)*z#(2,l))
x#(4,l)=(cos(rot3#)*x#(3,l)-sin(rot3#)*y#(3,l))*size#:y#(4,l)=(sin(rot3#)*x#(3,l)+cos(rot3#)*y#(3,l))*size#:z#(4,l)=z#(3,l)*size#

rem Work out the placement of the vertices on the screen
sx#(l)=320+x#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):sy#(l)=240-y#(4,l)/((z#(4,l)+cube_z#+eye#)/eye#):next l

rem Connect vertices with lines
ink rgb(255,255,255),0:for x=1 to 4:line sx#(x),sy#(x),sx#(x+4),sy#(x+4):next x:for x=0 to 1
for y=1 to 2:line sx#(y+4*x),sy#(y+4*x),sx#(y+2+4*x),sy#(y+2+4*x):line sx#(y+4*x),sy#(y+4*x),sx#((5-y)+4*x),sy#((5-y)+4*x):next y:next x

sync
cls
loop

"If you can't make it good
make it look good."
Bill Gates

Back to top

Profile PM Email

sinny

21

Years of Service

User Offline

Joined: 7th Feb 2003

Location:

Posted: 11th Mar 2003 05:39

Link

very good

http://www.darkbasicland.com

Back to top

Profile PM Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 13th Mar 2003 17:53

Link

Not on DB, I'd need DBP as that has a triangle command to fill the faces in. Also I'd need to get the hang of backface culling, and still that probably wouldn't fit on 20 lines.

Why the hell'd you ask me for crying out loud!?!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / Rotating Wireframe Cube