newpage "eps", "tutorialvar1.eps", 50, 50
color "green"
let c1 = 1
while c1 < Mapyrus.page.width
do
  let c2 = Mapyrus.page.width - c1
  clearpath
  move c1, 0
  draw 0, c2
  stroke
  let c1 = c1 + 4
done
