summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/pst-calendar
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-09-12 20:28:41 +0000
committerKarl Berry <karl@freefriends.org>2021-09-12 20:28:41 +0000
commitfb50ed521936ee0f9fc10cdbc1f0c5d7b7fab36f (patch)
tree61a7e145dd94192dbb215e4f232ebf3c389f8649 /Master/texmf-dist/tex/latex/pst-calendar
parentc93ccee55ae48c966c971db28306fb10c192a72e (diff)
pst-calendar (12sep21)
git-svn-id: svn://tug.org/texlive/trunk@60480 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/pst-calendar')
-rw-r--r--Master/texmf-dist/tex/latex/pst-calendar/pst-calendar.sty110
1 files changed, 50 insertions, 60 deletions
diff --git a/Master/texmf-dist/tex/latex/pst-calendar/pst-calendar.sty b/Master/texmf-dist/tex/latex/pst-calendar/pst-calendar.sty
index c34692384f4..0c9885bdfde 100644
--- a/Master/texmf-dist/tex/latex/pst-calendar/pst-calendar.sty
+++ b/Master/texmf-dist/tex/latex/pst-calendar/pst-calendar.sty
@@ -1,3 +1,4 @@
+%% $Id: pst-calendar.sty 231 2021-09-11 18:06:55Z herbert $
%%
%% This is file `pst-calendar.sty',
%%
@@ -6,7 +7,7 @@
%% Package `pst-calendar.sty'
%%
%% Manuel LUQUE <Mluque5130aol.com>
-%% Herbert Voss <voss _at_ perce.de>
+%% Herbert Voss <hvoss@tug.org>
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -14,38 +15,26 @@
%%
%% DESCRIPTION:
%% `pst-calendar' is a PSTricks package to draw a calendar,
-%% as a tabular or as doecahedron
+%% as a tabular or as dodecahedron
%%
% Requires PSTricks, pstricks, pst-3d, multido, fp packages
%% Manuel LUQUE <Mluque5130aol.com> %%
-%% 1 Octobre 1999 pour le dodécaèdre %%
-%% 23 avril 2003 pour le calendrier %%
-%% 27 avril : placer une date de son choix
-%% suggestion de Jean-Michel Sarlat
-%% jours fériés et fêtes : 1 mai 003 %%
-%% 1 et 8 mai, 15 août, 1 et 11 novembre, 25 décembre
-%% fête de Pâques %%
-%% ascension et pentecôte : 8 mai 2003
%
\NeedsTeXFormat{LaTeX2e}
%
-\ProvidesPackage{pst-calendar}
- [2005/11/09 v0.47 calendars with `PSTricks' (ML,hv)]
- %
+\ProvidesPackage{pst-calendar}[2021/09/11 v0.48 calendars with `PSTricks' (ML,hv)]
%
\RequirePackage{fp}
\FPmessagesfalse
\RequirePackage{pstricks}
-\SpecialCoor%
\RequirePackage{pst-3d}
\RequirePackage{multido}
\RequirePackage{pst-xkey}
+\def\pstCalendarVersion{0.48}
+
\pst@addfams{pst-calendar}% hv
-\def\CalendrierFP@version{Version 0.47, 2005-11-07}
-\message{`pst-Calendar avec FP', \CalendrierFP@version\space ML/hv}
-%
\DeclareOption{english}{%
\def\ps@Jan{January}
\def\ps@Feb{February}
@@ -68,7 +57,7 @@
\def\ps@Son{S}
}
\DeclareOption{french}{%
-\typeout{pst-calendar: using french options}
+\typeout{pst-calendar: using french option}
\def\ps@Jan{JANVIER}
\def\ps@Feb{FEVRIER}
\def\ps@Mar{MARS}
@@ -90,6 +79,7 @@
\def\ps@Son{D}
}
\DeclareOption{ngerman}{%
+\typeout{pst-calendar: using ngerman option}
\def\ps@Jan{Januar}
\def\ps@Feb{Februar}
\def\ps@Mar{M\"arz}
@@ -114,23 +104,23 @@
\ExecuteOptions{english}
\ProcessOptions
%
-\define@key[psset]{pst-calendar}{Day}{\def\psk@CalendrierJ{#1}}
-\define@key[psset]{pst-calendar}{MonthUse}{\def\psk@CalendrierMchoix{#1}}
-\define@key[psset]{pst-calendar}{Month}{\def\psk@CalendrierM{#1}}
-\define@key[psset]{pst-calendar}{Year}{\def\psk@CalendrierA{#1}}
-\psset{Day=\number\day,Month=\number\month,MonthUse=\number\month,Year=\number\year}
+\define@key[psset]{pst-calendar}{Day}[1]{\def\psk@CalendrierJ{#1}}
+\define@key[psset]{pst-calendar}{MonthUse}[1]{\def\psk@CalendrierMchoix{#1}}
+\define@key[psset]{pst-calendar}{Month}[1]{\def\psk@CalendrierM{#1}}
+\define@key[psset]{pst-calendar}{Year}[2099]{\def\psk@CalendrierA{#1}}
+\psset[pst-calendar]{Day=\number\day,Month=\number\month,MonthUse=\number\month,Year=\number\year}
%
-\define@key[psset]{pst-calendar}{Jour}{\def\psk@CalendrierJ{#1}}
-\define@key[psset]{pst-calendar}{MoisChoisi}{\def\psk@CalendrierMchoix{#1}}
-\define@key[psset]{pst-calendar}{Mois}{\def\psk@CalendrierM{#1}}
-\define@key[psset]{pst-calendar}{An}{\def\psk@CalendrierA{#1}}
-\psset{Jour=\number\day,Mois=\number\month,MoisChoisi=\number\month,An=\number\year}
+\define@key[psset]{pst-calendar}{Jour}[1]{\def\psk@CalendrierJ{#1}}
+\define@key[psset]{pst-calendar}{MoisChoisi}[1]{\def\psk@CalendrierMchoix{#1}}
+\define@key[psset]{pst-calendar}{Mois}[1]{\def\psk@CalendrierM{#1}}
+\define@key[psset]{pst-calendar}{An}[2099]{\def\psk@CalendrierA{#1}}
+\psset[pst-calendar]{Jour=\number\day,Mois=\number\month,MoisChoisi=\number\month,An=\number\year}
%
-\define@key[psset]{pst-calendar}{Tag}{\def\psk@CalendrierJ{#1}}
-\define@key[psset]{pst-calendar}{MonatT}{\def\psk@CalendrierMchoix{#1}}
-\define@key[psset]{pst-calendar}{Monat}{\def\psk@CalendrierM{#1}}
-\define@key[psset]{pst-calendar}{Jahr}{\def\psk@CalendrierA{#1}}
-\psset{Tag=\number\day,Monat=\number\month,MonatT=\number\month,Jahr=\number\year}
+\define@key[psset]{pst-calendar}{Tag}[1]{\def\psk@CalendrierJ{#1}}
+\define@key[psset]{pst-calendar}{MonatT}[1]{\def\psk@CalendrierMchoix{#1}}
+\define@key[psset]{pst-calendar}{Monat}[1]{\def\psk@CalendrierM{#1}}
+\define@key[psset]{pst-calendar}{Jahr}[2099]{\def\psk@CalendrierA{#1}}
+\psset[pst-calendar]{Tag=\number\day,Monat=\number\month,MonatT=\number\month,Jahr=\number\year}
%
\newpsstyle{january}{Vx=-\rc,Vy=0,Vz=-\rd,viewangle=108}
\newpsstyle{february}{Vx=\rc,Vy=0,Vz=-\rd,viewangle=180}
@@ -184,10 +174,10 @@
\definecolor{RougeK}{cmyk}{0.05,0.6,0.6,0}
\definecolor{RougeL}{cmyk}{0.1,0.65,0.65,0}
\newpsstyle{holiday}{framesep=2pt,doubleline=true,doublecolor=red,linecolor=red,fillstyle=solid,fillcolor=RougeA}
-\define@key[psset]{pst-calendar}{Vx}{\def\psk@Solide@Viewpointx{#1}}
-\define@key[psset]{pst-calendar}{Vy}{\def\psk@Solide@Viewpointy{#1}}
-\define@key[psset]{pst-calendar}{Vz}{\def\psk@Solide@Viewpointz{#1}}
-\psset{Vx=1,Vy=1,Vz=1}
+\define@key[psset]{pst-calendar}{Vx}[1]{\def\psk@Solide@Viewpointx{#1}}
+\define@key[psset]{pst-calendar}{Vy}[1]{\def\psk@Solide@Viewpointy{#1}}
+\define@key[psset]{pst-calendar}{Vz}[1]{\def\psk@Solide@Viewpointz{#1}}
+\psset[pst-calendar]{Vx=1,Vy=1,Vz=1}
%
\def\RA{7.36022}\gdef\rb{5.06525}\gdef\ra{8.19574}%
\gdef\rc{5.06525}\gdef\rd{8.19574}
@@ -199,59 +189,59 @@
\pspicture(-8,-12)(8,12)%
\psset{fillstyle=solid}%
\psset{viewpoint={\psk@Solide@Viewpointx} {\psk@Solide@Viewpointy} {\psk@Solide@Viewpointz}}%
-\newcommand{\faceA}{\pspolygon(\RA;18)(\RA;90)(\RA;162)(\RA;234)(\RA;306)}
-\newcommand{\faceB}{\pspolygon(\RA;270)(\RA;-18)(\RA;54)(\RA;126)(\RA;198)}
-\newcommand{\faceC}{\pspolygon(\RA;0)(\RA;72)(\RA;144)(\RA;216)(\RA;288)}
-\newcommand{\faceD}{\pspolygon(\RA;36)(\RA;108)(\RA;180)(\RA;252)(\RA;324)}
+ \newcommand\faceA{\pspolygon(\RA;18)(\RA;90)(\RA;162)(\RA;234)(\RA;306)}
+ \newcommand\faceB{\pspolygon(\RA;270)(\RA;-18)(\RA;54)(\RA;126)(\RA;198)}
+ \newcommand\faceC{\pspolygon(\RA;0)(\RA;72)(\RA;144)(\RA;216)(\RA;288)}
+ \newcommand\faceD{\pspolygon(\RA;36)(\RA;108)(\RA;180)(\RA;252)(\RA;324)}
%face1
-\FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)+(\psk@Solide@Viewpointy)*(\ra)+(\psk@Solide@Viewpointz)*(\rb)}%
-\FPifpos{\Test}\ThreeDput[normal=0 {\ra} {\rb}](0,\ra,\rb){%
-\psset{fillcolor=RougeA}\faceA\rput{36}{\rput(0,0){\psCalendar[Mois=11]}}}\fi
+ \FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)+(\psk@Solide@Viewpointy)*(\ra)+(\psk@Solide@Viewpointz)*(\rb)}%
+ \FPifpos{\Test}\ThreeDput[normal=0 {\ra} {\rb}](0,\ra,\rb){%
+ \psset{fillcolor=RougeA}\faceA\rput{36}{\rput(0,0){\psCalendar[#1,Mois=11]}}}\fi
%face2
-\FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)-(\psk@Solide@Viewpointy)*(\ra)+(\psk@Solide@Viewpointz)*(\rb)}%
-\FPifpos{\Test}\ThreeDput[normal=0 {-\ra} {\rb}](0,-\ra,\rb){%
-\psset{fillcolor=RougeB}\faceA\rput{-36}{\rput(0,0){\psCalendar[Mois=8]}}}\fi
+ \FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)-(\psk@Solide@Viewpointy)*(\ra)+(\psk@Solide@Viewpointz)*(\rb)}%
+ \FPifpos{\Test}\ThreeDput[normal=0 {-\ra} {\rb}](0,-\ra,\rb){%
+ \psset{fillcolor=RougeB}\faceA\rput{-36}{\rput(0,0){\psCalendar[#1,Mois=8]}}}\fi
%face3
-\FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)+(\psk@Solide@Viewpointy)*(\ra)-(\psk@Solide@Viewpointz)*(\rb)}%
-\FPifpos{\Test}\ThreeDput[normal=0 {\ra} {-\rb}](0,\ra,-\rb){%
-\psset{fillcolor=RougeC}\faceB\rput{216}{\rput(0,0){\psCalendar[Mois=6]}}}\fi
+ \FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)+(\psk@Solide@Viewpointy)*(\ra)-(\psk@Solide@Viewpointz)*(\rb)}%
+ \FPifpos{\Test}\ThreeDput[normal=0 {\ra} {-\rb}](0,\ra,-\rb){%
+ \psset{fillcolor=RougeC}\faceB\rput{216}{\rput(0,0){\psCalendar[#1,Mois=6]}}}\fi
%face4
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(0)-(\psk@Solide@Viewpointy)*(\ra)-(\psk@Solide@Viewpointz)*(\rb)}%
\FPifpos{\Test}\ThreeDput[normal=0 {-\ra} {-\rb}](0,-\ra,-\rb){%
-\psset{fillcolor=RougeD}\faceB\rput{144}{\rput(0,0){\psCalendar[Mois=3]}}}\fi%
+\psset{fillcolor=RougeD}\faceB\rput{144}{\rput(0,0){\psCalendar[#1,Mois=3]}}}\fi%
%face 5
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(\rc)+(\psk@Solide@Viewpointy)*(0)+(\psk@Solide@Viewpointz)*(\rd)}%
\FPifpos{\Test}\ThreeDput[normal={\rc} 0 {\rd}](\rc,0,\rd){%
-\psset{fillcolor=RougeE}\faceB\rput(0,0){\psCalendar[Mois=12]}}\fi
+\psset{fillcolor=RougeE}\faceB\rput(0,0){\psCalendar[#1,Mois=12]}}\fi
%face6
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(-\rc)+(\psk@Solide@Viewpointy)*(0)+(\psk@Solide@Viewpointz)*(\rd)}%
\FPifpos{\Test}\ThreeDput[normal={-\rc} 0 {\rd}](-\rc,0,\rd){%
-\psset{fillcolor=RougeF}\faceB\rput{0}{\rput(0,0){\psCalendar[Mois=7]}}}\fi
+\psset{fillcolor=RougeF}\faceB\rput{0}{\rput(0,0){\psCalendar[#1,Mois=7]}}}\fi
%face7
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(\rc)+(\psk@Solide@Viewpointy)*(0)-(\psk@Solide@Viewpointz)*(\rd)}%
\FPifpos{\Test}\ThreeDput[normal={\rc} 0 {-\rd}](\rc,0,-\rd){%
-\psset{fillcolor=RougeG}\faceA\rput{180}{\rput(0,0){\psCalendar[Mois=2]}}}\fi
+\psset{fillcolor=RougeG}\faceA\rput{180}{\rput(0,0){\psCalendar[#1,Mois=2]}}}\fi
%face8
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(-\rc)+(\psk@Solide@Viewpointy)*(0)-(\psk@Solide@Viewpointz)*(\rd)}%
\FPifpos{\Test}\ThreeDput[normal={-\rc} 0 {-\rd}](-\rc,0,-\rd){%
-\psset{fillcolor=RougeH}\faceA\rput{108}{\rput(0,0){\psCalendar[Mois=1]}}}\fi%
+\psset{fillcolor=RougeH}\faceA\rput{108}{\rput(0,0){\psCalendar[#1,Mois=1]}}}\fi%
%face 9
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(\rd)+(\psk@Solide@Viewpointy)*(\rc)+(\psk@Solide@Viewpointz)*(0)}%
\FPifpos{\Test}\ThreeDput[normal={\rd} {\rc} 0](\rd,\rc,0){%
-\psset{fillcolor=RougeI}\faceC\rput{18}{\rput(0,0){\psCalendar[Mois=10]}}}\fi
+\psset{fillcolor=RougeI}\faceC\rput{18}{\rput(0,0){\psCalendar[#1,Mois=10]}}}\fi
%face10
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(-\rd)+(\psk@Solide@Viewpointy)*(\rc)+(\psk@Solide@Viewpointz)*(0)}%
\FPifpos{\Test}\ThreeDput[normal={-\rd} {\rc} 0](-\rd,\rc,0){%
-\psset{fillcolor=RougeJ}\faceD\rput{198}{\rput(0,0){\psCalendar[Mois=5]}}}\fi
+\psset{fillcolor=RougeJ}\faceD\rput{198}{\rput(0,0){\psCalendar[#1,Mois=5]}}}\fi
%face11
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(\rd)-(\psk@Solide@Viewpointy)*(\rc)+(\psk@Solide@Viewpointz)*(0)}%
\FPifpos{\Test}\ThreeDput[normal={\rd} {-\rc} 0](\rd,-\rc,0){%
-\psset{fillcolor=RougeK}\faceD\rput{-18}{\rput(0,0){\psCalendar[Mois=9]}}}\fi
+\psset{fillcolor=RougeK}\faceD\rput{-18}{\rput(0,0){\psCalendar[#1,Mois=9]}}}\fi
%face8
\FPeval{\Test}{(\psk@Solide@Viewpointx)*(-\rd)+(\psk@Solide@Viewpointz)*(0)-(\psk@Solide@Viewpointy)*(\rc)}%
\FPifpos{\Test}\ThreeDput[normal={-\rd} {-\rc} 0](-\rd,-\rc,0){%
-\psset{fillcolor=RougeL}\faceC\rput{162}{\rput(0,0){\psCalendar[Mois=4]}}}\fi%
-\endpspicture
+ \psset{fillcolor=RougeL}\faceC\rput{162}{\rput(0,0){\psCalendar[#1,Mois=4]}}}\fi%
+\endpspicture%
}}
%
%