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

トップ > Script-Fuスクリプトの制作 >
もう少し実用的なスクリプトの例

  
 
 
 

MENU

前の記事へ 次の記事へ
このページの目次

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

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

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

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

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

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

  10. (define (myscriptchangealllayerstoimagesize image)
  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 (cadr(gimp-image-get-layers image)))
  23. (set! layer-count (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-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
  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-IMAGE "Image" 0 ; Image ID
  52. )

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

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

手続き 機能
gimp-item-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 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-width image)))
  35. (set! activelayer-height (car (gimp-image-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-add-layer image hilightlayer-id -1)

  48. (gimp-image-set-active-layer image 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 FOREGROUND-FILL)
  60. )
  61. (begin
  62. (gimp-image-set-active-layer image hilightlayer-id)
  63. )
  64. )

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

  69. (gimp-selection-grow image growradius)
  70. (plug-in-gauss 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
  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-IMAGE "Image" 0 ; Image ID
  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 切り取る
plug-in-gauss ぼかす(ガウスぼかし)

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

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

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

  10. (define (myscriptdropshadow image 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 (car (gimp-image-get-active-layer image)))
  24. (set! activelayer-name (car (gimp-layer-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 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-active-layer image shadowlayer-id)

  42. (set! activelayer-id (car (gimp-image-get-active-layer image)))
  43. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  44. (gimp-image-add-layer image copiedlayer-id -1)
  45. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  47. (set! activelayer-id (car (gimp-image-get-active-layer image)))
  48. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  49. (gimp-image-add-layer image copiedlayer-id -1)
  50. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  52. (set! activelayer-id (car (gimp-image-get-active-layer image)))
  53. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  54. (gimp-image-add-layer image copiedlayer-id -1)
  55. (set! copiedlayer-id (gimp-image-merge-down image copiedlayer-id 0))

  57. (set! activelayer-id (car (gimp-image-get-active-layer image)))
  58. (set! copiedlayer-id (car (gimp-layer-copy activelayer-id 1)))
  59. (gimp-image-add-layer image copiedlayer-id -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-layer-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
  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-IMAGE "Image" 0 ; Image ID
  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-layer-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 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-width image)))
  32. (set! activelayer-height (car (gimp-image-height image)))

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

  42. (gimp-image-set-active-layer image strokelayer-id)

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

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

  50. (gimp-edit-stroke 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 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
  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-IMAGE "Image" 0 ; Image ID
  94. SF-BRUSH "Brush" '("2. Hardness 025" 100 5 0) ; 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-edit-stroke 選択範囲の境界線を描画する

指定ディレクトリの全ての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 (cadr (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 (car (gimp-image-get-active-layer image)))

  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-filename 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 (car (gimp-image-get-active-layer image)))

  67. (file-jpeg-save 1 image activelayer-id jpgfilename jpgfilename (/ quality 100) 0 0 0 "" 0 0 0 1)

  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
  84. "mybatchscriptexporttojpg" ; Function Name
  85. "Export to JPEG" ; Menu Label
  86. "Export to JPEG File." ; Description
  87. "My Name" ; Author
  88. "My Name" ; Copyright
  89. "February 16, 2022" ; Date Created
  90. "" ; Image Type That The Script Works On
  91. SF-DIRNAME "Load from" "" ; Path of Directory
  92. SF-ADJUSTMENT "Quality" '(95 0 100 1 10 0 0) ; Shrink Radius
  93. SF-TOGGLE "Run on Windows?" FALSE ; For file-glob Regular Expression
  94. )

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

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

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

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

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

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

21行目の、 

(if (= runonwindows TRUE)

という制御分を、 

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

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

 

TOP

  
  

まとめ

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

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

TOP

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

TOP