Probleme avec la fonction Shifttelescope

[JC Dalouzy]

Bonsoir à tous,

Je suis en train d'écrire un script et j'ai souhaiterai déplacer le télescope (monture GM1000HPS) avec la fonction shifttelescope. Malheureusement quand j'utilise cette fonction, il ne se passe rien. Par contre, quand j'utilise la fonction movetelescope avec des coordonnées le télescope pointe correctement le champ demandé.

Avez vous une idée du problème ?
Merci par avance,
Cordialement,
Jean-Christophe

[Cyril Cavadore]

Je vais regarder ce soir.

Cdt

[JC Dalouzy]

Bonjour Cyril,

Alors as-tu pu faire le test pour voir si ça marche chez toi ?

Cordialement,
Jean-Christophe

[Cyril Cavadore]

Non pas encore, désolé...

[Fontaine Bruno]

J'essai d'utiliser la fonction ShiftTelescope pour recaler à intervalles réguliers la monture sur une image de référence prise en début d'une série.
La fonction ShiftTelescope semble fonctionner de façon assez erratique.
En mode contournement, j'utilise la fonction Get_Telescope_Position, puis calcul la nouvelle position en radians pour le recalage et utilise la fonction MoveTelescope Heures Minutes Secondes Degres MinutesD SecondsD pour recaler ce dernier. (et ré-utilise Get_Telescope_Position pour contrôler le résultat)
Hélas Secondes et SecondsD sont des variables entières, ce qui fait que le recalage en déclinaison est précis à +/- 0,5 secondes d'arc, mais celui en angle horaire peut varier aléatoirement dans une fourchette +/- 8 secondes d'arc, ce qui est beaucoup trop pour recaler correctement le télescope.
J'avais le même problème d'imprécision si l'appel de la fonction MoveTelescope se fait en radians, car je pense qu'en interne de PRISM la conversion est effectuée en Heures Minutes Secondes dans l'interface ASCOM pour la monture ?
L'idéal serait que:
- soit la fonction ShiftTelescope marche
- soit que les variables Secondes et SecondsD puissent être des valeurs réelles (éventuellement limitées à 2 décimales derrière la virgule)
Merci de votre aide
(j'ai joint le code test réalisé pour tester ShiftTelescope et Move Telescope)

Contexte :
PRISM 11.4.18
Monture ASA DDM85 Direct Drive- Logiciel Autoslew - Driver ASCOM Astrooptik Server Telescope (la monture est précise à environ 0,2 secondes d'arc)

Code : Tout sélectionner

 
 // Test shift telescope 
// K: coefficient de conversion de radains en secondes d'arc
// cette version V1 marche mais la prÈcision du move n'est pas excellente du fait de la nÈcessitÈ d'avoir des valeurs entiËres pour les secondes (mauvais surtout pour AD)
K=(180/PI)*3600
Deb:
    input "Valeur du shift X en secondes d'arc Dx: " DX2
    Input "Valeur du Shift Y en secondes d'arc Dy: " DY2
	GET_TELESCOPE_POSITION AD2000V DE2000V Haut Azi Angle
	STR_RAD_TO_RA AD2000V HH$ MM$ SS$
	STR_RAD_TO_DEC DE2000V DD$ DM$ DS$
	Print "AD2000V: " AD2000V
	Shift$="avant "
	Mes$="Ascension droite 2000: "+Shift$+HH$+"h "+MM$+"m "+SS$+"s"
	Print Mes$
	PRINT "DE2000V: " DE2000V
	Mes$="Declinaison 2000: "+Shift$+DD$+"deg  "+DM$+"min  "+DS$+"sec"
	Print Mes$	
	
	Print "DX DY:" DX2 "   " DY2
	// Conversion en radians
	DX3=DX2/K
	DY3=DY2/K
	AD2000N=AD2000V+DX3
	DE2000N=DE2000V+DY3
	Print "/// DÈbut du Move telescope"
	
	Print "AD DE: " AD2000N   "   " DE2000N
	STR_RAD_TO_RA AD2000N Heure$ Minute$ Secondes$
	
	STR_RAD_TO_DEC DE2000N Degre$ MinutesD$ SecondesD$
	
	VAL Heure$ Heures
	VAL Minute$ Minutes
	VAL Secondes$ Sec
	ROUND Sec Secondes
	STR Secondes Secondes$
	Print "Move to AD: " Heure$ "h  " Minute$ "m  " Secondes$ "s"
	VAL Degre$ Degres
	VAL MinutesD$ MinutesD
	VAL SecondesD$ SecD
	ROUND SecD SecondsD
	STR SecondsD SecondesD$
	Print "Move to DE: " Degre$ "D  " MinutesD$ "Md  " SecondesD$ "Sd"
	
	MoveTelescope Heures Minutes Secondes Degres MinutesD SecondsD
//	SHIFTTELESCOPE  DX2  DY2
//	SHIFTTELESCOPE 0 0 : mÍme pour des valeurs nulles, le tÈlescope est dÈplacÈ 
  	WaitForEndMoveTelescope
//  	Delay 2000
//  	WaitForEndDelay
   
	GET_TELESCOPE_POSITION AD2000P DE2000P Haut Azi Angle
	STR_RAD_TO_RA AD2000P HH$ MM$ SS$
	STR_RAD_TO_DEC DE2000P DD$ DM$ DS$
	Shift$="AprËs "
	Print "AD2000P: " AD2000P
	Mes$="Ascension droite 2000: "+Shift$+HH$+"h "+MM$+"m "+SS$+"s"
	Print Mes$
	PRINT "DE2000P: " DE2000P
	Mes$="Declinaison 2000: "+Shift$+DD$+"deg  "+DM$+"min  "+DS$+"sec"
 	Print Mes$
 	DeltaAD=K*(AD2000P-AD2000V)
 	DeltaDE=K*(DE2000P-DE2000V)
 	Print "Delta AD: " DeltaAD "    Delta DE: " DeltaDE
 	Print "//// Fin de la sÈrie"
 	
 	Goto Deb: