summaryrefslogtreecommitdiff
path: root/info/maketexwork/ex-06-07
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/maketexwork/ex-06-07
Initial commit
Diffstat (limited to 'info/maketexwork/ex-06-07')
-rw-r--r--info/maketexwork/ex-06-0759
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