; Definisci i pianeti e le loro proprietà
su pianeta:nome:dimensione:colore:distanza:orbitspeed
SetPos [0 0]
penup
in avanti:distanza
penown
Setheading 0
Ripeti 360 [
Forward:taglia * 0,5
indietro:taglia * 0,5
A destra:Orbitspeed
"
Setheading 0
Forward:taglia * 0,5
penup
indietro:taglia * 0,5
penown
Setheading:Orbitspeed
Forward:taglia * 0,5
penup
indietro:taglia * 0,5
penown
Setheading 0
Cerchio:dimensione
penup
SetPos [0 0]
penown
Setheading 0
in avanti:distanza
penown
Setheading:Orbitspeed
Cerchio:dimensione
penup
SetPos [0 0]
penown
Etichetta:nome
penup
SetPos [0 0]
penown
Setheading 0
FINE
; Disegna il sole
Cerchio 50
Setheading 0
penup
in avanti 50
penown
Setheading 0
Etichetta "Sun"
penup
SetPos [0 0]
penown
; Disegna Mercurio
pianeta "mercurio" 5 "grigio" 70 2
; Disegna Venere
Pianeta "Venus" 8 "Yellow" 90 1.5
; Disegna la Terra
pianeta "terra" 10 "blu" 110 1
; Disegna Marte
Pianeta "Marte" 7 "rosso" 130 0,8
; Disegna Giove
Pianeta "Jupiter" 20 "Orange" 160 0,5
; Disegna Saturno
Pianeta "Saturno" 18 "giallo" 200 0,3
; Disegna Urano
Pianeta "Urano" 15 "azzurro" 250 0.2
; Disegna Nettuno
Pianeta "Nettuno" 14 "Dark Blue" 300 0.15
`` `
Spiegazione:
1. `Planet` Procedura: Questa procedura definisce le proprietà del pianeta:
- `:Nome`:nome del pianeta (usato per l'etichettatura).
- `:dimensione`:dimensione del pianeta in pixel.
- `:Color`:colore del pianeta.
- `:Distanza`:distanza dal sole nei pixel.
- `:Orbitspeed`:velocità dell'orbita in gradi per fase (controlla la velocità con cui il pianeta si muove).
2. Disegnare il sole:
- `Circle 50` disegna il sole come un cerchio con un raggio di 50 pixel.
- `Setheading 0` imposta la direzione della tartaruga a 0 gradi (orizzontale).
- `Penup` solleva la penna per evitare il disegno mentre si muove.
- `Forward 50` sposta la tartaruga in avanti 50 pixel a destra.
- `Pendown` mette giù la penna per iniziare a disegnare.
- Setheading 0` imposta di nuovo la direzione della tartaruga su 0 gradi.
- `etichetta" Sun "` scrive l'etichetta "Sun" nella posizione attuale.
- `Penup` solleva la penna per passare all'origine.
- `setPos [0 0]` Riese la tartaruga sull'origine.
- `Pendown` mette giù la penna per disegnare.
3. Disegnare i pianeti:
- Per ogni pianeta, la procedura "Pianeta" viene chiamata con le proprietà appropriate.
- Il ciclo `ripeti 360` disegna il percorso dell'orbita.
- All'interno del ciclo, la tartaruga si sposta in avanti e indietro, creando un segmento di piccole linee.
- `A destra:Orbitspeed` ruota la tartaruga per la velocità dell'orbita, causando il muoversi del pianeta in un cerchio.
- Il pianeta è disegnato con il colore e le dimensioni specificati.
Esecuzione del codice:
1. Salva questo codice in un file chiamato "Solar_system.lg" (o qualsiasi altro nome).
2. Apri MSWLOGO e carica il file digitando `Load" Solar_System.lg "`.
3. Esegui il codice digitando `run`.
Ciò creerà una rappresentazione visiva di base del sistema solare. È possibile modificare il codice per personalizzare i colori, le dimensioni, le distanze e le velocità dell'orbita dei pianeti. Puoi anche aggiungere ulteriori funzionalità come lune, comete o asteroidi.