from visual import *
from random import *

scene = display(title='Koch Curve',
                width=800,height=800,
                center=(0.5,0,0),range=0.5)
        
x=0.0
y=0.0

n=0

while n<10000:
    n=n+1
    
    RandomNumber=random()

    if RandomNumber<=0.25:
        xnew=0.333*x
        ynew=0.333*y
        
    if (RandomNumber>0.25 and RandomNumber<=0.5):
        xnew=0.333*0.5*x-0.333*0.866*y+0.333
        ynew=0.333*0.866*x+0.333*0.5*y

    if (RandomNumber>0.5 and RandomNumber<=0.75):
        xnew=0.333*0.5*x+0.333*0.866*y+0.5
        ynew=-0.333*0.866*x+0.333*0.5*y+0.866*0.333

    if RandomNumber>0.75:
        xnew=0.333*x+0.666
        ynew=0.333*y

    x=xnew
    y=ynew

    dot=sphere(pos=(x,y), radius=0.002)