summaryrefslogtreecommitdiffstats
path: root/plug-ins/script-fu/scripts/guides-new-percent.scm
diff options
context:
space:
mode:
Diffstat (limited to 'plug-ins/script-fu/scripts/guides-new-percent.scm')
-rw-r--r--plug-ins/script-fu/scripts/guides-new-percent.scm41
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")