polygon.f

FORTRAN77 $B$K$h$k4JC1$JD>@~$NIA2h$H%^%&%9$K$h$k:BI8$N

$B!J(J C $B$K$h$k$b$N$,(J$B$3$3(J$B$K$"$j$^$9!#(J $B!K(J

$B5/F0(J $B$9$k$H!$%3%s%=!<%k!&%&%#%s%I%&$K(J 'N =' $B$H$$$&%W%m%s%W%H$,8=$l$k$N$G%-!<%\!<(J $B%I$+$i(J 16 $B!A(J 32 $BDxEY$N?t!JD:E@$N?t!K$rF~NO$7$F$_$F$/$@$5$$!#$-$l$$(J(?)$B$J?^7A(J $B$,8=$l$k$O$:$G$9!#?^7AI=<($,=*$k$H?';XDj$N%@%$%"%m%0%\%C%/%9$,8=$l$^$9$N$G(J $BE,Ev$J?'$rA*Br$7$F$/$@$5$$!#A*Br$5$l$??'$G?^7A$N<~0O$K;M3Q7A$H1_$,IA$+$l$^$9!#(J $B$=$N8e!$%+!<%=%k$,==J8;z7A$KJQ$C$F%^%&%9$NF~NOBT$A$H$J$j$^$9$N$G!$%^%&%9!&(J $B%+!<%=%k$rG$0U$NE@$K0\F0$7$F$+$i:8%\%?%s$r%/%j%C%/$7$F$_$F$/$@$5$$!#$=$NNN0h(J $B$,EI$j$D$V$5$l$k$+!$%O%C%A$,$+$+$k$+$7$^$9!#$3$N$H$-$N!$?'$d%O%C%A%Q%?!<%s$O(J $BMp?t$G7h$a$i$l$^$9!#=*N;$9$k$K$OCf1{IU6a$G:8%\%?%s$r%/%j%C%/$7$F$/$@$5$$!#(J $B!V(Jclose$B!W$N%@%$%"%m%0%\%C%/%9$,8=$l$^$9!#$3$NCJ3,$G!"2hLL$r0u:~$7$?$j%U%!%$%k(J $B$KJ]B8$9$k$3$H$b$G$-$^$9!#$3$3$G%@%$%"%m%0%\%C%/%9$N%\%?%s$r2!$;$P=*N;$7$^$9!#(J

n = 16 の場合の出力例（画像をクリックすると出力時の大きさになります）：

gwd ファイル ( 28,020 バイト ) ビットマップ ( 980,066 バイト ) 拡張メタファイル ( 11,856 バイト )

polygon.f ( 1,492 バイト ) で使われている GrWin ルーチン :

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