Weird Jelloy creature... not too hard; here's a quick knock up:
rem weird jelloy creature
rem latch
rem 05/23/2009
set display mode 800,600,32
sync on
sync rate 60
autocam off
make object cylinder 1,25
scale object 1,100,30,100
make mesh from object 1,1
for lmb=1 to 20
add limb 1,lmb,1
if lmb > 1
link limb 1,lmb,lmb-1
endif
offset limb 1,lmb,0,2,0
next lmb
delete mesh 1
hide limb 1,0
set ambient light 0
set object specular 1,rgb(255,255,255),50
`ghost object on 1
set object ambient 1,rgb(0,60,0)
set directional light 0,1,-.5,0
position camera 0,10,-50
sinc=2
s=90
ainc#=.3
do
if s > 150 then sinc=0-sinc
if s < 50 then sinc=0-sinc
inc s,sinc
scale limb 1,1,100,s,100
if abs(zang#) > 1 then ainc#=0-ainc#
inc zang#,ainc#
zchg#=curveangle(zchg#,zang#,10)
text 0,0,str$(zchg#)
for lmb=1 to 20
rotate limb 1,lmb,0,0,zchg#
next lmb
sync
loop
And since the specular is pretty high, when our wiggly friend looks around corners we can see how twisty, smooth and shiny he really is:
rem weird jelloy creature
rem latch
rem 05/23/2009
set display mode 800,600,32
sync on
sync rate 60
autocam off
make object cylinder 1,25
scale object 1,100,30,100
make mesh from object 1,1
for lmb=1 to 20
add limb 1,lmb,1
if lmb > 1
link limb 1,lmb,lmb-1
endif
offset limb 1,lmb,0,2,0
next lmb
delete mesh 1
hide limb 1,0
set ambient light 0
set object specular 1,rgb(255,255,255),50
`ghost object on 1
set object ambient 1,rgb(0,60,0)
set directional light 0,1,-.5,0
position camera 0,10,-50
sinc=2
s=90
ainc#=.1
do
if s > 150 then sinc=0-sinc
if s < 50 then sinc=0-sinc
inc s,sinc
`scale limb 1,1,100,s,100
if abs(zang#) > 10 then ainc#=0-ainc#
inc zang#,ainc#
zchg#=curveangle(zchg#,zang#,10)
text 0,0,str$(zchg#)
for lmb=1 to 20
rotate limb 1,lmb,0,zchg#,zchg#
next lmb
sync
loop
Enjoy your day.