`` `mslogo
; Defina os planetas e suas propriedades
Para o Planeta:Nome:Tamanho:Cor:Distância:Orbitspeed
setpos [0 0]
Penup
Avanço:Distância
Pondewn
Setheading 0
Repita 360 [
Avanço:Tamanho * 0.5
Voltar:tamanho * 0.5
Direita:Orbitspeed
]
Setheading 0
Avanço:Tamanho * 0.5
Penup
Voltar:tamanho * 0.5
Pondewn
Setheading:Orbitspeed
Avanço:Tamanho * 0.5
Penup
Voltar:tamanho * 0.5
Pondewn
Setheading 0
Círculo:Tamanho
Penup
setpos [0 0]
Pondewn
Setheading 0
Avanço:Distância
Pondewn
Setheading:Orbitspeed
Círculo:Tamanho
Penup
setpos [0 0]
Pondewn
Etiqueta:Nome
Penup
setpos [0 0]
Pondewn
Setheading 0
fim
; Desenhe o sol
Círculo 50
Setheading 0
Penup
atacante 50
Pondewn
Setheading 0
etiqueta "Sun"
Penup
setpos [0 0]
Pondewn
; Desenhe mercúrio
Planeta "Mercury" 5 "Gray" 70 2
; Desenhe Vênus
Planeta "Vênus" 8 "Amarelo" 90 1.5
; Desenhe a terra
Planeta "Terra" 10 "azul" 110 1
; Desenhe Marte
Planeta "Mars" 7 "Red" 130 0,8
; Desenhe Júpiter
Planeta "Júpiter" 20 "Orange" 160 0,5
; Desenhe Saturno
Planeta "Saturno" 18 "Amarelo" 200 0.3
; Desenhe Urano
Planeta "Urano" 15 "Blue claro" 250 0.2
; Desenhe Netuno
Planeta "Netuno" 14 "Blue escuro" 300 0,15
`` `
Explicação: 1.
`Planet` Procedimento: Este procedimento define as propriedades do planeta:
- `:name`:nome do planeta (usado para rotulagem).
- `:size`:tamanho do planeta em pixels.
- `:color`:cor do planeta.
- `:Distância`:distância do sol em pixels.
- `:orbitspeed`:velocidade da órbita em graus por etapa (controla a rapidez com que o planeta se move).
2.
desenhando o sol: - `Círculo 50 'desenha o sol como um círculo com um raio de 50 pixels.
- `Setheading 0` define a direção da tartaruga a 0 graus (horizontal).
- `Penup` levanta a caneta para impedir o desenho enquanto se move.
- `Forward 50` move a tartaruga para frente 50 pixels para a direita.
- `Pendown` coloca a caneta para começar a desenhar.
- `Setheading 0` define a direção da tartaruga a 0 graus novamente.
- `Label" Sun "` escreve o rótulo "Sun" na posição atual.
- `Penup` levanta a caneta para se mover para a origem.
- `setPos [0 0]` define a tartaruga de volta à origem.
- `Pendown` coloca a caneta para desenhar.
3.
desenhando os planetas: - Para cada planeta, o procedimento "planeta" é chamado com as propriedades apropriadas.
- O loop `repetir 360` desenha o caminho da órbita.
- Dentro do loop, a tartaruga se move para a frente e para trás, criando um pequeno segmento de linha.
- `Right:Orbitspeed` gira a tartaruga pela velocidade da órbita, fazendo com que o planeta se mova em círculo.
- O planeta é desenhado com a cor e o tamanho especificados.
Executando o código: 1. Salve este código em um arquivo chamado "solar_system.lg" (ou qualquer outro nome).
2. Abra o mswlogo e carregue o arquivo digitando `load" solar_system.lg "`.
3. Execute o código digitando `run`.
Isso criará uma representação visual básica do sistema solar. Você pode modificar o código para personalizar as cores, tamanhos, distâncias e velocidades de órbita dos planetas. Você também pode adicionar recursos adicionais, como luas, cometas ou asteróides.