Computer Generated Art

nine

by Carolyn Nicholas

$artwork$

Code

startshape nine

background{b -1}

rule nine{
	start{}
	start2{}
}

rule start{
	1000*{}walk{|h 180}
}
rule walk{
	walk{x 50 s .99 a -.01 h -.01|}
}

rule walk{
	walk{y 50 s.99 a -.01 h -.01|}
}

rule walk{
	walk{x -50  s.99 a -.01 h -.01|}
}

rule walk{
	walk{y -50 s .99 a -.01 h -.01|}
}

rule walk .001{
	base{}
}

rule base{
	100*{x 2 y 4 r 15 s .99}CIRCLE{s 1 3 r 15 h 168.03 sat 1.0000 b 1.0000 }
	100*{x -3 y -5 r 15 s .99}TRIANGLE{s 4 2 h 249.75 sat 1.0000 b 1.0000}
	100*{x 3 y -4 r -15 s .99}SQUARE{s 2 1 h 288.12 sat 0.6430 b 1.0000}
	TRIANGLE{x -5 y -2 s 2 5 h 58.26 sat 1.0000 b 1.0000}
	TRIANGLE{x 3 y -3 s 3 4 h 293.86 sat 1.0000 b 1.0000}
	100*{s .99 y 2 x 3 r 10}CIRCLE{s 2 3 r 14h 240.20 sat 1.0000 b 0.3757}
	100*{s .99 y 2 x 3  r 10}CIRCLE{s 3 1 r 15 h 156.80 sat 1.0000 b 1.0000}
	100*{s .99 y 2 x 3 r 10}TRIANGLE{s 1 2 x 2 h 264.29 sat 0.4467 b 0.3481}
	base{s .99 r 45 x 3 y 4}
}

rule start2{
	3000*{}walk{|h 34 sat .7983 h 53.60}
}
rule walk2{
	walk2{x 50 s .9 a -.01  r .1 h .1|}
}

rule walk2{
	walk2{y 50 s.9 a -.01  r -.1 h .1|}
}

rule walk2{
	walk2{x -50  s.9 a -.01  r -.1 h .1|}
}

rule walk2{
	walk2{y -50 s .9 a -.01 r .1 h .1|}
}

rule walk2{
100*{s .7}walk2{}

}

rule walk2 .001{
	base2{}

}

rule base2{
100*{s .99 b .01}SQUARE{s .1 10}
}