;惑星とその特性を定義します
惑星へ：名前：サイズ：色：距離：orbitspeed
setpos [0 0]
Penup
フォワード：距離
ペンダウン
Setheading 0
繰り返し360 [
フォワード：サイズ * 0.5
戻る：サイズ * 0.5
右：orbitspeed
]
Setheading 0
フォワード：サイズ * 0.5
Penup
戻る：サイズ * 0.5
ペンダウン
Setheading：orbitspeed
フォワード：サイズ * 0.5
Penup
戻る：サイズ * 0.5
ペンダウン
Setheading 0
円：サイズ
Penup
setpos [0 0]
ペンダウン
Setheading 0
フォワード：距離
ペンダウン
Setheading：orbitspeed
円：サイズ
Penup
setpos [0 0]
ペンダウン
ラベル：名前
Penup
setpos [0 0]
ペンダウン
Setheading 0
終わり
;太陽を引きます
サークル50
Setheading 0
Penup
フォワード50
ペンダウン
Setheading 0
ラベル「サン」
Penup
setpos [0 0]
ペンダウン
;水銀を描きます
惑星「水銀」5「グレー」70 2
;金星を描きます
惑星「金星」8 "黄色" 90 1.5
;地球を描きます
惑星「アース」10 "ブルー" 110 1
;火星を描きます
惑星「火星」7 "赤" 130 0.8
;木星を描きます
Planet "Jupiter" 20 "Orange" 160 0.5
;土星を描きます
惑星「土星」18 "イエロー" 200 0.3
;天王星を描きます
惑星「天王星」15 "ライトブルー" 250 0.2
;ネプチューンを描きます
惑星「ネプチューン」14 "ダークブルー" 300 0.15
`` `
説明：
1。「惑星」手順： この手順は、惑星の特性を定義します。
- `：name`：惑星の名前（ラベル付けに使用）。
- `：サイズ`：ピクセルの惑星のサイズ。
- `：色`：惑星の色。
- `：距離`：ピクセルの太陽からの距離。
- `：orbitspeed`：軌道の速度はステップあたりの程度です（惑星の動き速度を制御します）。
2。太陽を描く：
- `円50`は、半径50ピクセルの円として太陽を描きます。
- `setheading 0`は、タートルの方向を0度（水平）に設定します。
- 「Penup」はペンを持ち上げて、移動中の絵を防ぎます。
- 「フォワード50」は、タートルを右に50ピクセル前方に移動します。
- `pendown`はペンを置いて描画を開始します。
- `setheading 0`は、タートルの方向を再び0度に設定します。
- 「ラベル「サン」」は、現在の位置に「サン」というラベルを書きます。
- 「Penup」はペンを持ち上げて起源に移動します。
- `setpos [0 0]`タートルを起源に戻します。
- 「ペンダウン」はペンを下ろします。
3。惑星を描く：
- 各惑星について、適切な特性で「惑星」手順が呼び出されます。
- `repeat 360`ループは軌道パスを描画します。
- ループの内側では、タートルが前後に移動し、小さなラインセグメントを作成します。
- `右：orbitspeed`は軌道速度でタートルを回転させ、惑星を輪になって動かします。
- 惑星は、指定された色とサイズで描かれています。
コードの実行：
1.このコードを「solar_system.lg」（またはその他の名前）という名前のファイルに保存します。
2。MSWLOGOを開き、「LOAD」SOLAR_SYSTEM.LG "を入力してファイルをロードします。
3.「run」と入力してコードを実行します。
これにより、太陽系の基本的な視覚表現が作成されます。コードを変更して、惑星の色、サイズ、距離、軌道速度をカスタマイズできます。また、月、彗星、小惑星などの機能を追加することもできます。
