dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed some old dead code that was keeping it from working. Now xach's 

Sat Feb 27 23:25:55 EST 1999 Adrian Likins <adrian@gimp.org>

        * 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
This commit is contained in:
EST 1999 Adrian Likins 1999-02-28 04:40:45 +00:00 committed by Adrian Likins
parent 58dd2775b2
commit 2618172134
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
Sat Feb 27 23:25:55 EST 1999 Adrian Likins <adrian@gimp.org>
* 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 <austin@gimp.org>
* app/scale.c: use image's units, not the ruler units, when

16
plug-ins/script-fu/scripts/xach-effect.scm
View File

@ -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)