Skip to content
Snippets Groups Projects
Commit 1e0b34d8 authored by mirabilos's avatar mirabilos
Browse files

[verein.git] clines

parent da605411
No related branches found
No related tags found
No related merge requests found
...@@ -129,6 +129,8 @@ ...@@ -129,6 +129,8 @@
\expandafter\newtoks\csname tkCalLine29\endcsname% \expandafter\newtoks\csname tkCalLine29\endcsname%
\expandafter\newtoks\csname tkCalLine30\endcsname% \expandafter\newtoks\csname tkCalLine30\endcsname%
\expandafter\newtoks\csname tkCalLine31\endcsname% \expandafter\newtoks\csname tkCalLine31\endcsname%
\newtoks\tkCalClineA%
\newtoks\tkCalClineB%
\newcommand{\tkToJD}[1]{% \newcommand{\tkToJD}[1]{%
\pgfcalendardatetojulian{#1}{\tkjd}% \pgfcalendardatetojulian{#1}{\tkjd}%
...@@ -385,12 +387,14 @@ ...@@ -385,12 +387,14 @@
\csname tkCalLine29\endcsname={}% \csname tkCalLine29\endcsname={}%
\csname tkCalLine30\endcsname={}% \csname tkCalLine30\endcsname={}%
\csname tkCalLine31\endcsname={}% \csname tkCalLine31\endcsname={}%
\tkCalClineA={}%
\tkCalClineB={}%
\tkjd=\tkcalbeg% \tkjd=\tkcalbeg%
\@tempcnta=\z@% Jahr \@tempcnta=\z@% Jahr
\@tempcntb=\z@% Monat \@tempcntb=\z@% Monat
\loop% \loop%
\tk@BoldenDay%
\tkFromJD{\tkjd}% \tkFromJD{\tkjd}%
\tk@BoldenDay%
\ifnum\@tempcnta=\tktmY\else% \ifnum\@tempcnta=\tktmY\else%
\ifnum\@tempcnta=\z@\else% \ifnum\@tempcnta=\z@\else%
\tkCalToks={}% \tkCalToks={}%
...@@ -476,6 +480,21 @@ ...@@ -476,6 +480,21 @@
}% }%
}% }%
\csname tkCalLine\number\tktmD\endcsname=\expandafter{\the\expandafter\expandafter\csname tkCalLine\number\tktmD\endcsname \the\tkCalToks}% \csname tkCalLine\number\tktmD\endcsname=\expandafter{\the\expandafter\expandafter\csname tkCalLine\number\tktmD\endcsname \the\tkCalToks}%
\ifnum\tktmD<29\else\ifnum\tktmD>30\else%
\count@=\tkCalNumMon%
\advance\count@ by -1%
\multiply\count@ by 3%
\advance\count@ by 1%
\edef\1{\number\count@}%
\advance\count@ by 2%
\tkCalToks={\cline}%
\tkAddTokp{\1-\number\count@}%
\ifnum\tktmD=29%
\tkCalClineA=\expandafter{\the\expandafter\tkCalClineA \the\tkCalToks}%
\else%
\tkCalClineB=\expandafter{\the\expandafter\tkCalClineB \the\tkCalToks}%
\fi%
\fi\fi%
\ifnum\tkjd < \tkcalend% \ifnum\tkjd < \tkcalend%
\advance\tkjd by 1% \advance\tkjd by 1%
\repeat% \repeat%
...@@ -487,10 +506,13 @@ ...@@ -487,10 +506,13 @@
\tkAddTokp{\number\@tempcnta}% \tkAddTokp{\number\@tempcnta}%
\tkCalLineY=\expandafter{\the\expandafter\tkCalLineY \the\tkCalToks}% \tkCalLineY=\expandafter{\the\expandafter\tkCalLineY \the\tkCalToks}%
%\detokenize\expandafter{\the\csname tkCalLine19\endcsname} %\edef\TEMP{\the\tkCalClineA}
%\meaning\TEMP
%\detokenize\expandafter{\the\tkCalClineA}
\begin{tabu} to \linewidth {|*{\the\tkCalNumMon}{rlX[m]|}} \begin{tabu} to \linewidth {|*{\the\tkCalNumMon}{rlX[m]|}}
\the\tkCalLineY\\\hline \hline\the\tkCalLineY\\\hline
\the\csname tkCalLine0\endcsname\\\hline \the\csname tkCalLine0\endcsname\\\hline
\the\csname tkCalLine1\endcsname\\\hline \the\csname tkCalLine1\endcsname\\\hline
\the\csname tkCalLine2\endcsname\\\hline \the\csname tkCalLine2\endcsname\\\hline
...@@ -511,18 +533,18 @@ ...@@ -511,18 +533,18 @@
\the\csname tkCalLine17\endcsname\\\hline \the\csname tkCalLine17\endcsname\\\hline
\the\csname tkCalLine18\endcsname\\\hline \the\csname tkCalLine18\endcsname\\\hline
\the\csname tkCalLine19\endcsname\\\hline \the\csname tkCalLine19\endcsname\\\hline
20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo \\\hline \the\csname tkCalLine20\endcsname\\\hline
21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo \\\hline \the\csname tkCalLine21\endcsname\\\hline
22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo \\\hline \the\csname tkCalLine22\endcsname\\\hline
23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo \\\hline \the\csname tkCalLine23\endcsname\\\hline
24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo \\\hline \the\csname tkCalLine24\endcsname\\\hline
25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo \\\hline \the\csname tkCalLine25\endcsname\\\hline
26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo \\\hline \the\csname tkCalLine26\endcsname\\\hline
27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo \\\hline \the\csname tkCalLine27\endcsname\\\hline
28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo \\\hline \the\csname tkCalLine28\endcsname\\\hline
29 & Mo & foo & & & & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo \\\cline{1-3}\cline{7-9}\cline{10-39} \the\csname tkCalLine19\endcsname\\\the\tkCalClineA
30 & Mo & foo & & & & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo \\\cline{1-3}\cline{7-9}\cline{10-39} \the\csname tkCalLine20\endcsname\\\the\tkCalClineB
31 & Mo & foo & & & & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo \\\hline \the\csname tkCalLine21\endcsname\\\hline
\end{tabu} \end{tabu}
Legende:\keinumbruch Legende:\keinumbruch
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment