Starlike shape

[Rookie]

Hi all,

First try at Context Free. Code is real short and simple, but I kinda like the result.

Code: Select all

startshape Star

rule Star
{
	Ring { }	
	Ray { }	
	Ray {r 45}	
	Ray {r 90}	
	Ray {r 135}	
	Ray {r 180}			
	Ray {r 225}	
	Ray {r 270}		
	Ray {r 315}	
}

rule Ray
{
	Star {y 0.6 s 0.2}	
	Ray { r 8 s 0.7}	
}

rule Ring
{
	CIRCLE { }
	CIRCLE { b 1 s 0.93 }
}