Fenêtrage d'un lot d'images

L'utilisation et la création des scripts.
Répondre
Marc DELDEM
Messages : 1264
Enregistré le : 20 juin 2009, 01:01

Fenêtrage d'un lot d'images

Message par Marc DELDEM »

Bonjour,

Voici un script pour fenêtrer un lot d'images.
Je m'en sers dans le prétraitement des images:
- Je fais un prétraitement classique (retrait offset, dark, flat)
- Je fais un recentrage des images sur la première
- Je fais un fenêtrage des images afin de ne plus avoir de zones non communes entre toutes les images (nécessaire pour avoir une bonne addition en sigma-kappa, voir la discussion ici viewtopic.php?f=18&t=567)
- Et seulement ensuite je fais l'addition sigma-kappa sur les images fenêtrées.

Le script en question:
// ============================================
// Effectue un fenetrage sur une série d'images
// ============================================

// Affiche un dialogue pour saisir les valeurs du fenetrage
// --------------------------------------------------------

// Valeurs initiales (taille d'une image d'un CCD ST8)
XMin=1
XMax=1530
YMax=1020
YMin=1

// Configuration du dialogue
PRINT "Choisissez les valeurs du fenetrage."
PRINT "Attention Y1 doit etre PLUS GRAND que Y2"
RESETDLGBOX
ADDDLGBOX 2 XMax XMin "Fenêtrage X1:" XMin
ADDDLGBOX 2 XMax XMin "Fenêtrage X2:" XMax
ADDDLGBOX 2 YMax YMin "Fenêtrage Y1:" YMax
ADDDLGBOX 2 XMax XMin "Fenêtrage Y2:" YMin
ADDDLGBOX 7 "Liste de fichiers"

// Affichage du dialogue
DISPDLGBOX result
IF (result=1)
GETDLGBOX X1
GETDLGBOX X2
GETDLGBOX Y1
GETDLGBOX Y2
GETDLGBOX ListeFile$ NbFile
PRINT "Valeur du fenetrage: X1=" X1 ", X2=" X2 ", Y1=" Y1 ", Y2=" Y2
ELSE
EXIT
ENDIF

FOR i=1 TO NbFile
//Ouverture de l'image
PRINT "image: " ListeFile$
OPEN Img ListeFile$

//Fenetrage
WINDOW Img X1 Y2 X2 Y1

//Changer le nom : On ajoute "decal_" devant chaque nom d'image
EXTRACTFILENAME ListeFile$ VaroutName$
VaroutName$="decal_"+VaroutName$
EXTRACTFILEPATH ListeFile$ VaroutRep$
ListeFile$=VaroutRep$+VaroutName$

//Sauvegarde et fermeture de l'image
PRINT "image sauvegardée: " ListeFile$
SAVECPA Img ListeFile$
CLOSE Img
NEXT i


Marc
Répondre