Gimp Italia Forum

Codice: Seleziona tutto

(xa, ya) = coordinate punto A
(xb, yb) = coordinate punto B
calcola l'angolo di rotazione
applica angolo all'immagine

Codice: Seleziona tutto

;script-fu auto-rotate and script-fu-gimp-image-get-two-controlpoints by hevan

(define (script-fu-gimp-image-get-two-controlpoints inImage)

(let* (  (num-vectors(car(gimp-image-get-vectors inImage))) (active-vectors 0) (num-strokes 0)  )
(if (= num-vectors 0) (gimp-message "There are no paths in the image! Please create one stroke on one path."))
(set! active-vectors (car(gimp-image-get-active-vectors inImage)))
(set! num-strokes (car(gimp-vectors-get-strokes active-vectors)))
(if (= num-strokes 0)(gimp-message "There is no stroke in the path! Please create one stroke on one path.")))

(let*   (	
		(active-vectors (car(gimp-image-get-active-vectors inImage)))
		(num-strokes (car(gimp-vectors-get-strokes active-vectors)))
		(stroke-ids-array (cadr(gimp-vectors-get-strokes active-vectors)))
		(stroke-id (vector-ref stroke-ids-array 0))
		(controlpoints-array (caddr(gimp-vectors-stroke-get-points active-vectors stroke-id)))
		(num-controlpoints (cadr(gimp-vectors-stroke-get-points active-vectors stroke-id)))
		(x0 (vector-ref controlpoints-array 2))
		(y0 (vector-ref controlpoints-array 3))
		(x1 (vector-ref controlpoints-array (- num-controlpoints 4)))
		(y1 (vector-ref controlpoints-array (- num-controlpoints 3)))
;O d'affixe a°+ib° avec a°=x0 et b°=y0
;O est l'origine d'un nouveau repère que l'on crée
;A d'affixe a+ib avec a=x1−x0 et b=y1−y0
		(a (- x1 x0))
		(b (- y1 y0))
		(mod (pow (+ (* a a) (* b b)) 0.5))
	)
(if (= num-controlpoints 6) (gimp-message "There are not enough controlpoints!"))
(list a b mod)
)
)

(script-fu-register "script-fu-gimp-image-get-two-controlpoints" "" "" "" "" "" ""	SF-IMAGE "Image" 0)





(define (script-fu-auto-rotate inImage inDrawable)

(let*   (
		(a (car(script-fu-gimp-image-get-two-controlpoints inImage)))
		(b (cadr(script-fu-gimp-image-get-two-controlpoints inImage)))
		(mod (caddr(script-fu-gimp-image-get-two-controlpoints inImage)))
		(teta (acos (/(abs a)mod)))
	)
(if (or (and (> a 0)(< b 0)) (and (< a 0)(> b 0)) )  (gimp-drawable-transform-rotate-default inDrawable teta TRUE 0 0 TRUE 0))
(if (or (and (> a 0)(> b 0)) (and (< a 0)(< b 0)) )  (gimp-drawable-transform-rotate-default inDrawable (- 0 teta) TRUE 0 0 TRUE 0))
(gimp-displays-flush)
)
)										

(script-fu-register
		"script-fu-auto-rotate"
		"Auto rotate"
		""
		"Hevan"
		"Hevan"
		"01/2010"
		""                                                            
                                                         
		SF-IMAGE    "Image"    0
		SF-DRAWABLE "Drawable" 0
)

(script-fu-menu-register "script-fu-auto-rotate" "<Image>/Scritp-Fu/Layer/Auto-rotate" )

Codice: Seleziona tutto

(script-fu-menu-register "script-fu-auto-rotate" "<Image>/Layer/" )