Does anyone know how to create a segmented cube, by telling it x y and z amounts, and it based on being centred
This source example is semi based on 3d Blitz, I am in the stages of making it for FB. I thought it may come handy for others as well.
Solving it would be amazing!
type vertex
as single x, y, z, u, v
end type
type triangle
as vertex ptr v0, v1, v2
as integer tex_num
end type
function create_seg_cube( byval segs_x as integer, byval segs_y as integer, byval segs_z as integer )
dim as integer total_verts=segs_x * segs_y * segs_z
dim as vertex ptr vert_index( 0 to total_verts-1 )
dim as integer v0, v1, v2, v3
for z as integer=0 to segs_z-1
for y as integer=0 to segs_y-1
for z as integer=0 to segs_x-1
vert_index( vert_num )=add_vertex( model, xx, yy, zz, u, v ) : vert_num+=1
next
next
next
for z as integer=0 to segs_z-1
for y as integer=0 to segs_y-1
for x as integer=0 to segs_x-1
v0=vert_calc
v1=vert_calc
v2=vert_calc
v3=vert_calc
add_triangle( model, vert_index( v0 ), vert_index( v1 ), vert_index( v2 ), texture )
add_triangle( model, vert_index( v0 ), vert_index( v2 ), vert_index( v3 ), texture )
next
next
next
end function
Thanks in advane,
Storm Trooper.