🚀 go-pugleaf

In article <34589FD8.F671CEDB@coral.ocn.ne.jp>, 
"$B1sF#!w(BDDraw" <kendou@coral.ocn.ne.jp> wrote:
> $B!!!!!!(B $B<ALd$O!"(B $B%a%b%j!<$K<}$a$i$l$?2hA|%G!<%?$KD>@\(B
> $B$7$+$b=PMh$k$@$19bB.$K%"%/%;%9$9$k$K$O$I$&$9$l$P(B
> $B$$$$$N$+$H$$$&$b$N$G$9!#(B
>
$B!!(BTurbo Pascal$B$G$O!"D9@0?t$H%]%$%s%?$rJQ49$9$k1i;;;R!?4X?t$,$"$j$^$9(B
$B$7!"$3$l$i$r%-%c%9%H$9$kJ}K!$b$"$j$^$9!#(BDelphi$B$G$b2DG=$G$7$g$&!#(B

$B!!I8=`E*$J(BPascal$B$G$b$A$g$C$H6/0z$G$9$,!";d$N9%$-$J<+M36&MQBN$G!"(B

type
  Bitmap = array[1..$BI,MW$J%5%$%:(B] of integer;
  BitmapPtr = ^Bitmap;
  BitmapPtrAsInteger = record
    p : BitmapPtr;
    i : $B%]%$%s%?$HF1$8%S%C%HI}$N@0?t7?!#Nc$($P(Blongint
  end;

var
  b : BitmapPrtAsInteger;
  n : $B%]%$%s%?$HF1$8%S%C%HI}$N@0?t7?!#Nc$($P(Blongint
...
begin
  b.i := $B%S%C%H%^%C%W$,3JG<$5$l$?HVCO(B($B2?$+$N(BAPI$B$NJV$jCM$GF@$i$l$^$9$h$M(B);
  for n := 1 to $BE,Ev$J2s?t(B do
    b.p^[n] $B$K9%$-$JA`:n$r$9$k(B
end
...
$B$J$s$F$3$H$,$G$-$^$9!#(B


> $B!!!!!!(B $B%G%k%U%!%$(B $B#2!%#0(B $B$r;H$C$F$$$^$9!#(B
> VCL$B$O0l@Z;H$o$:#W#I#N(B32$B#A#P#I$N$_$G%W%m%0%i%`(B
> $B$7$F$$$^$9$N$G!"(B $B$3$N#N#G$KEj9F$7$^$7$?!#(B
> $B!J(B $B%G%k%U%!%$$N#N#G$,:_$l$P$$$$$N$K!*(B $B!K(B
> 
$B�a(B@$BJL$K(Bfj.lang.pascal$B$G$b$$$$$N$G$O$"$j$^$;$s$+!)!!Nc$($P(B
$B>e$NNc$O(BDelphi$B$H$b(BWindows$B$J$s$A$c$i$H$b4X78$J$/F@$i$l$?(B
$BJ}K!$G$9!#(B

$B!!$^$"!";d$O(BOS/2 PM$B%"%W%j$r(BTurbo Pascal$B8_49$N%3%s%Q%$%i(B
$B$G=q$$$F$$$k$s$G!"Fb<B(B(^^;$B$O$=$l$J$j$KCN$C$F$$$k$+$i$=$s$J(B
$B$KJQ$K;W$o$J$$$H$$$&$N$b$"$k$+$b$7$l$J$$$N$G$9$,!#(Bfj.lang.pascal
$B$H$$$&L>A0$H(BDelphi$B$,7k$S$D$+$J$$$J$i$H$b$+$/!"FC$K(BDelphi
$BMQ$N%0%k!<%W$r:n$k$[$I(Bfj.lang.pascal$B$NN.NL$OB?$/$J$$$G$9$h(B
$B$M!#(B



> $B!!!!!!(B $B#C(B $B$J$I$G$O!"(B $B2hA|%G!<%?$r<}$a$F$$$k%a%b%j!<$N(B
> $B#P#o#i#n#t#e#r(B $B$rE,Ev$K7?%-%c%9%H$7$F:G=i$N%T%/%;%k%G!<%?(B
> $B$K%"%/%;%9!"(B $B0J8e(B $B#P#o#i#n#t#e#r(B $B$r%$%s%/%j%a%s%H$7$FA4$F$N(B
> $B%T%/%;%k%G!<%?$K%"%/%;%9$9$k!%!%!%(B
> $B$HJ9$$$?$h$&$J;v$,$"$k$N$G$9$,!"(B
> $B#C$N7P83$bL5$/%Q%9%+%k$G$O(B $B#P#o#i#n#t#e#r(B $B$r%$%s%/%j%a%s%H(B
> $B$9$k;v$b=PMh$J$$$7!%!%!%(B
> 
> $B!!!!!!(B $B6qBNE*$K$d$j$?$$$3$H$O!"(B $B$"$k2hA|$KJL$N(B
> $B2hA|$rH>F)L@$G=E$M$kMM$J=hM}$r$7$?$$$N$G$9!#(B
> 
> $B!!!!!!(B $B$h$m$7$/$*4j$$$7$^$9!#(B
> 
> $B!!!!!!(B $B1sF#(B $B0lLi!!!!!!!!!!(B $B#k#e#n#d#o#u!w#c#o#r#a#l!%#o#c#n!%#n#e!%#j#p(B
> $B!!(B

-- 
Haruo Toda, Niigata Univ.