TclMagick改造
をテンプレートにして作成
[
Front page
] [
Page list
|
Search
|
Recent changes
|
RSS of recent changes
]
Start:
TclMagickはGraphicsMagick(以下GM)寄りで、ImageMagick(以...
サポートしているというのは嘘ではないのだが、GMのバージョ...
遅れているせいなのか(遅れてるのかどうか知らないが)何な...
とにかくいつまでたってもGMがIMのwand APIの重要なAPIを
取り込んでくれないので、仕方が無いので自分でパッチを書い...
IMにあってGMには無い機能は、他にもたくさんあると思うのだ...
その辺をどうするのかポリシーがよくわからないし、作者の方...
めんどくさいし、結局GMに存在しないwand APIはIM互換の自作A...
GMでもIMどちらでも、IMのAPIのTclラッパーを使えるようにし...
IM用とGM用でバイナリが異なるので注意。
なお全ての対応していないAPIを取り込んだわけではなくて、自...
ものだけを2,3個取り込んだ。~
あとフォント名の取得が文字化けしていたので直した。~
***Download [#we11fd18]
-patch~
http://reddog.s35.xrea.com/software/TclMagick045mod.patch
-win32 binary for ImageMagick6.29-Q8~
http://reddog.s35.xrea.com/software/TclMagick-0.44m-IM6.2...
-win32 binary for GraphicsMagick1.1.7-Q8~
http://reddog.s35.xrea.com/software/TclMagick-0.44m-GM1.1...
***new wand API [#d3548c6e]
-compressionquality, GetCompressionQuality, SetCompressio...
JPEGの圧縮率の変更。
-format, GetFormat, SetFormat~
GetFormatは前からあったのだが、フォーマットの変更をする
SetFormatが無かったので追加した。
***Examples [#w76be205]
-画像ファイルを開いてGIFのサムネイルをデータベースに格納~
#======================================================
# Open a file and Create GIF thumbnail on memory
#======================================================
package require TclMagick
set THUMBSIZE 100
set w [magick create wand]
$w read c:/temp/テスト.bmp
set width [$w width]
set height [$w height]
if {$width > $height} {
$w scale $THUMBSIZE [expr {int(1.0 * $THUMBSIZE / $w...
} else {
$w scale [expr {int(1.0 * $THUMBSIZE / $height * $wi...
}
$w format GIF
set thumbbin [$w writeblob]
magick delete $w
#======================================================
# Store the raw data to DB
#======================================================
package require sqlite3
sqlite db :memory:
db eval {create table t (id integer primary key, data bl...
db eval {insert into t values(NULL, :thumbbin);}
#======================================================
# Load the image and show it
#======================================================
pacakge require Tk
set imgdata [lindex [db eval {select data from t where i...
image create photo img -data $imgdata
pack [label .l -image img]
***コメントをどーぞ [#z5e54964]
#comment
----
[CategoryTclTk] [TclMagickの使い方]
End:
TclMagickはGraphicsMagick(以下GM)寄りで、ImageMagick(以...
サポートしているというのは嘘ではないのだが、GMのバージョ...
遅れているせいなのか(遅れてるのかどうか知らないが)何な...
とにかくいつまでたってもGMがIMのwand APIの重要なAPIを
取り込んでくれないので、仕方が無いので自分でパッチを書い...
IMにあってGMには無い機能は、他にもたくさんあると思うのだ...
その辺をどうするのかポリシーがよくわからないし、作者の方...
めんどくさいし、結局GMに存在しないwand APIはIM互換の自作A...
GMでもIMどちらでも、IMのAPIのTclラッパーを使えるようにし...
IM用とGM用でバイナリが異なるので注意。
なお全ての対応していないAPIを取り込んだわけではなくて、自...
ものだけを2,3個取り込んだ。~
あとフォント名の取得が文字化けしていたので直した。~
***Download [#we11fd18]
-patch~
http://reddog.s35.xrea.com/software/TclMagick045mod.patch
-win32 binary for ImageMagick6.29-Q8~
http://reddog.s35.xrea.com/software/TclMagick-0.44m-IM6.2...
-win32 binary for GraphicsMagick1.1.7-Q8~
http://reddog.s35.xrea.com/software/TclMagick-0.44m-GM1.1...
***new wand API [#d3548c6e]
-compressionquality, GetCompressionQuality, SetCompressio...
JPEGの圧縮率の変更。
-format, GetFormat, SetFormat~
GetFormatは前からあったのだが、フォーマットの変更をする
SetFormatが無かったので追加した。
***Examples [#w76be205]
-画像ファイルを開いてGIFのサムネイルをデータベースに格納~
#======================================================
# Open a file and Create GIF thumbnail on memory
#======================================================
package require TclMagick
set THUMBSIZE 100
set w [magick create wand]
$w read c:/temp/テスト.bmp
set width [$w width]
set height [$w height]
if {$width > $height} {
$w scale $THUMBSIZE [expr {int(1.0 * $THUMBSIZE / $w...
} else {
$w scale [expr {int(1.0 * $THUMBSIZE / $height * $wi...
}
$w format GIF
set thumbbin [$w writeblob]
magick delete $w
#======================================================
# Store the raw data to DB
#======================================================
package require sqlite3
sqlite db :memory:
db eval {create table t (id integer primary key, data bl...
db eval {insert into t values(NULL, :thumbbin);}
#======================================================
# Load the image and show it
#======================================================
pacakge require Tk
set imgdata [lindex [db eval {select data from t where i...
image create photo img -data $imgdata
pack [label .l -image img]
***コメントをどーぞ [#z5e54964]
#comment
----
[CategoryTclTk] [TclMagickの使い方]
Page:
HTML convert time: 0.002 sec.