Sorry your browser is not supported!

autocam off
sync on
hide mouse
rem robot texture
ink rgb(20,20,20),1
    box 0,0,50,50
ink rgb(60,60,60),1
    box 10,10,40,40
    get image 1,0,0,50,50
    ink rgb(90,90,90),1
    box 0,0,50,50
ink rgb(70,70,70),1
    box 5,5,45,45
get image 2,0,0,50,50
rem =================================================
rem      NUMBER TEXTURE
cls
ink rgb(2,2,2),1
for i= 1 to 120
  ellipse 10+i,30,2,12
next i

ink rgb(255,255,255),1
for i= 1 to 115
  ellipse 12+i,30,2,10
next i

ink rgb(5,5,5),0
set cursor 15,24
print " L Z H A  120 "
get image 10,8,19,132,45,1
rem suelo
make object box 500,2200,1,2200
position object 500,0,-100,0
texture object 500,2:scale object texture 500,30,30
rem -------------------------------------------------
rem      CREATING DIFFERENTS PARTS
make object box 2, 11,50,11
make object box 3, 15,35,15
position object 3,0,0,5
make object box 4,7,40,11
perform csg difference 2,3
perform csg difference 2,4
delete object 3
delete object 4
make object cylinder 3,8
scale object 3,100,550,100
scale limb texture 3,0,1,5
offset limb 3,0,0,-4,0
make mesh from object 10,3
add limb 2,1,10
delete object 3
delete mesh 10
offset limb 2,0,0,-25,5
offset limb 2,1,0,0,5
make mesh from object 1,2                      rem mesh for legs
delete object 2

make object box 2,15,5,25                      rem foot
make object box 3,25,8,55
position object 3,-18,0,15
yrotate object 3,8
perform csg difference 2,3
yrotate object 3,-8
position object 3,18,0,15
perform csg difference 2,3
delete object 3
offset limb 2,0,0,-5,-9
delete object 3
make mesh from object 2,2

make object sphere 3,10
scale object texture 3,20,20
make mesh from object 10,3                      rem mesh for leg`s balls
delete object 3
delete object 2
rem --------------------------------------------
make object 2,2,1  :scale object texture 2,2,2  rem right leg
make object 3,2,1  :scale object texture 3,2,2  rem left leg
make object sphere 4,15                         rem right leg ball
make object sphere 5,15                         rem left leg ball
color object 4,rgb(70,40,0)
color object 5,rgb(70,40,0)
rem -------------------------------------------------------------
rem   guns
for i= 1 to 12
   make object box 100+i,1,1,35
   zrotate object 100+i,i*30
   offset limb 100+i,0,2.3,0,0
   make mesh from object 100+i,100+i
   delete object 100+i
next i

make object 21,101,1
for i= 2 to 12
  add limb 21,i-1,100+i
  delete mesh 100+i
next i

scale object 21,200,200,200
scale object texture 21,2,1
make mesh from object 30,21
delete object 21

rem ------------------------------------------------------------
make object box 1,40,14,14
rem right leg
add limb 1,1,1 :link limb 1,0,1:offset limb 1,1,-14,0,-5
add limb 1,2,1:link limb 1,1,2:offset limb 1,2,0,-50,0
add limb 1,3,10:link limb 1,2,3:offset limb 1,3,0,-50,5

rem left leg
add limb 1,4,1:link limb 1,0,4:offset limb 1,4,14,0,-5
add limb 1,5,1:link limb 1,4,5:offset limb 1,5,0,-50,0
add limb 1,6,10:link limb 1,5,6:offset limb 1,6,0,-50,5


rem  body  --------------------------------------------
make object sphere 10,100
lock vertexdata for limb 10,0
    for i = 1 to 25
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#+25,z#
    next i
unlock vertexdata
rem set object normals 10
scale object 10,100,50,100
scale limb texture 10,0,5,5
offset limb 10,0,0,0,-20
make mesh from object 10,10
delete object 10
rem   NUMBER --------------------------------------------
make object box 50,30,10,0
offset limb 50,0,0,0,-8
texture object 50,10
set object 50,1,1,1,1
position object 50,0,-10,-30
rem -----------------------------------------------------

add limb 1,7,10: link limb 1,0,7              rem body  (big sphere)
add limb 1,8,30:link limb 1,7,8:offset limb 1,8,-25,-25,-40 rem gun
add limb 1,9,30:link limb 1,7,9:offset limb 1,9,25,-25,-40 rem gun
texture object 1,1
scale object texture 1,2,1
rem -----------------------------------------------------------------
position camera -99,15,-147
point camera 0,0,0
cam#=45
rem  this part of code is not mine ...someone on TGC Forum
Make Memblock 1, 1000
` Make the header for the sound inside the memblock
write memblock dword 1, 0, 1      ` wFormatTag
write memblock dword 1, 4, 1      ` nChannels
write memblock dword 1, 8, 22050  ` nSamplesPerSec
write memblock dword 1, 12, 44100 ` nAvgBytesPerSec
write memblock dword 1, 16, 2     ` nBlockAlign
write memblock dword 1, 20, 16    ` wBitsPerSample
write memblock dword 1, 24, 0     ` cbSize

` write crazy random data to memblock
for i = 28 to 999
   Write Memblock Byte  1, i, rnd( 255 )
next

` Convert the memblock to a sound
Make Sound From Memblock 1, 1
make sound from memblock 2,1
rem --------------------------------------------------------------------------
do
position object 50,object position x(1),-10,object position z(1)
rotate object 50,limb angle x(1,0)*1.5,limb angle y(1,0)*1.5,limb angle z(1,0)*1.1
rem scroll floor texture
scll#=0.0031
scroll object texture 500,0,scll#

rem -----------------------------------------------------------------------------
rem positioning copper ball on knees and feet
position object 2,limb position x(1,3),limb position y(1,3),limb position z(1,3)
position object 3,limb position x(1,6),limb position y(1,6),limb position z(1,6)
position object 4,limb position x(1,2),limb position y(1,2),limb position z(1,2)+5
position object 5,limb position x(1,5),limb position y(1,5),limb position z(1,5)+5
`---------------------------------------------------------
`Animation
al#=al#+1  rem timer to make body go up and down (limb 7)
if al#>300 then al#=0
if al#<150 then ss#=ss#+0.6
if al#>150 then ss#=ss#-0.6
offset limb 1,7,0,20+ss#/30,0
`---------------------------------------------------------

m=m+1    rem timer for animation

if m<300 then g#=g#+0.6
if m>300 then g#=g#-0.6
if m>599 then m=0
if g#<0 then g#=0           rem stop
rem  sound effects ++++++++++++++++++++++++++++++++
set sound speed 1,1000
if m<5 then play sound 1
if m>300 and m<305 then play sound 1
loop sound 2
set sound speed 2,10000+ss#*20:set sound volume 2,90
rem ++++++++++++++++++++++++++++++++++++++++++++++++
if m>150 and m<300 then g2#=g2#+0.5
if m<150 then g2#=g2#-0.5
if m=0 then g2#=0:g3#=0

if m>450 then g3#=g3#+0.5
if m>300 and m<450 then g3#=g3#-0.5

rem ---------------------------------------------------------
vl#=-15+g#/6
vl2#=g2#/2
vl3#=g3#/2
rotate limb 1,1,-30+vl#*1.5,10,0+2-vl#/2.5-5-vl#/10   rem right leg
rotate limb 1,4,-30-vl#*1.5,-10,-2-vl#/2.5+5-vl#/10   rem left leg
rotate limb 1,2,50-vl2#*2,0,10                        rem right knee
rotate limb 1,5,50-vl3#*2,0,-10                       rem left knee

rotate limb 1,0,0,0,(g#-100)/10                       rem waist limb 0
rotate limb 1,7,ss#/10,-5+g#/10,0                     rem twist (limb 7)
rem ajusting feet rotation with feet height
u#=object position y(2)
u2#=object position y(3)
xrotate object 2,-u#*0.6-55                           rem right foot
xrotate object 3,-u2#*0.6-55                          rem left foot

rem camera controls
control camera using arrowkeys 0,0.4,0.4
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

sync
loop

Rem Project: testanims
Rem Created: Saturday, January 14, 2012
Rem ***** Main Source File ****

`note this example uses a global array for storing image data
`loadimagetodata("texture.bmp","test",1,1,25,25)
`end
`These data statements can be copied to your darkbasic application
`Coded by SoftMotion(c)2012 as freeware!
`[memblock size]

global anim
anim=0
global direction
direction=0
global vertcnt




autocam off
sync on
sync rate 60

data 2512
data 25,0,0,0,25,0,0,0,32,0
data 0,0,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 70,70,70,255,70,70,70,255,70,70
data 70,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,70,70,70,255,70,70,70,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,70,70,70,255
data 255,255,255,255,255,255,255,255,255,255
data 255,255,70,70,70,255,0,242,255,255
data 0,242,255,255,0,242,255,255,70,70
data 70,255,255,255,255,255,255,255,255,255
data 70,70,70,255,70,70,70,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,70,70,70,255
data 255,255,255,255,255,255,255,255,255,255
data 255,255,70,70,70,255,0,242,255,255
data 0,242,255,255,0,242,255,255,70,70
data 70,255,255,255,255,255,255,255,255,255
data 70,70,70,255,70,70,70,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,70,70,70,255
data 255,255,255,255,255,255,255,255,255,255
data 255,255,70,70,70,255,0,242,255,255
data 0,242,255,255,0,242,255,255,70,70
data 70,255,255,255,255,255,255,255,255,255
data 70,70,70,255,70,70,70,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,70,70,70,255
data 255,255,255,255,255,255,255,255,70,70
data 70,255,70,70,70,255,0,242,255,255
data 0,242,255,255,0,242,255,255,70,70
data 70,255,70,70,70,255,255,255,255,255
data 70,70,70,255,70,70,70,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,70,70,70,255
data 255,255,255,255,255,255,255,255,70,70
data 70,255,70,70,70,255,0,242,255,255
data 0,242,255,255,0,242,255,255,70,70
data 70,255,70,70,70,255,255,255,255,255
data 70,70,70,255,70,70,70,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 70,70,70,255,70,70,70,255,70,70
data 70,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,70,70,70,255,70,70,70,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 70,70,70,255,70,70,70,255,70,70
data 70,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,70,70,70,255,70,70,70,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,0,0,0
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,0,0,0,0,0,0,0,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,0,0,0
data 0,0,0,0,0,0,0,0,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,0,0,0
data 0,0,0,0,0,0,0,0,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,0,0,0
data 0,0,0,0,0,0,0,0,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,0,0,0
data 0,0,0,0,0,0,0,0,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255,0,242,255,255,0,242,255,255
data 0,242,255,255,0,242,255,255,0,242
data 255,255
`[End data statements]

makeimagefromdata(1,1,1)

make object box 1,100,100,100
texture object 1,1


`create vertex animation
lock vertexdata for limb 1,0
vertcnt=get vertexdata vertex count()
indexcnt=get vertexdata index count()

global dim animationverts#(vertcnt,30,2)

`make dumby box
make object box 2,1,1,1
hide object 2




`create animation
`frame 0
for vrc=0 to vertcnt-1 step 1
      pt1#=get vertexdata position x(vrc)
      pt2#=get vertexdata position y(vrc)
      pt3#=get vertexdata position z(vrc)
      `far#=distance#(0,0,0,pt1,pt2,pt3)
      `position object 2,0,0,0
      `point object 2,pt1#,pt2#,pt3#
      `if get vertexdata position y(vrc)<0 then yrotate object 2,wrapvalue(object angle y(2)+(aa*5))
      `if get vertexdata position y(vrc)>0 then yrotate object 2,wrapvalue(object angle y(2)-(aa*5))
      `move object 2,far#
      animationverts#(vrc,0,0)=pt1#
      animationverts#(vrc,0,1)=pt2#
      animationverts#(vrc,0,2)=pt3#
next vrc





`rotate first set
for aa=1 to 10 step 1
   for vrc=0 to vertcnt-1 step 1
      pt1#=get vertexdata position x(vrc)
      pt2#=get vertexdata position y(vrc)
      pt3#=get vertexdata position z(vrc)
      far#=distance#(0,pt2#,0,pt1#,pt2#,pt3#)
      position object 2,0,pt2#,0
      point object 2,pt1#,pt2#,pt3#
      if get vertexdata position y(vrc)<0 then rotate object 2,0,wrapvalue(object angle y(2)-(aa*2)),0
      if get vertexdata position y(vrc)>0 then rotate object 2,0,wrapvalue(object angle y(2)+(aa*2)),0
      move object 2,far#
      animationverts#(vrc,aa,0)=object position x(2)
      animationverts#(vrc,aa,1)=object position y(2)
      animationverts#(vrc,aa,2)=object position z(2)
   next vrc
next aa


`rotate second set
for aa=1 to 10 step 1
   for vrc=0 to vertcnt-1 step 1
      pt1#=get vertexdata position x(vrc)
      pt2#=get vertexdata position y(vrc)
      pt3#=get vertexdata position z(vrc)
      far#=distance#(0,pt2#,0,pt1#,pt2#,pt3#)
      position object 2,0,pt2#,0
      point object 2,pt1#,pt2#,pt3#
      if get vertexdata position y(vrc)<0 then rotate object 2,0,wrapvalue(object angle y(2)-20+(aa*2)),0
      if get vertexdata position y(vrc)>0 then rotate object 2,0,wrapvalue(object angle y(2)+20-(aa*2)),0
      move object 2,far#
      animationverts#(vrc,aa+10,0)=object position x(2)
      animationverts#(vrc,aa+10,1)=object position y(2)
      animationverts#(vrc,aa+10,2)=object position z(2)
   next vrc
next aa

`rotate third set
for aa=1 to 10 step 1
   for vrc=0 to vertcnt-1 step 1
      pt1#=get vertexdata position x(vrc)
      pt2#=get vertexdata position y(vrc)
      pt3#=get vertexdata position z(vrc)
      far#=distance#(0,pt2#,0,pt1#,pt2#,pt3#)
      position object 2,0,pt2#,0
      point object 2,pt1#,pt2#,pt3#
      if get vertexdata position y(vrc)<0 then rotate object 2,0,wrapvalue(object angle y(2)+(aa*2)),0
      if get vertexdata position y(vrc)>0 then rotate object 2,0,wrapvalue(object angle y(2)-(aa*2)),0
      move object 2,far#
      animationverts#(vrc,aa+20,0)=object position x(2)
      animationverts#(vrc,aa+20,1)=object position y(2)
      animationverts#(vrc,aa+20,2)=object position z(2)
   next vrc
next aa

unlock vertexdata
delete object 2

position camera 0,0,-500
point camera 0,0,0

speed=50
time=timer()
do
yrotate object 1,wrapvalue(object angle y(1)+.5)
xrotate object 1,wrapvalue(object angle x(1)+.5)
zrotate object 1,wrapvalue(object angle z(1)+.5)

if time+speed<timer() then time=timer():updateanimation()
position camera 0,0,-500
point camera 0,0,0
texture object 1,1:show object 1
set cursor 1,1:print "animation sequence="+str$(anim)+ " speed ms="+str$(speed)
set cursor 1,20:print "press spacekey to save object as dbo with animation and texture"
if spacekey()=1 then goto nextsection
sync
loop

nextsection:
`create 2 memblocks
`
if memblock exist(1)=1 then delete memblock 1
if memblock exist(2)=1 then delete memblock 2
if memblock exist(3)=1 then delete memblock 3

make memblock from image 1,1
make memblock from array 2,animationverts#(0)
length1=get memblock size(1)
length2=get memblock size(2)

make memblock 3,length1+length2+16
`save image first
`a dword = 8 bytes
pointer=0
write memblock dword 3,pointer,length1
pointer=pointer+8
`write memblock data
for t=0 to length1-1 step 1
write memblock byte 3,pointer,memblock byte(1,t)
pointer=pointer+1
next t

`write animation to same memblock
write memblock dword 3,pointer,length2
pointer=pointer+8
`write memblock data 2
for t=0 to length2-1 step 1
write memblock byte 3,pointer,memblock byte(2,t)
pointer=pointer+1
next t

`done
`now lets save the dbo file


add memblock to object 3,1

if file exist("test.dbo")=1 then delete file "test.dbo"

`reset frame to 0
resetanimation()

sync

save object "test.dbo",1

`ok done

`lets delete the scene

if object exist(1)=1 then delete object 1
if image exist(1)=1 then delete image 1
load object "test.dbo",1

`now lets extract the memblock
if memblock exist(1)=1 then delete memblock 1
get memblock from object 1,1



`now lets split the memblock into 2 (texture data first)
pointer=0
length1=memblock dword(1,0)
pointer=pointer+8
if memblock exist(2)=1 then delete memblock 2
make memblock 2,length1
for t=0 to length1-1 step 1
write memblock byte 2,t,memblock byte(1,pointer)
pointer=pointer+1
next t


`lets extract memblock 2 (animation)
length2=memblock dword(1,pointer)
pointer=pointer+8
if memblock exist(3)=1 then delete memblock 3
make memblock 3,length2
for t=0 to length2-1 step 1
write memblock byte 3,t,memblock byte(1,pointer)
pointer=pointer+1
next t

`now lets work with the 2 memblocks
make array from memblock animationverts#(0),3
make image from memblock 1,2
texture object 1,1


position camera 0,0,-500
point camera 0,0,0

speed=50
time=timer()
sleep 500
do
yrotate object 1,wrapvalue(object angle y(1)+.5)
xrotate object 1,wrapvalue(object angle x(1)+.5)
zrotate object 1,wrapvalue(object angle z(1)+.5)

if time+speed<timer() then time=timer():updateanimation()
position camera 0,0,-500
point camera 0,0,0
texture object 1,1:show object 1
set cursor 1,1:print "loaded the memblocks from dbo and now playing!"
set cursor 1,20:print "press spacekey to make our own 3d format using memblocks"
if spacekey()=1 then goto nextsection2
sync
loop

nextsection2:
`ok so that worked...
`now lets make a memblock from that dbo file we made and name it
`something else and add extra data


open to read 1,"test.dbo"
if memblock exist(4)=1 then delete memblock 4
make memblock from file 4,1
close file 1

if file exist("myownformat.cc")=1 then delete file "myownformat.cc"

open to write 1,"myownformat.cc"
write string 1,"This is my own cool format"
write string 1,"My character stats  health |100 speed |50 attacklevel |5"
write string 1,"here is the dbo file next"
write memblock 1,4
close file 1

`ok we are done and the file should be made


`now lets load our new format in :p
sleep 500
if object exist(1)=1 then delete object 1
if memblock exist(1)=1 then delete memblock 1
if memblock exist(2)=1 then delete memblock 2
if memblock exist(3)=1 then delete memblock 3
if memblock exist(4)=1 then delete memblock 4
if image exist(1)=1 then delete image 1

open to read 1,"myownformat.cc"
read string 1,dumby$
read string 1,pullstats$
speed1=findvalue1#(pullstats$,"speed"," |")
health1=findvalue1#(pullstats$,"health"," |")
attack1=findvalue1#(pullstats$,"attacklevel"," |")
read string 1,dumby$
`ok now the dbo file
read memblock 1,1
close file 1

`now lets make a temp dbo file
`load it
`then delete it as if it was never there

if file exist("hide.dbo")=1 then delete file "hide.dbo"
open to write 1,"hide.dbo"
make file from memblock 1,1
close file 1

if object exist(1)=1 then delete object 1
load object "hide.dbo",1
delete file "hide.dbo"
`deleted hidden file just created



`ok done

`lets extract the memblocks
if image exist(1)=1 then delete image 1
if memblock exist(1)=1 then delete memblock 1
get memblock from object 1,1

`now lets split the memblock into 2 (texture data first)
pointer=0
length1=memblock dword(1,0)
pointer=pointer+8
if memblock exist(2)=1 then delete memblock 2
make memblock 2,length1
for t=0 to length1-1 step 1
write memblock byte 2,t,memblock byte(1,pointer)
pointer=pointer+1
next t


`lets extract memblock 2 (animation)
length2=memblock dword(1,pointer)
pointer=pointer+8
if memblock exist(3)=1 then delete memblock 3
make memblock 3,length2
for t=0 to length2-1 step 1
write memblock byte 3,t,memblock byte(1,pointer)
pointer=pointer+1
next t

`now lets work with the 2 memblocks
make array from memblock animationverts#(0),3
make image from memblock 1,2
texture object 1,1


position camera 0,0,-500
point camera 0,0,0

speed=50
time=timer()
sleep 500
do
yrotate object 1,wrapvalue(object angle y(1)+.5)
xrotate object 1,wrapvalue(object angle x(1)+.5)
zrotate object 1,wrapvalue(object angle z(1)+.5)

if time+speed<timer() then time=timer():updateanimation()
position camera 0,0,-500
point camera 0,0,0
texture object 1,1:show object 1
set cursor 1,1:print "loaded the memblocks from dbo and now playing from own format!"
set cursor 1,20:print "press spacekey to exit"

set cursor 1,50:print "extra data loaded from own format:Health="+str$(health1)+" attack lvl="+str$(attack1)+" speed="+str$(speed1)
if spacekey()=1 then end
sync
loop













function updateanimation()
if direction=0 then anim=anim+1
if direction=1 then anim=anim-1
if anim=<-1 then anim=1:direction=0
if anim=>31 then anim=29:direction=1
lock vertexdata for limb 1,0
vertcnt=get vertexdata vertex count()
for vrc=0 to vertcnt-1 step 1
set vertexdata position vrc,animationverts#(vrc,anim,0),animationverts#(vrc,anim,1),animationverts#(vrc,anim,2)
next vrc
unlock vertexdata
endfunction

function resetanimation()
lock vertexdata for limb 1,0
vertcnt=get vertexdata vertex count()
for vrc=0 to vertcnt-1 step 1
set vertexdata position vrc,animationverts#(vrc,0,0),animationverts#(vrc,0,1),animationverts#(vrc,0,2)
next vrc
unlock vertexdata
endfunction





function makeimagefromdata(pointer,imageID,memblockID)
restore
if pointer<>1
for r=1 to pointer-1 step 1
read dumby
next r
endif
read mblocksize
`message "memb size"+str$(mblocksize)
if memblock exist(memblockID)=1 then delete memblock memblockid
make memblock memblockID,mblocksize
for td=1 to mblocksize step 1
read gg
write memblock byte memblockID,td-1,gg
next td
if image exist(imageID)=1 then delete image imageID
make image from memblock imageID,memblockID
endfunction



function loadimagetodata(sourcefilename$,savefilename$,memblockID,imageID,sizex,sizey)
`written by SoftMotion(c)2012
`Freeware
pointx=0
pointy=0
file_to_resize$=sourcefilename$
if file exist(file_to_resize$)=0 then exitfunction
if image exist(imageID)=1 then delete image imageID
if memblock exist(memblockID)=1 then delete memblock memblockID
local dim image(sizex,sizey)
for x=0 to sizex
for y=0 to sizey
image(x,y)=0
next y
next x
load image file_to_resize$,imageID,1
make memblock from image memblockID,imageID
delete image imageID
size=GET MEMBLOCK SIZE(memblockID)
pos=0
Width#=memblock DWORD(memblockID,0):height#=memblock DWORD(memblockID,4):depth=memblock dword(memblockID,8)
pos=12
if depth=32 then cnt=4
if depth=24 then cnt=3
if depth=16 then cnt=2
if depth=8 then cnt=1
counter=12
desiredwidth#=sizex
desiredheight#=sizey
scx#=desiredwidth#/width#
scy#=desiredheight#/height#
sx#=0
sy#=0
for y1=0 to height#-1 step 1
sy#=sy#+scy#
for x1=0 to width#-1 step 1
sx#=sx#+scx#
for ty=0 to scy# step 1:for tx=0 to scx# step 1:

a1=int(sx#-tx)
b1=int(sy#-ty)
if a1<0 then a1=0
if a1>desiredwidth#-1 then a1=desiredwidth#-1
if b1<0 then b1=0
if b1>desiredheight#-1 then b1=desiredheight#-1
image(a1,b1)=memblock DWORD(memblockID,counter):

next tx:next ty
counter=counter+cnt
next x1
sx#=0
next y1


if memblock exist(memblockID)=1 then delete memblock memblockID
drawresx=sizex
drawresy=sizey
length=int(drawresx*drawresy*4)+12
make memblock memblockID,length
write memblock DWORD memblockID,0,drawresx:write memblock DWORD memblockID,4,drawresy:write memblock dword memblockID,8,32
pos=12
counter=12
cnt=4
for y1=0 to drawresy-1 step 1
aty=aty+1
for x1=0 to drawresx-1 step 1
atx=atx+1
color_a=image(x1,y1)
write memblock dword memblockID,counter,color_a
counter=counter+cnt
next x1
atx=0
next y1

`write to file
if file exist(savefilename$+".txt")=1 then delete file savefilename$+".txt"
open to write 1,savefilename$+".txt"
write string 1,"`These data statements can be copied to your darkbasic application"
write string 1,"`Coded by SoftMotion(c)2012 as freeware!"
write string 1,"`[memblock size]"
write string 1,""
write string 1,"data "+str$(length)
dim populate(10)
popcnt=1
for y=0 to length-1 step 1

populate(popcnt)=memblock byte(memblockID,y)
popcnt=popcnt+1
if popcnt=>11 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))+","+str$(populate(6))+","+str$(populate(7))+","+str$(populate(8))+","+str$(populate(9))+","+str$(populate(10)):popcnt=1
next y
popcnt=popcnt-1
if popcnt=1 then write string 1,"data "+str$(populate(1))
if popcnt=2 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))
if popcnt=3 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))
if popcnt=4 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))
if popcnt=5 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))
if popcnt=6 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))+","+str$(populate(6))
if popcnt=7 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))+","+str$(populate(6))+","+str$(populate(7))
if popcnt=8 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))+","+str$(populate(6))+","+str$(populate(7))+","+str$(populate(8))
if popcnt=9 then write string 1,"data "+str$(populate(1))+","+str$(populate(2))+","+str$(populate(3))+","+str$(populate(4))+","+str$(populate(5))+","+str$(populate(6))+","+str$(populate(7))+","+str$(populate(8))+","+str$(populate(9))
write string 1,"`[End data statements]"
close file 1
endfunction


function distance#(px#,py#,pz#,tpx#,tpy#,tpz#)
vecx# = px# - tpx#
vecy# = py# - tpy#
vecz# = pz# - tpz#
vecx# = vecx#*vecx#
vecy# = vecy#*vecy#
vecz# = vecz#*vecz#
dist# = sqrt(vecx#+vecy#+vecz#)
endfunction dist#


function findvalue1#(cm$,cm2$,tok$)
a$=first token$(cm$,tok$)
if a$=cm2$ then goto processtoken1
repeat
      a$=next token$(tok$)
      if a$=cm2$ then goto processtoken1
until a$=""
processtoken1:
val$=next token$(tok$)
val#=val(val$)
endfunction val#

function findvalue2#(cm$,cm2$,tok$)
a$=first token$(cm$,tok$)
if a$=cm2$ then goto processtoken2
repeat
      a$=next token$(tok$)
      if a$=cm2$ then goto processtoken2
until a$=""
processtoken2:
dumby$=next token$(tok$)
val$=next token$(tok$)
val#=val(val$)
endfunction val#

function findvalue3#(cm$,cm2$,tok$)
a$=first token$(cm$,tok$)
if a$=cm2$ then goto processtoken3
repeat
      a$=next token$(tok$)
      if a$=cm2$ then goto processtoken3
until a$=""
processtoken3:
for f=1 to 2 step 1
dumby$=next token$(tok$)
next f
val$=next token$(tok$)
val#=val(val$)
endfunction val#

ink rgb(100,70,10),0
box 0,0,100,100
ink rgb(55,10,0),0
box 0,58,100,100
get image 1,0,0,100,100,1
ink rgb(255,255,0),0
box 0,0,100,100
ink rgb(0,255,0),0
box 0,45,100,55
get image 2,0,0,100,100,1

autocam off
sync on
make light 1:position light 1,50,0,0

`objeto referencia 0,0,0
make object sphere 100,2
hide object 100
color object 100,rgb(255,0,0)
make mesh from object 1,100

`hueso
make object box 1,1,1,20
offset limb 1,0,0,0,10
add limb 1,1,1
offset limb 1,1,0,0,20

`segundo hueso
clone object 2,1

`rueda
rem make object box 3,1,15,15
make object sphere 3,15
scale object 3,2,100,100:offset limb 3,0,-115,0,0
position object 3,-3,-20,20
make object box 4,4,1,1:offset limb 4,0,-1.5,0,0
make mesh from object 1,4:delete object 4
add limb 3,1,1:offset limb 3,1,3,0,6
texture object 3,2
color limb 3,1,rgb(0,0,100)


`malla principal que sera animada con vertexdata
make object sphere 10,8,7,10
texture object 10,1
make mesh from object 1,10
clone object 11,10:position object 11,15,0,-20
set object wireframe 11,1
yrotate object 11,25
color object 11,rgb(255,255,255)

make object box 200,200,0,1000
texture object 200,1:scale object texture 200,1,30
position object 200,0,-30,0

hide object 1
hide object 2

position camera 70,5,20
point camera 0,0,0
ani=100
do

if upkey() then sc#=-0.003
if downkey() then sc#=0.003
if scancode()=0 then sc#=0
scroll object texture 200,0,sc#
set cursor 0,0
print "UPKEY/DOWNKEY"
`posicionamos el objeto 2 en el pedal(limb 1 del objeto 3)
position object 2,limb position x(3,1),limb position y(3,1),limb position z(3,1)
`apuntamos el objeto uno hacia el limb del objeto 2 y al objeto dos hacia el limb del objeto uno.
point object 2,limb position x(1,1),limb position y(1,1),limb position z(1,1)
point object 1,limb position x(2,1),limb position y(2,1),limb position z(2,1)


if upkey() then g#=g#+1
if downkey() then g#=g#-1
xrotate object 3,g#/2

`ANIMACION ---------------------------------------------------------------------------------------------------------------------------
change mesh 10,0,1
lock vertexdata for limb 10,0
    vertex = get vertexdata vertex count()
    for i =0  to vertex
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)

        `primero movemos el centro
        if y#>0 then set vertexdata position i,x#*0.5+limb position x(1,1),y#+limb position y(1,1),z#*0.5+limb position z(1,1) `rodilla
        `luego fijamos las puntas arriba y abajo
        if y#>3 then set vertexdata position i,x#*2.1+object position x(1),y#+z#+object position y(1)+10,5+z#*2.5+object position z(1) `parte alta de la pierna
        `finalmente ajustamos el tobillo y suela
        if y#<-0 then set vertexdata position i,-1+x#*0.3+object position x(2),object position y(2)+3,z#*0.4+object position z(2)   `tobillo
        if y#<-2.4 then set vertexdata position i,-1+x#*0.5+object position x(2),-3+object position y(2)+3,2+z#*1.2+object position z(2) `zapato
    next i
unlock vertexdata
`--------------------------------------------------------------------------------------------------------------------------------------
make mesh from object ani,10
`Animamos al objeto 11 con la malla ani
change mesh 11,0,ani

sync
loop

xof 0303txt 0032
template AnimTicksPerSecond {
 <9e415a43-7ba6-4a73-8743-b73d47e88476>
 DWORD AnimTicksPerSecond;
}

template Frame {
 <3d82ab46-62da-11cf-ab39-0020af71e433>
 [...]
}

template Matrix4x4 {
 <f6f23f45-7686-11cf-8f52-0040333594a3>
 array FLOAT matrix[16];
}

template FrameTransformMatrix {
 <f6f23f41-7686-11cf-8f52-0040333594a3>
 Matrix4x4 frameMatrix;
}

template Vector {
 <3d82ab5e-62da-11cf-ab39-0020af71e433>
 FLOAT x;
 FLOAT y;
 FLOAT z;
}

template MeshFace {
 <3d82ab5f-62da-11cf-ab39-0020af71e433>
 DWORD nFaceVertexIndices;
 array DWORD faceVertexIndices[nFaceVertexIndices];
}

template Mesh {
 <3d82ab44-62da-11cf-ab39-0020af71e433>
 DWORD nVertices;
 array Vector vertices[nVertices];
 DWORD nFaces;
 array MeshFace faces[nFaces];
 [...]
}

template MeshNormals {
 <f6f23f43-7686-11cf-8f52-0040333594a3>
 DWORD nNormals;
 array Vector normals[nNormals];
 DWORD nFaceNormals;
 array MeshFace faceNormals[nFaceNormals];
}

template Coords2d {
 <f6f23f44-7686-11cf-8f52-0040333594a3>
 FLOAT u;
 FLOAT v;
}

template MeshTextureCoords {
 <f6f23f40-7686-11cf-8f52-0040333594a3>
 DWORD nTextureCoords;
 array Coords2d textureCoords[nTextureCoords];
}

template ColorRGBA {
 <35ff44e0-6c7c-11cf-8f52-0040333594a3>
 FLOAT red;
 FLOAT green;
 FLOAT blue;
 FLOAT alpha;
}

template ColorRGB {
 <d3e16e81-7835-11cf-8f52-0040333594a3>
 FLOAT red;
 FLOAT green;
 FLOAT blue;
}

template Material {
 <3d82ab4d-62da-11cf-ab39-0020af71e433>
 ColorRGBA faceColor;
 FLOAT power;
 ColorRGB specularColor;
 ColorRGB emissiveColor;
 [...]
}

template MeshMaterialList {
 <f6f23f42-7686-11cf-8f52-0040333594a3>
 DWORD nMaterials;
 DWORD nFaceIndexes;
 array DWORD faceIndexes[nFaceIndexes];
 [Material <3d82ab4d-62da-11cf-ab39-0020af71e433>]
}

template TextureFilename {
 <a42790e1-7810-11cf-8f52-0040333594a3>
 STRING filename;
}

template Animation {
 <3d82ab4f-62da-11cf-ab39-0020af71e433>
 [...]
}

template AnimationSet {
 <3d82ab50-62da-11cf-ab39-0020af71e433>
 [Animation <3d82ab4f-62da-11cf-ab39-0020af71e433>]
}

template FloatKeys {
 <10dd46a9-775b-11cf-8f52-0040333594a3>
 DWORD nValues;
 array FLOAT values[nValues];
}

template TimedFloatKeys {
 <f406b180-7b3b-11cf-8f52-0040333594a3>
 DWORD time;
 FloatKeys tfkeys;
}

template AnimationKey {
 <10dd46a8-775b-11cf-8f52-0040333594a3>
 DWORD keyType;
 DWORD nKeys;
 array TimedFloatKeys keys[nKeys];
}


AnimTicksPerSecond {
 60;
}

Frame _default0 {
 

 FrameTransformMatrix {
  1.000000,0.000000,0.000000,0.000000,0.000000,1.000000,0.000000,0.000000,0.000000,0.000000,1.000000,0.000000,0.000000,0.000000,0.000000,1.000000;;
 }

 Frame 0_Box {
  

  FrameTransformMatrix {
   1.000000,0.000000,0.000000,0.000000,0.000000,1.000000,0.000000,0.000000,0.000000,0.000000,1.000000,0.000000,0.000000,0.000000,0.000000,1.000000;;
  }

  Mesh 0_Box {
   24;
   -50.000000;50.000000;-50.000000;,
   50.000000;50.000000;-50.000000;,
   50.000000;-50.000000;-50.000000;,
   -50.000000;-50.000000;-50.000000;,
   -50.000000;50.000000;50.000000;,
   -50.000000;-50.000000;50.000000;,
   50.000000;-50.000000;50.000000;,
   50.000000;50.000000;50.000000;,
   -50.000000;50.000000;50.000000;,
   50.000000;50.000000;50.000000;,
   50.000000;50.000000;-50.000000;,
   -50.000000;50.000000;-50.000000;,
   -50.000000;-50.000000;50.000000;,
   -50.000000;-50.000000;-50.000000;,
   50.000000;-50.000000;-50.000000;,
   50.000000;-50.000000;50.000000;,
   50.000000;50.000000;-50.000000;,
   50.000000;50.000000;50.000000;,
   50.000000;-50.000000;50.000000;,
   50.000000;-50.000000;-50.000000;,
   -50.000000;50.000000;-50.000000;,
   -50.000000;-50.000000;-50.000000;,
   -50.000000;-50.000000;50.000000;,
   -50.000000;50.000000;50.000000;;
   12;
   3;0,1,2;,
   3;2,3,0;,
   3;4,5,6;,
   3;6,7,4;,
   3;8,9,10;,
   3;10,11,8;,
   3;12,13,14;,
   3;14,15,12;,
   3;16,17,18;,
   3;18,19,16;,
   3;20,21,22;,
   3;22,23,20;;

   MeshNormals {
    24;
    0.000000;0.000000;-1.000000;,
    0.000000;0.000000;-1.000000;,
    0.000000;0.000000;-1.000000;,
    0.000000;0.000000;-1.000000;,
    0.000000;0.000000;1.000000;,
    0.000000;0.000000;1.000000;,
    0.000000;0.000000;1.000000;,
    0.000000;0.000000;1.000000;,
    0.000000;1.000000;0.000000;,
    0.000000;1.000000;0.000000;,
    0.000000;1.000000;0.000000;,
    0.000000;1.000000;0.000000;,
    0.000000;-1.000000;0.000000;,
    0.000000;-1.000000;0.000000;,
    0.000000;-1.000000;0.000000;,
    0.000000;-1.000000;0.000000;,
    1.000000;0.000000;0.000000;,
    1.000000;0.000000;0.000000;,
    1.000000;0.000000;0.000000;,
    1.000000;0.000000;0.000000;,
    -1.000000;0.000000;0.000000;,
    -1.000000;0.000000;0.000000;,
    -1.000000;0.000000;0.000000;,
    -1.000000;0.000000;0.000000;;
    12;
    3;0,1,2;,
    3;2,3,0;,
    3;4,5,6;,
    3;6,7,4;,
    3;8,9,10;,
    3;10,11,8;,
    3;12,13,14;,
    3;14,15,12;,
    3;16,17,18;,
    3;18,19,16;,
    3;20,21,22;,
    3;22,23,20;;
   }

   MeshTextureCoords {
    24;
    0.000000;0.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;1.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;1.000000;,
    0.000000;0.000000;,
    0.000000;0.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;1.000000;,
    0.000000;1.000000;,
    0.000000;0.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;0.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;1.000000;,
    1.000000;0.000000;,
    1.000000;1.000000;,
    0.000000;1.000000;,
    0.000000;0.000000;;
   }

   MeshMaterialList {
    1;
    12;
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0;

    Material {
     1.000000;1.000000;1.000000;1.000000;;
     10.000000;
     0.000000;0.000000;0.000000;;
     0.000000;0.000000;0.000000;;

     TextureFilename {
      "cube_tex1.bmp";
     }
    }
   }
  }
 }
}

AnimationSet set0 {
 

 Animation {
  

  AnimationKey {
   0;
   1;
   0;4;1.000000,0.000000,0.000000,0.000000;;;
  }

  AnimationKey {
   1;
   1;
   0;3;1.000000,1.000000,1.000000;;;
  }

  AnimationKey {
   2;
   1;
   0;3;0.000000,0.000000,0.000000;;;
  }
  { _default0 }
 }

 Animation {
  

  AnimationKey {
   0;
   17;
   0;4;1.000000,0.000000,0.000000,0.000000;;,
   3;4;1.000000,0.000000,0.000000,0.000000;;,
   6;4;1.000000,0.000000,0.000000,0.000000;;,
   9;4;1.000000,0.000000,0.000000,0.000000;;,
   12;4;1.000000,0.000000,0.000000,0.000000;;,
   15;4;1.000000,0.000000,0.000000,0.000000;;,
   18;4;1.000000,0.000000,0.000000,0.000000;;,
   21;4;1.000000,0.000000,0.000000,0.000000;;,
   24;4;1.000000,0.000000,0.000000,0.000000;;,
   27;4;1.000000,0.000000,0.000000,0.000000;;,
   30;4;1.000000,0.000000,0.000000,0.000000;;,
   33;4;1.000000,0.000000,0.000000,0.000000;;,
   36;4;1.000000,0.000000,0.000000,0.000000;;,
   39;4;1.000000,0.000000,0.000000,0.000000;;,
   42;4;1.000000,0.000000,0.000000,0.000000;;,
   45;4;1.000000,0.000000,0.000000,0.000000;;,
   48;4;1.000000,0.000000,0.000000,0.000000;;;
  }

  AnimationKey {
   1;
   17;
   0;3;1.000000,1.000000,1.000000;;,
   3;3;1.000000,1.000000,1.000000;;,
   6;3;1.000000,1.000000,1.000000;;,
   9;3;1.000000,1.000000,1.000000;;,
   12;3;1.000000,1.000000,1.000000;;,
   15;3;1.000000,1.000000,1.000000;;,
   18;3;1.000000,1.000000,1.000000;;,
   21;3;1.000000,1.000000,1.000000;;,
   24;3;1.000000,1.000000,1.000000;;,
   27;3;1.000000,1.000000,1.000000;;,
   30;3;1.000000,1.000000,1.000000;;,
   33;3;1.000000,1.000000,1.000000;;,
   36;3;1.000000,1.000000,1.000000;;,
   39;3;1.000000,1.000000,1.000000;;,
   42;3;1.000000,1.000000,1.000000;;,
   45;3;1.000000,1.000000,1.000000;;,
   48;3;1.000000,1.000000,1.000000;;;
  }

  AnimationKey {
   2;
   17;
   0;3;0.000000,0.000000,0.000000;;,
   3;3;0.000000,0.000000,0.000000;;,
   6;3;0.000000,0.000000,0.000000;;,
   9;3;0.000000,0.000000,0.000000;;,
   12;3;0.000000,0.000000,0.000000;;,
   15;3;0.000000,0.000000,0.000000;;,
   18;3;0.000000,0.000000,0.000000;;,
   21;3;0.000000,0.000000,0.000000;;,
   24;3;0.000000,0.000000,0.000000;;,
   27;3;0.000000,0.000000,0.000000;;,
   30;3;0.000000,0.000000,0.000000;;,
   33;3;0.000000,0.000000,0.000000;;,
   36;3;0.000000,0.000000,0.000000;;,
   39;3;0.000000,0.000000,0.000000;;,
   42;3;0.000000,0.000000,0.000000;;,
   45;3;0.000000,0.000000,0.000000;;,
   48;3;0.000000,0.000000,0.000000;;;
  }
  { 0_Box }
 }
}