Merge branch 'oct02' into main

Author: ukoloff

src/g/check-size.ls

@@ -0,0 +1,17 @@
+#
+# Test if part fits into workpiece
+#
+module.exports = check-size
+
+!function check-size
+  require! <[
+    ./state
+    ./croak
+  ]>
+
+  state.job
+    size = ..size
+    g = ..global
+  if size[0] < g.W and size[1] < g.D / 2
+    return
+  croak "Деталь (#{size.join 'x'}) меньше заготовки (#{g.W}x#{g.D / 2})"

src/g/order.ls

@@ -11,6 +11,7 @@ module.exports = order
 # true  = right
 function order side
   require! <[
+    ./check-size
     ../math/rect/union
     ../math/rect/size
     ../math/path/bounds
@@ -73,6 +74,8 @@ function order side
   state.job <<<
     bounds: R
     size:   size R
+  check-size!
+
   O2 = if side
     translation [-R[1][0], 0]
   else