Tetrahedron Function - GameCreators Forum

Author

Message

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 29th Apr 2005 06:17 Edited at: 29th Apr 2005 06:34

Link

Here is a little function I made for someone to create a tetrahedron.

MakeTetrahedron(1,3.0)

set ambient light 50

position camera 5,5,-5
point camera 0,0,0

sync on
sync rate 0

do

xrotate object 1,wrapvalue(object angle x(1)+0.5)
yrotate object 1,wrapvalue(object angle y(1)+1)

sync

loop

function MakeTetrahedron(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
`Mesh4=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
Mesh4=4
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),(Scale#/2),0,(Scale#/2),0,Scale#,0
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),0,Scale#,0,0-(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object plain Id,Scale#,Scale#
xrotate object Id,270
position object Id,(Scale#/2),0,(Scale#/2)
make mesh from object Mesh4,Id
delete object Id
make object triangle Id,(Scale#/2),0,(Scale#/2),(Scale#/2),0,0-(Scale#/2),0,Scale#,0
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
add limb Id,4,Mesh4
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
delete mesh Mesh4
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
delete mesh Mesh1
endfunction

function FreeMesh()
Mesh=0
for m=1 to 100
if mesh exist(m)=0
Mesh=m
goto MeshFound
endif
next m
MeshFound:
endfunction Mesh

+ Code Snippet

MakeTetrahedron(1,3.0)

set ambient light 50

position camera 5,5,-5
point camera 0,0,0

sync on
sync rate 0

do

xrotate object 1,wrapvalue(object angle x(1)+0.5)
yrotate object 1,wrapvalue(object angle y(1)+1)

sync

loop

function MakeTetrahedron(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
`Mesh4=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
Mesh4=4
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),(Scale#/2),0,(Scale#/2),0,Scale#,0
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),0,Scale#,0,0-(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object plain Id,Scale#,Scale#
xrotate object Id,270
position object Id,(Scale#/2),0,(Scale#/2)
make mesh from object Mesh4,Id
delete object Id
make object triangle Id,(Scale#/2),0,(Scale#/2),(Scale#/2),0,0-(Scale#/2),0,Scale#,0
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
add limb Id,4,Mesh4
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
delete mesh Mesh4
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
delete mesh Mesh1
endfunction

function FreeMesh()
Mesh=0
for m=1 to 100
if mesh exist(m)=0
Mesh=m
goto MeshFound
endif
next m
MeshFound:
endfunction Mesh

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 29th Apr 2005 17:20

Link

Damn! That was a pyramid not a tetrahedron! I'll edit later.

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Kelebrindae

22

Years of Service

User Offline

Joined: 15th Sep 2003

Location: Where cheeses are scarier than dragons.

Posted: 29th Apr 2005 21:42 Edited at: 29th Apr 2005 21:44

Link

( more infos on this topic here: http://forum.thegamecreators.com/?m=forum_view&t=53140&b=10 )

Try this: it writes a memblock which contains the mesh data, then creates the object from it. It can also create octahedron, isocahedron, and dodecahedron.

Just include "MakePlatonicSolid.dba" at the beginning of your code then use the function like this:
MakePlatonicSolid(Id,type$,size#)
(press the "download" button to get the file and a quick test program)

But I must admit your solution, Andrew, is more elegant and probably way faster for solids with few faces like the tetrahedron...

Ideas: memories of things which did not occur yet...

Back to top

Profile PM Website

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 30th Apr 2005 00:42

Link

Thanks. Can't believe I made that mistake! Here is the new code:

MakeTetrahedron(1,3.0)
position object 1,-3,0,0
color object 1,rgb(255,0,0)
set object ambient 1,0

MakePyramid(2,3.0)
position object 2,3,0,0
color object 2,rgb(0,255,0)
set object ambient 2,0

position camera 5,5,-5
point camera 0,0,0

sync on
sync rate 0

do

xrotate object 1,wrapvalue(object angle x(1)+0.5)
yrotate object 1,wrapvalue(object angle y(1)+1)

xrotate object 2,wrapvalue(object angle x(2)+0.5)
yrotate object 2,wrapvalue(object angle y(2)+1)

sync

loop

function MakeTetrahedron(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,0,0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,(Scale#/2),0,0-(Scale#/2),0,Scale#,0,0,0,(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,0,(Scale#/2),(Scale#/2),0,0-(Scale#/2)
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
set object cull Id,0
delete mesh Mesh1
endfunction

function MakePyramid(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
`Mesh4=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
Mesh4=4
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),(Scale#/2),0,(Scale#/2),0,Scale#,0
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),0,Scale#,0,0-(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object plain Id,Scale#,Scale#
xrotate object Id,270
position object Id,(Scale#/2),0,(Scale#/2)
make mesh from object Mesh4,Id
delete object Id
make object triangle Id,(Scale#/2),0,(Scale#/2),(Scale#/2),0,0-(Scale#/2),0,Scale#,0
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
add limb Id,4,Mesh4
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
delete mesh Mesh4
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
set object cull Id,0
delete mesh Mesh1
endfunction

function FreeMesh()
Mesh=0
for m=1 to 100
if mesh exist(m)=0
Mesh=m
goto MeshFound
endif
next m
MeshFound:
endfunction Mesh

+ Code Snippet

MakeTetrahedron(1,3.0)
position object 1,-3,0,0
color object 1,rgb(255,0,0)
set object ambient 1,0

MakePyramid(2,3.0)
position object 2,3,0,0
color object 2,rgb(0,255,0)
set object ambient 2,0

position camera 5,5,-5
point camera 0,0,0

sync on
sync rate 0

do

xrotate object 1,wrapvalue(object angle x(1)+0.5)
yrotate object 1,wrapvalue(object angle y(1)+1)

xrotate object 2,wrapvalue(object angle x(2)+0.5)
yrotate object 2,wrapvalue(object angle y(2)+1)

sync

loop

function MakeTetrahedron(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,0,0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,(Scale#/2),0,0-(Scale#/2),0,Scale#,0,0,0,(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,0,(Scale#/2),(Scale#/2),0,0-(Scale#/2)
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
set object cull Id,0
delete mesh Mesh1
endfunction

function MakePyramid(Id,Scale#)
`Mesh1=FreeMesh()
`Mesh2=FreeMesh()
`Mesh3=FreeMesh()
`Mesh4=FreeMesh()
Mesh1=1
Mesh2=2
Mesh3=3
Mesh4=4
make object triangle Id,0-(Scale#/2),0,0-(Scale#/2),0,Scale#,0,(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh1,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),(Scale#/2),0,(Scale#/2),0,Scale#,0
make mesh from object Mesh2,Id
delete object Id
make object triangle Id,0-(Scale#/2),0,(Scale#/2),0,Scale#,0,0-(Scale#/2),0,0-(Scale#/2)
make mesh from object Mesh3,Id
delete object Id
make object plain Id,Scale#,Scale#
xrotate object Id,270
position object Id,(Scale#/2),0,(Scale#/2)
make mesh from object Mesh4,Id
delete object Id
make object triangle Id,(Scale#/2),0,(Scale#/2),(Scale#/2),0,0-(Scale#/2),0,Scale#,0
add limb Id,1,Mesh1
add limb Id,2,Mesh2
add limb Id,3,Mesh3
add limb Id,4,Mesh4
delete mesh Mesh1
delete mesh Mesh2
delete mesh Mesh3
delete mesh Mesh4
make mesh from object Mesh1,Id
delete object Id
make object Id,Mesh1,0
set object cull Id,0
delete mesh Mesh1
endfunction

function FreeMesh()
Mesh=0
for m=1 to 100
if mesh exist(m)=0
Mesh=m
goto MeshFound
endif
next m
MeshFound:
endfunction Mesh

I think something strange is going on with the normals.

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

ShadowCentaur 2

21

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Free Country USA

Posted: 30th Apr 2005 05:30

Link

thanks both of you for helping me out. i suspect this will be quite usefull, having 4 more primatives to work with. kelebrindae, you said (on that thread i started) youve got a nerdy facination with platonics. dont worry, its ok to be a math/programming geek. your amoung friends(i'm one).

5/12*(3+sqrt(5))*L^3=volume of a icosahedron

(15+7*sqrt(5))/4*l^3=volume of a dodecahedron

Truth suffers from too much analysis.
-Ancient Fremen Saying

Back to top

Profile PM

Kelebrindae

22

Years of Service

User Offline

Joined: 15th Sep 2003

Location: Where cheeses are scarier than dragons.

Posted: 3rd May 2005 23:17

Link

Three small bug fixes:
- fixed a "for i=1 to n: .... :next anythingbutnoti" in UV mapping. Don't know why it worked anyway...

- fixed the case when you give a something wrong as the name of the solid you want to create.
ex: "MakePlatonicSolid(1,"schmurtzahedron",1.0)
- fixed errors "memblock 255 already exists" and "mesh 65534 already exists".

I've put the corrected code in the Codebase, and under the "download" button.

Ideas: memories of things which did not occur yet...

Back to top

Profile PM Website

Kelebrindae

22

Years of Service

User Offline

Joined: 15th Sep 2003

Location: Where cheeses are scarier than dragons.

Posted: 11th May 2005 21:31

Link

Corrected the mistyped "icosahedron" (it was spelled "isocahedron").

Hit the "download" button to get the correct version.

(Thanks, ShadowCentaur 2)

Ideas: memories of things which did not occur yet...

Back to top

Profile PM Website

Sorry your browser is not supported!

Code Snippets / Tetrahedron Function