ImageMagick

1 ：名無しさん＠お腹いっぱい。：2012/10/29(月) 01:02:19.67 ID:3BYDrmeE0.net

超強力な画像処理ソフトImageMagickについて

公式
http://www.imagemagick.org/

21 ：名無しさん＠お腹いっぱい。：2012/11/13(火) 22:52:57.85 ID:nS/ZZQq50.net

続きまだー

22 ：名無しさん＠お腹いっぱい。：2012/11/15(木) 01:20:15.93 ID:hdD7JsrG0.net

実はふむふむこんな使い方もあるんだなと感心して見てました(´･ω･`)

23 ：名無しさん＠お腹いっぱい。：2012/11/15(木) 09:13:34.92 ID:MKggAK5r0.net

convertのオプションの日本語訳

ttp://www5a.biglobe.ne.jp/~nkgwtty/njaLinuxImageMagick.html

24 ：名無しさん＠お腹いっぱい。：2012/11/27(火) 16:44:36.53 ID:nFQjpjNA0.net

PHPでMagick使ってるんだけど
文字の縁取りをStrokeWidthでやるとフォントの角ばった部分が丸くストロークされちゃう
改善方法ある？

25 ：名無しさん＠お腹いっぱい。：2012/12/12(水) 21:16:13.28 ID:Vk2VT3By0.net

Const Width = "640"
Const Height = "480"
Const Font = "meiryo.ttc"

Set FileSystem = Createobject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
Set ImageMagick = CreateObject("ImageMagickObject.MagickImage.1")

Messages = ImageMagick.Convert( _
"-font", FileSystem.BuildPath(Shell.SpecialFolders("Fonts"), Font), _
"-pointsize", "60", _
"label:@" & FileSystem.GetBaseName(WScript.ScriptFullName) & ".txt", _
"nul.bmp")
If Width / Split(Messages, ",")(0) =< Height / Split(Messages, ",")(1) Then
PointSize = Fix(Width / Split(Messages, ",")(0) * 60)
Else
PointSize = Fix(Height / Split(Messages, ",")(1) * 60)
End If
ImageMagick.Convert _
"-size", Width & "x" & Height, _
"canvas:none", _
"-fill", "white", _
"-draw", "rectangle 0,0," & Width - 1 & "," & Height - 1, _
"-font", FileSystem.BuildPath(Shell.SpecialFolders("Fonts"), Font), _
"-pointsize", PointSize, _
"-fill", "black", _
"-gravity", "center", _
"-annotate", "0", "@" & FileSystem.GetBaseName(WScript.ScriptFullName) & ".txt", _
FileSystem.GetBaseName(WScript.ScriptFullName) & ".bmp"

26 ：名無しさん＠お腹いっぱい。：2012/12/12(水) 21:23:39.12 ID:Vk2VT3By0.net

お。書けた。
上記を*.vbsとして保存して、同名の*.txtにBOM無しUTF-8でテキストを入れておくと、そのテキストが画像になります。

これでフォントをＭＳ ゴシックにすると、半角文字に空白がくっついて全角文字と同じ幅になってしまうのですが、
対処方法知ってる人がいたら教えてもらえないでしょうか。
等幅でもあくあフォントとかを使えば期待通りに動くのですが。

27 ：名無しさん＠お腹いっぱい。：2013/07/26(金) NY:AN:NY.AN ID:p9Yj7Qsv0.net

identify pic.jpg

28 ：名無しさん＠お腹いっぱい。：2013/09/27(金) 11:52:27.36 ID:F9dvJaA90.net

'PNGファイルを一括して16色に減色するVBScript

Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "mogrify -colors 16 *.png"
Set objWshShell = Nothing

↑を「png一括減色16.vbs」とでも名前付けて保存して実行すると、
同じフォルダにある全てのPNGファイルを使用色数16にまで減色する

※注意 上書き保存

29 ：名無しさん＠お腹いっぱい。：2013/09/27(金) 16:46:50.33 ID:tInXtplb0.net

for %i in (*.png) do mogrify -colors 16 %i

30 ：名無しさん＠お腹いっぱい。：2013/09/28(土) 05:59:10.01 ID:svfkGwFO0.net

mogfify -colors 16 *.png