""" 6 Prismen 28.05.2021 www.3d-meier.de """ import c4d import math # Variablen und Konstanten Titel = '6 Prismen' # Name NP = 60 # Anzahl Punkte N4 = 60 # Anzahl Vierecke N5P = 12 # Anzahl Pentagramme Radius = 2 # Radius der Eckpunktkugeln phi = (1 + math.sqrt(5))/2.0 # Goldener Schnitt a = phi*phi*phi b = phi*phi c = phi d = 2.0*phi e = 2.0+phi Punkte1 = [] Punkte = [( 1, 1, a), ( 1, 1, -a), ( 1, -1, a), ( 1, -1, -a), ( -1, 1, a), ( -1, 1, -a), ( -1, -1, a), ( -1, -1, -a), ( b, c, d), ( b, c, -d), ( b, -c, d), ( b, -c, -d), ( -b, c, d), ( -b, c, -d), ( -b, -c, d), ( -b, -c, -d), ( e, 0, b), ( e, 0, -b), ( -e, 0, b), ( -e, 0, -b), ( 1, a, 1), ( 1, -a, 1), ( -1, a, 1), ( -1, -a, 1), ( 1, a, -1), ( 1, -a, -1), ( -1, a, -1), ( -1, -a, -1), ( c, d, b), ( c, -d, b), ( -c, d, b), ( -c, -d, b), ( c, d, -b), ( c, -d, -b), ( -c, d, -b), ( -c, -d, -b), ( 0, b, e), ( 0, -b, e), ( 0, b, -e), ( 0, -b, -e), ( a, 1, 1), ( -a, 1, 1), ( a, 1, -1), ( -a, 1, -1), ( a, -1, 1), ( -a, -1, 1), ( a, -1, -1), ( -a, -1, -1), ( d, b, c), ( -d, b, c), ( d, b, -c), ( -d, b, -c), ( d, -b, c), ( -d, -b, c), ( d, -b, -c), ( -d, -b, -c), ( b, e, 0), ( -b, e, 0), ( b, -e, 0), ( -b, -e, 0)] Vierecke = [( 68, 62, 22, 6), # Prisma 1 ( 6, 22, 61, 69), # Prisma 1 ( 69, 61, 51, 53), # Prisma 1 ( 53, 51, 60, 65), # Prisma 1 ( 65, 60, 5, 27), # Prisma 1 ( 27, 5, 64, 66), # Prisma 1 ( 66, 64, 9, 58), # Prisma 1 ( 58, 9, 63, 67), # Prisma 1 ( 67, 63, 56, 10), # Prisma 1 ( 10, 56, 62, 68), # Prisma 1 ( 73, 79, 28, 34), # Prisma 2 ( 34, 28, 78, 74), # Prisma 2 ( 74, 78, 40, 1), # Prisma 2 ( 1, 40, 77, 70), # Prisma 2 ( 70, 77, 52, 39), # Prisma 2 ( 39, 52, 76, 71), # Prisma 2 ( 71, 76, 37, 55), # Prisma 2 ( 55, 37, 75, 72), # Prisma 2 ( 72, 75, 4, 43), # Prisma 2 ( 43, 4, 79, 73), # Prisma 2 ( 82, 87, 36, 50), # Prisma 3 ( 50, 36, 86, 83), # Prisma 3 ( 83, 86, 2, 46), # Prisma 3 ( 46, 2, 85, 84), # Prisma 3 ( 84, 85, 31, 33), # Prisma 3 ( 33, 31, 89, 80), # Prisma 3 ( 80, 89, 45, 7), # Prisma 3 ( 7, 45, 88, 81), # Prisma 3 ( 81, 88, 49, 38), # Prisma 3 ( 38, 49, 87, 82), # Prisma 3 ( 47, 25, 90, 96), # Prisma 4 ( 95, 91, 25, 47), # Prisma 4 ( 13, 11, 91, 95), # Prisma 4 ( 99, 92, 11, 13), # Prisma 4 ( 26, 42, 92, 99), # Prisma 4 ( 98, 93, 42, 26), # Prisma 4 ( 30, 16, 93, 98), # Prisma 4 ( 97, 94, 16, 30), # Prisma 4 ( 18, 29, 94, 97), # Prisma 4 ( 96, 90, 29, 18), # Prisma 4 ( 57, 15, 104, 109), # Prisma 5 (108, 100, 15, 57), # Prisma 5 ( 24, 3, 100, 108), # Prisma 5 (107, 101, 3, 24), # Prisma 5 ( 48, 54, 101, 107), # Prisma 5 (106, 102, 54, 48), # Prisma 5 ( 0, 21, 102, 106), # Prisma 5 (105, 103, 21, 0), # Prisma 5 ( 12, 59, 103, 105), # Prisma 5 (109, 104, 59, 12), # Prisma 5 (114, 115, 8, 14), # Prisma 6 ( 14, 8, 119, 110), # Prisma 6 (110, 119, 20, 41), # Prisma 6 ( 41, 20, 118, 111), # Prisma 6 (111, 118, 32, 19), # Prisma 6 ( 19, 32, 117, 112), # Prisma 6 (112, 117, 17, 35), # Prisma 6 ( 35, 17, 116, 113), # Prisma 6 (113, 116, 44, 23), # Prisma 6 ( 23, 44, 115, 114)] # Prisma 6 Pentagramme = [( 5, 51, 22, 56, 9), # Prisma 1 (53, 27, 58, 10, 6), # Prisma 1 ( 1, 39, 55, 43, 34), # Prisma 2 ( 4, 37, 52, 40, 28), # Prisma 2 (33, 7, 38, 50, 46), # Prisma 3 (31, 2, 36, 49, 45), # Prisma 3 (29, 25, 11, 42, 16), # Prisma 4 (13, 47, 18, 30, 26), # Prisma 4 (15, 3, 54, 21, 59), # Prisma 5 (12, 0, 48, 24, 57), # Prisma 5 (14, 41, 19, 35, 23), # Prisma 6 ( 8, 44, 17, 32, 20)] # Prisma 6 Faktor = 100 # Skalierungsfaktor k = 0.5 # Korrekturfaktor fuer Kantenlaenge 1 #************************************************************************ # Geradengleichung def Gerade(a, b, r): c = b-a d = a + r*c return d #************************************************************************ 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 + N5P*5, N4) obj.SetName('Vierecke') # Punkte uebergeben # print(Punkte1) for i in xrange(NP + N5P*5): obj.SetPoint(i, Punkte1[i]*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 CreatePentagramme(): obj = c4d.BaseObject(c4d.Opolygon) obj.ResizeObject(NP + N5P*5, N5P*7) obj.SetName('Pentagramme') phi = (1+math.sqrt(5))/2.0 r1 = phi/(2*phi + 1) r2 = (phi + 1)/(2*phi + 1) # 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)) Punkte1.append(c4d.Vector(Punkte[i][0], Punkte[i][1], Punkte[i][2])) for i in xrange(N5P): # Eckpunkte des Pentagramms in Vektoren umwandeln P0 = c4d.Vector(Punkte[Pentagramme[i][0]][0], Punkte[Pentagramme[i][0]][1], Punkte[Pentagramme[i][0]][2]) P1 = c4d.Vector(Punkte[Pentagramme[i][1]][0], Punkte[Pentagramme[i][1]][1], Punkte[Pentagramme[i][1]][2]) P2 = c4d.Vector(Punkte[Pentagramme[i][2]][0], Punkte[Pentagramme[i][2]][1], Punkte[Pentagramme[i][2]][2]) P3 = c4d.Vector(Punkte[Pentagramme[i][3]][0], Punkte[Pentagramme[i][3]][1], Punkte[Pentagramme[i][3]][2]) P4 = c4d.Vector(Punkte[Pentagramme[i][4]][0], Punkte[Pentagramme[i][4]][1], Punkte[Pentagramme[i][4]][2]) # Neue Punkte P5 = Gerade(P0, P2, r1) P6 = Gerade(P0, P2, r2) P7 = Gerade(P1, P3, r2) P8 = Gerade(P3, P0, r1) P9 = Gerade(P3, P0, r2) # Neue Punkte an Polygonobjekt uebergeben obj.SetPoint(5*i+NP, P5*Faktor*k) obj.SetPoint(5*i+NP+1, P6*Faktor*k) obj.SetPoint(5*i+NP+2, P7*Faktor*k) obj.SetPoint(5*i+NP+3, P8*Faktor*k) obj.SetPoint(5*i+NP+4, P9*Faktor*k) # Neue Punkte an Punkte1 uebergeben Punkte1.append(P5) Punkte1.append(P6) Punkte1.append(P7) Punkte1.append(P8) Punkte1.append(P9) # Polygone setzen obj.SetPolygon(7*i+0, c4d.CPolygon(Pentagramme[i][0], 5*i+NP , 5*i+NP+4, 5*i+NP+4)) obj.SetPolygon(7*i+1, c4d.CPolygon(Pentagramme[i][1], 5*i+NP+1, 5*i+NP , 5*i+NP )) obj.SetPolygon(7*i+2, c4d.CPolygon(Pentagramme[i][2], 5*i+NP+2, 5*i+NP+1, 5*i+NP+1)) obj.SetPolygon(7*i+3, c4d.CPolygon(Pentagramme[i][3], 5*i+NP+3, 5*i+NP+2, 5*i+NP+2)) obj.SetPolygon(7*i+4, c4d.CPolygon(Pentagramme[i][4], 5*i+NP+4, 5*i+NP+3, 5*i+NP+3)) obj.SetPolygon(7*i+5, c4d.CPolygon(5*i+NP , 5*i+NP+1, 5*i+NP+2, 5*i+NP+3)) obj.SetPolygon(7*i+6, c4d.CPolygon(5*i+NP+3 , 5*i+NP+4, 5*i+NP , 5*i+NP )) 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 = Punkte1[Vierecke[i][j]][0] y = Punkte1[Vierecke[i][j]][1] z = Punkte1[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 CreateSplinePentagramme(): obj = c4d.BaseObject(c4d.Ospline) obj.SetName("Spline-Pentagramme") obj.ResizeObject(N5P*5) zz = 0 for i in xrange(N5P): x = Punkte[Pentagramme[i][0]][0] y = Punkte[Pentagramme[i][0]][1] z = Punkte[Pentagramme[i][0]][2] obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k)) zz = zz + 1 x = Punkte[Pentagramme[i][2]][0] y = Punkte[Pentagramme[i][2]][1] z = Punkte[Pentagramme[i][2]][2] obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k)) zz = zz + 1 x = Punkte[Pentagramme[i][4]][0] y = Punkte[Pentagramme[i][4]][1] z = Punkte[Pentagramme[i][4]][2] obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k)) zz = zz + 1 x = Punkte[Pentagramme[i][1]][0] y = Punkte[Pentagramme[i][1]][1] z = Punkte[Pentagramme[i][1]][2] obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k)) zz = zz + 1 x = Punkte[Pentagramme[i][3]][0] y = Punkte[Pentagramme[i][3]][1] z = Punkte[Pentagramme[i][3]][2] obj.SetPoint(zz, c4d.Vector(x*Faktor*k, y*Faktor*k, z*Faktor*k)) zz = zz + 1 # Segmente erzeugen obj.MakeVariableTag(c4d.Tsegment, N5P) for i in range(0, N5P): 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 plyobj2 = CreatePentagramme() plyobj1 = CreateVierecke() splobj1 = CreateSplineVierecke() splobj2 = CreateSplinePentagramme() 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()