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 25.03.2010, 21:32   #1
MontgomeryBurns
Neuer Benutzer
 
Registriert seit: 24.04.2009
Beiträge: 14
Standard Fehler im Skript

Hallo,

ich habe vor einiger Zeit ein kleines Skript geschrieben, welches automatisch Bilder skaliert, schärft und speichert. Ich hab es jetzt schon einige Zeit nicht benutzt. Einen neuen PC (Win7 64bit) und (wahrscheinlich) auch eine aktueller Version von Gimp (2.6.8 32bit).

Nun wollte ich das (unveränderte!!!) Skript nutzen, doch es kommt eine Fehlermeldung:

ERROR: EVAL: unbound variable: cadr

Aber es ging doch schonmal?

Wo liegt der Fehler?

Code:
(define (CutAndScale image  drawable)
(let* (
    (selection (cdr  (gimp-selection-bounds image)))
         (x1 (car selection))
         (y1 (cadr selection))
         (x2 (caddr selection))
         (y2 (cadddr selection))
        (width (- x2 x1))
         (height (- y2 y1))
         (xoffset x1)
         (yoffset y1)
    )

    (if     (or (< width  450)(< height  450))
        (begin
        (gimp-message-set-handler 2)
                (gimp-message "Auswahl zu klein")
                (list -1 -1)
        (gimp-message-set-handler 0)
        )
        (begin



        (gimp-image-crop image width height xoffset yoffset)
        (if     (< width  height)
            (gimp-image-scale image 450 600)
            (gimp-image-scale image 600 450)
        )
            (plug-in-sharpen 1 image drawable 25) ;1-Menü wird angezeigt 0-wird nicht angezeigt
            (let* (
                          (filename (car (gimp-image-get-filename image))); kompletter Pfad
                          (name     (car (gimp-image-get-name image)))
                          (pathname (substring filename 0 (- (string-length filename) (string-length name))))
                          (prefix   (substring name 0 (- (string-length name) 4)))
                    (filename_new    (string-append pathname "_StudiVZ_"prefix ".jpg")) 
                      )

                ;    (gimp-file-save 1 image drawable filename_new filename_new)
                     (file-jpeg-save 
                        1 ;run-mode
                        image ;image
                        drawable ;drawable
                        filename_new ;filename
                        filename_new ;raw-filename
                        0.9 ;quality
                        0 ;smoothing
                        1 ;optimize
                        1 ;progressive
                        "(c) xxx" ;comment
                        0 ;subsmp
                        1 ;baseline
                        0 ;restart
                        0;dct
                    )
             ) 
            (gimp-image-clean-all image) ;so tun, als wäre das Bild nicht geändert
            (gimp-display-new image) ;zeigt das neu erzeugte Bild an
       )
         )
    )
)
(script-fu-register
    "CutAndScale"
    "<Image>/Skripte/StudiVZ"
    ""
    "xxx"
    ""
    "2009-04-24"
    ""
    SF-IMAGE "IMAGE" 0
    SF-DRAWABLE "LAYER" 0
)
MontgomeryBurns 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

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Skript für Slideshow WireWolf Löschkandidaten 6 17.09.2009 16:59
Skript zum automatischen Freistellen sasch GIMP-Ressourcen 5 03.08.2004 13:31


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


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