procyberian/gimp
2
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-07-09 12:10:49 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity Actions
gimp/plug-ins/script-fu/scripts/unsharp-mask.scm

79 lines
3.1 KiB
Scheme
Raw Normal View History

oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
;;; unsharp-mask.scm
applied update by Shuji Narazaki <narazaki@gimp.org>. * plug-ins/script-fu/scripts/line-nova.scm, plug-ins/script-fu/scripts/text-circle.scm, plug-ins/script-fu/scripts/unsharp-mask.scm: applied update by Shuji Narazaki <narazaki@gimp.org>.
1998-11-25 21:18:26 +00:00
;;; Time-stamp: <1998/11/17 13:18:39 narazaki@gimp.org>
;;; Author: Narazaki Shuji <narazaki@gimp.org>
;;; Version 0.8
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
applied update by Shuji Narazaki <narazaki@gimp.org>. * plug-ins/script-fu/scripts/line-nova.scm, plug-ins/script-fu/scripts/text-circle.scm, plug-ins/script-fu/scripts/unsharp-mask.scm: applied update by Shuji Narazaki <narazaki@gimp.org>.
1998-11-25 21:18:26 +00:00
(define (script-fu-unsharp-mask img drw mask-size mask-opacity)
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(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)))
removed the image argument from functions that no longer need it. * plug-ins/script-fu/scripts/*: removed the image argument from functions that no longer need it.
1998-11-14 20:46:25 +00:00
(original-layer (car (gimp-layer-new new-image
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
drawable-width drawable-height
replaced lots of old school constants with their new names. 2003-10-16 Sven Neumann <sven@gimp.org> * plug/ins/script-fu/scripts/*.scm: replaced lots of old school constants with their new names.
2003-10-16 12:47:33 +00:00
RGB-IMAGE "Original"
100 NORMAL-MODE)))
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(original-layer-for-darker #f)
(original-layer-for-lighter #f)
(blured-layer-for-darker #f)
(blured-layer-for-lighter #f)
(darker-layer #f)
(lighter-layer #f))
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-selection-all img)
removed the image argument from functions that no longer need it. * plug-ins/script-fu/scripts/*: removed the image argument from functions that no longer need it.
1998-11-14 20:46:25 +00:00
(gimp-edit-copy drw)
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
API PATCH #2 or so
1999-10-17 00:07:55 +00:00
(gimp-image-undo-disable new-image)
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-floating-sel-anchor
removed the image argument from functions that no longer need it. * plug-ins/script-fu/scripts/*: removed the image argument from functions that no longer need it.
1998-11-14 20:46:25 +00:00
(car (gimp-edit-paste original-layer FALSE)))
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-image-add-layer new-image original-layer 0)
(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-layer-set-visible original-layer FALSE)
(gimp-display-new new-image)
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
;; 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)
(set! darker-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
(gimp-layer-set-name darker-layer "darker mask")
(gimp-layer-set-visible darker-layer FALSE)
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
;; 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)
(set! lighter-layer
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
(gimp-layer-set-name lighter-layer "lighter mask")
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
;; combine them
(gimp-layer-set-visible original-layer TRUE)
(gimp-layer-set-mode darker-layer SUBTRACT)
applied update by Shuji Narazaki <narazaki@gimp.org>. * plug-ins/script-fu/scripts/line-nova.scm, plug-ins/script-fu/scripts/text-circle.scm, plug-ins/script-fu/scripts/unsharp-mask.scm: applied update by Shuji Narazaki <narazaki@gimp.org>.
1998-11-25 21:18:26 +00:00
(gimp-layer-set-opacity darker-layer mask-opacity)
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-layer-set-visible darker-layer TRUE)
(gimp-layer-set-mode lighter-layer ADDITION)
applied update by Shuji Narazaki <narazaki@gimp.org>. * plug-ins/script-fu/scripts/line-nova.scm, plug-ins/script-fu/scripts/text-circle.scm, plug-ins/script-fu/scripts/unsharp-mask.scm: applied update by Shuji Narazaki <narazaki@gimp.org>.
1998-11-25 21:18:26 +00:00
(gimp-layer-set-opacity lighter-layer mask-opacity)
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-layer-set-visible lighter-layer TRUE)
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
API PATCH #2 or so
1999-10-17 00:07:55 +00:00
(gimp-image-undo-enable new-image)
oops, forgot to cvs add this one before. -adrian
1998-04-09 12:32:04 +00:00
(gimp-displays-flush)))
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
(script-fu-register "script-fu-unsharp-mask"
removed function gimp_menu_path_strip_uline() ... 2003-08-09 Henrik Brix Andersen <brix@gimp.org> * gimp/app/widgets/gimpwidgets-utils.[ch]: removed function gimp_menu_path_strip_uline() ... * gimp/libgimpbase/gimputils.[ch]: ... and added it here under the name gimp_strip_uline() * gimp/devel-docs/libgimpbase/libgimpbase-sections.txt: added gimp_strip_uline to gimputils section * gimp/app/plug-in/plug-in.c * gimp/app/widgets/gimpitemfactory.c * gimp/app/widgets/gimptoolbox. * gimp/app/gui/plug-in-menus.c: changed accordingly * gimp/plug-ins/script-fu/script-fu-scripts.c (script_fu_interface): use gimp_strip_uline() to strip mnemonics from script-fu menu paths * gimp/app/gui/vectors-menu.c * gimp/app/gui/templates-menu.c * gimp/app/gui/qmask-menu.c * gimp/app/gui/palettes-menu.c * gimp/app/gui/palette-editor-menu.c * gimp/app/gui/images-menu.c * gimp/app/gui/gradients-menu.c * gimp/app/gui/gradient-editor-menu.c * gimp/app/gui/documents-menu.c * gimp/app/gui/dialogs-menu.c * gimp/app/gui/colormap-editor-menu.c * gimp/app/gui/channels-menu.c * gimp/app/gui/buffers-menu.c * gimp/app/gui/brushes-menu.c * gimp/app/gui/layers-menu.c * gimp/plug-ins/pygimp/plug-ins/clothify.py * gimp/plug-ins/pygimp/plug-ins/shadow_bevel.py * gimp/plug-ins/pygimp/plug-ins/whirlpinch.py * gimp/plug-ins/pygimp/plug-ins/foggify.py * gimp/plug-ins/script-fu/scripts/*.scm * gimp/plug-ins/script-fu/script-fu.c: added mnemonics fixing more of bug #106991 * gimp/app/gui/error-console-menu.c (error_console_menu_update): updated menu item names, added mnemonics * gimp/plug-ins/common/animoptimize.c * gimp/plug-ins/common/animationplay.c: don't prepend every menu entry with "Animation"
2003-08-11 17:14:32 +00:00
_"<Image>/Script-Fu/Alchemy/_Unsharp Mask..."
always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter 2003-06-05 Michael Natterer <mitch@gimp.org> * app/core/gimpchannel.c (gimp_channel_bounds): always return channel->x1,y1,x2,y2, *not* tx1,ty1,tx2,ty2 since the latter contain bogus values if the mask is empty. Fixes bug #114419. * plug-ins/script-fu/scripts/unsharp-mask.scm: cleaned up while searching the bug.
2003-06-05 13:27:27 +00:00
"Make a sharp image of IMAGE's DRAWABLE by applying 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))
Reference in a new issue Copy permalink