near/heyarne.aphorisms
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Slight improvement to scene->gcode-seq

Browse source
This commit is contained in:
arne 2022-12-09 19:36:26 +01:00
commit c1e6e6c9c6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/heyarne/line_us/gcode.clj
View file

@ -65,7 +65,7 @@
result []]
(cond
(nil? el) result
(sequential? el) (recur rs (vec (concat result (scene->gcode-seq el opts)))) ;; recursively convert sequences
(sequential? el) (recur rs (into result (scene->gcode-seq el opts))) ;; recursively convert sequences
(geom? el) (recur rs (conj result (if res (gcode-seq el res) (gcode-seq el)))) ;; convert geoms
(map? el) (recur rs result))))) ;; ignore attribute maps
@ -106,8 +106,8 @@
;; "G01 X0.8090169943749473 Y-0.5877852522924734 Z0"
;; "G01 X0.9510565162951535 Y-0.3090169943749476 Z0"
;; "G01 X0.9510565162951535 Y-0.3090169943749476 Z1000")
;; `scene->gcode-seq` converts a tree of arbitrarily nested elements into a
;; sequence of gcode drawing instructions
;; `scene->gcode-seq` converts a tree of arbitrarily nested elements into a
;; sequence of gcode drawing instructions
(scene->gcode-seq
[[(r/rect [0 0] [10 10]) {:attributes/ignored? true}]