parent
47956011dc
commit
25040150a5
File diff suppressed because one or more lines are too long
@ -0,0 +1,549 @@
|
||||
<!doctype html>
|
||||
<html>
|
||||
<head>
|
||||
<title>stair/tread.lsp | PSC Code Manual</title>
|
||||
<link rel="stylesheet" href="style.css" />
|
||||
</head>
|
||||
<body>
|
||||
<h1><a href="./index.html">PSC Code Manual</a></h1>
|
||||
<div id="content">
|
||||
|
||||
<h2>stair/tread.lsp <a href="../../stair/tread.lsp">[src]</a></h2>
|
||||
<pre class="fulldoc">Functions related to stair tread/riser assemblies</pre>
|
||||
<table>
|
||||
<thead>
|
||||
<h3>Functions</h3>
|
||||
<th>Function signature</th>
|
||||
<th>Description</th>
|
||||
</thead>
|
||||
<tbody>
|
||||
|
||||
<tr><td colspan="3">Public</td></tr>
|
||||
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-conc">(<span class="funcname">add-stair-conc</span> stair-block)</a></td>
|
||||
<td>Adds concrete tread lines to STAIR-BLOCK</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-qtread">(<span class="funcname">add-stair-qtread</span> stair-block layer)</a></td>
|
||||
<td>Adds Quiet Tread to checker plate stair treads in STAIR-BLOCK on LAYER</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-stn">(<span class="funcname">add-stair-stn</span> stair-block layer)</a></td>
|
||||
<td>Adds STN to STAIR-BLOCK on LAYER</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads">(<span class="funcname">add-stair-treads</span> stair-block layer)</a></td>
|
||||
<td>Add treads to STAIR-BLOCK on LAYER</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-nose-pts">(<span class="funcname">calc-nose-pts</span>)</a></td>
|
||||
<td>Return a list of nosing points relative to stair insert</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans">(<span class="funcname">calc-stair-pans</span>)</a></td>
|
||||
<td>Returns a list of stair pans</td>
|
||||
</tr>
|
||||
|
||||
|
||||
<tr><td colspan="3">Private</td></tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-stn--100">(<span class="funcname">add-stair-stn--100</span> ins)</a></td>
|
||||
<td>Adds STN to STAIR-BLOCK at INS for 100 series stair</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-stn--200">(<span class="funcname">add-stair-stn--200</span> ins)</a></td>
|
||||
<td>Adds STN to STAIR-BLOCK at INS for 200 series stair</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-stn--400">(<span class="funcname">add-stair-stn--400</span> ins)</a></td>
|
||||
<td>Adds STN to STAIR-BLOCK at INS for 400 series stair</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--add-pan">(<span class="funcname">add-stair-treads--add-pan</span> stair-block ins pan)</a></td>
|
||||
<td>Adds a PAN to STAIR-BLOCK at INS</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--grating">(<span class="funcname">add-stair-treads--grating</span>)</a></td>
|
||||
<td>Adds grating treads to STAIR-BLOCK</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan">(<span class="funcname">add-stair-treads--pan</span>)</a></td>
|
||||
<td>Add pan treads to STAIR-BLOCK on LAYER</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-h">(<span class="funcname">add-stair-treads--pan-pts-h</span> a h1)</a></td>
|
||||
<td>Returns vertices for an h style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-hv">(<span class="funcname">add-stair-treads--pan-pts-hv</span> a h1 v1)</a></td>
|
||||
<td>Returns vertices for an hv style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-hvh">(<span class="funcname">add-stair-treads--pan-pts-hvh</span> a h1 v1 h2)</a></td>
|
||||
<td>Returns vertices for an hvh style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-v">(<span class="funcname">add-stair-treads--pan-pts-v</span> a v1)</a></td>
|
||||
<td>Returns vertices for a v style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-vh">(<span class="funcname">add-stair-treads--pan-pts-vh</span> a v1 h1)</a></td>
|
||||
<td>Returns vertices for a vh style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-vhv">(<span class="funcname">add-stair-treads--pan-pts-vhv</span> a v1 h1 v2)</a></td>
|
||||
<td>Returns vertices for a vhv style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#add-stair-treads--pan-pts-vhvh">(<span class="funcname">add-stair-treads--pan-pts-vhvh</span> a v1 h1 v2 h2)</a></td>
|
||||
<td>Returns vertices for a vhvh style pan</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-conc-lines--100">(<span class="funcname">calc-conc-lines--100</span>)</a></td>
|
||||
<td>Returns concrete lines for 100 series</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-conc-lines--400">(<span class="funcname">calc-conc-lines--400</span>)</a></td>
|
||||
<td>Returns concrete lines for 400 series</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-conc-lines--add-line">(<span class="funcname">calc-conc-lines--add-line</span> x1 x2)</a></td>
|
||||
<td>Helper function for calc-conc-lines-- functions that adds a line to conc-pts</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-conc-lines--add-line-mid">(<span class="funcname">calc-conc-lines--add-line-mid</span> x1 x2-adj)</a></td>
|
||||
<td>Helper function for calc-conc-lines-- functions that adds a line to conc-pts</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--100">(<span class="funcname">calc-stair-pans--100</span>)</a></td>
|
||||
<td>Returns a list of 100 series pans</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--100-no-stn">(<span class="funcname">calc-stair-pans--100-no-stn</span>)</a></td>
|
||||
<td>Returns a list of 100 series pans without STN</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--100-stn">(<span class="funcname">calc-stair-pans--100-stn</span>)</a></td>
|
||||
<td>Returns a list of 100 series pans with STN</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--200">(<span class="funcname">calc-stair-pans--200</span>)</a></td>
|
||||
<td>Returns a list of 200 series pans</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--200-no-stn">(<span class="funcname">calc-stair-pans--200-no-stn</span>)</a></td>
|
||||
<td>Returns a list of 200 series pans without STN</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--200-stn">(<span class="funcname">calc-stair-pans--200-stn</span>)</a></td>
|
||||
<td>Returns a list of 200 series pans with STN</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--200-sub-nosings">(<span class="funcname">calc-stair-pans--200-sub-nosings</span>)</a></td>
|
||||
<td>Returns a list of sub nosing pans for 200 series with STN</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td class="funcsig"><a href="stair-tread.html#calc-stair-pans--400">(<span class="funcname">calc-stair-pans--400</span>)</a></td>
|
||||
<td>Returns a list of 400 series stair pans</td>
|
||||
</tr>
|
||||
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-conc" class="funcsig">(<span class="funcname">add-stair-conc</span> stair-block)</h3>
|
||||
<pre class="fulldoc">Adds concrete tread lines to STAIR-BLOCK
|
||||
|
||||
WITH-DATA
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-qtread" class="funcsig">(<span class="funcname">add-stair-qtread</span> stair-block layer)</h3>
|
||||
<pre class="fulldoc">Adds Quiet Tread to checker plate stair treads in STAIR-BLOCK on LAYER
|
||||
|
||||
Note: main treads only. See <a href="stair-details.html#chkr-haunch-common">chkr-haunch-common</a> and <a href="stair-details.html#add-qt">add-qt</a> for haunches.
|
||||
|
||||
WITH-DATA
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(LAYER STR)</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-stn" class="funcsig">(<span class="funcname">add-stair-stn</span> stair-block layer)</h3>
|
||||
<pre class="fulldoc">Adds STN to STAIR-BLOCK on LAYER
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(LAYER STR)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads" class="funcsig">(<span class="funcname">add-stair-treads</span> stair-block layer)</h3>
|
||||
<pre class="fulldoc">Add treads to STAIR-BLOCK on LAYER
|
||||
|
||||
This function sets some defaults and calls either <a href="stair-tread.html#add-stair-treads--grating">add-stair-treads--grating</a>
|
||||
or <a href="stair-tread.html#add-stair-treads--pan">add-stair-treads--pan</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(LAYER STR)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-nose-pts" class="funcsig">(<span class="funcname">calc-nose-pts</span>)</h3>
|
||||
<pre class="fulldoc">Return a list of nosing points relative to stair insert
|
||||
|
||||
WITH-DATA
|
||||
|
||||
VARS:
|
||||
(DIR nil (NUMBERP DIR))
|
||||
(TREAD_DEPTH nil (NUMBERP TREAD_DEPTH))
|
||||
(RISE_HGT nil (NUMBERP RISE_HGT))
|
||||
(BOT_CDIST nil (NUMBERP BOT_CDIST))
|
||||
(BOT_EXT nil (NUMBERP BOT_EXT))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans" class="funcsig">(<span class="funcname">calc-stair-pans</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of stair pans
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-stn--100" class="funcsig">(<span class="funcname">add-stair-stn--100</span> ins)</h3>
|
||||
<pre class="fulldoc">Adds STN to STAIR-BLOCK at INS for 100 series stair
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-stn">add-stair-stn</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(INS LIST (POINT-P INS))
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-stn--200" class="funcsig">(<span class="funcname">add-stair-stn--200</span> ins)</h3>
|
||||
<pre class="fulldoc">Adds STN to STAIR-BLOCK at INS for 200 series stair
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-stn">add-stair-stn</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(INS LIST (POINT-P INS))
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-stn--400" class="funcsig">(<span class="funcname">add-stair-stn--400</span> ins)</h3>
|
||||
<pre class="fulldoc">Adds STN to STAIR-BLOCK at INS for 400 series stair
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-stn">add-stair-stn</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(INS LIST (POINT-P INS))
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--add-pan" class="funcsig">(<span class="funcname">add-stair-treads--add-pan</span> stair-block ins pan)</h3>
|
||||
<pre class="fulldoc">Adds a PAN to STAIR-BLOCK at INS
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--pan">add-stair-treads--pan</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(INS LIST (POINT-P INS))
|
||||
(PAN LIST)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--grating" class="funcsig">(<span class="funcname">add-stair-treads--grating</span>)</h3>
|
||||
<pre class="fulldoc">Adds grating treads to STAIR-BLOCK
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads">add-stair-treads</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(LAYER STR)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan" class="funcsig">(<span class="funcname">add-stair-treads--pan</span>)</h3>
|
||||
<pre class="fulldoc">Add pan treads to STAIR-BLOCK on LAYER
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads">add-stair-treads</a>
|
||||
|
||||
VARS:
|
||||
(STAIR-BLOCK VLA-OBJECT)
|
||||
(LAYER STR)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-h" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-h</span> a h1)</h3>
|
||||
<pre class="fulldoc">Returns vertices for an h style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(H1 nil (NUMBERP H1))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-hv" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-hv</span> a h1 v1)</h3>
|
||||
<pre class="fulldoc">Returns vertices for an hv style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(H1 nil (NUMBERP H1))
|
||||
(V1 nil (NUMBERP V1))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-hvh" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-hvh</span> a h1 v1 h2)</h3>
|
||||
<pre class="fulldoc">Returns vertices for an hvh style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(H1 nil (NUMBERP H1))
|
||||
(V1 nil (NUMBERP V1))
|
||||
(H2 nil (NUMBERP H2))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-v" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-v</span> a v1)</h3>
|
||||
<pre class="fulldoc">Returns vertices for a v style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(V1 nil (NUMBERP V1))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-vh" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-vh</span> a v1 h1)</h3>
|
||||
<pre class="fulldoc">Returns vertices for a vh style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(V1 nil (NUMBERP V1))
|
||||
(H1 nil (NUMBERP H1))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-vhv" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-vhv</span> a v1 h1 v2)</h3>
|
||||
<pre class="fulldoc">Returns vertices for a vhv style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(V1 nil (NUMBERP V1))
|
||||
(H1 nil (NUMBERP H1))
|
||||
(V2 nil (NUMBERP V2))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="add-stair-treads--pan-pts-vhvh" class="funcsig">(<span class="funcname">add-stair-treads--pan-pts-vhvh</span> a v1 h1 v2 h2)</h3>
|
||||
<pre class="fulldoc">Returns vertices for a vhvh style pan
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-treads--add-pan">add-stair-treads--add-pan</a>
|
||||
|
||||
VARS:
|
||||
(A nil (NUMBERP A))
|
||||
(V1 nil (NUMBERP V1))
|
||||
(H1 nil (NUMBERP H1))
|
||||
(V2 nil (NUMBERP V2))
|
||||
(H2 nil (NUMBERP H2))</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-conc-lines--100" class="funcsig">(<span class="funcname">calc-conc-lines--100</span>)</h3>
|
||||
<pre class="fulldoc">Returns concrete lines for 100 series
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-conc">add-stair-conc</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-conc-lines--400" class="funcsig">(<span class="funcname">calc-conc-lines--400</span>)</h3>
|
||||
<pre class="fulldoc">Returns concrete lines for 400 series
|
||||
|
||||
Called by <a href="stair-tread.html#add-stair-conc">add-stair-conc</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-conc-lines--add-line" class="funcsig">(<span class="funcname">calc-conc-lines--add-line</span> x1 x2)</h3>
|
||||
<pre class="fulldoc">Helper function for calc-conc-lines-- functions that adds a line to conc-pts
|
||||
|
||||
x1 and x2 are relative to the nosing point
|
||||
|
||||
VARS:
|
||||
(X1 REAL)
|
||||
(X2 REAL)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-conc-lines--add-line-mid" class="funcsig">(<span class="funcname">calc-conc-lines--add-line-mid</span> x1 x2-adj)</h3>
|
||||
<pre class="fulldoc">Helper function for calc-conc-lines-- functions that adds a line to conc-pts
|
||||
|
||||
x1 is relative to the nosing point. x2-adj is relative to x1+tread+kick
|
||||
|
||||
VARS:
|
||||
(X1 REAL)
|
||||
(X2-ADJ REAL)
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--100" class="funcsig">(<span class="funcname">calc-stair-pans--100</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 100 series pans
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans">calc-stair-pans</a>
|
||||
|
||||
This function just sets some defaults and calls either
|
||||
<a href="stair-tread.html#calc-stair-pans--100-no-stn">calc-stair-pans--100-no-stn</a> or <a href="stair-tread.html#calc-stair-pans--100-stn">calc-stair-pans--100-stn</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--100-no-stn" class="funcsig">(<span class="funcname">calc-stair-pans--100-no-stn</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 100 series pans without STN
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans--100">calc-stair-pans--100</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--100-stn" class="funcsig">(<span class="funcname">calc-stair-pans--100-stn</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 100 series pans with STN
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans--100">calc-stair-pans--100</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--200" class="funcsig">(<span class="funcname">calc-stair-pans--200</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 200 series pans
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans">calc-stair-pans</a>
|
||||
|
||||
This function just sets some defaults and calls either
|
||||
<a href="stair-tread.html#calc-stair-pans--200-no-stn">calc-stair-pans--200-no-stn</a> or <a href="stair-tread.html#calc-stair-pans--200-stn">calc-stair-pans--200-stn</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--200-no-stn" class="funcsig">(<span class="funcname">calc-stair-pans--200-no-stn</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 200 series pans without STN
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans--200">calc-stair-pans--200</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--200-stn" class="funcsig">(<span class="funcname">calc-stair-pans--200-stn</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 200 series pans with STN
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans--200">calc-stair-pans--200</a>
|
||||
|
||||
Attaches the results of <a href="stair-tread.html#calc-stair-pans--200-sub-nosings">calc-stair-pans--200-sub-nosings</a> to the regular pans it
|
||||
calculates.
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--200-sub-nosings" class="funcsig">(<span class="funcname">calc-stair-pans--200-sub-nosings</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of sub nosing pans for 200 series with STN
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans--200-stn">calc-stair-pans--200-stn</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
<section>
|
||||
<h3 id="calc-stair-pans--400" class="funcsig">(<span class="funcname">calc-stair-pans--400</span>)</h3>
|
||||
<pre class="fulldoc">Returns a list of 400 series stair pans
|
||||
|
||||
Called by <a href="stair-tread.html#calc-stair-pans">calc-stair-pans</a>
|
||||
|
||||
WITH-DATA</pre>
|
||||
</section>
|
||||
|
||||
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
@ -1,91 +0,0 @@
|
||||
(set-file-docstring "Pan shape definition functions")
|
||||
|
||||
(defun-q add-pan (container ins)
|
||||
"Adds a stair pan to a container"
|
||||
(expect-with-data "add-pan")
|
||||
(offset&close
|
||||
(add-polyline container ins
|
||||
(mapcar
|
||||
'(lambda (pts) (mapcar '* (list dir 1 1) pts))
|
||||
(if (member sty '("h" "v" "hv" "vh" "hvh" "vhv" "vhvh"))
|
||||
(apply (read (strcat "pan-" sty)) def)
|
||||
(error "add-pan: style not found")
|
||||
) ;_ if
|
||||
) ;_ mapcar
|
||||
nil
|
||||
) ;_ add-polyline
|
||||
(* dir thk)
|
||||
nil
|
||||
nil
|
||||
) ;_ offset&close
|
||||
) ;_ defun-q add-pan
|
||||
(defun-r 'add-pan)
|
||||
|
||||
(defun-q pan-h (a h1)
|
||||
"calculates vertices for an h style pan"
|
||||
(list (list h1 0 0) '(0 0 0))
|
||||
) ;_ defun-q pan-h
|
||||
(defun-r 'pan-h)
|
||||
|
||||
(defun-q pan-v (a v1)
|
||||
"calculates vertices for a v style pan"
|
||||
(list
|
||||
(list (* (tan a) v1) (- v1) 0)
|
||||
'(0 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-v
|
||||
(defun-r 'pan-v)
|
||||
|
||||
(defun-q pan-hv (a h1 v1)
|
||||
"calculates vertices for an hv style pan"
|
||||
(list
|
||||
(list (- h1) (- v1) 0)
|
||||
(list (* (tan a) v1) (- v1) 0)
|
||||
'(0 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-hv
|
||||
(defun-r 'pan-hv)
|
||||
|
||||
(defun-q pan-vh (a v1 h1)
|
||||
"calculates vertices for a vh style pan"
|
||||
(list
|
||||
(list (* (tan a) v1) (- v1) 0)
|
||||
'(0 0 0)
|
||||
(list h1 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-vh
|
||||
(defun-r 'pan-vh)
|
||||
|
||||
(defun-q pan-hvh (a h1 v1 h2)
|
||||
"calculates vertices for an hvh style pan"
|
||||
(list
|
||||
(list (- h1) (- v1) 0)
|
||||
(list (* (tan a) v1) (- v1) 0)
|
||||
'(0 0 0)
|
||||
(list h2 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-hvh
|
||||
(defun-r 'pan-hvh)
|
||||
|
||||
(defun-q pan-vhv (a v1 h1 v2)
|
||||
"calculates vertices for a vhv style pan"
|
||||
(list
|
||||
(list (+ (- h1) (* (tan a) v1)) (- (+ v1 v2)) 0)
|
||||
(list (- h1) (- v2) 0)
|
||||
(list (* (tan a) v2) (- v2) 0)
|
||||
'(0 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-vhv
|
||||
(defun-r 'pan-vhv)
|
||||
|
||||
(defun-q pan-vhvh (a v1 h1 v2 h2)
|
||||
"calculates vertices for a vhvh style pan"
|
||||
(list
|
||||
(list (+ (- h1) (* (tan a) v1)) (- (+ v1 v2)) 0)
|
||||
(list (- h1) (- v2) 0)
|
||||
(list (* (tan a) v2) (- v2) 0)
|
||||
'(0 0 0)
|
||||
(list h2 0 0)
|
||||
) ;_ list
|
||||
) ;_ defun-q pan-vhvh
|
||||
(defun-r 'pan-vhvh)
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in new issue