マークを用いた三角関数のプロット,マウス座標の読み取り, フォント,メッセージボックスの 使用例です。
起動 すると正弦関数と余弦関数がプロットされ,まず「フォントの指定」 ダイアログが開きます。好きなフォント(フォント名,他)を指定するとそのフォントで, 各カーブに沿って "sin" と "cos" が描かれます。その後は,好きな点でマウスをクリッ クすると,グラフィクス画面にマークが描かれ,コンソール画面とステータスバーにク リックした点の座標が表示されます。終了するには左端の縦軸と横軸が交差する原点付近 でクリックしてください。終了するかどうかのメッセージボックスが現れますので,終了 するなら "Y" を,続けるなら "N" または "キャンセル" を押してください。
出力例(画像をクリックすると出力時の大きさになります):
|
trigfn.f ( 2,033 バイト ) で使われている GrWin ルーチン :
GWCAPPNT GWINDOW GWLINE GWOPEN GWPUTMRK GWPUTTXT GWQUITX GWSETMRK GWSETTXT MSGBOXCreated: Mon Jul 21 23:03:52 JST 2003