logo linethick = 0.3
logo linecolor = "lightgray"
pu
set i = 0
repeat 10 [
  moveto 0 :i 
  pd;  moveto 1000 :i; pu
  incr i by 100
  ]

pu  
set i = 1
repeat 10 [
  moveto :i 0
  pd; moveto :i 1000; pu
  incr i by 100
  ]

// restore defaults..
logo linethick = 1
logo linecolor = "green"
