diff options
author | Karl Berry <karl@freefriends.org> | 2008-10-17 00:12:00 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-10-17 00:12:00 +0000 |
commit | 6499cce647a7c45ca8aaaf4acbe79501e7a68965 (patch) | |
tree | a63ab19e2449e420a73fb3ed9cfee426fd85537a /Master/texmf-dist | |
parent | cf8f90c9e6980641eae6de378b7cef087c2b5ca5 (diff) |
rm kalender, nonfree
git-svn-id: svn://tug.org/texlive/trunk@10993 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/tex/latex/kalender/kalender.sty | 244 |
1 files changed, 0 insertions, 244 deletions
diff --git a/Master/texmf-dist/tex/latex/kalender/kalender.sty b/Master/texmf-dist/tex/latex/kalender/kalender.sty deleted file mode 100644 index 34e665806f2..00000000000 --- a/Master/texmf-dist/tex/latex/kalender/kalender.sty +++ /dev/null @@ -1,244 +0,0 @@ -%==================================================================== -% Allg. (La)TeX-Regeln: -% Dieser Style darf uebernommen oder geandert werden, aber nur mit -% Nennung des Orginalautors. (ich habe ja auch meinen Stolz ;-)) -%==================================================================== -% Style zum automatischen Ertellen eines Kalenders -% Es werden die Packete ifthen und calc ben”tigt -% zum Erstellen nur den Befehl \Kalender{Jahr} eingeben -% Jahr: Die Jahreszahl z.B. 1995 -% J”rg S”hner 24.03.95 -% e-mail: joerg.soehner@stud.uni-karlsruhe.de -% www: http://www.uni-karlsruhe.de/~uh6f -% -% Kalender.sty bercksichtigt Schaltjahre. -% Referenzjahr ist 1900. Es sind alle Jahre m”glch; auch < 1900 -% Er berckisichtigt auch folgende Regeln: -% Jahrhundert-Jahre sind keine Schaltjahre -% Jahrhundert-Jahre, die durch 400 teilbar sind, sind Schaltjahre -%==================================================================== -\NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{kalender}[1995/03/25 Kalender-Style von Joerg Soehner] -\RequirePackage{ifthen,calc} -\newcounter{Jahr} -\newcounter{Vorjahr} -\newcounter{Nextjahr} -\newcounter{n} -\newcounter{vielfaches} -\newboolean{Schaltjahr} -\newcounter{differ} -\newcounter{grenze} -\newcounter{ycopya} -\newcounter{ycopyb} -\newcounter{ykoordrahmen} -\newcounter{spalte} % Z„hler fr Spalte, wo Tage gesetzt werden -\newcounter{zeile} % Z„hler fr Monatszeile -\newcounter{tag} % Z„hler fr die Tage -\newcounter{xkoord} % x-Koordinate fr Setzen der Tage -\newcounter{ykoord} % y-Koordinate fr Setzen der Tage -\newcounter{monatnr} % Fr Ermittlung der Monatsgrenze -\newcounter{monatna} % Fr Ermittlung des Monatsnamen -\newcounter{zeilenanzahl} %Fr mehrere Zeilen pro Monat -\newcounter{ykoordmonat} -\newcounter{boxhoehe} -\newcounter{Kurzjahr} - -\newcommand{\Kalender}[1]{ -\setcounter{Jahr}{#1} %hier wird das Jahr dem Z„hler zugewiesen -\setcounter{Vorjahr}{\value{Jahr}-1} %das Vor- und das Nachfolgejahr -\setcounter{Nextjahr}{\value{Jahr}+1} -% ab hier werden die Kurzbezeichungen erstellt -\setcounter{Kurzjahr}{#1} -\whiledo{\value{Vorjahr} > 99}{\setcounter{Vorjahr}{ -\value{Vorjahr}- 100}} -\whiledo{\value{Kurzjahr} > 99}{\setcounter{Kurzjahr}{ -\value{Kurzjahr}- 100}} -\ifthenelse{\value{Kurzjahr} = 100}{\setcounter{Kurjahr}{00}} -% ein kleiner Hinweis, daá es ein wenig dauert -\typeout{Erstelle Kalender des Jahres \theJahr} -\typeout{... bitte warten ...} -\begin{scriptsize} -\unitlength0.7mm -\begin{picture}(198,143) -\modulJahr{#1} %dieser Befehl errechnet die Spalte fr den ersten Tag -\Tage %dieser Befehl setzt die Tage -\Kalenderrahmen %am Schluá noch der Rahmen um das Ganze -\end{picture} -\end{scriptsize}} - - -%##################################################################### -%===================================================================== -% Damit wird das Schaltjahr bercksichtigt und die Position des ersten -% Tages wird ermittelt. Fixjahr ist 1900 (ist halt so) -%===================================================================== - -\newcommand{\modulJahr}[1]{% -\setcounter{n}{#1} -\setcounter{vielfaches}{0} -\setcounter{differ}{\value{n}-1900} -\setcounter{n}{\value{n}-1900} %Jahresabstand von Jahr und Fixjahr - -%fr Jahre ber Fixjahr 1900 -\ifthenelse{\value{n} > 0}{ -\whiledo{\value{n} > 4}{ %solange n>4, 4 wegen den Schaltjahren -\setcounter{n}{\value{n}-4} % Anzahl der Schaltjahren werden ermittelt -\stepcounter{vielfaches}} % Volltreffer: Jahr ist Schaltjahr, oder doch nicht -\ifthenelse{\value{n}=4}{% -\setboolean{Schaltjahr}{true}}{\setboolean{Schaltjahr}{false}}}{} - -%fr Jahre unter Fixjahr 1900 -\ifthenelse{\value{n} < 0}{ -\whiledo{\value{n} < -4}{ %solange n<-4 -\setcounter{n}{\value{n}+4} -\addtocounter{vielfaches}{-1}} -\ifthenelse{\value{n}=-4}{% -\setboolean{Schaltjahr}{true}\addtocounter{vielfaches}{-1}}{% -\setboolean{Schaltjahr}{false}}}{} - -%fr das Fixjahr 1900 -\ifthenelse{\value{n} = 0}{ -\setcounter{vielfaches}{0} -\setboolean{Schaltjahr}{false}}{} - -% wenn Jahr durch 100 teilbar, dann kein Schaltjahr -\setcounter{n}{#1} %Jahresabstand von Jahr und Fixjahr -\whiledo{\value{n} > 100}{ %solange n>100, 100 wegen den Jahrhunderten -\setcounter{n}{\value{n}-100}} % Anzahl der Schaltjahren werden ermittelt -\ifthenelse{\value{n}=100}{% -\setboolean{Schaltjahr}{false}}{} -% wenn Jahr durch 400 teilbar, dann wiederum = Schaltjahr -\setcounter{n}{#1} %Jahresabstand von Jahr und Fixjahr -\whiledo{\value{n} > 400}{ %solange n>100, 100 wegen den Jahrhunderten -\setcounter{n}{\value{n}-400}} % Anzahl der Schaltjahren werden ermittelt -\ifthenelse{\value{n}=400}{% -\setboolean{Schaltjahr}{true}}{} -} - - -%##################################################################### -%============================== -% Hier wird die Spalte mit den Monatsnamen definiert -% mit Vorjahr und Nachfolgejahr -%===================================================================== -\newcommand{\monatname}{% -\ifcase\value{monatna}\or -\ifthenelse{\value{Vorjahr} < 10}{\bf Dezember 0\theVorjahr}{\bf Dezember -\theVorjahr}\or - {\bf Januar \theJahr}\or - {\bf Februar}\or - {\bf M"arz}\or - {\bf April}\or - {\bf Mai}\or - {\bf Juni}\or - {\bf Juli}\or - {\bf August}\or - {\bf September}\or - {\bf Oktober}\or - {\bf November}\or -\ifthenelse{\value{Kurzjahr} < 10}{\bf Dezember 0\theKurzjahr}{\bf Dezember -\theKurzjahr} - \or - {\bf Januar \theNextjahr}\fi} - -%##################################################################### -%===================================================================== -% Hier werden die Anzahl der Tage des Monats gesetzt -% Das Schaltjahr wird auch bercksichtigt -%==================================================================== - -\newcommand{\setgrenze}{% - \ifcase\value{monatnr}\or {\setcounter{grenze}{31+1}}\or - {\ifthenelse{\boolean{Schaltjahr}}{ - \setcounter{grenze}{29+1}}{\setcounter{grenze}{28+1}}}\or - {\setcounter{grenze}{31+1}}\or - {\setcounter{grenze}{30+1}}\or - {\setcounter{grenze}{31+1}}\or - {\setcounter{grenze}{30+1}}\or - {\setcounter{grenze}{31+1}}\or - {\setcounter{grenze}{31+1}}\or - {\setcounter{grenze}{30+1}}\or - {\setcounter{grenze}{31+1}}\or - {\setcounter{grenze}{30+1}}\or - {\setcounter{grenze}{31+1}}\or\fi} - -% das +1 kommt daher, weil Zeilennummer <> Monatsnummer -%===================================================================== - -%##################################################################### -%===================================================================== -% Hier wird der Rahmen des Kalenders gesetzt und mein Vermerk -%===================================================================== - -\newcommand{\Kalenderrahmen}{ -\setcounter{ykoordrahmen}{141-\value{ykoord}-3} -\setcounter{ycopya}{\value{ykoord}-14} -\setcounter{ycopyb}{\value{ykoord}-17} -\put(0,141){\line(0,-1){\value{ykoordrahmen}}} %linke Randlinie -\multiput(30,141)(6,0){29}{\line(0,-1){\value{ykoordrahmen}}} %senkr Linien -\put(1.5,135){\bf Monat} -\multiput(30,135)(42,0){4}{\makebox(6,0)[b]{\bf M\hspace*{-0.4mm}o}} -\multiput(36,135)(42,0){4}{\makebox(6,0)[b]{\bf Di}} -\multiput(42,135)(42,0){4}{\makebox(6,0)[b]{\bf Mi}} -\multiput(48,135)(42,0){4}{\makebox(6,0)[b]{\bf Do}} -\multiput(54,135)(42,0){4}{\makebox(6,0)[b]{\bf Fr}} -\multiput(60,135)(42,0){4}{\makebox(6,0)[b]{\bf Sa}} -\multiput(66,135)(42,0){4}{\makebox(6,0)[b]{\bf So}} -\put(0,141){\line(1,0){198}} -\put(0,133){\line(1,0){198}} -\put(158,\value{ycopya}){\makebox(30,15)[t]{\tiny \copyright 1995 J"org -S"ohner}} -\put(158,\value{ycopyb}){\makebox(30,15)[t]{\tiny formed and printed by -\LaTeXe}}} - -%#################################################################### -%==================================================================== -% Hier werden die Tage richtig gesetzt -%==================================================================== - -\newcommand{\Tage}{ -\setcounter{monatnr}{12} %Monatsnummer wird gesetzt (mit Dezember f„ngts an) -\setcounter{ykoord}{130} % Anfangs - y - Koordinate -\setcounter{monatna}{1} % Fr dem Monatsnamen -\setcounter{spalte}{5+\value{differ}+\value{vielfaches}} -% Die Zahl 5 bedeutet, dass der 1 Dez. 1899 am 5. Wochentag (Freitag beginnt) -\whiledo{\value{spalte} > 28}{\setcounter{spalte}{\value{spalte} - 28}} -\whiledo{\value{spalte} < 1}{\setcounter{spalte}{\value{spalte} + 28}} -\setcounter{zeile}{1} -\setzetage} % Die Tage werden nun fr alle Monate gesetzt - -%=================================================================== -\newcommand{\zeileunten}{\setcounter{ykoord}{\value{ykoord}-4}} -\newcommand{\linie}{\setcounter{ykoord}{\value{ykoord}-1} - \put(0,\value{ykoord}){\line(1,0){198}} - \setcounter{ykoord}{\value{ykoord}-3}} -%===================================================================== -\newcommand{\setzemonatname}{\setcounter{ykoordmonat}{\value{ykoord}+3} - \setcounter{boxhoehe}{\value{zeilenanzahl}*4} -\put(1.5,\value{ykoordmonat}){\makebox(0,\value{boxhoehe})[l]{\monatname}}} -%=================================================================== -\newcommand{\setxkoord}{\setcounter{xkoord}{24+3+\value{spalte}*6}} - -%=================================================================== - -\newcommand{\setzetage}{ % Befehl zum Setzen der Tage -\setcounter{tag}{1} -\setgrenze % Die Monatsgrenze wird ermittel -\setcounter{zeilenanzahl}{1} -\whiledo{\value{tag} < \value{grenze}}{\setxkoord -\put(\value{xkoord},\value{ykoord}){\makebox(0,0)[b]{\thetag}} -\stepcounter{tag} -\stepcounter{spalte} -\ifthenelse{\value{spalte}=29}{\setcounter{spalte}{1} -\ifthenelse{\value{tag} < -\value{grenze}}{\zeileunten\stepcounter{zeilenanzahl}}{}}{} -} -\linie -\setzemonatname -\stepcounter{zeile} -\whiledo{\value{zeile} < 15}{\stepcounter{monatnr} -\stepcounter{monatna} -\ifthenelse{\value{monatnr} > 12}{\setcounter{monatnr}{1}}{} -\setzetage} % fr die restlichen Monate -} -%========================== E N D E ================================= |