国際宇宙ステーションが通ると鳥が鳴くプログラム

国際宇宙ステーションの現在位置を眺めるためのプログラムです。
自分の場所の真北か真南を通るときに鳥が鳴きます。

教育用プログラミング言語「ドリトル」で書きました。

// 国際宇宙ステーションが通ると鳥が鳴くプログラム

// プログラミング言語「ドリトル」

// V3.31以降のインストール版ドリトルで実行してください。

// 2020.06.07  蕪木 孝


// 国際宇宙ステーションに関するデータを以下のサイトから提供して頂く
// Open APIs From Space  http://open-notify.org/

位置データのＵＲＬ　 = "http://api.open-notify.org/iss-now.json"。
乗組員データのＵＲＬ = "http://api.open-notify.org/astros.json"。


// －－－－－　各種設定　－－－－－

場所 = 配列 !
	// 地名  緯度  経度
	"ﾄｺﾛｻﾞﾜ"  35.7862  139.4739	// 自分の場所
	"ﾛﾝﾄﾞﾝ"   51.5006   -0.1246	// 以降は他に表示したい場所
	"ﾎｰﾝﾐｻｷ" -55.9833  -67.2667
	"ﾊﾜｲ"     21.3067 -157.8589
                                          // ←追加できる
作る。

自分の場所の経度 = 場所 ! 3 読む。	// 鳥が鳴く経度

高さ     = 450。	// 高さを変えると全体の大きさも変わる
幅       = 高さ * 2。
線の間隔 = 高さ / 6。
左上隅ｘ = 幅 / 2 * (-1)。	// 図の左上隅のｘ座標
左上隅ｙ = 高さ / 2。		// 図の右上隅のｙ座標

画面 ! (黒) 塗る。	// 背景色の設定

文字のサイズ = 12。
ラベル ! (文字のサイズ) 文字サイズ。
ラベル ! (緑) 文字の色。

カメ = タートル ! 作る    (緑) 線の色    0.5 線の太さ    0.5 拡大。


// －－－－－　経線を描く（縦に描く線)　－－－－－
カメ ! ペンなし    (左上隅ｘ) (左上隅ｙ) 位置    270 向き。
「
	| i |
	カメ ! ペンあり   (高さ) 歩く   図形を作る。
	カメ ! ペンなし   (左上隅ｘ + 線の間隔 * i) (左上隅ｙ) 位置。
」 ! 13 繰り返す。


// －－－－－　緯線を描く（横に描く線）　－－－－－
カメ ! ペンなし    (左上隅ｘ) (左上隅ｙ) 位置    0 向き。
「
	| i |
	カメ ! ペンあり    (幅) 歩く  図形を作る。
	カメ ! ペンなし    (左上隅ｘ) (左上隅ｙ - 線の間隔 * i) 位置。
」 ! 7 繰り返す。


// －－－－－　場所を描く　－－－－－
場所の数 = (場所 ! 要素数？) / 3。
カメ ! 90 向き。
「
	| i |
	地名 = 場所 ! ((i - 1) * 3 + 1) 読む。
	緯度 = 場所 ! ((i - 1) * 3 + 2) 読む。
	経度 = 場所 ! ((i - 1) * 3 + 3) 読む。
	ｘ座標 = 幅 / 360 * 経度。
	ｙ座標 = 高さ / 180 * 緯度。

	// 地名を書く
	ラベル ! (地名) 作る    (ｘ座標 - 5) (ｙ座標 + 25) 位置。

	// 場所の位置に円を描く
	カメ ! ペンなし    (ｘ座標 - 1) (ｙ座標)　位置。
	カメ ! ペンあり    1 円    図形を作る。
」 ! (場所の数) 繰り返す。


// －－－－－　鳥の鳴き声を作る　－－－－－
鳥 = メロディ ! "＾ド・ド" 作る。
鳥 ! (楽器 ! 124 作る) 設定 。
鳥 ! 演奏。			// 起動時にテストで一鳴きする
鳥は鳴いた = いいえ。


// －－－－－－－－－－　メインの処理　－－－－－－－－－－

カメ ! 1 線の太さ    ペンなし。

緯度ラベル = ラベル ! 作る。
経度ラベル = ラベル ! 作る。
人数ラベル = ラベル ! 作る。

一つ前のｘ座標 = -180。

//システム！"proxy.eplang.jp"　8080　proxy。	// プロキシの設定例

// 乗組員の人数の表示
ＷｅｂＡＰＩ１ = ＷｅｂＡＰＩ ! 作る。
ＷｅｂＡＰＩ１ : url = (乗組員データのＵＲＬ)。
乗組員データ 　= ＷｅｂＡＰＩ１ ! 読む。
人数 = 乗組員データ : number。
人数ラベル ! (人数) 書く。

// デバッグ用のラベル
乗組員データラベル = ラベル ! 作る    (左上隅ｘ) (左上隅ｙ) 位置。
位置データラベル 　= ラベル ! 作る    (左上隅ｘ) (左上隅ｙ - 文字のサイズ * 2) 位置。

// 乗組員データの表示（デバッグ用）
//乗組員データラベル ! (乗組員データ) 書く。

// プログラムが１日動作するタイマーを作る
タイマー１ = タイマー ! 作る    3秒 間隔    (1200 * 24) 回数。

タイマー１ !　「
	| i |
	
	ＷｅｂＡＰＩ１ = ＷｅｂＡＰＩ ! 作る。
	ＷｅｂＡＰＩ１ : url = (位置データのＵＲＬ)。
	位置データ = ＷｅｂＡＰＩ１ ! 読む。

	// 位置データの表示（デバッグ用）
	//位置データラベル ! (位置データ) 書く。

	緯度 = 位置データ : iss_position : latitude。
	経度 = 位置データ : iss_position : longitude。
	ｘ座標 = 幅 / 360 * 経度。
	ｙ座標 = 高さ / 180 * 緯度。

	// 右端から左端へ移動するときは軌跡を描かない
	「ｘ座標 < 一つ前のｘ座標」 ! なら 「
		カメ ! ペンなし。
		鳥は鳴いた = いいえ。	// 鳥が鳴いたかを判定するフラグもリセット
	」 実行。

	カメ ! (ｘ座標) (ｙ座標)　位置 。
	カメ ! ペンあり。
	一つ前のｘ座標 = ｘ座標。

	経度ラベル ! (経度) 書く。
	経度ラベル ! (ｘ座標 - 7 * 文字のサイズ / 4) (ｙ座標 - 30) 位置。

	緯度ラベル ! (緯度) 書く。
	緯度ラベル ! (ｘ座標 + 30) (ｙ座標 + 7) 位置。

	人数ラベル ! (ｘ座標 - 35) (ｙ座標 + 7) 位置。

	// 自分の場所の経度を通ってかつまだ鳴いていないなら鳴く
	「ぜんぶ ! (自分の場所の経度 < 経度) (鳥は鳴いた == いいえ) 本当」 ! なら 「
		鳥 ! 演奏。
		鳥は鳴いた = はい。
	」 実行。
」 実行。

実行方法

インストール版ドリトルを以下のサイトからダウンロードしてください。
https://dolittle.eplang.jp/download
パソコンのＯＳがWindowsなら「Windows用」をクリックするとダウンロードがはじまります。
ダウンロードしたら解凍してください。
解凍したら dolittle.bat をダブルクリックするとドリトルが起動します。
プログラムを貼り付けて「実行！」をクリックすると画面が表示されます。
国際宇宙ステーション（カメ）の周囲に緯度、経度、乗組員数が表示されるはずです。
プログラムの中で自分の場所が「所沢」に設定されているので自分の場所の地名、緯度、経度を調べて各自変更してください。
また、地球上で他に表示したい場所を追加することもできます。

緯度、経度、乗組員数が表示されない場合

インターネット経由でデータを取得するためにＷｅｂＡＰＩというものを今回はじめて使いました。
私の自宅のネットワーク環境では動作しましたが、動作しなかったらすみません。
データ取得に失敗している場合は「未定義」と表示されます。
データ取得の有無にかかわらず鳥は実行時に一鳴きします。（音の確認のため）
データが表示されない場合、確認ポイントが３つあります。

１．インストール版ドリトルのバージョンが古くないか？

ＷｅｂＡＰＩが使えるバージョンはｖ３．３０以降です。
動作確認をしたドリトルはｖ３．３１です。
今回ドリトルをダウンロードした人は最新版なので大丈夫です。

２．ＷｅｂＡＰＩを使ったサンプルプログラムは動作するか？

ドリトルのフォルダの sample フォルダに入っている api_ と付いたファイルは ＷｅｂＡＰＩを使ったサンプルプログラムです。
その内の api_station.dtl を実行してみてください。
エラーにならないで駅名が表示されるようであればＷｅｂＡＰＩは問題なく動作するようです。
この場合私が作ったプログラムに原因がありますので各自調べて改修をお願いします。

３．プロキシ環境下で実行していないか？

学校などのようにプロキシサーバーというものがあるネットワーク環境では動作しない（はず）です。
プログラムにプロキシの設定を追加すれば動作するかもしれませんが、確認していないのでわからないです。
今後プロキシ環境下で試す機会があれば記事を更新します。
ドリトルのプロキシ（Proxy）設定方法については以下のページを参照してください。
https://dolittle.eplang.jp/ref_system

ドリトルのＷｅｂＡＰＩオブジェクトについては以下のページを参照してください。
https://dolittle.eplang.jp/ref_webclient33


挑戦したけどうまく動かなかったそこのあなた、しょせんコンピューターの中での話なので必ず答えはあります。
気が向いたら調査をお願いします！