6239dddda3
2006-10-15 Kevin Cozens <kcozens@cvs.gnome.org> With this commit we finally say goodbye to SIOD. This large set of changes updates the Script-Fu plug-in to use the TinyScheme Scheme interpreter. These changes originated with changes originally made to Script-Fu which created Tiny-Fu (aka. the gimp-tiny-fu module). * plug-ins/script-fu/Makefile.am * plug-ins/script-fu/script-fu-console.c * plug-ins/script-fu/script-fu-interface.c * plug-ins/script-fu/script-fu-scripts.c * plug-ins/script-fu/script-fu-scripts.h * plug-ins/script-fu/script-fu-server.c * plug-ins/script-fu/script-fu-text-console.c * plug-ins/script-fu/script-fu.c: Updated with the changes made to these files as part of the work on the Tiny-Fu project. * plug-ins/script-fu/scheme-wrapper.c * plug-ins/script-fu/scheme-wrapper.h: Renamed from siod-wrapper.[ch] and updated based on differences to ts-wrapper.[ch] from gimp-tiny-fu. * plug-ins/script-fu/ftx/* * plug-ins/script-fu/re/* * plug-ins/script-fu/tinyscheme/* * plug-ins/script-fu/scripts/script-fu.init * plug-ins/script-fu/scripts/script-fu-compat.init * plug-ins/script-fu/scripts/contactsheet.scm * plug-ins/script-fu/scripts/script-fu-set-cmap.scm * plug-ins/script-fu/scripts/script-fu-util-setpt.scm * plug-ins/script-fu/scripts/ts-helloworld.scm: Added all of these files and directories from Tiny-Fu. Updated the Makefile.am files of ftx, re, and tinyscheme now they are in the GIMP source tree. * plug-ins/script-fu/scripts/*.scm: All scripts have been updated as needed to ensure they will work with the TinyScheme interpreter. Most of the files have been reformatted making it easier to see the syntax of Scheme and making them easier to read. * plug-ins/script-fu/scripts/Makefile.am: Updated script file lists. * plug-ins/script-fu/siod-wrapper.c * plug-ins/script-fu/siod-wrapper.h * plug-ins/script-fu/siod/*: Removed obsolete files. * configure.in: Updated list of files in AC_CONFIG_FILES. Changed --disable-script-fu to --without-script-fu which it should have been when originally added. * INSTALL: Updated to show change to --without-script-fu.
87 lines
3.3 KiB
Scheme
87 lines
3.3 KiB
Scheme
;;; unsharp-mask.scm
|
|
;;; Time-stamp: <1998/11/17 13:18:39 narazaki@gimp.org>
|
|
;;; Author: Narazaki Shuji <narazaki@gimp.org>
|
|
;;; Version 0.8
|
|
|
|
(define (script-fu-unsharp-mask img drw mask-size mask-opacity)
|
|
(let* (
|
|
(drawable-width (car (gimp-drawable-width drw)))
|
|
(drawable-height (car (gimp-drawable-height drw)))
|
|
(new-image (car (gimp-image-new drawable-width drawable-height RGB)))
|
|
(original-layer (car (gimp-layer-new new-image
|
|
drawable-width drawable-height
|
|
RGB-IMAGE "Original"
|
|
100 NORMAL-MODE)))
|
|
(original-layer-for-darker)
|
|
(original-layer-for-lighter)
|
|
(blured-layer-for-darker)
|
|
(blured-layer-for-lighter)
|
|
(darker-layer)
|
|
(lighter-layer)
|
|
)
|
|
|
|
(gimp-selection-all img)
|
|
(gimp-edit-copy drw)
|
|
|
|
(gimp-image-undo-disable new-image)
|
|
|
|
(gimp-image-add-layer new-image original-layer 0)
|
|
(gimp-floating-sel-anchor
|
|
(car (gimp-edit-paste original-layer FALSE)))
|
|
|
|
(set! original-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
|
|
(set! original-layer-for-lighter (car (gimp-layer-copy original-layer TRUE)))
|
|
(set! blured-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
|
|
(gimp-drawable-set-visible original-layer FALSE)
|
|
(gimp-display-new new-image)
|
|
|
|
;; make darker mask
|
|
(gimp-image-add-layer new-image blured-layer-for-darker -1)
|
|
(plug-in-gauss-iir TRUE new-image blured-layer-for-darker mask-size
|
|
TRUE TRUE)
|
|
(set! blured-layer-for-lighter
|
|
(car (gimp-layer-copy blured-layer-for-darker TRUE)))
|
|
(gimp-image-add-layer new-image original-layer-for-darker -1)
|
|
(gimp-layer-set-mode original-layer-for-darker SUBTRACT-MODE)
|
|
(set! darker-layer
|
|
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
|
|
(gimp-drawable-set-name darker-layer "darker mask")
|
|
(gimp-drawable-set-visible darker-layer FALSE)
|
|
|
|
;; make lighter mask
|
|
(gimp-image-add-layer new-image original-layer-for-lighter -1)
|
|
(gimp-image-add-layer new-image blured-layer-for-lighter -1)
|
|
(gimp-layer-set-mode blured-layer-for-lighter SUBTRACT-MODE)
|
|
(set! lighter-layer
|
|
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
|
|
(gimp-drawable-set-name lighter-layer "lighter mask")
|
|
|
|
;; combine them
|
|
(gimp-drawable-set-visible original-layer TRUE)
|
|
(gimp-layer-set-mode darker-layer SUBTRACT-MODE)
|
|
(gimp-layer-set-opacity darker-layer mask-opacity)
|
|
(gimp-drawable-set-visible darker-layer TRUE)
|
|
(gimp-layer-set-mode lighter-layer ADDITION-MODE)
|
|
(gimp-layer-set-opacity lighter-layer mask-opacity)
|
|
(gimp-drawable-set-visible lighter-layer TRUE)
|
|
|
|
(gimp-image-undo-enable new-image)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-unsharp-mask"
|
|
_"Unsharp Mask..."
|
|
_"Make a new image from the current layer by applying the unsharp mask method"
|
|
"Shuji Narazaki <narazaki@gimp.org>"
|
|
"Shuji Narazaki"
|
|
"1997,1998"
|
|
""
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable to apply" 0
|
|
SF-ADJUSTMENT _"Mask size" '(5 1 100 1 1 0 1)
|
|
SF-ADJUSTMENT _"Mask opacity" '(50 0 100 1 1 0 1)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-unsharp-mask"
|
|
"<Image>/Filters/Enhance")
|