split out pst-tree 1.10 (25jan09)

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

12 files changed, 2078 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-tree/Changes b/Master/texmf-dist/doc/generic/pst-tree/Changes
new file mode 100644
index 00000000000..03b6cefc9bf
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-tree/Changes
@@ -0,0 +1,8 @@
+----- pst-tree.tex
+1.10  2008-12-12 - first version with pst-xkey and own documentation (hv) 
+1.01  2007-01-03 - fix bug with \endpsTree (hv) 
+
+
+----- pst-tree.sty
+     2008-12-12 first version (hv) 
+
diff --git a/Master/texmf-dist/doc/generic/pst-tree/README b/Master/texmf-dist/doc/generic/pst-tree/README
new file mode 100644
index 00000000000..5b198d982f1
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-tree/README
@@ -0,0 +1,15 @@
+This version of pst-tree uses the xkeyval package, the extended
+version of keyval.
+
+Save the files pst-tree.sty|.tex| in a directory, which is part of your 
+local TeX tree. Then do not forget to run texhash to update this tree
+if these packages are new to your TeX distribution.
+For more information  see the documentation of your LaTeX distribution 
+on installing packages into your LaTeX distribution or the 
+TeX Frequently Asked Questions:
+(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
+
+pst-tree needs pstricks, which should be part of your
+local TeX installation, otherwise get it from a CTAN server, f.ex.
+http://www.dante.de/CTAN/graphics/pstricks/
+
diff --git a/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.bib b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.bib
new file mode 100644
index 00000000000..ba07f2211ce
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.bib
@@ -0,0 +1,60 @@
+%% -*-bibtex-*-
+@STRING{tugboat	= {TUGboat} }
+@STRING{dtk	= {{D}ie {\TeX}nische {K}om{\"o}die} }
+
+@Book{companion,
+  author	= {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Dennis Roegel and Herbert Vo\ss},
+  title		= {The {\LaTeX} {G}raphics {C}ompanion},
+  publisher	= {{Addison-Wesley Publishing Company}},
+  edition	= {second},
+  year		= {2007},
+  address	= {Boston, Mass.}
+}
+
+@Article{girou:01:,
+  author	= {Denis Girou},
+  title		= {Pr\'esentation de {PST}ricks},
+  journal	= {Cahier {GUT}enberg},
+  year		= 1994,
+  volume	= {16},
+  month		= apr,
+  pages		= {21-70}
+}
+
+@Article{girou:02:,
+  author	= {{Timothy Van} Zandt and Denis Girou},
+  title		= {Inside {PST}ricks},
+  journal	= TUGboat,
+  year		= 1994,
+  volume	= {15},
+  month		= sep,
+  pages		= {239-246}
+}
+
+@Book{PostScript,
+  Author         = {Kollock, Nikolai G.},
+  Title          = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
+                   praktischen {E}insatz},
+  Publisher      = {IWT},
+  Address        = {Vaterstetten},
+  year           = 1989,
+}
+
+@Manual{multido,
+  Title          = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
+  Author         = {{Timothy Van} Zandt},
+  Organization   = {},
+  Address        = {\url{CTAN:/macros/generic/multido.tex}},
+  Note           = {},
+  year           = 1997
+}
+
+@Book{PSTricks2,
+  author	= {Herbert Vo\ss{}},
+  title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+  edition	= {fifth},
+  publisher	= {DANTE -- Lehmanns},
+  year		= {2008},
+  address	= {Heidelberg/Hamburg}
+}
+
diff --git a/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.pdf b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.pdf
new file mode 100644
index 00000000000..92b16025002
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.tex b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.tex
new file mode 100644
index 00000000000..ae703f71026
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-tree/pst-tree-doc.tex
@@ -0,0 +1,865 @@
+%% $Id: pst-func-doc.tex 64 2008-12-08 22:14:27Z herbert $
+\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
+    headexclude,footexclude,oneside]{pst-doc}
+\usepackage[utf8]{inputenc}
+\usepackage{pst-tree}
+\let\pstTreeFV\fileversion
+\lstset{pos=t,language=PSTricks,
+    morekeywords={psGammaDist,psChiIIDist,psTDist,psFDist,psBetaDist,psPlotImpl},basicstyle=\footnotesize\ttfamily}
+%
+\begin{document}
+
+\title{\texttt{pst-tree}}
+\subtitle{Nodes and Trees; v.\pstTreeFV}
+\author{Timothy Van Zandt\\Herbert Vo\ss}
+\docauthor{Herbert Vo\ss}
+\date{\today}
+\maketitle
+
+\tableofcontents
+
+\clearpage% 
+
+\begin{abstract}
+The node and node connections are perfect tools for making trees, but
+positioning the nodes using \Lcs{rput} would be rather tedious.\footnote{%
+Unless you have a computer program that generates the coordinates.}
+The file \nxLPack{pst-tree.tex}/\nxLPack{pstree.sty} contains a high-level interface for
+making trees.
+
+It should be noted that the correct result is not guaranteed with every \Lprog{dvips} driver.
+This package was written for Rokicki's\index{Rokicki} 
+\Lprog{dvips} programme, which is practically part of every \TeX{}
+distribution.
+
+%\vfill
+%Thanks to: Lars Kotthoff, Geoff Mercer
+\end{abstract}
+
+\clearpage
+
+% ---------------------
+
+\section{Overview}
+
+
+The tree commands are
+\begin{BDef}
+\Lcs{pstree}\Largb{<root>}\Largb{<successors>}
+\end{BDef}
+
+\begin{BDef}
+\begin{tabular}{@{}l@{\kern30pt}l}
+\TeX\ version & \LaTeX\ version\\
+\Lcs{psTree}\Largb{<root>} & \LBEG{psTree}\Largb{root}\\
+\qquad<successors>         & \qquad<successors> \\  
+\Lcs{endpsTree}            & \LEND{psTree} 
+\end{tabular}
+\end{BDef}
+
+
+These do the same thing, but just have different syntax. \Lcs{psTree} is the ``long'' version.
+These macros make a box that encloses all the nodes, and whose baseline passes
+through the center of the root.
+Most of the nodes has a variant for use within a tree and are called tree nodes (see Section~\ref{treenodes}).
+
+Trees and tree nodes are called \emph{\Index{tree objects}}. The \Larg{root} of a tree
+should be a single tree object, and the \Larg{successors} should be one or more
+tree objects. Here is an example with only nodes:
+\begin{LTXexample}[pos=l]
+  \pstree[radius=3pt]{\Toval{root}}{\TC* \TC* \TC* \TC*}
+\end{LTXexample}
+There is no difference between a terminal node and a root node, other than
+their position in the \Lcs{pstree}\Largb{} command.
+  
+Here is an example where a tree is included in the list of successors, and
+hence becomes \Index{subtree}:
+\begin{LTXexample}[pos=l]
+  \pstree[radius=3pt]{\Tp}{%
+    \TC*
+    \pstree{\TC}{\TC* \TC*}
+    \TC*}
+\end{LTXexample}
+
+
+\section{Tree Nodes}\label{treenodes}
+
+In each case, the name of the tree node is
+formed by omitting "`node"' from the end of the name and adding "T" at the
+beginning. For example, \Lcs{psovalnode} becomes \Lcs{Toval}. Here is the list of such
+tree nodes:
+\begin{BDef}
+\LcsStar{Tp}\OptArgs\\
+\LcsStar{Tc}\OptArgs\Largb{dim}\\
+\LcsStar{TC}\OptArgs\\
+\LcsStar{Tf}\OptArgs\\
+\LcsStar{Tdot}\OptArgs\\
+\LcsStar{Tr}\OptArgs\Largb{stuff}\\
+\LcsStar{TR}\OptArgs\Largb{stuff}\\
+\LcsStar{Tcircle}\OptArgs\Largb{stuff}\\
+\LcsStar{TCircle}\OptArgs\Largb{stuff}\\
+\LcsStar{Toval}\OptArgs\Largb{stuff}\\
+\LcsStar{Tdia}\OptArgs\Largb{stuff}\\
+\LcsStar{Ttri}\OptArgs\Largb{stuff}
+\end{BDef}
+
+The syntax of a tree node is the same as of its corresponding ``normal'' node,
+except that:
+\begin{itemize}
+  \item There is always an optional argument for setting graphics parameters,
+  even if the original node did not have one;
+  \item There is no argument for specifying the name of the node;
+  \item There is never a coordinate argument for positioning the node; and
+  \item To set the reference point with \Lcs{Tr}, set the \Lkeyword{ref} parameter.
+\end{itemize}
+
+Figure~\ref{allnodes} gives a reminder of what the nodes look like.
+
+\begin{figure}[!htb]
+\begin{LTXexample}
+  \small
+  \psset{armB=1cm, levelsep=3cm, treesep=-3mm, angleB=-90, angleA=90, nodesepA=3pt}
+  \def\s#1{#1~{\tt\string#1}}\def\b#1{#1{\tt\string#1}}\def\psedge#1#2{\ncangle{#2}{#1}}
+  \psTree[treenodesize=1cm]{\Toval{Tree nodes}}
+    \s\Tp\Tc{.5}~{\tt\string\Tc} \s\TC
+    \psTree[levelsep=4cm,armB=2cm]{\Tp[edge=\ncline]}
+      \b\Tcircle \s\Tdot
+      \TCircle[radius=1.2]{\tt\string\TCircle}
+      \Tn \b\Toval \b\Ttri \b\Tdia
+    \endpsTree
+    \s\Tf \b\Tr \b\TR
+  \endpsTree
+\end{LTXexample}
+\caption{The tree nodes.}\label{allnodes}
+\end{figure}
+
+The difference between \Lcs{Tr} and \Lcs{TR} (variants of \Lcs{rnode} and \Lcs{Rnode},
+respectively) is important with trees. Usually, you want to use \Lcs{TR} with
+vertical trees because the baselines of the text in the nodes line up
+horizontally. For example:
+\begin{LTXexample}[pos=l]
+   $
+   \pstree[nodesepB=3pt]{\Tcircle{X}}{%
+     \TR{\tilde{\tilde{X}}}
+     \TR{x}
+     \TR{y}}
+   $
+\end{LTXexample}
+Compare with this example, which uses \Lcs{Tr}:
+\begin{LTXexample}[pos=l]
+   $
+   \pstree[nodesepB=3pt]{\Tcircle{X}}{%
+     \Tr{\tilde{\tilde{X}}}
+     \Tr{x}
+     \Tr{y}}
+   $
+\end{LTXexample}
+
+There is also a null tree node: 
+\begin{BDef}
+\Lcs{Tn}
+\end{BDef}
+It is meant to be just a place holder. Look at the tree in Figure
+page~\pageref{allnodes}. The bottom row has a node missing in the middle.
+\Lcs{Tn}\Largb{} was used for this missing node. 
+
+There is also a special tree node that doesn't have a ``normal'' version and
+that can't be used as the root node of a whole tree:
+\begin{BDef}
+\LcsStar{Tfan}\OptArgs 
+\end{BDef}
+This draws a triangle whose base is \Lkeyword{fansize} %=\makeatletter\psk@fansize\makeatother
+and whose opposite corner is the predecessor node, adjusted by the value of
+\Lkeyword{nodesepA} and \Lkeyword{offsetA}.
+For example:
+\begin{LTXexample}[pos=l]
+  \pstree[dotstyle=oplus,dotsize=8pt,nodesep=2pt]{\Tcircle{11}}{%
+      \Tdot
+      \pstree{\Tfan}{\Tdot}
+      \pstree{\Tdot}{\Tfan[linestyle=dashed]}}
+\end{LTXexample}
+
+
+
+
+\section{Tree orientation}
+
+Trees can grow down, up, right or left, depending on the \Lkeyword{treemode=}
+\Lkeyval{D}, \Lkeyval{U}, \Lkeyval{R}, or \Lkeyval{L} parameter.
+
+Here is what the previous example looks like when it grows to the right:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[dotstyle=oplus,dotsize=8pt,
+    nodesep=2pt,treemode=R]
+    {\Tcircle{11}}{%
+      \Tdot
+      \pstree{\Tfan}{\Tdot}
+      \pstree{\Tdot}{\Tfan[linestyle=dashed]}}
+\end{LTXexample}
+
+
+You can change the \Lkeyword{treemode} in the middle of the tree.
+For example, here is a tree that grows up, and that has a subtree which grows
+to the left:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \footnotesize
+  \pstree[treemode=U,dotstyle=otimes,dotsize=8pt,nodesep=2pt]
+    {\Tdot}{%
+      \pstree[treemode=L]{\Tdot}{\Tcircle{1} \Tcircle{2}}
+      \pstree{\Tdot}{\Tcircle{3} \Tcircle{4}}}
+\end{LTXexample}
+
+Since you can change a tree's orientation, it can make sense to include a tree
+(<treeB>) as a root node (of <treeA>). This makes a single logical tree, whose
+root is the root of <treeB>, and that has successors going off in different
+directions, depending on whether they appear as a successor to <treeA> or to
+<treeB>.
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree{\pstree[treemode=L]{\Tcircle{root}}{\Tr{B}}}{%
+    \Tr{A1}
+    \Tr{A2}}
+\end{LTXexample}
+
+%%DG: to do
+
+On a semi-related theme, note that any node that creates an LR-box can contain
+a tree. However, nested trees of this kind are not related in any way to the
+rest of the tree. Here is an example:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \psTree{\Tcircle{%
+            \pstree[treesep=0.4,levelsep=0.6,
+                    nodesepB=-6pt]{\Tdot}{%
+              \TR{a} \TR{b}}}}
+    \TC
+    \TC
+  \endpsTree
+\end{LTXexample}
+
+When the tree grows up or down, the successors are lined up from left to right
+in the order they appear in \Lcs{pstree}. When the tree grows to the left or
+right, the successors are lined up from top to bottom. As an afterthought, you
+might want to flip the order of the nodes. The keyword \Lkeyword{treeflip}=\true/\false
+let's you do this. For example:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\footnotesize
+\pstree[treemode=U,dotstyle=otimes,dotsize=8pt,
+  nodesep=2pt,treeflip=true]{\Tdot}{%
+    \pstree[treemode=R]{\Tdot}{\Tcircle{1} \Tcircle{2}}
+    \pstree{\Tdot}{\Tcircle{3} \Tcircle{4}}}
+\end{LTXexample}
+Note that I still have to go back and change the \Lkeyword{treemode} of the subtree
+that used to grow to the left.
+
+
+\section{The distance between successors}
+
+The distance between successors is set by the key \Lkeyword{treesep}.
+The rest of this section describes ways to fine-tune the spacing between
+successors.
+You can change the method for calculating the distance between subtrees by
+setting the  \Lkeyword{treefit}=\Lkeyval{tight}/\Lkeyval{loose}
+parameter. Here are the two methods:
+\begin{description}
+  \item[\Lkeyval{tight}] When \Lkeyset{treefit=tight}, which is the default, \Lkeyword{treesep} is
+  the minimum distance between each of the levels of the subtrees.
+  \item[\Lkeyval{loose}] When \Lkeyset{treefit=loose}, \Lkeyword{treesep} is the distance between the
+  subtrees' bounding boxes. Except when you have large intermediate nodes, the
+  effect is that the horizontal distance (or vertical distance, for horizontal
+  trees) between all the terminal nodes is the same (even when they are on
+  different levels).\footnote{%
+  When all the terminal nodes are on the same level, and the intermediate
+  nodes are not wider than the base of their corresponding \Index{subtree}s, then
+  there is no difference between the two methods.}
+\end{description}
+
+Compare:
+\begin{center}
+\tabcolsep=1cm
+\begin{tabular}{cc}
+  \psset{radius=2pt}
+  \pstree{\TC*}{%
+    \TC
+    \pstree{\TC*}{%
+      \pstree{\Tc{3pt}}{\TC \TC}
+      \TC*}}
+  &
+  \psset{radius=2pt}
+  \pstree[treefit=loose]{\TC*}{%
+    \TC
+    \pstree{\TC*}{%
+      \pstree{\Tc{3pt}}{\TC \TC}
+      \TC*}}
+\end{tabular}
+\end{center}
+
+With \Lkeyset{treefit=loose}, trees take up more space, but sometimes the structure
+of the tree is emphasized.
+
+
+%Another (orthogonal) way to highlight the structure of the tree is by setting
+%\begin{Ex}
+%  \Par{xtreesep=dim}
+%\end{Ex}
+%to a positive value. The effect is that adjacent nodes with different parents
+%are farther apart than adjacent nodes with the same parent.\footnote{%
+%When \p{treefit=tight}, the minimum distance between levels other than the top
+%of the subtrees is increased by \p{xtreesep}. When \p{treefit=loose}, the
+%minimum distance between subtrees is increased by \p{xtreesep}}.
+
+%This would have no effect in the previous two examples, but compare the
+%spacing between the two subtrees in
+%\begin{LTXexample}
+%  \psTree[radius=2pt,levelsep=1.5,xtreesep=.25cm] \TC* \\
+%    \pstree{\TC*}{\TC* \TC*}
+%    \pstree{\TC*}{\TC* \TC*}
+%  \endpsTree
+%\end{LTXexample}
+%with the spacing in
+%\begin{LTXexample}
+%  \psTree[radius=2pt,levelsep=1.5] \TC* \\
+%    \pstree{\TC*}{\TC* \TC*}
+%    \pstree{\TC*}{\TC* \TC*}
+%  \endpsTree
+%\end{LTXexample}
+
+Sometimes you want the spacing between the centers of the nodes to be regular
+even though the nodes have different sizes. If you set \Lkeyword{treenodesize}
+to a non-negative value, then PSTricks sets the width (or height+depth for
+vertical trees) to \Lkeyword{treenodesize}, \emph{for the purpose of calculating the
+distance between successors}.
+
+
+For example, ternary trees look nice when they are symmetric, as in the
+following example:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[nodesepB=-8pt,treenodesize=.85]{\Tc{3pt}}{%
+    \TR{$x=y$}
+    \TR{$x_1=y_1$}
+    \TR{$x_{11}=y_{11}$}}%$
+\end{LTXexample}
+
+Compare with this example, where the spacing varies with the size of the
+nodes:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[nodesepB=-8pt]{\Tc{3pt}}{%
+    \TR{$x=y$}
+    \TR{$x_1=y_1$}
+    \TR{$x_{11}=y_{11}$}}%$
+\end{LTXexample}
+
+Finally, if all else fails, you can adjust the distance between two successors 
+by inserting \Lcs{tspace}\Largb{length} between them:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree{\Tc{3pt}}{%
+    \Tdia{foo}
+    \tspace{-0.5}
+    \Toval{and}
+    \Ttri{bar}}
+\end{LTXexample}
+
+\section{Spacing between the root and successors}
+
+The distance between the center lines of the tree levels is \Lkeyword{levelsep}.
+If you want the spacing between levels to vary with the size of the levels,
+use the * convention. Then \Lkeyword{levelsep} is the distance between the bottom of
+one level and the top of the next level (or between the sides of the two
+levels, for horizontal trees).
+
+Note: PSTricks has to write some information to your \Lext{aux} file if using
+\LaTeX, or to \Lcs{jobname}.pst otherwise, in order to calculate the spacing.
+You have to run your input file a few times before PSTricks gets the spacing
+right.
+
+
+
+%%DG: to do
+%You are most likely to want to set \p{varlevelsep} to "true" in horizontal
+trees. Compare the following example:
+
+\begin{LTXexample}
+  \def\psedge#1#2{\ncdiagg[nodesep=3pt,angleA=180,armA=0]{#2}{#1}}
+  \pstree[treemode=R,levelsep=*1cm]{\Tr{George Alexander Kopf VII}}{%
+      \pstree{\Tr{Barry Santos}}{\Tr{James Kyle} \Tr{Ann Ada}}
+      \pstree{\Tr{Terri Maloney}}{\Tr{Uwe Kopf} \Tr{Vera Kan}}}
+\end{LTXexample}
+
+with this one, were the spacing between levels is fixed:
+
+\begin{LTXexample}
+  \def\psedge#1#2{\ncdiagg[nodesep=3pt,angleA=180,armA=0]{#2}{#1}}
+  \pstree[treemode=R,levelsep=3cm]{\Tr{George Alexander Kopf VII}}{%
+      \pstree{\Tr{Barry Santos}}{\Tr{James Kyle} \Tr{Ann Ada}}
+      \pstree{\Tr{Terri Maloney}}{\Tr{Uwe Kopf} \Tr{Vera Kan}}}
+\end{LTXexample}
+
+%The center of the root node of a tree is positioned above the midpoint between
+%the centers of the two outer successors. If you want the root to be positioned
+%drectly above one of the successors, put the command
+%  \Mac  \treecenter
+%right \emph{after} that successor. For example:
+%\begin{LTXexample}
+%  \def\myfan#1{\Tfan[fillstyle=solid,fillcolor=#1]\treecenter}%
+%    \pstree{\Tcircle{$x_2$}}{%
+%      \pstree{\Tcircle{$x_1$}}{%
+%        \pstree{\Tcircle{$x_0$}}{\myfan{black}}
+%        \myfan{gray}}
+%      \myfan{white}}
+%\end{LTXexample}
+
+%Here is another interesting example:
+%\begin{example}
+%  \def\psedge{\ncangle[angleA=0,angleB=90]}
+%  \pstree[treesep=10pt]{\Tcircle[name=after]{$x_0$}}{%
+%    \Tfan[fillstyle=solid,fillcolor=black]
+%    \treecenter
+%    \pstree{\Tcircle{$x_1$}}{\Tfan[fillstyle=solid,fillcolor=darkgray]}
+%    \pstree{\Tcircle{$x_2$}}{\Tfan[fillstyle=solid,fillcolor=gray]}
+%    \pstree{\Tcircle{$x_3$}}{\Tfan[fillstyle=solid,fillcolor=lightgray]}
+%    \pstree{\Tcircle{$x_4$}}{\Tfan[fillstyle=solid,fillcolor=white]}}
+%\end{example}
+
+
+\section{Edges}
+
+Right after you use a tree node command, \Lcs{pssucc} is equal to the name of the
+node, and \Lcs{pspred} is equal to the name of the node's predecessor. Therefore,
+you can draw a line between the node and its predecessor by inserting, for
+example,
+
+\begin{lstlisting}[style=syntax]
+\ncline{\pspred}{\pssucc}
+\end{lstlisting}
+
+To save you the trouble of doing this for every node, each tree node executes
+\begin{lstlisting}[style=syntax]
+  \psedge{\pspred}{\pssucc}
+\end{lstlisting}
+The default definition of \Lcs{psedge} is \Lcs{ncline}, but you can redefine it as
+you please with \Lcs{def} or \LaTeX's \Lcs{renewcommand}.
+
+For example, here I use \Lcs{ncdiag}, with \Lkeyword{armA}=0, to get all the node
+connections to emanate from the same point in the predecessor. \LaTeX{} users can instead type:
+\begin{lstlisting}[style=syntax]
+\renewcommand{\psedge}{\ncdiag[armA=0,angleB=180,armB=1cm]}
+\end{lstlisting}
+
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \def\psedge{\ncdiag[armA=0,angleB=180,armB=1cm]}
+  \pstree[treemode=R,levelsep=3.5cm,framesep=2pt]{\Tc{6pt}}{%
+      \small \Tcircle{K} \Tcircle{L} \Tcircle{M} \Tcircle{N}}
+\end{LTXexample}
+
+Here is an example with \Lcs{ncdiagg}. Note the use of a negative \Lkeyword{armA} value
+so that the corners of the edges are vertically aligned, even though the nodes
+have different sizes:
+
+\begin{LTXexample}
+$
+\def\psedge#1#2{\ncdiagg[angleA=180,armA=1cm,nodesep=4pt]{#2}{#1}}
+% Or: \renewcommand{\psedge}[2]{ ... }
+\pstree[treemode=R, levelsep=5cm]{\Tc{3pt}}{%
+  \Tr{z_1\leq y}  \Tr{z_1<y\leq z_2}   \Tr{z_2<y\leq x}   \Tr{x<y}
+}
+$
+\end{LTXexample}
+
+Another way to define \Lcs{psedge}\Largb{} is with the \Lkeyword{edge}
+parameter. Be sure to enclose the value in braces "{}" if it contains commas
+or other parameter delimiters. This gets messy if your command is long, and
+you can't use arguments like in the preceding example, but for simple changes
+it is useful. For example, if I want to switch between a few node connections
+frequently, I might define a command for each node connection, and then use
+the \Lkeyword{edge} parameter.
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \def\dedge{\ncline[linestyle=dashed]}
+  \pstree[treemode=U,radius=2pt]{\Tc{3pt}}{%
+    \TC*[edge=\dedge]
+    \pstree{\Tc{3pt}}{\TC*[edge=\dedge] \TC*}
+    \TC*}
+\end{LTXexample}
+
+You can also set \Lkeyset{edge=none} to suppress the node connection.
+
+If you want to draw a node connection between two nodes that are not direct
+predecessor and successor, you have to give the nodes a name that you can
+refer to, using the \Lkeyword{name} parameter. For example, here I connect two nodes
+on the same level:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[nodesep=3pt,radius=2pt]{\Toval{nature}}{%
+    \pstree{\Tc[name=top]{3pt}}{\TC* \TC*}
+    \pstree{\Tc[name=bot]{3pt}}{\TC* \TC*}}
+   \ncline[linestyle=dashed]{top}{bot}
+\end{LTXexample}
+
+We conclude with the more examples.
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \def\psedge{\nccurve[angleB=180, nodesepB=3pt]}
+  \pstree[treemode=R, treesep=1.5, levelsep=3.5]%
+    {\Toval{root}}{\Tr{X} \Tr{Y} \Tr{Z}}
+\end{LTXexample}
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[nodesepB=3pt, arrows=->, xbbl=15pt,
+    xbbr=15pt, levelsep=2.5cm]{\Tdia{root}}{%
+    $
+    \TR[edge={\ncbar[angle=180]}]{x}
+    \TR{y}
+    \TR[edge=\ncbar]{z}
+    $}
+\end{LTXexample}
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \psset{armB=1cm, levelsep=3cm, treesep=1cm,
+    angleB=-90, angleA=90, arrows=<-, nodesepA=3pt}
+  \def\psedge#1#2{\ncangle{#2}{#1}}
+  \pstree[radius=2pt]{\Ttri{root}}{\TC* \TC* \TC* \TC*}
+\end{LTXexample}
+
+
+
+\section{Edge and node labels}
+
+Right after a node, an edge has typically been drawn, and you can attach
+labels using \Lcs{ncput}, \Lcs{tlput}, etc.
+With \Lcs{tlput}, \Lcs{trput}, \Lcs{taput}, and \Lcs{tbput}, you can align the labels
+vertically or horizontally, just like the nodes. This can look nice, at least
+if the slopes of the node connections are not too different.
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \pstree[radius=2pt]{\Tp}{%
+    \psset{tpos=.6}
+    \TC* \tlput{k}
+    \pstree{\Tc{3pt} \tlput[labelsep=3pt]{r}}{%
+      \TC* \tlput{j}
+      \TC* \trput{i}}
+    \TC* \trput{m}}
+\end{LTXexample}
+
+Within trees, the \Lkeyword{tpos} parameter measures this distance from the
+predecessor to the successor, whatever the orientation of the true.
+(Outside of trees it measures the distance from the top to bottom or left to
+right nodes.)
+
+PSTricks also sets \Lkeyset{shortput=tab} within trees. This is a special
+\Lkeyword{shortput} option that should not be used outside of trees. It implements
+the following abbreviations, which depend of the orientation of the true:
+
+\begin{center}
+\begin{tabular}{ccc}
+ & \multicolumn{2}{c}{Short for:}\\
+  \emph{Char.} & \emph{Vert.} & \emph{Horiz.}\\[2pt]
+  \textasciicircum & \Lcs{tlput} & \Lcs{taput} \\
+  \textunderscore & \Lcs{trput} & \Lcs{tbput}
+\end{tabular}
+\end{center}
+(The scheme is reversed if \Lkeyset{treeflip=true}.)
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \psset{tpos=.6}
+  \pstree[treemode=R, thistreesep=1cm,
+    thislevelsep=3cm,radius=2pt]{\Tc{3pt}}{%
+    \pstree[treemode=U, xbbr=20pt]{\Tc{3pt}^{above}}{%
+      \TC*^{left}
+      \TC*_{right}}
+    \TC*^{above}
+    \TC*_{below}}
+\end{LTXexample}
+
+You can change the character abbreviations with
+
+
+\begin{BDef}
+\Lcs{MakeShortTab}\Largb{<char1>}\Largb{<char2>}
+\end{BDef}
+
+The \verb+\n*put+ commands can also give good results:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+  \psset{npos=.6,nrot=:U}
+  \pstree[treemode=R, thistreesep=1cm,
+    thislevelsep=3cm]{\Tc{3pt}}{%
+    \Tc{3pt}\naput{above}
+    \Tc*{2pt}\naput{above}
+    \Tc*{2pt}\nbput{below}}
+\end{LTXexample}
+
+You can put labels on the nodes using \Lcs{nput}. However, \Lcs{pstree} won't take
+these labels into account when calculating the bounding boxes.
+
+There is a special node label option for trees that does keep track of the
+bounding boxes:
+\begin{BDef}
+\Lnotation{\texttildelow}\OptArg*{*}\OptArgs\Largb{stuff}
+\end{BDef}
+Call this a ``tree node label''.
+
+Put a tree node label right after the node to which it applies, before any
+node connection labels (but node connection labels, including the short forms,
+can follow a tree node label). The label is positioned directly below the node
+in vertical trees, and similarly in other trees. For example:
+
+
+\begin{LTXexample}
+  \pstree[radius=2pt]{\Tc{3pt}\nput{45}{\pssucc}{root}}{%
+    \TC*~{$h$} \TC*~{$i$} \TC*~{$j$} \TC*~{$k$}}
+\end{LTXexample}
+
+Note that there is no ``long form'' for this tree node label. However, you can
+change the single character used to delimit the label with
+\begin{BDef}
+\Lcs{MakeShortTnput}\Largb{<char1>}
+\end{BDef}
+If you find it confusing to use a single character, you can also use a command
+sequence. E.g.,
+
+\begin{lstlisting}[style=syntax]
+\MakeShortTnput{\tnput}
+\end{lstlisting}
+
+You can have multiple labels, but each successive label is positioned relative
+to the bounding box that includes the previous labels. Thus, the order in
+which the labels are placed makes a difference, and not all combinations will
+produce satisfactory results.
+
+You will probably find that the tree node label works well for terminal nodes,
+without your intervention. However, you can control the tree node labels be
+setting several parameters.
+
+To position the label on any side of the node ("l"eft, "r"ight, "a"bove or
+"b"elow), set:  \Lkeyword{tnpos}=\Lkeyval{l}/\Lkeyval{r}/\Lkeyval{a}/\Lkeyval{b}
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\psframebox{%
+  \pstree{\Tc{3pt}~[tnpos=a,tndepth=0pt,radius=4pt]{root}}{%
+    \TC*~[tnpos=l]{$h$}
+    \TC*~[tnpos=r]{$i$}}}
+\end{LTXexample}
+
+When you leave the argument empty, which is the default, PSTricks chooses the
+label position is automatically.
+
+To change the distance between the node and the label, set \Lkeyword{tnsep} to a dimension
+When you leave the argument empty, which is the default, PSTricks uses the
+value of \Lkeyword{labelsep}. When the value is negative, the distance is measured
+from the center of the node.
+
+When labels are positioned below a node, the label is given a minimum height
+of \Lkeyword{tnheight}.
+Thus, if you add labels to several nodes that are horizontally aligned, and if
+either these nodes have the same depth or \Lkeyword{tnsep} is negative, and if the
+height of each of the labels is no more than \Lkeyword{tnheight}, then the labels
+will also be aligned by their baselines. The default is \nxLcs{ht}\Lcs{strutbox}, which
+in most \TeX{} formats is the height of a typical line of text in the current
+font. Note that the value of \Lkeyword{tnheight} is not evaluated until it is used.
+
+The positioning is similar for labels that go below a node. The label is given
+a minimum \emph{depth} of \Lkeyword{tndepth}.
+For labels positioned above or below, the horizontal reference point of the
+label, i.e., the point in the label directly above or below the center of the
+node, is set by the \Lkeyword{href} parameter.
+
+When labels are positioned on the left or right, the right or left edge of the
+label is positioned distance \Lkeyword{tnsep} from the node. The vertical point that
+is aligned with the center of the node is set by \Lkeyword{tnyref}.
+When you leave this empty, \Lkeyword{vref} is used instead. Recall that \Lkeyword{vref}
+gives the vertical \emph{distance} from the baseline. Otherwise, the
+\Lkeyword{tnyref} parameter works like the \Lkeyword{yref} parameter, giving the fraction of
+the distance from the bottom to the top of the label.
+
+\section{Details}
+
+PSTricks does a pretty good job of positioning the nodes and creating a box
+whose size is close to the true bounding box of the tree. However, PSTricks
+does not take into account the node connections or labels when calculating the
+bounding boxes, except the tree node labels.
+
+If, for this or other reasons, you want to fine tune the bounding box of the
+nodes, you can set the following parameters to a dimension:
+
+\begin{tabular}{@{}l l @{}}
+\emph{name} & \emph{default}\\\hline
+\Lkeyword{bbl}   &  0pt\\
+\Lkeyword{bbr}&  0pt\\
+\Lkeyword{bbh}&  0pt\\
+\Lkeyword{bbd}&  0pt\\
+\Lkeyword{xbbl}&  0pt\\
+\Lkeyword{xbbr}&  0pt\\
+\Lkeyword{xbbh}&  0pt\\
+\Lkeyword{xbbd}&  0pt
+\end{tabular}
+
+The "`x"' versions increase the bounding box by <dim>, and the others set the
+bounding box to the dimension. There is one parameter for each direction from the
+center of the node, \textbf{l}eft, \textbf{r}ight, \textbf{h}eight, and
+\textbf{d}epth.
+
+These parameters affect trees and nodes, and subtrees that switch directions,
+but not subtrees that go in the same direction as their parent tree (such
+subtrees have a profile rather than a bounding box, and should be adjusted by
+changing the bounding boxes of the constituent nodes).
+
+Save any fiddling with the bounding box until you are otherwise finished with
+the tree.
+
+You can see the bounding boxes by setting the \Lkeyword{showbbox}=\true/\false
+parameter to \true. To see the bounding boxes of all the nodes in a tree, you
+have to set this parameter before the tree.
+
+In the following example, the labels stick out of the bounding box:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\psset{tpos=.6,showbbox=true}
+\pstree[treemode=U]{\Tc{5pt}}{%
+    \TR{foo}^{left}
+    \TR{bar}_{right}}
+\end{LTXexample}
+
+Here is how we fix it:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\psset{tpos=.6,showbbox=true}
+\pstree[treemode=U,xbbl=8pt,xbbr=14pt]{\Tc{5pt}}{%
+    \TR{foo}^{left}
+    \TR{bar}_{right}}
+\end{LTXexample}
+
+Now we can frame the tree:
+
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\psframebox[fillstyle=solid,fillcolor=lightgray,framesep=14pt,
+  linearc=14pt,cornersize=absolute,linewidth=1.5pt]{%
+  \psset{tpos=.6,border=1pt,nodesepB=3pt}
+  \pstree[treemode=U,xbbl=8pt,xbbr=14pt]{%
+    \Tc[fillcolor=white,fillstyle=solid]{5pt}}{%
+    \TR*{foo}^{left}
+    \TR*{bar}_{right}}}
+\end{LTXexample}
+
+We would have gotten the same result by changing the bounding box of the two
+terminal nodes.
+
+To skip levels, use
+
+\begin{BDef}
+\LcsStar{skiplevel}\OptArgs\Largb{nodes or subtrees}\\[4pt]
+\LcsStar{skiplevels}\OptArgs\Largb{int} \\
+\qquad<nodes or subtrees> \\
+\Lcs{endskiplevels}
+\end{BDef}
+
+
+These are kind of like subtrees, but with no root node.
+
+\begin{LTXexample}
+  \pstree[treemode=R,levelsep=1.8,radius=2pt]{\Tc{3pt}}{%
+    \skiplevel{\Tfan}
+    \pstree{\Tc{3pt}}{%
+      \TC*
+      \skiplevels{2}
+        \pstree{\Tc{3pt}}{\TC* \TC*}
+        \TC*
+      \endskiplevels
+      \pstree{\Tc{3pt}}{\TC* \TC*}}}
+\end{LTXexample}
+
+The profile at the missing levels is the same as at the first non-missing
+level. You can adjust this with the bounding box parameters. You get greatest
+control if you use nested \Lcs{skiplevel} commands instead of \Lcs{skiplevels}.
+
+\begin{LTXexample}
+\large\psset{radius=6pt, dotsize=4pt}
+\pstree[thislevelsep=0,edge=none,levelsep=2.5cm]{\Tn}{%
+    \pstree{\TR{Player 1}}{\pstree{\TR{Player 2}}{\TR{Player 3}}}
+    \psset{edge=\ncline}
+    \pstree{\pstree[treemode=R]{\TC}{\Tdot ~{(0,0,0)} ^{N}}}{%
+         \pstree{\TC[name=A] ^{L}}{%
+           \Tdot ~{(-10,10.-10)} ^{l}
+           \pstree{\TC[name=C] _{r}}{%
+             \Tdot ~{(3,8,-4)} ^{c}
+             \Tdot ~{(-8,3,4)} _{d}}}
+         \pstree{\TC[name=B] _{R}}{%
+           \Tdot ~{(10,-10.0)} ^{l}
+           \pstree{\TC[name=D]_{r}}{%
+             \Tdot ~{(4,8,-3)} ^{c}
+             \Tdot ~{(0,-5,0)} _{d}}}}}
+\ncbox[linearc=.3,boxsize=.3,linestyle=dashed,nodesep=.4]{A}{B}
+\ncarcbox[linearc=.3,boxsize=.3,linestyle=dashed,arcangle=25,nodesep=.4]{D}{C}
+\end{LTXexample}
+
+\section{The scope of parameter changes}
+
+\Lkeyword{edge} is the only parameter which, when set in a tree node's parameter
+argument, affects the drawing of the node connection (e.g., if you want to
+change the \Lkeyword{nodesep}, your edge has to include the parameter change, or you
+have to set it before the node).
+
+As noted at the beginning of this section, parameter changes made with
+\Lcs{pstree} affect all subtrees. However, there are variants of some of these
+parameters for making local changes, i.e, changes that affects only the
+current level: \Lkeyword{thistreesep}, \Lkeyword{thistreenodesize}, 
+\Lkeyword{thistreefit}=\Lkeyval{tight}/\Lkeyval{loose}, and \Lkeyword{thislevelsep}.
+
+For example:
+\begin{LTXexample}[pos=l,width=0.4\linewidth]
+\pstree[thislevelsep=.5cm,thistreesep=2cm,
+  radius=2pt]{\Tc*{3pt}}{%
+  \pstree{\TC*}{\TC* \TC*}
+  \pstree{\TC*}{\TC* \TC*}}
+\end{LTXexample}
+
+There are some things you may want set uniformly across a level in the tree,
+such as the \Lkeyword{levelsep}. At level <n>, the command \nxLcs{pstreehook<roman(n)>}
+(e.\,g., \Lcs{pstreehookii}) is executed, if it is defined (the root node of the
+whole tree is level 0, the successor tree objects and the node connections
+from the root node to these successors is level 1, etc.). In the following
+example, the \Lkeyword{levelsep} is changed for level 2, without having to set the
+\Lkeyword{thislevelsep} parameter for each of the three subtrees that make of 
+level 2:
+
+\begin{LTXexample}
+\[
+\def\pstreehookiii{\psset{thislevelsep=3cm}}
+\pstree[treemode=R,levelsep=1cm,radius=2pt]{\Tc{4pt}}{%
+  \pstree{\TC*}{%
+    \pstree{\TC*}{\Tr{X_1} \Tr{X_2}}
+    \pstree{\TC*}{\Tr{Y_1} \Tr{Y_2}}}
+  \pstree{\TC*}{%
+    \pstree{\TC*}{\Tr{K_1} \Tr{K_2}}
+    \pstree{\TC*}{\Tr{J_1} \Tr{J_2}}}}
+\]
+\end{LTXexample}
+
+\clearpage
+\section{List of all optional arguments for \nxLPack{pst-tree}}
+
+The default value ist set when an optional argument is called without any value,
+e.\,g. \Lcs{pstree}\Largs{levelsep} is the same as \Lcs{pstree}\Largs{levelsep=2cm}.
+All boolean arguments are preset to \false.
+
+\xkvview{family=pst-tree,columns={key,type,default}}
+
+
+
+\nocite{*}
+\bgroup
+\raggedright
+\bibliographystyle{plain}
+\bibliography{\jobname}
+\egroup
+
+\printindex
+
+
+\end{document}
diff --git a/Master/texmf-dist/source/generic/pst-tree/Makefile b/Master/texmf-dist/source/generic/pst-tree/Makefile
new file mode 100644
index 00000000000..30303cb761c
--- /dev/null
+++ b/Master/texmf-dist/source/generic/pst-tree/Makefile
@@ -0,0 +1,71 @@
+
+# `Makefile' for `pst-tree.pdf', hv, 2008/12/11
+
+.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps
+
+PACKAGE = pst-tree
+
+MAIN = $(PACKAGE)-doc
+
+LATEX = latex
+
+ARCHNAME = $(MAIN)-$(shell date +%y%m%d)
+
+ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile
+
+TDS = ~/PSTricks/PSTricks-TDS
+
+all : doc clean tds
+# clean
+doc: $(MAIN).pdf
+
+$(MAIN).pdf : $(MAIN).ps
+	GS_OPTIONS=-dAutoRotatePages=/None ps2pdf $<
+
+$(MAIN).ps : $(MAIN).dvi
+	dvips $<
+
+$(MAIN).dvi : $(MAIN).tex
+	$(LATEX) $<
+	$(LATEX) $<
+	if ! test -f $(basename $<).glo ; then touch $(basename $<).glo; fi
+	if ! test -f $(basename $<).idx ; then touch $(basename $<).idx; fi
+	makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls \
+	  $(basename $<).glo
+	makeindex -s pst-doc.ist -t $(basename $<).ilg -o $(basename $<).ind \
+	  $(basename $<).idx
+	bibtex $(basename $<)
+	$(LATEX) $<
+	$(LATEX) $<
+
+clean : 
+	$(RM) $(addprefix $(MAIN), .log .aux .glg .glo .gls .ilg .idx .ind .tmp .toc .out )
+	$(RM) $(addprefix $(MAIN), .dvi .ps .blg .bbl)
+
+veryclean : clean
+	$(RM) $(addprefix $(MAIN), .pdf .bbl .blg)
+
+arch :
+	zip $(ARCHNAME).zip $(ARCHFILES)
+
+tds:
+	cp -u Changes     $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u README      $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u $(MAIN).pdf $(TDS)/doc/generic/$(PACKAGE)/
+#
+	cp -u Changes        $(TDS)/tex/latex/$(PACKAGE)/
+	cp -u $(PACKAGE).sty $(TDS)/tex/latex/$(PACKAGE)/
+#
+	cp -u Changes        $(TDS)/tex/generic/$(PACKAGE)/
+	cp -u $(PACKAGE).tex $(TDS)/tex/generic/$(PACKAGE)/
+#
+#	cp -u Changes        $(TDS)/dvips/$(PACKAGE)/
+#	cp -u $(PACKAGE).pro $(TDS)/dvips/$(PACKAGE)/
+#
+	cp -u Changes     $(TDS)/source/$(PACKAGE)/
+	cp -u $(MAIN).tex $(TDS)/source/$(PACKAGE)/
+	cp -u $(MAIN).bib $(TDS)/source/$(PACKAGE)/
+	cp -u Makefile    $(TDS)/source/$(PACKAGE)/
+
+
+# EOF
diff --git a/Master/texmf-dist/tex/generic/pst-tree/pst-tree.tex b/Master/texmf-dist/tex/generic/pst-tree/pst-tree.tex
new file mode 100644
index 00000000000..140d18cbc6d
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-tree/pst-tree.tex
@@ -0,0 +1,1048 @@
+%% pst-tree.tex
+%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu.
+%% COPYRIGHT 2000-2003 by Denis Girou.
+%% Copyright 2004-2009 Herbert Voss
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+%
+% This work has the LPPL maintenance status "maintained".
+% 
+% This Current Maintainer of this work is Herbert Voss
+%
+% This work consists of the file pstricks.tex, PostScript macros 
+% for Generic TeX.
+% See the PSTricks User's Guide for description.
+%
+\csname PSTreeLoaded\endcsname
+\let\PSTreeLoaded\endinput
+\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi\relax
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
+%
+\def\fileversion{1.10}
+\def\filedate{2008/12/12}
+\message{ v\fileversion, \filedate}
+%
+\edef\TheAtCode{\the\catcode`\@}
+\catcode`\@=11
+%
+\pst@addfams{pst-tree}
+\NormalCoor
+\newbox\pstree@rootbox
+\newbox\pstree@box
+\def\pstree@succrow{%
+\ifpstreeflip
+  \def\pssubtree@vertical{\pssubtree@vertical@vflip}%
+\else
+  \def\pssubtree@vertical{\pssubtree@vertical@v}%
+\fi
+\def\pstree@node{\pstree@node@v}%
+\def\pssubtree@horizontal{\pssubtree@horizontal@v}}%
+\def\pssubtree@vertical@v{%
+  \vrule height \pst@dimc depth \pst@dimd width \z@
+  \ifnum\psnodecnt=\z@
+   \global\let\pstree@theleftprofile\pstree@leftprofile
+   \global\let\pstree@therightprofile\pstree@rightprofile
+  \else
+    \psk@thistreefit\pstree@therightprofile\pstree@leftprofile
+    \kern\the\pst@cnth sp
+    \pstree@zip\pstree@therightprofile
+    \pstree@rightprofile\pstree@therightprofile
+    \global\advance\pstree@cnt\pst@cnth
+    \pst@cnth=\pstree@cnt
+    \pstree@zip\pstree@leftprofile
+    \pstree@theleftprofile\pstree@theleftprofile
+  \fi
+  \box\pstree@box
+  \global\advance\psnodecnt 1\relax%
+}%
+\def\pssubtree@vertical@vflip{%
+  \vrule height \pst@dimc depth \pst@dimd width \z@
+  \ifnum\psnodecnt=\z@
+    \global\let\pstree@theleftprofile\pstree@leftprofile
+    \global\let\pstree@therightprofile\pstree@rightprofile
+  \else
+    \psk@thistreefit\pstree@theleftprofile\pstree@rightprofile
+    \kern-\pst@cnth sp
+    \pstree@zip\pstree@theleftprofile
+    \pstree@leftprofile\pstree@theleftprofile
+    \global\advance\pstree@cnt\pst@cnth
+    \pst@cnth=\pstree@cnt
+    \pstree@zip\pstree@rightprofile
+    \pstree@therightprofile\pstree@therightprofile
+  \fi
+  \box\pstree@box
+  \global\advance\psnodecnt 1\relax%
+}%
+\def\pstree@node@v{%
+  \edef\pstree@leftprofile{\psk@thistreenodesize\pst@dima,\pstree@stop,}%
+  \edef\pstree@rightprofile{\psk@thistreenodesize\pst@dimb,\pstree@stop,}%
+  \pssubtree@vertical}%
+%
+\def\pssubtree@horizontal@v{%
+  \pstree@max\pstree@upprofile\pst@cntg
+  \pst@dimc=\pst@cntg sp
+  \pstree@max\pstree@downprofile\pst@cntg
+  \pst@dimd=\pst@cntg sp
+  \pstree@treebboxadjust
+  \edef\pstree@leftprofile{\number\pst@dima,\pstree@stop,}%
+  \edef\pstree@rightprofile{\number\pst@dimb,\pstree@stop,}%
+  \pssubtree@vertical}%
+%
+\def\pstree@tightfit#1#2{%
+  \pst@cnth=\z@
+  \edef\treenext{\noexpand\pstree@@tightfit#1\noexpand\@nil#2\noexpand\@nil}%
+  \treenext
+  \advance\pst@cnth\psk@thistreesep\relax
+  \advance\pst@cnth\pstree@tspace\relax
+  \gdef\pstree@tspace{\z@}}
+%
+\def\pstree@@tightfit#1,#2\@nil#3,#4\@nil{%
+  \ifnum#1=\pstree@stop
+    \let\treenext\relax
+  \else
+    \ifnum#3=\pstree@stop
+      \let\treenext\relax
+    \else
+      \pst@cntg=#1
+      \advance\pst@cntg#3
+      \ifnum\pst@cntg>\pst@cnth \pst@cnth=\pst@cntg\fi
+      \def\treenext{\pstree@@tightfit#2\@nil#4\@nil}%
+    \fi
+  \fi
+  \treenext}
+%
+\def\pstree@loosefit#1#2{%
+  \pstree@max{#1}\pst@cnth
+  \pstree@max{#2}\pst@cntg
+  \advance\pst@cnth\pst@cntg
+  \advance\pst@cnth\psk@thistreesep\relax
+  \advance\pst@cnth\pstree@tspace\relax
+  \gdef\pstree@tspace{\z@}}
+%
+\def\tspace#1{%
+  \pst@@killglue
+  \pssetlength\pst@dimg{#1}%
+  \xdef\pstree@tspace{\number\pst@dimg}%
+  \ignorespaces}
+%
+\define@key[psset]{pst-tree}{treefit}[tight]{%
+  \@ifundefined{pstree@#1fit}%
+    {\@pstrickserr{Bad `treefit' parameter value: `#1'}\@ehpa}%
+    {\expandafter\let\expandafter\psk@treefit\csname pstree@#1fit\endcsname}}
+\psset[pst-tree]{treefit=tight}
+%
+\define@key[psset]{pst-tree}{thistreefit}[tight]{%
+  \@ifundefined{pstree@#1fit}%
+    {\@pstrickserr{Bad `treefit' parameter value: `#1'}\@ehpa}%
+    {\expandafter\let\expandafter\psk@thistreefit\csname pstree@#1fit\endcsname}}
+\psset[pst-tree]{thistreefit=tight}
+%
+\def\pstree@zip#1#2#3{%
+  \def\pst@tempg{}%
+  \edef\treenext{\noexpand\pstree@@zip#1\noexpand\@nil#2\noexpand\@nil}%
+  \treenext
+  \global\let#3\pst@tempg}
+%
+\def\pstree@@zip#1,#2\@nil#3,#4\@nil{%
+  \ifnum#1=\pstree@stop
+    \edef\pst@tempg{\pst@tempg#3,#4}%
+    \let\treenext\relax
+  \else
+    \ifnum#3=\pstree@stop
+      \pst@cntg=#1
+      \advance\pst@cntg-\pst@cnth
+      \edef\pst@tempg{\pst@tempg\the\pst@cntg,}%
+      \def\treenext{\pstree@@zip#2\@nil\pstree@stop,\@nil}%
+    \else
+      \edef\pst@tempg{\pst@tempg#3,}%
+      \def\treenext{\pstree@@zip#2\@nil#4\@nil}%
+    \fi
+  \fi
+  \treenext}
+%
+\def\pstree@max#1#2{%
+  \pst@cntg=\z@
+  \expandafter\pstree@@max#1%
+  #2=\pst@cntg}%
+%
+\def\pstree@@max#1,{%
+  \ifnum#1=\pstree@stop \else
+    \ifnum#1>\pst@cntg \pst@cntg=#1\fi
+    \expandafter\pstree@@max
+  \fi}
+%
+\def\pstree@add#1{%
+  \def\pst@tempg{}%
+  \expandafter\pstree@@add#1%
+  \xdef#1{\pst@tempg\pstree@stop,}}
+%
+\def\pstree@@add#1,{%
+  \ifnum#1=\pstree@stop \else
+    \pst@cnth=#1
+    \advance\pst@cnth\pst@cntg
+    \xdef\pst@tempg{\pst@tempg\the\pst@cnth,}%
+    \expandafter\pstree@@add
+  \fi}
+%
+\newcount\psnodecnt
+\let\c@psnodecnt\psnodecnt
+\newcount\pstreelevel
+\let\c@pstreelevel\pstreelevel
+\newcount\pstreecnt
+\let\c@pstreecnt\pstreecnt
+\newcount\pstree@cnt
+%
+\def\pstree{\def\pst@par{}\pst@object{pstree}}
+\def\pstree@i{\def\pstree@makebox{\pst@@makebox}\pstree@ii}
+%
+\def\psTree{\def\pst@par{}\pst@object{psTree}}
+\def\psTree@i{\def\pstree@makebox{\pst@makelongbox}\pstree@ii}
+% hv --begin 1.00 2007-01-03 make it LaTeX-compatible
+%\def\endpsTree{\pst@endlongbox\ignorespaces}
+\def\endpsTree{\pst@endlongbox\csname ignorespacesafterend\endcsname}
+% hv --end
+\def\pstree@ii{%
+  \ifnum\pstreelevel=\z@
+    \let\pstree@savedshortput\pst@shortput
+    \psset@shortput{tab}%
+  \else
+    \pst@@killglue
+  \fi
+  \begingroup
+  \begingroup
+  \def\pstree@node{%
+    \xdef\pstree@next{%
+      \noexpand\@psttrue
+      \noexpand\def\noexpand\pst@tempa{\number\pst@dima}%
+      \noexpand\def\noexpand\pst@tempb{\number\pst@dimb}%
+      \noexpand\def\noexpand\pst@tempc{\number\pst@dimc}%
+      \noexpand\def\noexpand\pst@tempd{\number\pst@dimd}}%
+    \box\pstree@box}%
+  \def\pssubtree@horizontal{\pssubtree@horizontal@o}%
+  \def\pssubtree@vertical{\pssubtree@vertical@o}%
+  \global\let\pstree@next\relax
+  \pst@makebox\pstree@iii}
+%
+\def\pstree@iii{%
+  \global\setbox\pst@boxg=\box\pst@hbox
+  \endgroup
+  \setbox\pstree@rootbox=\box\pst@boxg
+  \@pstfalse
+  \pstree@next
+  \if@pst
+    \ifdim\wd\pstree@rootbox=\z@\else
+      \@pstrickserr{Extraneous space in root node}\@ehpa
+      \typeout{===>\the\wd\pst@hbox (rootbox)}
+      \wd\pstree@rootbox=\z@
+    \fi
+  \else
+    \@pstrickserr{Missing or bad root node
+    (level \the\pstreelevel, node \the\psnodecnt)}\@ehpa
+    \def\pstree@next{%
+    \def\pst@tempa{0}%
+    \def\pst@tempb{0}%
+    \def\pst@tempc{0}%
+    \def\pst@tempd{0}}%
+    \wd\pstree@rootbox=\z@
+  \fi
+  \pstree@savevalues
+  \begingroup
+  \pstree@initsuccvalues
+  \pstree@setlevelpar
+  \pstree@do}
+%
+\def\pstree@setlevelpar{%
+  \advance\pstreelevel1
+  \let\psk@thislevelsep\relax
+  \let\psk@thistreesep\relax
+  \let\psk@thistreefit\relax
+  \let\psk@thistreenodesize\relax
+  \csname pstreehook\romannumeral\pstreelevel\endcsname
+  \use@par
+  \ifx\psk@thistreesep\relax
+    \let\psk@thistreesep\psk@treesep
+  \fi
+  \ifx\psk@thistreenodesize\relax
+    \let\psk@thistreenodesize\psk@treenodesize
+  \fi
+  \ifx\psk@thistreefit\relax
+    \let\psk@thistreefit\psk@treefit
+  \fi
+  \ifx\psk@thislevelsep\relax
+    \let\psk@thislevelsep\psk@levelsep
+  \let\psk@thislevelsepmode\psk@levelsepmode
+  \fi
+  \ifnum\psk@treemode=\pstree@predmode\else
+    \global\advance\pstreecnt1
+    \edef\pstree@thetree{\the\pstreecnt}%
+    \let\pstree@predmode\psk@treemode
+  \fi
+  \ifx\psk@thislevelsepmode\relax
+    \pst@dimg=\psk@thislevelsep\relax
+    \pst@cntg=0\@nameuse{pstree@levelsepadjust-\pstree@thetree-\the\pstreelevel}%
+    \advance\pst@dimg\pst@cntg sp
+    \edef\psk@thislevelsep{\number\pst@dimg sp}%
+  \fi
+  \ifnum\psk@treemode>1
+    \def\pst@tposflip{1 sub neg }%
+  \else
+    \def\pst@tposflip{}%
+  \fi
+  \ifx\pstree@bboxadjust\@empty\else
+    \xdef\pstree@treebboxadjust{%
+      \pstree@bboxadjust
+      \ifpsshowbbox\noexpand\pstree@showbbox\fi}%
+    \gdef\pstree@bboxadjust{}%
+  \fi
+  \let\pst@thispsbox\@skiplevelfalse}
+%
+\def\pstree@predmode{-1}
+\def\pstree@savevalues{%
+  \edef\pstree@restorevalues{%
+  \noexpand\gdef\noexpand\pstree@theleftprofile{\pstree@theleftprofile}%
+  \noexpand\gdef\noexpand\pstree@therightprofile{\pstree@therightprofile}%
+  \noexpand\gdef\noexpand\pstree@theupprofile{\pstree@theupprofile}%
+  \noexpand\gdef\noexpand\pstree@thedownprofile{\pstree@thedownprofile}%
+  \noexpand\gdef\noexpand\pstree@tspace{\pstree@tspace}%
+  \noexpand\gdef\noexpand\pssucc{\pssucc}%
+  \global\psnodecnt=\the\psnodecnt\relax
+  \global\pstree@cnt=\the\pstree@cnt\relax}%
+  \let\pstree@savebboxadjust\pstree@treebboxadjust}
+%
+\def\pstree@initsuccvalues{%
+  \def\pstree@therightprofile{\pstree@stop,}%
+  \let\pstree@theleftprofile\pstree@therightprofile
+  \let\pstree@theupprofile\pstree@therightprofile
+  \let\pstree@thedownprofile\pstree@therightprofile
+  \psnodecnt=\z@
+  \pstree@cnt\z@
+  \gdef\pstree@tspace{\z@}%
+  \let\pspred\pssucc}
+%
+\def\pssucc{T}
+\pstree@initsuccvalues
+\def\pstree@down{%
+  \pstree@succrow
+  \pstree@makebox{\pstree@vertical{\lower}}}
+\def\pstree@up{%
+  \pstree@succrow
+  \pstree@makebox{\pstree@vertical{\raise}}}
+\def\pstree@levelsepadjust#1#2{%
+% DG/SR modification begin - May 14, 1997 - Patch 1
+% Problem with levelsep=*...
+%\pst@cntg=0\@nameuse{pstree@levelsepadjust-#1}%
+\pst@cntg=0\@nameuse{pstree@levelsepadjust-#1}
+% DG/SR modification end
+\ifnum#2>\pst@cntg
+\expandafter\xdef\csname pstree@levelsepadjust-#1\endcsname
+{#2}%
+\fi}
+% DG/SR modification begin - October 28, 1999 - Patch 5 - For plain TeX
+\ifx\@undefined\@auxout\newwrite\@auxout\fi
+% DG/SR modification end
+\def\pstree@initlevelsepadjust{%
+\@ifundefined{@latexerr}{%
+\immediate\openin1 \jobname.pst
+\ifeof1 \else
+\input \jobname.pst
+\fi
+\immediate\closein1
+\csname newwrite\endcsname\pstree@auxout
+\immediate\openout\pstree@auxout \jobname.pst }%
+{\let\pstree@auxout\@auxout}%
+\global\let\pstree@initlevelsepadjust\relax}
+\newcount\pstree@stop
+\pstree@stop=-987654321
+\def\pstree@vertical#1{%
+\pst@cntg=\ifpstreeflip-\fi\wd\pst@hbox
+\divide\pst@cntg 2
+\pstree@add\pstree@theleftprofile
+\pstree@add\pstree@therightprofile
+\pst@dimg=\psk@thislevelsep\relax
+\ifx\psk@thislevelsepmode\relax
+\pstree@vertlevelsepadjust{#1}%
+\fi
+\global\setbox\pstree@box=\hbox{%
+\vrule height \pst@tempc sp depth \pst@tempd sp width \z@
+\unhbox\pstree@rootbox
+#1\pst@dimg\hbox to\z@{\hss\unhbox\pst@hbox\hss}}%
+\if@skiplevel
+\skiplevel@vertical
+\else
+\endgroup
+\fi
+\edef\pstree@leftprofile{\pst@tempa,\pstree@theleftprofile}%
+\edef\pstree@rightprofile{\pst@tempb,\pstree@therightprofile}%
+\pst@dimc=\ht\pstree@box
+\pst@dimd=\dp\pstree@box
+\ifpsshowbbox
+\pstree@max\pstree@leftprofile\pst@cntg
+\pst@dima=\pst@cntg sp
+\pstree@max\pstree@rightprofile\pst@cntg
+\pst@dimb=\pst@cntg sp
+\pstree@showbbox
+\fi
+\dp\pstree@box=\z@
+\ht\pstree@box=\z@
+\pstree@restorevalues
+\pssubtree@vertical
+\global\let\pstree@treebboxadjust\pstree@savebboxadjust
+\endgroup
+\ifnum\pstreelevel>\z@\expandafter\ignorespaces\fi}
+\def\pstree@vertlevelsepadjust#1{%
+\ifx\if@filesw\iffalse\else
+\ifx#1\lower
+\pst@dimh=\pst@tempd sp
+\advance\pst@dimh\ht\pst@hbox
+\else
+\pst@dimh=\pst@tempc sp
+\advance\pst@dimh\dp\pst@hbox
+\fi
+\immediate\write\@auxout{%
+\string\pstree@levelsepadjust
+{\pstree@thetree-\the\pstreelevel}{\number\pst@dimh}}%
+\fi}
+\def\pstree@succcolumn{%
+\def\pssubtree@vertical{\pssubtree@vertical@h}%
+\def\pssubtree@horizontal{\pssubtree@horizontal@h}%
+\def\pstree@node{\pstree@node@h}}%
+\def\pssubtree@horizontal@h{%
+\xdef\pstree@theleftprofile{\number\pst@dima,\pstree@theleftprofile}%
+\xdef\pstree@therightprofile{\number\pst@dimb,\pstree@therightprofile}%
+\ifnum\psnodecnt=\z@
+\global\let\pstree@theupprofile\pstree@upprofile
+\global\let\pstree@thedownprofile\pstree@downprofile
+\box\pstree@box
+\else
+\ifpstreeflip
+\pssubtree@horizontal@@hflip
+\else
+\pssubtree@horizontal@@h
+\fi
+\fi
+\global\advance\psnodecnt 1\relax}
+\def\pssubtree@horizontal@@h{%
+\psk@thistreefit\pstree@thedownprofile\pstree@upprofile
+\global\advance\pstree@cnt\pst@cnth
+\lower\the\pstree@cnt sp\box\pstree@box
+\pstree@zip\pstree@thedownprofile\pstree@downprofile\pstree@thedownprofile
+\pst@cnth=\pstree@cnt
+\pstree@zip\pstree@upprofile\pstree@theupprofile\pstree@theupprofile}
+\def\pssubtree@horizontal@@hflip{%
+\psk@thistreefit\pstree@theupprofile\pstree@downprofile
+\global\advance\pstree@cnt\pst@cnth
+\raise\the\pstree@cnt sp\box\pstree@box
+\pstree@zip\pstree@theupprofile\pstree@upprofile\pstree@theupprofile
+\pst@cnth=\pstree@cnt
+\pstree@zip\pstree@downprofile\pstree@thedownprofile\pstree@thedownprofile}
+\def\pstree@node@h{%
+\edef\pstree@upprofile{\psk@thistreenodesize\pst@dimc,\pstree@stop,}%
+\edef\pstree@downprofile{\psk@thistreenodesize\pst@dimd,\pstree@stop,}%
+\pssubtree@horizontal@h}%
+\def\pssubtree@vertical@h{%
+\pstree@max\pstree@leftprofile\pst@cntg
+\pst@dima=\pst@cntg sp
+\pstree@max\pstree@rightprofile\pst@cntg
+\pst@dimb=\pst@cntg sp
+\pstree@treebboxadjust
+\edef\pstree@upprofile{\number\pst@dimc,\pstree@stop,}%
+\edef\pstree@downprofile{\number\pst@dimd,\pstree@stop,}%
+\pssubtree@horizontal@h}%
+\newif\if@psrighttree
+\def\pstree@right{%
+\@psrighttreetrue
+\pstree@succcolumn
+\pstree@makebox\pstree@horizontal}
+\def\pstree@left{%
+\@psrighttreefalse
+\pstree@succcolumn
+\pstree@makebox\pstree@horizontal}
+\def\pstree@horizontal{%
+  \ifdim\wd\pst@hbox=\z@\else
+    \@pstrickserr{Extraneous space in tree successors}\@ehpa
+    \typeout{===>\the\wd\pst@hbox (hbox)}
+  \fi
+  \pst@cntg=\ifpstreeflip\ht\else\dp\fi\pst@hbox
+  \divide\pst@cntg 2
+  \pstree@add\pstree@theupprofile
+  \pstree@add\pstree@thedownprofile
+% DG/SR modification begin - Sep. 24, 1997 - Patch 3
+%\ifx\psk@thislevelsepmode\relax
+%\pstree@horizlevelsepadjust
+%\fi
+% DG/SR modification end
+  \pst@dimg\psk@thislevelsep\relax
+  \global\setbox\pstree@box=\hbox{%
+    \unhbox\pstree@rootbox
+    \kern\if@psrighttree\else-\fi\pst@dimg
+    \ifpstreeflip\lower\else\raise\fi\pst@cntg sp\box\pst@hbox}%
+% DG/SR modification begin - Sep. 24, 1997 - Patch 3
+  \ifx\psk@thislevelsepmode\relax
+    \pstree@horizlevelsepadjust
+  \fi
+% DG/SR modification end
+  \if@psrighttree
+    \pst@dimh=\pst@dimg
+    \pstree@max\pstree@therightprofile\pst@cntg
+    \global\advance\pst@dimh\pst@cntg sp
+    \global\pst@dimg=\pst@tempa sp
+  \else
+    \pstree@max\pstree@theleftprofile\pst@cntg
+    \global\advance\pst@dimg\pst@cntg sp
+    \global\pst@dimh=\pst@tempb sp
+  \fi
+  \if@skiplevel\skiplevel@horizontal\else\endgroup\fi
+  \pst@dima=\pst@dimg
+  \pst@dimb=\pst@dimh
+  \edef\pstree@upprofile{\pst@tempc,\pstree@theupprofile}%
+  \edef\pstree@downprofile{\pst@tempd,\pstree@thedownprofile}%
+  \dp\pstree@box=\z@
+  \ht\pstree@box=\z@
+  \wd\pstree@box=\z@
+  \ifpsshowbbox
+    \pstree@max\pstree@upprofile\pst@cntg
+\pst@dimc=\pst@cntg sp
+\pstree@max\pstree@downprofile\pst@cntg
+\pst@dimd=\pst@cntg sp
+\pstree@showbbox
+\fi
+\pstree@restorevalues
+\pssubtree@horizontal
+\endgroup
+\ifnum\pstreelevel>\z@\expandafter\ignorespaces\fi}
+% DG/SR modification begin - Sep. 24, 1997 - Patch 2
+%\def\pstree@horizlevelsepadjust#1{%
+\def\pstree@horizlevelsepadjust{%
+% DG/SR modification end
+\ifx\if@filesw\iffalse\else
+\if@psrighttree
+\pst@dimh=\pst@tempb sp
+\pstree@max\pstree@theleftprofile\pst@cntg
+\advance\pst@dimh\pst@cntg sp
+\else
+\pst@dimh=\pst@tempa sp
+\pstree@max\pstree@therightprofile\pst@cntg
+\advance\pst@dimh\pst@cntg sp
+\fi
+\immediate\write\@auxout{%
+\string\pstree@levelsepadjust
+{\pstree@thetree-\the\pstreelevel}{\number\pst@dimh}}%
+\fi}
+%
+\define@key[psset]{pst-tree}{treemode}[0]{%
+  \pst@cntg=\ifx#1U\@empty2\else\ifx#1R\@empty1\else\ifx#1L\@empty3\else0\fi\fi\fi
+  \relax
+  \edef\psk@treemode{\the\pst@cntg}%
+  \ifcase\pst@cntg
+    \let\pstree@do\pstree@down\or
+    \let\pstree@do\pstree@right\or
+    \let\pstree@do\pstree@up\or
+    \let\pstree@do\pstree@left
+  \fi}
+\psset[pst-tree]{treemode=0}
+%
+\let\pstree@do\pstree@down
+\define@key[psset]{pst-tree}{treesep}[0.75cm]{%
+  \pssetlength\pst@dimg{#1}%
+  \edef\psk@treesep{\number\pst@dimg}}%
+\psset[pst-tree]{treesep=.75cm}
+%
+\define@key[psset]{pst-tree}{thistreesep}{%
+  \pssetlength\pst@dimg{#1}%
+  \edef\psk@thistreesep{\number\pst@dimg}}%
+%\psset[pst-tree]{thistreesep=.75cm}
+%
+\define@key[psset]{pst-tree}{treenodesize}[-1pt]{%
+  \pssetlength\pst@dimg{#1}%
+  \ifdim\pst@dimg<\z@
+    \let\psk@treenodesize\number
+  \else
+    \edef\psk@treenodesize{\number\pst@dimg\noexpand\@gobble}%
+\fi}
+\psset[pst-tree]{treenodesize=-1pt}
+%
+\define@key[psset]{pst-tree}{thistreenodesize}[-1pt]{%
+  \pssetlength\pst@dimg{#1}%
+  \ifdim\pst@dimg<\z@
+    \let\psk@thistreenodesize\number
+  \else
+    \edef\psk@thistreenodesize{\number\pst@dimg\noexpand\@gobble}%
+  \fi}
+\psset[pst-tree]{thistreenodesize=-1pt}
+%
+\define@key[psset]{pst-tree}{levelsep}[2cm]{%
+  \pst@expandafter{\pst@ifstar\psset@@levelsep}{#1}\@nil}
+\def\psset@@levelsep#1\@nil{%
+  \pst@@getlength{#1}\psk@levelsep
+  \if@star
+    \pstree@initlevelsepadjust
+    \let\psk@levelsepmode\relax
+  \else
+    \def\psk@levelsepmode{}%
+  \fi}
+\psset[pst-tree]{levelsep=2cm}
+\define@key[psset]{pst-tree}{thislevelsep}{%
+  \pst@expandafter{\pst@ifstar\psset@@thislevelsep}{#1}\@nil}
+\def\psset@@thislevelsep#1\@nil{%
+  \pst@@getlength{#1}\psk@thislevelsep
+  \if@star
+    \pstree@initlevelsepadjust
+    \let\psk@thislevelsepmode\relax
+  \else
+    \def\psk@thislevelsepmode{}%
+\fi}
+%
+\define@boolkey[psset]{pst-tree}[ps]{treeflip}[true]{}
+\psset[pst-tree]{treeflip=false}
+%
+\def\pstree@node@o{%
+\leavevmode
+\hbox{%
+\vrule height \pst@dimc depth \pst@dimd width \z@
+\kern\pst@dima
+\box\pstree@box
+\kern\pst@dimb}}
+\def\pssubtree@vertical@o{%
+\pstree@max\pstree@leftprofile\pst@cntg
+\pst@dima=\pst@cntg sp
+\pstree@max\pstree@rightprofile\pst@cntg
+\pst@dimb=\pst@cntg sp
+\pstree@treebboxadjust
+\pstree@node}
+\def\pssubtree@horizontal@o{%
+\pstree@max\pstree@upprofile\pst@cntg
+\pst@dimc=\pst@cntg sp
+\pstree@max\pstree@downprofile\pst@cntg
+\pst@dimd=\pst@cntg sp
+\pstree@treebboxadjust
+\pstree@node}
+\def\pstree@outer{%
+\def\pstree@node{\pstree@node@o}%
+\def\pssubtree@vertical{\pssubtree@vertical@o}%
+\def\pssubtree@horizontal{\pssubtree@horizontal@o}%
+\pstreelevel=\z@
+\def\pstree@predmode{-1}%
+\def\pst@tposflip{}%
+\let\pst@thisbox\relax
+\let\pst@shortput\pstree@savedshortput}
+\let\pstree@savedshortput\ignorespaces
+\pstree@outer
+%
+\define@boolkey[psset]{pst-tree}[ps]{showbbox}[true]{}
+\psset[pst-tree]{showbbox=false}
+%
+\def\pstree@showbbox{%
+\setbox\pstree@box=\hbox{%
+\psframe[linewidth=0,linecolor=black,linestyle=solid,fillstyle=none]%
+(-\pst@dima,-\pst@dimd)(\pst@dimb,\pst@dimc)%
+\box\pstree@box}}%
+%
+\define@key[psset]{pst-tree}{edge}[\ncline]{%
+  \def\psedge{#1}%
+  \ifx\psedge\@none\def\psedge##1##2{}\fi}
+\psset[pst-tree]{edge=\ncline}
+%
+\def\pspred{T}
+\def\pstree@makenodebox{%
+\pst@@killglue
+\let\pst@thispsbox\pstree@outer
+\pst@makebox}
+\def\begin@treenode{%
+\pst@@killglue
+\begingroup
+\use@par
+\global\let\pstree@edge\psedge
+\xdef\pssucc{\pspred-\the\psnodecnt}}
+\def\MakeShortTnput#1{%
+\def\end@treenode{\@ifnextchar#1{\tnput@}{\end@@treenode}}}
+\MakeShortTnput{~}
+\def\end@@treenode{%
+\pstree@bboxadjust
+\gdef\pstree@bboxadjust{}%
+\ifpsshowbbox\pstree@showbbox\fi
+\pstree@node
+\endgroup
+\ifnum\pstreelevel>\z@
+\pstree@edge{\pspred}{\pssucc}%
+\expandafter\pst@shortput
+\else
+\expandafter\ignorespaces
+\fi}
+\def\pstree@bboxadjust{}
+\def\pstree@setbboxadjust#1#2{%
+\pssetlength\pst@dimg{#1}%
+\xdef\pstree@bboxadjust{%
+\pstree@bboxadjust
+#2\number\pst@dimg sp\relax}}
+%
+\define@key[psset]{pst-tree}{bbl}{\pstree@setbboxadjust{#1}{\pst@dima=}}
+\define@key[psset]{pst-tree}{bbr}{\pstree@setbboxadjust{#1}{\pst@dimb=}}
+\define@key[psset]{pst-tree}{bbh}{\pstree@setbboxadjust{#1}{\pst@dimc=}}
+\define@key[psset]{pst-tree}{bbd}{\pstree@setbboxadjust{#1}{\pst@dimd=}}
+\define@key[psset]{pst-tree}{xbbl}{\pstree@setbboxadjust{#1}{\advance\pst@dima}}
+\define@key[psset]{pst-tree}{xbbr}{\pstree@setbboxadjust{#1}{\advance\pst@dimb}}
+\define@key[psset]{pst-tree}{xbbh}{\pstree@setbboxadjust{#1}{\advance\pst@dimc}}
+\define@key[psset]{pst-tree}{xbbd}{\pstree@setbboxadjust{#1}{\advance\pst@dimd}}
+%
+\let\pstree@treebboxadjust\relax
+\def\Tn{\def\pst@par{}\pst@object{Tn}}
+\def\Tn@i{%
+\pst@@killglue
+\global\let\pssucc\pspred
+\begingroup
+\pst@dima=\z@
+\pst@dimb=\z@
+\pst@dimc=\z@
+\pst@dimd=\z@
+\setbox\pstree@box=\hbox{}%%
+\pstree@node
+\endgroup
+\ignorespaces}
+\def\Tp{\def\pst@par{}\pst@object{Tp}}
+\def\Tp@i{%
+\begin@treenode
+\pst@dima=\z@
+\pst@dimb=\z@
+\pst@dimc=\z@
+\pst@dimd=\z@
+\setbox\pstree@box=\hbox{%
+\pst@newnode{\pssucc}{10}{0 0 }{\tx@InitPnode}}%
+\end@treenode}
+\def\Tc{\def\pst@par{}\pst@object{Tc}}
+\def\Tc@i#1{%
+\begin@treenode
+\pssetlength\pst@dima{#1}%
+\pst@dimb=\pst@dima
+\pst@dimc=\pst@dima
+\pst@dimd=\pst@dima
+\nodealignfalse
+\setbox\pstree@box=\hbox{\cnode@ii(\z@,\z@){#1}{\pssucc}}%
+\end@treenode}
+\def\TC{\def\pst@par{}\pst@object{TC}}
+\def\TC@i{\Tc@i{\psk@radius}}
+\def\Toval{\def\pst@par{}\pst@object{Toval}}
+\def\Toval@i{\pstree@makenodebox{\Toval@ii\ovalnode@ii}}
+\def\Toval@ii#1{%
+  \begin@treenode
+  \nodealigntrue
+  \setbox\pstree@box=\hbox{#1\pssucc}%
+  \pst@dima=\wd\pstree@box
+  \divide\pst@dima 2
+  \pst@dimb=\pst@dima
+  \pst@dimc=\ht\pstree@box
+  \pst@dimd=\dp\pstree@box
+  \setbox\pstree@box=\hbox to\z@{\hss\unhbox\pstree@box\hss}%
+  \dp\pstree@box=\z@
+  \ht\pstree@box=\z@
+  \end@treenode%
+}
+%
+\def\Tcircle{\def\pst@par{}\pst@object{Tcircle}}
+\def\Tcircle@i{\pstree@makenodebox{\Toval@ii\circlenode@ii}}
+% DG/SR modification begin - Mar.  7, 2003 - Patch 6
+\def\TCircle{\pst@object{TCircle}}
+\def\TCircle@i{\pst@@killglue\pst@makebox{\Toval@ii\Circlenode@ii}}
+% DG/SR modification end
+%
+\def\Tf{\def\pst@par{}\pst@object{Tf}}
+\def\Tf@i{\Toval@ii{\fnode@ii()}}
+\def\Tdia{\def\pst@par{}\pst@object{Tdia}}
+\def\Tdia@i{\pstree@makenodebox{\Toval@ii\dianode@ii}}
+\def\Ttri{\def\pst@par{}\pst@object{Ttri}}
+\def\Ttri@i{\pstree@makenodebox{\Ttri@ii}}
+\def\Ttri@ii{%
+  \begin@treenode
+  \nodealigntrue
+  \setbox\pstree@box=\hbox{\trinode@ii\pssucc}%
+  \pst@dima=\pst@dimg % Set by \pst@triboxsep
+  \pst@dimb=\wd\pstree@box
+  \advance\pst@dimb-\pst@dima
+  \pst@dimc=\ht\pstree@box
+  \pst@dimd=\dp\pstree@box
+  \setbox\pstree@box=\hbox to\z@{\hss\unhbox\pstree@box\hss}%
+  \dp\pstree@box=\z@
+  \ht\pstree@box=\z@
+  \end@treenode%
+}
+\def\Tr{\def\pst@par{}\pst@object{Tr}}
+% SR modification begin - Oct. 27, 1996
+%\def\Tr@i{\pstree@makenodebox{\Tr@ii{\begingroup\rnode@ii}}}
+\def\Tr@i{\pstree@makenodebox{\Tr@ii{\rnode@iii\rnode@iv}}}
+% SR modification end
+\def\Tr@ii#1{%
+  \begin@treenode
+  \def\pstree@nodehook{%
+  \xdef\pstree@next{\pst@dima=\number\pst@dima sp\relax}}%
+  \nodealigntrue
+  \setbox\pstree@box\hbox{#1\pssucc}%
+  \pstree@next
+  \pst@dimb=\wd\pstree@box
+  \advance\pst@dimb-\pst@dima
+  \pst@dimc=\ht\pstree@box
+  \pst@dimd=\dp\pstree@box
+  \setbox\pstree@box\hbox to\z@{\kern-\pst@dima\unhbox\pstree@box\hss}%
+  \ht\pstree@box=\z@
+  \dp\pstree@box=\z@
+  \end@treenode}
+%
+\def\TR{\def\pst@par{}\pst@object{TR}}
+% DG modification begin - Oct. 25, 1996
+%\def\TR@i{\pstree@makenodebox{\Tr@ii{\Rnode@ii}}}
+\def\TR@i{\pstree@makenodebox{\Tr@ii{\rnode@iii\Rnode@ii}}}
+% DG modification end
+\def\Tdot{\def\pst@par{}\pst@object{Tdot}}
+\def\Tdot@i{%
+\begin@treenode
+\def\pstree@nodehook{\xdef\pstree@next{%
+\pst@dima=\number\pst@dima sp\relax
+\pst@dimc=\number\pst@dimb sp\relax}}%
+\nodealignfalse
+\setbox\pstree@box=\hbox{\dotnode@ii(\z@,\z@)\pssucc}%
+\pstree@next
+\pst@dimb=\pst@dima
+\pst@dimd=\pst@dimc
+\end@treenode}
+%
+\define@key[psset]{pst-tree}{fansize}[1cm]{\pst@@getlength{#1}\psk@fansize}
+\psset[pst-tree]{fansize=1cm}
+%
+\def\Tfan{\def\pst@par{}\pst@object{Tfan}}
+\def\Tfan@i{%
+\addto@par{edge=none}%
+\begin@treenode
+\solid@star
+\pst@dimb=\psk@fansize
+\pst@dimd=\pslinewidth
+\advance\pst@dimb-\pst@dimd
+\divide\pst@dimb 2
+\divide\pst@dimd 2
+\ifodd\psk@treemode\relax
+\pst@dima=\pst@dimd
+\pst@dimc=\pst@dimb
+\else
+\pst@dima=\pst@dimb
+\pst@dimc=\pst@dimd
+\fi
+\setbox\pstree@box=\hbox{%
+\pst@newnode{\pssucc}{16}{}{%
+/Y 0 def
+/X 0 def
+/l \pst@number\pst@dima def
+/r l def
+/u \pst@number\pst@dimc def
+/d u def
+/NodePos { \tx@GetRnodePos } def}%
+\def\pst@linetype{1}%
+\nc@object{Closed}{\pspred}{\pssucc}{.5}{%
+tx@Dict begin \psline@iii pop end
+/w \pst@number\pst@dimb CLW 2 div sub def
+/m \ifodd\psk@treemode false \else true \fi def
+\tx@Tfan}}%
+\pst@dimb=\pst@dima
+\pst@dimd=\pst@dimc
+\end@treenode}
+\define@key[psset]{pst-tree}{tnsep}[{}]{%
+  \def\pst@tempg{#1}%
+  \ifx\pst@tempg\@empty
+    \def\psk@tnsep{\number\pslabelsep sp}%
+  \else
+    \pst@@getlength{#1}\psk@tnsep
+\fi}
+\psset[pst-tree]{tnsep={}}
+%
+\define@key[psset]{pst-tree}{tnyref}[{}]{\def\psk@tnyref{#1}}%
+\psset[pst-tree]{tnyref={}}
+%
+\define@key[psset]{pst-tree}{tnheight}[\ht\strutbox]{\edef\psk@tnheight{#1}}
+\psset[pst-tree]{tnheight=\ht\strutbox}
+%
+\define@key[psset]{pst-tree}{tndepth}[\dp\strutbox]{\edef\psk@tndepth{#1}}
+\psset[pst-tree]{tndepth=\dp\strutbox}
+%
+\define@key[psset]{pst-tree}{tnpos}[{}]{%
+  \def\pst@tempg{#1}%
+  \ifx\pst@tempg\@empty
+    \def\psk@tnpos{%
+    \ifcase\psk@treemode b\or r\or a\or l\fi}%
+    \else
+      \@ifundefined{pstree@tnput@#1}%
+        {\@pstrickserr{Bad tnpos: `#1'}\@ehpa}%
+        {\edef\psk@tnpos{#1}}%
+  \fi}
+\psset[pst-tree]{tnpos={}}
+%
+\def\tnput@#1{\def\pst@par{}\pst@object{tnput}}
+\def\tnput@i{\pstree@makenodebox{\tnput@ii}}
+\def\tnput@ii{%
+\begingroup
+\use@par
+\xdef\treenext{%
+\if@star\noexpand\pst@starbox\fi
+\noexpand\def\noexpand\psk@thistndepth{\psk@tndepth}%
+\noexpand\def\noexpand\psk@thistnheight{\psk@tnheight}%
+\noexpand\def\noexpand\psk@thistnyref{\psk@tnyref}%
+\noexpand\def\noexpand\psk@thistnsep{\psk@tnsep}%
+\expandafter\noexpand\csname pstree@tnput@\psk@tnpos\endcsname}%
+\endgroup
+\treenext
+\end@treenode}
+\@namedef{pstree@tnput@b}{%
+\pstree@tnput@@v\pst@dimd\ht\dp\lower\psk@thistnheight}
+\@namedef{pstree@tnput@a}{%
+\pstree@tnput@@v\pst@dimc\dp\ht\raise\psk@thistndepth}
+\def\pstree@tnput@@v#1#2#3#4#5{%
+\pst@dimh=\wd\pst@hbox
+\pst@dimg=\psk@href\pst@dimh
+\advance\pst@dimg\pst@dimh
+\divide\pst@dimg 2
+\advance\pst@dimh-\pst@dimg
+\ifdim\pst@dimg>\pst@dima
+\pst@dima=\pst@dimg
+\fi
+\ifdim\pst@dimh>\pst@dimb
+\pst@dimb=\pst@dimh
+\fi
+\pst@dimh=\psk@thistnsep\relax
+\ifdim\pst@dimh<\z@
+\pst@dimh=-\pst@dimh
+\else
+\advance\pst@dimh#1%
+\fi
+\pssetlength\dimen@{#5}%
+\ifdim\dimen@>#2\pst@hbox
+\advance\pst@dimh\dimen@\relax
+\else
+\advance\pst@dimh#2\pst@hbox
+\fi
+\setbox\pstree@box=\hbox{%
+\box\pstree@box
+#4\pst@dimh\hbox to\z@{\kern-\pst@dimg\unhbox\pst@hbox\hss}}%
+#1=#3\pstree@box
+\dp\pstree@box=\z@
+\ht\pstree@box=\z@}
+\@namedef{pstree@tnput@l}{%
+\pstree@tnput@@h\pst@dima{%
+\hss
+\lower\pst@dimg\box\pst@hbox
+\kern\pst@dimh
+\box\pstree@box}}
+\@namedef{pstree@tnput@r}{%
+\pstree@tnput@@h\pst@dimb{%
+\box\pstree@box
+\kern\pst@dimh
+\lower\pst@dimg\box\pst@hbox
+\hss}}%
+\def\pstree@tnput@@h#1#2{%
+\ifx\psk@thistnyref\@empty
+\pssetlength\pst@dimg\psk@vref
+\else
+\pst@dimg=\ht\pst@hbox
+\advance\pst@dimg\dp\pst@hbox
+\pst@dimg=\psk@thistnyref\pst@dimg
+\advance\pst@dimg-\dp\pst@hbox
+\fi
+\pst@dimh=\psk@thistnsep\relax
+\ifdim\pst@dimh<\z@
+\pst@dimh=-\pst@dimh
+\else
+\advance\pst@dimh#1%
+\fi
+#1=\pst@dimh
+\advance#1\wd\pst@hbox
+\setbox\pstree@box=\hbox to\z@{#2}%
+\ifdim\ht\pstree@box>\pst@dimc
+\pst@dimc=\ht\pstree@box
+\fi
+\ifdim\dp\pstree@box>\pst@dimd
+\pst@dimd=\dp\pstree@box
+\fi
+\dp\pstree@box=\z@
+\ht\pstree@box=\z@}
+\newif\if@skiplevel
+\def\skiplevel{\def\pst@par{}\pst@object{skiplevel}}
+\def\skiplevel@i{\def\pstree@makebox{\pst@@makebox}\skiplevel@ii}
+\def\skiplevel@ii{%
+\pst@@killglue
+\begingroup
+\let\pssucc\pspred
+\def\pst@tempa{0}%
+\def\pst@tempb{0}%
+\def\pst@tempc{0}%
+\def\pst@tempd{0}%
+\setbox\pstree@rootbox=\hbox{}%
+\pstree@savevalues
+\begingroup
+\pstree@initsuccvalues
+\pstree@setlevelpar
+\@skipleveltrue
+\pstree@do}
+% DG/SR modification begin - Aug. 31, 1999 - Patch 4
+%\def\pstree@gettop#1{\expandafter\pstree@@gettop#1\@nil}
+%\def\pstree@@gettop#1,#2\@nil{#1}
+% DG/SR modification end
+\def\skiplevel@horizontal{%
+% DG/SR modification begin - Aug. 31, 1999 - Patch 4
+%\pst@dimc=\pstree@gettop\pstree@theupprofile sp
+%\pst@dimd=\pstree@gettop\pstree@thedownprofile sp
+  \edef\pstree@upprofile{\pst@tempc,\pstree@theupprofile}%
+  \edef\pstree@downprofile{\pst@tempd,\pstree@thedownprofile}%
+  \pstree@max\pstree@upprofile\pst@cntg
+  \pst@dimc=\pst@cntg sp
+  \pstree@max\pstree@downprofile\pst@cntg
+  \pst@dimd=\pst@cntg sp
+% DG/SR modification end
+  \pstree@treebboxadjust
+  \gdef\pstree@treebboxadjust{}%
+  \xdef\pstree@next{%
+    \noexpand\def\noexpand\pst@tempc{\number\pst@dimc}%
+    \noexpand\def\noexpand\pst@tempd{\number\pst@dimd}}%
+  \endgroup
+  \pstree@next}
+\def\skiplevel@vertical{%
+% DG/SR modification begin - Aug. 31, 1999 - Patch 4
+%\pst@dima=\pstree@gettop\pstree@theleftprofile sp
+%\pst@dimb=\pstree@gettop\pstree@therightprofile sp
+  \edef\pstree@leftprofile{\pst@tempa,\pstree@theleftprofile}%
+  \edef\pstree@rightprofile{\pst@tempb,\pstree@therightprofile}%
+  \pstree@max\pstree@leftprofile\pst@cntg
+  \pst@dima=\pst@cntg sp
+  \pstree@max\pstree@rightprofile\pst@cntg
+  \pst@dimb=\pst@cntg sp
+% DG/SR modification end
+  \pstree@treebboxadjust
+  \gdef\pstree@treebboxadjust{}%
+  \xdef\pstree@next{%
+    \noexpand\def\noexpand\pst@tempa{\number\pst@dima}%
+    \noexpand\def\noexpand\pst@tempb{\number\pst@dimb}}%
+  \endgroup
+  \pstree@next}
+\def\skiplevels{\def\pst@par{}\pst@object{skiplevels}}
+\def\skiplevels@i#1{%
+  \pst@@killglue
+  \begingroup
+  \pst@cnta=#1\relax
+  \edef\skiplevels@num{\the\pst@cnta}%
+  \def\pstree@makebox{\pst@makelongbox}%
+  \def\endskiplevels{}%
+  \loop
+    \ifnum\pst@cnta>\z@
+    \advance\pst@cnta-1
+    \expandafter\def\expandafter\endskiplevels\expandafter{%
+      \endskiplevels\pst@endlongbox}
+    \skiplevel@ii
+  \repeat
+  \expandafter\def\expandafter\endskiplevels\expandafter{%
+    \endskiplevels\endgroup\ignorespaces}
+  \ignorespaces}
+
+\catcode`\@=\TheAtCode\relax
+
+\endinput
+%%
+%% END: pst-tree.tex
diff --git a/Master/texmf-dist/tex/latex/pst-tree/pst-tree.sty b/Master/texmf-dist/tex/latex/pst-tree/pst-tree.sty
new file mode 100644
index 00000000000..6da25a30052
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/pst-tree/pst-tree.sty
@@ -0,0 +1,6 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-tree}[2009/01/25 package wrapper for pst-tree.tex]
+\input{pst-tree.tex}
+\ProvidesFile{pst-tree.tex}
+  [\filedate\space \fileversion\space `pst-tree' (tvz,hv)]
+\endinput
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index fa0b9619a45..0f221a373f3 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -186,7 +186,7 @@ my @WorkingTLP = qw(
           pst-lens pst-light3d pst-math pst-ob3d pst-optexp pst-optic
           pst-osci pst-pad pst-pdf pst-pdgr pst-qtree
           pst-sigsys pst-solides3d pst-soroban pst-spectra
-          pst-slpe pst-stru pst-text pst-uml pst-vue3d
+          pst-slpe pst-stru pst-text pst-tree pst-uml pst-vue3d
           pst2pdf pstool pstricks pstricks-add
           psu-thesis ptptex pxfonts
         qcm qobitree qstest qtree quotmark
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index dca66e3535c..170c50eedea 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -421,6 +421,7 @@ chdir $startdir || die "chdir($startdir) failed: $!";  # back to raw
  'pst-spectra',	"&MAKEpst",
  'pst-stru',	"&MAKEpst",
  'pst-text',	"&MAKEpst",
+ 'pst-tree',	"&MAKEpst",
  'pst-uml',	"&MAKEpst",
  'pst-vue3d',	"&MAKEpst",
  'pstricks',	"&MAKEpstricks",
diff --git a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
index 3ff3739b927..6c6bad75fc6 100644
--- a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
@@ -51,6 +51,7 @@ depend pst-stru
 depend pst-solides3d
 depend pst-soroban
 depend pst-text
+depend pst-tree
 depend pst-uml
 depend pst-vue3d
 depend pst2pdf
diff --git a/Master/tlpkg/tlpsrc/pst-tree.tlpsrc b/Master/tlpkg/tlpsrc/pst-tree.tlpsrc
new file mode 100644
index 00000000000..b6fc45cd144
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/pst-tree.tlpsrc
@@ -0,0 +1,2 @@
+name pst-tree
+category Package