summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-28 00:40:04 +0000
committerKarl Berry <karl@freefriends.org>2008-11-28 00:40:04 +0000
commit1c4b9b9cf2ef89c3c82f326b01ad001a45989092 (patch)
tree9a4e1b5d732fbd7f685762b3bcbd77d5f790ad7b /Master/texmf-dist/doc/generic
parentd5c8adb97c81f485da34580a1811835fafe84915 (diff)
pst-bar 0.92 (26nov08)
git-svn-id: svn://tug.org/texlive/trunk@11440 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic')
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/LICENSE2
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/README34
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib66
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdfbin110870 -> 114763 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex738
-rw-r--r--Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig420
6 files changed, 1241 insertions, 19 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-bar/LICENSE b/Master/texmf-dist/doc/generic/pst-bar/LICENSE
deleted file mode 100644
index d0d0621559e..00000000000
--- a/Master/texmf-dist/doc/generic/pst-bar/LICENSE
+++ /dev/null
@@ -1,2 +0,0 @@
-This material is subject to the LaTeX Project Public License. See
-http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html for details.
diff --git a/Master/texmf-dist/doc/generic/pst-bar/README b/Master/texmf-dist/doc/generic/pst-bar/README
index 7ed6a090579..cab7a017cba 100644
--- a/Master/texmf-dist/doc/generic/pst-bar/README
+++ b/Master/texmf-dist/doc/generic/pst-bar/README
@@ -1,17 +1,17 @@
-With pst-bar, one may use pstricks to produce bar charts directly from a data
-file. This package is still in the beta stage --- the usual caveats pertaining
-to beta software apply. Additional features and improved (in both content and
-layout) documentation will be provided as the code stabilizes.
-
-INSTALLATION:
-
-pst-bar consists of three files: pst-bar.sty, pst-bar.tex, and pst-bar.pro.
-Place the first two anywhere your installation can find them (typically
-$LOCALTEXMF/tex/latex/pst-bar for pst-bar.sty and
-$LOCALTEXMF/tex/generic/pst-bar for pst-bar.tex). Place pst-bar.pro where dvips
-can find it, typically in the pstricks subdirectory of your dvips directory
-(i.e., $LOCALTEXMF/dvips/pstricks).
-
-DOCUMENTATION:
-
-See pst-bar-doc.ps or pst-bar-doc.pdf for details on using pst-bar.
+With pst-bar, one may use pstricks to produce bar charts directly from a data
+file. This package is still in the beta stage --- the usual caveats pertaining
+to beta software apply. Additional features and improved (in both content and
+layout) documentation will be provided as the code stabilizes.
+
+INSTALLATION:
+
+pst-bar consists of three files: pst-bar.sty, pst-bar.tex, and pst-bar.pro.
+Place the first two anywhere your installation can find them (typically
+$LOCALTEXMF/tex/latex/pst-bar for pst-bar.sty and
+$LOCALTEXMF/tex/generic/pst-bar for pst-bar.tex). Place pst-bar.pro where dvips
+can find it, typically in the pstricks subdirectory of your dvips directory
+(i.e., $LOCALTEXMF/dvips/pstricks).
+
+DOCUMENTATION:
+
+See pst-bar-doc.ps or pst-bar-doc.pdf for details on using pst-bar.
diff --git a/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib
new file mode 100644
index 00000000000..7997765a242
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib
@@ -0,0 +1,66 @@
+@STRING{dtk = {{D}ie {\TeX}nische {K}om{\"o}die} }
+
+@Book{PostScript,
+ Author = {Kollock, Nikolai G.},
+ Title = {PostScript richtig eingesetzt: vom Konzept zum
+ praktischen Einsatz},
+ Publisher = {IWT},
+ Address = {Vaterstetten},
+ year = 1989,
+}
+
+@Manual{pstricks,
+ Title = {PSTricks - {\PS} macros for Generic TeX},
+ Author = {Timothy Van Zandt},
+ Organization = {},
+ Address = {\url{http://www.tug.org/application/PSTricks}},
+ Note = {},
+ year = 1993,
+}
+
+
+@Manual{pdftricks,
+ Title = {PSTricks Support for pdf},
+ Author = {Herbert Voss},
+ Organization = {},
+ Address = {\url{http://PSTricks.de/pdf/pdfoutput.phtml}},
+ Note = {},
+ year = 2002,
+}
+
+@Manual{miwi,
+ Title = {References for \TeX{} and Friends},
+ Author = {Michael Wiedmann and Peter Karp},
+ Organization = {},
+ Address = {\url{http://www.miwie.org/tex-refs/}},
+ Note = {},
+ year = 2003,
+}
+
+
+@Book{companion,
+ author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Vo{\ss}},
+ title = {The {\LaTeX} {G}raphics {C}ompanion},
+ publisher = {{Addison-Wesley Publishing Company}},
+ edition = second,
+ year = {2007},
+ address = {Reading, Mass.}
+}
+
+@Book{PSTricks2,
+ author = {Herbert Vo\ss},
+ title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+ edition = {5.},
+ publisher = {DANTE -- Lehmanns},
+ year = {2008},
+ address = {Heidelberg/Hamburg}
+}
+
+@Book{LaTeXRef,
+ author = {Herbert Vo\ss},
+ title = {\LaTeX\ Referenz},
+ edition = {1.},
+ publisher = {DANTE -- Lehmanns},
+ year = {2007},
+ address = {Heidelberg/Hamburg}
+}
diff --git a/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf
index 1b2b2673cd6..e1c445c0cdc 100644
--- a/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex
new file mode 100644
index 00000000000..74fb0702381
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex
@@ -0,0 +1,738 @@
+%% $Id: pst-bar-doc.tex 63 2008-11-26 18:00:46Z herbert $
+\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
+ headexclude,footexclude,oneside]{pst-doc}
+\listfiles
+\usepackage{pst-bar}%
+\let\pstBarVersion\fileversion
+\usepackage{booktabs}%
+\usepackage{filecontents}%
+\usepackage{verbatim}%
+\makeatletter
+\def\kernhack#1#2{%
+ \begingroup
+ \setbox\z@\hbox{#1#2}%
+ \dimen@\wd\z@
+ \setbox\z@\hbox{#1{}#2}\advance\dimen@-\wd\z@
+ \ifdim\dimen@=\z@\else\kern\dimen@\fi
+ \endgroup
+}
+\def\switch#1#2{%
+ \begingroup
+ \def\@switch##1#1##2\@nil#1##3\@stop{%
+ \def\reserved@a{##3}%
+ \ifx\reserved@a\@empty#2\else
+ \setbox\z@\hbox{##1#1}%
+ \setbox\tw@\hbox{\kernhack{#1}{##2}\switch{#1}{##2}}%
+ \dimen@\wd\tw@\advance\dimen@\wd\z@%
+ \wd\z@\dimen@%
+ \rlap{\hb@xt@\dimen@{\hfil\unhbox\tw@}}%
+ \box\z@
+ \fi
+ }%
+ \@switch#2\@nil#1\@nil#1\@stop
+ \endgroup
+}
+% Given an e-mail address of the form abc@def.ghi.jkl, reverses it to be jkl
+% ghi. def. abc@
+\def\switchemail#1{\expandafter\@switchemail#1\@stop}
+% Helper function for \switchemail. Note the \copy, because \kernhack will
+% destroy the box otherwise. Need to do some funky stuff because of catcodes.
+\begingroup
+\makeatother
+\def\tmp#1#2#3{%
+ \gdef#1##1@##2#2{%
+ \begingroup
+ \setbox#3\hbox{\switch{.}{##2}}%
+ \switch{@}{##1@\copy#3}%
+ \endgroup
+ }%
+}
+\makeatletter
+\tmp\@switchemail\@stop\@tempboxa
+\endgroup
+\makeatother
+
+\usepackage[T1]{fontenc}%
+
+\begin{filecontents*}{example1.csv}
+ Set 1, Set 2, Set 3
+ 1, 2, 3
+ 1, 2, 3
+\end{filecontents*}
+
+\begin{filecontents*}{example2.csv}
+ Set 1, Set 2, Set 3
+ 1, 2, 3
+ 0.5, 1.5, 1
+\end{filecontents*}
+
+\begin{filecontents*}{example3.csv}
+ Set 1, Set 2, Set 3
+ 1, 2, 3
+ 0.5, 1.5, 1
+ 0.75, 1.6, 0.9
+ 0.9, 2.2, 2.5
+\end{filecontents*}
+
+\begin{filecontents*}{example4.csv}
+ Set 1, Set 2, Set 3
+ 1, 0, 3
+\end{filecontents*}
+
+\begin{filecontents*}{example5.csv}
+ 0, 2, 0
+\end{filecontents*}
+
+\begin{filecontents*}{example6.csv}
+ Set 1, Set 2, Set 3
+ 1.3, 2.5, 0.9
+\end{filecontents*}
+
+\begin{filecontents*}{example7.csv}
+ 0.7, 1.9, 0.4
+ 1.2, 2.7, 1.4
+\end{filecontents*}
+
+\begin{document}
+\title{\texttt{pst-bar}\\ Bar charts for \texttt{pstricks}\\
+ {\small v.\pstBarVersion}}
+\author{Alan Ristow}
+\docauthor{Alan Ristow\\Herbert Vo\ss}
+\date{\today}
+\maketitle
+
+ \begin{abstract}
+ With \LPack{pst-bar}, one may use \LPack{pstricks} to produce bar charts
+ directly from a data file. This package is still in the beta stage --- the
+ usual caveats pertaining to beta software apply. Additional features and
+ improved (in both content and layout) documentation will be provided as the
+ code stabilizes.
+ \end{abstract}
+
+\section{Introduction}
+ \LPack{pst-bar} uses the power and flexibility of
+ \LPack{pstricks}~\cite{vanzandt:93} to draw bar charts from data stored in a
+ comma-delimited file. Several solutions exist for drawing bar charts for
+ \TeX\ and \LaTeX\ documents. The obvious solution is to use an external
+ program, such as \Index{gnuplot} or \Index{Matlab}, that can save bar charts in a format
+ that may be read directly into \TeX\ or \LaTeX. This approach has the
+ disadvantage that extra effort is required to produce charts with a uniform
+ appearance that blend well with the other graphics in a document. In many
+ cases the text in the chart can be typeset by \LaTeX\ with the aid of the
+ \LPack{psfrag} or \verb|psfragx| packages (for diagrams created with Matlab,
+ this process can be accelerated by \Index{LaPrint}, a Matlab program written
+ specifically for this purpose~\cite{linneman:04}). However, some programs
+ write the text elements in Encapsulated Postscript files in such a way that
+ the \LPack{psfrag}-based options cannot work.
+
+ Bar charts may also be drawn using the built-in drawing tools provided by
+ \TeX\ and \LaTeX. This is the approach used by the \LPack{histogr}
+ package~\cite{schopf:97}, which is intended to draw histograms, but can be
+ used to draw very simple bar charts. It also appears to be the approach
+ used by the \LPack{bar} package~\cite{bleser:94} for \LaTeX\ 2.09, which
+ defines an environment for drawing bar charts. However, the built-in
+ drawing tools are quite limited and work on the \LPack{bar} package appears
+ to have ceased after 1994.
+
+ More sophisticated drawing tools have been developed for use with \TeX\ and
+ \LaTeX, notably \verb|eepic|, \verb|texdraw| and \verb|latexdraw|,
+ \verb|LaTeXPiX|, MetaPost, \LPack{mfpic}, and \LPack{pstricks}. Any of these
+ tools might be used to create bar charts; however, none of them has
+ built-in support for doing so, and bar charts must be drawn using the
+ ``brute force'' method --- manually drawing boxes to represent the bars in
+ the chart. Depending on the tool, the axes of the chart might also need to
+ be drawn manually. The \LPack{pst-bar} package is intended to automate the
+ process of drawing bar charts using \LPack{pstricks}.
+
+ There are currently two existing solutions for producing bar charts using
+ \verb|pstricks|. One is the aforementioned brute force method in which a
+ series of \Lcs{psframe}s are drawn with suitable heights, widths, and
+ colors to produce the desired chart~\cite{voss:barcharts}. While this
+ method works admirably and provides maximum flexibility, it is tedious and
+ labor-intensive. The other option is the \LPack{bardiag} package, which
+ essentially automates this approach~\cite{stepanyan:03}. While effective,
+ \LPack{bardiag} requires a number of external packages to function, uses
+ \LaTeX\ to perform its mathematical operations, and is not compatible with
+ plain \TeX.
+
+ These issues are all avoided by \LPack{pst-bar}. It calls only on packages
+ that are part of the \verb|pstricks| family, provides extensive
+ customization features, relies on Postscript for nearly all mathematical
+ operations, and should be compatible with plain \TeX\ (untested).
+ \verb|pst-bar| provides commands for reading data from a comma-delimited
+ file to produce and label a bar chart. Multiple series of data may be
+ plotted in either clustered or stacked form, and bars may be plotted either
+ horizontally or vertically. An additional option allows block charts that
+ display the differences between subsequent rows of data in the data file
+ (see Section~\ref{sec:block}).
+
+ At this stage, \verb|pst-bar| should be regarded as beta software.
+ Revisions to the code between this release and the first stable release are
+ not guaranteed to be backward compatible.
+
+ \section{Drawing a Bar Chart}
+ Drawing a bar chart with \verb|pst-bar| is a three-step process: (i) read
+ the data file, (ii) draw the bars, and (iii) draw the axes. The first two
+ step are accomplished directly with \verb|pst-bar|; the third requires the
+ \LPack{pst-plot} package, a standard part of \verb|pstricks|.
+
+ The following sections address the data file format, how to load data from
+ the file, and how to use the data to produce a bar chart.
+
+ \subsection{Data File Format}
+ The data file must be comma-delimited with each row containing the same
+ number of entries. A header row is permitted, but no header entry may
+ contain commas or \Lcs{par} commands (including \verb|\\|). One of the
+ data files used for the examples in this manual looks like
+ \verbatiminput{example1.csv}%
+ In this case, \verb|Set 1|, \verb|Set 2|, and \verb|Set 3| are the
+ headers. The subsequent rows, hereafter referred to as \emph{data rows},
+ contain the data associated with these headers. The file is arranged in a
+ pseudo-columnar fashion, so that the data associated with \verb|Set 1|
+ are \verb|1| and \verb|1|, those with \verb|Set 2| are \verb|2| and
+ \verb|2|, and so on. After these data are plotted, the bars will be
+ labeled with the text from the header row.
+
+ \emph{Warning!} There are two very important conditions on the data
+ within the file:
+ \begin{itemize}
+ \item All data outside of the header must be numeric. If there is no
+ header row, all data in the file must be numeric.
+ \item Each row must contain the same number of entries.
+ \end{itemize}
+ Failure to meet these conditions may result in Postscript errors or (less
+ frequently) incorrectly labeled or drawn bar charts.
+
+ How these data are plotted depends on the type of plot desired. See
+ Sections~\ref{sec:cluster}--\ref{sec:block} and the examples in
+ Section~\ref{sec:examples} for more on this.
+
+ \subsection{Reading the Data File}
+ Use the command \verb|\readpsbardata| to read from a data file:
+ \begin{verbatim}
+ \readpsbardata[<options>]{<data>}{<filename>}\end{verbatim}
+ For the data, simply specify a macro name not currently in use.
+
+ The available options are:
+ \begin{center}
+ \begin{tabular}{ll}
+ \toprule
+ Parameter & Definition\\
+ \midrule
+ \Lkeyword{header} & \verb|true| if first line of data file is header
+ row\\
+ & \verb|false| otherwise\\
+ & Default: \verb|true|\\
+ \bottomrule
+ \end{tabular}
+ \end{center}
+ If \verb|header| is set to \verb|false|, \verb|pst-bar| will assume that
+ no header is present and treat the first line of the file as data.
+
+ \subsection{Drawing the Bars}
+ \label{sec:drawing_bars}%
+ The command \verb|\psbarchart| draws the bars for the bar chart.
+ \begin{verbatim}
+ \psbarchart[<options>]{<data>}\end{verbatim}
+ For \verb|<data>|, use the macro name supplied to \Lcs{readpsbardata}.
+ Bars are grouped in columns that are one \Lcs{psxunit} wide, and the
+ number of bars appearing in a single column is equal to the number of
+ data rows in the data file. It labels the bottom of each column with the
+ headers from the data file if \Lkeyword{header} was set to to \verb|true|
+ during \Lcs{readpsbardata}. It only creates the bars and the column
+ labels --- axes and frames must be provided separately.
+
+ The available options are:
+ \begin{center}
+ \begin{tabular}{ll}
+ \toprule
+ Parameter & Definition\\
+ \midrule
+ \Lkeyword{chartstyle} & \Lkeyval{cluster} produces a cluster of bars\\
+ & \Lkeyval{stack} stacks the cluster into a single
+ column\\
+ & \Lkeyval{block} prints a ``floating'' bar with a
+ nonzero minimum\\
+ & Default: \Lkeyval{cluster}\\
+ \Lkeyword{barstyle} & Name(s) of bar style(s) to use for each bar\\
+ & Default: \verb|{black,darkgray,gray,lightgray,white,red,green,blue}|\\
+ \Lkeyword{barcolsep} & Factor determining whitespace between
+ columns\\
+ & Default: \verb|0.4|\\
+ \Lkeyword{barsep} & Factor determining whitespace between bars\\
+ & (\Lkeyval{cluster} and \Lkeyval{block} charts)\\
+ & Default: \verb|0.0|\\
+ \Lkeyword{barlabelrot} & Angle of rotation of the column labels\\
+ & Default: \verb|0|\\
+ \Lkeyword{orientation} & \Lkeyval{vertical} for vertically drawn bars\\
+ & \Lkeyval{horizontal} for horizontally drawn
+ bars\\
+ & Default: \Lkeyval{vertical}\\
+ \bottomrule%
+ \end{tabular}
+ \end{center}
+
+ The number of \verb|barstyle|s specified must equal or exceed the number
+ of bar segments in each column; otherwise, a Postscript error will
+ result. For the \Lkeyval{cluster} and \Lkeyval{stack} \verb|chartstyle|s, this
+ is equal to the number of data rows in the data file; for the
+ \Lkeyval{block} \verb|chartstyle|, it is equal to half the number of data
+ rows. Furthermore, when specifying the list of \verb|barstyle|s, the
+ styles must be listed between curly braces, e.g.,
+\begin{BDef}
+\Lcs{psbarchart}\OptArgs\Largb{\ldots}
+\end{BDef}
+
+ The \Lkeyword{barstyle}s available by default are \Lkeyval{red}, \Lkeyval{green},
+ \Lkeyval{blue}, \Lkeyval{black}, \Lkeyval{white}, \Lkeyval{gray}, \Lkeyval{lightgray},
+ and \Lkeyval{darkgray}. Each of these plots a bar of the named color with
+ square corners and a black outline. New \Lkeyword{barstyle}s may be defined
+ using the \Lcs{newpsbarstyle} command described in
+ Section~\ref{sec:customizing}.
+
+ Figure~\ref{fig:bar_layout} shows how the \Lcs{psbarchart} lays out the
+ bars for the default \Lkeyword{chartstyle}, \Lkeyval{cluster}. For the
+ \Lkeyval{stack} \Lkeyword{chartstyle}, the \Lkeyword{barsep} option is ignored.
+
+ \begin{figure}[t]
+ \centering%
+ \begin{pspicture}(0,0)(4in,2in)%
+ \psframe[linestyle=dashed](0,0)(4in,2in)%
+ \psframe[linestyle=none,fillstyle=hlines,hatchangle=45,%
+ hatchcolor=lightgray,hatchwidth=0.4pt,hatchsep=8pt](0,0)(1in,2in)%
+ \psframe[fillcolor=darkgray,fillstyle=solid](0.2in,0in)(0.45in,0.8in)%
+ \psframe[fillcolor=lightgray,fillstyle=solid](0.55in,0in)(0.8in,1.1in)%
+ \psline[linestyle=dotted](1in,0in)(1in,2in)%
+ \psframe[fillcolor=darkgray,fillstyle=solid](1.2in,0in)(1.45in,0.6in)%
+ \psframe[fillcolor=lightgray,fillstyle=solid](1.55in,0in)(1.8in,0.4in)%
+ \psline[linestyle=dotted](2in,0in)(2in,2in)%
+ \psframe[fillcolor=darkgray,fillstyle=solid](2.2in,0in)(2.45in,0.4in)%
+ \psframe[fillcolor=lightgray,fillstyle=solid](2.55in,0in)(2.8in,0.3in)%
+ \psline[linestyle=dotted](3in,0in)(3in,2in)%
+ \psframe[fillcolor=darkgray,fillstyle=solid](3.2in,0in)(3.45in,1.1in)%
+ \psframe[fillcolor=lightgray,fillstyle=solid](3.55in,0in)(3.8in,0.9in)%
+ \rput[b](0.5in,1.8in){\small$\mathtt{\backslash psxunit}$}%
+ \psline{->}(0.2in,1.87in)(0in,1.87in)%
+ \psline{->}(0.8in,1.87in)(1in,1.87in)%
+ \psline(0.45in,0.85in)(0.45in,1.3in)%
+ \psline(0.55in,1.15in)(0.55in,1.3in)%
+ \rput[l](0.8in,1.25in){\small$\mathtt{barsep} \times
+ \mathtt{\backslash psxunit}$}%
+ \psline{->}(0.75in,1.25in)(0.55in,1.25in)%
+ \psline{->}(0.25in,1.25in)(0.45in,1.25in)%
+ \psline{->}(0.6in,0.9in)(0.8in,0.9in)%
+ \psline{->}(1.2in,0.9in)(1in,0.9in)%
+ \rput[l](1.25in,0.9in){\small$0.5 \times \mathtt{barcolsep} \times
+ \mathtt{\backslash psxunit}$}%
+ \end{pspicture}
+ \caption{\label{fig:bar_layout}%
+ Schematic diagram for the layout of the bar chart. The hatched area
+ marks the region in which data from the first column of the data file
+ will be plotted. Bar width is equal to $[(1 - \mathtt{barsep} - 0.5
+ \times \mathtt{barcolsep}) \times \mathtt{\backslash psxunit}] / N$,
+ where $N$ is the number of bars in the column.
+ }%
+ \end{figure}
+
+\subsection{Customizing the Chart}\label{sec:customizing}%
+ To add a custom bar style, use the command \Lcs{newpsbarstyle},
+\begin{BDef}
+\Lcs{newpsbarstyle}\Largb{<name>}\Largb{<definition>}
+\end{BDef}
+ The name is a text string not currently used by any other
+ \Lkeyword{barstyle}, and the definition may consist of any \LPack{pstricks}
+ key or group of keys applicable to \Lcs{psframe}. For example, the
+ \Lkeyval{red} \Lkeyword{barstyle} is defined as
+\begin{BDef}
+\Lcs{newpsbarstyle}\Largb{red}\Largb{\Lkeyset{fillcolor=red},\Lkeyset{fillstyle=solid},\Lkeyword{framearc}=0}
+\end{BDef}
+
+ To customize the type used to set the column labels, redefine
+ \Lcs{psbarlabel}. For example, to have the label set in small italics,
+ use
+\begin{BDef}
+\LcsStar{renewcommand}\Lcs{psbarlabel}\Largb{\small\itshape}
+\end{BDef}
+ By default, \Lcs{psbarlabel} sets the column label in the current text
+ font.
+
+ To adjust the spacing between the bars and the column labels, redefine
+ \Lcs{psbarlabelsep}. Note that it is defined as a command, not a
+ length, and should be redefined using \Lcs{renewcommand*}. By default
+ it is \verb|0pt|.
+
+ Finally, the data from the file may be scaled and manipulated using the
+ command \Lcs{psbarscale},
+\begin{BDef}
+\Lcs{psbarscale}\Largr{<scale>}\Largb{<Postscript code>}
+\end{BDef}
+ inspired by Herbert Vo\ss' \verb|\pstScale| from
+ \LPack{pstricks-add}~\cite{voss:04}. The data are scaled by the value in
+ parentheses and may be further manipulated with Postscript code. For
+ example, to plot the logarithm of the input data one would use
+ \Lcs{psbarscale}\Largr{1}\Largb{log}. The Postscript code is applied to the data
+ prior to scaling.
+
+ \section{The Chart Styles}
+ As described in Section~\ref{sec:drawing_bars}, there are three different
+ \Lkeyword{chartstyle} options. The default, \Lkeyval{cluster} is the common bar
+ chart with bars clustered into groups of related data. The second option,
+ \Lkeyval{stack}, draws a series of bars stacked atop one another instead of
+ sitting side-by-side in a cluster. The third, \Lkeyval{block}, draws clustered
+ bars between two data points, thus displaying a range of values instead of
+ a single value.
+
+ The following sections describe each \Lkeyword{chartstyle} in detail, including
+ how it uses the input data. Examples of use are provided in each case. Full
+ examples, including axes, appear in Section~\ref{sec:examples}.
+
+ \subsection{\texttt{cluster}}
+ \label{sec:cluster}%
+ For a \Lkeyval{cluster} chart, each comma-delimited variable within a given
+ row represents a bar in a different column. Each row represents a new set
+ of bars. Thus the file
+ \verbatiminput{example1.csv}%
+ produces the bars
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,3)%
+ \readpsbardata{\data}{example1.csv}%
+ \psbarchart[barstyle={red,blue}]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][1.75in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,3)%
+ \readpsbardata{\data}{example1.csv}%
+ \psbarchart[barstyle={red,blue}]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}%
+ \hfill%
+
+ \subsection{\texttt{stack}}
+ For a \Lkeyval{stack} chart, each column of the chart has only one bar. This
+ bar consists of as many segments as the data file has data rows, with the
+ data from each row stacked onto the previous row. Thus, the file
+ \verbatiminput{example2.csv}%
+ produces the bars
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},chartstyle=stack]{\data}%
+ \end{pspicture}
+ \end{minipage}
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},%
+ chartstyle=stack]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+ \hfill%
+
+ Notice that these bars are wider than those produced by
+ \Lkeyset{chartstyle=cluster} because the bars are stacked vertically
+ instead of being clustered along the bottom axis. A bar width similar to
+ that of the \Lkeyval{cluster} chart in the previous section could be
+ obtained by setting \Lkeyword{xunit}\verb|=0.25in|.
+
+ \subsection{\texttt{block}}
+ \label{sec:block}%
+ For a \verb|block| chart, each bar represents a range of values. As such,
+ each bar requires two data lines from the data file, one denoting the
+ upper limit and the other the lower limit. If there are multiple pairs of
+ data lines, they are plotted in a clustered fashion. If there are an odd
+ number of data lines, the last line of the data file is ignored. Thus,
+ the file
+ \verbatiminput{example3.csv}%
+ produces the bars
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,3.5)%
+ \readpsbardata{\data}{example3.csv}%
+ \psbarchart[barstyle={red,blue},chartstyle=block]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][1.5in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,3.5)%
+ \readpsbardata{\data}{example3.csv}%
+ \psbarchart[barstyle={red,blue},%
+ chartstyle=block]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ \section{Examples}
+ \label{sec:examples}%
+ Basic examples of each type including axes and gridlines:
+
+ \begin{verbatim}
+\begin{filecontents*}{example2.csv}
+ Set 1, Set 2, Set 3
+ 1, 2, 3
+ 0.5, 1.5, 1
+\end{filecontents*}\end{verbatim}
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue}]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue}]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},chartstyle=stack]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},%
+ chartstyle=stack]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},chartstyle=block]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={red,blue},%
+ chartstyle=block]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ Using \verb|\newpsbarstyle|:
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \newpsbarstyle{yellowhatch}{framearc=0.5,fillstyle=hlines*,rot=45,fillcolor=yellow}%
+ \newpsbarstyle{redoutline}{framearc=0.5,fillcolor=black,linecolor=red,linewidth=1.5pt}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={yellowhatch,redoutline}]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.75in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\newpsbarstyle{yellowhatch}{framearc=0.5,%
+ fillstyle=hlines*,rot=45,fillcolor=yellow}%
+\newpsbarstyle{redoutline}{framearc=0.5,%
+ fillcolor=black,linecolor=red,%
+ linewidth=1.5pt}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={yellowhatch,%
+ redoutline}]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ Using \verb|[orientation=horizontal]|:
+
+ \hfill%
+ \begin{minipage}[b]{2in}%
+ \psset{unit=0.5in}%
+ \newpsbarstyle{yellowhatch}{framearc=0.5,fillstyle=hlines*,rot=45,fillcolor=yellow}%
+ \newpsbarstyle{redoutline}{framearc=0.5,fillcolor=black,linecolor=red,linewidth=1.5pt}%
+ \begin{pspicture}(0,-0.5)(4,3.5)%
+ \psgrid[yunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(3,1)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=x,ticks=x](0,0)(3,3)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={yellowhatch,redoutline},orientation=horizontal]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.75in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\newpsbarstyle{yellowhatch}{framearc=0.5,%
+ fillstyle=hlines*,rot=45,fillcolor=yellow}%
+\newpsbarstyle{redoutline}{framearc=0.5,%
+ fillcolor=black,linecolor=red,%
+ linewidth=1.5pt}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example2.csv}%
+ \psbarchart[barstyle={yellowhatch,%
+ redoutline}]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ Sophisticated effects are possible using multiple calls to
+ \Lcs{psbarchart} in a single chart. For example, a particular important
+ bar may be highlighted in green by splitting the data into two files, one
+ containing a zero for the data value to be highlighted, and the other
+ containing zeros for all of the data \emph{except} the value to be
+ highlighted.
+
+ \vspace*{2ex}%
+
+ File 1 (\verb|example4.csv|):
+ \verbatiminput{example4.csv}%
+
+ File 2 (\verb|example5.csv|):
+ \verbatiminput{example5.csv}%
+ Notice that the second file has no header row in order to prevent the bar
+ labels from being printed twice.
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example4.csv}%
+ \psbarchart[barstyle={blue}]{\data}%
+ \readpsbardata[header=false]{\data}{example5.csv}%
+ \psbarchart[barstyle={green}]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example4.csv}%
+ \psbarchart[barstyle={blue}]{\data}%
+ \readpsbardata[header=false]{\data}%
+ {example5.csv}%
+ \psbarchart[barstyle={green}]{\data}%
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ Different chart styles may also be combined in a single bar chart.
+
+ \vspace*{2ex}%
+
+ File 1 (\verb|example6.csv|): \verbatiminput{example6.csv}%
+
+ File 2 (\verb|example7.csv|): \verbatiminput{example7.csv}%
+
+ \hfill%
+ \begin{minipage}[b]{1.5in}%
+ \psset{unit=0.5in}%
+ \begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example6.csv}%
+ \psbarchart[barstyle={black}]{\data}%
+ \readpsbardata[header=false]{\data}{example7.csv}%
+ \psbarchart[barstyle={red},chartstyle=block,barcolsep=0.8]{\data}%
+ \end{pspicture}
+ \end{minipage}%
+ \hfill%
+ \begin{minipage}[b][2.25in][c]{3.5in}%
+ \begin{verbatim}
+\psset{unit=0.5in}%
+\begin{pspicture}(0,-0.5)(3,4.5)%
+ \psgrid[xunit=1.5in,gridlabels=0,%
+ subgriddiv=0,griddots=30](0,0)(1,4)%
+ \psaxes[axesstyle=frame,Ox=0,Dx=1,labels=y,%
+ ticks=y](0,0)(3,4)%
+ \readpsbardata{\data}{example6.csv}%
+ \psbarchart[barstyle={black}]{\data}%
+ \readpsbardata[header=false]{\data}%
+ {example7.csv}%
+ \psbarchart[barstyle={red},chartstyle=block,%
+ barcolsep=0.8]{\data}%
+\end{pspicture}
+\end{pspicture}\end{verbatim}
+ \end{minipage}
+
+ \section{To Do}
+ \begin{itemize}
+ \item Provide commands to facilitate legend creation and placement.
+ \item Allow the automatic labeling of bars with values from the data
+ file.
+ \item Allow the automatic labeling of bars with labels of the user's
+ choice.
+ \item Improve header parsing to allow commas within header entries.
+ \item Add error-checking to ensure that each row of the data file
+ contains the same number of entries, throwing an error in \TeX\ or
+ \LaTeX\ if not.
+ \item Improve documentation.
+ \end{itemize}
+
+\nocite*
+\bibliographystyle{plain}%
+\bibliography{pst-bar-doc}%
+
+\printindex
+
+
+\end{document}
diff --git a/Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig b/Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig
new file mode 100644
index 00000000000..407c75d7496
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig
@@ -0,0 +1,420 @@
+\csname PSTBarLoaded\endcsname%
+\let\PSTBarLoaded\endinput%
+\ifx\PSTplotLoaded\endinput\else\input pst-plot.tex\fi%
+\pstheader{pst-bar.pro}%
+\input pst-key.tex%
+
+\def\fileversion{0.7a}
+\def\filedate{2004/09/24}
+\message{`pst-bar' v\fileversion, \filedate\space (Alan Ristow)}%
+
+\define@key{psset}{barsep}{\edef\psk@barsep{#1}}%
+\define@key{psset}{barcolsep}{\edef\psk@barcolsep{#1}}%
+\define@key{psset}{barstyle}{\edef\psk@barstyle{#1}}%
+\define@key{psset}{barlabelrot}{\edef\psk@barlabelrot{#1}}%
+\setkeys{psset}{barsep=0.0,barcolsep=0.4,barstyle=\@empty,barlabelrot=0}%
+%
+% chartstyle=cluster|stack|block (0,1,2)
+\def\psset@chartstyle#1{\pst@expandafter\psset@@chartstyle{#1}\@nil\psk@chartstyle}
+\def\psset@@chartstyle#1#2\@nil#3{%
+ \ifx#1c\let#3\z@\else
+ \ifx#1s\let#3\@ne\else
+ \ifx#1b\let#3\tw@\else
+ \@pstrickserr{Bad argument: `#1#2'}\@ehpa
+ \fi
+ \fi
+ \fi
+}%
+\psset@chartstyle{cluster}%
+%
+% orientation=vertical|horizontal (0,1)
+\def\psset@orientation#1{\pst@expandafter\psset@@orientation{#1}\@nil\psk@orientation}
+\def\psset@@orientation#1#2\@nil#3{%
+ \ifx#1h\let#3\p@\else
+ \ifx#1v\let#3\z@\else
+ \@pstrickserr{Bad argument: `#1#2'}\@ehpa
+ \fi
+ \fi
+}%
+\psset@orientation{vertical}%
+
+\def\psset@header#1{%
+ \pst@expandafter\psset@@header{#1}\@nil\psk@header
+}%
+\def\psset@@header#1#2\@nil#3{%
+ \ifx#1t\let#3\z@\else
+ \ifx#1f\let#3\@ne\else
+ \@pstrickserr{Bad argument: `#1#2'}\@ehpa
+ \fi
+ \fi
+}%
+\psset@header{true}%
+
+\def\psbarchart{\def\pst@par{}\pst@object{psbarchart}}%
+\def\pstbar@header{\@empty}%
+\def\psbarlabel#1{#1}%
+\def\psbarlabelsep{0pt}%
+\def\psbarscale(#1)#2{%
+ \def\psbar@mul{#1\space}%
+ \def\psbar@psop{#2\space}%
+}
+\def\psbar@mul{1\space}%
+\def\psbar@psop{\@empty}%
+
+\newread\pstbar@file%
+
+% Define bar chart styles
+
+\def\psset@barstyle#1{\def\@barstylelist{#1}}%
+\def\newpsbarstyle#1#2{\@namedef{psbarcs@#1}{\psset{#2}}}%
+
+\def\begin@barstyle{\def\pst@tempd{/barstyles [ }}%
+\def\add@barstyle{%
+ \def\pst@code{}%
+ \ifpsshadow%
+ \pst@closedshadow%
+ \fi%
+ \ifdim\psk@border\p@>\z@%
+ \pst@addborder%
+ \fi%
+ \psk@fillstyle%
+ \pst@stroke%
+ \ifpsdoubleline%
+ \pst@doublestroke%
+ \fi%
+ \def\pst@tempa{\strip@pt\psk@orientation}%
+ \edef\pst@tempd{ \pst@tempd (%
+ \pst@tempc \psk@cornersize%
+ xbar1 ybar1 xbar2 ybar2 4 -\pst@tempa\space roll
+ \psk@dimen%
+ \tx@Frame%
+ \pst@code )%
+ }%
+}
+\def\end@barstyle{\edef\pst@tempd{ \pst@tempd ] def }}%
+
+\def\setbarstyle{%
+ \begin@barstyle%
+ \expandafter\@setbarstyle\@barstylelist,\@nil\ignorespaces%
+ \end@barstyle%
+}%
+\def\@setbarstyle#1,{%
+ \@@setbarstyle{#1}%
+ \@ifnextchar\@nil{\@gobble}{\@setbarstyle}%
+}%
+\def\@@setbarstyle#1{%
+ \@ifundefined{psbarcs@#1}%
+ {\@pstrickserr{Custom bar chart style `#1' undefined}\@ehpa}%
+ {\@nameuse{psbarcs@#1}\add@barstyle}%
+}%
+
+% Default bar chart styles
+
+\newpsbarstyle{red}{fillcolor=red,fillstyle=solid,framearc=0}%
+\newpsbarstyle{green}{fillcolor=green,fillstyle=solid,framearc=0}%
+\newpsbarstyle{blue}{fillcolor=blue,fillstyle=solid,framearc=0}%
+\newpsbarstyle{black}{fillcolor=black,fillstyle=solid,framearc=0}%
+\newpsbarstyle{white}{fillcolor=white,fillstyle=solid,framearc=0}%
+\newpsbarstyle{gray}{fillcolor=gray,fillstyle=solid,framearc=0}%
+\newpsbarstyle{lightgray}{fillcolor=lightgray,fillstyle=solid,framearc=0}%
+\newpsbarstyle{darkgray}{fillcolor=darkgray,fillstyle=solid,framearc=0}%
+
+\psset@barstyle{black,darkgray,gray,lightgray,white,red,green,blue}%
+
+\def\readpsbardata{\@ifnextchar[{\readpsbardata@i}{\readpsbardata@i[]}}
+
+\def\readpsbardata@i[#1]#2#3{%
+ \def\pst@tempa{#1}%
+ \ifx\pst@tempa\@empty\else\psset{#1}\fi
+ \openin\pstbar@file=#3\relax%
+ \ifeof\pstbar@file%
+ \@pstrickserr{Data file `#3' not found.}\@ehpa
+ \else
+ \def\pst@tempb{\@empty}%
+ \ifx\psk@header\z@%
+ \@readpsbarheader%
+ \fi
+ \readpsbardata@ii%
+ \edef\pst@tempb{[\pst@tempb]}%
+ \let#2\pst@tempb%
+ \fi
+ \closein\pstbar@file%
+}%
+
+\def\readpsbardata@ii{%
+ \read\pstbar@file to \pst@tempa
+ \ifeof\pstbar@file
+ \relax
+ \else
+ \edef\pst@tempb{\pst@tempb [}%
+ \expandafter\readpsbardata@iii\pst@tempa,\@nil\ignorespaces%
+ \edef\pst@tempb{\pst@tempb ]}%
+ \readpsbardata@ii%
+ \fi
+}%
+
+\def\readpsbardata@iii#1,{%
+ \edef\pst@tempb{\pst@tempb #1\space}%
+ \@ifnextchar\@nil{\@gobble}{\readpsbardata@iii}%
+}%
+
+\def\@readpsbarheader{%
+ \read\pstbar@file to \pst@tempa
+ \ifeof\pstbar@file
+ \relax
+ \else
+ \let\pstbar@header\pst@tempa
+ \fi
+}%
+
+% Apply labels from file header to bar chart columns.
+% TODO: Deal with column headings that contain commas.
+
+% The trimspaces command is (c) Michael Downes 1994
+% (http://www.tug.org/tex-archive/info/aro-bend/answer.015).
+\catcode`\Q=3
+\def\psbar@trimspaces#1{%
+ \begingroup
+ \aftergroup\toks\aftergroup0\aftergroup{%
+ \expandafter\trimb\expandafter\noexpand#1Q Q}%
+ \edef#1{\the\toks0}%
+}
+\def\trimb#1 Q{\trimc#1Q}
+\def\trimc#1Q#2{\afterassignment\endgroup \vfuzz\the\vfuzz#1}
+\catcode`\Q=11
+
+\def\pstbar@xlabels{%
+ \pst@dima=-0.5pt\relax%
+ \expandafter\pstbar@xlabels@i\pstbar@header,\@nil\ignorespaces%
+}%
+
+\def\pstbar@xlabels@i#1,{%
+ \def\pst@tempa{#1}%
+ \psbar@trimspaces\pst@tempa%
+ \advance\pst@dima by 1pt%
+ \def\pst@tempb{\strip@pt\pst@dima}%
+ \uput[-90]{\psk@barlabelrot}(\pst@tempb,-\psbarlabelsep){\psbarlabel{\pst@tempa}}%
+ \@ifnextchar\@nil{\@gobble}{\pstbar@xlabels@i}%
+}%
+
+\def\pstbar@labelcount#1{%
+ \pst@dima=0pt\relax%
+ \expandafter\pstbar@labelcount@i\pstbar@header,\@nil\ignorespaces%
+ \let#1\pst@dima%
+}%
+
+\def\pstbar@labelcount@i#1,{%
+ \advance\pst@dima by 1pt%
+ \@ifnextchar\@nil{\@gobble}{\pstbar@labelcount@i}%
+}%
+
+\def\pstbar@ylabels{%
+ \pstbar@labelcount{\pst@dima}%
+ \advance\pst@dima by 0.5pt%
+ \expandafter\pstbar@ylabels@i\pstbar@header,\@nil\ignorespaces%
+}%
+
+\def\pstbar@ylabels@i#1,{%
+ \def\pst@tempa{#1}%
+ \psbar@trimspaces\pst@tempa%
+ \advance\pst@dima by -1pt%
+ \def\pst@tempb{\strip@pt\pst@dima}%
+ \uput[180]{\psk@barlabelrot}(-\psbarlabelsep,\pst@tempb){\psbarlabel{\pst@tempa}}%
+ \@ifnextchar\@nil{\@gobble}{\pstbar@ylabels@i}%
+}%
+
+\def\psbarchart@i#1{%
+ \pst@killglue%
+ \begingroup%
+ \use@par%
+ \psbarchart@ii{#1}%
+ \endgroup%
+ \ignorespaces%
+}%
+
+\def\psbarchart@ii#1{%
+ \begin@SpecialObj%
+
+ % Save contents of \pst@code and load start-of-path code
+ % into \pst@tempc
+
+ \let\pst@tempb\pst@code%
+ \def\pst@code{}%
+ \solid@star%
+ \let\pst@tempc\pst@code%
+
+ % Load end-of-path code into \pst@tempd and restore original
+ % contents of \pst@code
+
+ \begin@barstyle%
+ \expandafter\@setbarstyle\@barstylelist,\@nil\ignorespaces%
+ \end@barstyle%
+ \let\pst@code\pst@tempb%
+
+ % Draw bar chart
+
+ \pst@checknum\psk@barcolsep\pst@tempa%
+ \pst@checknum\psk@barsep\pst@tempb%
+ \ifx\psk@orientation\z@ % vertical
+ \pst@dima=\psxunit%
+ \pst@dimb=\psyunit%
+ \def\pst@tempc{true}%
+ \else\ifx\psk@orientation\p@ % horizontal
+ \pst@dima=\psyunit%
+ \pst@dimb=\psxunit%
+ \def\pst@tempc{false}%
+ \else
+ \@pstrickserr{Bad orientation specification}\@ehpa
+ \fi\fi
+ \ifcase\psk@chartstyle% chartstyle=cluster
+ \addto@pscode{%
+ \pst@tempd%
+ /BARDATA #1 def
+ /nbars BARDATA length def
+ /ncols BARDATA 0 get length def
+ /colwidth \pst@number\pst@dima def
+ /barcolsep \pst@tempa \pst@number\pst@dima mul def
+ /barsep \pst@tempb \pst@number\pst@dima mul def
+ /barwidth colwidth barcolsep sub nbars 1 sub barsep mul sub nbars div def
+ /bXoffset 0.5 barcolsep mul def
+ /colcount \pst@tempc\space {0}{ncols 1 sub} ifelse def
+ /barcount 0 def
+ /ybar1 0 def
+ BARDATA {
+ /DATAVECTOR exch def
+ DATAVECTOR {
+ /ybar2 exch \psbar@psop \psbar@mul mul \pst@number\pst@dimb mul def
+ /xoffset barwidth barsep add barcount mul bXoffset add def
+ /xbar1 colcount colwidth mul xoffset add def
+ /xbar2 xbar1 barwidth add def
+ ybar1 ybar2 ne { % if ybar1 == ybar2, don't stroke a path
+ newpath
+ barstyles barcount get cvx exec
+ } if
+ /colcount \pst@tempc\space {colcount 1 add}{colcount 1 sub} ifelse def
+ } forall
+ /colcount \pst@tempc\space {0}{ncols 1 sub} ifelse def
+ /barcount barcount 1 add def
+ } forall
+ }%
+ \or% chartstyle=stack
+ \addto@pscode{%
+ \pst@tempd%
+ tx@BarDict begin
+ /BARDATA #1 transpose def
+ /ncols BARDATA length def
+ /colwidth \pst@number\pst@dima def
+ /barcolsep \pst@tempa \pst@number\pst@dima mul def
+ /barwidth colwidth barcolsep sub def
+ /bXoffset 0.5 barcolsep mul def
+ /colcount \pst@tempc\space {0}{ncols 1 sub} ifelse def
+ /barcount 0 def
+ /ybar1 0 def
+ BARDATA {
+ /DATAVECTOR exch def
+ /xbar1 colcount colwidth mul bXoffset add def
+ /xbar2 xbar1 barwidth add def
+ DATAVECTOR {
+ /ybar2 exch \psbar@psop \psbar@mul mul \pst@number\pst@dimb mul ybar1 add def
+ ybar1 ybar2 ne { % if ybar1 == ybar2, don't stroke a path
+ newpath
+ barstyles barcount get cvx exec
+ closepath
+ } if
+ /ybar1 ybar2 def
+ /barcount barcount 1 add def
+ } forall
+ /barcount 0 def
+ /ybar1 0 def
+ /colcount \pst@tempc\space {colcount 1 add}{colcount 1 sub} ifelse def
+ } forall
+ end
+ }%
+ \or% chartstyle=block
+ \addto@pscode{%
+ \pst@tempd%
+ tx@BarDict begin
+ /BARDATA #1 transpose def
+ /ncols BARDATA length def
+ /nbars BARDATA 0 get length 2 idiv def
+ /colwidth \pst@number\pst@dima def
+ /barcolsep \pst@tempa \pst@number\pst@dima mul def
+ /barsep \pst@tempb \pst@number\pst@dima mul def
+ /barwidth colwidth barcolsep sub nbars 1 sub barsep mul sub nbars div def
+ /bXoffset 0.5 barcolsep mul def
+ /colcount \pst@tempc\space {0}{ncols 1 sub} ifelse def
+ /barcount 0 def
+ /ybar1 0 def
+ BARDATA {
+ /DATAVECTOR exch def
+ 0 1 nbars 1 sub {
+ dup
+ /ybar1 exch 2 mul DATAVECTOR exch get \psbar@psop \psbar@mul mul \pst@number\pst@dimb mul def
+ /ybar2 exch 2 mul 1 add DATAVECTOR exch get \psbar@psop \psbar@mul mul \pst@number\pst@dimb mul def
+ /xoffset barwidth barsep add barcount mul bXoffset add def
+ /xbar1 colcount colwidth mul xoffset add def
+ /xbar2 xbar1 barwidth add def
+ ybar1 ybar2 ne { % if ybar1 == ybar2, don't stroke a path
+ newpath
+ barstyles barcount get cvx exec
+ } if
+ /barcount barcount 1 add def
+ } for
+ /barcount 0 def
+ /colcount \pst@tempc\space {colcount 1 add}{colcount 1 sub} ifelse def
+ } forall
+ end
+ }%
+ \else%
+ \@pstrickserr{Unknown chart style.}\@ehpa%
+ \fi%
+ \ifx\psk@orientation\z@%
+ \pstbar@xlabels%
+ \else
+ \pstbar@ylabels%
+ \fi
+ \end@SpecialObj%
+}%
+
+\endinput
+
+\iffalse
+%% CHANGE-LOG
+ v 0.7a 2004/09/24
+ Removed some debugging code that was accidentally left in the last release.
+ The removed code was harmless, but caused confusion for some users.
+
+ v 0.7 2004/09/15
+ Made a minor change to \psbarscale so its functionality would be more
+ closely analogous to the \pstScale command from the pstricks-add pacakge.
+ Improved documentation. Set default barstyle to list of all available
+ barstyles. First release to CTAN.
+
+ v 0.6 2004/09/09
+ Added orientation parameter and horizontal bar-drawing capability. Removed
+ erroneous correction factor for linewidth from stacked bar chart.
+
+ v 0.5 2004/09/02
+ Added header parameter for \readpsbardata. Improved handling of headers in
+ the data file -- spaces may now be included in a header item, though commas
+ still may not.
+
+ v 0.4 2004/08/29
+ Added "block" chartstyle. Updated \readpsbardata to use .csv for both
+ header and data. Introduced \psbarscale command. First release to pstricks
+ mailing list, 2004/09/01.
+
+ v 0.3 2004/08/26
+ Added command \readpsbardata to read data for bar chart directly from a
+ .csv file with the first row containing the column labels.
+
+ v 0.2a 2004/08/23
+ Changed colsep parameter name to barcolsep to avoid clash with psmatrix.
+
+ v 0.2 2004/08/22
+ Added stacked bar chart, chartstyle parameter, and introduced pst-bar.pro
+ prologue with transpose command.
+
+ v 0.1 2004/08/21
+ Clustered bar chart.
+\fi