🚀 go-pugleaf

$@;O$a$^$7$F86ED!w5~Bg$G$9!#(J
$@:#!"(Junix$@>e$G(Jfortran$@$G(Jbitamp$@$r7W;;7k2L$H$7$F@8@.$7!"$=$l$r(Jxwindow$@$GI=<((J
$@$9$k$?$a$N%W%m%0%i%`$r$+$$$F$$$^$9!#(J

$@=iJbE*$J<ALd$G$9$,!"(Jfortran$@$+$i!"(Jc$@$G=q$$$?(Jxwindow$@$N%W%m%0%i%`$O!"$I$&(J
$@$$$&J}K!$G8F$Y$F!"%j%s%/=PMh$k$N$G$7$g$&$+!)(J
$@$"$^$j$K=iJbE*$G?=$7Lu$"$j$^$;$s$,!"$b$7NI$1$l$P!"$*<j;f$G$*Ez$(2<$5$$!#(J

$@:#$^$G$d$C$?$3$H$O!"(Jc$@$N4X?t(J
	draw(unsigned int width,unsigned int height,char *bitmap)
$@$r:n$C$FF0:n3NG'$r$7$?$3$H$H(J
$@!J(J C$@$N(Jmain$@$+$i8F$s$GF0:n3NG'$7$^$7$?!#%3%s%Q%$%k$H%j%s%/$O(Jimake$@$r;H$C(J
$@$F$7$^$7$?!#!K!"(J
$@$3$l$r(Jcall$@$9$k(Jfortran$@$N%W%m%0%i%`$r$+$$$?$3$H$G$9!#(J

fortran$@$N$[$&$G$O!"(J
	integer bitmap(32)
	.....
	call draw(32,32,bitmap)
	.....
	end
$@$H$J$C$F$$$^$9!#(J


	$@86ED7r<+(J  $@5~ETBg3X9)3XIt(J  M1
	e-mail:harada@kuamp.kyoto-u.ac.jp