# @(#) $Id$
begin diamond
  move 0, -2
  draw -4, 0, 0, 2, 4, 0, 0, -2
  fill
end
begin shield_interior
  color "white"
  fill
  clip "inside"
  # fill shield with diamond pattern.
  stripepath 4, -45
  samplepath 8, 0
  color "rgb", 0.2, 0.9, 0.9
  diamond
end
begin shield
  # Define outline of shield, shade interior pattern, then draw outline.
  move -10, 5
  draw 10, 5, 10, -10
  arc 1, 4, -10, 4, -16
  draw -4, -16
  arc 1, -4, -10, -10, -10
  draw -10, 5
  shield_interior
  color "rgb", 0.2, 0.9, 0.9
  linestyle 0.1
  stroke
end
newpage "eps", "turtle3.eps", 30, 30, "background=white lineantialiasing=true"
clearpath
move 15, 20
shield
