From 2618172134edd78d158d3cdff5d5d1eed83b627f Mon Sep 17 00:00:00 2001 From: EST 1999 Adrian Likins Date: Sun, 28 Feb 1999 04:40:45 +0000 Subject: [PATCH] removed some old dead code that was keeping it from working. Now xach's Sat Feb 27 23:25:55 EST 1999 Adrian Likins * plug-ins/script-fu/scripts/xach-effect.scm: removed some old dead code that was keeping it from working. Now xach's name is untarnished again. -adrian --- ChangeLog | 6 ++++++ plug-ins/script-fu/scripts/xach-effect.scm | 16 ++++------------ 2 files changed, 10 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index a664d337ef..01b0b9a1b6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +Sat Feb 27 23:25:55 EST 1999 Adrian Likins + + * plug-ins/script-fu/scripts/xach-effect.scm: removed + some old dead code that was keeping it from working. + Now xach's name is untarnished again. + Sat Feb 27 18:07:53 GMT 1999 Austin Donnelly * app/scale.c: use image's units, not the ruler units, when diff --git a/plug-ins/script-fu/scripts/xach-effect.scm b/plug-ins/script-fu/scripts/xach-effect.scm index ce31fd798c..73f323f354 100644 --- a/plug-ins/script-fu/scripts/xach-effect.scm +++ b/plug-ins/script-fu/scripts/xach-effect.scm @@ -31,9 +31,6 @@ hl-offset-y hl-color hl-opacity-comp - red - green - blue ds-color ds-opacity ds-blur @@ -43,17 +40,17 @@ (let* ((ds-blur (max ds-blur 0)) (ds-opacity (min ds-opacity 100)) (ds-opacity (max ds-opacity 0)) - (new-color (list (red green blue))) (type (car (gimp-drawable-type-with-alpha drawable))) (image-width (car (gimp-image-width image))) (hl-opacity (list hl-opacity-comp hl-opacity-comp hl-opacity-comp)) (image-height (car (gimp-image-height image))) (old-bg (car (gimp-palette-get-background)))) - + + (gimp-message-handler-set 1) + (gimp-image-disable-undo image) (gimp-layer-add-alpha drawable) - (if (= (car (gimp-selection-is-empty image)) TRUE) (begin @@ -63,10 +60,9 @@ (begin (set! from-selection TRUE) (set! active-selection (car (gimp-selection-save image))))) - + (set! hl-layer (car (gimp-layer-new image image-width image-height type "Highlight" 100 NORMAL))) (gimp-image-add-layer image hl-layer -1) - (gimp-selection-none image) (gimp-edit-clear hl-layer) @@ -129,10 +125,6 @@ SF-ADJUSTMENT "highlight Y offset" '(-1 -100 100 1 10 0 1) SF-COLOR "Highlight Color" '(255 255 255) SF-ADJUSTMENT "Opacity" '(66 0 255 1 10 0 0) -; SF-COLOR "Opacity" '(66 66 66) - SF-STRING "RED" "123" - SF-STRING "GREEN" "0" - SF-STRING "BLUE" "190" SF-COLOR "Drop Shadow Color" '(0 0 0) SF-ADJUSTMENT "Drop Shadow Opacity" '(100 0 100 1 10 0 0) SF-ADJUSTMENT "Drop Shadow Blur Radius" '(12 0 255 1 10 0 1)