あとは

http://studio.imagemagick.org/RMagick/doc/

辺りをみながら適当に画像に効果を入れて出力してみた。

require 'RMagick'




img = Magick::ImageList.new('c:\20070529_1.jpg')










#サイズ取得

puts img.columns

puts img.rows




#拡大縮小

img2 = img.resize(90, 60)










#縦横比維持のまま拡大縮小（収まるサイズで）

img3 = img.resize_to_fit(200, 300)

img4 = img.resize_to_fit(400, 100)





　




#画像回転

img5 = img.rotate(90)










#ロール

img6 = img.roll(30, 40)










#倍画像

img7 = img.scale(2)

img8 = img.scale(0.5)





　




#波

img9 = img.wave(amplitude=25.0, wavelength=150.0)










#文字を書く？

img10 = img.clone





gc = Magick::Draw.new

gc.annotate(img10, 0, 0, 0, -5, "moko") do

　gc.gravity = Magick::SouthEastGravity　#場所

　# gc.font_family = "Times"　#フォント指定？

　# gc.font = "Times"　#フォント指定？

　gc.pointsize = 32　#フォントサイズ

　gc.fill = "black"　#文字色

　gc.stroke = "white"　#縁取りの色

end










#100x100の赤い画像新規作成

img11 = Magick::Image.new(100,100){self.background_color = "red"}










#画像保存

img2.write('c:\20070529_2.jpg')

img3.write('c:\20070529_3.jpg')

img4.write('c:\20070529_4.jpg')

img5.write('c:\20070529_5.jpg')

img6.write('c:\20070529_6.jpg')

img7.write('c:\20070529_7.jpg')

img8.write('c:\20070529_8.jpg')

img9.write('c:\20070529_9.jpg')

img10.write('c:\20070529_10.jpg')

img11.write('c:\20070529_11.jpg')

ひゃっほう！

なんかワクワクしてきたぞ




あとはRubyで、順次ファイルを開かせてそのファイル名を書いて保存するだけだなっと







Windowsでインスコして動かす機会なんてそんなに無いと思うけど、俺なんかがいじっても動くんもんだねぇ






※この後ハマった件

・tiffで出力できない

・gifで出力するとやけに重い

　　出力形式は問わないのでjpgで出力してまぁまぁおｋスピード

　　こんな感じで書き出す（クオリティは最低にした）

　　img.write("#{ファイル名.jpg}"){self.quality = 1}

・メモリ食いすぎで異常終了

　　ループにGC.start入れたらおｋだった。

　　ガベージコレクションが動く前に食いつぶしてたのかのう。

　　（昔は「ガーベジコレクション」って言ってた気がするけど気のせいかな？）





img = Magick::ImageList.new("c:\xxx\moko1.jpg")

　は、

img = Magick::Image.read("c:\xxx\moko1.jpg").first

　の方が良いのかも知れない。.firstは要るのか要らないのか試してない（めどい

男は黙って買えばいいんだよ。
そんな落ち着いているモコにメールが一通。

俺、負け組ってレベルじゃねーぞ！

　
自分で言うのもなんだが　モコです。

画像が全てで

読みにくいが仙人だ

それだけプレイしてそのスキルかよとか言うな！
仕事が忙しいとか言っても、週一のゲーセン勉強会だけはしっかりこなす、それがモコクオリティ

モコです。



仕事でMT4iをいじらないといけなくなったのでいじる

導入するファイルは４つしかないし、かなり簡単でした



が、最後に一つこんなエラーで泣く。

エントリの更新画面でインタナルサバエラー



[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\A passed through at /xxxxxxxxxx/mt4i.cgi line 620.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] "my" variable $text masks earlier declaration in same scope at /xxxxxxxxxx/mt4i.cgi line 3175.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 179.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 179.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 179.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 179.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 179.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 186.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 186.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Unrecognized escape \\s passed through at mt4ilib/Func.pl line 186.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] False [] range "\\w-" in regex; marked by <-- HERE in m/[^\\w- <-- HERE /\\\\]/ at /xxxxxxxxxx/plugins/MTPageRating.pl line 41.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in substitution (s///) at /usr/lib/perl5/5.8.5/Encode/JP/H2Z.pm line 157.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in substitution (s///) at extlib/Jcode/Tr.pm line 27.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in substitution (s///) at /usr/lib/perl5/5.8.5/Encode/JP/H2Z.pm line 157.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in substitution (s///) at extlib/Jcode/Tr.pm line 27.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Can't call method "entry_prefs" on an undefined value at /xxxxxxxxxx/mt4i.cgi line 2154.

[Fri May 18 00:20:44 2007] [error] [client xxx.xxx.xxx.xxx] Premature end of script headers: mt4i.cgi





最後の行の「Premature end of script headers」でぐぐると結構同じ事で悩んでいる人がいるらしく

これが原因と思い込んでしばらくgoogleとにらめっこしてた





結局、原因は設定ページの

「AuthorName - Entry投稿者のログイン名」



こいつを設定してなかったのが問題だったっぽい。



他に



#!/usr/bin/perl -w

を

#!/usr/bin/perl --



に変えたりとか、結局効果があったのかどうか結局謎だっぽ