1 files changed, 59 insertions, 0 deletions
diff --git a/info/maketexwork/ex-06-07 b/info/maketexwork/ex-06-07
new file mode 100644
index 0000000000..e203af7fad
--- /dev/null
+++ b/info/maketexwork/ex-06-07
@@ -0,0 +1,59 @@
+\Draw   \Ragged(4)    %%%%%%%%% tree %%%%%%%%%%%
+
+\Define\DotsToLoc(1){   \MarkLoc(x)  
+   \CSeg\DoLine(x,#1)(5){
+          \MoveF(-3)\LineF(1)} }
+\PictNode(3){     \IF \EqText(,#2) \THEN \Text(--#1--) \ELSE
+  \ThreeDim(#1,#2,#3)    
+     \MarkPLoc(1)  \Line(50,0,0)   \MarkPLoc(2) \Line(0,50,0)
+     \MarkPLoc(3)  \Line(-50,0,0)  \MarkPLoc(4) \Line(0,-50,0)
+     \Move(0,0,50)  \MarkPLoc(1') 
+     \Move(50,0,0)  \MarkPLoc(2')  {\Line(0,0,-50)}
+     \Line(0,50,0)  \MarkPLoc(3')  {\Line(0,0,-50)}
+     \Line(-50,0,0) \MarkPLoc(4')  {\Line(0,0,-50)}
+     \Do(1,4){  \Do(1,4){
+        \MarkPLoc(p\Val\I) \I+1; \Move(0,0,-16.66666)
+        } \Move(16.66666,0,66.66666)  }
+     \TwoDim
+        \MoveToLL(3,4)(4',1') \DotsToLoc(1') \DotsToLoc(1)
+        \MoveToLL(2,3)(1',2') \DotsToLoc(1') 
+        \PaintQuad(p0,p1,p5,p4)      \PaintQuad(p2,p3,p7,p6)
+        \PaintQuad(p5,p6,p10,p9)     \PaintQuad(p8,p9,p13,p12)
+        \PaintQuad(p10,p11,p15,p14)
+        \MoveToLoc(1)  \CSeg[0.5]\Move(1,2) \Move(0,-5)
+        \EntryExit(0,1,0,0)  \Text(--(#1,#2,#3)--)
+     \EndTwoDim
+  \EndThreeDim      \FI   }
+
+\Define\MyEdge(2){\EdgeTo(#1,#2,0,1)} \TreeAlign(V,0,-1)(0,0,0)
+\TreeSpec(o,\OvalNode&r,\RectNode)()(\MyEdge)
+\TreeSpace(C,10,15)     \AdjTree(A,0..0,0,-201,201,0 )  
+\Tree()(
+  3,o,perspective~~projections~~eye~at~{(x,y,z)},, //
+  2,r,125,100,-100 & 0,r,75,75,-100 & 0,r,125,75,-100 //
+  0,r,125,125,-200 & 0,r,75,75,-200 //)
+
+%%%%%%%%% graph %%%%%%%%%%%
+
+\MoveToNode(2..1,2.5,-1)   \MarkLoc(1)  
+\MoveToNode(1..2,1,-1.5)   \MarkLoc(2)  
+\CSeg\Scale(1,2)   \Scale(0.16666,0.14286)
+
+\Axis(1,2)(E3,&&&&&&&)
+\Axis(1,2)(S3,0&1&2&3&4&5&6)
+    \MoveToLoc(1)
+\Table\x{ -1,2 & 0,5 & 4,-3 & -1,-4 & -2,0 }
+   \PenSize(1.5pt)  \Move(1,0)  \x(0,99){\Line}  
+\Table\x{ 3,3 & 1,-5 & -1,-2 & -3,4 }
+                    \Move(1,4)  \x(0,99){\Line}        
+
+%%%%%%%%% DraTeX+AlDraTeX logos %%%%%%%%%%%
+
+\it \TextNode(1){\Text(--#1--)}
+\MoveToNode(0..0,0,1) \Units(1pt,1pt) \Move(-60,0)
+\EntryExit(1,1,0,0)  \Node(d)(--Dra\TeX--)
+\MoveToNode(2..0,-1,1)  \Move(0,40) \EntryExit(-1,-1,0,0)
+\Node(a)(--Al~~Dra~~\TeX--)      \PenSize(0.75pt)
+\ArrowHeads(2) \CurvedEdgeAt(d,-1,-1,a,0,1)(225,1.1,70,1.3)
+
+\EndDraw