🚀 go-pugleaf

In article <1451@lznv.ATT.COM> jlw@lznv.ATT.COM (J.L.WOOD) writes:
>Does anyone out there have a PostScript description of a
>fleur-de-lis?  This is the French Royal symbol and also
>the basic symbol of the Boy Scouts.  I need it for mailings,

Yep.  Here is one I whipped up for the crest of Alpha Phi Omega (which
isn't done yet.  Someday...)

%!
% fleur_de_lis: draw a fleur_de_lis centered on the current point.
/fleur_de_lis {
gsave
currentpoint translate % set origin to currentpoint
gsave
% the "knot":
% draw an ellipse, 10 x 20, tangent to origin at the top
2 1 scale
0 -5 5 90 450 arc stroke
grestore
% the outline
% 10*sqrt(2)/2, 10 * ( 0.5 - sqrt(2)/4)
7.071068 -1.464466 moveto
15 2.5 % x1 y1
20 -2.5 % x2 y2
20 -10 % x3 y3
curveto
40 5 % x1 y1
25 20 % x2 y2
10 10 % x3 y3
curveto
12.5 27.5 % x1 y1
5 40 % x2 y2
0 40 % x3 y3
curveto
-5 40 % x1 y1
-12.5 27.5 % x2 y2
-10 10 % x3 y3
curveto
-25 20 % x1 y1
-40 5 % x2 y2
-20 -10 % x3 y3
curveto
-20 -2.5 % x1 y1
-15 2.5 % x2 y2
-7.071068 -1.464466 % x3 y3
curveto
stroke
% the inner veins
% left
0 0 moveto
-15 15 % x1 y1
-30 10 % x2 y2
-25 0 % x3 y3
curveto
-20 10 % x1 y1
-10 5 % x2 y2
0 0 % x3 y3
curveto
closepath fill
% right
0 0 moveto
15 15 % x1 y1
30 10 % x2 y2
25 0 % x3 y3
curveto
20 10 % x1 y1
10 5 % x2 y2
0 0 % x3 y3
curveto
closepath fill
%center
0 0 moveto
-2.5 10 % x1 y1
-2.5 20 % x2 y2
0 30 % x3 y3
curveto
5 20 % x1 y1
5 10 % x2 y2
0 0 % x3 y3
curveto
closepath fill
% now the knob below the knot
% 10*sqrt(2)/2, 10 - 10 * ( 0.5 - sqrt(2)/4)
7.071068 -8.535534 moveto
8 -12 % x1 y1
9 -15 % x2 y2
10 -17.5 % x3 y3
curveto
7.5 -17.5 % x1 y1
2.5 -20 % x2 y2
0 -22.5 % x3 y3
curveto
-2.5 -20 % x1 y1
-7.5 -17.5 % x2 y2
-10 -17.5 % x3 y3
curveto
-9 -15 % x1 y1
-8 -12 % x2 y2
-7.071068 -8.535534 % x3 y3
curveto
stroke
grestore
} def 

John Kohl <jtkohl@ATHENA.MIT.EDU>
Digital Equipment Corporation/MIT Project Athena
(As usual, the opinions expressed above do not necessarily reflect the
opinions of my employer. :-)