O meu procedemento para o circulo inscrito
Este é o procedemento da estrela coa variable a cor.
como non son capaz de enviar o archivo ad xunto , mándoa aquí.
para estrelacores :n
repite 6 [poli 3 100 gd 30 sl av 20 poncl :n rellena
poncl 0 re 20 gi 30 bl av 100 gi 60]
fin
Sei que hai formas moito máis sinxelas pero xa non me da para máis...
Modifiquei a orde no procesador de texto espero que non falte nada importante.
O mesmo que antes, penso que non borrei nada necesario no procedemento.
para espiral :lado :angulo
ot
si :lado > 350 [alto]
av :lado
gd :angulo
espiral :lado + 3 :angulo
fin
El dibujo que mandé es con lado 5 y ángulo 123 pero podéis probar con las medidas que queráis.
2 pequenos procedementos
para figuraflor :r
repite 6 [circulo :r subelapiz repite 60 [gd 1 av 1] ]
ot
fin
para circulos :r
repite 4 [repite 180 [circulo :r/2 gd 2 av 2] gi 90]
ot
fin
para figuraflor :r
repite 6 [circulo :r subelapiz repite 60 [gd 1 av 1] ]
ot
fin
para circulos :r
repite 4 [repite 180 [circulo :r/2 gd 2 av 2] gi 90]
ot
fin