pst-bar 0.92 (26nov08)

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

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
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