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
polygon.f ( 1,492 バイト ) で使われている GrWin ルーチン : Created: Mon Jul 21 22:57:11 JST 2003
Tsuguhiro TAMARIBUCHI <>