sync on : sync rate 0
hide mouse : disable escapekey
 
make memblock 1,552
write memblock dword 1,0,338
write memblock dword 1,4,36
write memblock dword 1,8,15
 
type Vertex
   Xpoz as float
   Ypoz as float
   Zpoz as float
   Xnor as float
   Ynor as float
   Znor as float
   Diff as dword
   Ucor as float
   Vcor as float
endtype
 
global dim Vertices(72) as Vertex
 
` Set model vertex data
sVertex(0,1,6,0,0,0,-1,4294934528,200,0)
sVertex(1,-1,0,0,0,0,-1,4294934528,0,600)
sVertex(2,-1,4,0,0,0,-1,4294934528,0,200)
 
sVertex(3,1,6,0,0,0,-1,4294934528,200,0)
sVertex(4,1,0,0,0,0,-1,4294934528,200,600)
sVertex(5,-1,0,0,0,0,-1,4294934528,0,600)
 
sVertex(6,1,6,0,1,0,0,4294934528,200,0)
sVertex(7,1,6,2,1,0,0,4294934528,400,0)
sVertex(8,1,0,0,1,0,0,4294934528,0,600)
 
sVertex(9,1,6,2,1,0,0,4294934528,400,0)
sVertex(10,1,-1.5,2,1,0,0,4294934528,400,600)
sVertex(11,1,0,0,1,0,0,4294934528,200,600)
 
sVertex(12,-1,0,0,-1,0,0,4294934528,0,600)
sVertex(13,-1,4,2,-1,0,0,4294934528,0,200)
sVertex(14,-1,4,0,-1,0,0,4294934528,0,200)
 
for i=0 to 14
   write memblock float 1,(12+(36*i)),Vertices(i).Xpoz
   write memblock float 1,(16+(36*i)),Vertices(i).Ypoz
   write memblock float 1,(20+(36*i)),Vertices(i).Zpoz
   write memblock float 1,(24+(36*i)),Vertices(i).Xnor
   write memblock float 1,(28+(36*i)),Vertices(i).Ynor
   write memblock float 1,(32+(36*i)),Vertices(i).Znor
   write memblock dword 1,(36+(36*i)),Vertices(i).Diff
   write memblock float 1,(40+(36*i)),Vertices(i).Ucor
   write memblock float 1,(44+(36*i)),Vertices(i).Vcor
next i
 
make mesh from memblock 1,1
save mesh "hulkarmr.x",1
delete mesh 1
delete memblock 1
load object "hulkarmr.x",1
 
Framerate=timer()
repeat
   A$=inkey$()
   if timer()-Framerate >= 15
      yrotate object 1,object angle y(1)+2
      sync
   endif
until A$<>"" or escapekey()=1
delete object 1
delete file "hulkarmr.x"
 
function sVertex(index as integer,xp,yp,zp,xn,yn,zn,dif as dword,uc,vc)
   Vertices(index).Xpoz = xp
   Vertices(index).Ypoz = yp
   Vertices(index).Zpoz = zp
   Vertices(index).Xnor = xn
   Vertices(index).Ynor = yn
   Vertices(index).Znor = zn
   Vertices(index).Diff = dif
   Vertices(index).Ucor = uc
   Vertices(index).Vcor = vc
endfunction