Après discussion avec Cyril de la difficulté de lancer une prise de vue en automatique sans la carte du ciel, j'ai décidé de regarder ce que pouvait m'apporter les scripts
J'ai écrit ce petit exemple qui fonctionne très bien en simu (sauf l'enregistrement des images sur le DD, chose peut-être normal en simu)
La question que je n'arrive pas à solutionner c'est la focalisation auto.
Dans l'ex ci-joint, elle fonctionne, mais, il faut être présent pour définir une étoile et cliquer dessus.
Existerai t-il une fonction qui va chercher l'étoile la + brillante par défaut en retournant cx et cy et qui permettrai de ne pas rester à coté ?
Voici le script
1.. Ouverture caméra
2.. Création du répertoire de sauvegarde
3.. Choix du nombre et de la durée des poses par boite de dialogue
4.. Démarrage de la 1° série filtre 1
5.. Focalisation auto (Présence indispensable de l'opérateur pour cliquer sur une étoile)
6.. Démarrage des poses couleurs en faisant tourner les filtres à chaque série
7.. Fermeture caméra
Vous remerciant de toute idée
Fred
Code : Tout sélectionner
REM INIT CAMERA : Init_CCD_Camera
INIT_CCD_CAMERA Valid erreur$
if Valid<>2 then
PRINT erreur$
Endif
REM Répertoire de sauvegarde
sDirSav$="C:\PRISM\TEST\"
resetdlgbox
adddlgbox 2 30 0 "Nombre de poses" 1
dispdlgbox result
getdlgbox Nbpose
resetdlgbox
adddlgbox 2 1200000 1000 "Durée de pose" 1000
dispdlgbox result
getdlgbox tpspose
For i=1 Nbpose
REM Facteur de Binning
nBinning=1
SetBinningX nBinning
SetBinningY nBinning
REM Prise de la première image
SETFILTER 1
StartExposure tpspose
WaitForEndExposure
GetLastImageExposure L1
NEXT I
rem focalisation
False=0
true=1
PRINT "Lancement de la pose de 3s :"
StartExposure 3000
WaitForEndExposure
GetLastImageExposure Img
PRINT "Sélectionner l'étoile :"
GetPoint Img Cx Cy
PRINT "Lancement du processus de focalisation automatique ... "
ExptimeSec=3
Size=40
CentroidSize=20
MinDep=5.0
MaxDep=6.0
Step=0.084
AUTOFOC ExptimeSec Cx Cy Size CentroidSize MinDep MaxDep Step ValueOpt Valid
if Valid=0
print "AUTOFocalisation OK!"
print "A la Position " ValueOpt " mm"
endif
if Valid=1
print "Echec AUTOFocalisation : cause calcul du HDF a échoué !"
endif
if Valid=2
print "Echec AUTOFocalisation : Etoile trop proche du bord de l'image CCD !"
endif
if Valid=3
print "Echec AUTOFocalisation : Etoile trop proche de la saturation !"
endif
if Valid=4
print "Echec AUTOFocalisation : Erreur inconnue dans la boucle d'analyse !"
endif
if Valid=5
print "Echec AUTOFocalisation : Erreur de regression parabolique !"
endif
rem suite de la prise de vue des couleurs
For i=1 Nbpose
SETFILTER 2
nBinning=2
SetBinningX nBinning
SetBinningY nBinning
StartExposure tpspose
WaitForEndExposure
GetLastImageExposure R1
next i
For i=1 Nbpose
SETFILTER 3
nBinning=2
SetBinningX nBinning
SetBinningY nBinning
StartExposure tpspose
WaitForEndExposure
GetLastImageExposure G1
next i
For i=1 Nbpose
SETFILTER 4
nBinning=2
SetBinningX nBinning
SetBinningY nBinning
StartExposure tpspose
WaitForEndExposure
GetLastImageExposure B1
next i
CLOSE_CCD_CAMERAMerci
