トップ
 
トップ
 
トップ
 
トップ
 

トップ > Script-Fuスクリプトの制作 >
もう少し実用的なスクリプトの例(バージョン 3)

  
 
 
 

MENU

前の記事へ 次の記事へ
  
この記事はGIMP 3.0系のScript-Fu バージョン 3向けの記事です。 GIMP 2.10系を利用している方は、Script-Fu バージョン 2 / 3 共通の記事まで読み飛ばしてください。 または、SCript-Fu バージョン 2向けの記事まで戻ってください。
このページの目次

もう少し本格的で実用的なスクリプトの例

この章では、プログラミング言語SchemeおよびScript-Fuプログラミングの基礎について学んできました。 また、前の記事では『もしかしたら役に立つかも』と思える程度の機能を持つスクリプトを制作しました。

この記事では、もう少し本格的で実用的なスクリプトを紹介します。 ここで紹介するスクリプトを参考にすることで、みなさんのGIMP生活がほんの少しでも楽になることを祈っています。

全レイヤを対象にレイヤの大きさを画像の大きさに合わせる

全レイヤを対象に、レイヤの大きさを画像の大きさに合わせます。 ただし、文字レイヤは処理の対象外になります。

  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "myscriptchangealllayerstoimagesize.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 全レイヤを対象にレイヤの大きさを画像の大きさに合わせる。
  4. ;
  5. ; [補足]
  6. ; 文字レイヤは処理の対象外となる。
  7. ;
  8. ; ==============================================================================

  10. (define (myscriptchangealllayerstoimagesize image layers)
  11. (let
  12. (
  13. (layer-array 0)
  14. (layer-count 0)
  15. (layer-index 0)
  16. (layer-id 0)
  17. )

  19. (gimp-context-push)
  20. (gimp-image-undo-group-start image)

  22. (set! layer-array (car (gimp-image-get-layers image)))
  23. (set! layer-count (vector-length (car (gimp-image-get-layers image))))

  25. (while (< layer-index layer-count)
  26. (set! layer-id (vector-ref layer-array layer-index))

  28. (if (= (car (gimp-item-id-is-text-layer layer-id)) FALSE)
  29. (begin
  30. (gimp-layer-resize-to-image-size layer-id)
  31. )
  32. )

  34. (set! layer-index (+ layer-index 1))
  35. )

  37. (gimp-image-undo-group-end image)
  38. (gimp-context-pop)
  39. (gimp-displays-flush)
  40. )
  41. )

  43. (script-fu-register-filter
  44. "myscriptchangealllayerstoimagesize" ; Function Name
  45. "Change All Layers to Image Size" ; Menu Label
  46. "Change All Layers To Image Size." ; Description
  47. "My Name" ; Author
  48. "My Name" ; Copyright
  49. "Sep 25, 2022" ; Date Created
  50. "RGB* GRAY*" ; Image Type That The Script Works On
  51. SF-ONE-DRAWABLE ; Layer Select Type That The Script Works On
  52. )

  54. (script-fu-menu-register
  55. "myscriptchangealllayerstoimagesize" ; Function Name
  56. "<Image>/Filters/My Scripts" ; Menu Location
  57. )
 

新たに登場した手続きの機能は以下の通りです。

手続き 機能
gimp-item-id-is-text-layer 指定されたレイヤが文字レイヤかどうかを返す
※文字レイヤならTRUEを返す
gimp-layer-resize-to-image-size 指定されたレイヤの大きさを画像の大きさ(キャンバスサイズ)に合わせる

選択範囲の形状でハイライトを作成する

範囲選択されていない部分を暗くすることで、選択範囲の内側を目立たせます。 Dark Theme?チェックボックスがチェックされている場合は、周りを暗くせずに逆に明るくします。

  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "myscripthilight.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 選択範囲の形状でハイライトを作成する。
  4. ;
  5. ; [補足]
  6. ; 範囲選択されていない場合はエラーとなる。
  7. ;
  8. ; ==============================================================================

  10. (define (myscripthilight image layers growradius darktheme)
  11. (let
  12. (
  13. (activelayer-width 0)
  14. (activelayer-height 0)
  15. (hilightlayer-id 0)
  16. )

  18. (gimp-context-push)
  19. (gimp-image-undo-group-start image)

  21. (if (= (car (gimp-selection-is-empty image)) FALSE)
  22. (begin
  23. (if (= darktheme TRUE)
  24. (begin
  25. (set! hilightlayer-id (car (gimp-image-get-layer-by-name image "明")))
  26. )
  27. (begin
  28. (set! hilightlayer-id (car (gimp-image-get-layer-by-name image "暗")))
  29. )
  30. )

  32. (if (= hilightlayer-id -1)
  33. (begin
  34. (set! activelayer-width (car (gimp-image-get-width image)))
  35. (set! activelayer-height (car (gimp-image-get-height image)))

  37. (if (= darktheme TRUE)
  38. (begin
  39. (set! hilightlayer-id (car (gimp-layer-new image "明" activelayer-width activelayer-height 1 25 0)))
  40. )
  41. (begin
  42. (set! hilightlayer-id (car (gimp-layer-new image "暗" activelayer-width activelayer-height 1 50 0)))
  43. )
  44. )

  46. (gimp-image-insert-layer image hilightlayer-id 0 -1)

  48. (gimp-image-set-selected-layers image (vector hilightlayer-id))

  50. (if (= darktheme TRUE)
  51. (begin
  52. (gimp-context-set-foreground '(255 255 255))
  53. )
  54. (begin
  55. (gimp-context-set-foreground '(0 0 0))
  56. )
  57. )

  59. (gimp-drawable-fill hilightlayer-id FILL-FOREGROUND)
  60. )
  61. (begin
  62. (gimp-image-set-selected-layers image (vector hilightlayer-id))
  63. )
  64. )

  66. (gimp-selection-grow image growradius)
  67. (gimp-edit-cut (vector hilightlayer-id))

  69. (gimp-selection-grow image growradius)
  70. (script-fu-tile-blur 1 image hilightlayer-id (* growradius 2.5) (* growradius 2.5) 1)

  72. (gimp-selection-none image)
  73. )
  74. (begin
  75. (gimp-message "範囲選択されていません。")
  76. )
  77. )

  79. (gimp-image-undo-group-end image)
  80. (gimp-context-pop)
  81. (gimp-displays-flush)
  82. )
  83. )

  85. (script-fu-register-filter
  86. "myscripthilight" ; Function Name
  87. "Hi-Light" ; Menu Label
  88. "Hi-Light Selection." ; Description
  89. "My Name" ; Author
  90. "My Name" ; Copyright
  91. "April 7, 2016" ; Date Created
  92. "RGB* GRAY*" ; Image Type That The Script Works On
  93. SF-ONE-DRAWABLE ; Layer Select Type That The Script Works On
  94. SF-ADJUSTMENT "Grow Radius" '(4 4 128 1 1 0 0) ; Grow Radius
  95. SF-TOGGLE "Dark Theme?" FALSE ; Dark Theme
  96. )

  98. (script-fu-menu-register
  99. "myscripthilight" ; Function Name
  100. "<Image>/Filters/My Scripts" ; Menu Location
  101. )
 

新たに登場した手続きの機能は以下の通りです。

手続き 機能
gimp-selection-grow 選択範囲を広げる
gimp-drawable-fill 塗りつぶす
※手続き gimp-drawable-edit-fill とは異なり選択範囲は考慮しない
gimp-edit-cut 切り取る
script-fu-tile-blur ぼかす(ガウスぼかし)

選択中のレイヤの影を新たな下位レイヤを作成して落とす

ドロップシャドウと同じ効果です。

  
ドロップシャドウとは、プルダウンメニューの "フィルター(R) -> 照明と投影(L) -> ドロップシャドウ(D)..." で実行される機能のことです。
  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "myscriptdropshadow.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 選択中のレイヤの影を新たな下位レイヤを作成して落とす。
  4. ;
  5. ; [補足]
  6. ; 作成される影用レイヤの名称は、選択中のレイヤの名称 + "影" となる。
  7. ;
  8. ; ==============================================================================

  10. (define (myscriptdropshadow image layers shadowradius shadowcolor)
  11. (let
  12. (
  13. (activelayer-name 0)
  14. (shadowlayer-name 0)
  15. (activelayer-id 0)
  16. (shadowlayer-id 0)
  17. (copiedlayer-id 0)
  18. )

  20. (gimp-context-push)
  21. (gimp-image-undo-group-start image)

  23. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  24. (set! activelayer-name (car (gimp-item-get-name activelayer-id)))
  25. (set! shadowlayer-name (string-append activelayer-name "影"))

  27. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image shadowlayer-name)))

  29. (if (= shadowlayer-id -1)
  30. (begin
  31. ; null
  32. )
  33. (begin
  34. (gimp-image-remove-layer image shadowlayer-id)
  35. )
  36. )

  38. (script-fu-drop-shadow image (vector activelayer-id) 0 0 shadowradius shadowcolor 60 FALSE)
  39. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image "Drop Shadow")))
  40. (gimp-image-set-selected-layers image (vector shadowlayer-id))

  42. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  43. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  44. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  45. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  47. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  48. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  49. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  50. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  52. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  53. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  54. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  55. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  57. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  58. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  59. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  60. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  62. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image "Drop Shadow")))
  63. (gimp-item-set-name shadowlayer-id (string-append activelayer-name "影"))

  65. (gimp-layer-resize-to-image-size shadowlayer-id)

  67. (gimp-image-undo-group-end image)
  68. (gimp-context-pop)
  69. (gimp-displays-flush)
  70. )
  71. )

  73. (script-fu-register-filter
  74. "myscriptdropshadow" ; Function Name
  75. "Drop Shadow" ; Menu Label
  76. "Drop Shadow." ; Description
  77. "My Name" ; Author
  78. "My Name" ; Copyright
  79. "April 7, 2016" ; Date Created
  80. "RGB* GRAY*" ; Image Type That The Script Works On
  81. SF-ONE-DRAWABLE ; Layer Select Type That The Script Works On
  82. SF-ADJUSTMENT "Shadow Radius" '(4 4 128 1 1 0 0) ; Shadow Radius
  83. SF-COLOR "Shadow Color" '(255 255 255) ; Shadow Color
  84. )

  86. (script-fu-menu-register
  87. "myscriptdropshadow" ; Function Name
  88. "<Image>/Filters/My Scripts" ; Menu Location
  89. )
 

新たに登場した手続きの機能は以下の通りです。

手続き 機能
script-fu-drop-shadow 影を落とす(ドロップシャドウ)
gimp-layer-copy レイヤを複製する
gimp-image-merge-down 下位レイヤと統合する
gimp-item-set-name レイヤの名称を設定する
gimp-image-remove-layer 指定されたレイヤを削除する

選択範囲の形状で線を引く

ストローク描画と同じ効果です。

  
ストローク描画とは、プルダウンメニューの "編集(E) -> 選択範囲の境界線を描画(S)..." で実行される機能のことです。
  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "myscriptstroke.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 選択範囲の形状で線を引く。
  4. ;
  5. ; [補足]
  6. ; 範囲選択されていない場合はエラーとなる。
  7. ;
  8. ; [注意]
  9. ; 別途、関数 myscriptdropshadow が必要となる。
  10. ;
  11. ; ==============================================================================

  13. (define (myscriptstroke image layers brush brushsize brushcolor dropshadow)
  14. (let
  15. (
  16. (activelayer-width 0)
  17. (activelayer-height 0)
  18. (strokelayer-id 0)
  19. (shadowlayer-id 0)
  20. )

  22. (gimp-context-push)
  23. (gimp-image-undo-group-start image)

  25. (if (= (car (gimp-selection-is-empty image)) FALSE)
  26. (begin
  27. (set! strokelayer-id (car (gimp-image-get-layer-by-name image "線")))

  29. (if (= strokelayer-id -1)
  30. (begin
  31. (set! activelayer-width (car (gimp-image-get-width image)))
  32. (set! activelayer-height (car (gimp-image-get-height image)))

  34. (set! strokelayer-id (car (gimp-layer-new image "線" activelayer-width activelayer-height 1 100 0)))
  35. (gimp-image-insert-layer image strokelayer-id 0 -1)
  36. )
  37. (begin
  38. ; null
  39. )
  40. )

  42. (gimp-image-set-selected-layers image (vector strokelayer-id))

  44. (gimp-selection-grow image (* brushsize))

  46. (gimp-context-set-brush brush)
  47. (gimp-context-set-brush-size brushsize)
  48. (gimp-context-set-foreground brushcolor)

  50. (gimp-drawable-edit-stroke-selection strokelayer-id)

  52. (gimp-selection-none image)

  54. (if (= dropshadow TRUE)
  55. (begin
  56. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image "線影")))

  58. (if (= shadowlayer-id -1)
  59. (begin
  60. ; null
  61. )
  62. (begin
  63. (gimp-image-remove-layer image shadowlayer-id)
  64. )
  65. )

  67. (myscriptdropshadow image layers brushsize '(255 255 255))
  68. )
  69. (begin
  70. ; null
  71. )
  72. )
  73. )
  74. (begin
  75. (gimp-message "範囲選択されていません。")
  76. )
  77. )

  79. (gimp-image-undo-group-end image)
  80. (gimp-context-pop)
  81. (gimp-displays-flush)
  82. )
  83. )

  85. (script-fu-register-filter
  86. "myscriptstroke" ; Function Name
  87. "Stroke" ; Menu Label
  88. "Stroke Selection." ; Description
  89. "My Name" ; Author
  90. "My Name" ; Copyright
  91. "April 7, 2016" ; Date Created
  92. "RGB* GRAY*" ; Image Type That The Script Works On
  93. SF-ONE-DRAWABLE ; Layer Select Type That The Script Works On
  94. SF-BRUSH "Brush" "2. Hardness 025" ; Brush
  95. SF-ADJUSTMENT "Brush Size" '(4 4 128 1 1 0 0) ; Brush Size
  96. SF-COLOR "Brush Color" '(255 0 0) ; Brush Color
  97. SF-TOGGLE "Drop Shadow?" TRUE ; Drop Shadow
  98. )

  100. (script-fu-menu-register
  101. "myscriptstroke" ; Function Name
  102. "<Image>/Filters/My Scripts" ; Menu Location
  103. )
 
  
このスクリプトを実行するには前出のスクリプト "myscriptdropshadow.scm" も必要です。

新たに登場した手続きの機能は以下の通りです。

手続き 機能
gimp-context-set-brush ブラシを設定する
gimp-context-set-brush-size ブラシのサイズを設定する
gimp-drawable-edit-stroke-selection 選択範囲の境界線を描画する

指定ディレクトリの全てのXCFファイルをJPEGファイルにエクスポートする

指定されたディレクトリに置かれている全てのXCFファイルを対象に、全レイヤを結合した画像をJPEGファイルにエクスポートします。

  
"ディレクトリ" とは "フォルダ" のことです。 "ディレクトリ" は "フォルダ" とも呼ばれます。
  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "mybatchscriptexporttojpg.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 指定されたディレクトリに置かれている全てのXCFファイルを対象に、
  4. ; 全レイヤを結合した画像をJPEGファイルにエクスポートする。
  5. ;
  6. ; [補足]
  7. ; XCFファイルは変更されない。
  8. ;
  9. ; ==============================================================================

  11. (define (mybatchscriptexporttojpg directory quality runonwindows)
  12. (let
  13. (
  14. (filepattern "")
  15. (image 0)
  16. (drawable 0)
  17. (matchedfilelist "")
  18. (matchedxcffile "")
  19. )

  21. (if (= runonwindows TRUE)
  22. (begin
  23. (set! filepattern (string-append directory "\\*.xcf"))
  24. )
  25. (begin
  26. (if (not (string=? (substring directory (- (string-length directory) 1) (- (string-length directory) 0)) "/"))
  27. (begin
  28. (set! directory (string-append directory "/"))
  29. )
  30. )

  32. (set! filepattern (string-append directory "*.xcf"))
  33. )
  34. )

  36. (set! matchedfilelist (car (file-glob filepattern 1)))

  38. (while (not (null? matchedfilelist))
  39. (set! matchedxcffile (car matchedfilelist))

  41. (set! image (car (gimp-file-load RUN-NONINTERACTIVE matchedxcffile matchedxcffile)))

  43. (set! drawable (vector-ref (car (gimp-image-get-selected-layers image)) 0))

  45. (let
  46. (
  47. (activelayer-id 0)
  48. (xcffilename "")
  49. (xcffilename-length 0)
  50. (jpgfilename "")
  51. )

  53. (gimp-context-push)
  54. (gimp-image-undo-group-start image)

  56. (set! xcffilename(car (gimp-image-get-file image)))

  58. (set! xcffilename-length (string-length xcffilename))

  60. (set! jpgfilename (substring xcffilename 0 (- xcffilename-length 4)))
  61. (set! jpgfilename (string-append jpgfilename ".jpg"))

  63. (gimp-image-merge-visible-layers image 1)

  65. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))

  67. (file-jpeg-export 1 image jpgfilename "" 0.9 0 TRUE TRUE FALSE "sub-sampling-1x1" TRUE 0 "fixed" TRUE FALSE FALSE FALSE TRUE FALSE)

  69. (gimp-image-clean-all image)

  71. (gimp-image-undo-group-end image)
  72. (gimp-context-pop)
  73. (gimp-displays-flush)
  74. )

  76. (gimp-image-delete image)

  78. (set! matchedfilelist (cdr matchedfilelist))
  79. )
  80. )
  81. )

  83. (script-fu-register-procedure
  84. "mybatchscriptexporttojpg" ; Function Name
  85. "Export to JPEG" ; Menu Label
  86. "Export to JPEG File." ; Description
  87. "My Name" ; Author
  88. "February 16, 2022" ; Date Created
  89. SF-DIRNAME "Load from" "" ; Path of Directory
  90. SF-ADJUSTMENT "Quality" '(95 0 100 1 10 0 0) ; Shrink Radius
  91. SF-TOGGLE "Run on Windows?" FALSE ; For file-glob Regular Expression
  92. )

  94. (script-fu-menu-register
  95. "mybatchscriptexporttojpg" ; Function Name
  96. "<Image>/Filters/My Batch Scripts" ; Menu Location
  97. )
 

新たに登場した手続きの機能は以下の通りです。

手続き 機能
gimp-file-load ファイルから画像を読み込む
gimp-image-get-file 開いている画像のファイル名を返す
gimp-image-merge-visible-layers 可視レイヤを統合する
file-jpeg-export JPEG形式でファイルへ出力(エクスポート)する
gimp-image-clean-all 画像の変更済み未保存フラグをクリアする
gimp-image-delete 画像を削除する

Windows上で実行されているかどうかの判断について

このスクリプトでは、Windows上で実行されているかどうかは利用者がチェックボックスで入力します。

それでは不便なので自動的に判別できないか、と考えて思いついたのがファイル /etc/hosts の有無を調べるという方法です。

21行目の、 

(if (= runonwindows TRUE)

という制御分を、 

(if (= (length (car (file-glob "/etc/hosts" 1))) 0)

に変更することで自動判別できそうです。

  
手続き length でリストの情報件数を取得することができます。
 

TOP

複数レイヤ選択に対応したスクリプトを作成してみる

Script-Fu バージョン 2 と 3 では大きな違いがあるため、この章ではScript-Fu バージョン 2 と 3 で記事を分けて解説してきました。

ただし、解説した Script-Fu バージョン 3向けの記事には実は問題もありました。 GIMP 3.0系の目玉機能である『複数レイヤ選択』に対応したスクリプトをいまだに紹介できていないことです。

そこでここでは、上で紹介したドロップシャドウのスクリプトを改善し、複数のレイヤが選択されていても動作するように修正したものを紹介します。

  
以下のスクリプトを保存する際のファイル名は何でも構いませんが、他と重複しないファイル名にしてください。 考えるのが面倒なら "myscriptdropshadowformultiplelayers.scm" として保存してください。
  1. ; ==============================================================================
  2. ; [機能]
  3. ; 選択中のレイヤの影を新たな下位レイヤを作成して落とす。
  4. ;
  5. ; [補足]
  6. ; 作成される影用レイヤの名称は、選択中のレイヤの名称 + "影" となる。
  7. ; 複数レイヤが選択されていても動作する。
  8. ;
  9. ; ==============================================================================

  11. (define (myscriptdropshadowformultiplelayers image layers shadowradius shadowcolor)
  12. (let
  13. (
  14. (activelayer-count 0)
  15. (activelayer-index 0)
  16. (activelayer-name 0)
  17. (shadowlayer-name 0)
  18. (activelayer-id 0)
  19. (shadowlayer-id 0)
  20. (copiedlayer-id 0)
  21. )

  23. (gimp-context-push)
  24. (gimp-image-undo-group-start image)

  26. (set! activelayer-count (vector-length layers))

  28. (while (< activelayer-index activelayer-count)
  29. (set! activelayer-id (vector-ref layers activelayer-index))
  30. (set! activelayer-name (car (gimp-item-get-name activelayer-id)))
  31. (set! shadowlayer-name (string-append activelayer-name "影"))

  33. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image shadowlayer-name)))

  35. (if (= shadowlayer-id -1)
  36. (begin
  37. ; null
  38. )
  39. (begin
  40. (gimp-image-remove-layer image shadowlayer-id)
  41. )
  42. )

  44. (script-fu-drop-shadow image (vector activelayer-id) 0 0 shadowradius shadowcolor 60 FALSE)
  45. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image "Drop Shadow")))
  46. (gimp-image-set-selected-layers image (vector shadowlayer-id))

  48. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  49. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  50. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  51. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  53. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  54. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  55. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  56. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  58. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  59. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  60. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  61. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  63. (set! activelayer-id (vector-ref (car (gimp-image-get-selected-layers image)) 0))
  64. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  65. (gimp-image-insert-layer image copiedlayer-id 0 -1)
  66. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  68. (set! shadowlayer-id (car (gimp-image-get-layer-by-name image "Drop Shadow")))
  69. (gimp-item-set-name shadowlayer-id (string-append activelayer-name "影"))

  71. (gimp-layer-resize-to-image-size shadowlayer-id)

  73. (set! activelayer-index (+ activelayer-index 1))
  74. )

  76. (gimp-image-undo-group-end image)
  77. (gimp-context-pop)
  78. (gimp-displays-flush)
  79. )
  80. )

  82. (script-fu-register-filter
  83. "myscriptdropshadowformultiplelayers" ; Function Name
  84. "Drop Shadow" ; Menu Label
  85. "Drop Shadow." ; Description
  86. "My Name" ; Author
  87. "My Name" ; Copyright
  88. "April 7, 2016" ; Date Created
  89. "RGB* GRAY*" ; Image Type That The Script Works On
  90. SF-ONE-OR-MORE-DRAWABLE ; Layer Select Type That The Script Works On
  91. SF-ADJUSTMENT "Shadow Radius" '(4 4 128 1 1 0 0) ; Shadow Radius
  92. SF-COLOR "Shadow Color" '(255 255 255) ; Shadow Color
  93. )

  95. (script-fu-menu-register
  96. "myscriptdropshadowformultiplelayers" ; Function Name
  97. "<Image>/Filters/My Scripts" ; Menu Location
  98. )
 

変更点はそれほどはありません。 まず、90行目の、 

SF-ONE-OR-MORE-DRAWABLE                                          ; Layer Select Type That The Script Works On

によって、複数レイヤが選択されている場合でもプルダウンメニューから実行できるようになります。

次に、29行目で手続き gimp-image-get-selected-layersによるレイヤ番号の取得をやめ、引数 layers を参照するように変更しています。 引数 layers には選択中のレイヤ番号(ベクタ)が渡ってくるため、それを参照する方が簡単であるためです。

さらに、28行目から74行目の手続き whileによって処理を繰り返すように変更しています。 これはもちろん、選択されているレイヤの数だけ処理が必要になるためです。

 

TOP

  

非破壊編集フィルターのスクリプトを作成するには

GIMP 3.0系のもう1つの大きな目玉が『非破壊編集フィルター』が導入されたことです。 非破壊編集フィルターのスクリプトの作成方法もここで紹介したかったのですが、残念ながらまだ詳細を調査中で解説することはできませんでした。

ひょっとしたら以下が参考になるかもしれません。

  1. gegl.scm
 

TOP

  

まとめ

まだまだ紹介できていないGIMPの手続きはたくさんあります。 この記事だけでも、以下の新たな手続きが登場しました。

手続き 機能
gimp-item-id-is-text-layer 指定されたレイヤが文字レイヤかどうかを返す
※文字レイヤならTRUEを返す
gimp-layer-resize-to-image-size 指定されたレイヤの大きさを画像の大きさ(キャンバスサイズ)に合わせる
gimp-selection-grow 選択範囲を広げる
gimp-drawable-fill 塗りつぶす
※手続き gimp-drawable-edit-fill とは異なり選択範囲は考慮しない
gimp-edit-cut 切り取る
script-fu-tile-blur ぼかす(ガウスぼかし)
script-fu-drop-shadow 影を落とす(ドロップシャドウ)
gimp-layer-copy レイヤを複製する
gimp-image-merge-down 下位レイヤと統合する
gimp-item-set-name レイヤの名称を設定する
gimp-image-remove-layer 指定されたレイヤを削除する
gimp-context-set-brush ブラシを設定する
gimp-context-set-brush-size ブラシのサイズを設定する
gimp-drawable-edit-stroke-selection 選択範囲の境界線を描画する
gimp-file-load ファイルから画像を読み込む
gimp-image-get-file 開いている画像のファイル名を返す
gimp-image-merge-visible-layers 可視レイヤを統合する
file-jpeg-export JPEG形式でファイルへ出力(エクスポート)する
gimp-image-clean-all 画像の変更済み未保存フラグをクリアする
gimp-image-delete 画像を削除する
  
前の記事へ 次の記事へ
 

TOP

メニュー
入門
 
もっと詳しく
 
特集・その他
 

TOP