Converted from the following self-authored PostScript code:

%!
135 350 translate .42 dup scale 90 rotate 45 setlinewidth
0 setgray/z{20000 sqrt}def/y{gsave 69 setlinewidth 1 setgray
stroke grestore stroke}def
0 z 4 div 75 45 135 arc
z -2 mul z -4 div 75 315 225 arcn
z -4 mul z 4 div 75 45 90 arc
z -4 mul 0 z 4 div 75 add 90 270 arc
z -4 mul z -4 div 75 270 315 arc
z -2 mul z 4 div 75 135 45 arcn
0 z -4 div 75 225 315 arc
z 2 mul z 4 div 75 135 45 arcn
z 4 mul z -4 div 75 225 270 arc
z 3.875 mul 75 add -75 z 4 div sub lineto
z 3.875 mul 75 add 75 z 4 div add lineto
z 4 mul z 4 div 75 90 135 arc
z 2 mul z -4 div 75 315 225 arcn closepath y
z -3 mul z neg moveto
z -5 mul z 4 div 75 45 90 arc
z -4.875 mul 75 sub 75 z 4 div add lineto
z -4.875 mul 75 sub -75 z 4 div sub lineto
z -5 mul z -4 div 75 270 315 arc
z -3 mul z 4 div 75 135 45 arcn
z neg z -4 div 75 225 315 arc
z z 4 div 75 135 45 arcn
z 3 mul z -4 div 75 225 270 arc
z 3 mul 0 z 4 div 75 add 270 90 arc
z 3 mul z 4 div 75 90 135 arc
z z -4 div 75 315 225 arcn
z neg z 4 div 75 45 135 arc -200 -200 rlineto y
gsave 69 setlinewidth 1 setgray
z -.375 mul z .625 mul moveto -47 -47 rlineto stroke
-17 17 moveto 34 -34 rlineto stroke
z -1.625 mul z -.625 mul moveto 47 47 rlineto stroke
-17 z sub 17 moveto 34 -34 rlineto stroke
-17 z add 17 moveto 34 -34 rlineto stroke
-17 z 2 mul sub 17 moveto 34 -34 rlineto stroke
-17 z -3 mul sub 17 moveto 34 -34 rlineto stroke
-17 z 3 mul sub 17 moveto 34 -34 rlineto stroke
-17 z 4 mul sub 17 moveto 34 -34 rlineto stroke
z .375 mul z -.625 mul moveto 47 47 rlineto stroke
z -4 mul 0 z 4 div 75 add 160 110 arcn stroke
z -3.625 mul z -.625 mul moveto 47 47 rlineto stroke
z -2.375 mul z .625 mul moveto -47 -47 rlineto stroke
z 3.39 mul z .39 mul moveto
z 4 mul z 4 div 75 135 125 arcn stroke
z 2.375 mul z -.625 mul moveto 47 47 rlineto stroke
-17 z -2 mul sub 17 moveto 34 -34 rlineto stroke
z 1.625 mul z .625 mul moveto -47 -47 rlineto stroke grestore
0 z 4 div 75 90 135 arc -48 -48 rlineto stroke
-18 18 moveto 36 -36 rlineto stroke
z -2 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
-18 z sub 18 moveto 36 -36 rlineto stroke
-18 z add 18 moveto 36 -36 rlineto stroke
-18 z 2 mul sub 18 moveto 36 -36 rlineto stroke
-18 z -3 mul sub 18 moveto 36 -36 rlineto stroke
-18 z 3 mul sub 18 moveto 36 -36 rlineto stroke
-18 z 4 mul sub 18 moveto 36 -36 rlineto stroke
0 z -4 div 75 270 315 arc 48 48 rlineto stroke
z -4 mul 0 z 4 div 75 add 170 100 arcn stroke
z -4 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
z -2 mul z 4 div 75 90 135 arc -48 -48 rlineto stroke
z 3.34 mul z .34 mul moveto
z 4 mul z 4 div 75 135 110 arcn stroke
z 2 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
-18 z -2 mul sub 18 moveto 36 -36 rlineto stroke
z 2 mul z 4 div 75 90 135 arc -48 -48 rlineto stroke
gsave
z -1.4 mul 1.274 sub z -3 mul 1.776 add translate -45 rotate
/w{1250 sqrt}def
z -2 mul w neg 75 90 45 arcn 
100 -100 rlineto stroke
0 w neg 75 135 45 arcn
z w 75 225 315 arc 
z 2 mul w neg 75 135 45 arcn
z 3 mul w 75 225 270 arc
z 3.255 mul 0 w 1.12133 mul -90 90 arc
-34 0 rlineto y
z -2 mul w 75 180 315 arc 
z neg w neg 75 135 45 arcn
0 w 75 225 315 arc
z w neg 75 135 45 arcn
z 2 mul w 75 225 315 arc
z 3 mul w neg 75 135 90 arcn y
gsave 69 setlinewidth 1 setgray
17 z -.5 mul add 17 moveto -34 -34 rlineto stroke
17 z 1.5 mul add 17 moveto -34 -34 rlineto stroke grestore
z -1 mul z -.5 mul moveto 94 94 rlineto
24 z 1.5 mul add 24 moveto -48 -48 rlineto stroke grestore
z -4.23 mul 1.051 sub z -4.4 mul 0.234 sub translate
-135 rotate
z -2 mul w neg 75 135 45 arcn 
z neg w 75 225 315 arc 
0 w neg 75 135 45 arcn
z w 75 225 270 arc 
z 1.255 mul 0 w 1.12133 mul -90 90 arc -34 0 rlineto y
z -2 mul w 75 225 315 arc 
z neg w neg 75 135 45 arcn
0 w 75 225 315 arc
z w neg 75 135 90 arcn y
gsave 69 setlinewidth 1 setgray
17 z -.5 mul add 17 moveto -34 -34 rlineto stroke grestore
24 z -.5 mul add 24 moveto -48 -48 rlineto stroke showpage
%EOF