Generated by means of the following PostScript code:

%!
/!{def}def/N{counttomark}!/s{setrgbcolor}!/p{N 2 idiv{N
-2 roll rlineto}repeat}!/m{moveto}!/l{stroke}!/R{dup S}!
/S{3 sqrt mul}!/n{dup neg S}!/C{50 C2 2 mul 40.3}!
/w{setlinewidth}!/K{1 1 1 s 4.6 w}!/k{0 0 0 s 7.7 w}!
/C2{25 3 sqrt div}!/C5{50 C2 C4 sub C3}! 
/C3{25 3.75 cos div}!/C4{C3 3.75 sin mul}!
/C6{62.5 C4 S 2 div add C2 12.5 S add C4 2 div add C3}!
/C7{37.5 C4 S 2 div sub C2 12.5 S add C4 2 div add C3}!
mark 100 100 translate 4 dup scale
k 0 0 m 100 0 -50 n p closepath l
K 0 0 m 100 0 -50 n p closepath l
k C 0 360 arc closepath l
K C 0 360 arc closepath l
k 68 32 S m -12 n p l
K 69 31 S m -14 n p l
k 6 6 S m 12 R p l
K 5 5 S m 14 R p l
k 64 0 m 24 0 p l
K 62 0 m 28 0 p l
/k{.25 .25 .75 s 7.7 w}!
1 setlinejoin
k C5 97 3.75 arcn C6 -63.75 -85 arcn l
K C5 100 3.75 arcn C6 -63.75 -90 arcn l
k C6 -215 -236.25 arcn C7 56.25 -116.25 arcn C5 176.25 155 arcn l
K C6 -210 -236.25 arcn C7 56.25 -116.25 arcn C5 176.25 150 arcn l
k C5 25 3.75 arcn C6 -63.75 -236.25 arcn C7 56.25 35 arcn l
K C5 30 3.75 arcn C6 -63.75 -236.25 arcn C7 56.25 30 arcn l
k C7 -95 -116.25 arcn C5 176.25 83 arcn l
K C7 -90 -116.25 arcn C5 176.25 80 arcn l
pop showpage
%EOF