0c5a716fe8
Mostly one word substitutions. A few function definitions were moved to the scope of a single script that used them. Those functions won't be available to third party scripts except now by cut and paste. For major release 3.0.
80 lines
3.1 KiB
Scheme
80 lines
3.1 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 width height type
|
|
"Clouds" 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
|
|
(plug-in-solid-noise SF-RUN-MODE image diff-clouds 0 0 0 1 4.0 4.0)
|
|
|
|
; 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")
|