[gimp/gimp-2-8] Bug 740203 - Textured Logo scripts inappropriately defines a global



commit 57603055c32a34b52d351cf7fb08a60c7f6ee428
Author: Saul Goode <saul crazyauntgail com>
Date:   Sat Nov 15 18:28:42 2014 -0500

    Bug 740203 - Textured Logo scripts inappropriately defines a global
    
    Remove global proc def in textured-logo script.

 plug-ins/script-fu/scripts/textured-logo.scm |   10 ++++------
 1 files changed, 4 insertions(+), 6 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/textured-logo.scm b/plug-ins/script-fu/scripts/textured-logo.scm
index d6ff45c..e77c6c5 100644
--- a/plug-ins/script-fu/scripts/textured-logo.scm
+++ b/plug-ins/script-fu/scripts/textured-logo.scm
@@ -5,8 +5,6 @@
 ;  if the blend colors are specified as high intensity, the sharp option
 ;   should be enabled or the logo will come out blurry
 
-(define (scale size percent) (* size percent))
-
 (define (apply-textured-logo-effect img
                                     logo-layer
                                     b-size
@@ -16,9 +14,9 @@
                                     blend-fg
                                     blend-bg)
   (let* (
-        (b-size-2 (scale b-size 0.5))
-        (f-size (scale b-size 0.75))
-        (ds-size (scale b-size 0.5))
+        (b-size-2 (* b-size 0.5))
+        (f-size (* b-size 0.75))
+        (ds-size (* b-size 0.5))
         (ts-size (- b-size-2 3))
         (width (car (gimp-drawable-width logo-layer)))
         (height (car (gimp-drawable-height logo-layer)))
@@ -146,7 +144,7 @@
                                  blend-fg
                                  blend-bg)
   (let* ((img (car (gimp-image-new 256 256 RGB)))
-         (b-size (scale size 0.1))
+         (b-size (* size 0.1))
          (text-layer (car (gimp-text-fontname img -1 0 0 text b-size
                                               TRUE size PIXELS fontname))))
     (gimp-image-undo-disable img)


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]