Updated function for feature tree generation, switched to svg
This commit is contained in:
Phuntsok Drak-pa
parent
0e7e334dab
commit
d829cf3879
|
|
@ -25,6 +25,65 @@
|
|||
#+HTML_HEAD: <meta name="twitter:site" content="@phundrak" />
|
||||
#+HTML_HEAD: <meta name="twitter:creator" content="@phundrak" />
|
||||
|
||||
# ### CODE #####################################################################
|
||||
|
||||
#+NAME: process-tree
|
||||
#+BEGIN_SRC scheme :noweb yes :exports none :eval yes
|
||||
(define (left-child tree)
|
||||
(cadr tree))
|
||||
(define (left-child-name tree)
|
||||
(car (left-child tree)))
|
||||
(define (right-child tree)
|
||||
(caddr tree))
|
||||
(define (right-child-name tree)
|
||||
(car (right-child tree)))
|
||||
(define (cur-name tree)
|
||||
(car tree))
|
||||
|
||||
(define (to-string phon-tree node-nbr child next-nbr)
|
||||
(let ((this-name (string-append "node"
|
||||
(number->string node-nbr)))
|
||||
(child-name (string-append "node"
|
||||
(number->string next-nbr))))
|
||||
(string-append child-name
|
||||
"[label=\""
|
||||
(cur-name child)
|
||||
"\"];"
|
||||
this-name
|
||||
"--"
|
||||
child-name
|
||||
";"
|
||||
(to-dot-main child next-nbr))))
|
||||
|
||||
(define (to-dot-main phon-tree node-nbr)
|
||||
(let* ((this-name (string-append (number->string node-nbr)
|
||||
"node")))
|
||||
(if (null? (left-child phon-tree))
|
||||
""
|
||||
(let ((x (* 2 (+ 1 node-nbr)))
|
||||
(y (* 2 (+ 2 node-nbr))))
|
||||
(string-append (to-string phon-tree node-nbr
|
||||
(left-child phon-tree)
|
||||
x)
|
||||
(to-string phon-tree node-nbr
|
||||
(right-child phon-tree)
|
||||
y))))))
|
||||
|
||||
(define (to-dot phon-tree)
|
||||
(if (null? phon-tree)
|
||||
""
|
||||
(string-append
|
||||
"graph{"
|
||||
"node[shape=plaintext];"
|
||||
"graph[bgcolor=\"transparent\"];"
|
||||
"node1[label=\""
|
||||
(cur-name phon-tree)
|
||||
"\"];"
|
||||
|
||||
(to-dot-main phon-tree 1)
|
||||
"}")))
|
||||
#+END_SRC
|
||||
|
||||
# ### MACROS ###################################################################
|
||||
#+MACRO: newline @@latex:\hspace{0pt}\\@@ @@html:<br>@@
|
||||
#+MACRO: newpage @@latex:\newpage@@
|
||||
|
|
|
|||
Binary file not shown.
|
Before Width: | Height: | Size: 17 KiB |
|
|
@ -0,0 +1,237 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
|
||||
"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
|
||||
<!-- Generated by graphviz version 2.40.1 (0)
|
||||
-->
|
||||
<!-- Title: %3 Pages: 1 -->
|
||||
<svg width="842pt" height="332pt"
|
||||
viewBox="0.00 0.00 841.50 332.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 328)">
|
||||
<title>%3</title>
|
||||
<!-- node1 -->
|
||||
<g id="node1" class="node">
|
||||
<title>node1</title>
|
||||
<text text-anchor="middle" x="302.5" y="-302.3" font-family="Times,serif" font-size="14.00" fill="#000000">[cons]</text>
|
||||
</g>
|
||||
<!-- node4 -->
|
||||
<g id="node2" class="node">
|
||||
<title>node4</title>
|
||||
<text text-anchor="middle" x="225.5" y="-230.3" font-family="Times,serif" font-size="14.00" fill="#000000">[son]</text>
|
||||
</g>
|
||||
<!-- node1--node4 -->
|
||||
<g id="edge1" class="edge">
|
||||
<title>node1--node4</title>
|
||||
<path fill="none" stroke="#000000" d="M283.0696,-287.8314C271.397,-276.9167 256.5956,-263.0764 244.9241,-252.1628"/>
|
||||
</g>
|
||||
<!-- node6 -->
|
||||
<g id="node9" class="node">
|
||||
<title>node6</title>
|
||||
<text text-anchor="middle" x="385.5" y="-230.3" font-family="Times,serif" font-size="14.00" fill="#000000">{son}</text>
|
||||
</g>
|
||||
<!-- node1--node6 -->
|
||||
<g id="edge8" class="edge">
|
||||
<title>node1--node6</title>
|
||||
<path fill="none" stroke="#000000" d="M323.4444,-287.8314C336.0266,-276.9167 351.9813,-263.0764 364.5623,-252.1628"/>
|
||||
</g>
|
||||
<!-- node10 -->
|
||||
<g id="node3" class="node">
|
||||
<title>node10</title>
|
||||
<text text-anchor="middle" x="110.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">[dor]</text>
|
||||
</g>
|
||||
<!-- node4--node10 -->
|
||||
<g id="edge2" class="edge">
|
||||
<title>node4--node10</title>
|
||||
<path fill="none" stroke="#000000" d="M198.2466,-216.937C179.9147,-205.4596 155.8487,-190.3922 137.5578,-178.9405"/>
|
||||
</g>
|
||||
<!-- node12 -->
|
||||
<g id="node6" class="node">
|
||||
<title>node12</title>
|
||||
<text text-anchor="middle" x="225.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">{dor}</text>
|
||||
</g>
|
||||
<!-- node4--node12 -->
|
||||
<g id="edge5" class="edge">
|
||||
<title>node4--node12</title>
|
||||
<path fill="none" stroke="#000000" d="M225.5,-215.8314C225.5,-205 225.5,-191.2876 225.5,-180.4133"/>
|
||||
</g>
|
||||
<!-- node22 -->
|
||||
<g id="node4" class="node">
|
||||
<title>node22</title>
|
||||
<text text-anchor="middle" x="29.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node10--node22 -->
|
||||
<g id="edge3" class="edge">
|
||||
<title>node10--node22</title>
|
||||
<path fill="none" stroke="#000000" d="M90.0603,-143.8314C77.7813,-132.9167 62.211,-119.0764 49.9332,-108.1628"/>
|
||||
</g>
|
||||
<!-- node24 -->
|
||||
<g id="node5" class="node">
|
||||
<title>node24</title>
|
||||
<text text-anchor="middle" x="110.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node10--node24 -->
|
||||
<g id="edge4" class="edge">
|
||||
<title>node10--node24</title>
|
||||
<path fill="none" stroke="#000000" d="M110.5,-143.8314C110.5,-133 110.5,-119.2876 110.5,-108.4133"/>
|
||||
</g>
|
||||
<!-- node26 -->
|
||||
<g id="node7" class="node">
|
||||
<title>node26</title>
|
||||
<text text-anchor="middle" x="188.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[cor]</text>
|
||||
</g>
|
||||
<!-- node12--node26 -->
|
||||
<g id="edge6" class="edge">
|
||||
<title>node12--node26</title>
|
||||
<path fill="none" stroke="#000000" d="M216.1633,-143.8314C210.5972,-133 203.5506,-119.2876 197.9624,-108.4133"/>
|
||||
</g>
|
||||
<!-- node28 -->
|
||||
<g id="node8" class="node">
|
||||
<title>node28</title>
|
||||
<text text-anchor="middle" x="262.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{cor}</text>
|
||||
</g>
|
||||
<!-- node12--node28 -->
|
||||
<g id="edge7" class="edge">
|
||||
<title>node12--node28</title>
|
||||
<path fill="none" stroke="#000000" d="M234.8367,-143.8314C240.4028,-133 247.4494,-119.2876 253.0376,-108.4133"/>
|
||||
</g>
|
||||
<!-- node14 -->
|
||||
<g id="node10" class="node">
|
||||
<title>node14</title>
|
||||
<text text-anchor="middle" x="385.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">[dor]</text>
|
||||
</g>
|
||||
<!-- node6--node14 -->
|
||||
<g id="edge9" class="edge">
|
||||
<title>node6--node14</title>
|
||||
<path fill="none" stroke="#000000" d="M385.5,-215.8314C385.5,-205 385.5,-191.2876 385.5,-180.4133"/>
|
||||
</g>
|
||||
<!-- node16 -->
|
||||
<g id="node17" class="node">
|
||||
<title>node16</title>
|
||||
<text text-anchor="middle" x="612.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">{dor}</text>
|
||||
</g>
|
||||
<!-- node6--node16 -->
|
||||
<g id="edge16" class="edge">
|
||||
<title>node6--node16</title>
|
||||
<path fill="none" stroke="#000000" d="M415.1763,-224.5873C458.6807,-210.7885 539.3079,-185.2151 582.8164,-171.4151"/>
|
||||
</g>
|
||||
<!-- node30 -->
|
||||
<g id="node11" class="node">
|
||||
<title>node30</title>
|
||||
<text text-anchor="middle" x="342.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[voice]</text>
|
||||
</g>
|
||||
<!-- node14--node30 -->
|
||||
<g id="edge10" class="edge">
|
||||
<title>node14--node30</title>
|
||||
<path fill="none" stroke="#000000" d="M374.6493,-143.8314C368.1806,-133 359.9912,-119.2876 353.4968,-108.4133"/>
|
||||
</g>
|
||||
<!-- node32 -->
|
||||
<g id="node14" class="node">
|
||||
<title>node32</title>
|
||||
<text text-anchor="middle" x="429.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{voice}</text>
|
||||
</g>
|
||||
<!-- node14--node32 -->
|
||||
<g id="edge13" class="edge">
|
||||
<title>node14--node32</title>
|
||||
<path fill="none" stroke="#000000" d="M396.6031,-143.8314C403.2222,-133 411.602,-119.2876 418.2474,-108.4133"/>
|
||||
</g>
|
||||
<!-- node62 -->
|
||||
<g id="node12" class="node">
|
||||
<title>node62</title>
|
||||
<text text-anchor="middle" x="261.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node30--node62 -->
|
||||
<g id="edge11" class="edge">
|
||||
<title>node30--node62</title>
|
||||
<path fill="none" stroke="#000000" d="M322.0603,-71.8314C309.7813,-60.9167 294.211,-47.0764 281.9332,-36.1628"/>
|
||||
</g>
|
||||
<!-- node64 -->
|
||||
<g id="node13" class="node">
|
||||
<title>node64</title>
|
||||
<text text-anchor="middle" x="342.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node30--node64 -->
|
||||
<g id="edge12" class="edge">
|
||||
<title>node30--node64</title>
|
||||
<path fill="none" stroke="#000000" d="M342.5,-71.8314C342.5,-61 342.5,-47.2876 342.5,-36.4133"/>
|
||||
</g>
|
||||
<!-- node66 -->
|
||||
<g id="node15" class="node">
|
||||
<title>node66</title>
|
||||
<text text-anchor="middle" x="423.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node32--node66 -->
|
||||
<g id="edge14" class="edge">
|
||||
<title>node32--node66</title>
|
||||
<path fill="none" stroke="#000000" d="M427.9859,-71.8314C427.0833,-61 425.9406,-47.2876 425.0344,-36.4133"/>
|
||||
</g>
|
||||
<!-- node68 -->
|
||||
<g id="node16" class="node">
|
||||
<title>node68</title>
|
||||
<text text-anchor="middle" x="504.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node32--node68 -->
|
||||
<g id="edge15" class="edge">
|
||||
<title>node32--node68</title>
|
||||
<path fill="none" stroke="#000000" d="M448.4257,-71.8314C459.7951,-60.9167 474.212,-47.0764 485.5804,-36.1628"/>
|
||||
</g>
|
||||
<!-- node34 -->
|
||||
<g id="node18" class="node">
|
||||
<title>node34</title>
|
||||
<text text-anchor="middle" x="612.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[voice]</text>
|
||||
</g>
|
||||
<!-- node16--node34 -->
|
||||
<g id="edge17" class="edge">
|
||||
<title>node16--node34</title>
|
||||
<path fill="none" stroke="#000000" d="M612.5,-143.8314C612.5,-133 612.5,-119.2876 612.5,-108.4133"/>
|
||||
</g>
|
||||
<!-- node36 -->
|
||||
<g id="node21" class="node">
|
||||
<title>node36</title>
|
||||
<text text-anchor="middle" x="730.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{voice}</text>
|
||||
</g>
|
||||
<!-- node16--node36 -->
|
||||
<g id="edge20" class="edge">
|
||||
<title>node16--node36</title>
|
||||
<path fill="none" stroke="#000000" d="M642.2764,-143.8314C660.1643,-132.9167 682.8469,-119.0764 700.7331,-108.1628"/>
|
||||
</g>
|
||||
<!-- node70 -->
|
||||
<g id="node19" class="node">
|
||||
<title>node70</title>
|
||||
<text text-anchor="middle" x="582.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[cor]</text>
|
||||
</g>
|
||||
<!-- node34--node70 -->
|
||||
<g id="edge18" class="edge">
|
||||
<title>node34--node70</title>
|
||||
<path fill="none" stroke="#000000" d="M604.9297,-71.8314C600.4167,-61 594.7032,-47.2876 590.1722,-36.4133"/>
|
||||
</g>
|
||||
<!-- node72 -->
|
||||
<g id="node20" class="node">
|
||||
<title>node72</title>
|
||||
<text text-anchor="middle" x="656.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{cor}</text>
|
||||
</g>
|
||||
<!-- node34--node72 -->
|
||||
<g id="edge19" class="edge">
|
||||
<title>node34--node72</title>
|
||||
<path fill="none" stroke="#000000" d="M623.6031,-71.8314C630.2222,-61 638.602,-47.2876 645.2474,-36.4133"/>
|
||||
</g>
|
||||
<!-- node74 -->
|
||||
<g id="node22" class="node">
|
||||
<title>node74</title>
|
||||
<text text-anchor="middle" x="730.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[cor]</text>
|
||||
</g>
|
||||
<!-- node36--node74 -->
|
||||
<g id="edge21" class="edge">
|
||||
<title>node36--node74</title>
|
||||
<path fill="none" stroke="#000000" d="M730.5,-71.8314C730.5,-61 730.5,-47.2876 730.5,-36.4133"/>
|
||||
</g>
|
||||
<!-- node76 -->
|
||||
<g id="node23" class="node">
|
||||
<title>node76</title>
|
||||
<text text-anchor="middle" x="804.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{cor}</text>
|
||||
</g>
|
||||
<!-- node36--node76 -->
|
||||
<g id="edge22" class="edge">
|
||||
<title>node36--node76</title>
|
||||
<path fill="none" stroke="#000000" d="M749.1733,-71.8314C760.3912,-60.9167 774.6159,-47.0764 785.8326,-36.1628"/>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 9.3 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 10 KiB |
|
|
@ -0,0 +1,157 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
|
||||
"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
|
||||
<!-- Generated by graphviz version 2.40.1 (0)
|
||||
-->
|
||||
<!-- Title: %3 Pages: 1 -->
|
||||
<svg width="638pt" height="260pt"
|
||||
viewBox="0.00 0.00 637.50 260.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 256)">
|
||||
<title>%3</title>
|
||||
<!-- node1 -->
|
||||
<g id="node1" class="node">
|
||||
<title>node1</title>
|
||||
<text text-anchor="middle" x="296.5" y="-230.3" font-family="Times,serif" font-size="14.00" fill="#000000">[vowel]</text>
|
||||
</g>
|
||||
<!-- node4 -->
|
||||
<g id="node2" class="node">
|
||||
<title>node4</title>
|
||||
<text text-anchor="middle" x="252.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">[back]</text>
|
||||
</g>
|
||||
<!-- node1--node4 -->
|
||||
<g id="edge1" class="edge">
|
||||
<title>node1--node4</title>
|
||||
<path fill="none" stroke="#000000" d="M285.3969,-215.8314C278.7778,-205 270.398,-191.2876 263.7526,-180.4133"/>
|
||||
</g>
|
||||
<!-- node6 -->
|
||||
<g id="node9" class="node">
|
||||
<title>node6</title>
|
||||
<text text-anchor="middle" x="373.5" y="-158.3" font-family="Times,serif" font-size="14.00" fill="#000000">{back}</text>
|
||||
</g>
|
||||
<!-- node1--node6 -->
|
||||
<g id="edge8" class="edge">
|
||||
<title>node1--node6</title>
|
||||
<path fill="none" stroke="#000000" d="M315.9304,-215.8314C327.603,-204.9167 342.4044,-191.0764 354.0759,-180.1628"/>
|
||||
</g>
|
||||
<!-- node10 -->
|
||||
<g id="node3" class="node">
|
||||
<title>node10</title>
|
||||
<text text-anchor="middle" x="110.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[tense]</text>
|
||||
</g>
|
||||
<!-- node4--node10 -->
|
||||
<g id="edge2" class="edge">
|
||||
<title>node4--node10</title>
|
||||
<path fill="none" stroke="#000000" d="M221.3375,-146.1993C198.3148,-134.5258 167.0294,-118.6628 143.5673,-106.7665"/>
|
||||
</g>
|
||||
<!-- node12 -->
|
||||
<g id="node6" class="node">
|
||||
<title>node12</title>
|
||||
<text text-anchor="middle" x="252.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{tense}</text>
|
||||
</g>
|
||||
<!-- node4--node12 -->
|
||||
<g id="edge5" class="edge">
|
||||
<title>node4--node12</title>
|
||||
<path fill="none" stroke="#000000" d="M252.5,-143.8314C252.5,-133 252.5,-119.2876 252.5,-108.4133"/>
|
||||
</g>
|
||||
<!-- node22 -->
|
||||
<g id="node4" class="node">
|
||||
<title>node22</title>
|
||||
<text text-anchor="middle" x="29.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node10--node22 -->
|
||||
<g id="edge3" class="edge">
|
||||
<title>node10--node22</title>
|
||||
<path fill="none" stroke="#000000" d="M90.0603,-71.8314C77.7813,-60.9167 62.211,-47.0764 49.9332,-36.1628"/>
|
||||
</g>
|
||||
<!-- node24 -->
|
||||
<g id="node5" class="node">
|
||||
<title>node24</title>
|
||||
<text text-anchor="middle" x="110.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node10--node24 -->
|
||||
<g id="edge4" class="edge">
|
||||
<title>node10--node24</title>
|
||||
<path fill="none" stroke="#000000" d="M110.5,-71.8314C110.5,-61 110.5,-47.2876 110.5,-36.4133"/>
|
||||
</g>
|
||||
<!-- node26 -->
|
||||
<g id="node7" class="node">
|
||||
<title>node26</title>
|
||||
<text text-anchor="middle" x="191.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node12--node26 -->
|
||||
<g id="edge6" class="edge">
|
||||
<title>node12--node26</title>
|
||||
<path fill="none" stroke="#000000" d="M237.1071,-71.8314C227.9306,-61 216.3131,-47.2876 207.1001,-36.4133"/>
|
||||
</g>
|
||||
<!-- node28 -->
|
||||
<g id="node8" class="node">
|
||||
<title>node28</title>
|
||||
<text text-anchor="middle" x="272.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node12--node28 -->
|
||||
<g id="edge7" class="edge">
|
||||
<title>node12--node28</title>
|
||||
<path fill="none" stroke="#000000" d="M257.5468,-71.8314C260.5555,-61 264.3646,-47.2876 267.3852,-36.4133"/>
|
||||
</g>
|
||||
<!-- node14 -->
|
||||
<g id="node10" class="node">
|
||||
<title>node14</title>
|
||||
<text text-anchor="middle" x="373.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">[tense]</text>
|
||||
</g>
|
||||
<!-- node6--node14 -->
|
||||
<g id="edge9" class="edge">
|
||||
<title>node6--node14</title>
|
||||
<path fill="none" stroke="#000000" d="M373.5,-143.8314C373.5,-133 373.5,-119.2876 373.5,-108.4133"/>
|
||||
</g>
|
||||
<!-- node16 -->
|
||||
<g id="node13" class="node">
|
||||
<title>node16</title>
|
||||
<text text-anchor="middle" x="515.5" y="-86.3" font-family="Times,serif" font-size="14.00" fill="#000000">{tense}</text>
|
||||
</g>
|
||||
<!-- node6--node16 -->
|
||||
<g id="edge12" class="edge">
|
||||
<title>node6--node16</title>
|
||||
<path fill="none" stroke="#000000" d="M408.2371,-144.3868C429.9134,-133.396 457.7539,-119.2797 479.6387,-108.1832"/>
|
||||
</g>
|
||||
<!-- node30 -->
|
||||
<g id="node11" class="node">
|
||||
<title>node30</title>
|
||||
<text text-anchor="middle" x="353.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node14--node30 -->
|
||||
<g id="edge10" class="edge">
|
||||
<title>node14--node30</title>
|
||||
<path fill="none" stroke="#000000" d="M368.4532,-71.8314C365.4445,-61 361.6354,-47.2876 358.6148,-36.4133"/>
|
||||
</g>
|
||||
<!-- node32 -->
|
||||
<g id="node12" class="node">
|
||||
<title>node32</title>
|
||||
<text text-anchor="middle" x="434.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node14--node32 -->
|
||||
<g id="edge11" class="edge">
|
||||
<title>node14--node32</title>
|
||||
<path fill="none" stroke="#000000" d="M388.8929,-71.8314C398.0694,-61 409.6869,-47.2876 418.8999,-36.4133"/>
|
||||
</g>
|
||||
<!-- node34 -->
|
||||
<g id="node14" class="node">
|
||||
<title>node34</title>
|
||||
<text text-anchor="middle" x="515.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">[high]</text>
|
||||
</g>
|
||||
<!-- node16--node34 -->
|
||||
<g id="edge13" class="edge">
|
||||
<title>node16--node34</title>
|
||||
<path fill="none" stroke="#000000" d="M515.5,-71.8314C515.5,-61 515.5,-47.2876 515.5,-36.4133"/>
|
||||
</g>
|
||||
<!-- node36 -->
|
||||
<g id="node15" class="node">
|
||||
<title>node36</title>
|
||||
<text text-anchor="middle" x="596.5" y="-14.3" font-family="Times,serif" font-size="14.00" fill="#000000">{high}</text>
|
||||
</g>
|
||||
<!-- node16--node36 -->
|
||||
<g id="edge14" class="edge">
|
||||
<title>node16--node36</title>
|
||||
<path fill="none" stroke="#000000" d="M535.9397,-71.8314C548.2187,-60.9167 563.789,-47.0764 576.0668,-36.1628"/>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 6.2 KiB |
114
nyqy.org
114
nyqy.org
|
|
@ -7,65 +7,61 @@
|
|||
#+LATEX_HEADER: \renewcommand{\arraystretch}{1.2}
|
||||
#+OPTIONS: H:4 toc:nil ^:{}
|
||||
#+OPTIONS: auto-id:t
|
||||
#+NAME: process-tree
|
||||
#+BEGIN_SRC scheme :noweb yes :exports none :eval yes
|
||||
(define (left-child tree)
|
||||
(cadr tree))
|
||||
(define (left-child-name tree)
|
||||
(car (left-child tree)))
|
||||
(define (right-child tree)
|
||||
(caddr tree))
|
||||
(define (right-child-name tree)
|
||||
(car (right-child tree)))
|
||||
(define (cur-name tree)
|
||||
(car tree))
|
||||
|
||||
(define (to-string phon-tree node-nbr child next-nbr)
|
||||
(let ((this-name (string-append "node"
|
||||
(number->string node-nbr)))
|
||||
(child-name (string-append "node"
|
||||
(number->string next-nbr))))
|
||||
(string-append child-name
|
||||
"[label=\""
|
||||
(cur-name child)
|
||||
"\"];"
|
||||
this-name
|
||||
"--"
|
||||
child-name
|
||||
";"
|
||||
(to-dot-main child next-nbr))))
|
||||
|
||||
(define (to-dot-main phon-tree node-nbr)
|
||||
(let* ((this-name (string-append (number->string node-nbr)
|
||||
"node")))
|
||||
(if (null? (left-child phon-tree))
|
||||
""
|
||||
(let ((x (* 2 (+ 1 node-nbr)))
|
||||
(y (* 2 (+ 2 node-nbr))))
|
||||
(string-append (to-string phon-tree node-nbr
|
||||
(left-child phon-tree)
|
||||
x)
|
||||
(to-string phon-tree node-nbr
|
||||
(right-child phon-tree)
|
||||
y))))))
|
||||
|
||||
(define (to-dot phon-tree)
|
||||
(if (null? phon-tree)
|
||||
""
|
||||
(string-append
|
||||
"graph{"
|
||||
"node[shape=plaintext];"
|
||||
"graph[bgcolor=\"transparent\"];"
|
||||
"node1[label=\""
|
||||
(cur-name phon-tree)
|
||||
"\"];"
|
||||
|
||||
(to-dot-main phon-tree 1)
|
||||
"}")))
|
||||
#+END_SRC
|
||||
{{{newpage}}}
|
||||
#+TOC: headlines
|
||||
{{{newpage}}}
|
||||
# To be used at https://jasontank.net/wordgen.html
|
||||
#+NAME: wordgen-backup
|
||||
#+BEGIN_SRC text :exports none
|
||||
--CATEGORIES--
|
||||
A=qgcjňmnszpbw
|
||||
B=qgcjňmnszpb
|
||||
V=öëoe
|
||||
W=üuyi
|
||||
C=jczs
|
||||
P=mbpgq
|
||||
--REWRITE--
|
||||
|
||||
--MONO--
|
||||
AV
|
||||
BW
|
||||
AVB
|
||||
BWB
|
||||
VB
|
||||
WB
|
||||
AVCP
|
||||
BWCP
|
||||
--MID--
|
||||
AV
|
||||
BW
|
||||
CPV
|
||||
CPW
|
||||
--INIT--
|
||||
AV
|
||||
BW
|
||||
--FINAL--
|
||||
AV
|
||||
BW
|
||||
CPV
|
||||
CPW
|
||||
AVB
|
||||
BWB
|
||||
CPVB
|
||||
CPWB
|
||||
AVCP
|
||||
BWCP
|
||||
CPVCP
|
||||
CPWCP
|
||||
|
||||
--FLAGS--
|
||||
0 0 monoMostly dropoffSlow
|
||||
--ADVANCED--
|
||||
10
|
||||
150
|
||||
750
|
||||
30
|
||||
||
|
||||
#+END_SRC
|
||||
|
||||
* Table des matières :TOC_5_gh:noexport:
|
||||
:PROPERTIES:
|
||||
|
|
@ -399,7 +395,7 @@
|
|||
(to-dot cons-tree)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC dot :file img/nyqy_consonant_feature_tree.png :var input=cons-tree :exports results :eval yes
|
||||
#+BEGIN_SRC dot :file img/nyqy_consonant_feature_tree.svg :var input=cons-tree :exports results :eval yes
|
||||
$input
|
||||
#+END_SRC
|
||||
#+NAME: arbre:cons
|
||||
|
|
@ -418,7 +414,7 @@
|
|||
|
||||
#+NAME: table:cons:ipa
|
||||
#+CAPTION: Consonnes du Ňyqy (IPA)
|
||||
| <r> | <c> | <c> | <c> | <c> | <c> | <c> |
|
||||
| <r5> | <c5> | <c10> | <c5> | <c> | <c> | <c> |
|
||||
| / | < | < | < | < | < | < |
|
||||
| | bilablial | alvéolaire | labial-velaire | palatal | uvulaire | pharygal |
|
||||
|---------------+-----------+------------+----------------+---------+----------+----------|
|
||||
|
|
@ -504,7 +500,7 @@
|
|||
(to-dot vowels-tree)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC dot :file img/nyqy_vowel_feature_tree.png :var input=vow-tree :exports results :eval yes
|
||||
#+BEGIN_SRC dot :file img/nyqy_vowel_feature_tree.svg :var input=vow-tree :exports results :eval yes
|
||||
$input
|
||||
#+END_SRC
|
||||
#+NAME: arbre:vowels
|
||||
|
|
|
|||
Reference in New Issue