# HG changeset patch # User Steve Losh # Date 1517723497 18000 # Node ID 2cb0d67b2cfa652c54ddec3ee9a2fcf266f6165f # Parent d3a901ef3501034ab5df0a20230bac2947278319 Fuckin idiot diff -r d3a901ef3501 -r 2cb0d67b2cfa flax.asd --- 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"))))))) diff -r d3a901ef3501 -r 2cb0d67b2cfa src/looms/002-wobbly-lines.lisp --- 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)