Forum Wiki Galerie Kontakt Wie man Fragen richtig stellt. Tutorial Forum
Zurück   GIMP-Forum 3.0 > Arbeiten mit Gimp > GIMP-Ressourcen > Skripte

Hinweise
Alt 24.07.2010, 11:33   #1
christian84
Neuer Benutzer
 
Benutzerbild von christian84
 
Registriert seit: 22.04.2009
Beiträge: 5
Böse nicht funktionierendes (if -Konstrukt

Hallo

seit längerem benutze ich ein Script um Verzeichnis-weise Bilder auf eine bestimmte Grösse zu verkleiern. Der Nachteil des bisherigen Script war, dass es nicht zwischen vertikalter und horizontaler Ausrichtung von Bildern unterscheiden konnte. Deshalb jetzt die Idee, ein neues Script, das nur noch die längere Seite des Bildes als Angabe braucht und die andere Seite selbst errechnet.

Ich weiss aus einige probieren, dass das rote (if -Konstrukt nicht funktioniert. Ich bekomme folgende Fehlermeldung: Error while executing script-fu-batch-resize-vers: Error: illegal function

Wer kann mir sagen war falsch ist?

Code:
(define (script-fu-batch-resize-vers globexp newx quality)
  (let* ((filelist (cadr (file-glob globexp 1))))
    (while (not (null? filelist))
           (let* ((filename (car filelist))
                  (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                  (drawable (car (gimp-image-get-active-layer image)))
          (istx (car (gimp-image-width image)))
          (isty (car (gimp-image-height image)))
          )
          (if (<= istx isty) 
              (gimp-image-scale image (* istx (/ (isty newx))) newx) 
              (gimp-image-scale image newx (* istx (/ (isty newx))))
          ) 
          (file-jpeg-save 1 image (car (gimp-image-get-active-drawable image)) filename filename quality 0 1 1 "GIMP 2.4 cerated, Photo: ©2008 by Cris Berglund" 0 1 0 0)
          (gimp-image-delete image)
      )
       (set! filelist (cdr filelist))
     )

   )
)

(script-fu-register "script-fu-batch-resize-vers"
    _"_Mehrere Bilder verkleinern... vers"
    "Mehrere Bilder auf einmal auf die gleiche Größe bringen"
    "Cris Berglund"
    "©2010, Cris Berglund"
    "July 23, 2010"
    ""
    SF-STRING "Zu konvertierende Dateien (nur JPG)" "/pfad/zu/bildern/*.jpg"
    SF-VALUE "Neue Grösse" "1024"
    SF-ADJUSTMENT _"Komprinierung" '(0.60 0.00 1.00 .01 .1 1 0)
)

(script-fu-menu-register "script-fu-batch-resize-vers"
    "<Toolbox>/Xtns/Batch")
__________________
Es grüsst Christian
christian84 ist offline   Mit Zitat antworten
 

Lesezeichen

Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 01:40 Uhr.


Powered by vBulletin® Version 3.8.2 (Deutsch)
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.