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

import c4d
import math

# Variablen und Konstanten
Titel = 'Dodekaeder' # Name

NP = 20    # Anzahl Punkte
N5 = 12    # Anzahl Fuenfecke

Radius = 2 # Radius der Eckpunktkugeln       

a = (1 + math.sqrt(5))/2.0 # Goldener Schnitt

Punkte = [(  1.0, -1.0,  1.0),
          (  1.0, -1.0, -1.0),
          ( -1.0, -1.0,  1.0),
          ( -1.0, -1.0, -1.0),
          ( -1.0,  1.0,  1.0),
          ( -1.0,  1.0, -1.0),
          (  1.0,  1.0,  1.0),
          (  1.0,  1.0, -1.0),
          (  0.0,    a,  1/a),
          (  0.0,    a, -1/a),
          (  0.0,   -a,  1/a),
          (  0.0,   -a, -1/a),
          (  1/a,  0.0,    a),
          (  1/a,  0.0,   -a),
          ( -1/a,  0.0,    a),
          ( -1/a,  0.0,   -a),
          (    a,  1/a,  0.0),
          (    a, -1/a,  0.0),
          (   -a,  1/a,  0.0),
          (   -a, -1/a,  0.0)]
    

Fuenfecke = [( 9,  7, 13, 15,  5),
             (13,  1, 11,  3, 15),
             ( 3, 19, 18,  5, 15),
             (10,  2, 19,  3, 11),
             (17,  0, 10, 11,  1),
             (12, 14,  2, 10,  0),
             (12,  6,  8,  4, 14),
             (18, 19,  2, 14,  4),
             ( 9,  5, 18,  4,  8),
             ( 9,  8,  6, 16,  7),
             (16, 17,  1, 13,  7),
             ( 6, 12,  0, 17, 16)]
                        

Faktor = 100   # Skalierungsfaktor
k = a/2        # Korrekturfaktor fuer Kantenlaenge 1

ku = 128                                            # Unterteilung der Kugeln
ru = Faktor*math.sqrt(3)*(1+math.sqrt(5))/4.0       # Umkugelradius
ri = Faktor*math.sqrt(250 + 110*math.sqrt(5))/20.0  # Innenkugelkradius
rk = Faktor*(3+math.sqrt(5))/4.0                    # Kantenkugelradius

#************************************************************************
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 CreateNullobjekt5():
    obj = c4d.BaseObject(c4d.Onull)
    obj.SetName('Kugeln')
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateFuenfecke():
    obj = c4d.BaseObject(c4d.Opolygon)
    obj.ResizeObject(NP, N5*2)
    obj.SetName('Fünfecke')
  # 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))
    zz = 0 # Zaehler fuer Polygone zuruecksetzen
    for i in xrange(N5):
        obj.SetPolygon(zz, c4d.CPolygon(Fuenfecke[i][0], Fuenfecke[i][1], Fuenfecke[i][2], Fuenfecke[i][4]))
        zz = zz + 1
        obj.SetPolygon(zz, c4d.CPolygon(Fuenfecke[i][2], Fuenfecke[i][3], Fuenfecke[i][4], Fuenfecke[i][4]))        
        zz = zz + 1
   
    obj.Message(c4d.MSG_UPDATE)
    return obj


#************************************************************************
def CreateSplineFuenfecke():
    obj = c4d.BaseObject(c4d.Ospline)
    obj.SetName("Spline-Fünfecke")
    obj.ResizeObject(N5*5)
    zz = 0
    for i in xrange(N5):
        for j in xrange(5):
            x = Punkte[Fuenfecke[i][j]][0]
            y = Punkte[Fuenfecke[i][j]][1]
            z = Punkte[Fuenfecke[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, N5)
    for i in range(0, N5):
        obj.SetSegment(i, 5, 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    
    nullobj5 = CreateNullobjekt5()   # Umkugel, etc.    
        
    plyobj1 = CreateFuenfecke()   
    splobj1 = CreateSplineFuenfecke() 
 
    doc.InsertObject(nullobj1, None, None, True)
    doc.InsertObject(nullobj5, nullobj1, None, True)       
    doc.InsertObject(nullobj4, nullobj1, None, True)
    doc.InsertObject(nullobj3, nullobj1, None, True)
    doc.InsertObject(nullobj2, nullobj1, None, True) 
 
    doc.InsertObject(splobj1, nullobj3, 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)

  # Umkugel erzeugen
    obj = c4d.BaseObject(c4d.Osphere)
    obj[c4d.PRIM_SPHERE_SUB] = ku
    obj[c4d.PRIM_SPHERE_RAD] = ru
    obj.SetName('Umkugel')
    obj[c4d.ID_BASEOBJECT_VISIBILITY_EDITOR] = 1
    obj[c4d.ID_BASEOBJECT_VISIBILITY_RENDER] = 1    
    doc.InsertObject(obj, nullobj5, None, True)

  # Innenkugel erzeugen
    obj = c4d.BaseObject(c4d.Osphere)
    obj[c4d.PRIM_SPHERE_SUB] = ku
    obj[c4d.PRIM_SPHERE_RAD] = ri
    obj.SetName('Inkugel')
    obj[c4d.ID_BASEOBJECT_VISIBILITY_EDITOR] = 1
    obj[c4d.ID_BASEOBJECT_VISIBILITY_RENDER] = 1        
    doc.InsertObject(obj, nullobj5, None, True)

  # Kantenkugel erzeugen
    obj = c4d.BaseObject(c4d.Osphere)
    obj[c4d.PRIM_SPHERE_SUB] = ku
    obj[c4d.PRIM_SPHERE_RAD] = rk
    obj.SetName('Kantenkugel')
    obj[c4d.ID_BASEOBJECT_VISIBILITY_EDITOR] = 1
    obj[c4d.ID_BASEOBJECT_VISIBILITY_RENDER] = 1        
    doc.InsertObject(obj, nullobj5, None, True)
                 
    c4d.EventAdd()

if __name__=='__main__':
    main()