Bugfix: dim to steel @ S400

1 month ago · 11fe246123
parent 70073c8d6f
commit 11fe246123
1 changed files with 1 additions and 1 deletions
--- a/stair/details.lsp
+++ b/stair/details.lsp
@ -59,7 +59,7 @@ the reverse direction."
  (setq x1 (if (= (sidekey "nosing_top") 0)
               (sidekey "string_xtra_tex")
               (?f top_pan_ext))
-        y1 (if (and (begins-with tread_style "1")
+        y1 (if (and (member (substr tread_style 1 1) '("1" "4"))
                    (/= stn_style "None"))
               (- stn_thick)
               0)