[Back]

polygon.f


FORTRAN77 による簡単な直線の描画とマウスによる座標の取得機能の使用例です。

( C によるものがここにあります。 )


起動 すると,コンソール・ウィンドウに 'N =' というプロンプトが現れるのでキーボー ドから 16 〜 32 程度の数(頂点の数)を入力してみてください。きれい(?)な図形 が現れるはずです。図形表示が終ると色指定のダイアログボックスが現れますので 適当な色を選択してください。選択された色で図形の周囲に四角形と円が描かれます。 その後,カーソルが十文字形に変ってマウスの入力待ちとなりますので,マウス・ カーソルを任意の点に移動してから左ボタンをクリックしてみてください。その領域 が塗りつぶされるか,ハッチがかかるかします。このときの,色やハッチパターンは 乱数で決められます。終了するには中央付近で左ボタンをクリックしてください。 「close」のダイアログボックスが現れます。この段階で、画面を印刷したりファイル に保存することもできます。ここでダイアログボックスのボタンを押せば終了します。


An output example for polygon.f

Gwd file ( 28,020 bytes )

Bitmap file ( 980,066 bytes )

Enhanced metafile ( 11,856 bytes )


GrWin routines used in polygon.f ( 1,513 bytes ) :

GWCAPPNT GWELLIPSE GWFLOOD GWINDOW GWLINE GWNCOLOR GWOPEN GWQUIT GWRECT GWSETBRS GWSETPEN GWSIZE GWVPORT
Tsuguhiro TAMARIBUCHI <>

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