Download raw (5.2 KB)

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 133.34 116.67

% showpage called at the end to treat this eps as a normal ps file during testing
% showpage is redefined to nothing here for the ghostscript bug report
% /showpage {} def


/linethickness 0.52 def

% Support functions

/unrealrand {
  {(%Calendar%) currentdevparams dup} stopped
  {
    0
  }
  {
    /Second get exch dup
    /Minute get exch 
    /Hour get
    60 mul add
    60 mul add
  } ifelse
  realtime add srand
} def

unrealrand % add our new seed

/smallrand { rand 2147483647 div 2 mul 1 sub abs } def
/randrotate { smallrand 360 mul } def
/randpattern { patterns smallrand patterns length 1 sub mul round cvi get } def
/randline { smallrand 3 mul cvi } def

/base {
    /linethickness exch def
	linethickness 50 randrotate smallrand 6 mul mul randpattern exec
} def

/reveal {
    /linethickness exch def
	linethickness 50 randrotate neg randpattern exec
} def

%smallrand pop smallrand pop smallrand pop

/patterns [

{ % begin circle1
	/rot exch def
	/radius exch def
	/thick exch def
	/period 2 def 
	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius 1 add {
			radius neg radius neg moveto
			0 period translate
			radius 2 mul 0 rlineto
			stroke
		} repeat
	grestore
} % end circle1

{ % begin circle2
	/rot exch def
	/radius exch def
	/thick exch def
	/period 2 def
	gsave
		thick setlinewidth

		rot rotate
		newpath
			0 0 radius 0 360 arc
		closepath clip newpath

		radius neg radius 1 add neg translate
		radius 2 add {
			gsave
				radius 8 div ceiling cvi {
					0 0 moveto
					8 8 8 -8 16 0 curveto
					stroke
					16 0 translate
				} repeat
			grestore
			0 period translate
		} repeat
	grestore
} % end circle2


{ % begin circle3
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def
	gsave
		thick setlinewidth

		rot rotate
		newpath
			0 0 radius 0 360 arc
		closepath clip newpath

		radius neg radius 1 add neg translate
		radius 4 add {
			gsave
				radius 8 div ceiling cvi {
					0 0 moveto
					8 8 8 -16 16 0 curveto
					stroke
					16 0 translate
				} repeat
			grestore
			0 period translate
		} repeat
	grestore
} % end circle3

{ % begin circle4
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def 
	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius radius 2 div cvi add {
			radius neg radius 2 mul neg moveto
			0 period translate
			radius radius rlineto
			radius radius neg rlineto
			stroke
		} repeat
	grestore
} % end circle4

{ % begin circle5
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def 

	/quarter { radius 4 div cvi } def

	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius radius 2 div cvi add {
			radius neg radius 2 mul neg moveto
			0 period translate
			5 {
				quarter quarter rlineto
				quarter quarter neg rlineto
			} repeat
			stroke
		} repeat
	grestore
} % end circle5

{ % begin circle6
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def 

	/half { radius 2 div cvi } def

	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius radius 2 div cvi add {
			radius neg radius 2 mul neg moveto
			0 period translate
			2 {
				half half rlineto
				half half neg rlineto
			} repeat
			stroke
		} repeat
	grestore
} % end circle6

{ % begin circle7
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def 

	/half { radius 2 div cvi } def

	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius radius 2 div cvi add {
			radius neg radius 2 mul neg moveto
			0 period translate
			2 {
				half half 2 div rlineto
				half half 2 div neg rlineto
			} repeat
			stroke
		} repeat
	grestore
} % end circle7

{ % begin circle 8
	/rot exch def
	/radius exch def
	/thick exch def
	/period 3 def
	gsave
		thick setlinewidth

		rot rotate
		newpath
			0 0 radius 0 360 arc
		closepath clip newpath

		radius neg radius 1 add neg translate
		radius 5 add {
			gsave
				radius 24 div ceiling cvi {
					0 0 moveto
					24 24 24 -24 48 0 curveto
					stroke
					48 0 translate
				} repeat
			grestore
			0 period translate
		} repeat
	grestore
} % end circle8

{ % begin circle9
	/rot exch def
	/radius exch def
	/thick exch def
	/period 2 def 

	%/half { radius 2 div cvi } def

	gsave
		thick setlinewidth

		rot rotate
		newpath
			%radius neg radius neg radius 0 360 arc
			0 0 radius 0 360 arc
		closepath clip newpath
		
		radius radius 2 div cvi add {
			radius neg radius 2 mul neg moveto
			0 period translate
			2 {
				radius radius 2 div rlineto
				radius radius 2 div neg rlineto
			} repeat
			stroke
		} repeat
	grestore
} % end circle9

] def % end patterns

gsave
100 100 3 div 2 div sub 50 translate  % 100 - ((100 / 3) / 2)
linethickness base
grestore
gsave
50 100 3 div 2 div 50 add translate % 50 + ((100 / 3) / 2)
unrealrand
linethickness reveal
grestore

%showpage