[TUHS] tangential unix question: whatever happened to NeWS?

[Larry McVoy]

On Sun, Jan 24, 2021 at 04:38:30PM -0700, Grant Taylor via TUHS wrote:
> On 1/24/21 1:54 PM, Larry McVoy wrote:
> >I did the first SPARC Cluster and made a logo that was 4 interconnected
> >Sun logos in the same shape, I can probably dig it up.
> 
> I would be curious to see the clustered SUN logo if you could find it
> without much digging.

Pretty simple:

%!PS

/inch { 72 mul } def

/offset { .20 inch } def

% Draws a cluster logo slight smaller than a postit note, about 2.5" square
% Drawn with the center at the current point.
/clusters {
    gsave
	newpath
	0 setlinecap
	100 dup dup dup		% XXX - this has to be 100
	4 {
	    gsave
		dup 0 translate 
		45 rotate
		gsave
		    3 44 dup dup scale div setlinewidth
		    -1 -1 moveto -1 1 lineto 
		    1 1 lineto 1 -1 lineto closepath stroke
		    0 1 moveto 0 2 lineto stroke
		    -1 0 moveto -2 0 lineto stroke
		    -1 1 moveto -2 2 lineto stroke
		grestore
		6 setlinewidth
		4 { 90 180
		    2 {
			5 38 moveto
			10 10 5 180 0 arc 15 38 lineto stroke
			40 40 translate rotate
		    } repeat
		} repeat
	    grestore
	    90 rotate
	} repeat
    grestore
} bind def

4 inch 8 inch translate
1 dup scale
clusters
showpage