Adding upstream version 2.10.34.upstream/2.10.34upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 41 insertions, 0 deletions

diff --git a/plug-ins/script-fu/scripts/guides-new-percent.scm b/plug-ins/script-fu/scripts/guides-new-percent.scm
new file mode 100644
index 0000000..c42d457
--- /dev/null
+++ b/plug-ins/script-fu/scripts/guides-new-percent.scm
@@ -0,0 +1,41 @@
+;; -*-scheme-*-
+
+;; Alan Horkan 2004.  No copyright.  Public Domain.
+
+(define (script-fu-guide-new-percent image drawable direction position)
+  (let* (
+        (width (car (gimp-image-width image)))
+      	(height (car (gimp-image-height image)))
+        )
+
+    (if (= direction 0)
+      	(set! position (/ (* height position) 100))
+	      (set! position (/ (* width position) 100))
+    )
+
+    (if (= direction 0)
+	      ;; convert position to pixel
+	      (if (<= position height) (gimp-image-add-hguide image position))
+	      (if (<= position width) (gimp-image-add-vguide image position))
+    )
+
+    (gimp-displays-flush)
+  )
+)
+
+(script-fu-register "script-fu-guide-new-percent"
+  _"New Guide (by _Percent)..."
+  _"Add a guide at the position specified as a percentage of the image size"
+  "Alan Horkan"
+  "Alan Horkan, 2004"
+  "April 2004"
+  "*"
+  SF-IMAGE      "Input Image"      0
+  SF-DRAWABLE   "Input Drawable"   0
+  SF-OPTION     _"_Direction"       '(_"Horizontal"
+                                     _"Vertical")
+  SF-ADJUSTMENT _"_Position (in %)" '(50 0 100 1 10 2 1)
+)
+
+(script-fu-menu-register "script-fu-guide-new-percent"
+                         "<Image>/Image/Guides")