角が丸くなったバッジ画像を生成するには、以下のVBScriptを実行します。
(sample311.vbs)
=============================================================
Set im = CreateObject("ImageMagickObject.MagickImage.1")
pi=3.14159
rem 分割数
par = Wscript.Arguments(0)
rem 中心x
cx = Wscript.Arguments(1)
rem 中心y
cy = Wscript.Arguments(2)
rem 半径(大)
rad1 = Wscript.Arguments(3)
rem 半径(小)
rad2 = Wscript.Arguments(4)
rem 描画色
fc = Wscript.Arguments(5)
rem 出力サイズx
ox = Wscript.Arguments(6)
rem 出力サイズy
oy = Wscript.Arguments(7)
rem 出力ファイル名
ofile = Wscript.Arguments(8)
dr1=0
dr2=360/(par*2)
dat="stroke-linejoin round polygon "
Do While dr2<360 p1x="int(cx-cos(2*pi*dr1/360)*rad1)" p1y="int(cy-sin(2*pi*dr1/360)*rad1)" p2x="int(cx-cos(2*pi*dr2/360)*rad2)" p2y="int(cy-sin(2*pi*dr2/360)*rad2)">0 then
dat=dat+","
end if
dat=dat & cstr(p1x) & "," & cstr(p1y) & "," & cstr(p2x) & "," & cstr(p2y)
dr1 = dr1 + 360/par
dr2 = dr2 + 360/par
Loop
im.Convert "-size", ox & "x" & oy, "xc:none", "-fill", fc, "-stroke", fc, "-strokewidth", "4", "-draw", dat, ofile
Set im = Nothing
=============================================================
実行例
cscript sample311.vbs 36 100 100 90 80 #BBDDFF 200 200 sample311.png
出力画像(sample311.png)
stroke-linejoin roundにより、polygonで書かれたバッジの角が丸くなっています。
関連項目
ImageMagickとWSHで、バッジ画像を生成する
Saturday, February 16, 2008
ImageMagickでメディアンフィルタを適用する
メディアンフィルタを適用するには-medianオプションを使用します。
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe sf.jpg -median 1 sample310a.jpg
元画像(sf.jpg)
出力画像(sample310a.jpg)
%im%\convert.exe sf.jpg -median 3 sample310b.jpg
出力画像(sample310b.jpg)
%im%\convert.exe sf.jpg -median 5 sample310c.jpg
出力画像(sample310c.jpg)
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe sf.jpg -median 1 sample310a.jpg
元画像(sf.jpg)
出力画像(sample310a.jpg)
%im%\convert.exe sf.jpg -median 3 sample310b.jpg
出力画像(sample310b.jpg)
%im%\convert.exe sf.jpg -median 5 sample310c.jpg
出力画像(sample310c.jpg)
Friday, February 15, 2008
ImageMagickで影つきの立体的な角丸四角で修飾された文字列を描画する
影つきの立体的な角丸四角で修飾された文字列を描画するには、
以下のVBScriptをWSHで実行します。
sample209.vbs
========================================
Set im = CreateObject("ImageMagickObject.MagickImage.1")
rem 出力文字列(英文字のみ)
message_string = "ImageMagick"
For wl=1 to Len(message_string)
ch = Mid(message_string,wl,1)
If (wl mod 2) = 0 then
rt = "-15"
else
rt = "15"
end if
rem c0b49d
im.Convert "-size", "20x20", "xc:none", "-fill", "#bbddff", "-draw", "roundrectangle 0,0,19,19,5,5", "-font", "Tahoma-Bold", "-gravity", "center", "-fill", "#435184", "-draw", "font-size 15 text 0,0 '" & ch & "'", "-virtual-pixel", "background", "-background", "none", "-rotate", rt, "(", "+clone", "-shade", "135x23", "-blur", "0x2", "-normalize", ")", "-compose", "overlay", "-composite", "(", "+clone", "-background", "#052050", "-shadow", "50x2+1+10", ")", "+swap", "-compose", "src-over", "-background", "white", "-mosaic", "t" & wl & ".png"
if wl = 1 then
im.Convert "t1.png", "output.png"
else
im.Convert "output.png", "t" & wl & ".png", "+append", "output.png"
end if
Next
Set im = Nothing
========================================
実行例
cscript sample209.vbs
出力画像(output.png)
関連項目
ImageMagickで角丸四角で修飾された文字列を描画する
以下のVBScriptをWSHで実行します。
sample209.vbs
========================================
Set im = CreateObject("ImageMagickObject.MagickImage.1")
rem 出力文字列(英文字のみ)
message_string = "ImageMagick"
For wl=1 to Len(message_string)
ch = Mid(message_string,wl,1)
If (wl mod 2) = 0 then
rt = "-15"
else
rt = "15"
end if
rem c0b49d
im.Convert "-size", "20x20", "xc:none", "-fill", "#bbddff", "-draw", "roundrectangle 0,0,19,19,5,5", "-font", "Tahoma-Bold", "-gravity", "center", "-fill", "#435184", "-draw", "font-size 15 text 0,0 '" & ch & "'", "-virtual-pixel", "background", "-background", "none", "-rotate", rt, "(", "+clone", "-shade", "135x23", "-blur", "0x2", "-normalize", ")", "-compose", "overlay", "-composite", "(", "+clone", "-background", "#052050", "-shadow", "50x2+1+10", ")", "+swap", "-compose", "src-over", "-background", "white", "-mosaic", "t" & wl & ".png"
if wl = 1 then
im.Convert "t1.png", "output.png"
else
im.Convert "output.png", "t" & wl & ".png", "+append", "output.png"
end if
Next
Set im = Nothing
========================================
実行例
cscript sample209.vbs
出力画像(output.png)
関連項目
ImageMagickで角丸四角で修飾された文字列を描画する
Thursday, February 14, 2008
ImageMagickで、凹んだ影つき円を描画する
凹んだ影つき円を描画するには、以下のバッチファイルを実行します。
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe sf.jpg -matte -channel rgba ( -size 200x200 xc:none -fill white -draw "ellipse 100,100,90,90,0,360" -negate -fx "p!=1?0:#F0F0D0FF" ) ( +clone -background #000000 -shadow 70x8+5+5 ) +swap -mosaic -crop 200x200+0+0 sample307.jpg
元画像(sf.jpg)
出力画像(sample307.jpg)
関連項目
ImageMagickで凹んだ影付き角丸四角を描画する
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe sf.jpg -matte -channel rgba ( -size 200x200 xc:none -fill white -draw "ellipse 100,100,90,90,0,360" -negate -fx "p!=1?0:#F0F0D0FF" ) ( +clone -background #000000 -shadow 70x8+5+5 ) +swap -mosaic -crop 200x200+0+0 sample307.jpg
元画像(sf.jpg)
出力画像(sample307.jpg)
関連項目
ImageMagickで凹んだ影付き角丸四角を描画する
Wednesday, February 13, 2008
ImageMagickで、濃淡模様が渦巻状に吸い込まれるような画像を生成する
濃淡模様が渦巻状に吸い込まれるような画像を生成するには、
以下のバッチファイルを実行します。
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe -size 400x400 plasma:fractal -fx "intensity" -normalize ( -size 1x1 xc:#3070A0FF xc:#403010FF -append ) -fx "v.p{0,p}" -implode 1 -swirl 120 -crop 200x200+100+100 sample307a.png
出力画像(sample307a.png)
関連項目
ImageMagickで、濃淡模様が中央に吸い込まれるような画像を生成する
以下のバッチファイルを実行します。
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe -size 400x400 plasma:fractal -fx "intensity" -normalize ( -size 1x1 xc:#3070A0FF xc:#403010FF -append ) -fx "v.p{0,p}" -implode 1 -swirl 120 -crop 200x200+100+100 sample307a.png
出力画像(sample307a.png)
関連項目
ImageMagickで、濃淡模様が中央に吸い込まれるような画像を生成する
Tuesday, February 12, 2008
ImageMagickで、qualityの設定・取得をする
Monday, February 11, 2008
ImageMagickで、波型の円で端をぼかして切り取る
波型の円で端をぼかして切り取るには、以下のバッチファイルを実行します。
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe -size 300x225 xc:none -virtual-pixel background -background none -matte -channel rgba -fill white -draw "ellipse 130,110,100,100,0,360" -wave 6x20 -blur 0x3 -rotate -30 -gravity center -crop 300x225+0+0 +repage sf2.jpg -compose src_in -composite sample305a.png
rem 重ねあわせ例
%im%\convert.exe sf.jpg sample305a.png -resize 250 -geometry -30-30 -composite +repage sample305b.jpg
元画像(sf2.jpg)
出力画像(sample305a.png):黒色部分は透過します。
重ね合わせ用画像(sf.jpg)
出力画像(sample305b.jpg)
関連項目
ImageMagickで、端が半透明の円形に画像を切り取る
ImageMagickでバンド状の半透明グラデーション円で画像を切り取る
rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.7-Q16
%im%\convert.exe -size 300x225 xc:none -virtual-pixel background -background none -matte -channel rgba -fill white -draw "ellipse 130,110,100,100,0,360" -wave 6x20 -blur 0x3 -rotate -30 -gravity center -crop 300x225+0+0 +repage sf2.jpg -compose src_in -composite sample305a.png
rem 重ねあわせ例
%im%\convert.exe sf.jpg sample305a.png -resize 250 -geometry -30-30 -composite +repage sample305b.jpg
元画像(sf2.jpg)
出力画像(sample305a.png):黒色部分は透過します。
重ね合わせ用画像(sf.jpg)
出力画像(sample305b.jpg)
関連項目
ImageMagickで、端が半透明の円形に画像を切り取る
ImageMagickでバンド状の半透明グラデーション円で画像を切り取る
Subscribe to:
Posts (Atom)