UXPACK/UYPACK/UZPACK $B$OD>8r:BI87O$N:BI8<4$r%W%m%C%H$9$k$?$a$N(B $B%5%V%k!<%A%s%Q%C%1!<%8$G$"$k!%(B $B$7$?$,$C$F!$JQ494X?tHV9f$H$7$F$O(BITR=1 $B!A(B 4$B!JD>3QD>@~:BI87O!K$N(B $B@55,2=JQ49$KBP$7$F$N$_;HMQ$G$-$k!%(B $B$=$l0J30$NJQ494X?tHV9f$r;XDj$7$F$bF0:n$OJ]>Z$5$l$J$$!%(B
$B$3$N%Q%C%1!<%8$K$b$H$E$$$F(BULPACK$B!JBh(B[here]$B>O!K(B, UCPACK$B!JBh(B[here]$B>O!K(B, USPACK$B!JBh(B[here]$B>O!K$J$I$N(B $B:BI8<44XO"%Q%C%1!<%8$O9=C[$5$l$F$$$k!%(B
UXPACK/UYPACK/UZPACK $B$=$l$>$l$N%Q%C%1!<%8$N5!G=$O(B $B
UXPACK : X$B<4$r%W%m%C%H$9$k(B
UYPACK : Y$B<4$r%W%m%C%H$9$k(B
UZPACK :
$BFbItJQ?t$N4IM}$d=i4|2=$r$*$3$J$&(B
UXPACK, UYPACK$B$O$=$l$>$l
$B4JC1$J:BI8<4$N:n2h$r$7$h$&$H$9$k%f!<%6!<$O!$(B $B!V:BI8<4$N>l=j!W$K4X$9$k[here]$B@a$N!V>e0L1~MQ%k!<%A%s$N@bL@!W$K(B $B?J$s$G$b$i$($l$P!$(B $B$*$=$i$/4|BT$K1h$&$h$&$J:BI8<4$NIA2h$,$G$-$k$O$:$G$"$k!%(B
$B$3$N%Q%C%1!<%8$r;H$&$?$a$K$O!$$"$i$+$8$aJQ494X?tHV9f$,(B ITR=1 $B!A(B 4$B!JD>3QD>@~:BI87O!K$N@55,2=JQ49$,(B $B@_Dj$5$l$F$$$J$1$l$P$J$i$J$$(B $B!J!V(BGRPH1$B!W$N%^%K%e%"%k;2>H!K(B. $B$?$H$($P(B
CALL SGSVPT(VXMIN,VXMAX,VYMIN,VYMAX)$B$,8F$s$G$"$k$H$9$k!%(B $B$3$N$H$-(BLLA, ULA$B$Ol=j$K:BI8<4$r@_Dj$G$-$k!%(B
CALL SGSWND(UXMIN,UXMAX,UYMIN,UYMAX)
CALL SGSTRN(ITR)
CALL SGSTRF
'B'ottom - (UXMIN, UYMIN)$B$H(B(UXMAX, UYMIN)$B$r7k$V@~(B
'T'op - (UXMIN, UYMAX)$B$H(B(UXMAX, UYMAX)$B$r7k$V@~(B
'U'ser - (UXMIN, UYUSER)$B$H(B(UXMAX, UYUSER)
$B$r7k$V@~(B
'L'eft - (UXMIN, UYMIN)$B$H(B(UXMIN, UYMAX)$B$r7k$V@~(B
'R'ight - (UXMAX, UYMIN)$B$H(B(UXMAX, UYMAX)$B$r7k$V@~(B
'U'ser - (UXUSER, UYMIN)$B$H(B(UXUSER, UYMAX)
$B$r7k$V@~(B
X$B<4$K4X$9$k(B'B', 'T', 'U',
Y$B<4$K4X$9$k(B'L', 'R', 'U'$B$O!$(B
$B:BI8<[email protected]!JH!K$r:n2h$9$k>l=j$r<($9$?$a$N(B
$B%Q%i%a!<%?!<(B(CSIDE)$B$H$7$FMQ$$$i$l$k!%(B
UXUSER, UYUSER$B$OFbItJQ?t(B'UXUSER', 'UYUSER'$B$r(B
$B@_Dj$7$F=i$a$FM-8z$H$J$k!J=i4|CM$OITDj!K(B.
$B0J2UZpGET/UZpSET([here]$B@a;2>H!K$N(B
$B4IM}$9$kFbItJQ?t$N$3$H$r;X$9!%(B
$B:BI8<4$r@_Dj$G$-$k$3$l$i$N>l=j$O!$(B
UXPACK$B$K$D$$$F$O(BUXSAXZ$B$^$?$O(BUXSAXS$B$K$h$C$F(B
Y$BJ}8~$KJ?9T0\F0$9$k$3$H$,$G$-$k(B;
UYPACK$B$K$D$$$F$O(BUYSAXZ$B$^$?$O(BUYSAXS$B$K$h$C$F(B
X$BJ}8~$KJ?9T0\F0$9$k$3$H$,$G$-$k(B([here]$B@a;2>H!K(B.
$B$=$l$>[email protected]$O
a. <ISLCT>
$B@~J,$N%i%$%s%$%s%G%/%9(B
a. $BL\@9$ND9$5(B <ISLCT>
b. <ISLCT>
$BL\@9$rIA$/@~$N%i%$%s%$%s%G%/%9(B
a. $BJ8;z$N9b$5(B <ISLCT>
b. $BJ8;zNs$N2sE>3Q(B <CSIDE>
c. $BJ8;zNs$N%;%s%?%j%s%0%*%W%7%g%s(B <CSIDE>
d. <ISLCT>
$BJ8;zNs$rIA$/@~$N%i%$%s%$%s%G%/%9(B
a. $BJ8;z$N9b$5(B <ISLCT>
b. $BJ8;zNs$N2sE>3Q(B <CSIDE>
c. $BJ8;zNs$N%;%s%?%j%s%0%*%W%7%g%s(B <$B0z$-?t(B>
d. <ISLCT>
$BJ8;zNs$rIA$/@~$N%i%$%s%$%s%G%/%9(B
$B$3$l$i$NB0@-$N;XDjJ}K!$*$h$S(B
<ISLCT>, <CSIDE>, <$B0z$-?t(B>$B$N(B
$B0UL#$K$D$$$F$O
$B:BI8<4$N@_Dj$r(B'U'ser$B0J30$G$*$3$J$C$?>l9g!$(B $B%i%Y%k$H%?%$%H%k$O>o$K%&%$%s%I%&$N30B&$K8~$+$C$FIA$+$l$k!%(B 'U'ser$B$G@_Dj$r$*$3$J$C$?>l9g!$%i%Y%k$H%?%$%H%k$r<4$N$I$A$iB&$K=q$/$+$O(B $BFbItJQ?t(B'IFLAG'$B$,7h$a$k(B([here]$B@a;2>H!K(B.
[here]$B@a$G=R$Y$?B0@-$O6qBNE*$K
NUMAGUTI Atusi <[email protected]> Last Modified: Thu Aug 31 13:10:15 EDT 1995