File:Kirchenjahrev.svg

\documentclass{article}

\usepackage{pstricks,pst-plot,color,pst-text,epsfig,fix-cm,pst-slpe}
\usepackage[margin=0cm,papersize={544px,583px}]{geometry}
\newcommand{\PI}{3.14159\space}
\definecolor{dkgreen}{rgb}{0 .5 0}
\psset{unit=200px}
\newcommand{\Ra}{0.27\space}
\newcommand{\Rb}{1.0\space}
\newcommand{\Rc}{1.18\space}
\newcommand{\Rd}{1.36\space}
\renewcommand{\Re}{1.55\space}
\newcommand{\Rf}{1.20\space}
\newcommand{\Rg}{1.33\space}
\newcommand{\Rh}{1.46\space}

\newcommand{\Wa}{.005\space}
\newcommand{\Wb}{.015\space}

\newcommand{\angles}{ [ 153.89762 148.97118 143.77575 138.85405 120.22824 114.96517 105.23302 99.60459 95.13163 89.83814 63.71872 49.95515 25.57695 18.85012 -0.84106 -33.94838 -38.42173 -43.10553 -48.83815 -77.14433 -81.96939 -91 -98.45269 -102.96332 -115.44329 -120.22025 -206.10 ] }

\newcommand{\ga}[1]{ \angles\space #1 get }

\newcommand{\startang}{-120.22025\space}

\definecolor{Cg}{rgb}{.2 .6 .4}
\definecolor{Cr}{rgb}{.8 0 0}
\definecolor{Cv}{rgb}{.6 .2 .4}
\definecolor{Cw}{rgb}{1 1 1}
\definecolor{Cb}{rgb}{0 0 0}
\definecolor{Cy}{rgb}{.69 .69 .69}

\begin{document}
\noindent
\psset{linecolor=black}
\begin{pspicture}(-1.36,-1.36)(1.36,1.55)
  \SpecialCoor
  \pscircle[linewidth=\Wa,fillcolor=Cy,fillstyle=solid](0,0){\Rd}
  \pscircle[linestyle=none,linewidth=0,fillcolor=white,fillstyle=solid](0,0){! \Rb \Wa 2 div add}
%  \rput(0,.095){\includegraphics[width=546px]{../Kirchenjahrev.eps}}

  \renewcommand{\P}[2]{\ga{#1} cos #2 mul \ga{#1} sin #2 mul}

  \renewcommand{\wedge}[2]{
    \pscustom[linewidth=0,linestyle=none,fillstyle=solid,fillcolor=#2]
    {
      \psarcn(0,0){\Rb}{! \ga{#1}}{! \ga{#1 1 add}}
      \psarc(0,0){\Rc}{! \ga{#1 1 add}}{! \ga{#1}}
    }
  }
  \newcommand{\hwedge}[3]{
    \pscustom[linewidth=0,linestyle=none,fillstyle=solid,fillcolor=#2]
    {
      \psarc(0,0){\Rc}{! \ga{#1 1 add}}{! \ga{#1}}
      \psline(! \P{#1}{\Rc})(! \P{#1}{\Rb})
    }
    \pscustom[linewidth=0,linestyle=none,fillstyle=solid,fillcolor=#3]
    {
      \psarcn(0,0){\Rb}{! \ga{#1}}{! \ga{#1 1 add}}
      \psline(! \P{#1 1 add}{\Rb})(! \P{#1 1 add}{\Rc})
    }
  }
  \wedge{ 0}{Cw}
  \wedge{ 1}{Cg}
  \wedge{ 2}{Cg}
  \wedge{ 3}{Cg}
  \wedge{ 4}{Cr}
  \wedge{ 5}{Cg}
  \wedge{ 6}{Cv}
  \wedge{ 7}{Cg}
  \hwedge{8}{Cg}{Cw}
  \wedge{ 9}{Cv}
  \wedge{10}{Cw}
  \wedge{11}{Cg}
  \wedge{12}{Cw}
  \wedge{13}{Cg}
  \wedge{14}{Cv}
  \wedge{15}{Cw}
  \wedge{16}{Cb}
  \wedge{17}{Cw}
  \wedge{18}{Cw}
  \wedge{19}{Cw}
  \wedge{20}{Cw}
  \wedge{21}{Cr}
  \wedge{22}{Cw}
  \wedge{23}{Cg}
  \wedge{24}{Cw}
  \wedge{25}{Cg}

  \newcommand{\spoke}[3]{\psline[linecolor=black,linewidth=#2](0,0)(! \P{#1}{#3})}
  \multido{\iA=0+1}{26}{\spoke{\iA}{\Wa}{\Rc}}
  \spoke{9}{\Wb}{\Re}
  \spoke{13}{\Wb}{\Rd}
  \spoke{22}{\Wb}{\Rd}

  \pscircle[linewidth=\Wa](0,0){! \Rc \Wa 2 div add}
  \pscircle[linewidth=\Wa](0,0){! \Rb \Wa 2 div add}
  \pscircle[linewidth=\Wa,fillcolor=Cy,fillstyle=ccslopes,slopecolors=0 1 1 1 5 .7 .7 .7 10 .6 .6 .6 3,slopecenter=.6 .3](0,0){! \Ra \Wa 2 div add}

  \newcommand{\Ta}[3]{\rput{! \ga{#1} #2 mul \ga{#1 1 add} 1 #2 sub mul add }(0,0){\uput{.02}[l](\Rb,0){#3}}}
  \newcommand{\Tb}[3]{\rput{! \ga{#1} #2 mul \ga{#1 1 add} 1 #2 sub mul add 180 add }(0,0){\uput{.02}[r](-\Rb,0){#3}}}

  \newcommand{\Fa}{\fontsize{14}{14}\selectfont\sf}
  \newcommand{\Fb}{\fontsize{11}{11}\selectfont\sf}
  \newcommand{\Fc}{\fontsize{10}{10}\selectfont\sf}
  
  \Tb{ 0}{.5}{\Fb Michaelistag}
  \Tb{ 2}{.5}{\Fb Erntedank}
  \Tb{ 4}{.5}{\Fb Reformationsfest}
  \Tb{ 6}{.5}{\Fb Bu\ss- und Bettag}
  \Tb{ 8}{.5}{\Fb Ewigkeitssonntag}
  \Ta{ 9}{.5}{\Fa Adventszeit}
  \Ta{10}{.25}{\Fa Epiphanias}
  \Ta{10}{.75}{\Fa Weihnachten}
  \Ta{11}{.5}{\Fa Epiphaniaszeit}
  \Ta{12}{.5}{\Fb Letzter So. nach E.}
  \Ta{13}{.5}{\Fb Sonntage vor der Passionszeit}
  \Ta{14}{.5}{\Fa Passionszeit}
  \Ta{15}{.5}{\Fc Gr\"undonnerstag}
  \Ta{16}{.5}{\Fb Karfreitag}
  \Ta{17}{.5}{\Fa Ostern}
  \Ta{18}{.5}{\Fa \"Osterliche Freudenzeit}
  \Ta{19}{.5}{\Fb Himmelfahrt}
  \Tb{21}{.5}{\Fa Pfingsten}
  \Tb{22}{.5}{\Fb Trinitatis}
  \Tb{24}{.5}{\Fb Johannis}
  \Tb{25}{.5}{\Fb Sonntage nach Trinitatis}

  \fontsize{36}{36}\selectfont\sf

  \pstextpath[c](0,0){\psarcn[linestyle=none](0,0){\Rf}{!\ga{9}}{!\ga{13}}}{Weihnachtskreis}
  \pstextpath[c](0,0){\psarc[linestyle=none](0,0){\Rg}{!\ga{22}}{!\ga{13}}}{Osterkreis}
  \pstextpath[c](0,0){\psarcn[linestyle=none](0,0){\Rf}{!\ga{22}}{!\ga{9}}}{Trinitatiszeit}

  \psarcn[linewidth=\Wb]{->}(0,0){\Rh}{!\ga{9}}{80}

\end{pspicture}

\end{document}