%!PS-Adobe-2.0 EPSF-2.0
%%Title: Julia-Teppich
%%BoundingBox: 0 0 440 240

/sqr{ dup mul} bind def

/wurzel{
	/m x a sub def
	/n y b sub def
	/r m sqr n sqr add sqrt def
	/x r m add 2 div sqrt def
	/y r m sub 2 div sqrt n 0 lt {neg}if def
	
	x 0.5 sub sqr y sqr add sqrt dup
	x 0.5 add sqr y sqr add sqrt add div
	90 mul 5 add
	
	rand 100 mod lt { /x x neg def /y y neg def}if
} def

/point{ 
	x y 0.002 0 360 arc fill stroke
	x neg y neg 0.002 0 360 arc fill stroke
} def

/julia{
	-1 -1.5 moveto
	a 100 mul cvi 100 div 8 string cvs show
	(+i*) show
	b 100 mul cvi 100 div 8 string cvs show
	stroke

	50 { wurzel} repeat
	20000 {wurzel point } repeat
} def

/Helvetica 0.4 selectfont

20 dup translate

0.005 setlinewidth

200 dup scale

1 0 translate

-1 0.2 1{
	/a exch def
	0 0.2 1{
		/b exch def
		gsave
			a b translate
			0.06 dup scale
			/x 0 def /y 0 def
			julia
		grestore
		} for
}for