Zottix
16.06.2009, 16:05
Hallo ... versuche mich gerade mit Script-Fu.
;(lambda (x) (+ x 2))
(define (script-fu-beispiel parameter img)
(let*
( (w 300) (yold 166) )
;(set! h (gimp-image-height img))
(gimp-message(number->string (gimp-image-height img)))
(gimp-image-scale img w yold)
)
)
; Im GIMP und im Menü registrieren
(script-fu-register "script-fu-beispiel"
_"_Beispielskript"
"Illustriert den Aufbau eines GIMP-Skripts"
"Richard Hirner"
"2006, Richard Hirner"
"Sep 10, 2006"
""
SF-STRING "Erster Parameter" "Hallo!"
SF-IMAGE "Ausgangsbild" 0)
(script-fu-menu-register "script-fu-beispiel"
"<Image>/Filters/")
Das ist mein Testscript, mit dem ich gerade arbeite.
Nach Aufruf kommt die Fehlermeldung, dass die Höhe des Bildes keine Zahl wäre. Aber gimp-image-height sollte doch die Höhe als Int zurückgeben. Was ist da falsch?
Bin da jetzt schon am rumfluchen, da die Programmierung in Scheme ja schon echt Gewöhnugsbedürftig ist.
;(lambda (x) (+ x 2))
(define (script-fu-beispiel parameter img)
(let*
( (w 300) (yold 166) )
;(set! h (gimp-image-height img))
(gimp-message(number->string (gimp-image-height img)))
(gimp-image-scale img w yold)
)
)
; Im GIMP und im Menü registrieren
(script-fu-register "script-fu-beispiel"
_"_Beispielskript"
"Illustriert den Aufbau eines GIMP-Skripts"
"Richard Hirner"
"2006, Richard Hirner"
"Sep 10, 2006"
""
SF-STRING "Erster Parameter" "Hallo!"
SF-IMAGE "Ausgangsbild" 0)
(script-fu-menu-register "script-fu-beispiel"
"<Image>/Filters/")
Das ist mein Testscript, mit dem ich gerade arbeite.
Nach Aufruf kommt die Fehlermeldung, dass die Höhe des Bildes keine Zahl wäre. Aber gimp-image-height sollte doch die Höhe als Int zurückgeben. Was ist da falsch?
Bin da jetzt schon am rumfluchen, da die Programmierung in Scheme ja schon echt Gewöhnugsbedürftig ist.