; Defina los planetas y sus propiedades
To Planet:Nombre:Tamaño:Color:Distancia:Orbitspeed
setpos [0 0]
penupa
adelante:distancia
colmena
Setheading 0
Repita 360 [
Forward:tamaño * 0.5
Atrás:tamaño * 0.5
Derecha:ORBITSPEED
]
Setheading 0
Forward:tamaño * 0.5
penupa
Atrás:tamaño * 0.5
colmena
Setheading:Orbitspeed
Forward:tamaño * 0.5
penupa
Atrás:tamaño * 0.5
colmena
Setheading 0
Círculo:tamaño
penupa
setpos [0 0]
colmena
Setheading 0
adelante:distancia
colmena
Setheading:Orbitspeed
Círculo:tamaño
penupa
setpos [0 0]
colmena
Etiqueta:nombre
penupa
setpos [0 0]
colmena
Setheading 0
fin
; Dibujar el sol
Círculo 50
Setheading 0
penupa
adelante 50
colmena
Setheading 0
etiqueta "sol"
penupa
setpos [0 0]
colmena
; Dibujar mercurio
planeta "mercurio" 5 "gris" 70 2
; Dibuja a Venus
Planeta "Venus" 8 "Amarillo" 90 1.5
; Dibujar tierra
Planeta "Tierra" 10 "Azul" 110 1
; Dibuja Marte
Planeta "Mars" 7 "Rojo" 130 0.8
; Dibuja Júpiter
Planeta "Júpiter" 20 "Orange" 160 0.5
; Dibuja Saturno
Planeta "Saturno" 18 "Amarillo" 200 0.3
; Dibujar Urano
Planeta "Urano" 15 "azul claro" 250 0.2
; Dibuja Neptuno
planeta "neptuno" 14 "azul oscuro" 300 0.15
`` `` ``
Explicación:
1. `Planet` Procedimiento: Este procedimiento define las propiedades del planeta:
- `:Nombre`:Nombre del planeta (utilizado para el etiquetado).
- `:tamaño`:tamaño del planeta en píxeles.
- `:color`:color del planeta.
- `:distancia`:distancia del sol en píxeles.
- `:Orbitspeed`:Velocidad de la órbita en grados por paso (controla qué tan rápido se mueve el planeta).
2. Dibujando el sol:
- `Circle 50` dibuja el sol como un círculo con un radio de 50 píxeles.
- `Setheading 0` establece la dirección de la tortuga a 0 grados (horizontal).
- `Penup` levanta la pluma para evitar el dibujo mientras se mueve.
- `Forward 50` mueve la tortuga hacia adelante 50 píxeles hacia la derecha.
- `Pendown` pone la pluma para comenzar a dibujar.
- `Setheading 0` establece la dirección de la tortuga a 0 grados nuevamente.
- `Etiqueta" Sun "` Escribe la etiqueta "Sol" en la posición actual.
- `Penup` levanta la pluma para moverse al origen.
- `setpos [0 0]` Establece la tortuga al origen.
- `Pendown` pone el bolígrafo para dibujar.
3. Dibujo de los planetas:
- Para cada planeta, el procedimiento 'Planeta` se llama con las propiedades apropiadas.
- El bucle `repetido 360 'dibuja la ruta de la órbita.
- Dentro del bucle, la tortuga se mueve hacia adelante y hacia atrás, creando un segmento de línea pequeña.
- `Right:Orbitspeed` gira la tortuga por la velocidad de la órbita, lo que hace que el planeta se mueva en un círculo.
- El planeta se dibuja con el color y el tamaño especificados.
Ejecutando el código:
1. Guarde este código en un archivo llamado "Solar_System.lg" (o cualquier otro nombre).
2. Abra mswlogo y cargue el archivo escribiendo `cargar" solar_system.lg "`.
3. Ejecute el código escribiendo `Run`.
Esto creará una representación visual básica del sistema solar. Puede modificar el código para personalizar los colores, tamaños, distancias y velocidades de órbita de los planetas. También puede agregar características adicionales como lunas, cometas o asteroides.