fb84b9eba7
Since we renamed a bunch of functions for consistency (the like of gimp_image_width() to gimp_image_get_width() and others), most Scheme scripts ended up broken. This is a simple bash fix with `sed` to at least take care of these simple renaming cases. Many scripts are still broken for other reasons after our API evolution (to be continued).
109 lines
3.6 KiB
Scheme
109 lines
3.6 KiB
Scheme
;
|
|
; old-photo
|
|
;
|
|
;
|
|
; Chris Gutteridge (cjg@ecs.soton.ac.uk)
|
|
; At ECS Dept, University of Southampton, England.
|
|
|
|
; 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/>.
|
|
;
|
|
; Branko Collin <collin@xs4all.nl> added the possibility to change
|
|
; the border size in October 2001.
|
|
|
|
; Define the function:
|
|
|
|
(define (script-fu-old-photo inImage inLayer inDefocus inBorderSize inSepia inMottle inCopy)
|
|
(let (
|
|
(theImage (if (= inCopy TRUE) (car (gimp-image-duplicate inImage)) inImage))
|
|
(theLayer 0)
|
|
(theWidth 0)
|
|
(theHeight 0)
|
|
)
|
|
(if (= inCopy TRUE)
|
|
(gimp-image-undo-disable theImage)
|
|
(gimp-image-undo-group-start theImage)
|
|
)
|
|
|
|
(gimp-selection-all theImage)
|
|
|
|
(set! theLayer (car (gimp-image-flatten theImage)))
|
|
(if (= inDefocus TRUE)
|
|
(plug-in-gauss-rle RUN-NONINTERACTIVE theImage theLayer 1.5 TRUE TRUE)
|
|
)
|
|
(if (> inBorderSize 0)
|
|
(script-fu-fuzzy-border theImage theLayer '(255 255 255)
|
|
inBorderSize TRUE 8 FALSE 100 FALSE TRUE )
|
|
)
|
|
(set! theLayer (car (gimp-image-flatten theImage)))
|
|
|
|
(if (= inSepia TRUE)
|
|
(begin (gimp-drawable-desaturate theLayer DESATURATE-LIGHTNESS)
|
|
(gimp-drawable-brightness-contrast theLayer -0.078125 -0.15625)
|
|
(gimp-drawable-color-balance theLayer TRANSFER-SHADOWS TRUE 30 0 -30)
|
|
)
|
|
)
|
|
(set! theWidth (car (gimp-image-get-width theImage)))
|
|
(set! theHeight (car (gimp-image-get-height theImage)))
|
|
(if (= inMottle TRUE)
|
|
(let (
|
|
(mLayer (car (gimp-layer-new theImage theWidth theHeight
|
|
RGBA-IMAGE "Mottle"
|
|
100 LAYER-MODE-DARKEN-ONLY)))
|
|
)
|
|
|
|
(gimp-image-insert-layer theImage mLayer 0 0)
|
|
(gimp-selection-all theImage)
|
|
(gimp-drawable-edit-clear mLayer)
|
|
(gimp-selection-none theImage)
|
|
(plug-in-noisify RUN-NONINTERACTIVE theImage mLayer TRUE 0 0 0 0.5)
|
|
(plug-in-gauss-rle RUN-NONINTERACTIVE theImage mLayer 5 TRUE TRUE)
|
|
(set! theLayer (car (gimp-image-flatten theImage)))
|
|
)
|
|
)
|
|
(gimp-selection-none theImage)
|
|
|
|
(if (= inCopy TRUE)
|
|
(begin (gimp-image-clean-all theImage)
|
|
(gimp-display-new theImage)
|
|
(gimp-image-undo-enable theImage)
|
|
)
|
|
(gimp-image-undo-group-end theImage)
|
|
)
|
|
|
|
(gimp-displays-flush theImage)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-old-photo"
|
|
_"_Old Photo..."
|
|
_"Make an image look like an old photo"
|
|
"Chris Gutteridge"
|
|
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
|
|
"16th April 1998"
|
|
"RGB* GRAY*"
|
|
SF-IMAGE "The image" 0
|
|
SF-DRAWABLE "The layer" 0
|
|
SF-TOGGLE _"Defocus" TRUE
|
|
SF-ADJUSTMENT _"Border size" '(20 0 300 1 10 0 1)
|
|
; since this plug-in uses the fuzzy-border plug-in, I used the
|
|
; values of the latter, with the exception of the initial value
|
|
; and the 'minimum' value.
|
|
SF-TOGGLE _"Sepia" TRUE
|
|
SF-TOGGLE _"Mottle" FALSE
|
|
SF-TOGGLE _"Work on copy" TRUE
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-old-photo"
|
|
"<Image>/Filters/Decor")
|