1
2
3
4
5
6
7
8
Source : maquette dont je possède les droits
Ligne visée : voix principale du refrain
Usage : support pour une répétition
Passage : noter les bornes réelles après écoute
Points délicats : anacrouse, note tenue, ralentissement final
Livrable utile : PDF à lire + MusicXML à corriger
Critère de validation : une personne peut suivre la phrase et son rythme

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
program Eclipses;
 
{ Date of solar eclipses }
 
uses
  SysUtils, Classes,
  Moon; { https://github.com/wp-xyz/delphimoon }
 
const
  CSolarEclipse = TRUE; { Uniquement les éclipses solaires }
 
{$DEFINE FRENCH}
{$IFDEF FRENCH}
const
  CFrench: array[TEclipse] of string = (
    { none          } '',
    { partial       } 'partielle',
    { noncentral    } 'non centrale',
    { circular      } 'annulaire',
    { circulartotal } 'hybride',
    { total         } 'totale',
    { halfshadow    } 'pénombrale'
  );
{$ENDIF}
 
var
  fromDate, toDate, dt: TDateTime;
  ecl: TEclipse;
 
begin
  fromDate := EncodeDate(CurrentYear, 1, 1);
  toDate   := EncodeDate(2099, 12, 31);
 
  dt := fromDate;
  repeat
    ecl := NextEclipse(dt, CSolarEclipse);
    if dt <= toDate then
      WriteLn(
        {$IFDEF FRENCH}
        FormatDateTime('dd"/"mm"/"yyyy hh:nn', dt), ' ', CFrench[ecl]
        {$ELSE}
        FormatDateTime('dd-mm-yyyy hh:nn', dt), ' ', ecl
        {$ENDIF}
      );
    dt := dt + 24;
  until dt >= toDate;
end.