PDA

Vollständige Version anzeigen : Was ist da falsch?


Zottix
16.06.2009, 17: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.

klaus_harrer
10.07.2009, 08:33
Hallo

Die Funktion "(gimp-image-height img)" gibt eine Liste zurück.

So sollte es gehen.


(gimp-message(number->string (car (gimp-image-height img))))


MfG
Klaus Harrer