Sorry your browser is not supported!

set display mode 1024,768,16
rem make a box and color it red
make object box 1,100,100,100
color object 1,rgb(500,0,0)
position camera 0,100,-400
xrotate camera 10

root$=get dir$()
maximize window
text$="Native dbpro red object"
set text size 20


rem loop
do
    text 10,10, "Press enter to save then load the object back in"
    text 10,50,text$
    
    rem save the object
    if returnkey()=1 and wt=0
        wt=50
        if file exist(root$+"demoobject.dbo")=1 then delete file root$+"demoobject.dbo"
        save object root$+"demoobject.dbo",1
        delete object 1
        load object root$+"demoobject.dbo",1
        text$="loaded .dbo object"
    endif
    
    if wt>0 then dec wt
        
        
 sync
 loop

sync on
autocam off
rem set display mode 1920,1080,32
set display mode 1024,768,16
rem make a box and color it red
make object box 1,100,100,100
color object 1,rgb(500,0,0)
set object ambience 1,rgb(500,0,0)
position camera 0,100,-400
xrotate camera 10

root$=get dir$()
rem maximize window
text$="Native dbpro red object"
rem set text size 20


rem loop
do
    text 10,10, "Press enter to save then load the object back in"
    text 10,50,text$

    rem save the object
    if returnkey()=1 and wt=0
        wt=50
        if file exist(root$+"demoobject.dbo")=1 then delete file root$+"demoobject.dbo"
        save object root$+"demoobject.dbo",1
        delete object 1
        load object root$+"demoobject.dbo",1
        text$="loaded .dbo object"
    endif

    if wt>0 then dec wt


 sync
 loop

set ambient light 0
make light 1
set light range 10000

set limb ambient 1,1,0

autocam off
sync on

`main object
make object box 1,40,70,10

`mesh for the arms
make object box 2,8,80,8
offset limb 2,0,0,-35,0
make mesh from object 1,2
delete object 2

`adding amrs(limbs) to the main object
add limb 1,1,1
offset limb 1,1,-25,30,0

add limb 1,2,1
offset limb 1,2,25,30,0

color object 1,rgb(255,0,0)
color limb 1,1,rgb(255,255,0)
color limb 1,2,rgb(0,255,0)

`cloning and scaling a new object
clone object 2,1
scale object 2,30,30,30
position object 2,50,0,0

position camera -30,40,-100
point camera 0,0,0

do
g#=g#+0.2
yrotate object 1,g#/2
yrotate object 2,g#
rotate limb 2,1,-g#*3,0,0
rotate limb 2,2,g#*3,0,0
sync
loop

#constant FALSE 0
#constant TRUE  not FALSE

flag as boolean

flag = FALSE

sync on
sync rate 60

backdrop on

autocam off
position camera 0.0, 20.0, -50.0
point camera 0.0, 0.0, 0.0

make object cube 1, 20.0

make mesh from object 1, 1
add limb 1, 1, 1
delete mesh 1

offset limb 1, 0, -10.0, 0.0, 0.0
offset limb 1, 1, 10.0, 0.0, 0.0

convert object fvf 1, 338
ColorObjectLimb(1, 0, 0xffff0000)
ColorObjectLimb(1, 1, 0xff0000ff)
set object light 1, 0

do
   if (spacekey() and flag=FALSE)
      flag = TRUE
      if (file exist("cube.dbo"))
         delete file "cube.dbo"
      endif
      save object "cube.dbo", 1
      delete object 1
      load object "cube.dbo", 1
   endif

   sync

   inc ang, 1.0
   yrotate object 1, wrapvalue(object angle y(1)+1.0)
   rotate limb 1, 0, wrapvalue(limb angle x(1, 0)+1.0), 0.0, 0.0
   rotate limb 1, 1, wrapvalue(limb angle x(1, 1)-1.0), 0.0, 0.0
loop

end

function ColorObjectLimb(objID as integer, lmbID as integer, color as dword)
   local vertcnt as integer

   lock vertexdata for limb objID, lmbID
   vertcnt = get vertexdata vertex count()

   for i=0 to vertcnt-1
      set vertexdata diffuse i, color
   next i

   unlock vertexdata
endfunction