diff options
| author | Steven <steven.vasilogianis@gmail.com> | 2019-05-29 22:01:43 -0400 |
|---|---|---|
| committer | Steven <steven.vasilogianis@gmail.com> | 2019-05-29 22:01:43 -0400 |
| commit | 2f8844b98d0d97ab32caba937a5e1547f2666f21 (patch) | |
| tree | c137740f36acaca07bfd691c965a64f50a29fb64 | |
| parent | 293a45b57769ac1ef52bdab370ccf32851a8fc4b (diff) | |
Now with cut lists
| -rw-r--r-- | OpenSCAD/Carpentry.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/OpenSCAD/Carpentry.hs b/OpenSCAD/Carpentry.hs index 060754d..b6d1e73 100644 --- a/OpenSCAD/Carpentry.hs +++ b/OpenSCAD/Carpentry.hs | |||
| @@ -103,6 +103,15 @@ assemble c = (cutlist, model) | |||
| 103 | -- boardAt p = | 103 | -- boardAt p = |
| 104 | component name dim orient pos = (name, dim, orient, pos) | 104 | component name dim orient pos = (name, dim, orient, pos) |
| 105 | 105 | ||
| 106 | --data CName = String | ||
| 107 | |||
| 108 | --data Component name dim pos = ( | ||
| 109 | |||
| 110 | -- data Component = Component { | ||
| 111 | -- name :: String, | ||
| 112 | -- , dim :: V3 Double | ||
| 113 | -- , orient :: | ||
| 114 | |||
| 106 | -- ass :: | 115 | -- ass :: |
| 107 | -- ass v = show v | 116 | -- ass v = show v |
| 108 | 117 | ||