trunk/Master/texmf-dist/source/latex/tree-dvips

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

4 files changed, 560 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/tree-dvips/00Description b/Master/texmf-dist/source/latex/tree-dvips/00Description
new file mode 100644
index 00000000000..bd332d4cf43
--- /dev/null
+++ b/Master/texmf-dist/source/latex/tree-dvips/00Description
@@ -0,0 +1,6 @@
+Comprehensive TeX Archive Network: package description
+------------------------------------------------------
+Name: tree-dvips
+Last changed in archive: 1994/01/29
+Archive-path: macros/latex209/contrib/trees/tree-dvips
+Mirrored from: clsi.stanford.edu
diff --git a/Master/texmf-dist/source/latex/tree-dvips/Makefile b/Master/texmf-dist/source/latex/tree-dvips/Makefile
new file mode 100644
index 00000000000..ab845d64274
--- /dev/null
+++ b/Master/texmf-dist/source/latex/tree-dvips/Makefile
@@ -0,0 +1,11 @@
+
+ALL = Makefile lingmacros.sty tree-dvips.sty tree-manual.tex Readme \
+      tree-dvips.pro tree.script lingmacros-manual.tex
+
+all: tree-dvips.pro 
+
+tar: 
+	tar cf tree.tar ${ALL}
+
+tree-dvips.pro: tree.script
+	/src/tex/TeXdevices/dvips533/dvips/squeeze < tree.script > tree-dvips.pro
diff --git a/Master/texmf-dist/source/latex/tree-dvips/Readme b/Master/texmf-dist/source/latex/tree-dvips/Readme
new file mode 100644
index 00000000000..bb0aea098c1
--- /dev/null
+++ b/Master/texmf-dist/source/latex/tree-dvips/Readme
@@ -0,0 +1,25 @@
+CSLI postscript drawing macros.  Created by Emma Pease
+(emma@csli.stanford.edu).  
+
+These macros were originally created to draw the lines between nodes
+in the trees created by the tree macros in lingmacros.sty.  They will
+only work with dvips version 541 or later (by Tomas Rokicki available
+on labrea.stanford.edu) but can be easily modified to be used with
+earlier versions of dvips and slightly less easily modified for other
+dvi to postscript convertors.
+
+To install, place 
+
+tree-dvips.pro
+
+in the postscript header path for dvips. 
+
+Problems:
+
+Be wary of using page extraction programs such as dviselect as you may
+accidently drop the special command loading the header file if you do
+not include the first page.  dvips's own page selection commands will
+keep the special.
+
+
+
diff --git a/Master/texmf-dist/source/latex/tree-dvips/tree.script b/Master/texmf-dist/source/latex/tree-dvips/tree.script
new file mode 100644
index 00000000000..de7dca6ebbd
--- /dev/null
+++ b/Master/texmf-dist/source/latex/tree-dvips/tree.script
@@ -0,0 +1,518 @@
+% grestore
+% special commands for setting up tree macros
+TeXDict begin
+
+% the commands needed to get any of this working.  The first section
+% may need to be modified if different dvi to postscript programs are
+% used. 
+
+/@beginspec {gsave texpsmatrix setmatrix treedict begin} def
+/@endspec {end grestore} def
+
+%% definition of letter matrix
+%/testorient
+%  { gsave
+%    matrix defaultmatrix
+%    72 Resolution div dup neg 
+%    3 -1 roll scale          % set scaling to 1.
+%    310 -3005 
+%    3 -1 roll translate      % move origin to top (these are not exactly 1"
+%    Mtrx 
+%  } def
+%
+
+% /Landscape false def 
+
+% for landscape Landscape=true, letter Landscape=false
+/texpsmatrix 
+matrix defaultmatrix 
+isls {dup [0.0 -1.0 1.0 0.0 0.0 0.0] exch concatmatrix} if
+def
+userdict begin
+/bop-hook
+{/texpsmatrix 
+matrix defaultmatrix 
+isls {dup [0.0 -1.0 1.0 0.0 0.0 0.0] exch concatmatrix} if
+def}
+B
+end
+%/texpsmatrix matrix defaultmatrix def
+/treedict 200 dict def treedict begin
+
+%  num pt num  (converts a number in TeX pts (72.27 pts/in) to
+%  postscript pts (72pts/in)
+/pt {72 mul 72.07 div} def
+
+% end of first section
+
+% definition of a node as a box containing the following information
+% The x y location of the lower left hand corner of the box
+% the height of the box (h) 
+% the width of the box (w)
+% nodemargin is added to all sides to ensure a boundary around the box
+% str w h d node -
+% (nodemargin is defined in the TeX file)
+/nodemargin 2 def
+/nodes 100 dict def
+/node { /dpth exch def
+	       /hght exch def
+	       /wdth exch def
+       	       4 dict dup begin
+                 /x /y currentpoint 
+                       dpth sub nodemargin sub exch 3 1 roll def
+                    nodemargin sub def
+                 /h hght dpth add nodemargin dup add add def
+                 /w wdth nodemargin dup add add def
+               end nodes 3 1 roll put} def
+
+
+% commands to find various locations around the nodebox
+%
+%                 nodetopleft      nodetop    nodetopright
+%                           *--------*--------*
+%                           |                 |
+%                           |                 |
+%   farleft        nodeleft *  (nodebox)      * noderight    farright
+%                           |                 |
+%                           |                 |
+%                           *--------*--------*
+%                 nodebotleft     nodebottom  nodebotright
+%
+%
+%  farbotleft                     farbottom
+
+% all of these take
+% dict nodebottom x1 y1   [dict has x y h w defined]
+/nodebottom {begin 
+               	x w 2 div add y
+               	end} def
+/nodetop {begin
+            	x w 2 div add y h add
+            	end} def
+/nodeleft {begin
+             	x y h 2 div add
+            	end} def
+/noderight {begin
+              	x w add y h 2 div add
+              	end} def
+/nodetopleft {begin
+		x y h add
+		end} def
+/nodetopright {begin
+	 	x w add y h add
+		end} def
+/nodebottomleft {begin
+		x y
+		end} def
+/nodebottomright {begin
+		x w add y
+		end} def
+
+% some more locations of use
+/farright {begin
+		x w add depth add h 2 div y add
+	end} def
+
+/farleft {begin
+		x depth sub h 2 div y add
+	end} def
+
+/farbottom {begin
+		x w 2 div add y depth sub
+	end} def
+
+/fartop {begin
+		x w 2 div add y h add depth add
+	end} def
+
+/farbottomleft {begin
+                x depth 45 cos mul sub y depth 45 sin mul sub
+	end} def
+
+/farbottomright {begin
+                x w add depth 45 cos mul add y depth 45 sin mul sub
+	end} def
+
+/fartopright {begin
+                x w add depth 45 cos mul add y h add depth 45 sin mul add
+	end} def
+
+/fartopleft {begin
+                x depth 45 cos mul sub y h add depth 45 sin mul add
+	end} def
+
+
+% connects two nodes with a straight line 
+% add location information (e.g., whether to go from
+% nodetop to nodeleft ...
+
+% nodename1 loc1 nodename2 loc2 nodeconnect -
+% e.g., a nodetop b nodebottom nodeconnect
+
+% to see if straight lines are indeed straight
+% x1 x2 alignpoint x1' x2'  finds out if the two numbers are less than
+% one pixel apart if so make x1'=x2'
+
+/alignpoint {2 copy sub abs 1 le {add 2 div round dup} if} def
+
+% nodelocation nodename getnodepoint x y 
+/getnode {nodes exch get} def
+
+% xfrom yfrom xto yto nodeconnect -
+/nodeconnect {       gsave
+		       transform 4 2 roll
+                       transform
+		       exch 4 1 roll alignpoint
+                       4 2 roll alignpoint
+                       4 1 roll exch
+                       itransform moveto itransform lineto
+                       stroke
+                     grestore
+                     } def
+
+% arrowheads
+% xtail ytail xtip ytip headthickness headlength arrow -
+
+/arrowdict 14 dict def
+arrowdict begin
+	/mtrx matrix def
+end
+
+/arrow {arrowdict begin
+	/headlength exch def
+	/halfheadthickness exch 2 div def
+	/tipy exch def /tipx exch def
+	/taily exch def /tailx exch def
+
+	/dx tipx tailx sub def
+	/dy tipy taily sub def
+	/angle dy dx atan def
+	
+	/savematrix mtrx currentmatrix def
+	tipx tipy translate
+	angle rotate
+	0 0 moveto
+	headlength neg halfheadthickness neg lineto
+	headlength neg halfheadthickness lineto
+	closepath
+savematrix setmatrix
+	end } def
+
+
+% xfrom yfrom xto yto testcmd -
+% arrownodeconnect
+/arrownodeconnect{    gsave
+		transform 4 2 roll
+                transform
+		exch 4 1 roll alignpoint
+                4 2 roll alignpoint
+                4 1 roll exch
+                itransform 4 2 roll itransform 4 2 roll 4 copy moveto lineto
+		gsave
+		newpath
+		4 2 roll arrowwidth arrowlength arrow	
+		fill
+		grestore
+                stroke
+               grestore
+		} def
+
+
+% connecting with a bar like
+%     _______________
+%     |             |
+% or like
+%     _______________
+%     |             |
+%     |           node
+%    node
+
+% depth fromnode fromloc tonode toloc
+% depth x1 y1 x2 y2 barnodeconnect -
+/barnodeconnect {4 2 roll
+          2 copy moveto
+          5 -1 roll add
+          dup 3 1 roll
+          lineto
+          2 index exch
+          lineto lineto
+          stroke
+         } def
+
+/arrowbarnodeconnect {4 2 roll
+          2 copy moveto
+          5 -1 roll add
+          dup 3 1 roll
+          lineto
+          2 index exch
+          4 copy lineto lineto
+		gsave
+		newpath
+		4 2 roll
+		arrowwidth arrowlength arrow	
+		fill
+		grestore
+         stroke
+         } def
+
+
+% Takes two nodes and forms a triangle
+%         node1
+%         /\
+%        /  \
+%        ----
+%       nodess
+%
+% fromnodename tonodename nodetriangle -
+/nodetriangle {
+		gsave
+                        exch
+			nodes exch get nodebottom moveto
+			dup
+			nodes exch get nodetopleft lineto
+			nodes exch get nodetopright lineto
+			closepath
+			stroke
+		grestore } def
+
+
+% not sure what I am using the following for
+%  x y x y slope num
+/slope {/y1 exch def
+	/x1 exch def
+	/y0 exch def
+	/x0 exch def
+	y1 y0 sub x1 x0 sub div
+	} def
+
+% x y x y midpoint x y 
+/midpoint {/y1 exch def
+	   /x1 exch def
+	   /y0 exch def
+	   /x0 exch def
+	   x1 x0 sub abs
+	   x1 x0 ge {x0 add} {x1 add} ifelse
+	   y1 y0 sub abs
+	   y1 y0 ge {y0 add} {y1 add} ifelse
+	} def
+
+
+% variant of curveto where x1 y1 = x2 y2
+/tancurveto {1 index exch
+	curveto} def
+
+/nodetancurve {/depth exch def
+	    /to exch def
+	    /from exch def
+		gsave
+		nodes from get noderight moveto
+
+		nodes to get noderight 
+		tancurveto
+		stroke
+		grestore } def
+
+
+
+% the node curves draw curves between two points
+%
+%
+
+% nodename rightcur x1 y1 x2 y2
+/rightcur {nodes exch get dup noderight 3 -1 roll farright} def
+/leftcur {nodes exch get dup nodeleft 3 -1 roll farleft} def
+/topcur {nodes exch get dup nodetop 3 -1 roll fartop} def
+/bottomcur {nodes exch get dup nodebottom 3 -1 roll farbottom} def
+/topleftcur {nodes exch get dup nodetopleft 3 -1 roll fartopleft} def
+/toprightcur {nodes exch get dup nodetopright 3 -1 roll fartopright} def
+/bottomleftcur {nodes exch get dup nodebottomleft 3 -1 roll farbottomleft} def
+/bottomrightcur {nodes exch get dup nodebottomright 3 -1 roll farbottomright} def
+
+% (depth predefined) x1 y1 x2 y2 x3 y3 x4 y4 nodecurve -
+% where  nodename nodeposition produces x1 y1 x2 y2
+% where x1 y1 are the endpoint
+
+/nodecurve {gsave
+            4 2 roll moveto
+            6 2 roll 4 2 roll curveto 
+            stroke
+            grestore} def
+
+/arrownodecurve {gsave
+            4 2 roll moveto
+            6 2 roll 4 2 roll 4 copy 10 4 roll curveto 
+	    gsave
+	    newpath
+            arrowwidth arrowlength arrow
+            fill
+	    grestore
+            stroke
+            grestore} def
+
+
+%% commands for drawing things around nodes
+% nodename nodebox -
+/nodebox {nodes exch get begin
+                   gsave
+                     newpath
+                     x y moveto
+		     h w dobox
+		    cleanup
+	             stroke
+                   grestore
+                  end} def
+
+
+% nodename nodecircle -
+% would be nice to have a parameter that adjusts diameter of circle
+% depth nodename nodecircle -
+/nodecircle {nodes exch get begin
+		gsave
+		newpath
+		w 2 div x add h 2 div y add 
+		w w mul h h mul add sqrt 2 div 4 -1 roll add
+		360 0 arcn 
+		cleanup
+		stroke
+		grestore
+	    end} def
+
+% no cleanup
+/nodecircletrans {nodes exch get begin
+		gsave
+		newpath
+		w 2 div x add h 2 div y add 
+		w w mul h h mul add sqrt 2 div 4 -1 roll add
+		360 0 arcn 
+		stroke
+		grestore
+	    end} def
+
+% nodename nodeoval -
+/nodeoval {nodes exch get begin
+	gsave
+	newpath
+	x 2 sub y 2 sub moveto 
+	h 4 add w 4 add dooval
+	cleanup
+	stroke
+	grestore
+	end } def
+
+%  ratio depth nodename testnodeoval -
+%  ratio should be between 0 and 1
+/testnodeoval {nodes exch get begin
+	gsave
+	newpath
+        h h mul w w mul add sqrt div dup dup dup
+        w mul neg x add exch 
+        h mul neg y add 
+        moveto
+	dup
+        h mul 2 mul h add exch
+        w mul 2 mul w add  
+	testdooval
+	stroke
+	grestore
+	end } def
+
+
+/cleanup{gsave 
+	x y moveto
+	h nodemargin sub .5 add w nodemargin sub .5 add doccbox
+	1 setgray fill grestore
+}def
+
+/boxdict 4 dict def
+boxdict /mtrx matrix put
+
+/dobox{boxdict begin
+	/w exch def
+	/h exch def
+	/savematrix mtrx currentmatrix def
+	0 h rlineto
+        w 0 rlineto
+        0 h neg rlineto
+        closepath
+	savematrix setmatrix
+        end} def
+
+% do box in counterclockwise fashion
+/doccbox{boxdict begin
+	/w exch def
+	/h exch def
+	/savematrix mtrx currentmatrix def
+	w 0 rlineto
+	0 h rlineto
+	w neg 0 rlineto
+	closepath
+	savematrix setmatrix
+	end} def
+
+
+/ovaldict 6 dict def
+ovaldict /mtrx matrix put
+
+% h w ovaldict -
+/dooval{ovaldict begin
+	/w exch def
+	/h exch def
+	/savematrix mtrx currentmatrix def
+	0 h 2 div rmoveto
+	0 h 2 div nodemargin sub
+	nodemargin h 2 div
+	w 2 div h 2 div
+	rcurveto
+	w 2 div nodemargin sub 0
+        w 2 div nodemargin neg 
+	w 2 div h 2 div neg
+	rcurveto
+	0 h 2 div neg nodemargin add 
+	nodemargin neg h 2 div neg
+	w 2 div neg h 2 div neg
+	rcurveto
+	w 2 div neg nodemargin add 0
+	w 2 div neg nodemargin
+	w 2 div neg h 2 div 
+	rcurveto
+	savematrix setmatrix
+	end} def
+
+% give height and width of a box and the lower left hand point
+% produce a curve that will enclose the box.
+% initial point already defined
+% ratio h w testdooval -
+/testdooval{ovaldict begin
+	/w exch def
+	/h exch def
+	/r exch def
+	h 2 div neg r mul dup 
+        h 2 div dup 
+        r mul 3 1 roll 
+        2 r sub mul
+	0 h
+	rcurveto
+	w 2 div dup
+        r mul exch
+        2 r sub mul 
+        w 2 div r mul dup 3 1 roll
+        w 0
+	rcurveto
+	h 2 div r mul dup
+        h 2 div neg dup
+        r mul 3 1 roll
+        2 r sub mul
+        0 h neg
+	rcurveto
+        w 2 div neg dup
+        r mul exch
+        2 r sub mul 
+        w 2 div neg r mul dup 3 1 roll
+        w neg 0
+	rcurveto
+	end} def
+
+end % of treedict
+
+end % of TeXdict
+% gsave