klaus_harrer
18.11.2004, 12:51
Hallo
Ich habe ein Script erstellt. Das den aktiven Layer mittig setzt(x sowie y Achse).
Ob jetzt für das für das kreative erarbeiten von Grafiken wichtig ist sei dahin gestellt.
Aber da ich schon einige Scripte entwickelt habe, fehlte öfter ein Plugin b.z.w Script was den aktuellen Layer mittig setzt und ich musste den den ganzen Code in das Script hineinschreiben. Dieses Script erleichtert die Arbeit um einiges.
Diese Script gibt es von einen anderen Autor schon in Gimp-Perl.
(define(script-fu-center-layer img layer)
(define(calc ang)
(set! img-width (car (gimp-image-width img)))
(set! img-height (car (gimp-image-height img)))
(set! layer-width (car (gimp-drawable-width layer)))
(set! layer-height (car (gimp-drawable-height layer)))
(if (= ang 0)
(begin
(- (/ img-width 2) (/ layer-width 2))
)
(if (= ang 1)
(begin
(- (/ img-height 2) (/ layer-height 2))
)))
)
(gimp-layer-set-offsets layer (calc 0) (calc 1))
(gimp-displays-flush)
)
(script-fu-register
"script-fu-center-layer"
"<Image>/Layer/center layer"
""
"Klaus Harrer"
"Klaus Harrer(c)"
"11-17-2004"
""
SF-IMAGE "IMAGE" 0
SF-DRAWABLE "LAYER" 0
)
MfG
Klaus
Ich habe ein Script erstellt. Das den aktiven Layer mittig setzt(x sowie y Achse).
Ob jetzt für das für das kreative erarbeiten von Grafiken wichtig ist sei dahin gestellt.
Aber da ich schon einige Scripte entwickelt habe, fehlte öfter ein Plugin b.z.w Script was den aktuellen Layer mittig setzt und ich musste den den ganzen Code in das Script hineinschreiben. Dieses Script erleichtert die Arbeit um einiges.
Diese Script gibt es von einen anderen Autor schon in Gimp-Perl.
(define(script-fu-center-layer img layer)
(define(calc ang)
(set! img-width (car (gimp-image-width img)))
(set! img-height (car (gimp-image-height img)))
(set! layer-width (car (gimp-drawable-width layer)))
(set! layer-height (car (gimp-drawable-height layer)))
(if (= ang 0)
(begin
(- (/ img-width 2) (/ layer-width 2))
)
(if (= ang 1)
(begin
(- (/ img-height 2) (/ layer-height 2))
)))
)
(gimp-layer-set-offsets layer (calc 0) (calc 1))
(gimp-displays-flush)
)
(script-fu-register
"script-fu-center-layer"
"<Image>/Layer/center layer"
""
"Klaus Harrer"
"Klaus Harrer(c)"
"11-17-2004"
""
SF-IMAGE "IMAGE" 0
SF-DRAWABLE "LAYER" 0
)
MfG
Klaus