%!PS-Adobe 2.0
% Copyright 1992 - Peter Williams

/grid {
  gsave
  0 1 20 {
    0 -3 moveto
    0 16 lineto stroke
    1 0 translate
  } for
  grestore
  gsave
  0 5 20 {
    0 -3.5 moveto
    0 16.5 lineto stroke
    5 0 translate
  } for
  grestore
  gsave
  0 1 19 {
    0 -3 moveto
    20 -3 lineto stroke
    0 1 translate
  } for
  grestore
  gsave
  0 5 19 {
    -0.5 0 moveto
    20.5 0 lineto stroke
    0 5 translate
  } for
  grestore
} def

/backwingP {
    1.3 2.2 moveto
    2.3 2.4 2.8 2.4 3.4 2.0 curveto % tail
    4.2 2.65 5.0 3.1 6.0 3.5 curveto % bottom
    4.3 5.2 4.6 7.0 5.0 8.0 curveto % front bottom
    5.1 8.2 5.1 8.8 5.0 9.0 curveto % elbow
    4.5 11.0 2.0 14.5 1.0 15.4 curveto % front top
    0.95 11.5 1.9 9.0 2.1 9.0 curveto % back top
    2.0 8.0 2.0 6.0 2.1 5.5 curveto % back middle
    2.1 5.0 1.7 3.5 1.3 2.2 curveto % back bottom
} def

/backwingB {
  newpath
  backwingP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/backwing {
  newpath
  backwingP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/frontwingP {
    3.0 1.4 moveto
    4.5 3.1 9.25 4.9 11.0 4.3 curveto
    13.0 4.0 15.0 4.0 18 4.5 curveto
    13.5 5.25 9.0 5.2 6.0 2.5 curveto
    5.0 2.3 4.0 1.6 3.0 1.4 curveto
} def

/frontwingB {
  newpath
    frontwingP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/frontwing {
  newpath
    frontwingP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/tailP {
    1.225 2.175 moveto
    0.0 2.0 lineto % top
    -0.05 1.975 -0.05 1.9 0.0 1.85 curveto % left corner
    1.0 0.45 lineto % rear
    1.1 0.3 1.2 0.325 1.4 0.4 curveto % bottom corner
    1.45 0.41 2.5 1.0 2.875 1.35 curveto % right edge
    2.1 1.1 2.0 1.1 1.9 1.1 curveto
    1.45 1.2 0.85 1.85 1.0 2.0 curveto
} def

/tailB {
  newpath
  tailP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
  newpath
    0.5 2.0 moveto
    4.0 3.0 lineto
    5.0 2.0 lineto
    1.5 0.65 lineto
  closepath
  fill
} def

/tail {
  newpath
    tailP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/bodyP {
  2.5 1.1 moveto
  2.4 0.65 lineto
  2.5 0.6 lineto
  3.2 0.8 3.4 0.9 3.5 0.3 curveto
  3.6 0.25 lineto
  4.65 0.95 5.0 1.0 6.5 1.0 curveto
  7.2 0.85 7.0 1.2 8.15 0.8 curveto
  8.35 0.85 lineto % top of beak
  8.7 1.0 lineto % top of beak
  9.2 1.2 9.2 2.55 8.0 2.65 curveto % front of head
  7.0 2.75 7.0 2.9 6.275 3.3 curveto
} def

/bodyB {
  newpath
  bodyP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/body {
  bodyP
  0 setgray
  gsave
    0.0425 setlinewidth
    stroke
  grestore
} def

/eye {
  gsave
  newpath
    7.9 2.1 moveto
    8.1 2.1 8.25 1.75 8.2 1.7 curveto
    0.0425 setlinewidth
    stroke
  newpath
    8.2 1.7 moveto
    8.35 1.0 8.7 1.895 8.2 1.7 curveto
    fill
  grestore
} def

/topbeakP {
    8.35 0.85 moveto
    8.57 0.67 8.675 0.6 8.9 0.275 curveto
    8.9 0.0 8.9 -0.01 8.85 -0.15 curveto
    9.25 0.25 9.15 0.4 9.0 0.5 curveto % bottom right
    8.95 0.525 8.65 0.725 8.7 1.0 curveto % top right
} def

/topbeakB {
  newpath
  topbeakP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/topbeak {
  newpath
    topbeakP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/bottombeakP {
    8.15 0.8 moveto
    8.55 0.15 8.25 -0.2 8.60 -0.125 curveto
    8.345 0.525 8.375 0.725 8.35 0.85 curveto % top right
    8.15 0.8 lineto
} def

/bottombeakB {
  newpath
  bottombeakP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/bottombeak {
  newpath
    bottombeakP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/rightlegP {
    3.5 0.3 moveto
    3.1 -0.1 lineto
    3.3 -1.0 lineto
    3.2 -1.2 lineto
    3.22 -1.21 lineto
    3.0 -1.8 lineto
    3.2 -1.8 lineto
    3.0 -2.25 lineto
    3.3 -2.0 lineto
    3.32 -2.15 lineto
    3.45 -1.5 lineto
    3.425 -1.0 lineto
    3.25 -0.15 lineto
    3.6 0.25 lineto
    3.5 0.3 lineto
} def

/rightlegB {
  newpath
  rightlegP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/rightleg {
  newpath
    rightlegP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/leftlegP {
    2.4 0.65 moveto
    2.0 0.25 lineto
    2.2 -0.65 lineto
    2.1 -0.85 lineto
    2.12 -0.86 lineto
    1.9 -1.45 lineto
    2.1 -1.45 lineto
    1.9 -1.9 lineto
    2.2 -1.65 lineto
    2.22 -1.8 lineto
    2.35 -1.15 lineto
    2.325 -0.65 lineto
    2.15 0.2 lineto
    2.5 0.6 lineto
    2.4 0.65 lineto
} def

/leftlegB {
  newpath
  leftlegP
  closepath
  1 setgray
  gsave
    0.2 setlinewidth
    stroke
  grestore
  fill
} def

/leftleg {
  newpath
    leftlegP
  closepath
  0 setgray
  gsave
    0.0375 setlinewidth
    stroke
  grestore
  fill
} def

/bigL {
  newpath
    2 0 moveto
    10 0 lineto
    10 3 lineto
    5 3 lineto
    5 13.5 lineto
    2 13.5 lineto
  closepath
  0 setgray
  0.1 setlinewidth
  fill
} def

/inux {
  10.25 0.0 moveto
  /Helvetica findfont
  5.7 scalefont
  setfont
  (inux) show
} def

/inuxb {
  10.25 0.0 moveto
  /Helvetica-Bold findfont
  5.55 scalefont
  setfont
  (inux) show
} def

30 300 translate
25 25 scale
%grid
bigL
backwingB
frontwingB
tailB
bodyB
topbeakB
bottombeakB
rightlegB
leftlegB
backwing
frontwing
tail
body
eye
topbeak
bottombeak
rightleg
leftleg
inux
showpage

.