e125c30cfd
The libgimp wrapper was just calling the PDB procedure. Get rid of the wrapper and make the PDB proc public. Also reorder the name argument to be in the second place, just like it was for the wrapper.
85 lines
3.6 KiB
Scheme
85 lines
3.6 KiB
Scheme
; Plugin for the GNU Image Manipulation Program
|
|
; Copyright (C) 2006 Martin Nordholts
|
|
;
|
|
; This program is free software: you can redistribute it and/or modify
|
|
; it under the terms of the GNU General Public License as published by
|
|
; the Free Software Foundation; either version 3 of the License, or
|
|
; (at your option) any later version.
|
|
;
|
|
; This program is distributed in the hope that it will be useful,
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
; GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public License
|
|
; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
;
|
|
; Renders Difference Clouds onto a layer, i.e. solid noise merged down with the
|
|
; Difference Mode
|
|
;
|
|
|
|
(define (script-fu-difference-clouds image
|
|
drawables)
|
|
|
|
(let* ((layer (vector-ref drawables 0))
|
|
(draw-offset-x (car (gimp-drawable-get-offsets layer)))
|
|
(draw-offset-y (cadr (gimp-drawable-get-offsets layer)))
|
|
(has-sel (car (gimp-drawable-mask-intersect layer)))
|
|
(sel-offset-x (cadr (gimp-drawable-mask-intersect layer)))
|
|
(sel-offset-y (caddr (gimp-drawable-mask-intersect layer)))
|
|
(width (cadddr (gimp-drawable-mask-intersect layer)))
|
|
(height (caddr (cddr (gimp-drawable-mask-intersect layer))))
|
|
(type (car (gimp-drawable-type-with-alpha layer)))
|
|
(diff-clouds -1)
|
|
(offset-x 0)
|
|
(offset-y 0)
|
|
)
|
|
|
|
(gimp-image-undo-group-start image)
|
|
|
|
; Create the cloud layer
|
|
(set! diff-clouds (car (gimp-layer-new image "Clouds" width height type
|
|
100 LAYER-MODE-DIFFERENCE)))
|
|
|
|
; Add the cloud layer above the current layer
|
|
(gimp-image-insert-layer image diff-clouds 0 -1)
|
|
|
|
; Clear the layer (so there are no noise in it)
|
|
(gimp-drawable-fill diff-clouds FILL-TRANSPARENT)
|
|
|
|
; Selections are relative to the drawable; adjust the final offset
|
|
(set! offset-x (+ draw-offset-x sel-offset-x))
|
|
(set! offset-y (+ draw-offset-y sel-offset-y))
|
|
|
|
; Offset the clouds layer
|
|
(if (gimp-item-id-is-layer layer)
|
|
(gimp-item-transform-translate diff-clouds offset-x offset-y))
|
|
|
|
; Show the solid noise dialog
|
|
(let* ((cloud-width (cadddr (gimp-drawable-mask-intersect diff-clouds)))
|
|
(cloud-height (caddr (cddr (gimp-drawable-mask-intersect diff-clouds)))))
|
|
(gimp-drawable-merge-new-filter diff-clouds "gegl:noise-solid" 0 LAYER-MODE-REPLACE 1.0 "tileable" FALSE "turbulent" FALSE "seed" 0
|
|
"detail" 1 "x-size" 4.0 "y-size" 4.0
|
|
"width" cloud-width "height" cloud-height)
|
|
)
|
|
|
|
; Merge the clouds layer with the layer below
|
|
(gimp-image-merge-down image diff-clouds EXPAND-AS-NECESSARY)
|
|
|
|
(gimp-image-undo-group-end image)
|
|
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register-filter "script-fu-difference-clouds"
|
|
_"_Difference Clouds"
|
|
_"Solid noise applied with Difference layer mode"
|
|
"Martin Nordholts <enselic@hotmail.com>"
|
|
"Martin Nordholts"
|
|
"2006/10/25"
|
|
"RGB* GRAY*"
|
|
SF-ONE-OR-MORE-DRAWABLE)
|
|
|
|
(script-fu-menu-register "script-fu-difference-clouds"
|
|
"<Image>/Filters/Render/Noise")
|