Pintar los parches con la tortuga

Como saben la tortuga se encuentra sobre un piso hecho de baldosas, las que llamamos patches (parches en español). La tortuga puede encontrarse en distintas posiciones sobre los parches, en el centro, en un esquina u otro lugar.
El siguiente código le permite a la tortuga pintar parches usando el procedimiento borrachito.

to pinta-parches-al-azar

;; la parte del borrachito

fd 1

rt random 90

lt random 90

;; ahora pone el color del parche debajo de ella en color rojo

set pcolor red

end

El borrachito

Hola este es un código simple para hacer que la tortuga se mueva como un borrachito, esto es, da un paso y luego genera al azar una nueva dirección.

to setup
ca
crt 1
end

to borrachito
fd 1
rt random 90
lt random 90
end

hacemos un botón que sea forever y que llame al procedimiento borrachito.