%!
% Date: Thu, 21 Apr 88 04:03:37 EDT
% To: NeWS-makers@brillig.umd.edu
% Subject: Re:  Sun logo in PostScript?
% From: sunpeaks!denali!bill@Sun.COM (Bill Meine [Sun Rocky Mtn TSE])
% 
% Here's the one I use.  Some of the transformations are fairly ugly
% (it was derived from someone elses code).  It acts as a primitive
% that requires a newpath before and adds a sun logo to the currentpath
% to use for whatever (even a canvas boundary).

/Sunlogo { % xcenter ycenter s = -
 3 1 roll               	% s xcenter ycenter
 matrix currentmatrix 4 1 roll	% matrix s xcenter ycenter
 translate        		% matrix s
 16 dup mul 2 div sqrt div	% s will now represent total height
 dup scale			% matrix
 0 3 dup mul 2 mul sqrt neg translate	% new starting point from center
 45 rotate
        /Uchar {
                 -.1 0 moveto
                 0 0 .1 180 360 arc
                 0 2.9 rlineto
                 .8 0 rlineto
                 0 -2.9 rlineto
                 0 0 .9 0 180 arcn
                 0 2.9 rlineto
                 .8 0 rlineto
                closepath
                } def
        /2Uchar { Uchar matrix currentmatrix
		  4 4 translate Uchar setmatrix
                } def
 4 { 2Uchar 6 0 translate 90 rotate } repeat
 setmatrix		% restore original CTM
 } def

% Try (from psh):

newpath 100 100 150 Sunlogo gsave 1 setgray fill grestore stroke

% -Bill