1# Fill polygon with Aboriginal flag pattern.
2#
3begin flagPattern
4  clip "inside"
5  stripepath 5, 0
6  samplepath 6, 0
7  eps "flag.eps", 5
8end
9
10# Read map and plot it.
11#
12dataset "shapefile", "coastline.shp", "dbffields="
13newpage "eps", "tutorialeps1.eps", 50, 50
14worlds Mapyrus.dataset.min.x, Mapyrus.dataset.min.y, \
15  Mapyrus.dataset.max.x, Mapyrus.dataset.max.y
16clearpath
17while Mapyrus.fetch.more
18do
19  fetch
20  clearpath
21  addpath GEOMETRY
22  flagPattern
23done
24