Seems to work alright now
sync on
sync rate 0
make object cube 1,10
convert object fvf 1,338
make mesh from object 1,1
make memblock from mesh 1,1
bytes = memblock dword(1,4)
for i=0 to memblock dword(1,8)-1
write memblock dword 1,12+24+bytes*i,rgb(255,255,255)
next i
delete mesh 1
make mesh from memblock 1,1
delete object 1
make object 1,1,0
delete memblock 1
delete mesh 1
lock vertexdata for limb 1,0,1
for V=0 to GET VERTEXDATA VERTEX COUNT()-1
NX#=GET VERTEXDATA NORMALS X(V)
NY#=GET VERTEXDATA NORMALS Y(V)
NZ#=GET VERTEXDATA NORMALS Z(V)
`SET VERTEXDATA NORMALS V, NX#, NY#, NZ#
SET VERTEXDATA NORMALS V, rnd(100)/100.0,rnd(100)/100.0,rnd(100)/100.0
next V
unlock vertexdata
make mesh from object 1,1
make memblock from mesh 1,1
fvf = memblock dword(1,0)
bytes = memblock dword(1,4)
nx# = memblock float(1,12+12+bytes*0)
ny# = memblock float(1,12+16+bytes*0)
nz# = memblock float(1,12+20+bytes*0)
delete mesh 1
delete memblock 1
do
text 0,0,"FVF: "+str$(fvf)+" Bytes: "+str$(bytes)
text 0,20,"NormalX: "+str$(NX#)
text 0,40,"NormalY: "+str$(NY#)
text 0,60,"NormalZ: "+str$(NZ#)
turn object left 1,0.1
sync
loop
