fig03b.tex

\documentclass[svgnames]{standalone}
\usepackage[T1]{fontenc}
\usepackage[frenchb]{babel}
\usepackage{bera}
\usepackage{pstricks-add}
\usepackage{pst-caelum}
 
\def\CoinDeCiel(#1,#2,#3,#4,#5){%
  \xintdeffloatvar aa := (#3-#1)/2;%
  \xintdeffloatvar rot := (#3+#1)/2;%
  \xintdeffloatvar ax,ay := -#2sind(aa),-#2;%
  \xintdeffloatvar bx,by := #2sind(aa),-#4cosd(aa);%
  \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.3}}%
  \global\edef\aym{\FloatToFix{(#5ay/20)-0.3}}%
  \global\edef\bxm{\FloatToFix{(#5bx/20)+0.3}}%
  \global\edef\bym{\FloatToFix{(#5by/20)+0.3}}%
  \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(340,72,395,36,4)
% ==============================================================================
\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[linestyle=dotted,linecolor=DimGray]{Boundaries}%
    \caelum[abrev=and,linecolor=Gainsboro,fillcolor=WhiteSmoke]{Constellation}
    \caelum[fillcolor=DimGray]{Stars}%
    \caelum[linecolor=DodgerBlue,fillcolor=DimGray]{Asterisms}%
  \end{psclip}%
}%
\GetVariables%                         % Retrouver les variables du Coin de Ciel
\rput[c](\ftf{(ax+bx)/2-0.2},\ftf{(ay+by)/2-0.5}){\bfseries Andromède}%
\rput[r](\ftf{bx-0.1},\ftf{ay+0.2}){\small\color{FireBrick}PST-Caelum}%
\ObjetDuCiel(10.68471,41.26792)                                           % M31
\psellipse[linestyle=dashed,rot=30,linecolor=DimGray,dash=2pt 1pt](\ftf{px},\ftf{py})(0.08,0.24)
\uput[0](\ftf{pr};\ftf{pa}){\footnotesize\color{DimGray}\textbf{M31}}
\ObjetDuCiel(2.097083,29.090556)                                     % Alpheratz
\uput[-135](\ftf{px},\ftf{py}){\footnotesize\color{DimGray}\textbf{Alpheratz}}
\uput[110](\ftf{px},\ftf{py}){\color{DarkGreen}\(\alpha\)}
\ObjetDuCiel(17.73292,35.620556)                                        % Mirach
\uput[-180](\ftf{px},\ftf{py}){\footnotesize\color{DimGray}\textbf{Mirach}}
\uput[-90](\ftf{px},\ftf{py}){\color{DarkGreen}\(\beta\)}
\ObjetDuCiel(30.975,42.32972)                                           % Almach
\uput[45](\ftf{px},\ftf{py}){\footnotesize\color{DimGray}\textbf{Almach}}
\uput[-110](\ftf{px},\ftf{py}){\color{DarkGreen}\(\gamma\)}
\end{pspicture}
\end{document}