begin arrow
  # Draws a filled '|>' symbol.
  #
  move -1, -1
  draw -1, 1, 2, 0
  fill
end

newpage "eps", "tutoriallines1.eps", 60, 30
color "orange"
clearpath
move 5, 5
draw 45, 5
arc -1, 45, 15, 45, 25
draw 35, 25, 35, 10, 5, 10
samplepath 5, 2.5
arrow
