heliolabe-emploi1.tex

\documentclass[svgnames,a4paper,10pt]{article}
\usepackage{amsmath}
\usepackage[T1]{fontenc}
\usepackage{bera}
\usepackage[french]{babel}
\usepackage[margin=2cm]{geometry}
\usepackage{shortvrb}
\usepackage[dvipsnames]{xcolor}
\usepackage{graphicx}
\usepackage{hyperref}
\usepackage{pstricks-add}
\usepackage{multicol}
\usepackage{xint-meeus}
\pstheader{heliolabe.pro}
 
\input{sty-jfbu}
\input{pst-heliolabe}
 
\MakeShortVerb{\|}
\newcommand\ft[1]{\xintfloatexpr #1\relax}
\hypersetup{
 colorlinks=true
}
 
%% ========================================================================== %%
\begin{document}
\pagestyle{empty}
% \xintverbosetrue
\parindent0pt
\setlength{\parskip}{1ex}
% pour les short verb |...|
\def\MicroFont
    {\ttfamily\color[named]{DarkCyan}\makestarlowast\makequotesstraight}
% pour les everbatim
\def\MacroFont {\ttfamily\color[named]{Olive}}
% Note 1 : everbatim fait \makestarlowast\makequotesstraight en interne
%          alors que pour les short verb il faut l'ajouter via \MicroFont
% Note 2 : everbatim fait un \small via \def\everbatimtop{\MacroFont\small}
 
{\Large Heures du lever et du coucher du Soleil avec l'héliolabe}\\
\rule{\linewidth}{1pt}\\
{\itshape L'équipe motivée -- \today}
\medskip
 
On fixe la latitude et la longitude du lieu d'utilisation, le mois et le jour.
\begin{everbatim*}
\xintdeffloatvar phi0,mois,jour := dms2d(46,34,1),06,24;%   
\end{everbatim*}
 
On calcule les angles de rotation.
\begin{everbatim*}
\CalculAngles%
\xinteval{J} -- \ftf4{CA_beta} -- \HeureLever{} -- \HeureCoucher{}
\end{everbatim*}
 
\begin{everbatim*}
\begin{pspicture}(-7.5,-7.5)(7.5,7.5)%
  \psdot[linecolor=Black,dotsize=5pt](0,0)% Centre du tympan
  \tympanB\tympanA%
  \psrotate(0,0){\ftf4{CA_gamma}}{\ecliptique\saisons}%
  \psrotate(0,0){\ftf4{CA_beta}}{\alidade}%
  \MarqueCible% L'ajustement de l'écliptique et de l'alidade qui a été ciblé.
  \MarqueLeverCoucher% Les heures que l'on lit, attention à l'heure du coucher !
\end{pspicture}
\end{everbatim*}
 
\begin{center}
Latitude: \textbf{\DEGtoDMS{phi0}} -- Jour: \textbf{\xinteval{jour} \Mois{\xinteval{mois}}}
\end{center}
 
\begin{multicols}{2}
Heure du lever: \textbf{\HeureLever} (heure solaire)
 
Heure du coucher: \textbf{\HeureCoucher} (heure solaire)
\end{multicols}
{\itshape\small Il faut faire quelques corrections (équation du temps,
réfraction, longitude du lieu) et ajouter 1h en horaire d'hiver et 2h en
horaire d'été pour obtenir l'heure de la pendule!}
\end{document}