110e %!PS-Adobe-2.0 EPSF-1.2 %%BoundingBox: -3 -3 151 151 %%Creator: Paul Koning %%Title: ARRL ARES logo %%CreationDate: 89.12.21 %%EndComments % % The ARES logo % % The code below defines a PostScript function "ares-logo" which, when % invoked, paints the ARES logo at the current x/y. The resulting % image is 148 points square, in other words a hair over 2 inches. % % paul koning, 89.12.21 - created from the arrl diamond logo % 91.01.15 - fixed bug (stuff left on stack by arcto) % 91.12.03 - fixed bounding box % /bolt { newpath 0 0 moveto 22 -2 lineto 13 -7 lineto 32 -10 lineto 3 -10 lineto 14 -3 lineto closepath fill } def /cirdict 16 dict def /outsidecircletext { cirdict begin /radius exch def /centerangle exch def /ptsize exch def /str exch def /xradius radius ptsize 4 div add def % adjusted radius gsave centerangle str findhalfangle add rotate str { /charcode exch def ( ) dup 0 charcode put outsideplacechar } forall grestore end } def /insidecircletext { cirdict begin /radius exch def /centerangle exch def /ptsize exch def /str exch def /xradius radius ptsize 3 div sub def % adjusted radius gsave centerangle str findhalfangle sub rotate str { /charcode exch def ( ) dup 0 charcode put insideplacechar } forall grestore end } def cirdict begin /findhalfangle { stringwidth pop 2 div 2 xradius mul pi mul div 360 mul } def /outsideplacechar { /char exch def /halfangle char findhalfangle def gsave halfangle neg rotate radius 0 translate -90 rotate char stringwidth pop 2 div neg 0 moveto char show grestore halfangle 2 mul neg rotate } def /insideplacechar { /char exch def /halfangle char findhalfangle def gsave halfangle rotate radius 0 translate 90 rotate char stringwidth pop 2 div neg 0 moveto char show grestore halfangle 2 mul rotate } def /pi 3.1415926536 def end /ares-logo { gsave currentpoint translate newpath 5 setlinewidth 74 74 74 0 360 arc stroke gsave 87.15 89 translate 35 rotate bolt grestore gsave 56.905 68 translate 25 rotate -1 1 scale bolt grestore gsave 74 74 translate % set up for circular text /Helvetica findfont 14 scalefont setfont (AMATEUR RADIO) 14 90 55 outsidecircletext (EMERGENCY SERVICE) 14 270 66 insidecircletext grestore 54.275 29 translate 0.616 0.616 scale % scale for diamond 2 setlinewidth 1 setlinejoin % workaround for "spike" bug newpath 0 73 moveto 32 0 64 73 3 arcto pop pop newpath moveto 32 0 64 73 3 arcto pop pop pop pop 64 73 32 146 3 arcto pop pop pop pop 32 146 0 73 3 arcto pop pop pop pop 0 73 32 0 3 arcto pop pop pop pop closepath stroke % border for diamond 0 setlinejoin 4.5 73 moveto 32 10 lineto 59.5 73 lineto 32 136 lineto closepath fill % diamond body 1 setgray gsave 0 111 moveto 64 111 lineto 64 130 lineto 0 130 lineto clip newpath 1 setlinejoin 23 104 moveto 32 125 lineto 41 104 lineto 28 115 moveto 36 115 lineto stroke % letter A grestore 29 38 moveto 29 26 lineto 36 26 lineto stroke % letter L gsave 0 67 moveto 64 67 lineto 64 90 lineto 0 90 lineto clip newpath 14 67 moveto 14 82 lineto 18.5 82 lineto 18.5 78.5 3.5 90 -90 arcn 14 75 lineto 18 75 moveto 24 59 lineto stroke % left letter R 44 67 moveto 44 82 lineto 48.5 82 lineto 48.5 78.5 3.5 90 -90 arcn 44 75 lineto 48 75 moveto 54 59 lineto stroke % right letter R grestore 1.5 setlinewidth 31 41 moveto 33 41 lineto 29.375 43.75 moveto 34.625 43.75 lineto 27.75 46.5 moveto 36.25 46.5 lineto 26.125 49.25 moveto 37.875 49.25 lineto 24.5 52 moveto 39.5 52 lineto % ground symbol 32 52 moveto 32 60 lineto 25 60 25 68 33 68 curveto 39 68 39 64 33 64 curveto 25 64 25 76 33 76 curveto 39 76 39 72 33 72 curveto 25 72 25 84 33 84 curveto 39 84 39 80 33 80 curveto 25 80 25 88 32 88 curveto % coil 32 106 lineto 32 96 moveto 25 106 lineto 39 106 lineto closepath stroke % antenna grestore } def % display the diamond 0 0 moveto ares-logo showpage . 0