unwrapped cube
Вложений: 1
Создаёт куб под развёртку в аттаче.
Код:
Function CreateUnCube()
cub = CreateMesh()
cubs = CreateSurface(cub)
;Front
v1 = AddVertex(cubs,-.5,.5,.5,.5,0) ;Upleft
v2 = AddVertex(cubs,.5,.5,.5,0,0) ;Upright
v3 = AddVertex(cubs,-.5,-.5,.5,.5,.25) ;Dnleft
v4 = AddVertex(cubs,.5,-.5,.5,0,.25) ;Dnright
AddTriangle(cubs,v3,v2,v1)
AddTriangle(cubs,v3,v4,v2)
;Back
v1 = AddVertex(cubs,.5,.5,-.5,.5,.5) ;Upleft
v2 = AddVertex(cubs,-.5,.5,-.5,0,.5) ;Upright
v3 = AddVertex(cubs,.5,-.5,-.5,.5,.75) ;Dnleft
v4 = AddVertex(cubs,-.5,-.5,-.5,0,.75) ;Dnright
AddTriangle(cubs,v3,v2,v1)
AddTriangle(cubs,v3,v4,v2)
;Left
v1 = AddVertex(cubs,-.5,.5,-.5,.5,.25) ;Upleft
v2 = AddVertex(cubs,-.5,.5,.5,0,.25) ;Upright
v3 = AddVertex(cubs,-.5,-.5,-.5,.5,.5) ;Dnleft
v4 = AddVertex(cubs,-.5,-.5,.5,0,.5) ;Dnright
AddTriangle(cubs,v3,v2,v1)
AddTriangle(cubs,v3,v4,v2)
;Right
v1 = AddVertex(cubs,.5,.5,-.5,.5,.25) ;Upleft
v2 = AddVertex(cubs,.5,.5,.5,1,.25) ;Upright
v3 = AddVertex(cubs,.5,-.5,-.5,.5,.5) ;Dnleft
v4 = AddVertex(cubs,.5,-.5,.5,1,.5) ;Dnright
AddTriangle(cubs,v1,v2,v3)
AddTriangle(cubs,v2,v4,v3)
;Up
v1 = AddVertex(cubs,-.5,.5,.5,.5,0) ;Dnleft
v2 = AddVertex(cubs,.5,.5,.5,1,0) ;Dnright
v3 = AddVertex(cubs,-.5,.5,-.5,.5,.25) ;Upleft
v4 = AddVertex(cubs,.5,.5,-.5,1,.25) ;Upright
AddTriangle(cubs,v1,v2,v3)
AddTriangle(cubs,v2,v4,v3)
;Down
v1 = AddVertex(cubs,-.5,-.5,.5,1,.5) ;Dnleft
v2 = AddVertex(cubs,.5,-.5,.5,.5,.5) ;Dnright
v3 = AddVertex(cubs,-.5,-.5,-.5,1,.75) ;Upleft
v4 = AddVertex(cubs,.5,-.5,-.5,.5,.75) ;Upright
AddTriangle(cubs,v3,v2,v1)
AddTriangle(cubs,v3,v4,v2)
Return cub
End Function
Быдлокод, но зато работает.
|