Ejemplos: Multi-tortuga
Curvas de persecución
Las curvas de persecución se forman cuando un objeto "persigue", a otr u otros, por ejemplo, un zorro tras un conejo.En este programa, se crea el número de tortugas determinado por el usuario en el Comando de Inicio, y se sitún en el borde de un círculo. Cada tortuga seguirá a la tortuga situada a su izquierda que, a su vez, seguirá a la que está a su lado, ... Se creará un especie de espiral, con tantas ramas como tortugas se hayan creado.
|
para empezar :n # Inicializamos pantalla, papel, tortuga, ... reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga # ponmaximastortugas :n+2 si :n <2 [escribe [Se necesita mas de una tortuga!] alto] repite :n [ pontortuga contador haz "angulo contador*360/:n poncolorlapiz angcol :angulo subelapiz ponxy (190*seno :angulo) (190*coseno :angulo) bajalapiz] # mientras [(distancia [0 0]) > 2 ] [ repite :n [ pontortuga contador haz "mipos posicion pontortuga contador+1 si contador+1>:n [pontortuga 1] ponrumbo hacia :mipos avanza 2] ] fin para angcol :x haz "r 127.5 *(1+seno (:x)) haz "g 127.5 *(1+seno (:x + 120)) haz "b 127.5 *(1+seno (:x + 220)) # no 240! devuelve frase lista :r :g :b fin |
empezar 6
