TheGameCreators - CodeBase - Make Platonic Solid function

Category: Basic 3D

Version: 1.0

Information

Uploaded: 3rd May 2005 08:29

Modified: 11th May 2005 07:34

Author: Kelebrindae

Summary

A function that makes any Platonic Solid except the cube (tetrahedron, octahedron, icosahedron, dodecahedron). See the attachment for the file and a little program to test it. Works with DBC only (it uses mesh memblocks).

Full Description

Save the following code and use it as an include file. Then, call the function like this: MakePlatonicSolid(Id,type$,size#) - Id: number of the object that will be created. - type$ can be: "tetrahedron", "octahedron", "icosahedron", "dodecahedron". - size#: size of the object that will be created. This function fills a memblock with the mesh datas then creates the mesh from the memblock with "make mesh from memblock". So it doesn't work in DBpro, 'cos the mesh memblock structure is different.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem This include file allow to create one of the Platonic Solids (except for the cube)

rem Parameters:

rem   - nÂ° of the object that will be created

rem   - name of the solid ("tetrahedron","octahedron","icosahedron", or "dodecahedron")

rem   - size of the object

rem Date: 29/04/2005

rem Author: Kelebrindae

rem Note 1: Memblock nÂ°255 and mesh nÂ°65534 must not exist before function call.

rem Note 2: Yes, I know it would be easier to load a 3DS model of these solids. But hey, even coders wanna have fun...

rem Note 3: Is you have to create multiple objects of the same kind (ex: 200 tetrahedrons), it should be faster to

rem         create the first one with this function, to extract its mesh with then "make mesh from object" command,

rem         then create the 199 others with the "make object" command.

function MakePlatonicSolid(numobject,solid$,size#)

rem Memblock nÂ°255 and mesh nÂ°65534 must be free as they're used to create the object

if memblock exist(255) or mesh exist(65534) then exitfunction

rem First, restore to the chosen datas

select solid$

case "tetrahedron"

restore tetrahedron

endcase

case "octahedron"

restore octahedron

endcase

case "icosahedron"

restore icosahedron

endcase

case "dodecahedron"

restore dodecahedron

endcase

case default

exitfunction

endcase

endselect

Rem Read the mesh header in the data to initialize the memblock, then write the datas

read MemblockSize,nbVertices,vertOffset,nbNormals,normOffset,nbFaces,faceOffset,faceSize,UvOffset

make memblock 255,MemblockSize

write memblock dword 255,0,nbVertices

write memblock dword 255,4,vertOffset

write memblock dword 255,8,nbNormals

write memblock dword 255,12,normOffset

write memblock dword 255,16,nbFaces

write memblock dword 255,20,faceOffset

write memblock dword 255,24,faceSize

write memblock dword 255,28,UvOffset

rem Vertices

for i=0 to nbVertices-1

read v1#,v2#,v3#

write memblock float 255,vertOffset+(i*12),v1#*size#

write memblock float 255,vertOffset+(i*12)+4,v2#*size#

write memblock float 255,vertOffset+(i*12)+8,v3#*size#

next i

rem Normals

for i=0 to nbVertices-1

read v1#,v2#,v3#

write memblock float 255,normOffset+(i*12),v1#

write memblock float 255,normOffset+(i*12)+4,v2#

write memblock float 255,normOffset+(i*12)+8,v3#

next i

rem Faces

for i=0 to nbFaces-1

read nbvert,v1,v2,v3,v4,v5,v6

write memblock dword 255,faceOffset+(i*28),nbvert

write memblock dword 255,faceOffset+(i*28)+4,v1

write memblock dword 255,faceOffset+(i*28)+8,v2

write memblock dword 255,faceOffset+(i*28)+12,v3

write memblock dword 255,faceOffset+(i*28)+16,v4

write memblock dword 255,faceOffset+(i*28)+20,v5

write memblock dword 255,faceOffset+(i*28)+24,v6

next i

rem UV Mapping

for i=0 to nbVertices-1

read uv1#,uv2#

write memblock float 255,UvOffset+(i*8),uv1#

write memblock float 255,UvOffset+(i*8)+4,uv2#

next i

rem Create object from memblock

make mesh from memblock 65534,255

make object numobject,65534,0

rem Delete intermediate mesh and memblock

delete mesh 65534

delete memblock 255

rem ***********************************

rem          Objects datas

rem ***********************************

tetrahedron:

rem Header

data 464,10,32,10,152,4,272,28,384

rem Vertices

data 0.817497,0.57835,0,-0.815497,0.57835,0,0,-0.57635,0.817497

data 0,-0.57635,-0.815497,0,-0.57635,-0.815497,0,-0.57635,0.817497

data 0.817497,0.57835,0,0,-0.57635,-0.815497,-0.815497,0.57835,0

data 0,-0.57635,0.817497

rem Normals

data 0,1.0,0,0,1.0,0,0,0.577351,0.816496

data 0,0.577351,-0.816496,0.816496,-0.577351,0,0.816496,-0.577351,0

data 0.816496,-0.577351,0,-0.816496,-0.577351,0,-0.816496,-0.577351,0

data -0.816496,-0.577351,0

rem Faces

data 3,0,0,1,1,2,2

data 3,1,1,0,0,3,3

data 3,4,4,6,6,5,5

data 3,7,7,9,9,8,8

rem UV mapping

data 0.5,0.5,0.5,1.5,-0.5,1.0,-0.5,1.0,-0.5,1.5,0.5,1.5

data 0,0.5,-0.5,1.5,0,0.5,0.5,1.5

octahedron:

rem Header

data 832,18,32,18,248,8,464,56,688

rem Vertices

data 0,0.708107,0.708107,0,0.708107,-0.706107,1.001,0,0

data 0,-0.706107,0.708107,-0.999,0,0,0,-0.706107,-0.706107

data 1.001,0,0,0,0.708107,0.708107,0,0.708107,0.708107

data -0.999,0,0,0,0.708107,-0.706107,1.001,0,0

data 0,0.708107,-0.706107,0,-0.706107,-0.706107,0,-0.706107,0.708107

data -0.999,0,0,0,-0.706107,0.708107,0,-0.706107,-0.706107

rem Normals

data 0,1.0,0,0,1.0,0,1.0,0,0

data 0,0,1.0,-1.0,0,0,0,0,-1.0

data 0.57735,0,0.816496,0.57735,0,0.816496,-0.57735,0,0.816496

data -0.57735,0.816496,0,-0.57735,0,-0.816496,0.57735,0,-0.816496

data 0.57735,0,-0.816496,0.57735,-0.816496,0,0.57735,-0.816496,0

data -0.57735,-0.816496,0,-0.57735,-0.816496,0,-0.57735,-0.816496,0

rem Faces

data 3,1,1,0,0,2,2

data 3,6,6,7,7,3,3

data 3,3,3,8,8,4,4

data 3,9,9,0,0,1,1

data 3,4,4,10,10,5,5

data 3,5,5,12,12,11,11

data 3,2,2,14,14,13,13

data 3,15,15,17,17,16,16

rem UV mapping

data 0,0.5,0,1.5,0.5,1.0,-0.5,1.0,0,1.5,-0.5,1.0

data 0,0.5,0.5,1.0,0.5,1.0,-0.5,1.0,0.5,1.0,0,0.5

data 0.5,1.0,0,1.5,0,0.5,-0.5,1.0,0,0.5,0,1.5

icosahedron:

rem Header

data 1936,42,32,42,536,20,1040,140,1600

rem Vertices

data 0,0.851651,0.526731,0,0.851651,-0.524731,0.851651,0.526731,0

data 0.526731,0,0.851651,-0.524731,0,0.851651,-0.849651,0.526731,0

data -0.524731,0,-0.849651,0.526731,0,-0.849651,0.851651,-0.524731,0

data 0,-0.849651,-0.524731,0,-0.849651,0.526731,-0.849651,-0.524731,0

data 0.851651,0.526731,0,0,0.851651,0.526731,0.526731,0,0.851651

data 0,0.851651,0.526731,-0.524731,0,0.851651,0,0.851651,0.526731

data -0.849651,0.526731,0,0,0.851651,-0.524731,-0.524731,0,-0.849651

data 0,0.851651,-0.524731,0.526731,0,-0.849651,0.851651,0.526731,0

data 0,0.851651,-0.524731,0.851651,0.526731,0,0.851651,0.526731,0

data 0.526731,0,-0.849651,-0.524731,0,-0.849651,0,-0.849651,-0.524731

data 0.526731,0,-0.849651,0.851651,-0.524731,0,0,-0.849651,-0.524731

data 0,-0.849651,0.526731,0,-0.849651,-0.524731,-0.849651,-0.524731,0

data 0,-0.849651,0.526731,0,-0.849651,-0.524731,0,-0.849651,0.526731

data 0.526731,0,0.851651,-0.524731,0,0.851651,-0.524731,0,0.851651

rem Normals

data 0,1.0,0,0,1.0,0,0.356822,0.934172,0

data 0.810146,0,0.586227,0,0,1.0,-0.934172,0.356822,0

data -0.810146,0,-0.586227,0,0,-1.0,0.934172,-0.356822,0

data 0,-0.356822,-0.934172,0,-0.707107,0.707107,-0.934172,-0.356822,0

data 0.57735,0.57735,0.57735,0.57735,0.57735,0.57735,0,0.356822,0.934172

data 0,0.356822,0.934172,-0.57735,0.57735,0.57735,-0.57735,0.57735,0.57735

data -0.356822,0.934172,0,-0.57735,0.57735,-0.57735,0,0.356822,-0.934172

data 0,0.356822,-0.934172,0.57735,0.57735,-0.57735,0.57735,0.57735,-0.57735

data 0.57735,0.57735,-0.57735,0.934172,0,0.356822,0.934172,0,-0.356822

data 0.934172,0,-0.356822,0,-0.356822,-0.934172,0.57735,-0.57735,-0.57735

data 0.57735,-0.57735,-0.57735,0.356822,-0.934172,0,0.356822,-0.934172,0

data 0.356822,-0.934172,0,-0.57735,-0.57735,-0.57735,-0.356822,-0.934172,0

data -0.356822,-0.934172,0,-0.356822,-0.934172,0,0,-0.356822,0.934172

data 0,-0.356822,0.934172,-0.57735,-0.57735,0.57735,-0.934172,0,0.356822

rem Faces

data 3,1,1,0,0,2,2

data 3,12,12,13,13,3,3

data 3,14,14,15,15,4,4

data 3,16,16,17,17,5,5

data 3,18,18,0,0,1,1

data 3,5,5,19,19,6,6

data 3,20,20,21,21,7,7

data 3,22,22,24,24,23,23

data 3,25,25,3,3,8,8

data 3,26,26,8,8,27,27

data 3,28,28,7,7,9,9

data 3,29,29,30,30,8,8

data 3,8,8,3,3,10,10

data 3,31,31,33,33,32,32

data 3,6,6,34,34,11,11

data 3,35,35,37,37,36,36

data 3,38,38,39,39,4,4

data 3,10,10,40,40,11,11

data 3,6,6,11,11,5,5

data 3,5,5,11,11,41,41

rem UV mapping

data 0,0.690983,0,1.30902,0.5,1.0,0.5,1.0,0,1.30902,0,0.690983

data -0.5,1.0,0,0.690983,0,1.30902,-0.5,1.0,0.309017,1.5,0,1.30902

data 0,0.690983,0.309017,0.5,0,0.690983,0.5,1.0,0.5,1.0,0.309017,0.5

data -0.5,1.0,-0.309017,0.5,0,1.30902,0.5,1.0,-0.5,1.0,0,0.690983

data -0.309017,0.5,0,0.690983,0,0.690983,-0.5,1.0,0,1.30902,-0.309017,1.5

data -0.5,1.0,0.5,1.0,0,1.30902,0,0.690983,-0.309017,1.5,-0.5,1.0

data 0,0.690983,0,1.30902,-0.5,1.0,0,0.690983,0.5,1.0,0.5,1.0

dodecahedron:

rem Header

data 3344,72,32,72,896,36,1760,252,2768

rem Vertices

data 0.357822,0.935172,0,-0.355822,0.935172,0,0.57835,0.57835,0.57835

data 0,0.357822,0.935172,-0.57635,0.57835,0.57835,-0.57635,0.57835,-0.57635

data 0,0.357822,-0.933172,0.57835,0.57835,-0.57635,0.935172,0,0.357822

data 0.935172,0,-0.355822,0,-0.355822,-0.933172,0.57835,-0.57635,-0.57635

data 0.57835,-0.57635,0.57835,0.357822,-0.933172,0,-0.57635,-0.57635,-0.57635

data -0.355822,-0.933172,0,0,-0.355822,0.935172,-0.57635,-0.57635,0.57835

data -0.933172,0,-0.355822,-0.933172,0,0.357822,0.57835,0.57835,-0.57635

data 0.57835,0.57835,-0.57635,0.57835,0.57835,-0.57635,0.357822,0.935172,0

data 0.57835,0.57835,-0.57635,0,0.357822,-0.933172,0.57835,0.57835,-0.57635

data 0.57835,0.57835,-0.57635,0.935172,0,-0.355822,0.57835,-0.57635,-0.57635

data 0.57835,-0.57635,-0.57635,0.57835,-0.57635,-0.57635,0.57835,-0.57635,-0.57635

data 0,-0.355822,-0.933172,0.57835,-0.57635,-0.57635,0.57835,-0.57635,-0.57635

data 0.357822,-0.933172,0,0.57835,-0.57635,0.57835,0.57835,-0.57635,0.57835

data 0.357822,-0.933172,0,-0.355822,-0.933172,0,-0.355822,-0.933172,0

data -0.355822,-0.933172,0,-0.57635,-0.57635,0.57835,-0.933172,0,0.357822

data -0.57635,0.57835,0.57835,0,0.357822,0.935172,-0.933172,0,0.357822

data 0,0.357822,0.935172,0,-0.355822,0.935172,-0.933172,0,0.357822

data 0,-0.355822,0.935172,-0.57635,-0.57635,0.57835,-0.57635,0.57835,-0.57635

data -0.57635,0.57835,-0.57635,-0.355822,0.935172,0,-0.355822,0.935172,0

data -0.57635,0.57835,0.57835,-0.933172,0,-0.355822,-0.933172,0,-0.355822

data 0,0.357822,-0.933172,-0.933172,0,-0.355822,0,0.357822,-0.933172

data -0.57635,0.57835,-0.57635,0,0.357822,0.935172,0.935172,0,0.357822

data 0,0.357822,0.935172,0.935172,0,0.357822,0.57835,-0.57635,0.57835

data 0,0.357822,0.935172,0.57835,-0.57635,0.57835,0,-0.355822,0.935172

rem Normals

data 0,0.955423,0.295242,0,0.955423,-0.295242,0.688191,0.587785,0.425325

data 0,0.850651,0.525731,0,0.850651,0.525731,0,0.850651,-0.525731

data 0,0.850651,-0.525731,0,0.850651,-0.525731,1.0,0,0

data 1.0,0,0,0,0,-1.0,0.525731,0,-0.850651

data 0.850651,-0.525731,0,0.850651,-0.525731,0,-0.425325,-0.688191,-0.587785

data 0,-0.992447,0.122673,0,-0.850651,0.525731,0,-0.850651,0.525731

data -0.979432,-0.201774,0,-0.992447,0.122673,0,0.850651,0.525731,0

data 0.850651,0.525731,0,0.850651,0.525731,0,0.850651,0.525731,0

data 0.525731,0,-0.850651,0.525731,0,-0.850651,0.525731,0,-0.850651

data 0.525731,0,-0.850651,0.525731,0,-0.850651,0.850651,-0.525731,0

data 0.850651,-0.525731,0,0.850651,-0.525731,0,0,-0.850651,-0.525731

data 0,-0.850651,-0.525731,0,-0.850651,-0.525731,0,-0.850651,-0.525731

data 0,-0.850651,-0.525731,0,-0.850651,0.525731,0,-0.850651,0.525731

data 0,-0.850651,0.525731,-0.850651,-0.525731,0,-0.850651,-0.525731,0

data -0.850651,-0.525731,0,-0.850651,-0.525731,0,-0.525731,0,0.850651

data -0.525731,0,0.850651,-0.525731,0,0.850651,-0.525731,0,0.850651

data -0.525731,0,0.850651,-0.525731,0,0.850651,-0.850651,0.525731,0

data -0.850651,0.525731,0,-0.850651,0.525731,0,-0.850651,0.525731,0

data -0.850651,0.525731,0,-0.525731,0,-0.850651,-0.525731,0,-0.850651

data -0.525731,0,-0.850651,-0.525731,0,-0.850651,-0.525731,0,-0.850651

data -0.525731,0,-0.850651,0.525731,0,0.850651,0.525731,0,0.850651

data 0.525731,0,0.850651,0.525731,0,0.850651,0.525731,0,0.850651

rem Faces

data 3,0,0,3,3,2,2

data 3,0,0,4,4,3,3

data 3,0,0,1,1,4,4

data 3,1,1,6,6,5,5

data 3,1,1,7,7,6,6

data 3,1,1,0,0,7,7

data 3,20,20,8,8,9,9

data 3,21,21,2,2,8,8

data 3,22,22,23,23,2,2

data 3,24,24,10,10,25,25

data 3,26,26,11,11,10,10

data 3,27,27,28,28,11,11

data 3,29,29,12,12,13,13

data 3,30,30,8,8,12,12

data 3,31,31,9,9,8,8

data 3,32,32,14,14,33,33

data 3,34,34,15,15,14,14

data 3,35,35,36,36,15,15

data 3,15,15,16,16,17,17

data 3,15,15,37,37,16,16

data 3,15,15,39,39,38,38

data 3,40,40,18,18,14,14

data 3,41,41,19,19,18,18

data 3,42,42,43,43,19,19

data 3,44,44,46,46,45,45

data 3,47,47,49,49,48,48

data 3,50,50,52,52,51,51

data 3,19,19,53,53,18,18

data 3,19,19,55,55,54,54

data 3,19,19,57,57,56,56

data 3,58,58,10,10,14,14

data 3,59,59,60,60,10,10

data 3,61,61,63,63,62,62

data 3,64,64,65,65,2,2

data 3,66,66,68,68,67,67

data 3,69,69,71,71,70,70

rem UV mapping

data 0.190983,1.0,-0.190983,1.0,0.309017,0.690983,0,0.5,-0.309017,0.690983,-0.309017,1.30902

data 0,1.5,0.309017,1.30902,0.190983,1.0,-0.190983,1.0,-0.190983,1.0,-0.309017,0.690983

data 0.309017,1.30902,0,1.5,-0.309017,1.30902,-0.190983,1.0,0,0.5,-0.309017,0.690983

data -0.190983,1.0,0.190983,1.0,-0.309017,0.690983,-0.309017,0.690983,-0.309017,0.690983,0,0.5

data 0.309017,0.690983,0.190983,1.0,0.309017,0.690983,0.309017,0.690983,0,0.5,-0.309017,1.30902

data -0.309017,1.30902,-0.309017,1.30902,0.309017,1.30902,0,1.5,0.309017,1.30902,0.309017,1.30902

data 0.190983,1.0,0.309017,0.690983,0.309017,0.690983,0.190983,1.0,0,1.5,0,1.5

data 0,1.5,0.309017,1.30902,0,1.5,0.309017,1.30902,0.190983,1.0,0,1.5

data 0.190983,1.0,-0.190983,1.0,0,1.5,-0.190983,1.0,-0.309017,1.30902,-0.309017,0.690983

data -0.309017,0.690983,0,0.5,0,0.5,0.309017,0.690983,0,1.5,0,1.5

data 0.190983,1.0,0,1.5,0.190983,1.0,0.309017,1.30902,0.190983,1.0,0,0.5

data 0.190983,1.0,0,0.5,-0.309017,0.690983,0.190983,1.0,-0.309017,0.690983,-0.190983,1.0

CodeBase - Make Platonic Solid function

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Kelebrindae
CodeBase Entries:	3