trigfn.f

[Back]

trigfn.f


マークを用いた三角関数のプロット,マウス座標の読み取り, フォント,メッセージボックスの 使用例です。


起動 すると正弦関数と余弦関数がプロットされ,まず「フォントの指定」 ダイアログが開きます。好きなフォント(フォント名,他)を指定するとそのフォントで, 各カーブに沿って "sin" と "cos" が描かれます。その後は,好きな点でマウスをクリッ クすると,グラフィクス画面にマークが描かれ,コンソール画面とステータスバーにク リックした点の座標が表示されます。終了するには左端の縦軸と横軸が交差する原点付近 でクリックしてください。終了するかどうかのメッセージボックスが現れますので,終了 するなら "Y" を,続けるなら "N" または "キャンセル" を押してください。


出力例(画像をクリックすると出力時の大きさになります):

trigfn.f 出力例

gwd ファイル ( 18,661 バイト )

ビットマップ ( 1,372,066 バイト )

拡張メタファイル ( 79,980 バイト )


trigfn.f ( 2,033 バイト ) で使われている GrWin ルーチン :

GWCAPPNT GWINDOW GWLINE GWOPEN GWPUTMRK GWPUTTXT GWQUITX GWSETMRK GWSETTXT MSGBOX
Tsuguhiro TAMARIBUCHI <>

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