<!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 overriden 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 <Richard Suchenwirth> <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> < <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]<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><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><1></b> [:callback throttle] bind <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <b><2></b> [:callback <span class='nx-keyword'>break</span>] bind <span class='nx-[namespace tail [nx::self]]'>${</span><span class='nx-variable'>:c}</span> <b><3></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>