Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / Neat little vine thingy..

Message
Posted: 7th Oct 2002 10:12
another experiment with my vine thing.
heres the code:
[Code]
sync on

TotalLimbs=100
Make object plain 1,3,7 : Color object 1,RGB(244,0,0)

`Make a mesh and first limb
Make mesh from object 1,1 : add limb 1,1,1 : color limb 1,1,RGB(0,128,0) : offset limb 1,1,0,-1,0

`make lotsa limbs
For x=2 to TotalLimbs
add limb 1,x,1 : color limb 1,1,RGB(255,0,0) : offset limb 1,x,0,-1,0 : link limb 1,x-1,x
next x

` ***************************************** LOOOOOOOOOOP ************************************
Do
gosub Vine_Action : gosub Camera
sync
loop
` *******************************************************************************************

Vine_Action:
limbRotation#=limbRotation#+0.02
For x=2 to TotalLimbs
color limb 1,x,RGB(rnd(255),0,0)
for z=2 to TotalLimbs/2
rotate limb 1,z,limbRotation#,0,limbRotation#-limbRotation#*2
next z

for z=TotalLimbs/2 to TotalLimbs
rotate limb 1,z,limbRotation#,0,limbRotation#
next z

next x

Camera:
rem Rotate around model
c#=wrapvalue(c#+0.09)
x#=cos(c#)*31.0
z#=sin(c#)*-31.0
position camera x#,-4,z#
point camera 0,0,0
return