[Back]

bounce.f


ビットマップ,マーク,フォントの移動によるアニメーションの例です。


起動 すると番号の入力を要求されますので 1〜3 の数をキーボード から入力してください。1 の場合はビットマップ・ファイルから図形を読み込みます。 2 を入力すると円マークが選択されます。3 の場合には回転する記号が選ばれます。 番号を入力したら,グラフィクス・ウィンドウ内でマウスをドラッグしてください。 対応する初速度で選ばれた図形が打ち出されます。終了するにはウィンドウ内で左ボ タンをクリックしてください。


ビットマップ,マーク,フォントの出力例(画像をクリックすると出力時の大きさになります):

bounce.f 出力例

gwd ファイル ( 3,964 バイト )

ビットマップ ( 1,453,266 バイト )

拡張メタファイル ( 61,184 バイト )

bounce.f 出力例

gwd ファイル ( 3,967 バイト )

ビットマップ ( 1,453,266 バイト )

拡張メタファイル ( 1,840 バイト )

bounce.f 出力例

gwd ファイル ( 7,229 バイト )

ビットマップ ( 1,453,266 バイト )

拡張メタファイル ( 27,324 バイト )


bounce.f ( 3,596 バイト ) で使われている GrWin ルーチン :

GWANCHOR GWCAPLIN GWFLUSH GWFNT2BMP GWGETBMP GWGETTXT GWINDOW GWKYBRD GWLDCSIZ GWLINE GWLOADBMP GWMOUSE GWOPEN GWPUTBMP GWPUTMRK GWQUIT GWRECT GWSETBMP GWSETMRK GWSETOGN GWSETPEN GWSETTXT GWSIZE GWSLEEP GWVWMOD
Tsuguhiro TAMARIBUCHI <>

Created:  Mon Jul 21 23:03:52 JST 2003