/*
	Tentacle Tree
	www.lazymoon.org
	tentacletree.cfdg
*/

startshape petree
background {b -1}

rule petree {
virus{}
}

rule virus {
stem{flip 0 b 1 sat 1 hue 0}
stem{flip 90 b 1 sat 1 hue 0}
}

rule glow {
CIRCLE {}
SQUARE {s 0.5 x 1 y -1}
SQUARE {s 0.5 x -1 y 1}
}


rule stem {
glow{}
stem{s 0.99 x 0.99 r 1 }
}
rule stem {
glow{}
stem{s 0.99 x 0.99 r 5 }
}
rule stem 0.03 {
	splice{ hue 5 }
}

rule splice {
	point {}
	stem{flip 45}
	stem{flip -45}
}
rule splice {
	point {}
	stem{flip 0}
	stem{flip -45}
	stem{flip 45}
}

rule point {
sqr {s 4 b 1 sat 1 hue 0}
}

rule sqr{
CIRCLE{}
sqr {alpha -0.1 s 0.99  x 0.99 r 90 skew 1 5}
}