画像出力

シミュレーションの途中経過のタートルやパッチのスナップショットを PNG画像としてファイルに書き出すことができます（上はそれをまとめた動画GIF画像)。

ファイル書き出しの手続き
確認プログラム
外部変数の利用
手続き
実行
- 実行結果
GIFアニメーション

ファイル書き出しの手続き †

StarLogoでのファイル書き出し(Export)のための手続きはいくつかありますが、ここではファイル名を引数指定して書き出す

export-picture-turtles-and-patches-name :filename

という手続きを使って、シミュレーション経過のタートルとパッチのスナップショット画像を作成し、保存するプログラムを作ってみます。

※確認バージョンは2.2です。

↑

確認プログラム †

ここでは、次の様な手続きをStarLogoで書きます

パッチの中心部にタートルを1000匹生成
次の処理を100回繰り返す
- それぞれのタートルに前に１だけ進むように指示する
- 20回に一度のタイミングで１枚のPNG画像を書き出す

ここではタートルへの命令が基本命令１つだけなので、全ての手続きをObserverProcedureとして書きます。

↑

外部変数の利用 †

今回作成のキーフレームアニメーションのために、シミュレーションのステップを次の様なグローバル変数に入れることとします。

globals [ s-frameno ]

↑

手続き †

次の様な手続きをControl CenterのObserver Proceduresのエリアに書きます。

↑

初期設定 †

init手続きは、グローバル変数の初期化と、パッチ・タートルの初期化、そして、タートルを1000匹生成します。

to init
     set s-frameno 20
     ca
     crt 1000
end

↑

シミュレーション実行 †

go手続きは、シミュレーションとはいえない単純な命令 fd 1をタートルに対して命令します。そしてこの処理を10回繰り返します。繰り返しの最後にスナップショット画像を保存するための snap-shot手続きを読んでいます。

to go
   dotimes [:i 10][
        ask-turtles [ fd 1 ]
        snap-shot
   ]
end

↑

フレームの画像書き出し †

これが、このTipsのメインの手続きです。

to snap-shot [

     set s-frameno (s-frameno + 1) ;;　フレームのカウントアップ

     ;; 数字を５桁にあわせ、ファイル名の長さを一定にするための処理

     let [:str to-string [s-frameno] ]
     dotimes [:i (5 - (length :str))] [
         set :str (to-string ["0" :str])
     ]
     let [:filename to-string ["outpic" :str] ]

     ;;　:filenameで画像を書き出す
     export-picture-turtles-and-patches-name :filename
  ]
end

↑