%!
%
% Date: Fri, 22 Apr 88 12:56:37 EDT
% To: NeWS-makers@brillig.umd.edu
% Subject: Re: Sun logo in PostScript?
% From: leres@ucbarpa.Berkeley.EDU  (Craig Leres)
% 
% Here's my Sun logo. I wrote it for Postscript not NeWS, but in fact
% used NeWS to preview it. To display it, I use something like:
% 
%     gsave
% 	4 inch dup translate
% 	sun
%     grestore
% 
% Enjoy.
% 
% 		Craig
% ------
% @(#) $Header: sun.ps,v 1.2 87/08/23 19:36:33 leres Exp $ (LBL)
%
% Draw the Sun logo, scaled for one inch by one inch
%
/sundict 21 dict def
/sun {
    sundict begin gsave

    % Defines
    /inch { 72 mul } bind def
    /mm { 2.834 mul } bind def

    /thick 42 mm def
    /width 400 mm def
    /realwidth 2 width mul 2 sqrt div def
    /rb 46.5 mm def
    /ra rb thick sub def
    /x1 0 mm def
    /x4 195 mm def
    /x2 x4 rb sub def
    /x3 x2 ra add def
    /y1 0 mm def
    /y2 thick def
    /y3 thick ra add def
    /y5 rb dup add def
    /y4 y5 thick sub def

    % Scale to one inch, position, and rotate.
    1 inch realwidth div dup scale
    realwidth 2 div 0 translate
    45 rotate

    % One Sun segment.
    /fnord {
	newpath
	0 setlinewidth
	0 0 moveto
	x4 y1 x4 y3 rb arcto 4 {pop} repeat
	x4 y5 x3 y5 rb arcto 4 {pop} repeat
	x1 y5 lineto
	x1 y4 lineto
	x3 y4 x3 y3 ra arcto 4 {pop} repeat
	x3 y2 x2 y2 ra arcto 4 {pop} repeat
	x1 y2 lineto
	closepath
	fill
    } def

    % Two Sun segment.
    /gronk {
	fnord
	gsave
	    x4 dup translate
	    180 rotate
	    fnord
	grestore
    } def

    gsave
	x4 0 translate
	90 rotate
	gronk
    grestore

    gsave
	width x4 sub 0 translate
	gronk
    grestore

    gsave
	0 width x4 sub translate
	gronk
    grestore

    gsave
	width width x4 sub translate
	90 rotate
	gronk
    grestore
    grestore end
} def

% Try it out!

100 100 translate
4 4 scale
sun