Change wall rail splice rule

4 weeks ago · d124c765ba
parent 7060aea1b4
commit d124c765ba
1 changed files with 1 additions and 1 deletions
--- a/fab/wall-rail.lsp
+++ b/fab/wall-rail.lsp
@ -18,7 +18,7 @@
          (setq ab (fix (rnd-up (/ (+ run tread_depth) (cos (dtr pitch))) 1))
                lvl-p (= rail_lvl-off "1")
                cut-len (+ ab (if lvl-p 54 37))
-                splice-p (> cut-len 220)
+                splice-p (>= ab 143)
                header (#! '(("mark" "WR")
                             ("stair_number" #number)
                             ("level" #level)