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