Sorry your browser is not supported!

Rook=300:Head=1:Body=2:Base=3:Bottom=4:HeadBase=5
make object plain Rook,0,0
`
make object cylinder Head,1:scale object Head,150,50,150
make mesh from object Head,Head
add limb Rook,Head,Head
offset limb Rook,Head,0,1.29,0
delete object Head:delete mesh Head
`
make object cylinder Body,1:scale object Body,50,200,50
make mesh from object Body,Body
add limb Rook,Body,Body
delete object Body:delete mesh Body
`
make object cone Base,1:scale object Base,200,30,200
make mesh from object Base,Base
add limb Rook,Base,Base
offset limb Rook,Base,0,-1,0
delete object Base:delete mesh Base
`
make object cylinder Bottom,1:scale object Bottom,200,30,200
make mesh from object Bottom,Bottom
add limb Rook,Bottom,Bottom
offset limb Rook,Bottom,0,-1.25,0
delete object Bottom:delete mesh Bottom
`
make object cone HeadBase,1:scale object HeadBase,150,-10,150
make mesh from object HeadBase,HeadBase
add limb Rook,HeadBase,HeadBase
offset limb Rook,HeadBase,0,1,0
delete object HeadBase:delete mesh HeadBase
`
scale object Rook,100,140,100
make mesh from object Rook,Rook
delete object Rook
make object Rook,Rook,0

Cutter=1000
make object cube Cutter,.4:scale object Cutter,100,100,10
make mesh from object Cutter,Cutter:delete object Cutter
make object Cutter,Cutter,0
convert object fvf Cutter,338
convert object fvf Rook,338

for Cuts=1 to 6
position object Cutter,0,2.2,0
yrotate object Cutter,Cuts*60
move object Cutter,.72
perform csg difference Rook,Cutter
next
delete mesh Rook
make mesh from object Rook,Rook
delete object Rook
make object Rook,Rook,0
set object cull Rook,0
set object diffuse Rook,rgb(60,100,150)
delete object Cutter
DISABLE OBJECT Zbias Rook

color backdrop rgb(130,62,78)
move camera -10
do
cx#=camera position x():cy#=camera position y():cz#=camera position z()
if mouseclick()<>0 then position camera cx#,cy#+(mousemovey()*.05),cz#
control camera using arrowkeys 0,.01,.1
set cursor 0,0
print "Arrowkeys to Move"
print "Click+Drag to Move Vertically"
LOOP

make object sphere 1,10
convert object fvf 1,338

make object cube 2,8
convert object fvf 2,338

perform csg difference 1,2
delete object 2
set object cull 1,0

do
control camera using arrowkeys 0,.01,.1  
LOOP

make object cone 1,10
convert object fvf 1,338
lock vertexdata for limb 1,0
set object cull 1,0:set object light 1,0:color backdrop rgb(30,20,30)
sync on:sync rate 50
make object cone 1,10
convert object fvf 1,338
lock vertexdata for limb 1,0
set object cull 1,0:set object light 1,0:color backdrop rgb(30,20,30)
DO
if timer()>t#
t#=timer()+300
c1=rnd(255):c2=rnd(255):c3=rnd(255):v=rnd(get vertexdata vertex count())
set vertexdata diffuse v,rgb(c1,c2,c3)    
ENDIF
xrotate object 1,object angle x(1)+1
yrotate object 1,object angle y(1)+1
zrotate object 1,object angle z(1)+1
sync
LOOP

autocam off
sync on
`main body
make object cylinder 20,5
`eight rings more to add to the main body as limbs
for i= 1 to 8
   make object cylinder i,5
   position object i,0,i*5,0
   make mesh from object i,i
   add limb 20,i,i
   offset limb 20,i,0,object position y(i),0
   delete object i
next i

`making a mesh of the whole object ...deleting and making new object with the new mesh
make mesh from object 1,20
delete object 20

make object 1,1,1

`moving each ring of vertex, where cylinders join, comparing height
lock vertexdata for limb 1,0
    vertices = get vertexdata vertex count()
    for i = 0 to vertices
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        if y#<0 then set vertexdata position i,x#*4.5,y#,z#*4.5
        if y#>-2 then set vertexdata position i,x#*4,y#,z#*4
        if y#>4 then set vertexdata position i,x#*3,y#-2,z#*3
        if y#>10 then set vertexdata position i,x#*2,y#+1,z#*2
        if y#>15 then set vertexdata position i,x#*1.2,y#-2,z#*1.2
        if y#>30 then set vertexdata position i,x#*1.7,y#-6,z#*1.7
        if y#>35 then set vertexdata position i,x#*1,y#-10,z#*1
        if y#>40 then set vertexdata position i,x#*1,y#-8,z#*1
    next i
unlock vertexdata
set object normals 1
set object smoothing 1,20

`head to add to the main body
make object sphere 2,12
position object 2,0,35,0
color ambient light rgb(80,5,5)


make mesh from object 1,1
add limb 2,1,1
offset limb 2,1,0,-36,0
delete object 1

`uniting all meshes in a single mesh and saving
make mesh from object 1,2
rem save mesh "chess pawn.x",1

position camera -30,40,-70
point camera 0,0,0
do
sync
loop