Bugfix: inner angle detail length @ non-haunch x4x

stair/details/beams.lsp

@@ -57,9 +57,13 @@
 ;; part detail for inner angle
 ;; depends on x4x-material-vars being set
 (defun x4x-inner-angle-detail (tb / this-bolt-y len h1 h2)
-  (setq len (- btwn_stringers 0.0625)
-        h1 (- (tbkey "hbolt") l-string_wid 0.03125)
-        h2 (- (tbkey "hbolt") r-string_wid 0.03125))
+  (if (wcmatch (tbkey "conn") "*haunch*")
+      (setq len (- btwn_stringers 0.0625)
+            h1 (- (tbkey "hbolt") l-string_wid 0.03125)
+            h2 (- (tbkey "hbolt") r-string_wid 0.03125))
+      (setq len (- btwn_stringers 0.25)
+            h1 (- (tbkey "hbolt") l-string_wid 0.125)
+            h2 (- (tbkey "hbolt") r-string_wid 0.125)))
   (list "detail"
         (if (= bolt-qty 2)
             (list '2h-angle