redimensionner des images via le lisp

[GEGEMATIC]

Salut à toutes et à tous,

je cherche un programme pilotables via .com pour redimensionner une image et la sauvegarder avec un suffixe "_mini".

J'ai bien GDAL qui doit faire ça, mais la syntaxe, avant que je trouve !

Si vous trouvez un programme en dehors de lisp qui sait faire du traitement par lot dans plusieurs répertoires différents et qui est capable de sauvegarder la miniature de l'image dans le même rep que l'image, je prends aussi !

a+

Gégé

 

[GEGEMATIC]

Finalement j'ai trouvé, comme d'hab la doc est pourrie, il faut faire des test pour y arriver

gdal_translate -outsize 10% 10%  "Source.jpg" "source_mini.jpg"

copie l'image source vers une version mini réduite à 10%

 

[GEGEMATIC]

En fait je me suis emballé,

oui j'ai trouvé la syntaxe de gdal_translate

oui je sais créer un geotiff avec Gdal_translate

mais je n'ai jamais été fichu de manipuler une fenêtre d'invite de commande avec lisp:

Les activex "Wscript.Shell", "Scripting.Filesystemobject" ou encore "Shell.Application" ne marchent pas pour ça

je ne suis même pas capable de lancer la fenêtre osGeo dans un startapp:

(startapp "C:\Program Files\QGIS 3.22.7\bin\o4w_env.bat") ne marche pas

ce qui marche c'est Commande: SHELL "C:\Program Files\QGIS 3.22.7\OSGeo4W.bat"

mais dans ce cas, je perd le contrôle de la fenêtre, et ça ne me sert à rien.

si vous avez des idées pour créer mes miniatures ...

a+

Gégé

[Olivier Eckmann]

Salut Gégé,

 

Tu as regardé du côté des expresstools?  acet-sys-spawn     acet-sys-wait    acet-sys-term

https://www.afralisp.net/archive/lisp/acet-utils.htm

 

Olivier

[Olivier Eckmann]

Sinon, il y a peut-être ça pour la manipulation d'image plus simple que GDAL? 

https://imagemagick.org/script/command-line-processing.php

 

Olivier

[bonuscad]

Citation

Si vous trouvez un programme en dehors de lisp qui sait faire du traitement par lot dans plusieurs répertoires différents et qui est capable de sauvegarder la miniature de l'image dans le même rep que l'image, je prends aussi !

Pour l'avoir déjà utilisé, IrfanView 64 permet de faire du traitement par lot.

Dans mon cas je l'avais utilisé pour passer du scan25 de l'IGN d'un département entier qui sont en couleur pour obtenir des images identiques en 256 niveaux de gris. La raison était que l'insertion de projets en couleur soient très visible lors de présentation. L'opération avait très bien fonctionné.

Même s'il y a beaucoup d'options dans ce logiciel qui ne sont pas forcément évidentes lors d'une première utilisation, il est très efficace.

Je pense que la création de vignettes est a sa portée.

[Olivier Eckmann]

xnviewmp https://www.xnview.com/fr/xnviewmp/ fait le boulot en traitement par lot.

vidéo : https://autode.sk/3sfdSKo

 

Olivier

[GEGEMATIC]

Salut les gars, et merci !

il y a 35 minutes, Olivier Eckmann a dit :

Tu as regardé du côté des expresstools?  acet-sys-spawn     acet-sys-wait    acet-sys-term

Commande: (acet-sys-spawn 1 "C:\Program Files\QGIS 3.22.7\bin\o4w_env.bat")
-1

et puis c'est tout ...

il y a 33 minutes, Olivier Eckmann a dit :

Sinon, il y a peut-être ça pour la manipulation d'image plus simple que GDAL? 

https://imagemagick.org/script/command-line-processing.php

J'ai une vielle version d'imagemagick, j'en avais besoins pour gsview il me semble, je vais télécharger la dernière

il y a 15 minutes, bonuscad a dit :

Pour l'avoir déjà utilisé, IrfanView 64 permet de faire du traitement par lot.

Je pense que la création de vignettes est a sa portée.

xnview le fait aussi, mais avec un seul répertoire output, donc dans mon cas ça marche pas, et si tu dis que la syntaxe est compliquée ... mais je garde l'info.

 

[GEGEMATIC]

il y a 9 minutes, Olivier Eckmann a dit :

xnviewmp https://www.xnview.com/fr/xnviewmp/ fait le boulot en traitement par lot.

vidéo : https://autode.sk/3sfdSKo

 

Olivier

merci Olivier, je vois Xnview a bien évolué !

sur ta vidéo je n'ai pas vu si on pouvait rechercher les images dans les sous répertoires ?

c'est ça mon problème, j'ai des tas de sous répertoire ...

 

[bonuscad]

Citation

si tu dis que la syntaxe est compliquée

Il n'y a pas de syntaxe tout se fait dans des fenêtres de dialogues avec des options à cocher/choisir et elles sont nombreuses... c'est là qu'on peut se sentir un peu perdu!

[Olivier Eckmann]

Alors, ce n'est pas Xnview, mais XnViewMP  la version plus évoluée, mais toujours gratuite.

On ne peut pas explorer tous les sous dossiers d'un dossier, via le bouton ajout, par contre on peut glisser déposer depuis l'explorateur et tous les fichiers images se trouvant dans les dossiers/sous-dossier sont automatiquement ajoutées.

https://autode.sk/3eNQf8u

Olivier

[GEGEMATIC]

salut, encore merci,

finalement j'ai opté pour la génération d'un batch en lisp, avec imagemagick,

car j'ai tellement de sous répertoire que ça peut être long d'alimenter xnview, et si je change d'avis sur la taille de l'image, son format etc.. je dois tout recommencer.

bien sur il y avait un piège! le maudi % dans un bat. Par réussi à régler le pb, pour l'instant j'opte pour une largeur fixe.

Voilà ce que ça donne:

(defun c:cree_mignatures_jpg (/ dir lfile chem nom ext  f)
  (setq dir (pw_pick_directory "Choisir un répertoire" dir))
  (setq lfile (FindFilesLike dir "*.jpg" "AllDirectories"))
  (setq f (open (strcat dir "\\2mignature.bat") "w"))
  (write-line "CHCP 1252" f)
  (foreach im lfile
    (setq chem  (vl-filename-directory im)
	  nom (vl-filename-base im)
	  ext (vl-filename-extension im))
    (write-line (strcat "magick \"" im "\" -resize 200 \"" chem "\\" nom "_mini" ext "\"") f)
  )
  (write-line "PAUSE" f)
  (close f)
)

pour FindfileLike:

sujet findfileslike

sinon il est dans la dll jointe

usage (FindFilesLike "Directory" "filepattern" "mode = TopDirectoryOnly or AllDirectories")

 

G-Eaux_Map_Extensions.dll

[GEGEMATIC]

J'ai corrigé le code, car il ne marchait pas avec les carractères accentués !

[GEGEMATIC]

CurlyGoth m'a proposé également un truc interressant, car c'est direct dans windows: WIA

Pour créer le conteneur:

(setq img (vlax-create-object "WIA.ImageProcess"))

Pour savoir ce qu'on peut faire avec :

https://silkyroad.developpez.com/VBA/WindowsImageAcquisition/