curly #contextfree #fractal

	startshape START
	CF::Background = [hue 28 sat 1]
	shape START
	{
	SCENE [hue 30 sat 1 b 0.5]
	}
	shape SCENE
	{
	LINE [flip 90]
	LINE [flip 180]
	}
	shape LINE
	rule {
	SQUARE []
	LINE [x .2 s 0.996 r 1]
	}
	rule 0.02 {
	SQUARE [r 90..0]
	SQUARE [x 10..40 y 10..20 s 5..10 a -0.2..-0.9]
	LINE [x 1 s 0.994]
	}
	rule 0.008 {
	SQUARE []
	SQUARE [x 1 s 2]
	LINE [x 1 s 0.994 r 90]
	}
	rule 0.004 {
	SQUARE [x 1 s .01]
	LINE [x 1 s 0.994 r 90]
	LINE []
	}

view raw curly-lines.cfdg hosted with ❤ by GitHub