From 1c4b9b9cf2ef89c3c82f326b01ad001a45989092 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 28 Nov 2008 00:40:04 +0000 Subject: pst-bar 0.92 (26nov08) git-svn-id: svn://tug.org/texlive/trunk@11440 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/pst-bar/LICENSE | 2 - Master/texmf-dist/doc/generic/pst-bar/README | 34 +- .../texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib | 66 ++ .../texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf | Bin 110870 -> 114763 bytes .../texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex | 738 +++++++++++++++++++++ Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig | 420 ++++++++++++ 6 files changed, 1241 insertions(+), 19 deletions(-) delete mode 100644 Master/texmf-dist/doc/generic/pst-bar/LICENSE create mode 100644 Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.bib create mode 100644 Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.tex create mode 100644 Master/texmf-dist/doc/generic/pst-bar/pst-bar.orig (limited to 'Master/texmf-dist/doc/generic/pst-bar') 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 Binary files a/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf and b/Master/texmf-dist/doc/generic/pst-bar/pst-bar-doc.pdf 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[]{}{}\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[]{}\end{verbatim} + For \verb||, 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{}\Largb{} +\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{}\Largb{} +\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 -- cgit v1.2.3