"""
Spiral Fraktal 6
17.07.2022
(c) Juergen Meier (www.3d-meier.de)
"""

import c4d
import random
import math


# Variablen und Konstanten
Titel = 'Spiral Fraktal 6' # Name
N = 1000000                # Anzahl Punkte
Nv = 100                   # Anzahl Punkte verwerfen
dx = 0.30                  # Breite Polygon
dy = 0.30                  # Hoehe Polygon
Faktor = 1000              # Skalierungsfaktor

k = [(0.200, 0.000,  0.00, 0.200,  0.385,  0.000, 0.06),
     (0.200, 0.000,  0.00, 0.200, -0.385,  0.000, 0.06),
     (0.200, 0.000,  0.00, 0.200,  0.000,  0.385, 0.06),
     (0.200, 0.000,  0.00, 0.200,  0.000, -0.385, 0.06),
     (0.200, 0.000,  0.00, 0.200,  0.275, -0.275, 0.06),
     (0.200, 0.000,  0.00, 0.200, -0.275,  0.275, 0.06),
     (0.200, 0.000,  0.00, 0.200,  0.275,  0.275, 0.06),
     (0.200, 0.000,  0.00, 0.200, -0.275, -0.275, 0.06),
     (0.799, 0.291, -0.29, 0.799,  0.000,  0.000, 0.52)]


def CreatePolygonObject():
    obj = c4d.BaseObject(c4d.Opolygon)
    obj.ResizeObject(4*N, N)
    obj.SetName(Titel)
  # Startwert der Berechnung
    xa = 0.5
    y = 0.5
  # Zaehler fuer Punkte setzten
    zz = 0
  # Zaehler fuer Polygone setzten
    zzz = 0
    for i in xrange(0,Nv):
        zufall = random.randint(0,100)
        if zufall < 6:           
           x = k[0][0]*xa + k[0][1]*y + k[0][4]
           y = k[0][2]*xa + k[0][3]*y + k[0][5]
        if (zufall >= 6) and (zufall < 12):
           x = k[1][0]*xa + k[1][1]*y + k[1][4]
           y = k[1][2]*xa + k[1][3]*y + k[1][5] 
        if (zufall >= 12) and (zufall < 18):
           x = k[2][0]*xa + k[2][1]*y + k[2][4]
           y = k[2][2]*xa + k[2][3]*y + k[2][5]      
        if (zufall >= 18) and (zufall < 24):
           x = k[3][0]*xa + k[3][1]*y + k[3][4]
           y = k[3][2]*xa + k[3][3]*y + k[3][5]           
        if (zufall >= 24) and (zufall < 30):
           x = k[4][0]*xa + k[4][1]*y + k[4][4]
           y = k[4][2]*xa + k[4][3]*y + k[4][5]                
        if (zufall >= 30) and (zufall < 36):
           x = k[5][0]*xa + k[5][1]*y + k[5][4]
           y = k[5][2]*xa + k[5][3]*y + k[5][5]       
        if (zufall >= 36) and (zufall < 42):
           x = k[6][0]*xa + k[6][1]*y + k[6][4]
           y = k[6][2]*xa + k[6][3]*y + k[6][5]            
        if (zufall >= 42) and (zufall < 48):
           x = k[7][0]*xa + k[7][1]*y + k[7][4]
           y = k[7][2]*xa + k[7][3]*y + k[7][5]              
        if zufall >= 48:           
           x = k[8][0]*xa + k[8][1]*y + k[8][4]
           y = k[8][2]*xa + k[8][3]*y + k[8][5]     
        xa = x

    for i in xrange(0,N):
        zufall = random.randint(0,100)
        if zufall < 6:           
           x = k[0][0]*xa + k[0][1]*y + k[0][4]
           y = k[0][2]*xa + k[0][3]*y + k[0][5]
        if (zufall >= 6) and (zufall < 12):
           x = k[1][0]*xa + k[1][1]*y + k[1][4]
           y = k[1][2]*xa + k[1][3]*y + k[1][5] 
        if (zufall >= 12) and (zufall < 18):
           x = k[2][0]*xa + k[2][1]*y + k[2][4]
           y = k[2][2]*xa + k[2][3]*y + k[2][5]      
        if (zufall >= 18) and (zufall < 24):
           x = k[3][0]*xa + k[3][1]*y + k[3][4]
           y = k[3][2]*xa + k[3][3]*y + k[3][5]           
        if (zufall >= 24) and (zufall < 30):
           x = k[4][0]*xa + k[4][1]*y + k[4][4]
           y = k[4][2]*xa + k[4][3]*y + k[4][5]                
        if (zufall >= 30) and (zufall < 36):
           x = k[5][0]*xa + k[5][1]*y + k[5][4]
           y = k[5][2]*xa + k[5][3]*y + k[5][5]       
        if (zufall >= 36) and (zufall < 42):
           x = k[6][0]*xa + k[6][1]*y + k[6][4]
           y = k[6][2]*xa + k[6][3]*y + k[6][5]            
        if (zufall >= 42) and (zufall < 48):
           x = k[7][0]*xa + k[7][1]*y + k[7][4]
           y = k[7][2]*xa + k[7][3]*y + k[7][5]              
        if zufall >= 48:           
           x = k[8][0]*xa + k[8][1]*y + k[8][4]
           y = k[8][2]*xa + k[8][3]*y + k[8][5]     
        xa = x

        obj.SetPoint(zz, c4d.Vector((Faktor*x-dx/2.0),(Faktor*y+dy/2.0),0))
        zz=zz+1
        obj.SetPoint(zz, c4d.Vector((Faktor*x-dx/2.0),(Faktor*y-dy/2.0),0))
        zz=zz+1
        obj.SetPoint(zz, c4d.Vector((Faktor*x+dx/2.0),(Faktor*y+dy/2.0),0))
        zz=zz+1
        obj.SetPoint(zz, c4d.Vector((Faktor*x+dx/2.0),(Faktor*y-dy/2.0),0))
        zz=zz+1
        obj.SetPolygon(zzz, c4d.CPolygon(zz-1,zz-2,zz-4,zz-3))
        zzz=zzz+1

    obj.Message(c4d.MSG_UPDATE)
    return obj



def main():
    plyobj = CreatePolygonObject()
    doc.InsertObject(plyobj, None, None, True)

    c4d.EventAdd()



if __name__=='__main__':
    main()