/tx@HeliolabeDict 100 dict def tx@HeliolabeDict begin /cm {28.3464 mul} def /DATAS@mois@fr {[ (janvier) (f\351vrier) (mars) (avril) (mai) (juin) (juillet) (ao\373t) (septembre) (octobre) (novembre) (d\351cembre) ] } bind def /DATAS@pc@fr{[(S) (O) (N) (E)]} def %% /cercle { /r exch def /y exch def /x exch def newpath x r add y moveto x y r 0 360 arc closepath } def %% === fonte helvetica avec l'encodage ISOLatin1 (HVLatin1) /Helvetica findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /HVLatin1 exch definefont pop /HVS1{/HVLatin1 findfont [11 0 0 9 0 0] makefont setfont} def /HV8 {/HVLatin1 findfont 8 scalefont setfont} def /HV6 {/HVLatin1 findfont 6 scalefont setfont} def /HV5 {/HVLatin1 findfont 5 scalefont setfont} def /HV3 {/HVLatin1 findfont 3 scalefont setfont} def /HV2 {/HVLatin1 findfont 2 scalefont setfont} def %% === string@arc /string@arc { /text exch def /r exch def /cy exch def /cx exch def /ch 1 string def /degs text stringwidth pop 90 mul 3.14 div r div def cx cy moveto degs rotate text { ch 0 3 2 roll put /l ch stringwidth pop def /dec l r atan 2 div neg def cx cy moveto dec rotate l neg 2 div r rmoveto ch show dec rotate } forall } def /string@arcn { /text exch def /r exch def /cy exch def /cx exch def /ch 1 string def /degs text stringwidth pop 90 mul 3.14 div r div def cx cy moveto degs neg rotate text { ch 0 3 2 roll put /l ch stringwidth pop def /dec l r atan 2 div def cx cy moveto dec rotate l 2 neg div r neg rmoveto ch show dec rotate } forall } def /DATAS@moispos [310 350 20 49 68 86 106 126 148 180 218 264] def /EcliptiqueMoisLabels { /rc exch 0.5 sub cm def /yc exch cm def gsave HV6 0 yc translate 0 1 11 {/i exch def gsave DATAS@moispos i get 90 sub rotate 0 0 rc DATAS@mois@fr i get string@arc grestore } for grestore } def /TympanCerclesLabels { /cancer exch def /equateur exch def /capricorne exch def gsave HVS1 gsave 0 0 cancer 0.1 sub cm (Tropique du Cancer) string@arcn grestore gsave 0 0 equateur 0.1 sub cm (\311quateur) string@arcn grestore gsave 0 0 capricorne 0.1 sub cm (Tropique du Capricorne) string@arcn grestore grestore } def /TympanEOLabels { /d exch def gsave HVS1 d neg cm 10 sub 10 neg moveto (E) show d cm 2 add 10 neg moveto (O) show grestore } def end