debinst/homepage/html/noeuds.mf.html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>noeuds.mf</title>
<meta name="Generator" content="Vim/8.1">
<meta name="plugin-version" content="vim8.1_v1">
<meta name="syntax" content="mf">
<meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy=">
<meta name="colorscheme" content="default">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #ffffff; background-color: #000000; }
body { font-family: monospace; color: #ffffff; background-color: #000000; }
* { font-size: 1em; }
.Constant { color: #ff6060; }
.Identifier { color: #00ffff; }
.Statement { color: #ffff00; }
.Comment { color: #8080ff; }
-->
</style>
</head>
<body>
<pre id='vimCodeElement'>
<span class="Comment">% ---------------------------------------------------------------------------- %</span>
<span class="Comment">%% \file noeuds.mf</span>
<span class="Comment">%% \author Sebastien Beaugrand</span>
<span class="Comment">%% \sa <a href="http://beaugrand.chez.com/">http://beaugrand.chez.com/</a></span>
<span class="Comment">%% \copyright CeCILL 2.1 Free Software license</span>
<span class="Comment">% ---------------------------------------------------------------------------- %</span>
<span class="Identifier">font_identifier</span> <span class="Constant">&quot;noeuds&quot;</span>;
<span class="Identifier">font_size</span> <span class="Constant">36pt#</span>;
<span class="Identifier">font_normal_space</span> <span class="Constant">18pt#</span>;
ht#:=<span class="Constant">36pt#</span>;
bs#:=<span class="Constant">0.4pt#</span>;

<span class="Identifier">mode_setup</span>;

<span class="Identifier">define_pixels</span>(ht);
<span class="Identifier">define_blacker_pixels</span>(bs);

<span class="Statement">def</span> trb(<span class="Statement">expr</span> a, u, v, aul, adl, aup, adp, lu, ld, aur, adr) =
  <span class="Identifier">z</span><span class="Constant">1</span>=u <span class="Identifier">rotatedaround</span>((<span class="Constant">0.5</span><span class="Identifier">w</span>, <span class="Constant">0.5</span>ht), a);
  <span class="Identifier">z</span><span class="Constant">2</span>=v <span class="Identifier">rotatedaround</span>((<span class="Constant">0.5</span><span class="Identifier">w</span>, <span class="Constant">0.5</span>ht), a);
  <span class="Identifier">penpos</span><span class="Constant">1</span>(lu, aup+a);
  <span class="Identifier">penpos</span><span class="Constant">2</span>(ld, adp+a);
  <span class="Identifier">unfill</span> <span class="Identifier">z</span><span class="Constant">1</span>r{<span class="Identifier">dir</span> (aur+a+<span class="Constant">90</span>)}..{<span class="Identifier">dir</span> (adr+a+<span class="Constant">90</span>)}<span class="Identifier">z</span><span class="Constant">2</span>r--
         <span class="Identifier">z</span><span class="Constant">2</span>l{<span class="Identifier">dir</span> (adl+a<span class="Constant">-90</span>)}..{<span class="Identifier">dir</span> (aul+a<span class="Constant">-90</span>)}<span class="Identifier">z</span><span class="Constant">1</span>l--<span class="Statement">cycle</span>;
  <span class="Identifier">cullit</span>;
  <span class="Identifier">draw</span>   <span class="Identifier">z</span><span class="Constant">1</span>r{<span class="Identifier">dir</span> (aur+a+<span class="Constant">90</span>)}..{<span class="Identifier">dir</span> (adr+a+<span class="Constant">90</span>)}<span class="Identifier">z</span><span class="Constant">2</span>r;
  <span class="Identifier">draw</span>   <span class="Identifier">z</span><span class="Constant">2</span>l{<span class="Identifier">dir</span> (adl+a<span class="Constant">-90</span>)}..{<span class="Identifier">dir</span> (aul+a<span class="Constant">-90</span>)}<span class="Identifier">z</span><span class="Constant">1</span>l;
  <span class="Identifier">clearxy</span>;
<span class="Statement">enddef</span>;

<span class="Statement">def</span> tra(<span class="Statement">expr</span> a, u, v, aul, adl, aup, adp, lu, ld) =
    trb(     a, u, v, aul, adl, aup, adp, lu, ld, aul, adl);
<span class="Statement">enddef</span>;

<span class="Statement">def</span> noeud(<span class="Statement">expr</span> <span class="Statement">angle</span>) =
<span class="Identifier">pickup</span> <span class="Statement">pencircle</span> <span class="Statement">scaled</span> bs;

p<span class="Constant">01</span><span class="Identifier">x</span>:=<span class="Constant">5</span><span class="Identifier">h</span>/<span class="Constant">6</span>+<span class="Identifier">h</span>/<span class="Constant">72</span>; p<span class="Constant">01</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">18</span>;        a<span class="Constant">01</span>p:=<span class="Constant">195</span>; a<span class="Constant">01</span>t:=<span class="Constant">120</span>;
p<span class="Constant">02</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">2</span>;       p<span class="Constant">02</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-(<span class="Identifier">h</span>/<span class="Constant">4</span>+<span class="Identifier">h</span>/<span class="Constant">90</span>);  a<span class="Constant">02</span>p:=<span class="Constant">100</span>; a<span class="Constant">02</span>t:=<span class="Constant">100</span>;
p<span class="Constant">03</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">3</span>;       p<span class="Constant">03</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-(<span class="Identifier">h</span>/<span class="Constant">4</span>+<span class="Identifier">h</span>/<span class="Constant">60</span>);  a<span class="Constant">03</span>p:=<span class="Constant">90</span>;  a<span class="Constant">03</span>t:=<span class="Constant">90</span>;
p<span class="Constant">04</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">6</span>;       p<span class="Constant">04</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">4</span>;         a<span class="Constant">04</span>p:=<span class="Constant">70</span>;  a<span class="Constant">04</span>t:=<span class="Constant">70</span>;
p<span class="Constant">05</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">24</span>;      p<span class="Constant">05</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">12</span>;        a<span class="Constant">05</span>p:=<span class="Constant">0</span>;   a<span class="Constant">05</span>t:=<span class="Constant">0</span>;
p<span class="Constant">06</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">24</span>;      p<span class="Constant">06</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">24</span>;        a<span class="Constant">06</span>p:=<span class="Constant">-45</span>; a<span class="Constant">06</span>t:=<span class="Constant">0</span>;

p<span class="Constant">11</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">06</span><span class="Identifier">y</span>; p<span class="Constant">11</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">06</span><span class="Identifier">x</span>; a<span class="Constant">11</span>p:=-a<span class="Constant">06</span>p<span class="Constant">-90</span>; a<span class="Constant">11</span>t:=-a<span class="Constant">06</span>t<span class="Constant">-90</span>;
p<span class="Constant">12</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">05</span><span class="Identifier">y</span>; p<span class="Constant">12</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">05</span><span class="Identifier">x</span>; a<span class="Constant">12</span>p:=-a<span class="Constant">05</span>p<span class="Constant">-90</span>; a<span class="Constant">12</span>t:=-a<span class="Constant">05</span>t<span class="Constant">-90</span>;
p<span class="Constant">13</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">04</span><span class="Identifier">y</span>; p<span class="Constant">13</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">04</span><span class="Identifier">x</span>; a<span class="Constant">13</span>p:=-a<span class="Constant">04</span>p<span class="Constant">-90</span>; a<span class="Constant">13</span>t:=-a<span class="Constant">04</span>t<span class="Constant">-90</span>;
p<span class="Constant">14</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">03</span><span class="Identifier">y</span>; p<span class="Constant">14</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">03</span><span class="Identifier">x</span>; a<span class="Constant">14</span>p:=-a<span class="Constant">03</span>p<span class="Constant">-90</span>; a<span class="Constant">14</span>t:=-a<span class="Constant">03</span>t<span class="Constant">-90</span>;
p<span class="Constant">15</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">02</span><span class="Identifier">y</span>; p<span class="Constant">15</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">02</span><span class="Identifier">x</span>; a<span class="Constant">15</span>p:=-a<span class="Constant">02</span>p<span class="Constant">-90</span>; a<span class="Constant">15</span>t:=-a<span class="Constant">02</span>t<span class="Constant">-90</span>;
p<span class="Constant">16</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">01</span><span class="Identifier">y</span>; p<span class="Constant">16</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">01</span><span class="Identifier">x</span>; a<span class="Constant">16</span>p:=-a<span class="Constant">01</span>p<span class="Constant">-90</span>; a<span class="Constant">16</span>t:=-a<span class="Constant">01</span>t<span class="Constant">-90</span>;

p<span class="Constant">21</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">24</span>;       p<span class="Constant">21</span><span class="Identifier">y</span>:=<span class="Constant">5</span><span class="Identifier">h</span>/<span class="Constant">12</span>;        a<span class="Constant">21</span>p:=<span class="Constant">-5</span>;   a<span class="Constant">21</span>t:=a<span class="Constant">21</span>p;
p<span class="Constant">22</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">6</span>+<span class="Identifier">h</span>/<span class="Constant">36</span>;   p<span class="Constant">22</span><span class="Identifier">y</span>:=<span class="Constant">7</span><span class="Identifier">h</span>/<span class="Constant">12</span>;        a<span class="Constant">22</span>p:=<span class="Constant">-80</span>;  a<span class="Constant">22</span>t:=a<span class="Constant">22</span>p;
p<span class="Constant">23</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">3</span>+<span class="Identifier">h</span>/<span class="Constant">72</span>;   p<span class="Constant">23</span><span class="Identifier">y</span>:=<span class="Constant">7</span><span class="Identifier">h</span>/<span class="Constant">12</span>-<span class="Identifier">h</span>/<span class="Constant">144</span>;  a<span class="Constant">23</span>p:=<span class="Constant">-100</span>; a<span class="Constant">23</span>t:=a<span class="Constant">23</span>p;
p<span class="Constant">24</span><span class="Identifier">x</span>:=<span class="Constant">7</span><span class="Identifier">h</span>/<span class="Constant">12</span>;      p<span class="Constant">24</span><span class="Identifier">y</span>:=<span class="Constant">2</span><span class="Identifier">h</span>/<span class="Constant">3</span>;         a<span class="Constant">24</span>p:=<span class="Constant">-20</span>;  a<span class="Constant">24</span>t:=a<span class="Constant">24</span>p;
p<span class="Constant">25</span><span class="Identifier">x</span>:=<span class="Constant">7</span><span class="Identifier">h</span>/<span class="Constant">12</span>-<span class="Identifier">h</span>/<span class="Constant">36</span>; p<span class="Constant">25</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">6</span>+<span class="Identifier">h</span>/<span class="Constant">72</span>;   a<span class="Constant">25</span>p:=<span class="Constant">35</span>;   a<span class="Constant">25</span>t:=a<span class="Constant">25</span>p;
p<span class="Constant">26</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">3</span>;        p<span class="Constant">26</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-<span class="Identifier">h</span>/<span class="Constant">12</span>+<span class="Identifier">h</span>/<span class="Constant">72</span>;  a<span class="Constant">26</span>p:=<span class="Constant">95</span>;   a<span class="Constant">26</span>t:=a<span class="Constant">26</span>p;
p<span class="Constant">27</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>/<span class="Constant">6</span>-<span class="Identifier">h</span>/<span class="Constant">60</span>;   p<span class="Constant">27</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-(<span class="Identifier">h</span>/<span class="Constant">6</span>-<span class="Identifier">h</span>/<span class="Constant">54</span>); a<span class="Constant">27</span>p:=<span class="Constant">135</span>;  a<span class="Constant">27</span>t:=a<span class="Constant">27</span>p;

p<span class="Constant">31</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">27</span><span class="Identifier">y</span>; p<span class="Constant">31</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">27</span><span class="Identifier">x</span>; a<span class="Constant">31</span>p:=-a<span class="Constant">27</span>p<span class="Constant">-90</span>; a<span class="Constant">31</span>t:=-a<span class="Constant">27</span>t<span class="Constant">-90</span>;
p<span class="Constant">32</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">26</span><span class="Identifier">y</span>; p<span class="Constant">32</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">26</span><span class="Identifier">x</span>; a<span class="Constant">32</span>p:=-a<span class="Constant">26</span>p<span class="Constant">-90</span>; a<span class="Constant">32</span>t:=-a<span class="Constant">26</span>t<span class="Constant">-90</span>;
p<span class="Constant">33</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">25</span><span class="Identifier">y</span>; p<span class="Constant">33</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">25</span><span class="Identifier">x</span>; a<span class="Constant">33</span>p:=-a<span class="Constant">25</span>p<span class="Constant">-90</span>; a<span class="Constant">33</span>t:=-a<span class="Constant">25</span>t<span class="Constant">-90</span>;
p<span class="Constant">34</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">24</span><span class="Identifier">y</span>; p<span class="Constant">34</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">24</span><span class="Identifier">x</span>; a<span class="Constant">34</span>p:=-a<span class="Constant">24</span>p<span class="Constant">-90</span>; a<span class="Constant">34</span>t:=-a<span class="Constant">24</span>t<span class="Constant">-90</span>;
p<span class="Constant">35</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">23</span><span class="Identifier">y</span>; p<span class="Constant">35</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">23</span><span class="Identifier">x</span>; a<span class="Constant">35</span>p:=-a<span class="Constant">23</span>p<span class="Constant">-90</span>; a<span class="Constant">35</span>t:=-a<span class="Constant">23</span>t<span class="Constant">-90</span>;
p<span class="Constant">36</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">22</span><span class="Identifier">y</span>; p<span class="Constant">36</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">22</span><span class="Identifier">x</span>; a<span class="Constant">36</span>p:=-a<span class="Constant">22</span>p<span class="Constant">-90</span>; a<span class="Constant">36</span>t:=-a<span class="Constant">22</span>t<span class="Constant">-90</span>;
p<span class="Constant">37</span><span class="Identifier">x</span>:=<span class="Identifier">h</span>-p<span class="Constant">21</span><span class="Identifier">y</span>; p<span class="Constant">37</span><span class="Identifier">y</span>:=<span class="Identifier">h</span>-p<span class="Constant">21</span><span class="Identifier">x</span>; a<span class="Constant">37</span>p:=-a<span class="Constant">21</span>p<span class="Constant">-90</span>; a<span class="Constant">37</span>t:=-a<span class="Constant">21</span>t<span class="Constant">-90</span>;

a:=<span class="Statement">angle</span>;

trb(a, (p<span class="Constant">01</span><span class="Identifier">x</span>,p<span class="Constant">01</span><span class="Identifier">y</span>), (p<span class="Constant">02</span><span class="Identifier">x</span>,p<span class="Constant">02</span><span class="Identifier">y</span>), a<span class="Constant">01</span>t, a<span class="Constant">02</span>t, a<span class="Constant">01</span>p, a<span class="Constant">02</span>p, <span class="Identifier">h</span>/<span class="Constant">3</span>,  <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Constant">150</span>, a<span class="Constant">02</span>t);
tra(a, (p<span class="Constant">24</span><span class="Identifier">x</span>,p<span class="Constant">24</span><span class="Identifier">y</span>), (p<span class="Constant">25</span><span class="Identifier">x</span>,p<span class="Constant">25</span><span class="Identifier">y</span>), a<span class="Constant">24</span>t, a<span class="Constant">25</span>t, a<span class="Constant">24</span>p, a<span class="Constant">25</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">35</span><span class="Identifier">x</span>,p<span class="Constant">35</span><span class="Identifier">y</span>), (p<span class="Constant">36</span><span class="Identifier">x</span>,p<span class="Constant">36</span><span class="Identifier">y</span>), a<span class="Constant">35</span>t, a<span class="Constant">36</span>t, a<span class="Constant">35</span>p, a<span class="Constant">36</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">02</span><span class="Identifier">x</span>,p<span class="Constant">02</span><span class="Identifier">y</span>), (p<span class="Constant">03</span><span class="Identifier">x</span>,p<span class="Constant">03</span><span class="Identifier">y</span>), a<span class="Constant">02</span>t, a<span class="Constant">03</span>t, a<span class="Constant">02</span>p, a<span class="Constant">03</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">03</span><span class="Identifier">x</span>,p<span class="Constant">03</span><span class="Identifier">y</span>), (p<span class="Constant">04</span><span class="Identifier">x</span>,p<span class="Constant">04</span><span class="Identifier">y</span>), a<span class="Constant">03</span>t, a<span class="Constant">04</span>t, a<span class="Constant">03</span>p, a<span class="Constant">04</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">13</span><span class="Identifier">x</span>,p<span class="Constant">13</span><span class="Identifier">y</span>), (p<span class="Constant">14</span><span class="Identifier">x</span>,p<span class="Constant">14</span><span class="Identifier">y</span>), a<span class="Constant">13</span>t, a<span class="Constant">14</span>t, a<span class="Constant">13</span>p, a<span class="Constant">14</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">31</span><span class="Identifier">x</span>,p<span class="Constant">31</span><span class="Identifier">y</span>), (p<span class="Constant">32</span><span class="Identifier">x</span>,p<span class="Constant">32</span><span class="Identifier">y</span>), a<span class="Constant">31</span>t, a<span class="Constant">32</span>t, a<span class="Constant">31</span>p, a<span class="Constant">32</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">04</span><span class="Identifier">x</span>,p<span class="Constant">04</span><span class="Identifier">y</span>), (p<span class="Constant">05</span><span class="Identifier">x</span>,p<span class="Constant">05</span><span class="Identifier">y</span>), a<span class="Constant">04</span>t, a<span class="Constant">05</span>t, a<span class="Constant">04</span>p, a<span class="Constant">05</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">05</span><span class="Identifier">x</span>,p<span class="Constant">05</span><span class="Identifier">y</span>), (p<span class="Constant">06</span><span class="Identifier">x</span>,p<span class="Constant">06</span><span class="Identifier">y</span>), a<span class="Constant">05</span>t, a<span class="Constant">06</span>t, a<span class="Constant">05</span>p, a<span class="Constant">06</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>*<span class="Statement">sqrt</span>(<span class="Constant">2</span>));

tra(a, (p<span class="Constant">11</span><span class="Identifier">x</span>,p<span class="Constant">11</span><span class="Identifier">y</span>), (p<span class="Constant">12</span><span class="Identifier">x</span>,p<span class="Constant">12</span><span class="Identifier">y</span>), a<span class="Constant">11</span>t, a<span class="Constant">12</span>t, a<span class="Constant">11</span>p, a<span class="Constant">12</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>*<span class="Statement">sqrt</span>(<span class="Constant">2</span>), <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">12</span><span class="Identifier">x</span>,p<span class="Constant">12</span><span class="Identifier">y</span>), (p<span class="Constant">13</span><span class="Identifier">x</span>,p<span class="Constant">13</span><span class="Identifier">y</span>), a<span class="Constant">12</span>t, a<span class="Constant">13</span>t, a<span class="Constant">12</span>p, a<span class="Constant">13</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">26</span><span class="Identifier">x</span>,p<span class="Constant">26</span><span class="Identifier">y</span>), (p<span class="Constant">27</span><span class="Identifier">x</span>,p<span class="Constant">27</span><span class="Identifier">y</span>), a<span class="Constant">26</span>t, a<span class="Constant">27</span>t, a<span class="Constant">26</span>p, a<span class="Constant">27</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">14</span><span class="Identifier">x</span>,p<span class="Constant">14</span><span class="Identifier">y</span>), (p<span class="Constant">15</span><span class="Identifier">x</span>,p<span class="Constant">15</span><span class="Identifier">y</span>), a<span class="Constant">14</span>t, a<span class="Constant">15</span>t, a<span class="Constant">14</span>p, a<span class="Constant">15</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">22</span><span class="Identifier">x</span>,p<span class="Constant">22</span><span class="Identifier">y</span>), (p<span class="Constant">23</span><span class="Identifier">x</span>,p<span class="Constant">23</span><span class="Identifier">y</span>), a<span class="Constant">22</span>t, a<span class="Constant">23</span>t, a<span class="Constant">22</span>p, a<span class="Constant">23</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">33</span><span class="Identifier">x</span>,p<span class="Constant">33</span><span class="Identifier">y</span>), (p<span class="Constant">34</span><span class="Identifier">x</span>,p<span class="Constant">34</span><span class="Identifier">y</span>), a<span class="Constant">33</span>t, a<span class="Constant">34</span>t, a<span class="Constant">33</span>p, a<span class="Constant">34</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
trb(a, (p<span class="Constant">15</span><span class="Identifier">x</span>,p<span class="Constant">15</span><span class="Identifier">y</span>), (p<span class="Constant">16</span><span class="Identifier">x</span>,p<span class="Constant">16</span><span class="Identifier">y</span>), a<span class="Constant">15</span>t, a<span class="Constant">16</span>t, a<span class="Constant">15</span>p, a<span class="Constant">16</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">3</span>, a<span class="Constant">15</span>t, <span class="Constant">-240</span>);

trb(a, (p<span class="Constant">16</span><span class="Identifier">x</span>,p<span class="Constant">16</span><span class="Identifier">y</span>), (p<span class="Constant">21</span><span class="Identifier">x</span>,p<span class="Constant">21</span><span class="Identifier">y</span>), <span class="Constant">-13</span>,  a<span class="Constant">21</span>t, a<span class="Constant">16</span>p, a<span class="Constant">21</span>p, <span class="Identifier">h</span>/<span class="Constant">3</span>,  <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Constant">20</span>, a<span class="Constant">21</span>t);

tra(a, (p<span class="Constant">21</span><span class="Identifier">x</span>,p<span class="Constant">21</span><span class="Identifier">y</span>), (p<span class="Constant">22</span><span class="Identifier">x</span>,p<span class="Constant">22</span><span class="Identifier">y</span>), a<span class="Constant">21</span>t, a<span class="Constant">22</span>t, a<span class="Constant">21</span>p, a<span class="Constant">22</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">32</span><span class="Identifier">x</span>,p<span class="Constant">32</span><span class="Identifier">y</span>), (p<span class="Constant">33</span><span class="Identifier">x</span>,p<span class="Constant">33</span><span class="Identifier">y</span>), a<span class="Constant">32</span>t, a<span class="Constant">33</span>t, a<span class="Constant">32</span>p, a<span class="Constant">33</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">23</span><span class="Identifier">x</span>,p<span class="Constant">23</span><span class="Identifier">y</span>), (p<span class="Constant">24</span><span class="Identifier">x</span>,p<span class="Constant">24</span><span class="Identifier">y</span>), a<span class="Constant">23</span>t, a<span class="Constant">24</span>t, a<span class="Constant">23</span>p, a<span class="Constant">24</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">34</span><span class="Identifier">x</span>,p<span class="Constant">34</span><span class="Identifier">y</span>), (p<span class="Constant">35</span><span class="Identifier">x</span>,p<span class="Constant">35</span><span class="Identifier">y</span>), a<span class="Constant">34</span>t, a<span class="Constant">35</span>t, a<span class="Constant">34</span>p, a<span class="Constant">35</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

tra(a, (p<span class="Constant">25</span><span class="Identifier">x</span>,p<span class="Constant">25</span><span class="Identifier">y</span>), (p<span class="Constant">26</span><span class="Identifier">x</span>,p<span class="Constant">26</span><span class="Identifier">y</span>), a<span class="Constant">25</span>t, a<span class="Constant">26</span>t, a<span class="Constant">25</span>p, a<span class="Constant">26</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);
tra(a, (p<span class="Constant">36</span><span class="Identifier">x</span>,p<span class="Constant">36</span><span class="Identifier">y</span>), (p<span class="Constant">37</span><span class="Identifier">x</span>,p<span class="Constant">37</span><span class="Identifier">y</span>), a<span class="Constant">36</span>t, a<span class="Constant">37</span>t, a<span class="Constant">36</span>p, a<span class="Constant">37</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">12</span>);

trb(a, (p<span class="Constant">37</span><span class="Identifier">x</span>,p<span class="Constant">37</span><span class="Identifier">y</span>), (p<span class="Constant">01</span><span class="Identifier">x</span>,p<span class="Constant">01</span><span class="Identifier">y</span>), a<span class="Constant">37</span>t,  <span class="Constant">-77</span>, a<span class="Constant">37</span>p, a<span class="Constant">01</span>p, <span class="Identifier">h</span>/<span class="Constant">12</span>, <span class="Identifier">h</span>/<span class="Constant">3</span>, a<span class="Constant">37</span>t, <span class="Constant">-110</span>);

<span class="Statement">enddef</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;A&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">0</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;B&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">45</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;C&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">90</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;D&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">135</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;E&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">180</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;F&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">225</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;G&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">270</span>);
<span class="Identifier">endchar</span>;

<span class="Identifier">beginchar</span>(<span class="Constant">&quot;H&quot;</span>, ht#, ht#, <span class="Constant">0pt#</span>);
  noeud(<span class="Constant">315</span>);
<span class="Identifier">endchar</span>;

k#:=<span class="Constant">10pt#</span>;
<span class="Statement">for</span> i=<span class="Constant">65</span> <span class="Identifier">upto</span> <span class="Constant">72</span>:
<span class="Statement">ligtable</span> i:
 <span class="Constant">65</span> <span class="Statement">kern</span> k#,  <span class="Constant">66</span> <span class="Statement">kern</span> k#,  <span class="Constant">67</span> <span class="Statement">kern</span> k#, <span class="Constant">68</span> <span class="Statement">kern</span> k#,
 <span class="Constant">69</span> <span class="Statement">kern</span> k#,  <span class="Constant">70</span> <span class="Statement">kern</span> k#,  <span class="Constant">71</span> <span class="Statement">kern</span> k#, <span class="Constant">72</span> <span class="Statement">kern</span> k#;
<span class="Statement">endfor</span>;

<span class="Statement">end</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->