--- a/flax.asd Sun Feb 04 00:02:49 2018 -0500
+++ b/flax.asd Sun Feb 04 00:51:37 2018 -0500
@@ -22,5 +22,6 @@
(:file "drawing")
(:module "looms" :serial nil
:components
- ((:file "001-triangles")))))))
+ ((:file "001-triangles")
+ (:file "002-wobbly-lines")))))))
--- a/src/looms/002-wobbly-lines.lisp Sun Feb 04 00:02:49 2018 -0500
+++ b/src/looms/002-wobbly-lines.lisp Sun Feb 04 00:51:37 2018 -0500
@@ -7,6 +7,7 @@
(define-with-macro (line :conc-name "") points)
+
;;;; Element Conversion -------------------------------------------------------
(defun convert (line total-ticks)
(list (flax.drawing::path (coerce (points line) 'list)
@@ -20,6 +21,7 @@
(for x :from 0.0 :to (+ 1.0 least-positive-single-float) :by (/ 1.0 segments))
(collect (coord x 0.5) :result-type 'vector))))
+
;;;; Tick ---------------------------------------------------------------------
(defun perturb-line (line)
(map nil (lambda (c)