summaryrefslogtreecommitdiff
path: root/info/maketexwork/ex-06-07
blob: e203af7fad759c87ecd961b0bab9737f9d46f150 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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