fig03a.tex

\documentclass[svgnames]{standalone}
\usepackage[T1]{fontenc}
\usepackage[frenchb]{babel}
\usepackage{bera}
\usepackage{pstricks-add}
\usepackage{pst-caelum}
\usepackage{xintexpr}
\usepackage{readarray}
 
\let\ftf\FloatToFix
 
\def\CoinDeCiel(#1,#2,#3,#4,#5){%
  \xintdeffloatvar d1,d2 := -(#2-90),-(#4-90);%
  \xintdeffloatvar aa := (#3-#1)/2;%
  \xintdeffloatvar rot := (#3+#1)/2;%
  \xintdeffloatvar ax,ay := -sind(aa)d1,-d1;%
  \xintdeffloatvar bx,by := sind(aa)d1,-cosd(aa)d2;%
  \global\edef\ax{\FloatToFix{#5ax/20}}%
  \global\edef\ay{\FloatToFix{#5ay/20}}%
  \global\edef\bx{\FloatToFix{#5bx/20}}%
  \global\edef\by{\FloatToFix{#5by/20}}%
  \global\edef\axm{\FloatToFix{(#5ax/20)-0.5}}%
  \global\edef\aym{\FloatToFix{(#5ay/20)-0.5}}%
  \global\edef\bxm{\FloatToFix{(#5bx/20)+0.5}}%
  \global\edef\bym{\FloatToFix{(#5by/20)+0.5}}%
  \global\edef\axr{\FloatToFix{#5(cosd(rot)ax+sind(rot)ay)/20}}%
  \global\edef\ayr{\FloatToFix{#5(-sind(rot)ax+cosd(rot)ay)/20}}%
  \global\edef\cxr{\FloatToFix{#5(cosd(rot)ax+sind(rot)by)/20}}%
  \global\edef\cyr{\FloatToFix{#5(-sind(rot)ax+cosd(rot)by)/20}}%
  \global\edef\bxr{\FloatToFix{#5(cosd(rot)bx+sind(rot)by)/20}}%
  \global\edef\byr{\FloatToFix{#5(-sind(rot)bx+cosd(rot)by)/20}}%
  \global\edef\dxr{\FloatToFix{#5(cosd(rot)bx+sind(rot)ay)/20}}%
  \global\edef\dyr{\FloatToFix{#5(-sind(rot)bx+cosd(rot)ay)/20}}%
  \global\edef\rotation{\FloatToFix{rot}}
  \global\edef\scale{#5}
}
\def\GetVariables {
  \xintdeffloatvar ax,ay,bx,by,rot,scale := \ax,\ay,\bx,\by,\rotation,\scale;%
}
\def\ObjetDuCiel(#1,#2){
 \xintdeffloatvar pa := -(#1+90)+rot;%
 \xintdeffloatvar pr := -(#2-90)scale/20.0;%
 \xintdeffloatvar px,py := cosd(pa)*pr,sind(pa)*pr;%
}
 
\let\ftf\FloatToFix
\AtBeginDocument{\sffamily\boldmath}
 
 
\begin{document}
 
\CoinDeCiel(270,24,295,48,5)
% ==============================================================================
\begin{pspicture}(\axm,\aym)(\bxm,\bym)
\psrotate(0,0){\rotation}{%
  \begin{psclip}{\psline[linecolor=MidnightBlue](\axr,\ayr)(\cxr,\cyr)(\bxr,\byr)(\dxr,\dyr)(\axr,\ayr)}%
    \psset[caelum]{scale=\scale,linewidth=0.1pt}%
    \caelum{Sky}%
    \caelum[linestyle=dotted,linecolor=DimGray]{Boundaries}%
    \caelum[abrev=lyr,fillcolor=DodgerBlue]{Constellation}
    \caelum[fillcolor=LightGoldenrodYellow]{Stars}%
    \caelum[linecolor=LightSkyBlue,fillcolor=Goldenrod]{Asterisms}%
    %% -------------------------------------------------------------------------
  \end{psclip}%
}%
\GetVariables%                         % Retrouver les variables du Coin de Ciel
\rput[c](\ftf{(ax+bx)/2-0.2},\ftf{(4ay+by)/5}){\color{White}\bfseries La Lyre}%
\rput[r](\ftf{bx-0.1},\ftf{ay+0.2}){\small\color{LightPink}PST-caelum}%
\ObjetDuCiel(279.234583,38.783111)                                        % Vega
\psellipse[linecolor=White](\ftf{px},\ftf{py})(0.15,0.15)
\uput{5pt}[90](\ftf{px},\ftf{py}){\footnotesize\color{DimGray}\textbf{Vega}}
\end{pspicture}
\end{document}