to nstar :numstar
make "size 10
repeat :numstar [
star :size
make "size :size+5
]
end
to caracol1 :nlados
make "lado 1
repeat :nlados [
make "lado :lado+1
fd :lado
rt 50
]
end
to caracol2 :nlados
make "lado 1
repeat :nlados [
make "lado :lado+1
fd :lado
rt 70
]
end
to caracol3 :nlados
make "lado 1
repeat :nlados [
make "lado :lado+1
fd :lado
rt 80
]
end