Printlab Le 75

  • Home »
  • Ressources »
  • Lewitt 03

Lewitt 03

to bunchoflines :count
repeat :count [
    penup
    right 90 forward 5 left 90
    pendown
    forward 235
    penup
    back 235
    pendown
]
end

clearscreen
window
setbackground 7

for [x 0 200 40] [
    penup
    setx :x
    pendown
    bunchoflines (:x / 40) + 2
]

left 90

for [x 0 200 40] [
    penup
    sety :x
    pendown
    bunchoflines (:x / 40) + 2
]