自作ソフト「時刻時間」を例に
[実践事例]
TO めもり
RG HT
【説明/HT(かくれろ)を命令すると,円を描くスピードが少し速くなります。】
SETC 7 PU SETPOS [-200 30] MAKE "SUJI 12
【説明/時計の文字盤に書き込む数字を変数SUJIとして設定します。】
REPEAT 60 [PU FD 80 PD BK 0 PU BK 80 RT 6] SETC 5
【説明/時計の1分(1秒)ごとの目盛を描きます。】
REPEAT 12 [PU FD 80 PD LABEL :SUJI BK 0 PU BK 80 LT 30 MAKE "SUJI
:SUJI - 1]
【説明/時計の文字盤に”1”から”12”を書きます。】
END
TO JIKAN :JI :HUN :BYOU
めもり
TELL [0 1 2] PU SETPOS [-200 30]
TELL 0 SETH :BYOU * 6 SETC 4 PD FD 70 BK 70
【説明/カメ0号に秒針を描かせます。】
TELL 1 SETH :HUN * 6 + :BYOU * 0.1 SETC 6 PD FD 60 BK 60
【説明/カメ1号に長針を描かせます。】
TELL 2 SETH :JI * 30 + :HUN * 0.5 + :BYOU * 0.5 * (1 / 60) SETC 6 PD FD
40 BK 40
【説明/カメ2号に短針を描かせます。】
END
TO 回転0
TONE 1200 1
TELL 0 PD FD 70
TELL 1 PD FD 60
TELL 2 PD FD 40
WAIT 60
TELL 0 PE BK 70 RT 6
【説明/秒針は60秒で360度回転します。1秒間の回転角度は6度となります。】
TELL 1 PE BK 60 RT 0.1
【説明/長針は1分間に6度回転します。1秒間はその6/60である0.1度回転します。】
TELL 2 PE BK 40 RT 0.5 / 60
【説明/短針は1時間に30度(360/12)回転します。
1分間に0.5度(30/60),1秒間には0.5/60度回転します。】
回転0
【説明/繰り返し回転できるようにリカージョンを設定します。】
END
TO JIKAN :JI :HUN :BYOU
RG めもり
TELL [0 1 2] PU SETPOS [-200 30]
TELL 0 SETH :BYOU * 6 SETC 4 PD FD 70 BK 70
TELL 1 SETH :HUN * 6 + :BYOU * 0.1 SETC 6 PD FD 60 BK 60
TELL 2 SETH :JI * 30 + :HUN * 0.5 + :BYOU * 0.5 * (1 / 60) SETC 6 PD FD
40 BK 40
回転0
END
参考文献:LOGO WORLD10,LOGO WORLD11(LOGOJAPAN)