"""
Tetraederstumpf
06.01.2021
www.3d-meier.de
"""

import c4d
import math

# Variablen und Konstanten
Titel = 'Tetraederstumpf' # Name

NP = 12    # Anzahl Punkte
N3 = 4     # Anzahl Dreiecke
N6 = 4     # Anzahl Sechsecke

Radius = 3 # Radius der Eckpunktkugeln     

Punkte = [( 3.0,  1.0,  1.0),
          ( 1.0,  3.0,  1.0),
          ( 1.0,  1.0,  3.0),
          (-3.0, -1.0,  1.0),
          (-1.0, -3.0,  1.0),
          (-1.0, -1.0,  3.0),
          (-3.0,  1.0, -1.0),
          (-1.0,  3.0, -1.0),
          (-1.0,  1.0, -3.0),
          ( 3.0, -1.0, -1.0),
          ( 1.0, -3.0, -1.0),
          ( 1.0, -1.0, -3.0)]

Dreiecke = [(9, 10, 11, 11),
            (3,  4,  5,  5),
            (6,  7,  8,  8),
            (0,  1,  2,  2)]

Sechsecke = [( 0,  9, 11, 8, 7, 1),
             ( 8, 11, 10, 4, 3, 6),
             (10,  9,  0, 2, 5, 4),
             ( 1,  7,  6, 3, 5, 2)]

Faktor = 100          # Skalierungsfaktor
k = 1/math.sqrt(8)    # Korrekturfaktor fuer Kantenlaenge 1

#************************************************************************
def CreateNullobjekt1():
    obj = c4d.BaseObject(c4d.Onull)
    obj.SetName(Titel)
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateNullobjekt2():
    obj = c4d.BaseObject(c4d.Onull)
    obj.SetName('Ecken')
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateNullobjekt3():
    obj = c4d.BaseObject(c4d.Onull)
    obj.SetName('Kanten')
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateNullobjekt4():
    obj = c4d.BaseObject(c4d.Onull)
    obj.SetName('Polygone')
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateDreiecke():
    obj = c4d.BaseObject(c4d.Opolygon)
    obj.ResizeObject(NP,N3)
    obj.SetName('Dreiecke')
  # Punkte uebergeben
    for i in xrange(NP):
        obj.SetPoint(i, c4d.Vector(Punkte[i][0]*Faktor*k, Punkte[i][1]*Faktor*k, Punkte[i][2]*Faktor*k))
  # Dreiecke setzen
    for i in xrange(N3):
        obj.SetPolygon( i, c4d.CPolygon(Dreiecke[i][0], Dreiecke[i][1], Dreiecke[i][2], Dreiecke[i][3]))

    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateSechsecke():
    obj = c4d.BaseObject(c4d.Opolygon)
    obj.ResizeObject(NP, N6*2)
    obj.SetName('Sechsecke')
  # Punkte uebergeben
    for i in xrange(NP):
        obj.SetPoint(i, c4d.Vector(Punkte[i][0]*Faktor*k, Punkte[i][1]*Faktor*k, Punkte[i][2]*Faktor*k))
  # Vierecke setzen
    zz = 0 # Zähler für Polygone zurücksetzen
    for i in xrange(N6):
        obj.SetPolygon(zz, c4d.CPolygon(Sechsecke[i][0], Sechsecke[i][1], Sechsecke[i][2], Sechsecke[i][5]))
        zz = zz + 1
        obj.SetPolygon(zz, c4d.CPolygon(Sechsecke[i][2], Sechsecke[i][3], Sechsecke[i][4], Sechsecke[i][5]))
        zz = zz + 1        

    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateSplineDreiecke():
    obj = c4d.BaseObject(c4d.Ospline)
    obj.SetName("Spline-Dreiecke")
    obj.ResizeObject(N3*3)
    zz = 0
    for i in xrange(N3):
        for j in xrange(3):
            x = Punkte[Dreiecke[i][j]][0]
            y = Punkte[Dreiecke[i][j]][1]
            z = Punkte[Dreiecke[i][j]][2]
            obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k))
            zz = zz + 1
  # Segmente erzeugen
    obj.MakeVariableTag(c4d.Tsegment, N3)
    for i in range(0, N3):
        obj.SetSegment(i, 3, True)
  # Spline schliessen
    obj[c4d.SPLINEOBJECT_CLOSED] = True

    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateSplineSechsecke():
    obj = c4d.BaseObject(c4d.Ospline)
    obj.SetName("Spline-Sechsecke")
    obj.ResizeObject(N6*6)
    zz = 0
    for i in xrange(N6):
        for j in xrange(6):
            x = Punkte[Sechsecke[i][j]][0]
            y = Punkte[Sechsecke[i][j]][1]
            z = Punkte[Sechsecke[i][j]][2]
            obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k))
            zz = zz + 1
  # Segmente erzeugen
    obj.MakeVariableTag(c4d.Tsegment, N6)
    for i in range(0, N6):
        obj.SetSegment(i, 6, True)
  # Spline schliessen
    obj[c4d.SPLINEOBJECT_CLOSED] = True

    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def main():
    nullobj1 = CreateNullobjekt1()
    nullobj2 = CreateNullobjekt2()   # Ecken
    nullobj3 = CreateNullobjekt3()   # Kanten
    nullobj4 = CreateNullobjekt4()   # Polygone
    
    plyobj1 = CreateDreiecke()
    plyobj2 = CreateSechsecke()
    
    splobj1 = CreateSplineDreiecke()
    splobj2 = CreateSplineSechsecke()

    doc.InsertObject(nullobj1, None, None, True)
    doc.InsertObject(nullobj4, nullobj1, None, True)
    doc.InsertObject(nullobj3, nullobj1, None, True)
    doc.InsertObject(nullobj2, nullobj1, None, True)

    doc.InsertObject(splobj2, nullobj3, None, True)
    doc.InsertObject(splobj1, nullobj3, None, True)
    
    doc.InsertObject(plyobj2, nullobj4, None, True)
    doc.InsertObject(plyobj1, nullobj4, None, True)

  # Kugeln auf Eckpunkte setzen
    for i in range(0, NP):
        obj = c4d.BaseObject(c4d.Osphere)
        obj[c4d.PRIM_SPHERE_RAD] = Radius
        obj.SetName(str(i))            
        x = Punkte[i][0]
        y = Punkte[i][1]
        z = Punkte[i][2]
        obj.SetAbsPos(c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k))
        doc.InsertObject(obj, nullobj2, None, True)

    c4d.EventAdd()

if __name__=='__main__':
    main()