trianguloCesiah

globals[n] ;; declaración de la variable global n (número de lados del polígono)

;: COMIENZA EL PROCEDIMIENTO

to comenzar
ca ;; borrar pantalla, variables, etc
crt 1 ;; creamos la tortuga que dibujará el polígono

;; asignamos un valor a n en función del número de lados del polígono elegido 

let figura

if figura = "triángulo"
[
set n 3
] 


if figura = "cuadrado"
[
set n 4
]


if figura = "pentágono"
[
set n 5
]


if figura = "hexágono"
[
set n 6
]


;; definimos el ángulo interior del polígono
let angulo 360 / n 


;; dibujamos el polígono

ask turtles [repeat n [pd fd lado rt angulo]]
end