Bugfix: top pan @ S400 w/ STNS

1 month ago · bfce3b3a46
parent 3ce85a4f47
commit bfce3b3a46
1 changed files with 1 additions and 1 deletions
--- a/stair/tread.lsp
+++ b/stair/tread.lsp
@ -703,7 +703,7 @@ Called by %calc-stair-pans"
                         ("sty" "vhvh")
                         ("off" #(cond
                                  ((not (stair-stn-p)) '(0.0 0.0))
-                                  ((= stn_style "STNC3") '(0.0 -0.125))
+                                  ((member stn_style '("STNC3" "STNS")) '(0.0 -0.125))
                                  (T '(0.125 -0.125))))
                         ("ind" #(list (1- rise_qty)))
 			 ("ang" #(angle '(0 0) (list (- rise_hgt (?f stn_thick)) k_dist)))