fb84b9eba7
Since we renamed a bunch of functions for consistency (the like of gimp_image_width() to gimp_image_get_width() and others), most Scheme scripts ended up broken. This is a simple bash fix with `sed` to at least take care of these simple renaming cases. Many scripts are still broken for other reasons after our API evolution (to be continued).
42 lines
1.2 KiB
Scheme
42 lines
1.2 KiB
Scheme
;; -*-scheme-*-
|
|
|
|
;; Alan Horkan 2004. No copyright. Public Domain.
|
|
|
|
(define (script-fu-guide-new-percent image drawable direction position)
|
|
(let* (
|
|
(width (car (gimp-image-get-width image)))
|
|
(height (car (gimp-image-get-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")
|