%!PS-Adobe-2.0
%%Title: Paradigm Research Logo w/Gradients
%%Creator: Stephen Asbury 
%%CreationDate: June 17, 1994
%%Pages: 0 1
%%BoundingBox: 0 0 230 160
%%DocumentFonts: Times-Bold
%%EndComments

%%procedure to draw the lower circle
/DrawClosed {
	/y exch def
	/x exch def
	
	gsave
	newpath
	x y 34 65 355 arc
	16 setlinewidth
	stroke

	x y 12.5 0 360 arc
	1 setlinewidth
	closepath
	clip

	1 setlinewidth
	/offset {5} def

	1 0.5 12.5{

	/inc exch def
	/reset {inc 12.5 div offset mul} def

	x offset sub reset add y offset add reset sub inc 0 360 arc
	%%1 inc 12.5 div sub 0.8 mul setgray
	1 inc 11 div 0.9 mul sub setgray
	stroke

	}for
	grestore
}def

%%Procedure to draw the upper circle
/DrawOpen{
	/y exch def
	/x exch def

	gsave
	newpath
	x y 34 245 175 arc
	16 setlinewidth
	stroke

	x y 12.5  0 360 arc
	closepath
	2 setlinewidth
	closepath
	clip

	1 setlinewidth
	/offset {5} def

	1 0.5 12{

	/inc exch def
	/reset {inc 12.5 div offset mul} def

	x offset sub reset add y offset add reset sub inc 0 360 arc
	%%1 inc 12.5 div sub 0.85 mul setgray
	1 inc 11 div 0.4 mul sub setgray
	stroke

	}for

	grestore
}def
%%Procedure to draw the "Squiggle"
/DrawSquig {
	/y2 exch def
	/x2 exch def
	/y1 exch def
	/x1 exch def

	/reallength {
			x2 x1 sub 
			x2 x1 sub mul 
			y2 y1 sub 
			y2 y1 sub mul 
			add sqrt
	}def

	/length {reallength 0.4 mul} def

	/hgt {22 length div} def

	/P1{0.75 0} def
	/P2 {.15 hgt} def
	/P3 {.25 hgt neg} def
	/P4 {0.5 0} def
	/P5 {.75 hgt} def
	/P6 {.85 hgt neg} def
	/P7{1 0} def

	gsave
	newpath
	
	x1 y1 translate
	length length scale
	30 rotate

	P1 translate
	0 0 moveto
	P2 P3 P4 curveto
	P5 P6 P7 curveto
	8 length div setlinewidth
	2 setlinecap
	%%0.7 setgray
	%%stroke
	strokepath
	clip

	0.05 0.05 1.0{

	/inc exch def

	newpath
	P4 inc 0 360 arc
	1 inc sub 0.7 mul setgray
	closepath
	stroke

	}for

	grestore
}def

/c1 {80 60} def
/c2 {145 97} def

c1 DrawClosed
c2 DrawOpen
c1 c2 DrawSquig