# Fill polygon with Aboriginal flag pattern.
#
begin flagPattern
  clip "inside"
  stripepath 5, 0
  samplepath 6, 0
  eps "flag.eps", 5
end

# Read map and plot it.
#
dataset "shapefile", "coastline.shp", "dbffields="
newpage "eps", "tutorialeps1.eps", 50, 50
worlds Mapyrus.dataset.min.x, Mapyrus.dataset.min.y, \
  Mapyrus.dataset.max.x, Mapyrus.dataset.max.y
clearpath
while Mapyrus.fetch.more
do
  fetch
  clearpath
  addpath GEOMETRY
  flagPattern
done
