"""
Rhombendodekaeder
16.01.2021
www.3d-meier.de
"""

import c4d
import math

# Variablen und Konstanten
Titel = 'Rhombendodekaeder' # Name

NP = 14    # Anzahl Punkte
N4 = 12    # Anzahl Vierecke

Radius = 1.0 # Radius der Eckpunktkugeln    


Punkte = [( 1,  1,  1),
          ( 1,  1, -1),
          ( 1, -1,  1),
          ( 1, -1, -1),
          (-1,  1,  1),
          (-1,  1, -1),
          (-1, -1,  1),
          (-1, -1, -1),
          ( 2,  0,  0),
          (-2,  0,  0),
          ( 0,  2,  0),
          ( 0, -2,  0),
          ( 0,  0,  2),
          ( 0,  0, -2)]
    
Vierecke = [( 1, 10,  0,  8),
            ( 8,  0, 12,  2),
            ( 2, 12,  6, 11),
            (11,  6,  9,  7),
            ( 7,  9,  5, 13),
            (13,  5, 10,  1),
            ( 0, 10,  4, 12),
            (12,  4,  9,  6),
            ( 4, 10,  5,  9),
            (13,  3, 11,  7),
            ( 1,  8,  3, 13),
            (11,  3,  8,  2)]
                        

Faktor = 100         # Skalierungsfaktor
k = 1/math.sqrt(3)   # Korrekturfaktor fuer Kantenlänge 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 CreateVierecke():
    obj = c4d.BaseObject(c4d.Opolygon)
    obj.ResizeObject(NP, N4)
    obj.SetName('Vierecke')
  # 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
    for i in xrange(N4): 
        obj.SetPolygon(i, c4d.CPolygon(Vierecke[i][0], Vierecke[i][1], Vierecke[i][2], Vierecke[i][3]))     
      
    obj.Message(c4d.MSG_UPDATE)
    return obj

#************************************************************************
def CreateSplineVierecke():
    obj = c4d.BaseObject(c4d.Ospline)
    obj.SetName("Spline-Vierecke")
    obj.ResizeObject(N4*4)
    zz = 0
    for i in xrange(N4):
        for j in xrange(4):
            x = Punkte[Vierecke[i][j]][0]
            y = Punkte[Vierecke[i][j]][1]
            z = Punkte[Vierecke[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, N4)
    for i in range(0, N4):
        obj.SetSegment(i, 4, 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 = CreateVierecke()   
    splobj1 = CreateSplineVierecke()   
 
    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(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)         
         
         
    c4d.EventAdd()



if __name__=='__main__':
    main()