２重振り子のカオス的運動のアニメーションです。
起動したら，それぞれの振子の初期位置を設定するためにグラフィクス・ウィンドウ内でマウスを2度ドラッグしてください。
dp.f ( 4,793 バイト ) で使われている GrWin ルーチン :
GWANCHOR GWCAPVEC GWCMBMRK GWERASE GWEVENT GWFLUSH GWINDOW GWINPUT GWLINE GWLINE2 GWOPEN GWPUTCMB GWPUTTXT GWQUIT GWRECT GWSETMSG GWSETOGN GWSETTXT GWSLEEP2 GWVPORTアニメーション GIF の作り方：
dp.f を例にアニメーション GIF の作り方について説明します（http://www.stellar.ac/~komai/grwnd2/index.html を参考にさせていただきました）。まず，アニメーションの各ショットを拡張メタファイル（.emf）形式でファイルに格納するように，GWSAVEAS を使ってソースコードを修正します。 修正したものがこれ ( 5,322 バイト ) です。 コンパイルしてから実行すると，dpxxxxxx.emf という通し番号付の拡張メタファイル（.emf）が生成されます（早めにマウスをクリックして実行を止めないと量が膨大になりますので注意してください）ので，IrfanView のバッチモードなどを使ってそれぞれを GIF ファイルに一括変換します。そして， それらを Animation GIF Maker などによりアニメーション GIF 化すればできあがりです。
Created: Mon Jul 21 22:57:11 JST 2003