""" Pentakisdodekaeder 16.01.2021 www.3d-meier.de """ import c4d import math # Variablen und Konstanten Titel = 'Pentakisdodekaeder' # Name NP = 32 # Anzahl Punkte N3 = 60 # Anzahl Dreiecke Radius = 2.0 # Radius der Eckpunktkugeln a = (1 + math.sqrt(5))/2.0 # Goldener Schnitt b = (3*a + 12)/19.0 # Korrekturfaktor für Ikosaeder Punkte = [( 0.0, b, a*b), ( 0.0, b, -a*b), ( 0.0, -b, a*b), ( 0.0, -b, -a*b), ( b, a*b, 0.0), ( b, -a*b, 0.0), ( -b, a*b, 0.0), ( -b, -a*b, 0.0), ( a*b, 0.0, b), (-a*b, 0.0, b), ( a*b, 0.0, -b), (-a*b, 0.0, -b), ( 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)] Dreiecke = [(20, 16, 0, 0), (26, 0, 16, 16), (20, 0, 18, 18), (20, 18, 4, 4), (20, 4, 21, 21), (20, 21, 6, 6), (20, 6, 16, 16), (12, 2, 22, 22), ( 5, 12, 22, 22), (23, 5, 22, 22), ( 7, 23, 22, 22), (14, 7, 22, 22), ( 2, 14, 22, 22), (23, 13, 5, 5), (23, 3, 13, 13), ( 7, 15, 23, 23), (15, 3, 23, 23), (25, 19, 10, 10), (25, 10, 13, 13), (25, 13, 3, 3), (25, 3, 27, 27), (25, 27, 1, 1), (25, 1, 19, 19), ( 2, 26, 14, 14), (10, 29, 13, 13), (13, 29, 5, 5), ( 5, 29, 12, 12), (19, 28, 10, 10), (10, 28, 29, 29), (28, 8, 29, 29), (29, 8, 12, 12), (19, 4, 28, 28), (21, 4, 19, 19), (21, 19, 1, 1), (21, 1, 17, 17), (21, 17, 6, 6), ( 1, 27, 17, 17), ( 9, 30, 31, 31), (30, 11, 31, 31), (31, 11, 15, 15), (31, 15, 7, 7), (31, 7, 14, 14), (31, 14, 9, 9), ( 9, 14, 26, 26), ( 9, 26, 16, 16), ( 9, 16, 30, 30), (16, 6, 30, 30), ( 6, 17, 30, 30), (11, 30, 17, 17), (11, 17, 27, 27), (11, 27, 15, 15), (15, 27, 3, 3), (24, 8, 18, 18), (24, 18, 0, 0), (24, 0, 26, 26), (24, 26, 2, 2), (24, 2, 12, 12), (24, 12, 8, 8), (28, 4, 18, 18), (28, 18, 8, 8)] Faktor = 100 # Skalierungsfaktor k = 1 # Korrekturfaktor #************************************************************************ 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 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 main(): nullobj1 = CreateNullobjekt1() nullobj2 = CreateNullobjekt2() # Ecken nullobj3 = CreateNullobjekt3() # Kanten nullobj4 = CreateNullobjekt4() # Polygone plyobj1 = CreateDreiecke() splobj1 = CreateSplineDreiecke() 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()