trigfn.f

trigfn.f


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


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


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

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

Created:  Mon Jul 21 22:57:11 JST 2003