Transformation de coordonées horizontales en coordonnées équatoriales (Tout en degrés sauf alpha en heures)
procedure function GetHorFromAlphaDelta(AngleHoraire,Delta,ObsLatitude: Double;var Azimuth,Hauteur: Double );
Transformation de coordonées équatoriales en coordonnées horizontales (Tout en degrés sauf alpha en heures)
function GetElevation(DateTime: TDateTime;Alpha,Delta,ObsLatitude,ObsLongitude: Double):double;
Donne la hauteur à la date donnée
function GetElevationNow(Alpha,Delta,ObsLatitude,ObsLongitude: Double):Double;
Donne la hauteur actuelle
function GetAzimuth(DateTime: TDateTime;Alpha,Delta,ObsLatitude,ObsLongitude: Double):Double;
Donne l'azimuth la date donnée
function GetAzimuthNow(Alpha,Delta,ObsLatitude,ObsLongitude: Double):Double;
Donne l'azimuth actuel
function GetHourAngle(DateTime:TDateTime;Alpha,ObsLongitude: Double):Double;
Donne l'angle horaire en fonction de l'ascension droite
function GetAlphaFromHourAngle(DateTime: TDateTime;AH,ObsLongitude: Double):Double;
Donne l'ascension droite en fonction de l'angle horaire
function DistanceToMoon(DateTime: TDateTime;Alpha,Delta: Double):Double;
Donne la distance entre les coordonnées et la lune
function MoonCurrentPhase(DateTime: TDateTime):Double;
Donne la phase de la lune
function DistanceToSun(DateTime: TDateTime;Alpha,Delta: Double):Double;
Donne la distance entre les coordonnées et le soleil
function AirMass(Delta,HA: Double):Double;
Donne la masse d'air traversée
function OpenImage(var pop_image: tpop_image):Boolean;
Appele une boite de dialogue d'ouverture d'une image
Objet Tpop_image
constructor Create(AOwner:TComponent);
Crée une fenêtre image
procedure Close;
Ferme definivement une fenêtre image
procedure VisuStar;
Visualisation stellaire automatique
procedure VisuStarPlane(Nb:Integer);
Visualisation stellaire automatique du plan "Nb"
procedure VisuPlanet;
Visualisation planétaire automatique
procedure VisuPlanetPlane(Nb:Integer);
Visualisation planétaire automatique du plan "Nb"
procedure VisuMinMax;
Visualisation entre les seuils minimum et maximum
procedure Visu(Mini,Maxi:Single);
Visualisation entre les seuils "Mini" et "Maxi"
procedure VisuPlane(Plane:Byte;Mini,Maxi:Single);
Visualisation du plan "Plane" entre les seuils "Mini" et "Maxi"
function ReadImage(FileName:string):Boolean;
Lecture de l'image "Filename"
procedure SaveImage(FileName:string);
Sauvegarde de l'image "Filename" au format par défaut défini dans la configuration
procedure SaveFitsInt(FileName:string);
Sauvegarde de l'image "Filename" au format Fits entier
procedure SaveFitsFloat(FileName:string);
Sauvegarde de l'image "Filename" au format Fits flottant
procedure SaveCpav3(FileName:string);
Sauvegarde de l'image "Filename" au format CPA version 3
procedure SaveCpav4(FileName:string);
Sauvegarde de l'image "Filename" au format CPA version 4
procedure SavePic(FileName:string);
Sauvegarde de l'image "Filename" au format Pic
procedure SaveBmp(FileName:string);
Sauvegarde de l'image à l'écran "Filename" au format Bmp
procedure SaveJpg(FileName:string);
Sauvegarde de l'image à l'écran "Filename" au format Jpg
procedure SaveTxt(FileName:string);
Sauvegarde de l'image "Filename" au format texte
Top
Position de la fenêtre par rapport au haut de l'écran
Left
Position de la fenêtre par rapport à la gauche de l'écran
Height
Hauteur de la fenêtre
Width
Largeur de la fenêtre
Objet Tpop_camera (WinCamera)
procedure Show;
Fait apparaitre la raquette
procedure Hide;
Fait disparaitre la raquette
procedure StartB1;
Appui sur le bouton Start en binning 1x1
procedure StartB2;
Appui sur le bouton Start en binning 2x2
procedure StartB3;
Appui sur le bouton Start en binning 3x3
procedure SetPoseB1(Pose:Single);
Règle le temps de pose en secondes en binning 1x1
procedure SetPoseB2(Pose:Single);
Règle le temps de pose en secondes en binning 2x2
procedure SetPoseB3(Pose:Single);
Règle le temps de pose en secondes en binning 3x3
procedure SetLoopNB(Nb:Integer);
Règle le nombre d'images à prendre lors d'un bouclage
procedure SetStartIndex(Nb:Integer);
Règle l'index de départ d'enregistrement des images
procedure SetImgName(Name:string);
Règle le nom générique d'enregistrement des images
procedure SetLoopOn;
Met en service le bouclage
procedure SetLoopOff;
Met hors service le bouclage
procedure SetAutoSaveOn;
Met en service la sauvegarde automatique
procedure SetAutoSaveOff;
Met hors service la sauvegarde automatique
procedure SetImgType(ImgType:Integer);
Règle le type d'image : 1 = Images 2 = Offset 3 = Noir 4 = Flat
procedure WaitEndAcq;
Attend la fin des acquisitions (Pose+Lecture) lancées par StartB1, StartB2 ou StartB3
procedure WaitEndPose;
Attend la fin des poses lancées par StartB1, StartB2 ou StartB3
procedure SetWindow(x1,y1,x2,y2:Integer);
Régle le fenêtrage en pixels. Comme dans la raquette les coordonnées doivent être entrée en binning 1x1 quelque soit le binning utilisé
procedure InitWindow;
Réinitialise la fenêtrage
procedure SetStatOn;
Met en service les statistiques
procedure SetStatOff;
Met hors service les statistiques
function SetFilter(FilterNb:Integer):Boolean;
Choix du filtre. Cette méthode renvoie un booléen qui est égal à False si le réglage échoue ou si vous avez un caméra sans filtres. Cette fonction sera plus tard transférée dans l'objet roue à filtre.
procedure StartWatch;
Met en service la fonction de surveillance
procedure SetWatchWait(Wait:Single);
Règle le temps d'attente entre de images de surveillance en secondes
procedure SetWatchImgNb(Nb:Integer);
Règle le nombre d'images à enregistrer quand un évènement est détécté en mode surveillance
procedure SetWatchStart(Percent:Integer);
Règle le nombre d'images à enregistrer quand un évènement est détécté en mode surveillance
procedure GetImg(var Img:Tpop_Image);
Permet de récuperer l'objet image qui vient d'être prise afin de la traiter
