11 -> tread_depth

rail/util.lsp

@@ -109,10 +109,10 @@ Handles giving rails -L and -R sequence when rail is the same type both sides."
   (setq botx (if (= (sidekey-rail "bot_dloop") "0")
                  (- 3 (min bot_ext tread_depth) (sidekey-rail "bot_ext"))
                  (if (= rail_lvl-off "0")
-                     (min -11
+                     (min (- tread_depth)
                           ;; account for minimum 6" horizontal leg @ 3-bend lower
                           (- 3.125 bot_ext (sidekey-rail "bot_ext") 6))
-                     -11))
+                     (- tread_depth)))
         topx (+ run
                 (if (= (sidekey-rail "top_dloop") "0")
                     (- (sidekey-rail "top_ext") 3)

stair/tread.lsp

@@ -745,7 +745,7 @@ Called by %add-stair-treads"
   ) ;_ defun
   (if (= starter_p "0")
       (add (+ bot_ext bot_cdist) '(0 0)))
-  (mapcar '(lambda (ins) (add 11.0 ins)) (remove-last nose-pts))
+  (mapcar '(lambda (ins) (add tread_depth ins)) (remove-last nose-pts))
   (add (+ top_ext top_cdist) (last nose-pts)))
 (defun-r 'add-stair-treads--grating)