summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex229
1 files changed, 0 insertions, 229 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex
deleted file mode 100644
index bcd1a0a56ce..00000000000
--- a/Master/texmf-dist/doc/generic/pstricks/voss/bsp109.tex
+++ /dev/null
@@ -1,229 +0,0 @@
-\documentclass[a4paper]{article}
-
-\usepackage{lscape}
-\usepackage{pstricks}
-\usepackage{pst-grad}
-\usepackage{pst-key}
-\usepackage{multido}
-
-\makeatletter
-
-% "pspicture" environment or not?
-\newif\ifPst@PstPicture
-\define@key{psset}{PstPicture}[true]{%
-\@nameuse{Pst@PstPicture#1}}
-
-% Intervals to show?
-\newif\ifPst@GanttChartShowIntervals
-\define@key{psset}{ChartShowIntervals}[true]{%
-\@nameuse{Pst@GanttChartShowIntervals#1}}
-
-% Style for the tasks
-\define@key{psset}{TaskStyle}{\def\psk@GanttTaskStyle{#1}}
-
-% Name for unit interval
-\define@key{psset}{ChartUnitIntervalName}{%
-\def\psk@GanttChartUnitIntervalName{#1}}
-
-% Name for basic unit
-\define@key{psset}{ChartUnitBasicIntervalName}{%
-\def\psk@GanttChartUnitBasicIntervalName{#1}}
-
-% Unit interval for the tasks (7 for a week, 30 for a month, etc.)
-% Warning: define it before "TaskUnitType"!
-\define@key{psset}{TaskUnitIntervalValue}{%
-\pst@cntg=#1\relax
-\edef\psk@GanttTaskUnitIntervalValue{\the\pst@cntg}}
-
-% Unit type for the tasks (UnitIntervalName or UnitBasicIntervalName)
-\define@key{psset}{TaskUnitType}{%
-\edef\psk@GanttTaskUnitValue{#1}%
-% Validation of the parameter
-\ifx\psk@GanttTaskUnitValue\psk@GanttChartUnitIntervalName
- \edef\psk@GanttTaskUnitValue{\psk@GanttTaskUnitIntervalValue}%
-\else
- \ifx\psk@GanttTaskUnitValue\psk@GanttChartUnitBasicIntervalName
- \def\psk@GanttTaskUnitValue{1}%
- \else
- {\@pstrickserr{GanttTaskUnitType must be `\psk@GanttChartUnitIntervalName'
- or `\psk@GanttChartUnitBasicIntervalName'
- (and not `\psk@GanttTaskUnitValue')}\@eha}%
- \fi
-\fi}
-
-% Outside label for the tasks
-\define@key{psset}{TaskOutsideLabel}{\def\psk@GanttTaskOutsideLabel{#1}}
-
-% Inside label for the tasks
-\define@key{psset}{TaskInsideLabel}{\def\psk@GanttTaskInsideLabel{#1}}
-
-% Maximum outside size label for the tasks (in unit TaskUnitType !)
-\define@key{psset}{TaskOutsideLabelMaxSize}{%
-\pst@cntg=#1\relax
-\edef\psk@GanttTaskOutsideLabelMaxSize{\the\pst@cntg}}
-
-% Default values
-% --------------
-% pspicture environment, don't show intervals, default task style,
-% unit for tasks is a week (so 7 days), no outside and inside labels
-\setkeys{psset}{%
-PstPicture=true,ChartShowIntervals=false,TaskStyle=TaskStyleDefault,
-ChartUnitIntervalName=Week,ChartUnitBasicIntervalName=Day,
-TaskUnitIntervalValue=7,TaskUnitType=Week,
-TaskOutsideLabel=,TaskInsideLabel=,TaskOutsideLabelMaxSize=0}
-
-\newpsstyle{TaskStyleDefault}{fillstyle=solid,fillcolor=yellow}
-
-% The environment \PstGanttChart
-% ------------------------------
-
-% Syntax: \PstGanttChart[parameters]{Number of tasks}{Number of days}
-\def\PstGanttChart{\@ifnextchar[\PstGanttChart@i{\PstGanttChart@i[]}}
-
-\def\PstGanttChart@i[#1]#2#3{%
-\begingroup
-\setkeys{psset}{unit=0.1,#1} % Affectation of local parameters
-%
-\ifPst@PstPicture % "pspicture" environment
- \pst@cnta=\psk@GanttTaskOutsideLabelMaxSize
- \multiply\pst@cnta\psk@GanttTaskUnitValue
- %
- \pst@cntb=#2
- \multiply\pst@cntb by 5
- \advance\pst@cntb\@ne
- %
- \pst@cntc=#3
- \multiply\pst@cntc\psk@GanttTaskUnitValue
- \advance\pst@cntc\tw@
- %
- \ifPst@GanttChartShowIntervals
- \pspicture(-\pst@cnta,-\pst@cntb)(\pst@cntc,2)
- \else
- \pspicture(-\pst@cnta,-\pst@cntb)(\pst@cntc,0)
- \fi
-\fi
-\psframe(0,-\pst@cntb)(\pst@cntc,0)
-%
-\ifPst@GanttChartShowIntervals
- % We will show the intervals
- \pst@cnta=#3
- \multiply\pst@cnta\psk@GanttTaskUnitValue
- \divide\pst@cnta\psk@GanttTaskUnitIntervalValue
- \advance\pst@cnta\@ne
- %
- \pst@cntb=#2
- \multiply\pst@cntb by 5
- \advance\pst@cntb\@ne
- %
- \pst@dima=\psk@GanttTaskUnitIntervalValue pt
- \divide\pst@dima\tw@
- \advance\pst@dima\@ne pt
- \pst@dimtonum{\pst@dima}{\pst@tempa}
- %
- \multido{\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}
- \psline(\iIntervalPos,0)(\iIntervalPos,1.5)
- \psline[linestyle=dotted](\iIntervalPos,-\pst@cntb)(\iIntervalPos,0)
- \fi}
-\fi}
-
-\def\endPstGanttChart{%
-\ifPst@PstPicture
- \endpspicture % End of "pspicture" environment
-\fi
-\endgroup}
-
-% The macro \PstGanttTask
-% -----------------------
-
-\newcount\pst@GanttTaskCnt
-\pst@GanttTaskCnt=\z@
-
-% Syntax: \PstGanttTask[parameters]{Start}{Length}
-\def\PstGanttTask{\@ifnextchar[\PstGanttTask@i{\PstGanttTask@i[]}}
-
-\def\PstGanttTask@i[#1]#2#3{
-\advance\pst@GanttTaskCnt\m@ne
-\begingroup
-\setkeys{psset}{#1}% % Affectation of local parameters
-% Frame
-\pst@cnta=\psk@GanttTaskUnitValue
-\multiply\pst@cnta by #2
-\advance\pst@cnta\@ne
-%
-\pst@cntb=\psk@GanttTaskUnitValue
-\multiply\pst@cntb by #3
-\advance\pst@cntb\pst@cnta
-%
-\pst@cntc=\pst@GanttTaskCnt
-\multiply\pst@cntc by 5
-%
-\pst@cntd=\pst@cntc
-\advance\pst@cntd by 4
-%
-\psframe[style=\psk@GanttTaskStyle](\pst@cnta,\pst@cntc)(\pst@cntb,\pst@cntd)
-% Inside label
-\ifx\psk@GanttTaskInsideLabel\empty
-\else
- \pst@dima=\pst@cnta pt
- \advance\pst@dima\pst@cntb pt
- \divide\pst@dima\tw@
- \pst@dimtonum{\pst@dima}{\pst@tempa}
- %
- \pst@dimb=\pst@cntc pt
- \advance\pst@dimb\pst@cntd pt
- \divide\pst@dimb\tw@
- \pst@dimtonum{\pst@dimb}{\pst@tempb}
- %
- \rput(\pst@tempa,\pst@tempb){\psk@GanttTaskInsideLabel}
-\fi
-% Outside label
-\ifx\psk@GanttTaskOutsideLabel\empty
-\else
- \pst@dimb=\pst@cntc pt
- \advance\pst@dimb\pst@cntd pt
- \divide\pst@dimb\tw@
- \pst@dimtonum{\pst@dimb}{\pst@tempb}
- \rput[r](-1.5,\pst@tempb){\psk@GanttTaskOutsideLabel}
-\fi
-\endgroup}
-
-\makeatother
-
-
-\begin{document}
-
-\definecolor{LightCyan} {rgb}{0.88,1.,1.}
-\definecolor{Orange} {rgb}{1.,0.65,0.}
-\definecolor{PaleGreen} {rgb}{0.6,0.98,0.6}
-\definecolor{Pink} {rgb}{1.,0.75,0.8}
-
-\psset{gradmidpoint=0,fillstyle=gradient,gradbegin=LightCyan,gradend=white}
-\newpsstyle{TaskStyleA}{gradbegin=cyan,gradend=blue}
-\newpsstyle{TaskStyleB}{gradbegin=red,gradend=Pink}
-\newpsstyle{TaskStyleC}{gradbegin=yellow,gradend=Orange}
-\newpsstyle{TaskStyleD}{gradbegin=green,gradend=PaleGreen}
-
-\begin{landscape}
-\begin{PstGanttChart}[yunit=2.5,xunit=3.5,ChartUnitIntervalName=Semaine,
- ChartUnitBasicIntervalName=Jour,TaskUnitType=Jour,
- TaskOutsideLabelMaxSize=14,ChartShowIntervals]{8}{43}
- \psset{gradangle=90,TaskStyle=TaskStyleA}
- \PstGanttTask[TaskOutsideLabel={\'Etude}]{0}{10}
- \PstGanttTask[TaskOutsideLabel={R\'edaction dossier}]{6}{7}
- \PstGanttTask[TaskOutsideLabel={Relecture et corrections}]{14}{2}
- \PstGanttTask[TaskOutsideLabel={Soumission},TaskStyle=TaskStyleB]{17}{1}
- \psset{TaskStyle=TaskStyleC}
- \PstGanttTask[TaskOutsideLabel={R\'ealisation}]{25}{14}
- \PstGanttTask[TaskOutsideLabel={Tests}]{35}{6}
- \PstGanttTask[TaskOutsideLabel={V\'erification}]{39}{3}
- \PstGanttTask[TaskOutsideLabel={Recette},TaskStyle=TaskStyleD]{42}{1}
-\end{PstGanttChart}
-\end{landscape}
-
-\end{document}