Planétarium virtuel.

    file_open_write 99,"date.cfg"

    file_open_write 99,"data/date.cfg"

2
8
2018
21
0
0

for k%=807 to 814:delete k%:next k%

if object_exists(801)=1 then delete 801

88:label fin_chercher_astre
89:label fin_lire_evenements
90label fin_date_actuelle
100:label fin_zoom
1204:   draaw(): rem compilateur
1477:           grid_write 335,i%,4,str$(rayon_vecteur(1)): rem compilateur str$
1486:           grid_write 335,i%,7,str$(magnitude_lune): rem compilateur str$
1496:           grid_write 335,i%,7,str$(magnitude_planete(numero_astre%)): rem compilateur str$
1507:end_sub: rem compilateur remplace return
3150:        nom$=file_readln$(99): rem compilateur
3402:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
3417:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
3457:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
3470:    file_open_read 99,"mode.ini":mode$=file_readln$(99):file_close 99: rem compilateur
3507:          tableau_noms_etoiles$(indice%)=file_readln$(99): rem compilateur
3513:    file_open_read 99,"version.ini":version$=file_readln$(99):file_close 99: rem compilateur
3517:    file_open_read 99,"vue_init.ini":mode$=file_readln$(99):file_close 99: rem compilateur
3529:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
3693:    rem compilateur duplication dim liste_planetes$(10)
3701:    rem compilateur SUB non déclaré effacer_tableau_objets()
3703:    rem compilateur integer te$=message_input("Séparations angulaires.","Cette option permet de déterminer, lors de l'animation, la séparation angulaire"+crlf$+"entre deux astres du système solaire."+crlf$+"Cliquez sur 'annuler' pour la refuser."+crlf$+"Choix du 1er astre.","")
3711:    rem compilateur integer te$=message_input("Séparations angulaires.","Cette option permet de déterminer, lors de l'animation, la séparation angulaire"+crlf$+"entre deux astres du système solaire."+crlf$+"Cliquez sur 'annuler' pour la refuser."+crlf$+"Choix du 2è astre.","")
3719:    rem compilateur variable non déclarée nombre_periodes_entre_chaque_animation%=val(texte12)
3720:    rem compilateur delai_animation$=liste1.getSelectedItem()
3741:    rem compilateur variable non déclarée if source=bouton62 or source=bouton65 then nombre_animations%=val(texte13.getText())
3743:    rem compilateur mon_timer.schedule(new afficher_animation(),1000,500)
3752:    rem compilateur SUB non déclaré repeindre()
3758:       rem compilateur SUB non déclaré calculer_coordonnees_topocentriques()
3761:       rem compilateur SUB non déclaré calculer_coordonnees_topocentriques()
3770:       rem compilateur mon_timer.cancel()
3772:       rem compilateur dialogue16.setVisible(false)
3785:    rem compilateur SUB non déclaré determiner_date()
3812:    rem compilateur variable non déclarée if pas_mouvement="année" then increment_calcul=increment_calcul*365
3813:    rem compilateur variable non déclarée if pas_mouvement="mois (30 jours)" then increment_calcul=increment_calcul*30
3814:    rem compilateur variable non déclarée if pas_mouvement="jour sidéral" then increment_calcul=increment_calcul*23.934444/24
3815:    rem compilateur variable non déclarée if pas_mouvement="heure" then increment_calcul=increment_calcul/24
3816:    rem compilateur variable non déclarée if pas_mouvement="minute" then increment_calcul=increment_calcul/1440
3817:    rem compilateur variable non déclarée if pas_mouvement="seconde" then increment_calcul=increment_calcul/86400
3830:        rem compilateur SUB non déclaré sauvegarder_date()
3860:              rem compilateur SUB non déclaré if instr(option_mouvement$,"inclure")>0 then afficher_date()
3863:                 rem compilateur drawLine(x10, y10, z10, x9, y9, z9, (couleur_ciel.indexOf("blanc")>-1) ? black : yellow, 1)
3888:                 rem compilateur fillOval(x9, y9, z9, 0.005f, (couleur_ciel.indexOf("blanc")>-1) ? black : couleur_point)
3890:                 rem compilateur drawLine(x9-(analemne_3D_en_cours ? 0.02f : 0), y9-(analemne_3D_en_cours ? 0 : 0.02f), z9, x9+(analemne_3D_en_cours ? 0.02f : 0), y9+(analemne_3D_en_cours ? 0 : 0.02f), z9, Color.red, 1)
3896:           rem compilateur SUB non déclaré if flag%=1 then afficher_date()
3935:    rem compilateur SUB non déclaré if pointeur_visible%=1 then dessiner_pointeur()
3941:       rem compilateur SUB non déclaré afficher_telrad_3D()
3947:       rem compilateur SUB non déclaré afficher_oculaire_3D()
3950:    rem compilateur SUB non déclaré if voir_ccd%=1 then afficher_ccd()
3976:    rem compilateur SUB non déclaré afficher_mouvement_asteroide()
3982:    rem compilateur SUB non déclaré afficher_mouvement_comete()
4008:    draaw(): rem compilateur
4012:    rem compilateur SUB non déclaré if mode_atlas%=1 then determiner_alpha_et_delta_souris()
4015:       rem compilateur SUB non déclaré determiner_azimuth_hauteur_mode_horizon()
4027:    rem compilateur SUB non déclaré d3=atan2(sin(az/ct1),d5)
4039:    chaine$=chaine$+"x= "+str$(transformer_trois(x99))+crlf$: rem compilateur str$
4040:    chaine$=chaine$+"y= "+str$(transformer_trois(y99))+crlf$: rem compilateur str$
4041:    chaine$=chaine$+"Distance du satellite au centre de Mars= "+str$(transformer_trois(sqr(x99*x99+y99*y99)))+" rayons.": rem compilateur str$
4046:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4050:                   ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4065:    chaine$=chaine$+"x= "+str$(transformer_trois(x99))+crlf$: rem compilateur str$
4066:    chaine$=chaine$+"y= "+str$(transformer_trois(y99))+crlf$: rem compilateur str$
4067:    chaine$=chaine$+"Distance du satellite au centre de Jupiter= "+str$(transformer_trois(sqr(x99*x99+y99*y99)))+" rayons.": rem compilateur str$
4072:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4076:                   ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4091:    chaine$=chaine$+"x= "+str$(transformer_trois(x99))+crlf$: rem compilateur str$
4092:    chaine$=chaine$+"y= "+str$(transformer_trois(y99))+crlf$: rem compilateur str$
4093:    chaine$=chaine$+"Distance du satellite au centre de Saturne= "+str$(transformer_trois(sqr(x99*x99+y99*y99)))+" rayons.": rem compilateur str$
4098:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4101:                   ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
4129:    rem compilateur SUB non déclaré objet_clique()
4131:       rem compilateur JOptionPane.showMessageDialog(null, chaine, (numero_satellite_mars_clique==1 ? "Phobos." : "Deimos.")+" (diamètre: "+(numero_satellite_mars_clique==1 ? "27x21x19" : "12")+" kms).", JOptionPane.INFORMATION_MESSAGE)
4140:       rem compilateur JOptionPane.showMessageDialog(null, chaine, nom_satellite_galileen[numero_satellite_galileen_clique]+" (diamètre: "+diametre_satellite_galileen[numero_satellite_galileen_clique]+" kms).", JOptionPane.INFORMATION_MESSAGE)
4146:       rem compilateur JOptionPane.showMessageDialog(null, chaine, satellites_saturne[numero_satellite_saturne_clique]+" (diamètre: "+diametre_satellite_saturne[numero_satellite_saturne_clique]+" kms).", JOptionPane.INFORMATION_MESSAGE)
4149:    rem compilateur if sonde_cliquee%=1
4150:       rem compilateur nom$=""
4151:       rem compilateur if nom_sonde$="Cassini" then ascension=ascension_cassini;declinaison=declinaison_cassini
4152:       rem compilateur if nom_sonde$="Galileo" then ascension=ascension_galileo;declinaison=declinaison_galileo
4153:       rem compilateur if nom_sonde$="Voyager 1" then ascension=ascension_voyager1;declinaison=declinaison_voyager1
4154:       rem compilateur if nom_sonde$="Voyager 2" then ascension=ascension_voyager2;declinaison=declinaison_voyager2
4155:       rem compilateur if nom_sonde$="Pioneer 10" then ascension=ascension_pioneer10;declinaison=declinaison_pioneer10
4156:       rem compilateur if nom_sonde$="Pioneer 11" then ascension=ascension_pioneer11;declinaison=declinaison_pioneer11
4157:       rem compilateur message "Position de la sonde:"+crlf$+"Ascension: "+transformer_heure$(ascension)+crlf$+"Déclinaison: "+transformer_delta$(declinaison), "Sonde '"+nom_sonde$+"'."
4158:    rem compilateur end_if
4161:       rem compilateur apropos.setEnabled(1)
4162:       rem compilateur mouvementplanete.setEnabled(0)
4165:          rem compilateur if mode_atlas%=1 then mouvementplanete.setEnabled(1)
4166:          rem compilateur rotation.setEnabled(1)
4170:          rem compilateur apropos.setText("à propos de...")
4174:          rem compilateur apropos.setText("à propos de "+chaine$)
4177:       rem compilateur centrer.setEnabled(1)
4178:       rem compilateur if mode_atlas%=1 and (delta_maxi=90 or delta_mini=-90)) then centrer.setEnabled(0)
4184:          rem compilateur chaine$="Période d'activité: "+radiants(indice%).periode_activite+"."+crlf$
4185:          rem compilateur chaine$=chaine$+"Date du maximum d'activité: "+radiants(indice%).date_maximum+"."+crlf$
4186:          rem compilateur chaine$=chaine$+"Vitesse: "+radiants(indice%).vitesse+" kms/s"+"."+crlf$
4187:          rem compilateur chaine$=chaine$+"Taux horaire moyen: "+radiants(indice%).zhr+"."
4188:          rem compilateur message chaine$+crlf$+"Essaim des "+radiants(indice).nom_radiant$+"."
4216:valeur=sin(declinaison_topocentrique(numero_astre1)/ct1)*sin(declinaison_topocentrique(numero_astre2)/ct1)
4217:valeur=valeur+cos(declinaison_topocentrique(numero_astre1)/ct1)*cos(declinaison_topocentrique(numero_astre2)/ct1)*cos((ascension_droite_topocentrique(numero_astre1)-ascension_droite_topocentrique(numero_astre2))*15/ct1)
4316:       rem compilateur SUB non déclaré if voir_atmosphere%=1 then afficher_fond_horizon()
4328:    if animation_en_cours%=1 then precision_position$="minimum": rem compilateur variable precision_position
4345:    rem compilateur SUB non déclaré if flag_voie_lactee%=1 then dessiner_voie_lactee_3D()
4417:       rem compilateur SUB non déclaré afficher_catalogue_gcvs()
4421:       rem compilateur SUB non déclaré afficher_catalogue_wds()
4424:    rem compilateur SUB non déclaré if flag_supernovae_recentes%=1 then afficher_supernovae_recentes()
4426:    rem compilateur SUB non déclaré if flag_reperer_etoiles_a_grand_mouvement_propre%=1 then afficher_etoiles_a_grand_mouvement_propre()
4429:       rem compilateur SUB non déclaré if flag_catalogue_barnard%=1 then afficher_catalogue_barnard()
4430:       rem compilateur SUB non déclaré if flag_catalogue_saguaro%=1 then afficher_catalogue_saguaro()
4431:       rem compilateur SUB non déclaré if flag_catalogue_globular_clusters_in_the_milky_way%=1 then afficher_globular_clusters_in_the_milky_way()
4432:       rem compilateur SUB non déclaré if flag_catalogue_abell%=1 then afficher_catalogue_abell()
4433:       rem compilateur SUB non déclaré if flag_catalogue_lynds_bright_nebulae%=1 then afficher_catalogue_lynds_bright_nebulae()
4434:       rem compilateur SUB non déclaré if flag_catalogue_lynds_dark_nebulae%=1 then afficher_catalogue_lynds_dark_nebulae()
4435:       rem compilateur SUB non déclaré if flag_catalogue_perso%=1 then afficher_catalogue_perso()
4443:    rem compilateur SUB non déclaré if flag_afficher_asteroides%=1 then afficher_asteroides()
4455:          rem compilateur SUB non déclaré afficher_cometes()
4459:    rem compilateur SUB non déclaré if voir_sondes%=1 and mode_atlas%=1 then afficher_sondes_spatiales()
4471:    rem compilateur SUB non déclaré if limites_constellations%=1 then afficher_limites_constellations()
4473:    rem compilateur SUB non déclaré if flag_essaims%=1 then afficher_radiants()
4797:    draaw(): rem compilateur
4800:sub draaw(): rem compilateur
4882:        te$=file_readln$(99): rem compilateur file_readln 99,te$
4927:    temporaire$=file_readln$(99):jour1%=val(temporaire$):jour=jour1%: rem compilateur
4928:    temporaire$=file_readln$(99):mois%=val(temporaire$): rem compilateur
4929:    temporaire$=file_readln$(99):annee%=val(temporaire$): rem compilateur
4930:    temporaire$=file_readln$(99):heure%=val(temporaire$): rem compilateur
4931:    temporaire$=file_readln$(99):minute%=val(temporaire$): rem compilateur
4932:    temporaire$=file_readln$(99):seconde=val(temporaire$): rem compilateur
5033:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
5057:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
5081:          ligne$=file_readln$(99):rem compilateur file_readln 99,ligne$
5511:                 item_add 47,str$(numero_hd%): rem compilateur item_add attend un string en 2ème paramètre
5686:          chaine$=file_readln$(99): rem compilateur
5737:              rem compilateur SUB non déclaré calculer_coordonnees_topocentriques()
5746:               rem compilateur else
5747:           rem compilateur SUB non déclaré afficher_analemne()
5762:             rem compilateur SUB non déclaré calculer_coordonnees_topocentriques()
5808:       rem compilateur SUB non déclaré if animation_en_cours%=1 then sauvegarder_date()
5813:                 rem compilateur SUB non déclaré if animation_en_cours%=1 then recuperer_date()
6010:       rem compilateur SUB non déclaré if afficher_ombre_jupiter%=1 then afficher_ombre_jupiter()
6055:       rem compilateur SUB non déclaré if numero_astre%=5 then afficher_satellites_de_mars()
6056:       rem compilateur SUB non déclaré if numero_astre%=6 then afficher_satellites_de_jupiter()
6057:       rem compilateur SUB non déclaré if numero_astre%=7 then afficher_satellites_de_saturne()
6067:          rem compilateur SUB non déclaré if facteur_zoom>5 then afficher_ombre_jupiter()
6281:    rem compilateur SUB non déclaré if animation_en_cours%=1 then sauvegarder_date()
6291:             rem compilateur SUB non déclaré if animation_en_cours%=1 then recuperer_date()
6404:    rem compilateur SUB non déclaré if animation_en_cours%=1 then recuperer_date()
9209:    text 22,str$(date_day):rem compilateur text attend un string
9231:    text 24,str$(date_year):rem compilateur text attend un string
9242:    text 25,str$(time_hour):rem compilateur text attend un string
9253:    text 26,str$(time_minute):rem compilateur text attend un string
9264:    text 27,str$(time_second):rem compilateur text attend un string
9886:          te$=file_readln$(99): rem compilateur file_readln 99,te$
10132:        next a: rem compilateur next k%

sub planetarium()
    ticks=number_ticks
    maximize 0
    if object_exists(1)=1 then off_mouse_move 1

    clear 41:clear 45

    azimuth_mini=azimuth_centre-90:if azimuth_mini<0 then azimuth_mini=azimuth_mini+360
    azimuth_maxi=azimuth_centre+90:if azimuth_maxi>360 then azimuth_maxi=azimuth_maxi-360

    for k%=11 to 21
        if object_exists(k%)=1 and k%<>19 then delete k%
    next k%
    for k%=111 to 117
        if object_exists(k%)=1 then delete k%
    next k%

    if object_exists(2)=1 then delete 2
    if object_exists(8)=1 then delete 8

    if object_exists(1)=1
       2d_clear
          else
       picture 1
          
       top 1,0
       width 1,width_client(0)
       height 1,height_client(0)

       2d_target_is 1
       print_target_is 1
       on_click 1,infos

       main_menu 50

       sub_menu 51
       parent 51,50
       caption 51,"Fichier"
       sub_menu 52
       parent 52,51
       caption 52,"Préférences générales"
       on_click 52,preferences
       sub_menu 53
       parent 53,51
       caption 53,"Enregistrer la carte au format bmp"
       on_click 53,sauvegarde
       sub_menu 59
       parent 59,51
       caption 59,"Quitter"
       on_click 59,quitter

       sub_menu 61
       parent 61,50
       caption 61,"Type de représentation"
       sub_menu 62
       parent 62,61
       caption 62,"Mode planisphère"
       on_click 62,mode_planisphere
       sub_menu 63
       parent 63,61
       caption 63,"Mode horizon"
       sub_menu 64
       parent 64,63
       caption 64,"Horizon nord"
       on_click 64,nord
       sub_menu 711
       parent 711,63
       caption 711,"Horizon nord-est"
       on_click 711,nord_est
       sub_menu 712
       parent 712,63
       caption 712,"Horizon nord-ouest"
       on_click 712,nord_ouest
       sub_menu 65
       parent 65,63
       caption 65,"Horizon sud"
       on_click 65,sud
       sub_menu 713
       parent 713,63
       caption 713,"Horizon sud-est"
       on_click 713,sud_est
       sub_menu 714
       parent 714,63
       caption 714,"Horizon sud-ouest"
       on_click 714,sud_ouest
       sub_menu 66
       parent 66,63
       caption 66,"Horizon est"
       on_click 66,est
       sub_menu 67
       parent 67,63
       caption 67,"Horizon ouest"
       on_click 67,ouest
       sub_menu 68
       parent 68,61
       caption 68,"-"
       sub_menu 69
       parent 69,61
       caption 69,"Carte agrandie"
       on_click 69,carte_agrandie

       sub_menu 71
       parent 71,50
       caption 71,"Lieu et date"
       sub_menu 72
       parent 72,71
       caption 72,"Choisir un lieu d'observation"
       on_click 72,choix_lieu
       sub_menu 73
       parent 73,71
       caption 73,"Choisir une date d'observation (Heure locale ou TU)"
       on_click 73,choix_date
       sub_menu 74
       parent 74,71
       caption 74,"Date et heure courantes"
       on_click 74,maintenant
       sub_menu 75
       parent 75,71
       caption 75,"0h ce jour"
       on_click 75,minuit_ce_jour
       sub_menu 76
       parent 76,71
       caption 76,"midi ce jour"
       on_click 76,midi_ce_jour
       sub_menu 77
       parent 77,71
       caption 77,"21h ce jour"
       on_click 77,ce_soir

       sub_menu 81
       parent 81,50
       caption 81,"Rechercher"
       sub_menu 82
       parent 82,81
       caption 82,"une étoile"
       on_click 82,chercher_astre
       sub_menu 90
       parent 90,81
       caption 90,"une étoile double"
       on_click 90,chercher_astre
       sub_menu 83
       parent 83,81
       caption 83,"un objet Messier"
       on_click 83,chercher_astre
       sub_menu 84
       parent 84,81
       caption 84,"un objet NGC"
       on_click 84,chercher_astre
       sub_menu 85
       parent 85,81
       caption 85,"un objet Caldwell"
       on_click 85,chercher_astre
       sub_menu 86
       parent 86,81
       caption 86,"un objet Barnard"
       on_click 86,chercher_astre
       sub_menu 87
       parent 87,81
       caption 87,"un objet Bennett"
       on_click 87,chercher_astre
       sub_menu 94
       parent 94,81
       caption 94,"un objet Collinder"
       on_click 94,chercher_astre
       sub_menu 88
       parent 88,81
       caption 88,"-"
       sub_menu 89
       parent 89,81
       caption 89,"objets du système solaire visibles"
       on_click 89,objets_du_systeme_solaire_visibles

       sub_menu 701
       parent 701,50
       caption 701,"Divers"
       sub_menu 702
       parent 702,701
       caption 702,"Phases lunaires"
       on_click 702,phases_lunaires
       sub_menu 703
       parent 703,701
       caption 703,"Evènements planétaires"
       on_click 703,evenements
       sub_menu 704
       parent 704,701
       caption 704,"Conjonctions planétaires"
       on_click 704,evenements
       sub_menu 705
       parent 705,701
       caption 705,"Ephémérides mensuelles"
       on_click 705,ephemerides_mensuelles
       sub_menu 706
       parent 706,701
       caption 706,"Mouvement mensuel des astres sur l'horizon"
       on_click 706,mouvements_sur_horizon
       sub_menu 707
       parent 707,701
       caption 707,"Satellites de Jupiter"
       sub_menu 708
       parent 708,707
       caption 708,"Vue actuelle"
       on_click 708,satellites_jupiter
       sub_menu 709
       parent 709,707
       caption 709,"Ephémérides mensuelles"
       on_click 709,satellites_jupiter
       sub_menu 91
       parent 91,50
       caption 91,"?"
       sub_menu 92
       parent 92,91
       caption 92,"Couleurs utilisées"
       on_click 92,codes_couleurs
    end_if

    left 1,-2000

    caption 0,"Lecture de la configuration."

    lire_derniere_configuration()
    if date_systeme_au_lancement%=1 then lire_date_actuelle()

    if ciel_noir%=1
       color 1,32,33,81
          else
       color 1,124,138,170
    end_if

    effacer_textes_personnels()
    lire_couleurs()
    lire_vue_initiale()
    lire_mode()

    largeur_ecran%=width_client(1)
    hauteur_ecran%=height_client(1)

    rayon_sphere_ciel=largeur_ecran%/4*facteur_zoom

    ' if mode_atlas%=1 and facteur_zoom>1 then color 1,255,255,255

    if mode$="horizon"
       ' Ne pas utiliser stretch.
       ' Utiliser une image de dimensions égales à celle de l'écran.
       ' stretch_on 1
       picture 2
       top 2,height_client(1)-hauteur_paysage%
       width 2,width_client(1)
       height 2,hauteur_paysage%
       stretch_on 2
       file_load 2,chemin_paysage$
    end_if

    creer_asteroides()

    lire_champs_de_vision()

    ' creer_cometes()
    if object_exists(1)=0
       ' Mousefield.
       alpha 101
       left 101,0
       top 101,hauteur_ecran%-30
       width 101,100
       height 101,30

       ' ascension_azimuthField
       alpha 102
       left 102,110
       top 102,hauteur_ecran%-30
       width 102,100
       height 102,30

       ' declinaison_hauteurField
       alpha 103
       left 103,220
       top 103,hauteur_ecran%-30
       width 103,100
       height 103,30

       ' modeField
       alpha 104
       left 104,330
       top 104,hauteur_ecran%-30
       width 104,100
       height 104,30

       ' fovField
       alpha 105
       left 105,440
       top 105,hauteur_ecran%-30
       width 105,100
       height 105,30

       ' objet_precedentField
       alpha 106
       left 106,550
       top 106,hauteur_ecran%-30
       width 106,100
       height 106,30

       ' zoomField
       alpha 107
       left 107,660
       top 107,hauteur_ecran%-30
       width 107,100
       height 107,30
    end_if

    if mode_atlas%=1
       sd=sin(delta_centre/ct1)
       cd=cos(delta_centre/ct1)
          else
       sd=sin(hauteur_centre/ct1)
       cd=cos(hauteur_centre/ct1)
    end_if

    fenetre_processing()

    if object_exists(111)=1 then delete 111
    button_picture 111
    file_load 111,"symboles\zoom-.bmp"
    hint 111,"Facteur_zoom (entre 1 et 25)."
    caption 111,"zoom -"
    font_size 111,14:font_bold 111
    width 111,150
    height 111,50
    on_click 111,zoom

    if object_exists(112)=1 then delete 112
    button_picture 112
    file_load 112,"symboles\zoom+.bmp"
    hint 112,"Facteur_zoom (entre 1 et 25)."
    caption 112,"zoom +"
    font_size 112,14:font_bold 112
    width 112,150
    height 112,50
    on_click 112,zoom

    if object_exists(113)=1 then delete 113
    picture 113
    stretch_on 113
    file_load 113,"symboles\compas.jpg"
    hint 113,"Déplacement de la carte."

    if mode_atlas%=1
       left 113,0
       top 113,130
       left 111,0
       top 111,10
       left 112,0
       top 112,70
          else
       left 113,largeur_ecran%/2-50
       top 113,hauteur_ecran%-120
       left 111,left(113)-170
       top 111,top(113)+height(113)/2-25
       left 112,left(113)+120
       top 112,top(111)
    end_if
    width 113,100
    height 113,100

    if object_exists(114)=1 then delete 114
    picture 114
    stretch_on 114
    file_load 114,"symboles\nord.jpg"
    left 114,left(113)+width(113)/2-20
    top 114,top(113)
    width 114,40
    height 114,40
    on_click 114,deplacer_carte
    picture 115
    stretch_on 115
    file_load 115,"symboles\sud.jpg"
    left 115,left(114)
    top 115,top(114)+height(114)+20
    width 115,40
    height 115,40
    on_click 115,deplacer_carte
    picture 116
    stretch_on 116
    file_load 116,"symboles\est.jpg"
    left 116,left(113)
    top 116,top(113)+height(113)/2-20
    width 116,40
    height 116,40
    on_click 116,deplacer_carte
    picture 117
    stretch_on 117
    file_load 117,"symboles\ouest.jpg"
    left 117,left(113)+width(113)-40
    top 117,top(113)+height(113)/2-20
    width 117,40
    height 117,40
    on_click 117,deplacer_carte

    lire_date_heure()
    te$="Planétarium "+version_prog$+" ["+nom_lieu$+", le "
    te$=te$+str$(jour)+" "+tableau_mois$(mois%)+" "+str$(annee%)+" à "+str$(heure%)+"h"+str$(minute%)+"m"+str$(seconde)
    te$=te$+"s local, soit UTC"
    if decalage_horaire<>0
       if decalage_horaire>0
          te$=te$+" +"
             else
          te$=te$+" -"
       end_if
       te$=te$+str$(abs(decalage_horaire))+"h."
    end_if
    titre_fenetre$=te$+"], zoom= "+str$(facteur_zoom)+"."
    caption 0,titre_fenetre$
    dessin_en_cours%=0

    left 1,0
end_sub