dirty drawing

[momo]

Code: Select all

startshape INIT { color }

rule INIT {
	DRAW { }
	DRAW { r 180 }
	BALL { x -50 y 2 }
}

rule BALL {
	SHAPE { }
	SHAPE { flip 90 }
	BALL { y 1 s 0.999 r 5}
}

rule DRAW {
	SHAPE { }
	SHAPE { flip 90 }
	DRAW { y 1 s 0.999 r 1}
}

rule DRAW 0.006 {DRAW_B { }}

rule DRAW_B {
	SHAPE { }
	SHAPE { flip 90 }
	DRAW_B { y 1 s 0.997 r -1}
}

rule DRAW_B 0.006 {DRAW { }}

rule SHAPE {
	LINE { }
	SHAPE { x 1 alpha -0.2}
}

rule SHAPE 0.1 {}

rule LINE {SQUARE { s 0.5 20 }}
rule LINE {SQUARE { s 0.1 20 }}
rule LINE {SQUARE { s 0.9 20 }}
rule LINE {SQUARE { s 0.6 20 }}
rule LINE {SQUARE { s 0.3 20 }}

http://chriscoyne.com/gallery/view.php? ... 3869299968

[lagroue]

Sweet texture !

With some more balls, and no DRAW_B rule (flip can be used instead) :

Code: Select all

# no color declaration in last Context Free version
startshape INIT

rule INIT { 
   DRAW { } 
   DRAW { r 180 } 
   BALL { x -50 y 2 } 
} 

rule BALL { 
   SHAPE { } 
   SHAPE { flip 90 } 
   BALL { y 1 s 0.999 r 5} 
} 

rule DRAW { 
   SHAPE { } 
   SHAPE { flip 90 } 
   DRAW { y 1 s 0.999 r 1} 
} 

rule DRAW 0.002 {
   BALL { x -50 y 2 } 
   DRAW { }
} 

rule DRAW 0.006 {DRAW { flip 90 }} 

rule SHAPE { 
   LINE { } 
   SHAPE { x 1 alpha -0.2} 
} 

rule SHAPE 0.1 {} 

rule LINE {SQUARE { s 0.5 20 }} 
rule LINE {SQUARE { s 0.1 20 }} 
rule LINE {SQUARE { s 0.9 20 }} 
rule LINE {SQUARE { s 0.6 20 }} 
rule LINE {SQUARE { s 0.3 20 }}