🚀 go-pugleaf

X-window$@$G$O(J, $@Nc$($P$=$l$^$GJL$N%&%$%s%I%&$,>e$K$N$C$+$C$F$$$F(J, $@$3$l$r(J
move$@$7$?;~(J$@$K(J, $@2<$K$"$C$?%&%$%s%I%&$r:FI=<($9$k$N$O86B'$H$7$F$=$N%&%$%s(J
$@%I%&$r=q$$$?%W%m%0%i%`(J($@%/%i%$%"%s%H(J)$@$N@U(J$@G$$G$9(J.

> fortran$@$N$[$&$G$O!"(J
> 	  integer bitmap(32)
> 	  .....
> 	  call draw(32,32,bitmap)
> 	  .....
> 	  end
> $@$H$J$C$F$$$^$9!#(J
$@$H(J, $@$3$&$$$&Iw$G$9$H(J, $@=q$-$C$Q$J$7$GC/$b:FI=<($7$F$/$l$^$;$s$h$M(J.
call draw $@$+$iLa$C$FMh$F$O$$$1$J$$(J.

$@:FI=<((J(exposure)$@$O$$$DI,MW$K$J$k$+J,$+$j$^$;$s$+$i(J, fortran$@B&$N7W;;(J$@$O(J
$@%9%-$r8+$F$d$i$J$$$H$$$1$^$;$s(J :-) $@$@$+$i(J, $@Nc$($P2?$+$N%\%?%s$r2!$5$l(J
$@$?$?$i$d$k(J, $@$H$+(J, $@5/F0$5$l$?(J$@$i:G=i$K0l2s$@$1$d$k$H$+(J, $@$"$k$$$OJL%W%m%;(J
$@%9$K$7$FJBNs$KF0:n$5$;$k$3$H$K$J$k$N$G$O$J$$$G$7$g$&$+!)(J

$@$&$A$G0JA0$K:n$C$?E[$G$9$H(J, $@I=<(%W%m%;%9$H7W;;%W%m%;%9$rJL$K:n$C$F%=%1%C(J
$@%H$G$D$J$.(J, $@7W;;7k2L$r%=%1%C(J$@%H$KJ|$j9~$`$H$=$l$r%$%Y%s%H$H$7$FG'<1$7$F(J
$@I=<(%W%m%;%9$,I=<(F0:n$r$9$k$H$$$&Iw$K$7$^$7$?(J.

XtAppAddInput(XtAddInput)$@$r;H$&$H4JC1$K<B8=$G$-$^$9(J. $@%=%1%C%H$N;H$$J}(J
$@$rCN$i$J$$$H$*$C$/$&$+$b$7$l$^$;$s$,!D(J

$@$$$C$=(J, $@Nc$($P(J, xloadimage$@$,FI$a$k7A<0$N%U%!%$%k$r=q$$$F$d$C$F(J,
xloadimage$@$r5/F0$7$F$7$^$&(J, $@$H$$$&$,4J(J$@C1$+$b$7$l$^$;$s$M(J.
--
					$@5HED!!M5G7(J
					yuki@flab.fujitsu.co.jp
					($@IY;NDL8&5f=j%=%U%H%&%'%"8&5f(J$@It(J)