pst-gantt 0.21 (24feb10)

git-svn-id: svn://tug.org/texlive/trunk@17206 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 19 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-gantt/pst-gantt.tex b/Master/texmf-dist/tex/generic/pst-gantt/pst-gantt.tex
index d0876e18139..5c2ea0b5cd4 100644
--- a/Master/texmf-dist/tex/generic/pst-gantt/pst-gantt.tex
+++ b/Master/texmf-dist/tex/generic/pst-gantt/pst-gantt.tex
@@ -29,8 +29,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-gantt}
 %
-\def\fileversion{0.2}
-\def\filedate{2009/05/12}
+\def\fileversion{0.21}
+\def\filedate{2010/02/23}
 \message{`pst-gantt' v\fileversion, \filedate\space (Denis Girou and Herbert Voss)}
 %
 % "pspicture" environment or not?
@@ -39,6 +39,14 @@
 % Intervals to show?
 \define@boolkey[psset]{pst-gantt}[Pst@]{ChartShowIntervals}[true]{}
 \psset[pst-gantt]{ChartShowIntervals=false}
+\define@key[psset]{pst-gantt}{ChartStartInterval}[1]{\def\psk@GanttStartInterval{#1}}
+\psset[pst-gantt]{ChartStartInterval=1}
+%
+\define@boolkey[psset]{pst-gantt}[Pst@]{ChartModulo}[true]{}
+\psset[pst-gantt]{ChartModulo=false}
+\define@key[psset]{pst-gantt}{ChartModuloValue}[52]{\def\psk@ChartModuloValue{#1}}
+\psset[pst-gantt]{ChartModuloValue=52}
+%
 % Style for the tasks
 \define@key[psset]{pst-gantt}{TaskStyle}[TaskStyleDefault]{\def\psk@GanttTaskStyle{#1}}
 \psset[pst-gantt]{TaskStyle=TaskStyleDefault}
@@ -129,13 +137,20 @@
   \advance\pst@dima\@ne pt
   \pst@dimtonum{\pst@dima}{\pst@tempa}
   %
-  \multido{\iInterval=1+1,\iIntervalPos=1+\psk@GanttTaskUnitIntervalValue,
+  \multido{\iStartInterval=\psk@GanttStartInterval+1,\iInterval=1+1,
+           \iIntervalPos=1+\psk@GanttTaskUnitIntervalValue,
            \nIntervalPos=\pst@tempa+\psk@GanttTaskUnitIntervalValue.0}{\pst@cnta}{%
     \ifnum\iInterval=\pst@cnta
       \psline(\iIntervalPos,0)(\iIntervalPos,1.5)
       \psline[linestyle=dotted](\iIntervalPos,-\pst@cntb)(\iIntervalPos,0)
     \else
-      \rput(\nIntervalPos,1){\psk@GanttChartUnitIntervalName\space\iInterval}
+      \ifPst@ChartModulo
+        \pst@mod{\iStartInterval}{\psk@ChartModuloValue}\pst@iInterval%
+        \pst@cntm=\pst@iInterval \advance\pst@cntm by \@ne
+        \rput(\nIntervalPos,1){\psk@GanttChartUnitIntervalName\space\the\pst@cntm}
+      \else
+        \rput(\nIntervalPos,1){\psk@GanttChartUnitIntervalName\space\iStartInterval}
+      \fi
       \psline(\iIntervalPos,0)(\iIntervalPos,1.5)
       \psline[linestyle=dotted](\iIntervalPos,-\pst@cntb)(\iIntervalPos,0)
     \fi}