Sorry your browser is not supported!

` In this code 1 to 170 are the original inside cubes for paths.
` The cubes point towards the next cube which turns the cubes  
` around a bend
` I have tried to Fix the pivot, but it doesn't work
` 2 to 7 are the next lanes that I am trying to make

for n1 = 2 to 7
for n = 1 to 170
make object cube counter2,0.3
`Path() is an array of X/Z path coordinates

 position object counter2,path(n,n1-1,1),-16,path(n,n1-1,2)
 set object to object orientation counter2,399 + n,1
 fix object pivot counter2
 yrotate object counter2,90
 move object counter2,1
 path(n,n1,1) = object position x(counter2)
 path(n,n1,2) = object position z(counter2)

inc counter2
next n
next n1

for n = 1 to 169
point object 399 + n,path(n+1,1,1),-16,path(n+1,1,2)
fix object pivot 399 + n
next n

makepaths:
Load array "Data/paths.data", path()
counter2 = 400
for n1 = 1 to 1
for n = 1 to 170
make object cube counter2,0.3

 position object counter2,path(n,n1,1),-16,path(n,n1,2)
inc counter2
next n
next n1

for n = 1 to 169
point object 399 + n,path(n+1,1,1),-16,path(n+1,1,2)
`fix object pivot 399 + n
next n

for n1 = 2 to 7
for n = 1 to 170
make object cube counter2,0.3

 position object counter2,path(n,n1-1,1),-16,path(n,n1-1,2)
 set object to object orientation counter2,399 + n
 `fix object pivot counter2
 yrotate object counter2,wrapvalue(object angle y(399+n) + 90)
 move object counter2,1
 path(n,n1,1) = object position x(counter2)
 path(n,n1,2) = object position z(counter2)

inc counter2
next n
next n1
`save array "Data/Paths.data",path()
Return

rem spring
rem by latch
rem 09/11/2008

set display mode 800,600,32
sync on
sync rate 0
autocam off

remstart
   a spring is just a big looping circle whose space increases
   (generally uniformly) as it loops,  So we need circle math
   for the x and z, and some kind of height increase for y for each
   level

   I'll use 50 iterations for each circle.  That means the y angle
   will increase by 360/50 each count.  I'll increase the height by
   2 and I'll have a radius of 100. How about 4 circles?
remend

circles=4
iterations=50
anginc#=360.0/iterations
ang#=0-anginc#
radius=100
htinc=2
y#=0-htinc
obj=0

c=50000

for spring=1 to circles
   for it=1 to iterations
      rem our object number
      inc obj

      rem circle math with an increasing y
      inc ang#,anginc#
      x#=radius*cos(ang#)
      inc y#,htinc
      z#=radius*sin(ang#)

      rem make a cube at the position and rotate it
      rem make 6 cubes around this cube
      inc c,6
      for newc=c to c+5
         inc nang,60
         make object cube newc,10
         position object newc,x#,y#,z#
         turn object right newc,wrapvalue(0-ang#)
         pitch object down newc,90
         turn object right newc,nang
         move object newc,10
         set object ambient newc,rgb(90,90,90)
         set object specular newc,rgb(255,255,255),40
      next newc
      nang=0
   next it
next spring

position camera 0,250,-250
set directional light 0,0,-1,1
sync

do
   move camera 250
   turn camera right 1
   move camera -250
   sync
loop

Dim path(170,7,2)
sync on
sync rate 0
autocam off

Gosub makepaths

Do
 Gosub positionCamera
sync
loop

makepaths:
	Load array "Data/paths.data", path()
	counter2 = 400
	for n1 = 1 to 1
		for n = 1 to 170
		   make object cube counter2,0.3
		   color object counter2,rgb(255,0,0)
		   position object counter2,path(n,n1,1),-16,path(n,n1,2)
		   inc counter2
		next n
	next n1

	for n = 1 to 169
	   point object 399 + n,path(n+1,1,1),-16,path(n+1,1,2)
	next n

	for n1 = 2 to 7
		for n = 1 to 170
			clone object counter2,399+n
			color object counter2,rgb(0,255,0)
			turn object right counter2,90
			move object counter2,(n1-1)*1
			inc counter2
		next n
	next n1
Return

positionCamera:
   control camera using arrowkeys 0,(0.1/screen fps())*((200-fov)/2),0.1*((200-fov)/2)
   smoothcamx# = ( smoothcamx# + mousemovey() )
   smoothcamy# = ( smoothcamy# + mousemovex() )
   xrotate camera ( camera angle x() + ( smoothcamx# - camera angle x() ) / 90.0 )
   yrotate camera ( camera angle y() + ( smoothcamy#/8.0 - camera angle y() ) / 90.0 )
Return

set display mode 1024,768,32

`set gamma 200,200,200

set normalization on

Dim path(170,7,2)
sync on
sync rate 0
`hide mouse
autocam off
Gosub makepaths

Do
Gosub positionCamera
sync
loop

makepaths:
Load array "Data/paths.data", path()
counter2 = 400
for n1 = 1 to 1
for n = 1 to 170
make object cube counter2,0.3

 position object counter2,path(n,n1,1),-16,path(n,n1,2)
inc counter2
next n
next n1

for n = 1 to 169
point object 399 + n,path(n+1,1,1),-16,path(n+1,1,2)
`fix object pivot 399 + n
next n

for n1 = 2 to 7
for n = 1 to 170
make object cube counter2,0.3

 position object counter2,path(n,n1-1,1),-16,path(n,n1-1,2)
 set object to object orientation counter2,399 + n
 `fix object pivot counter2
 yrotate object counter2,wrapvalue(object angle y(399+n) -90)
 move object counter2,1
 path(n,n1,1) = object position x(counter2)
 path(n,n1,2) = object position z(counter2)

inc counter2
next n
next n1
`save array "Data/Paths.data",path()
Return

positionCamera:
control camera using arrowkeys 0,(0.1/screen fps())*((200-fov)/2),0.1*((200-fov)/2)




      smoothcamx# = ( smoothcamx# + mousemovey() )
      smoothcamy# = ( smoothcamy# + mousemovex() )
      xrotate camera ( camera angle x() + ( smoothcamx# - camera angle x() ) / 90.0 )
      yrotate camera ( camera angle y() + ( smoothcamy#/8.0 - camera angle y() ) / 90.0 )


Return