Graphics3D 800,600,0,2 SetBuffer BackBuffer() camera=CreateCamera() CameraViewport camera,0,0,800,600 light=CreateLight() col=8 : row=11 : total_cube=col*row : num=0 : spacer_cube=4 : xoffset#=24.1 : yoffset#=17.7 total_hexa=9 : spacer_hexa#=2.5 Dim cube(total_cube) Dim hexa(total_hexa) x#=0 : y#=0 : depth=22 For columns = 1 To col For rows = 1 To row num=num+1 x#=rows*spacer_cube-xoffset# y#=columns*spacer_cube-yoffset# cube(num)=CreateCube() PositionEntity cube(num),x#,y#,depth EntityColor cube(num),100,255,255 Next Next x#=-5.5 : y#=0 : depth=8 : offset_hex=8 For hexs=1 To total_hexa hexa(hexs)=CreateCube() y#=hexs*spacer_hexa#-offset_hex PositionEntity hexa(hexs),x#,y#,depth EntityColor hexa(hexs),100,100,255 Next speed#=.03 While Not KeyHit(1) For reps=1 To total_cube TurnEntity cube(reps),.5,1.2,1.3 Next For reps=1 To total_hexa TurnEntity hexa(reps),0,1,0 MoveEntity hexa(reps),0,-speed#,0 If EntityY(hexa(reps)) <-10 Then PositionEntity hexa(reps),x#,12.5,depth Next RenderWorld Flip Wend End
Can some one please help me a little with demo, I am in the process of making a graphic demo. It is a conversion from one of my Amiga creations way back in 1993!!! :)
I am having a little trouble in one part that I am trying to do.
I am trying to create a plane (square panel) in the background to cover the whole area so you can't see any of the black part of the screen. It is to be further in the background than the small cubes so that when I move the light source about you will see shadows from the cubes on it, everytime I use the create plane command it doesn't show on the screen?????
Any ideas please :)
Retro rulez :))