File: tk-locomotive.html

package info (click to toggle)
nsf 2.4.0-1
links: PTS, VCS
area: main
in suites: forky, sid, trixie
size: 13,208 kB
sloc: ansic: 32,687; tcl: 10,723; sh: 660; pascal: 176; javascript: 135; lisp: 41; makefile: 24
file content (970 lines) | stat: -rw-r--r-- 44,058 bytes
parent folder | download | duplicates (3)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
    "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=UTF-8" />
<meta name="generator" content="AsciiDoc 8.6.9" />
<title>Listing of doc/example-scripts/tk-locomotive.tcl</title>
<style type="text/css">
/* Shared CSS for AsciiDoc xhtml11 and html5 backends */

/* Default font. */
body {
  font-family: Georgia,serif;
}

/* Title font. */
h1, h2, h3, h4, h5, h6,
div.title, caption.title,
thead, p.table.header,
#toctitle,
#author, #revnumber, #revdate, #revremark,
#footer {
  font-family: Arial,Helvetica,sans-serif;
}

body {
  margin: 1em 5% 1em 5%;
}

a {
  color: blue;
  text-decoration: underline;
}
a:visited {
  color: fuchsia;
}

em {
  font-style: italic;
  color: navy;
}

strong {
  font-weight: bold;
  color: #083194;
}

h1, h2, h3, h4, h5, h6 {
  color: #527bbd;
  margin-top: 1.2em;
  margin-bottom: 0.5em;
  line-height: 1.3;
}

h1, h2, h3 {
  border-bottom: 2px solid silver;
}
h2 {
  padding-top: 0.5em;
}
h3 {
  float: left;
}
h3 + * {
  clear: left;
}
h5 {
  font-size: 1.0em;
}

div.sectionbody {
  margin-left: 0;
}

hr {
  border: 1px solid silver;
}

p {
  margin-top: 0.5em;
  margin-bottom: 0.5em;
}

ul, ol, li > p {
  margin-top: 0;
}
ul > li     { color: #aaa; }
ul > li > * { color: black; }

.monospaced, code, pre {
  font-family: "Courier New", Courier, monospace;
  font-size: inherit;
  color: navy;
  padding: 0;
  margin: 0;
}
pre {
  white-space: pre-wrap;
}

#author {
  color: #527bbd;
  font-weight: bold;
  font-size: 1.1em;
}
#email {
}
#revnumber, #revdate, #revremark {
}

#footer {
  font-size: small;
  border-top: 2px solid silver;
  padding-top: 0.5em;
  margin-top: 4.0em;
}
#footer-text {
  float: left;
  padding-bottom: 0.5em;
}
#footer-badges {
  float: right;
  padding-bottom: 0.5em;
}

#preamble {
  margin-top: 1.5em;
  margin-bottom: 1.5em;
}
div.imageblock, div.exampleblock, div.verseblock,
div.quoteblock, div.literalblock, div.listingblock, div.sidebarblock,
div.admonitionblock {
  margin-top: 1.0em;
  margin-bottom: 1.5em;
}
div.admonitionblock {
  margin-top: 2.0em;
  margin-bottom: 2.0em;
  margin-right: 10%;
  color: #606060;
}

div.content { /* Block element content. */
  padding: 0;
}

/* Block element titles. */
div.title, caption.title {
  color: #527bbd;
  font-weight: bold;
  text-align: left;
  margin-top: 1.0em;
  margin-bottom: 0.5em;
}
div.title + * {
  margin-top: 0;
}

td div.title:first-child {
  margin-top: 0.0em;
}
div.content div.title:first-child {
  margin-top: 0.0em;
}
div.content + div.title {
  margin-top: 0.0em;
}

div.sidebarblock > div.content {
  background: #ffffee;
  border: 1px solid #dddddd;
  border-left: 4px solid #f0f0f0;
  padding: 0.5em;
}

div.listingblock > div.content {
  border: 1px solid #dddddd;
  border-left: 5px solid #f0f0f0;
  background: #f8f8f8;
  padding: 0.5em;
}

div.quoteblock, div.verseblock {
  padding-left: 1.0em;
  margin-left: 1.0em;
  margin-right: 10%;
  border-left: 5px solid #f0f0f0;
  color: #888;
}

div.quoteblock > div.attribution {
  padding-top: 0.5em;
  text-align: right;
}

div.verseblock > pre.content {
  font-family: inherit;
  font-size: inherit;
}
div.verseblock > div.attribution {
  padding-top: 0.75em;
  text-align: left;
}
/* DEPRECATED: Pre version 8.2.7 verse style literal block. */
div.verseblock + div.attribution {
  text-align: left;
}

div.admonitionblock .icon {
  vertical-align: top;
  font-size: 1.1em;
  font-weight: bold;
  text-decoration: underline;
  color: #527bbd;
  padding-right: 0.5em;
}
div.admonitionblock td.content {
  padding-left: 0.5em;
  border-left: 3px solid #dddddd;
}

div.exampleblock > div.content {
  border-left: 3px solid #dddddd;
  padding-left: 0.5em;
}

div.imageblock div.content { padding-left: 0; }
span.image img { border-style: none; vertical-align: text-bottom; }
a.image:visited { color: white; }

dl {
  margin-top: 0.8em;
  margin-bottom: 0.8em;
}
dt {
  margin-top: 0.5em;
  margin-bottom: 0;
  font-style: normal;
  color: navy;
}
dd > *:first-child {
  margin-top: 0.1em;
}

ul, ol {
    list-style-position: outside;
}
ol.arabic {
  list-style-type: decimal;
}
ol.loweralpha {
  list-style-type: lower-alpha;
}
ol.upperalpha {
  list-style-type: upper-alpha;
}
ol.lowerroman {
  list-style-type: lower-roman;
}
ol.upperroman {
  list-style-type: upper-roman;
}

div.compact ul, div.compact ol,
div.compact p, div.compact p,
div.compact div, div.compact div {
  margin-top: 0.1em;
  margin-bottom: 0.1em;
}

tfoot {
  font-weight: bold;
}
td > div.verse {
  white-space: pre;
}

div.hdlist {
  margin-top: 0.8em;
  margin-bottom: 0.8em;
}
div.hdlist tr {
  padding-bottom: 15px;
}
dt.hdlist1.strong, td.hdlist1.strong {
  font-weight: bold;
}
td.hdlist1 {
  vertical-align: top;
  font-style: normal;
  padding-right: 0.8em;
  color: navy;
}
td.hdlist2 {
  vertical-align: top;
}
div.hdlist.compact tr {
  margin: 0;
  padding-bottom: 0;
}

.comment {
  background: yellow;
}

.footnote, .footnoteref {
  font-size: 0.8em;
}

span.footnote, span.footnoteref {
  vertical-align: super;
}

#footnotes {
  margin: 20px 0 20px 0;
  padding: 7px 0 0 0;
}

#footnotes div.footnote {
  margin: 0 0 5px 0;
}

#footnotes hr {
  border: none;
  border-top: 1px solid silver;
  height: 1px;
  text-align: left;
  margin-left: 0;
  width: 20%;
  min-width: 100px;
}

div.colist td {
  padding-right: 0.5em;
  padding-bottom: 0.3em;
  vertical-align: top;
}
div.colist td img {
  margin-top: 0.3em;
}

@media print {
  #footer-badges { display: none; }
}

#toc {
  margin-bottom: 2.5em;
}

#toctitle {
  color: #527bbd;
  font-size: 1.1em;
  font-weight: bold;
  margin-top: 1.0em;
  margin-bottom: 0.1em;
}

div.toclevel0, div.toclevel1, div.toclevel2, div.toclevel3, div.toclevel4 {
  margin-top: 0;
  margin-bottom: 0;
}
div.toclevel2 {
  margin-left: 2em;
  font-size: 0.9em;
}
div.toclevel3 {
  margin-left: 4em;
  font-size: 0.9em;
}
div.toclevel4 {
  margin-left: 6em;
  font-size: 0.9em;
}

span.aqua { color: aqua; }
span.black { color: black; }
span.blue { color: blue; }
span.fuchsia { color: fuchsia; }
span.gray { color: gray; }
span.green { color: green; }
span.lime { color: lime; }
span.maroon { color: maroon; }
span.navy { color: navy; }
span.olive { color: olive; }
span.purple { color: purple; }
span.red { color: red; }
span.silver { color: silver; }
span.teal { color: teal; }
span.white { color: white; }
span.yellow { color: yellow; }

span.aqua-background { background: aqua; }
span.black-background { background: black; }
span.blue-background { background: blue; }
span.fuchsia-background { background: fuchsia; }
span.gray-background { background: gray; }
span.green-background { background: green; }
span.lime-background { background: lime; }
span.maroon-background { background: maroon; }
span.navy-background { background: navy; }
span.olive-background { background: olive; }
span.purple-background { background: purple; }
span.red-background { background: red; }
span.silver-background { background: silver; }
span.teal-background { background: teal; }
span.white-background { background: white; }
span.yellow-background { background: yellow; }

span.big { font-size: 2em; }
span.small { font-size: 0.6em; }

span.underline { text-decoration: underline; }
span.overline { text-decoration: overline; }
span.line-through { text-decoration: line-through; }

div.unbreakable { page-break-inside: avoid; }


/*
 * xhtml11 specific
 *
 * */

div.tableblock {
  margin-top: 1.0em;
  margin-bottom: 1.5em;
}
div.tableblock > table {
  border: 3px solid #527bbd;
}
thead, p.table.header {
  font-weight: bold;
  color: #527bbd;
}
p.table {
  margin-top: 0;
}
/* Because the table frame attribute is overridden by CSS in most browsers. */
div.tableblock > table[frame="void"] {
  border-style: none;
}
div.tableblock > table[frame="hsides"] {
  border-left-style: none;
  border-right-style: none;
}
div.tableblock > table[frame="vsides"] {
  border-top-style: none;
  border-bottom-style: none;
}


/*
 * html5 specific
 *
 * */

table.tableblock {
  margin-top: 1.0em;
  margin-bottom: 1.5em;
}
thead, p.tableblock.header {
  font-weight: bold;
  color: #527bbd;
}
p.tableblock {
  margin-top: 0;
}
table.tableblock {
  border-width: 3px;
  border-spacing: 0px;
  border-style: solid;
  border-color: #527bbd;
  border-collapse: collapse;
}
th.tableblock, td.tableblock {
  border-width: 1px;
  padding: 4px;
  border-style: solid;
  border-color: #527bbd;
}

table.tableblock.frame-topbot {
  border-left-style: hidden;
  border-right-style: hidden;
}
table.tableblock.frame-sides {
  border-top-style: hidden;
  border-bottom-style: hidden;
}
table.tableblock.frame-none {
  border-style: hidden;
}

th.tableblock.halign-left, td.tableblock.halign-left {
  text-align: left;
}
th.tableblock.halign-center, td.tableblock.halign-center {
  text-align: center;
}
th.tableblock.halign-right, td.tableblock.halign-right {
  text-align: right;
}

th.tableblock.valign-top, td.tableblock.valign-top {
  vertical-align: top;
}
th.tableblock.valign-middle, td.tableblock.valign-middle {
  vertical-align: middle;
}
th.tableblock.valign-bottom, td.tableblock.valign-bottom {
  vertical-align: bottom;
}


/*
 * manpage specific
 *
 * */

body.manpage h1 {
  padding-top: 0.5em;
  padding-bottom: 0.5em;
  border-top: 2px solid silver;
  border-bottom: 2px solid silver;
}
body.manpage h2 {
  border-style: none;
}
body.manpage div.sectionbody {
  margin-left: 3em;
}

@media print {
  body.manpage div#toc { display: none; }
}


</style>
<script type="text/javascript">
/*<![CDATA[*/
var asciidoc = {  // Namespace.

/////////////////////////////////////////////////////////////////////
// Table Of Contents generator
/////////////////////////////////////////////////////////////////////

/* Author: Mihai Bazon, September 2002
 * http://students.infoiasi.ro/~mishoo
 *
 * Table Of Content generator
 * Version: 0.4
 *
 * Feel free to use this script under the terms of the GNU General Public
 * License, as long as you do not remove or alter this notice.
 */

 /* modified by Troy D. Hanson, September 2006. License: GPL */
 /* modified by Stuart Rackham, 2006, 2009. License: GPL */

// toclevels = 1..4.
toc: function (toclevels) {

  function getText(el) {
    var text = "";
    for (var i = el.firstChild; i != null; i = i.nextSibling) {
      if (i.nodeType == 3 /* Node.TEXT_NODE */) // IE doesn't speak constants.
        text += i.data;
      else if (i.firstChild != null)
        text += getText(i);
    }
    return text;
  }

  function TocEntry(el, text, toclevel) {
    this.element = el;
    this.text = text;
    this.toclevel = toclevel;
  }

  function tocEntries(el, toclevels) {
    var result = new Array;
    var re = new RegExp('[hH]([1-'+(toclevels+1)+'])');
    // Function that scans the DOM tree for header elements (the DOM2
    // nodeIterator API would be a better technique but not supported by all
    // browsers).
    var iterate = function (el) {
      for (var i = el.firstChild; i != null; i = i.nextSibling) {
        if (i.nodeType == 1 /* Node.ELEMENT_NODE */) {
          var mo = re.exec(i.tagName);
          if (mo && (i.getAttribute("class") || i.getAttribute("className")) != "float") {
            result[result.length] = new TocEntry(i, getText(i), mo[1]-1);
          }
          iterate(i);
        }
      }
    }
    iterate(el);
    return result;
  }

  var toc = document.getElementById("toc");
  if (!toc) {
    return;
  }

  // Delete existing TOC entries in case we're reloading the TOC.
  var tocEntriesToRemove = [];
  var i;
  for (i = 0; i < toc.childNodes.length; i++) {
    var entry = toc.childNodes[i];
    if (entry.nodeName.toLowerCase() == 'div'
     && entry.getAttribute("class")
     && entry.getAttribute("class").match(/^toclevel/))
      tocEntriesToRemove.push(entry);
  }
  for (i = 0; i < tocEntriesToRemove.length; i++) {
    toc.removeChild(tocEntriesToRemove[i]);
  }

  // Rebuild TOC entries.
  var entries = tocEntries(document.getElementById("content"), toclevels);
  for (var i = 0; i < entries.length; ++i) {
    var entry = entries[i];
    if (entry.element.id == "")
      entry.element.id = "_toc_" + i;
    var a = document.createElement("a");
    a.href = "#" + entry.element.id;
    a.appendChild(document.createTextNode(entry.text));
    var div = document.createElement("div");
    div.appendChild(a);
    div.className = "toclevel" + entry.toclevel;
    toc.appendChild(div);
  }
  if (entries.length == 0)
    toc.parentNode.removeChild(toc);
},


/////////////////////////////////////////////////////////////////////
// Footnotes generator
/////////////////////////////////////////////////////////////////////

/* Based on footnote generation code from:
 * http://www.brandspankingnew.net/archive/2005/07/format_footnote.html
 */

footnotes: function () {
  // Delete existing footnote entries in case we're reloading the footnodes.
  var i;
  var noteholder = document.getElementById("footnotes");
  if (!noteholder) {
    return;
  }
  var entriesToRemove = [];
  for (i = 0; i < noteholder.childNodes.length; i++) {
    var entry = noteholder.childNodes[i];
    if (entry.nodeName.toLowerCase() == 'div' && entry.getAttribute("class") == "footnote")
      entriesToRemove.push(entry);
  }
  for (i = 0; i < entriesToRemove.length; i++) {
    noteholder.removeChild(entriesToRemove[i]);
  }

  // Rebuild footnote entries.
  var cont = document.getElementById("content");
  var spans = cont.getElementsByTagName("span");
  var refs = {};
  var n = 0;
  for (i=0; i<spans.length; i++) {
    if (spans[i].className == "footnote") {
      n++;
      var note = spans[i].getAttribute("data-note");
      if (!note) {
        // Use [\s\S] in place of . so multi-line matches work.
        // Because JavaScript has no s (dotall) regex flag.
        note = spans[i].innerHTML.match(/\s*\[([\s\S]*)]\s*/)[1];
        spans[i].innerHTML =
          "[<a id='_footnoteref_" + n + "' href='#_footnote_" + n +
          "' title='View footnote' class='footnote'>" + n + "</a>]";
        spans[i].setAttribute("data-note", note);
      }
      noteholder.innerHTML +=
        "<div class='footnote' id='_footnote_" + n + "'>" +
        "<a href='#_footnoteref_" + n + "' title='Return to text'>" +
        n + "</a>. " + note + "</div>";
      var id =spans[i].getAttribute("id");
      if (id != null) refs["#"+id] = n;
    }
  }
  if (n == 0)
    noteholder.parentNode.removeChild(noteholder);
  else {
    // Process footnoterefs.
    for (i=0; i<spans.length; i++) {
      if (spans[i].className == "footnoteref") {
        var href = spans[i].getElementsByTagName("a")[0].getAttribute("href");
        href = href.match(/#.*/)[0];  // Because IE return full URL.
        n = refs[href];
        spans[i].innerHTML =
          "[<a href='#_footnote_" + n +
          "' title='View footnote' class='footnote'>" + n + "</a>]";
      }
    }
  }
},

install: function(toclevels) {
  var timerId;

  function reinstall() {
    asciidoc.footnotes();
    if (toclevels) {
      asciidoc.toc(toclevels);
    }
  }

  function reinstallAndRemoveTimer() {
    clearInterval(timerId);
    reinstall();
  }

  timerId = setInterval(reinstall, 500);
  if (document.addEventListener)
    document.addEventListener("DOMContentLoaded", reinstallAndRemoveTimer, false);
  else
    window.onload = reinstallAndRemoveTimer;
}

}
asciidoc.install();
/*]]>*/
</script>
</head>
<body class="article">
<div id="header">
<h1>Listing of doc/example-scripts/tk-locomotive.tcl</h1>
</div>
<div id="content">
<div id="preamble">
<div class="sectionbody">
<div class="paragraph"><p>Example by &lt;Richard Suchenwirth&gt;
<a href="http://wiki.tcl.tk/1329">http://wiki.tcl.tk/1329</a></p></div>
<div class="ulist"><ul>
<li>
<p>
translated from Tcl to XOTcl by gustaf neumann in 2001
</p>
</li>
<li>
<p>
translated from XOTcl to NX by gustaf neumann in 2010
</p>
</li>
</ul></div>
<div class="imageblock">
<div class="content">
<img src="tk-locomotive.png" alt="tk-locomotive.png" />
</div>
</div>
<div class="paragraph"><p>Left mousebutton starts, middle slows down, right stops</p></div>
<div class="listingblock">
<div class="content"><style type='text/css'>
.nx             {color: #000000; font-weight: normal; font-style: normal; padding-left: 10px}
table.nx        {border-collapse: collapse; border-spacing: 3px;}
.nx-linenr      {border-right: 1px solid #DDDDDD;padding-right: 5px; color: #2B547D;font-style: italic;}
.nx-string      {color: #779977; font-weight: normal; font-style: italic;}
.nx-comment     {color: #717ab3; font-weight: normal; font-style: italic;}
.nx-keyword     {color: #7f0055; font-weight: normal; font-style: normal;}
.nx-placeholder {color: #AF663F; font-weight: normal; font-style: italic;}
.nx-variable    {color: #AF663F; font-weight: normal; font-style: normal;}
</style>
<pre class='nx'><span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> Tk
<span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> nx
<span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> nx::trait

<span class='nx-keyword'>nx::Class</span> <span class='nx-keyword'>create</span> Wheel {
  <span class='nx-keyword'>:property</span> x
  <span class='nx-keyword'>:property</span> y
  <span class='nx-keyword'>:property</span> r
  <span class='nx-keyword'>:property</span> {spokes 24}
  <span class='nx-keyword'>:property</span> {pivot 0}
  <span class='nx-keyword'>:property</span> {color red}
  <span class='nx-keyword'>:property</span> {tag <span class='nx-string'>""</span>}

  <span class='nx-keyword'>:public</span> <span class='nx-keyword'>method</span> drawSpokes {} {
    ::nx::var import [<span class='nx-keyword'>:info</span> parent] c alpha
    <span class='nx-keyword'>set</span> delta [<span class='nx-keyword'>expr</span> {360.0 / <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:spokes}</span>}]
    <span class='nx-keyword'>set</span> deg2arc [<span class='nx-keyword'>expr</span> {atan(1.0)*8/360.}]
    <span class='nx-keyword'>for</span> {<span class='nx-keyword'>set</span> i 0} {<span class='nx-[namespace tail [nx::self]]'>$i</span> &lt; <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:spokes}</span>} {<span class='nx-keyword'>incr</span> i} {
      <span class='nx-keyword'>set</span> x1 [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> + cos(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span>*<span class='nx-[namespace tail [nx::self]]'>$alpha</span>) * <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}]
      <span class='nx-keyword'>set</span> y1 [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> + sin(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span>*<span class='nx-[namespace tail [nx::self]]'>$alpha</span>) * <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}]
      <span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> line <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> <span class='nx-[namespace tail [nx::self]]'>$x1</span> <span class='nx-[namespace tail [nx::self]]'>$y1</span> -fill <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:color}</span> -tag spoke
      <span class='nx-keyword'>set</span> alpha [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$alpha</span> + <span class='nx-[namespace tail [nx::self]]'>$delta</span>}]
    }
    <span class='nx-keyword'>if</span> {[<span class='nx-keyword'>info</span> exists :act_pivot]} {
      <span class='nx-keyword'>lassign</span> [<span class='nx-keyword'>set</span> :act_pivot] item perc
      <span class='nx-keyword'>set</span> rp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span> * <span class='nx-[namespace tail [nx::self]]'>$perc</span>}]
      <span class='nx-keyword'>set</span> xp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>$rp</span> * cos(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span> * <span class='nx-[namespace tail [nx::self]]'>$alpha</span>)}]
      <span class='nx-keyword'>set</span> yp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>$rp</span> * sin(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span> * <span class='nx-[namespace tail [nx::self]]'>$alpha</span>)}]
      <span class='nx-[namespace tail [nx::self]]'>$c</span> coords <span class='nx-[namespace tail [nx::self]]'>$item</span> <span class='nx-[namespace tail [nx::self]]'>$xp</span> <span class='nx-[namespace tail [nx::self]]'>$yp</span> [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$xp</span> + 1}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$yp</span> + 1}]
    }
  }

  <span class='nx-keyword'>:method</span> <span class='nx-keyword'>init</span> {} {
    ::nx::var import [<span class='nx-keyword'>:info</span> parent] c alpha
    <span class='nx-keyword'>set</span> alpha 0.

    <span class='nx-keyword'>set</span> :y [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}]
    <span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> oval \
        [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}] \
        [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> + <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> + <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>}] \
        -outline white
    <span class='nx-keyword'>set</span> r1 [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span>-2}]
    <span class='nx-keyword'>set</span> W [<span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> oval \
               [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] \
               [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> + <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> + <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] \
               -outline <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:color}</span> -width 2]
    :drawSpokes

    <span class='nx-keyword'>if</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:pivot}</span>} {
      <span class='nx-keyword'>set</span> deg2arc [<span class='nx-keyword'>expr</span> {atan(1.0) * 8 / 360.0}]
      <span class='nx-keyword'>set</span> rp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$r1</span>*<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:pivot}</span>}]
      <span class='nx-keyword'>set</span> xp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>$rp</span> * cos(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span> * <span class='nx-[namespace tail [nx::self]]'>$alpha</span>)}]
      <span class='nx-keyword'>set</span> yp [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>$rp</span> * sin(<span class='nx-[namespace tail [nx::self]]'>$deg2arc</span> * <span class='nx-[namespace tail [nx::self]]'>$alpha</span>)}]
      <span class='nx-keyword'>set</span> new_pivot [<span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> rect <span class='nx-[namespace tail [nx::self]]'>$xp</span> <span class='nx-[namespace tail [nx::self]]'>$yp</span> [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$xp</span> + 1}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$yp</span> + 1}] \
                         -fill <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:color}</span> -tag [<span class='nx-keyword'>list</span> <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:tag}</span> pivot]]
      <span class='nx-keyword'>set</span> :act_pivot [<span class='nx-keyword'>list</span> <span class='nx-[namespace tail [nx::self]]'>$new_pivot</span> <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:pivot}</span>]

      <span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> arc [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>$r1</span>}]\
          [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> + <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> + <span class='nx-[namespace tail [nx::self]]'>$r1</span>}] \
          -style chord -fill <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:color}</span> -start 310 \
          -extent 80 -tag counterweight
      <span class='nx-keyword'>set</span> :pivot <span class='nx-[namespace tail [nx::self]]'>$new_pivot</span>
    }
    <span class='nx-keyword'>set</span> rh [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:r}</span> / 12.0}]
    <span class='nx-[namespace tail [nx::self]]'>$c</span> <span class='nx-keyword'>create</span> oval \
        [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> - <span class='nx-[namespace tail [nx::self]]'>$rh</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> - <span class='nx-[namespace tail [nx::self]]'>$rh</span>}] \
        [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:x}</span> + <span class='nx-[namespace tail [nx::self]]'>$rh</span>}] [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:y}</span> + <span class='nx-[namespace tail [nx::self]]'>$rh</span>}] \
        -fill white -tag hub
    <span class='nx-keyword'>set</span> :r <span class='nx-[namespace tail [nx::self]]'>$r1</span>
  }
}


<span class='nx-keyword'>nx::Class</span> <span class='nx-keyword'>create</span> Locomotive {
  <span class='nx-keyword'>:property</span> {speed 4}

  <span class='nx-keyword'>:require</span> trait nx::trait::callback

  <span class='nx-keyword'>:method</span> turn {} {
    <span class='nx-keyword'>set</span> :alpha [<span class='nx-keyword'>expr</span> {round(<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:alpha}</span> + 360 - <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:speed}</span>) % 360}]
    <span class='nx-keyword'>foreach</span> i [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> find withtag counterweight] {
      <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> itemconfig <span class='nx-[namespace tail [nx::self]]'>$i</span> -start [<span class='nx-keyword'>expr</span> {310 - <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:alpha}</span>}]
    }
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> spoke
    <span class='nx-keyword'>foreach</span> wheel [<span class='nx-keyword'>:info</span> children] { <span class='nx-[namespace tail [nx::self]]'>$wheel</span> drawSpokes }
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> raise hub
    <span class='nx-keyword'>set</span> xp0 [<span class='nx-keyword'>expr</span> {105 + 15 * sin((<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:alpha}</span> - 90) * atan(1.0) * 8 / 360)}]
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> piston
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> coords p0 <span class='nx-[namespace tail [nx::self]]'>$xp0</span> 120 [<span class='nx-keyword'>expr</span> {<span class='nx-[namespace tail [nx::self]]'>$xp0</span>+2}] 122 ;<span class='nx-[namespace tail [nx::self]]'>#CW
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> line 90 121 <span class='nx-[namespace tail [nx::self]]'>$xp0</span> 121 -width 2 -fill white -tag piston ;<span class='nx-[namespace tail [nx::self]]'>#CW
</span>    :drawRod p0 p1 p2 p3
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> raise p0
    <span class='nx-keyword'>foreach</span> i [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> find withtag smoke] {
      <span class='nx-keyword'>if</span> {[<span class='nx-keyword'>lindex</span> [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> bbox <span class='nx-[namespace tail [nx::self]]'>$i</span>] 3]&lt;0} {
        <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> <span class='nx-[namespace tail [nx::self]]'>$i</span>
      } <span class='nx-keyword'>else</span> {
        <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>move</span> <span class='nx-[namespace tail [nx::self]]'>$i</span> [<span class='nx-keyword'>expr</span> {rand() * <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:speed}</span> / 3.0}] [<span class='nx-keyword'>expr</span> {rand() * 2 - 2}]
      }
    }
    <span class='nx-keyword'>set</span> t [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> oval [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> bbox chimney] -fill white -outline white -tag smoke]
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>move</span> <span class='nx-[namespace tail [nx::self]]'>$t</span> 0 -10
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> lower smoke
  }

  <span class='nx-keyword'>:method</span> drawRod {p0 p1 p2 p3} {
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> rod
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> bbox <span class='nx-[namespace tail [nx::self]]'>$p1</span> <span class='nx-[namespace tail [nx::self]]'>$p3</span>] -fill white -tag rod
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> line {*}[<span class='nx-keyword'>lrange</span> [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> bbox <span class='nx-[namespace tail [nx::self]]'>$p0</span>] 0 1] \
        {*}[<span class='nx-keyword'>lrange</span> [<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> bbox <span class='nx-[namespace tail [nx::self]]'>$p2</span>] 0 1] -width 3 -fill white -tag rod
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> raise rod
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> raise pivot
  }

  <span class='nx-keyword'>:public</span> <span class='nx-keyword'>method</span> tick {} {
    :turn
    <span class='nx-keyword'>foreach</span> i [<span class='nx-keyword'>after</span> <span class='nx-keyword'>info</span>] {<span class='nx-keyword'>after</span> cancel <span class='nx-[namespace tail [nx::self]]'>$i</span>}
    <span class='nx-keyword'>after</span> 10 [<span class='nx-keyword'>self</span>] tick
  }

  <span class='nx-keyword'>:public</span> <span class='nx-keyword'>method</span> throttle {} {
    <span class='nx-keyword'>incr</span> :speed 2
    :tick
  }

  <span class='nx-keyword'>:public</span> <span class='nx-keyword'>method</span> <span class='nx-keyword'>break</span> {} {
    <span class='nx-keyword'>incr</span> :speed -2
    <span class='nx-keyword'>if</span> {<span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:speed}</span>&lt;0} {<span class='nx-keyword'>set</span> :speed 0}
    :tick
  }

  <span class='nx-keyword'>:public</span> <span class='nx-keyword'>method</span> emergencyBreak {} {
    <span class='nx-keyword'>set</span> :speed 0
    :tick
  }

  <span class='nx-keyword'>:method</span> <span class='nx-keyword'>init</span> {} {
    <span class='nx-keyword'>set</span> :c [canvas .c -width 600 -height 160 -background lightblue]
    pack <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span>

    bind <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <b>&lt;1&gt;</b> [:callback throttle]
    bind <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <b>&lt;2&gt;</b> [:callback <span class='nx-keyword'>break</span>]
    bind <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <b>&lt;3&gt;</b> [:callback emergencyBreak]

    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> all
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 32 115 360 125 -fill black ;<span class='nx-[namespace tail [nx::self]]'># frame
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 22 118 32 122 -fill grey30 ;<span class='nx-[namespace tail [nx::self]]'># buffer
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> line 22 115 22 125
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> poly 60 95 40 115 50 115 70 95 -fill black
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 60 45 310 95 -fill grey25 ;<span class='nx-[namespace tail [nx::self]]'># boiler
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> oval 55 50 65 90 -fill black ;<span class='nx-[namespace tail [nx::self]]'># smokebox
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 70 32 85 50 -fill black -tag chimney
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 40 52 90 75 -fill black ;<span class='nx-[namespace tail [nx::self]]'># wind diverter
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> oval 130 36 150 52 -fill black ;<span class='nx-[namespace tail [nx::self]]'># dome
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 195 35 215 50 -fill black ;<span class='nx-[namespace tail [nx::self]]'># sandbox
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> oval 260 36 280 52 -fill black ;<span class='nx-[namespace tail [nx::self]]'># dome
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 65 100 90 135 -fill black ;<span class='nx-[namespace tail [nx::self]]'># cylinder
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 90 120 92 122 -fill red -tag p0 ;<span class='nx-[namespace tail [nx::self]]'># crossbar
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 72 87 82 100 -fill black ;<span class='nx-[namespace tail [nx::self]]'># steam tube
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 310 40 370 115 -fill black ;<span class='nx-[namespace tail [nx::self]]'># cab
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 310 32 390 42 -fill grey30 ;<span class='nx-[namespace tail [nx::self]]'># cab roof
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> text 338 82 -text <span class='nx-string'>"01 234"</span> -fill gold -font {Times 7}
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 318 48 333 66 -fill white ;<span class='nx-[namespace tail [nx::self]]'># cab window #1
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 338 48 355 66 -fill white ;<span class='nx-[namespace tail [nx::self]]'># cab window #2
</span>    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 50 -y 150 -r 13 -spokes 12
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 105 -y 150 -r 13 -spokes 12
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 150 -y 150 -r 30 -pivot 0.5 -tag p1
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 215 -y 150 -r 30 -pivot 0.5 -tag p2
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 280 -y 150 -r 30 -pivot 0.5 -tag p3
    :drawRod p0 p1 p2 p3
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 340 -y 150 -r 16 -spokes 12
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 360 110 380 118 -fill black
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 380 65 560 125 -fill black -tag tender
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 560 118 570 122 -fill grey30 ;<span class='nx-[namespace tail [nx::self]]'># buffer
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> line 571 116 571 125
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 390 45 525 65 -fill black -tag tender
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 395 -y 150 -r 13 -spokes 12
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 440 -y 150 -r 13 -spokes 12
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 380 132 456 142 -fill red
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 495 -y 150 -r 13 -spokes 12
    Wheel <span class='nx-keyword'>new</span> -childof [<span class='nx-keyword'>self</span>] -x 540 -y 150 -r 13 -spokes 12
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 480 132 556 142 -fill red -outline red
    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 0 150 600 160 -fill brown ;<span class='nx-[namespace tail [nx::self]]'># earth
</span>    <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> line 0 150 600 150 -fill grey -width 2 ;<span class='nx-[namespace tail [nx::self]]'># rail
</span>    :tick
  }
}

Locomotive <span class='nx-keyword'>new</span></pre></div></div>
</div>
</div>
</div>
<div id="footnotes"><hr /></div>
<div id="footer">
<div id="footer-text">
Last updated 2016-12-23 11:01:33 CET
</div>
</div>
</body>
</html>