I can not make a color for triangle (diffuse)
sync on
sync
sync
load image "0001.bmp",1,1
do
x=mousex()
if memblock exist (1)=1 then delete memblock 1
make memblock 1,2000
rem FVF
write memblock dword 1,0,(338)
rem Razmer 1 vertecsa (v bajtah)
write memblock dword 1,4,(36)
rem Quantity of vertexes in carcas
write memblock dword 1,8,4
rem Verteks 0
rem 1-koordinaty X
write memblock float 1,(12+0*4+0*36),0
rem 1-koordinaty Y
write memblock float 1,(12+1*4+0*36),0
rem 1-koordinaty Z
write memblock float 1,(12+2*4+0*36),0
rem 2-normalx X
write memblock float 1,(12+3*4+0*36),100+x
rem 2-normalx Y
write memblock float 1,(12+4*4+0*36),10+x
rem 2-normalx Z
write memblock float 1,(12+5*4+0*36),200+x
rem 3-cvet
write memblock dword 1,(12+6*4+0*36),RGB(255,255,0)
rem 4-tekstura U
write memblock float 1,(12+7*4+0*36),0
rem 4-tekstura V
write memblock float 1,(12+8*4+0*36),0
rem Verteks 1
rem 1-koordinaty X
write memblock float 1,(12+0*4+1*36),200
rem 1-koordinaty Y
write memblock float 1,(12+1*4+1*36),200
rem 1-koordinaty Z
write memblock float 1,(12+2*4+1*36),200
rem 2-normalx X
write memblock float 1,(12+3*4+1*36),0
rem 2-normalx Y
write memblock float 1,(12+4*4+1*36),0
rem 2-normalx Z
write memblock float 1,(12+5*4+1*36),0
rem 3-cvet
write memblock dword 1,(12+6*4+1*36),RGB(255,255,0)
rem 4-tekstura U
write memblock float 1,(12+7*4+1*36),0
rem 4-tekstura V
write memblock float 1,(12+8*4+1*36),0
rem Verteks 2
rem 1-koordinaty X
write memblock float 1,(12+0*4+2*36),600
rem 1-koordinaty Y
write memblock float 1,(12+1*4+2*36),10
rem 1-koordinaty Z
write memblock float 1,(12+2*4+2*36),300
rem 2-normalx X
write memblock float 1,(12+3*4+2*36),10
rem 2-normalx Y
write memblock float 1,(12+4*4+2*36),100
rem 2-normalx Z
write memblock float 1,(12+5*4+2*36),500
rem 3-cvet
write memblock dword 1,(12+6*4+2*36),RGB(255,255,0)
rem 4-tekstura U
write memblock float 1,(12+7*4+2*36),0
rem 4-tekstura V
write memblock float 1,(12+8*4+2*36),0
rem Verteks 3
rem 1-koordinaty X
write memblock float 1,(12+0*4+3*36),600
rem 1-koordinaty Y
write memblock float 1,(12+1*4+3*36),10
rem 1-koordinaty Z
write memblock float 1,(12+2*4+3*36),300
rem 2-normalx X
write memblock float 1,(12+3*4+3*36),27
rem 2-normalx Y
write memblock float 1,(12+4*4+3*36),250
rem 2-normalx Z
write memblock float 1,(12+5*4+3*36),150
rem 3-cvet
write memblock dword 1,(12+6*4+3*36),RGB(255,255,0)
rem 4-tekstura U
write memblock float 1,(12+7*4+3*36),0
rem 4-tekstura V
write memblock float 1,(12+8*4+3*36),0
make mesh from memblock 1,1
if object exist(1) then delete object 1
make object 1,1,1
position object 1,10,10,10
sync
sync
loop
wait key