%!Adobe-PS-2.0
%  A spiral scoreboard for Cosmic Wimpout.
%  This first part makes a straight spiral.
%  The second makes a "jaggy" spiral (reminiscent
%  of the flaming sun?)

/inch { 72 mul } bind def

/cshow {            % str
    dup             % str str
    stringwidth     % str wx wy
    pop             % str wx
    2 div           % str wx/2
    neg 0           % str -wx/2 0
    rmoveto         % str
    show
    } bind def

/wedge	360 20 div def

/Helvetica findfont 6 scalefont setfont

.0001 setlinewidth

4.25 inch 5.5 inch translate

wedge 6 mul rotate

35 5 500 {				% r	=> -
	wedge 2 div rotate

	dup 2.5 sub 750 exch sub	% r 750-r


	4.5 inch 750 div mul	% r Y

	dup 0 exch moveto

	.5 inch sub 0 exch lineto

	wedge rotate

	dup 2.5 add 750 exch sub	% r 750-r

	4.5 inch 750 div mul	% r Y

	dup .5 inch sub 0 exch lineto

	0 exch lineto closepath stroke

	wedge 2 div neg rotate

	dup 750 exch sub 		% r 750-r

	4.5 inch 750 div mul .15 inch sub % r Y

	0 exch moveto 3 string cvs cshow
} for

showpage

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  This second part makes a "jaggy" spiral (reminiscent
%  of the flaming sun?)
%  (The final "showpage" is commented out.)

%!Adobe-PS-2.0

/inch { 72 mul } bind def

/cshow {            % str
    dup             % str str
    stringwidth     % str wx wy
    pop             % str wx
    2 div           % str wx/2
    neg 0           % str -wx/2 0
    rmoveto         % str
    show
    } bind def

/wedge	360 20 div def

/Helvetica findfont 6 scalefont setfont

.0001 setlinewidth

4.25 inch 5.5 inch translate

wedge 6 mul rotate

35 5 500 {				% r	=> -
	wedge 2 div rotate

	dup 2.5 sub 750 exch sub	% r 750-r


	4.5 inch 750 div mul	% r Y

	dup 0 exch moveto

	.5 inch sub 0 exch lineto

	wedge rotate

	dup 2.5 add 750 exch sub	% r 750-r

	4.25 inch 750 div mul	% r Y

	dup .5 inch sub 0 exch lineto

	0 exch lineto closepath stroke

	wedge 2 div neg rotate

	dup 750 exch sub 		% r 750-r

	4.5 inch 750 div mul .25 inch sub	% r Y

	0 exch moveto 3 string cvs cshow
} for

%showpage