From: Masao Kanemitsu <masao-k@...>
Date: 1998-02-18T15:11:34+09:00
Subject: [ruby-dev:1481] tkmandel

-----------887782147-418739511
Content-Type: text/plain; charset=iso-2022-jp


なんとか動くようになったみたいなので……。見てやってください。

<rubydir>/ext/mandel に mandel.c を置いて ls > MANIFEST ですね。
で rubydir で make; make install

あとは ruby tkmandel.rb を実行すれば、tkウィンドウが開いて
勝手に実行が始まるはずです。

最初は初期画面を計算して、少しずつ表示していきますが
気に入った部分が現れたら、その部分をクリック→ドラッグで
範囲指定して、ボタンから指を外すと、その辺りの再計算を
始めます。

経過は標準出力にも出します（tkで表示するようにするのが
本当でしょう。今は終了もCTRL-C でしかできない）。

残念なのは、何段も深く見ていくと：


35% done. -- deapth 282
/home/if-sasc/masao-k/lib/ruby/tk.rb:300: [BUG] Segmentation fault
Abort


みたいに落ちることです。何かをdestroyし忘れているのでは、と
思っていますが（以前その手で早くに落ちていた）、わかりません。

Best regards.,



M.Kanemitsu


-----------887782147-418739511
Content-Transfer-Encoding: x-uuencode
Content-Type: text/plain;name="mandel.c"
Content-Disposition: attachment; filename="mandel.c"
Content-Description: mandel.c

begin 666 mandel.c
M+RHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*@T*#0H@(&UA;F1E;"YC("T-"@T*("`D075T:&]R.B!-+DMA;F5M:71S
M=2`D#0H-"BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*B\-"@T*(VEN8VQU9&4@(G)U8GDN:"(-"@T*<W1A=&EC(%9!
M3%5%#0IM86YD96Q?;&]O<"AS96QF+"!R92P@:6TL(&UA>"D-"B`@("!604Q5
M12!S96QF.PT*("`@(%9!3%5%(')E.PT*"0E604Q512!I;3L-"@D)5D%,544@
M;6%X.PT*>PT*("`@(&1O=6)L92!R96%L+"!I;6%G93L-"@D)9&]U8FQE('I?
M<F5A;"P@>E]I;6%G93L-"@D)9&]U8FQE('1M<%]R96%L.PT*"0EI;G0@;6%X
M:6UU;3L-"@D):6YT(&D[#0H)#0H@("`@0VAE8VM?5'EP92AR92P@5%]&3$]!
M5"D[#0H@("`@0VAE8VM?5'EP92AI;2P@5%]&3$]!5"D[#0H@("`@0VAE8VM?
M5'EP92AM87@L(%1?1DE83E5-*3L-"@T*"0ER96%L(#T@4D9,3T%4*')E*2T^
M=F%L=64[#0H)"6EM86=E(#T@4D9,3T%4*&EM*2T^=F%L=64[#0H@("`@;6%X
M:6UU;2`]($9)6#))3E0H;6%X*3L-"@T*"0DO*BHJ#0H@("`@>B`](&,@/2!#
M;VUP;&5X*')E+"!I;2D-"B`@("!F;W(@:2!I;B`P("XN("1M87A?9&5A<'1H
M#0H@("`@("!Z(#T@*'H@*B!Z*2`K(&,-"B`@("`@(&)R96%K(&EF('HN86)S
M(#X@,@T*("`@(&5N9`T*("`@(')E='5R;B!I#0H)"2HJ*B\-"@T*"0EZ7W)E
M86P@/2!R96%L.PT*"0EZ7VEM86=E(#T@:6UA9V4[#0H)"69O<B`H:2`](#`[
M(&D@/"!M87AI;75M.R!I*RLI('L-"@D)("`@('1M<%]R96%L(#T@*"AZ7W)E
M86P@*B!Z7W)E86PI("T@*'I?:6UA9V4@*B!Z7VEM86=E*2D@*R!R96%L.PT*
M"0D)"7I?:6UA9V4@/2`H*'I?<F5A;"`J('I?:6UA9V4I("L@*'I?:6UA9V4@
M*B!Z7W)E86PI*2`K(&EM86=E.PT*"0D)"7I?<F5A;"`]('1M<%]R96%L.PT*
M"0D)"6EF("@@*"AZ7W)E86P@*B!Z7W)E86PI("L@*'I?:6UA9V4@*B!Z7VEM
M86=E*2D@/B`T+C`@*2![#0H)"0D)("`@(&)R96%K.PT*"0D)"7T-"@D)?0T*
M"0ER971U<FX@24Y4,D9)6"AI*3L-"GT-"@T*#0I);FET7VUA;F1E;"@I#0I[
M#0H@("`@5D%,544@;4UA;F1E;"`](')B7V1E9FEN95]M;V1U;&4H(DUA;F1E
M;"(I.PT*"0ER8E]D969I;F5?<VEN9VQE=&]N7VUE=&AO9"AM36%N9&5L+"`B
<;&]O<"(L(&UA;F1E;%]L;V]P+"`S*3L-"GT-"FUE
`
end


-----------887782147-418739511
Content-Transfer-Encoding: x-uuencode
Content-Type: text/plain;name="tkmandel.rb"
Content-Disposition: attachment; filename="tkmandel.rb"
Content-Description: tkmandel.rb

begin 666 tkmandel.rb
M(R"EWJ7SI<>EZZ76I>V]N+GGI/+)P:2OSL^SV*3/H:*\H:3.Q,RDZJ3'I+FA
MHPT*(R#*O\S,ON6DSJ2BI.O%P*3RP:JDTZ&BI+VD[*3+PM"Q_J2YI.O*H\''
MO_2D\B!C(*3(I+>DWJ2YH:-C(*3+PM"DMZ3&O+`-"B,@("!Z("T^('I>,B`K
M(&,-"B,@I/*AHK>KI.K*UJ2WM]>[NZ2WI-ZDN:&CI+FDZZ3(H:*DO:3.P\VD
MSZ&BI,BDQJ3BPN>DK:2OI,JDZZ'*R*^[MJ2YI.NARPT*(R"DJZ&BI**DZ\[.
ML.BDRZ3(I,FDWJ3KH<J\_<*KI-ZDOZ3/O/ZT_++RH<NDJZ3.I,FDP:3II*ND
MQZ2YH:/(K[NVI+>DO[[L#0HC(+GGI,^AHJ2]I+.DR[OJI.NDWJ3'I,ZWU[N[
MLO._]*3+I.BDPZ3&H:+!JJ3SI,#%P*3+OZ>D\LG5I+&DQJ3DI.JDWJ2YH:,-
M"B,@M]>[NZ3RI**DZ\3XQ=FDY*3#I,:DXLBON[:DMZ3*I+&D[*30H:*DO:3.
MQ<"DS[GUI*_%R:3JI-ZDN:&C#0HC(*2_I,"DLZ3LI,"DL:3.M:S"IZ3+I.BD
MPZ3&H:+!V\'\I.*DQ*2KI,JDI,JCNZBDRL[.L.BDK+B]I.RDQJ2MI-ZDN:&C
M#0HC#0HC(&)Y(&AT='`Z+R]C:&%O<S$N8V]M<&QE>"YH;VMU9&%I+F%C+FIP
M+WYM7VMI;F\O:F%V82]M86YD96PO;6%N9&5L+FAT;6P-"@T*(R!R97%U:7)E
M(")C;VUP;&5X(@T*<F5Q=6ER92`B;6%N9&5L(@T*<F5Q=6ER92`B=&MC;&%S
M<R(-"G)E<75I<F4@(D=$(@T*#0I$969A=6QT36%X1&5A<'1H(#T@,S`-"D1E
M9F%U;'136"`]("TR+C(U#0I$969A=6QT4UD@/2`Q+C<U#0I$969A=6QT15@@
M/2`Q+C(U#0I$969A=6QT15D@/2`M,2XW-0T*#0ID968@<F5S970-"B`@)&UA
M>%]D96%P=&@@/2!$969A=6QT36%X1&5A<'1H#0H@("1S7W)E(#T@1&5F875L
M=%-8#0H@("1S7VEM(#T@1&5F875L=%-9#0H@("1E7W)E(#T@1&5F875L=$58
M#0H@("1E7VEM(#T@1&5F875L=$59#0H@("1D>"`]("@D95]R92`M("1S7W)E
M*2YA8G,@+R!7:61T:`T*("`D9'D@/2`H)&5?:6T@+2`D<U]I;2DN86)S("\@
M2&5I9VAT#0IE;F0-"@T*#0I7:61T:"`](#0P,`T*2&5I9VAT(#T@-#`P#0H-
M"B1C(#T@0V%N=F%S+FYE=R![#0H@("`@("`@=VED=&@@5VED=&@-"B`@("`@
M("!H96EG:'0@2&5I9VAT#0H@("`@('T-"B1C+G!A8VL-"@T*)&-?<F5C="`]
M(%)E8W1A;F=L92YN97<H)&,L(#`L(#`L(%=I9'1H*S$L($AE:6=H="LQ*0T*
M)&-?<F5C="YF:6QL(")W:&ET92(-"@T*#0H-"B1C;VQO<G,@/2!;70T*#0ID
M968@9V1?<V5T=7`-"B`@)&EM(#T@1T0Z.DEM86=E+FYE=RA7:61T:"P@2&5I
M9VAT*0T*#0H@("1W:&ET92`]("1I;2YC;VQO<D%L;&]C871E*#(U-2P@,C4U
M+"`R-34I#0H@("1B;&%C:R`]("1I;2YC;VQO<D%L;&]C871E*#`L(#`L(#`I
M#0H-"B`@)&EM+G1R86YS<&%R96YT*"1W:&ET92D-"B`@)&EM+FEN=&5R;&%C
M92`](%12544-"@T*("`D8V]L;W)?;6%X(#T@,`T*("!F;W(@:2!I;B`P("XN
M(#$R-0T*("`@("1C;VQO<G-;)&-O;&]R7VUA>%T@/2`D:6TN8V]L;W)!;&QO
M8V%T92@R-3`@+2`H:2HR*2P@:2HR+"`P*0T*("`@("1C;VQO<E]M87@@*ST@
M,0T*("!E;F0-"B`@9F]R(&D@:6X@,"`N+B`Q,C4-"B`@("`D8V]L;W)S6R1C
M;VQO<E]M87A=(#T@)&EM+F-O;&]R06QL;V-A=&4H,"P@,C4P("T@*&DJ,BDL
M(&DJ,BD-"B`@("`D8V]L;W)?;6%X("L](#$-"B`@96YD#0H@("1C;VQO<E]M
M87@@+3T@,0T*96YD#0H-"@T*9&5F('IO;VTH82P@8BP@8RP@9"D-"B`@8V5N
M=&5R7W@@/2`H82`K(&,I("\@,@T*("!C96YT97)?>2`]("AB("L@9"D@+R`R
M#0H)<VEZ92`]("AC("T@82DN86)S#0H)<VEZ92`]("AD("T@82DN86)S(&EF
M("AS:7IE(#P@*&0@+2!A*2YA8G,I#0H)>F]O;5]R871E(#T@*"A7:61T:"`K
M($AE:6=H="D@+R`R*2YT;U]F("\@<VEZ90T*"21M87A?9&5A<'1H(#T@*"1M
M87A?9&5A<'1H+G1O7V8@*B!-871H+G-Q<G0H>F]O;5]R871E*2DN=&]?:0T*
M#0H);6]V95]X7W)A=&4@/2`H8V5N=&5R7W@@+2`H5VED=&@@+R`R*2DN=&]?
M9B`O("A7:61T:"`O(#(I#0H);6]V95]Y7W)A=&4@/2`H8V5N=&5R7WD@+2`H
M2&5I9VAT("\@,BDI+G1O7V8@+R`H2&5I9VAT("\@,BD-"@T*("!C96YT97)?
M<F4@/2`H)'-?<F4@*R`D95]R92D@+R`R#0H)8V5N=&5R7VEM(#T@*"1S7VEM
M("L@)&5?:6TI("\@,@T*"6-?<VEZ95]R92`]("@D95]R92`M("1S7W)E*2YA
M8G,-"@EC7W-I>F5?:6T@/2`H)&5?:6T@+2`D<U]I;2DN86)S#0H-"B`@8V5N
M=&5R7W)E(#T@8V5N=&5R7W)E("L@*&UO=F5?>%]R871E("H@*&-?<VEZ95]R
M92`O(#(I*0T*("!C96YT97)?:6T@/2!C96YT97)?:6T@+2`H;6]V95]Y7W)A
M=&4@*B`H8U]S:7IE7VEM("\@,BDI#0H-"@DD<U]R92`](&-E;G1E<E]R92`M
M("@H8U]S:7IE7W)E("\@,BD@+R!Z;V]M7W)A=&4I#0H))'-?:6T@/2!C96YT
M97)?:6T@*R`H*&-?<VEZ95]I;2`O(#(I("\@>F]O;5]R871E*0T*"21E7W)E
M(#T@8V5N=&5R7W)E("L@*"AC7W-I>F5?<F4@+R`R*2`O('IO;VU?<F%T92D-
M"@DD95]I;2`](&-E;G1E<E]I;2`M("@H8U]S:7IE7VEM("\@,BD@+R!Z;V]M
M7W)A=&4I#0H-"B`@)&1X(#T@*"1E7W)E("T@)'-?<F4I+F%B<R`O(%=I9'1H
M#0H@("1D>2`]("@D95]I;2`M("1S7VEM*2YA8G,@+R!(96EG:'0-"F5N9`T*
M#0H-"F1E9B!M86YD96PH>"P@>2D-"B`@<F4@/2`D<U]R92`K("@D9'@@*B!X
M*0T*("!I;2`]("1S7VEM("T@*"1D>2`J('DI#0H@(",@>B`](&,@/2!#;VUP
M;&5X*')E+"!I;2D-"B`@(R!F;W(@:2!I;B`P("XN("1M87A?9&5A<'1H#0H@
M(",@("!Z(#T@*'H@*B!Z*2`K(&,-"B`@(R`@(&)R96%K(&EF('HN86)S(#X@
M,@T*("`C(&5N9`T*("`C(')E='5R;B!I#0H)<F5T=7)N($UA;F1E;"YL;V]P
M*')E+"!I;2P@)&UA>%]D96%P=&@I#0IE;F0-"@T*#0H-"F1E9B!C86QC#0H@
M(')E='5R;B!I9B`D8W5R<F5N=%]R96-T#0H-"B`@9F]R('@@:6X@,"`N+B!7
M:61T:"`M(#$-"B`@("!D96%P=&@@/2!M86YD96PH>"P@)&-A;&-?>2D-"B`@
M("!I9B!D96%P=&@@/CT@)&UA>%]D96%P=&@-"B`@("`@("1I;2YS9710:7AE
M;"AX+"`D8V%L8U]Y+"`D8FQA8VLI#0H@("`@96QS90T*("`@("`@)&EM+G-E
M=%!I>&5L*'@L("1C86QC7WDL("1C;VQO<G-;("1C;VQO<E]M87@@*B!D96%P
M=&@@+R`D;6%X7V1E87!T:"!=*0T*("`@(&5N9`T*("!E;F0-"@T*("`D8V%L
M8U]Y("L](#$-"B`@:68@*"1C86QC7WD@/B!(96EG:'0@+2`Q*0T*("`@("1C
M86QC7WD@/2!3=&%R=$-A;&-9#0H@("`@)&-A;&-?;VX@/2!F86QS90T*("`@
M(&8@/2!O<&5N*"(C=&UP;6%N9&5L(RYG:68B+"`B=R(I#0H@("`@)&EM+F=I
M9BAF*0T*("`@(&8N8VQO<V4-"B`@("!G:68@/2!4:U!H;W1O26UA9V4N;F5W
M('L@9FEL92`B(W1M<&UA;F1E;",N9VEF(B!]#0H@("`@)&UA;F1E;"YD97-T
M<F]Y(&EF("1M86YD96P-"B`@("`D;6%N9&5L(#T@5&MC26UA9V4N;F5W*"1C
M+"!7:61T:"\R+"!(96EG:'0O,BD@>R!I;6%G92!G:68@?0T*"0EG:68N9&5S
M=')O>0T*("!E;F0-"@T*("!I9B`H*"1C86QC7WD@)2`Q,"D@/3T@,"D-"B`@
M("!P<FEN="`B(WLH)&-A;&-?>2`J(#$P,"`O($AE:6=H="E])2!D;VYE+B`M
M+2!D96%P=&@@(WLD;6%X7V1E87!T:'U<;B(-"B`@("!F(#T@;W!E;B@B(W1M
M<&UA;F1E;",N9VEF(BP@(G<B*0T*("`@("1I;2YG:68H9BD-"B`@("!F+F-L
M;W-E#0H@("`@9VEF(#T@5&M0:&]T;TEM86=E+FYE=R![(&9I;&4@(B-T;7!M
M86YD96PC+F=I9B(@?0T*("`@("1M86YD96PN9&5S=')O>2!I9B`D;6%N9&5L
M#0H@("`@)&UA;F1E;"`](%1K8TEM86=E+FYE=R@D8RP@5VED=&@O,BP@2&5I
M9VAT+S(I('L@:6UA9V4@9VEF('T-"@D)9VEF+F1E<W1R;WD-"B`@96YD#0H-
M"B`@:68@)&-A;&-?;VX-"B`@("!4:RYA9G1E<B@Q*2![(&-A;&,H*2!]#0H@
M(&5N9`T*96YD#0H-"@T*<F5S970H*0T*)&-A;&-?>2`](%-T87)T0V%L8UD@
M/2`P#0HD8V%L8U]O;B`]('1R=64-"F=D7W-E='5P*"D-"F-A;&,H*0T*#0H-
M"F1E9B!C;&5A<@T*("`D;6%N9&5L+F1E<W1R;WD@:68@)&UA;F1E;`T*("`D
M8V%L8U]Y(#T@4W1A<G1#86QC60T*96YD#0H-"@T*#0H-"B1S=&%R=%]X(#T@
M)'-T87)T7WD@/2`P#0HD8W5R<F5N=%]R96-T(#T@;FEL#0H-"F1E9B!D;U]P
M<F5S<RAX+"!Y*0T*("`D<W1A<G1?>"`]('@-"B`@)'-T87)T7WD@/2!Y#0H@
M("1C=7)R96YT7W)E8W0@/2!296-T86YG;&4N;F5W*"1C+"!X+"!Y+"!X+"!Y
M*2![(&]U=&QI;F4@(G=H:71E(B!]#0IE;F0-"@T*9&5F(&1O7VUO=&EO;BAX
M+"!Y*0T*("!I9B`D8W5R<F5N=%]R96-T#0H@("`@)&-U<G)E;G1?<F5C="YC
M;V]R9',@)'-T87)T7W@L("1S=&%R=%]Y+"!X+"!Y#0H@(&5N9`T*96YD#0H-
M"F1E9B!D;U]R96QE87-E*'@L('DI#0H@(&EF("1C=7)R96YT7W)E8W0-"B`@
M("`D8W5R<F5N=%]R96-T+F-O;W)D<R`D<W1A<G1?>"P@)'-T87)T7WDL('@L
M('D-"B`@("`D8W5R<F5N=%]R96-T+F1E<W1R;WD-"B`@("`D8W5R<F5N=%]R
M96-T(#T@;FEL#0H@("`@8VQE87(H*0T*("`@("1C86QC7V]N(#T@=')U90T*
M("`@(&=D7W-E='5P*"D-"B`@("!Z;V]M*"1S=&%R=%]X+"`D<W1A<G1?>2P@
M>"P@>2D-"B`@("!C86QC*"D-"B`@96YD#0IE;F0-"@T*)&,N8FEN9"@B,2(L
M('!R;V-[?&5\(&1O7W!R97-S(&4N>"P@92YY?2D-"B1C+F)I;F0H(D(Q+4UO
M=&EO;B(L('!R;V-[?'@L('E\(&1O7VUO=&EO;B!X+"!Y?2P@(B5X("5Y(BD-
M"B1C+F)I;F0H(D)U='1O;E)E;&5A<V4M,2(L('!R;V-[?'@L('E\(&1O7W)E
M;&5A<V4@>"P@>7TL("(E>"`E>2(I#0H-"F)E9VEN#0H@(%1K+FUA:6YL;V]P
M#0IE;G-U<F4-"B`@1FEL92YD96QE=&4H(B-T;7!M86YD96PC+F=I9B(I#0IE
$;F0-"G-U
`
end

-----------887782147-418739511--