HOME ;vai al centro dello schermoCLEARSCREEN ;pulisci la paginaFILLTRANSPARENCY 2HIDETURTLE ;nascondi tartaruga e trattoPENUPFILLCOLOR “RED” ;primo quadrato rossoSQUARE 10cmFORWARD 2cm ;sposta in alto il quadratoFILLCOLOR “BLUE” ;secondo quadrato blu/aquaFILLTRANSPARENCY 70SQUARE 10cmNOTA:
Il seguente comando PICTURE salva l'immagine come file .SVG nella stessa cartella in cui è stato salvato il file .ODT di Libreoffice.
PICTURE “esempio.svg” [codice]1-UN SOLE FATTO DI QUADRATI
HOMECLEARSCREENREPEAT 20 [FORWARD 80SQUARE 5BACK 80RIGHT 18]2-SU DUE FILE CON GEOMETRIE DIFFERENTI
HOMECLEARSCREENREPEAT 20 [FORWARD 80FILLCOLOR ANYFILLTRANSPARENCY 50SQUARE RANDOM 100BACK 80RIGHT 18]REPEAT 20 [FORWARD 160FILLCOLOR ANYFILLTRANSPARENCY 50CIRCLE RANDOM 100BACK 160RIGHT 18]3-E SE SI AGGIUNGE QUESTA PROCEDURA? DOVE LA INSERIAMO?
POSSIAMO FARLE DI DIMENSIONI CASUALI?
TO STELLAREPEAT 5 [FORWARD 100RIGHT 144]FILLEND4-DISEGNIAMO UNA STELLA E UN POLIGONO DI STELLE
HOMECLEARSCREENTO STELLAREPEAT 5 [FORWARD 100RIGHT 144]FILLENDREPEAT 20 [FORWARD 10RIGHT 360/20STELLA]5-DISEGNIAMO UN POLIGONO DI n-LATI
HOMECLEARSCREENREPEAT 5 [FORWARD 50RIGHT 360/5]6-DISEGNIAMO UN POLIGONO DI n-LATI UTILIZZANDO UN PARAMETRO
HOMECLEARSCREENLATI=5REPEAT LATI [FORWARD 50RIGHT 360/LATI]7-DISEGNIAMO UN POLIGONO DI UN NUMERO DI LATI RICHIESTO ALL'UTENTE
HOMEBACK 8cmCLEARSCREENHEADING 270LATI = INT (INPUT “Quanti lati?”)REPEAT LATI [FORWARD 50RIGHT 360/LATI]8-DISEGNIAMO DAL POLIGONO A 3 LATI FINO A QUELLO INDICATO DALL'UTENTE
HOMEBACK 8cmCLEARSCREENHEADING 270LATI = INT (INPUT “Quanti lati?”)POLIGONO = 3WHILE POLIGONO<=LATI [REPEAT POLIGONO [FORWARD 80RIGHT 360/POLIGONO]POLIGONO=POLIGONO+1]; riempi e colora ogni poligono inserito