File: guides-new.scm

package info (click to toggle)
gimp 2.2.13-1etch4
  • links: PTS
  • area: main
  • in suites: etch
  • size: 94,832 kB
  • ctags: 47,113
  • sloc: ansic: 524,858; xml: 36,798; lisp: 9,870; sh: 9,409; makefile: 7,923; python: 2,674; perl: 2,589; yacc: 520; lex: 334
file content (37 lines) | stat: -rw-r--r-- 1,253 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
;; -*-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))))
    (gimp-image-undo-group-start 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-image-undo-group-end image)
    (gimp-displays-flush)))
    
(script-fu-register "script-fu-guide-new" 
		    _"New _Guide..." 
		    "Add a single Line Guide with the specified postion and orientation. Postion is specified in Pixels (px)."
		    "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"   '(0 0 262144 1 10 0 1))
    
(script-fu-menu-register "script-fu-guide-new" 
			 "<Image>/Image/Guides")