für alle, die hier landen weil sie nur gimp und keine root rechte haben und auf dieses script quasi angewiesen sind in gimp 2.6 zeiten......

hier mein 2.6 mod. http://www.multiupload.nl/LBWH9IC91S

ist quasi die 2.4 mit den nötigen modifikationen und ner readme dazu als zip.

enjoy!

Nachtrag zu Unten: Die Ausgangsbilder haben oft unterschiedliche Größen :-( ..sonst wäre es ja einfach ;-)

Hallo,
ich bin bin, was Bildbearbeitung-und damit auch Gimp-angeht, absoluter Newebe, Habe bisher nur mehr schelcht als recht ein wenig mit Beleuchtungseffekten rumgebastelt. Jetzt muss ich öfter viele Bilder, die teilweise auch in Unterordnern sind, auf eine einheitliche Grösse (1000 x 781) bringen. Zu beachten dabei: Das Verhältnis muss behalten werden, so dass nur die passende Seite als Mass auszuwählen ist. dann das ganze auf eine weisse Ebene bringen wg. des HG, einmal so speichern, einmal zusätzlich mit einer weiteren Ebene ( einem Hinweis) speichern. Geht so was überhaupt per script?
Ich nutze Gimp portable und weiß im Moment auch gar nicht, wo ich das script speichern sollte. Bin ich hier nun richtig oder von der Kenntnis her zu low? Bin ansonsten nicht so ganz unbedarft ;-)
Schon mal Danke für eine Antwort!

das script macht mir seit wenigen tagen probleme, die mir bisher nicht aufgefallen sind. FEHLERMELDUNG: Error: car: argument 1 must be: pair

die onlinesuche hat mir nicht weitergeholfen und bin dann zufällig beim draufsehen auf eine merkwürdigkeit gestossen.

das problem tritt auf, wenn kein bild mir der endung '.JPG' (großbuchstaben) im verzeichnis ist. bei einem versuche waren es dann 2 dateien mit '.JGP' und 4 dateien mit '.jpg' (kleingeschrieben). die zwie mit JPG wurden dann auch verkleinert, die 4 (.jpg) wurden ohne fehlermeldung übergangen. nachdem ich die 4 von '.jpg' auf '.JPG' umbenannt habe, wurde auch diese richtig in der größe verändert.
hab versucht im skript fast unten in der zeile
### (let* ((files (file-glob (string-append SourceFolder "/*.JPG") 0))) #####
das *.JPG durch *.jpg (klein) zu ersetzte.
es werden dennoch nur dateien mit groß geschriebener dateiendung vom skript erkannt und verarbeitet.

gibt es da eine lösung dass groß- und kleinschreibung egal ist?

thks vorweg
lg franz

Wenn's nur um das Skalieren geht, verwende ich auch convert bzw. mogrify und dazu das Tool parallel, damit alle Prozessoren genutzt werden: http://www.gnu.org/software/parallel/man.html

Das mit dem convert (1) ist ja super.
- mit vi und Copy+Paste small.sh erstellen (5 sec)
- chmod u+x small.sh (1 sec)
- ./small.sh
und nach ganzen sechs Sekunden ist meine Mühle am skalieren.

Habe den Vorschlag von Petr Andreev aufgegriffen und zusätzlich den Code mit der Funktion erweitert, dass der Quell- und Zielordner eingegeben werden können:

Läuft unter GIMP 2.6.11:

;--- Im GIMP und im Menü registrieren ---------

(script-fu-register
"script-fu-resize" ;Funktionsname
_"_Bilder eines Ordners skalieren" ;Menutext
"Alle Bilder eines Ordners skalieren und in einem\
Zielordner abspeichern" ;Beschreibung
"Stefan Betschart" ;Author
"Copyright 2012, sb" ;Copyright
"01.01.2012" ;Erstellungsdatum
"" ;Bildtyp auf dem das Skript basiert
SF-DIRNAME "Quellenverzeichnis" "C:\\Daten\\" ;String-Variable
SF-DIRNAME "Zielverzeichnis" "C:\\Daten\\ResizedFotos" ;String-Variable
SF-VALUE "Neue Bildbreite" "800" ;Wert-Variable
SF-VALUE "Neue Bildhoehe" "600") ;Wert-variable

(script-fu-menu-register "script-fu-resize"
"/File/Resize")

;--- Code -------------------------------------

(define (script-fu-resize SourceFolder TargetFolder max-x max-y)

(define (new-sizes img newx newy)

(let* ( (width (car (gimp-image-width img)))
(height (car (gimp-image-height img)))
(ratio (min (/ newx width) (/ newy height)))
)

(list (* ratio width) (* ratio height))
)
)

(define (resize-img n f)

(let* ( (fname (car f))
(img (car (gimp-file-load 1 fname fname)))
(new-xy (new-sizes img max-x max-y))
(Targetfname fname)
)

(gimp-image-undo-disable img)
(set! Targetfname (string-append TargetFolder "\\" (car(gimp-image-get-name img))))
(gimp-image-scale img (car new-xy) (cadr new-xy))
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) Targetfname Targetfname)
(gimp-image-delete img)

)

(if (= n 1) 1 (resize-img (- n 1) (cdr f)))

)

(let* ((files (file-glob (string-append SourceFolder "\\*.jpg") 0)))

(resize-img (car files) (car (cdr files)))
)

)

leider kann ich das das Script nach der o.a. Installation nirgends finden (GIMP 2.6) Xtns / Verschiedenes / Mehrere Bilder verkleinern… finde ich da nirgends ... Weiß jemand wo ich suchen muss?
Danke!

Der Kommentar vor 5 Min "mit installiertem ImageMagick genügt mir, bei meinen geringen Ansprüchen im jeweiligen Verzeichnis schon "mogrify -resize irgendwasxirgendwas *.jpg" stammt von mir (helmeloh), aber auf meinem PC war versehentlich redforce angemeldet, sorry.

mit installiertem ImageMagick genügt mir, bei meinen geringen Ansprüchen im jeweiligen Verzeichnis schon "mogrify -resize irgendwasxirgendwas *.jpg"

Okay, nichts für ungut: hinter dem ersten Anführungszeichen muss stehen. Sobald man den Kommentar postet verschwindet der Text Kleinerzeichen Toolbox Größerzeichen.

Sagt mal, probiert ihr eigentlich auch aus was ihr schreibt?
Gimp 2.6.10 benötigt folgende letzte Zeile:
"/Filters/Batch/")
Sonst wird das nichts.

I’ve been visiting your blog for a while now and I always find a gem in your new posts. Thanks for sharing.

es waere durchaus schlau auch ein ausgabeverzeichnis anzugeben, sonst werden die schoenen originale ueberschrieben. sogesehen.... bevorzuge ich imagemagick, einfach und unumstaendlich und kein scheme gewusel mit versionsproblemen!

Hallo zusammen,

ich hab oben den neuen script mit der endung für 2.6 rein gemacht, aber bei mir funktioniert es überhautpt nicht :( wie kann man den einen script öffnen und bearbeiten oder bzw. wie kann ich ein script schreiben, muss man da ein anderes programm für haben damit man scripts schreiben kann?

lg

Margarita

sorry - Fehlerhafte Pfadangabe

Beim Ausführen dieses Skriptes erhalte ich folgende Fehlermeldung:
Fehler beim Ausführen von script-fu-batch-resize:

Error: car: argument 1 must be: pair

Kann mir bitte jemand weiterhelfen?

Zu Beitrag 19:

Für Gimp 2.6 muss die letzte Zeile lauten:
"/Filters/Batch/")

Gruß, moewe2.

Gibt doch von MS ein Tool names Imageresizer, ist direkt im Kontex-Menü eingebunden.

also bei mir funktioniert es nicht

Hi, ich habe das Script mal für Gimp 2.6 angepasst:

(define (script-fu-batch-resize globexp max-x max-y)
(define (new-sizes img newx newy)
(let* (
(width (car (gimp-image-width img)))
(height (car (gimp-image-height img)))
(ratio (min (/ newx width) (/ newy height)))
)
(list (* ratio width) (* ratio height))
)
)
(define (resize-img n f)
(let* (
(fname (car f))
(img (car (gimp-file-load 1 fname fname)))
(new-xy (new-sizes img max-x max-y))
)
(gimp-image-undo-disable img)
(gimp-image-scale img (car new-xy) (cadr new-xy))
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) fname fname)
(gimp-image-delete img)
)
(if (= n 1) 1 (resize-img (- n 1) (cdr f)))
)
(let* ((files (file-glob globexp 0)))
(resize-img (car files) (car (cdr files)))
)
)
; Im GIMP und im Menü registrieren
(script-fu-register "script-fu-batch-resize"
_"_Mehrere Bilder verkleinern..."
"Mehrere Bilder auf einmal auf die gleiche Größe bringen"
"Richard Hirner"
"2006, Richard Hirner"
"Sep 7, 2006"
""
SF-STRING "Zu konvertierende Dateien" "H:\\Bilder\\2009_05_08_Hochzeit\\Aufbereitet_DVD\\01_Standesamt\\to\\*.jpg"
SF-VALUE "Neue horizontale Größe" "1920"
SF-VALUE "Neue vertikale Größe" "1080")
(script-fu-menu-register "script-fu-batch-resize"
"/Xtns/Misc")

Jep, bei mir mit der Version 2.6.1 geht auch nix :(

ich habe opensuse mit gimp 2.6.2, da funzt keines der scripte....keine fehlermeldung nix.... :-(

Unter Windows und Gimp 2.4.6 klappt es bei mir mit der Zeile:

SF-STRING "Zu konvertierende Dateien" "C:\\Foto_resize\\*.jpg"

Das Zeichen \ muß doppelt geschrieben werden!

Habe ebenfalls das Problem:

Fehler beim Ausführen von
(script-fu-batch-resize "\\Temp\\*.jpg" 1280 1024)

Error: set!: unbound variable: files

Die Fotos liegen unter C:\Temp
der eingegebene Pfad für die zu konvertierenden Dateien war \Temp\*.jpg

Bin Windows XP user
Gimpversion 2.4.6
Skrip benutze ich batch-resize-2.4.scm

könntet ihr mir weiterhelfen was ich falsch mache?

Ich bekomme ebenfalls die Fehlermeldung: Error: set!: unbound variable: files in der Version 2.4.6 unter Win XP Prof SP 3

Tach auch. Bekomme ebenfals den fehler Error: set!: unbound variable: files mit Gimp 2.4.5 mit dem script 2.4

Bekomme immer wenn ich das Script ausführen möchte

Error: car: argument 1 must be: pair

Benutze GIMP 2.4.5

Funktioniert, danke! was mich jedoch noch stört (ohne zu meckern): Die Originaldateien werden übschrieben. Kann man nicht den Dateinamen des verkleinerten Bildes mit einem Zusatz versehen, z.B. File2345.jpg (gross) und das verkleinerte Bild als File2345_k.jpg abspeichern.

Ich finde die Idee auch gut, dass man nur eine Grösse angibt und das Seitenverhältnis beibehält. Ich habe nämlich im Verzeichnis der Urlaubsbilder Hochkantbilder seltsam gestaucht. Das hätte auch Vorteile für Bilder, aus denen man Ausschnitte gewählt hat und sich ein "krummes" Seitenverhältnis ergibt.

Hat das schon mal jemand versucht?

So läuft es bei mir jetzt mit Gimp 2.4:

(define (script-fu-batch-resize globexp newx newy)
(define (resize-img n f)
(let* ((fname (car f))
(img (car (gimp-file-load 1 fname fname))))
(gimp-image-undo-disable img)
(gimp-image-scale img newx newy)
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) fname fname)
(gimp-image-delete img)
)
(if (= n 1) 1 (resize-img (- n 1) (cdr f)))
)
(let* ((files (cadr (file-glob globexp 0))))
(set! files (file-glob globexp 0))
(resize-img (car files) (car (cdr files))))
)

; Im GIMP und im Menü registrieren
(script-fu-register "script-fu-batch-resize"
_"_Mehrere Bilder verkleinern..."
"Mehrere Bilder auf einmal auf die gleiche Größe bringen"
"Richard Hirner"
"2006, Richard Hirner"
"Sep 7, 2006"
""
SF-STRING "Zu konvertierende Dateien" "D:\Fotos\\*.JPG"
SF-VALUE "Neue horizontale Größe" "800"
SF-VALUE "Neue vertikale Größe" "600")
(script-fu-menu-register "script-fu-batch-resize"
"/Xtns/Misc")

Bei Gimp 2.4.1 und dem Script für 2.4 bekomme ich ebenfalls die Fehlermeldung:
Error: set!: unbound variable: files

Ist es möglich nur einen Wert zu vergeben und den anderen durch Gimp bestimmen zu lassen zwecks bei Behaltung der Seitenverhältnisse??

Danke an Euch beide Richard und auch Petr Andreev für das Script. Die Änderungen von Peter sind super!

3 Wünsche - keine Ahnung, ob man das realisieren kann:
1. Irfanviev macht es so, dass man wählen kann, wie lang die länge Seite des Fotos gesetzt wird. Das ist sehr komfortabel
2. Wenn man einfache eine maximale Dateigröße oder den Komprimierungswert bestimmen könnte, wäre das auch super. z.B. alle Deteien max. 150 Kbyte.
3. Schön wäre wenn man ein zweites Verzeichnis wählen könnte und die ursprünglichen Dateien erhalten blieben.

Wie gesagt, das sind so meine Ideen. Soll keine Meckerei oder Gängelung sein. Wäre toll, wenn das eine oder andere irgendwie möglich wäre.
Vielen dank an Alle! So macht Open Source Spaß

Holger

Hallo,

ich benutze gimp-2.3 und das einlesen des verzeichnisses klappt einfach nicht. es kommt immer die meldung:

Error while executing
(script-fu-batch-resize "/home/alex/test/*.jpg" 1280 1024)

Error: set!: unbound variable: files

brauche hilfe!
vielen dank schonmal!

Hi,
there is a small mistake in the shell script at the top example.

Im angegebenen Beispiel ist ein kleiner Flüchtigkeitsfehler aufgetreten:
=======
Beispiel:
mkdir small
for $f in *.jpg
do convert $f -resize 1024x768 small/$f.gif
done
========
for $f...ist so nicht möglich, die Variable "f" wird ja erst mit Inhalt gefüllt und ist daher zunächst nur mit "f" anzugeben, also:
for f...

...wie gesagt, nur eine Kleinigkeit...
Ich hab hier noch ein kleines praktisches Beispiel von mir hinzugefügt:

me@bash:MeineBilder$ mkdir 640x400.img
me@bash:MeineBilder$ for bild in *.JPG; do convert $bild -resize 640x480 640x400.img/$bild; done;

Hallo,

unter Windows müsst Ihr statt "/pfad/zu/bildern/*.jpg"

"\pfad\zu\bildern\*.jpg"
notieren, dann geht es auch.

Habe das gleiche Problem wie float!
Habe absolute und relative Pfadangaben probiert.

Hey,
danke für das Script. Leider ruft es bei mir nur eine Fehlermeldung hervor.

Ich nutze Gimp 2.2 unter Kubuntu.
Die fehlermeldung lautet:

"Skript-Fu Fehler beim Ausführen von
(script-fu-batch-resize "/media/daten1/Eigene Dateien/Bilder/Geburtstag Jens 26 + Sanna 24 06.01.2007/*.jpg" 1280 1024)
ERROR: Invalid type for argument 2 to gimp_file_load"

Ich habe das Script 2.2 und 2.4 getestet.Beide Scripte gaben diesen Fehler aus.

Eine verbesserte Version des Skriptes, die verwahrt das Aspekt-Ratio:

(define (script-fu-batch-resize globexp max-x max-y)
(define (new-sizes img newx newy)
(let* (
(width (car (gimp-image-width img)))
(height (car (gimp-image-height img)))
(ratio (min (/ newx width) (/ newy height)))
)
(list (* ratio width) (* ratio height))
)
)
(define (resize-img n f)
(let* (
(fname (car f))
(img (car (gimp-file-load 1 fname fname)))
(new-xy (new-sizes img max-x max-y))
)
(gimp-image-undo-disable img)
(gimp-image-scale img (car new-xy) (cadr new-xy) 0 0)
(gimp-file-save 1 img (car (gimp-image-get-active-drawable img)) fname fname)
(gimp-image-delete img)
)
(if (= n 1) 1 (resize-img (- n 1) (cdr f)))
)
(set! files (file-glob globexp 0))
(resize-img (car files) (car (cdr files)))
)