Ex:Img.GetTransparentGifコマンド - ダウンロードマクロ・コマンド (Download Macro Command) - PROSERPINE (プロセルピナ)

				プロセルピナ
Top	Internet Mail	Private Proxy	Capture Device		Download	Config and Words	Online Help	Online Home

[BACK]

☞ Top > FileDownload > Macro > Ex: Command > Img.GetTransparentGif

Ex:Img.GetTransparentGifコマンド

Download Top | Macro Top | Command | ExCommand

書式

Ex:Img.GetTransparentGif: (Parameters)

パラメータ :
src= : string, 元のgif画像ファイル
dest= : string, 出力gifファイル名 (フルパス)
trColor= : string, 透過にする色 (オブジェクトファイルで指定)
trColor.image= : string, 透過色にするpixel位置の参考となるgifファイル
O:rslt= : string, コマンド実行結果

このコマンドは、 src= で指定されているgif画像に対し、 trColor= で指定されている色(画像で使用されている色の１つ)を透過にして、新たなgif画像を作成して保存します。

trColor= の指定方法は「色指定オプション」を参照してください。

trColor.image= による透過色指定

trColor= のかわりに trColor.image= で透過色を指定することもできます。
trColor.image= には透過色のあるgifファイルをフルパスで指定します。 gifファイルの透過色になっているpixel位置と、同じ位置にある src=で指定したファイルのpixelの色を透過色とします。
透過gifを色調補正などで編集すると透過色がキャンセルされてしまったとき、 src= に編集後のファイル、trColor.image= に編集前のファイルを指定して透過色を復活させるなどの用途で使用するオプションです。
(編集前のファイルには透過になっているpixelが複数ありますが、そのうち最初に見つかったpixelの位置を記憶しておき、編集後のファイルからその位置にあるpixelの色を取得し、その色を透過色に設定します)

透過gif作成のサンプル

次の例は、透過gifを作成するマクロ「【Sample】数字gif作成.txt」です。

「Ex:Img.GetObjectコマンド」で色とフォントのオブジェクトファイルを作成し、そのファイルのフルパスを「Ex:Img.Writeコマンド」のパラメータとして指定し、gif画像を作成しています。
作成されたgif画像は、「Ex:Img.GetTransparentGifコマンド」で透過処理されます。

UTF-8
// 日本語
// 
// 透過gif作成のサンプル
//  1～20までの数字がitalic(斜体)で入ったgifを作成します。
//  文字は中央に描画するように指定していますが、斜体なので右に寄った
//  感じになります。

:Test {
 
 // 背景色のオブジェクトファイル作成
 str["背景色"]=Dir.Work;  str["背景色"]+="\\背景色＃E7D8D6.bin";
 Ex:Img.GetObject: type="Color" a=255 r=0xE7 g=0xD8 b=0xD6 dest=str["背景色"];
 
 // 文字色のオブジェクトファイル作成
 str["文字色"]=Dir.Work;  str["文字色"]+="\\文字色＃000000.bin";
 Ex:Img.GetObject: type="Color" a=255 r=0x00 g=0x00 b=0x00 dest=str["文字色"];
 
 // 書体のオブジェクトファイル作成
 str["フォント"]=Dir.Work;  str["フォント"]+="\\フォント.bin";
 Ex:Img.GetObject: type="Font" size="20" bold=true italic=true dest=str["フォント"];
 
 intl["num"]=1;
 while (intl["num"] <= 20) {
   strl["f"]=Dir.Desktop;
   strl["f"]+="\\GifSample\\_number_";
   strl["f"]+=intl["num"].ToString("00");
   strl["f"]+=".gif";
   
   // 透過でないgifを作成
   Ex:Img.Write: src.width=35 src.height=35 src.BackColor=str["背景色"] w=intl["num"].ToString w.Font=str["フォント"] w.Color=str["文字色"] dest=strl["f"] O:rslt=str["処理結果"] w.xPos=-1 center w.yPos=-1 vcenter;
   put: value="[" intl["num"] "] Gif作成: " str["処理結果"];
   
   // 透過gifを作成
   str[0]="\\_number";  strl["tr"]=strl["f"].Replace("\\number");
   Ex:Img.GetTransparentGif: src=strl["f"] dest=strl["tr"] trColor=str["背景色"] O:rslt=str["処理結果"];
   put: value="[" intl["num"] "] 透過処理: " str["処理結果"];
   
   culc: intl["num"]++;
   }
 
 end:
 }

デスクトップ上の GifSampleフォルダに、1～20までの数字がitalic(斜体)で入った非透過なgifと、それらを透過にしたgifを作成します。
描画される文字は、 Ex:Img.Writeコマンドの w.xPos=-1 center w.yPos=-1 vcenter の指定により画像の中央に描画するように指定していますが、斜体なので少し右に寄った感じになります。

非透過gif (_number_10.gif)

透過gif (number_10.gif)

画像編集で解除された透過gifを透過に戻すサンプル

次の例はデスクトップの "元の透過画像.gif" にフィルタ(カラーマトリックスフィルタ) をかけて青くしたファイル "ワークファイル.bmp" を作成したあと、それを元のgifファイルと同じ場所を透過にしたgifファイル "編集後の透過画像.gif" を作成する例です。
元ファイル "元の透過画像.gif" で透過色だった部分が "ワークファイル.bmp" では黒になっていますが、これを Ex:Img.GetTransparentGifコマンドで透過に戻しています。

:Main{
 str["src"]="C:\\Documents and Settings\\Windows7\\デスクトップ\\元の透過画像.gif"
 
 str["filters"]="C:\\Documents and Settings\\Windows7\\デスクトップ\\cMat_grayscale.colorMatrix.txt"
 str["filters"]+=";;C:\\Documents and Settings\\Windows7\\デスクトップ\\cMat_tintBlue.colorMatrix.txt"
 
 str["g2b"]=Dir.DeskTop "\\ワークファイル.bmp"
 Ex:Img.savePartial: src=str["src"] dest=str["g2b"] colorMatrix=str["filters"]
 
 str[101]=Dir.DeskTop "\\編集後の透過画像.gif"
 Ex:Img.GetTransparentGif: src=str["g2b"] dest=str[101] trColor.image=str["src"] O:rslt=strl[10]
 put: "Ex:Img.GetTransparentGif: " strl[10]
 
 end:
 }

元の透過画像.gif

ワークファイル.bmp (透過が解除された状態)

編集後の透過画像.gif

この例では、元のgif画像に２つのフィルタを適用して (Ex:Img.savePartialコマンド)、 bmp画像を作成しています。
１つは画像をグレースケールにするフィルタ(cMat_grayscale.colorMatrix.txt)、もう１つは色調を青くするフィルタ(cMat_tintBlue.colorMatrix.txt)です。

フィルタはColor Matrixの数値(ただし整数値-100～100の範囲)を書いたテキストファイルです。
上記で使ったフィルタを次に示します。

UTF-8
30,30,30,0
59,59,59,0
11,11,11,0
0,0,0,100
0,0,0,0

グレースケールにするフィルタ (cMat_grayscale.colorMatrix.txt)

UTF-8
80,0,18,0
0,100,47,0
0,0,100,0
0,0,0,100
0,0,12,0

色調を青くするフィルタ (cMat_tintBlue.colorMatrix.txt)

フィルタ(カラーマトリックスフィルタ)の作成はテキストエディタでマトリックス値を書いたファイルを直接作成するか、 ColorMatrixツールを使用します。

ColorMatrixツール

[BACK]

プロセルピナ