
Beispiel
! ------------------
! Koordinaten der Ecken
a=1 ! Breite/Kantenlänge
b=a*sin(60) ! Dreieckshöhe
h1=a/2*TAN(30) ! Schwerpunkt
z=b ! Höhe
! ------------------
! Material definieren
mx=2.5*a ! Breite der Bitmap/Textur in Metern
my=b ! Höhe der Bitmap/Textur in Metern
DEFINE TEXTURE "wrap" "tetra_wrap.gif", mx,my, 1, 0
DEFINE MATERIAL "Tetra" 20,
1, 1, 1, 0.58, 0.85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! Schraffur-Index, Farbe-Index, Textur-Index
IND(FILL, "Leere Schraffur"), 0, IND(TEXTURE, "wrap")
SET MATERIAL "Tetra"
! ------------------
! Punkte
TEVE 0,0,0 ,1.0*a,0 ! Ecke 1
TEVE a,0,0 ,0.0*a,0 ! Ecke 2
TEVE a/2,b,0 ,0.5*a,b ! Ecke 3
TEVE a/2,h1,z ,1.5*a,b ! Ecke 4
TEVE a,0,0 ,2.0*a,0 ! Ecke 5 (Lage im Raum wie 2)
TEVE a/2,b,0 ,2.5*a,b ! Ecke 6 (Lage im Raum wie 3)
! ------------------
! Kanten
EDGE 1,2, -1,-1, 0 ! Kante 1
EDGE 2,3, -1,-1, 0 ! Kante 2
EDGE 3,1, -1,-1, 0 ! Kante 3
EDGE 1,4, -1,-1, 0 ! Kante 4
EDGE 4,3, -1,-1, 0 ! Kante 5
EDGE 1,5, -1,-1, 0 ! Kante 6 (wie Kante 1)
EDGE 4,5, -1,-1, 0 ! Kante 7
EDGE 4,6, -1,-1, 0 ! Kante 8 (wie Kante 5)
EDGE 5,6, -1,-1, 0 ! Kante 9 (wie Kante 2)
! ------------------
! Flächen
PGON 3, 0, 0, 1, 2, 3 ! Fläche 1
PGON 3, 0, 0, 4, 7,-6 ! Fläche 2
PGON 3, 0, 0, 7, 9,-8 ! Fläche 3
PGON 3, 0, 0, 3, 4, 5 ! Fläche 4
! ------------------
! Texturausrichtung und Körpererzeugung
BASE
TEVE 0,0,0 ,0,0 ! Ursprung
TEVE 1,0,0 ,0,0 ! X
TEVE 0,1,0 ,0,0 ! Y
TEVE 0,0,1 ,0,0 ! Z
COOR 2+1024, 1,2,3,4
BODY -1
Damit das Beispiel funktioniert muss das Bitmap "tetra_wrap.gif" in der geladenen Bibliothek liegen. Siehe Beispielobjekt. |