25 Jan
2021
25 Jan
'21
6:18 a.m.
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:
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
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.