probleme variable script

[Jean Gabriel Bosch]

Bonjour,
J'ai un problème pour faire tourner le script ci-dessous.
Il y a un problème à la ligne 125, il ne reconnait pas la variable "sDirCatalogue$" non reconnue ou non initialisée
Ci-dessous le script que j'ai modifié.
Merci d'avance de votre aide,
Cordialement,
JG Bosch

GetVersionScript Version
if Version<1.90
print "Ce script ne peut fonctionner avec votre version de PRISM"
exit
endif
False=0
true=1
REM ----------,
-----------------------------------
rem Parametres utilisateur
rem ---------------------------------------------
rem Ce sont generalement les memes nuit apres nuit
Rem Répertoire du catalogue de reference
rem sDirCatalogue$="C:\Catalogues\Gsc-Act\"

rem Nom du catalogue utiliser pour les mesures
// Catalog that can be used
Cat[1]$="GSC"
Cat[2]$="USNO SA"
Cat[3]$="USNO A1"
Cat[4]$="USNO A2"
Cat[5]$="Hipparcos"
Cat[6]$="SAO"
Cat[7]$="BSC"
Cat[8]$="Tycho1"
Cat[9]$="GSC-ACT"
Cat[10]$="Tycho2"
Cat[11]$="UCAC1/2"

Catalog$=Cat[9]$

rem Image orientée Nord SUD?
NSo=TRUE

rem Nombre d'etoile de comparaison utiliser dans le catalogue
NbStarCat=50

rem Nombre d'etoile de comparaison utiliser dans l'image
NbStarImg=50

Rem degre du polinome de correction de la deformation de l'image
DegPoly=2

REM Réserve de largeur sur la fenetre d'une image
largFen=350

rem ------------------------------------------------------
rem selection des images qui seront utiliser pour les mesures.

Rem
Rem Sélection des images et tri virtuel
Rem


Print "SVP, Sélectionnez les images :"
GetListFileName sAFileList$ nImageCount


rem --------------------------------------------
rem Etalonage astrometrique sur toutes les images
rem --------------------------------------------

Print "Etalonnage astrometrique des images en court!"
print ""

GetScreenX LargEcran

for nImage=1 to nImageCount

Open ImgA sAFileList[nImage]$
SizeWindowX imgA LargEcran-largFen

GetFocus ImgA Focus
rem Print "Focale = " Focus
if Focus=0 then
Print "Remplir l'entete des images avec la focale de l'instrument."
exit
endif

GetSizePixX ImgA TaillePixX
rem Print "Taille Pixel X = " 5.6
GetSizePixY ImgA TaillePixY
rem Print "Taille Pixel Y = " 5.6
if TaillePixX=0 then
Print "Remplir l'entete des images avec la taille des Pixels."
exit
endif
if TaillePixY=0 then
Print "Remplir l'entete des images avec la taille des Pixels."
exit
endif

GetBinX ImgA BinX
rem Print "Binning X = " BinX
GetBinY ImgA BinY
rem Print "Binning Y = " BinY
if BinX=0 then
Print "Remplir l'entete des images avec le Binning des Pixels."
exit
endif
if BinY=0 then
Print "Remplir l'entete des images avec le Binning des Pixels."
exit
endif

GetAlpha ImgA AD
rem Print "Alpha = " AD
GetDelta ImgA DC
rem Print "Delta = " DC
if AD=0 then
Print "Remplir l'entete des images avec la position centrale du champs"
exit
endif
if DC=0 then
Print "Remplir l'entete des images avec la position centrale du champs"
exit
endif

EtalonAstrometrieAuto ImgA Catalog$ Focus TaillePixX*BinX TaillePixY*BinY AD DC NbStarCat NbStarImg NSo DegPoly sDirCatalogue$ Valid

if Valid=1
saveCPA ImgA sAFileList[nImage]$
else
liste$="Calibration echouée Img. "+sAFileList[nImage]$
Print liste$
endif

close imgA

next nImage

end

[Marc DELDEM]

Salut,

Ta variable est précédée par l'instruction REM pour la mettre en commentaire:

Code : Tout sélectionner

rem sDirCatalogue$="C:\Catalogues\Gsc-Act\"

Supprime le REM et met le chemin qui correspond au répertoire contenant le catalogue GSC-ACT.
Marc

[Jean Gabriel Bosch]

Bonjour,

Trop gros pour je le voie !
merci beaucoup,

JG Bosch