Adding upstream version 2.10.34.upstream/2.10.34upstream

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

1 files changed, 40 insertions, 0 deletions

diff --git a/plug-ins/script-fu/scripts/guides-new.scm b/plug-ins/script-fu/scripts/guides-new.scm
new file mode 100644
index 0000000..08217af
--- /dev/null
+++ b/plug-ins/script-fu/scripts/guides-new.scm
@@ -0,0 +1,40 @@
+;; -*-scheme-*-
+
+;; Alan Horkan 2004.  Public Domain.
+;; so long as remove this block of comments from your script
+;; feel free to use it for whatever you like.
+
+(define (script-fu-guide-new image
+                             drawable
+                             direction
+                             position)
+  (let* (
+        (width (car (gimp-image-width image)))
+        (height (car (gimp-image-height image)))
+        )
+
+    (if (= direction 0)
+        ;; check position is inside the image boundaries
+        (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"
+  _"New _Guide..."
+  _"Add a guide at the orientation and position specified (in pixels)"
+  "Alan Horkan"
+  "Alan Horkan, 2004.  Public Domain."
+  "2004-04-02"
+  "*"
+  SF-IMAGE      "Image"      0
+  SF-DRAWABLE   "Drawable"   0
+  SF-OPTION     _"_Direction" '(_"Horizontal" _"Vertical")
+  SF-ADJUSTMENT _"_Position"  (list 0 0 MAX-IMAGE-SIZE 1 10 0 1)
+)
+
+(script-fu-menu-register "script-fu-guide-new"
+                         "<Image>/Image/Guides")