Esercizi di Logo
Inviato da andres il Dom, 02/04/2006 - 2:32am
Riprodurre il seguente disegno
Soluzione
to go_home
pu
home
;posiziono il cursore
rt 90
pd
end
to main
;campi customizzabili
make "larghezza_casa 350
make "altezza_casa 150
make "rientro_tetto 50
make "larghezza_rientro_finestra 15
make "altezza_rientro_finestra 70
make "larghezza_porta 50
make "altezza_porta 90
make "larghezza_finestra 35
;campi calcolati
make "larghezza_tetto :larghezza_casa+:rientro_tetto*2
make "rientro_porta :larghezza_casa/2-:larghezza_porta/2
;disegno la base
go_home
rettangolo :larghezza_casa :altezza_casa
;disegno la porta
go_home
setpos (list :rientro_porta 0)
rettangolo :larghezza_porta :altezza_porta
;disegno la finestra
go_home
pu
setpos (list :larghezza_rientro_finestra :altezza_rientro_finestra)
pd
rettangolo :larghezza_finestra :larghezza_finestra
;disegno il tetto
go_home
pu
setpos (list -:rientro_tetto :altezza_casa)
pd
triangolo_rettangolo_isoscele :larghezza_tetto
end
to rettangolo :base :altezza
repeat 2 [
fd :base lt 90
fd :altezza lt 90]
end
to triangolo_rettangolo_isoscele :base
make "lato sqrt ((power :base 2)/2)
fd :base
lt 135
fd :lato
lt 90
fd :lato
end