test/test.lisp @ 19aeb5ea3df9

Switch to 3d-vectors (partially)
author Steve Losh <steve@stevelosh.com>
date Wed, 04 Apr 2018 23:37:07 -0400
parents d5b02d8c4803
children ebe16cb914fb
(ql:quickload '(:flax :losh))

(defun check (loom)
  (terpri)
  (losh:pr 'checking loom)
  (funcall loom nil "out" (losh:random-elt '(:png :svg :plot)) 500 500)
  (losh:pr 'ok))

(progn
  (check #'flax.looms.001-triangles:loom)
  (check #'flax.looms.002-wobbly-lines:loom)
  (check #'flax.looms.003-basic-l-systems:loom)
  (check #'flax.looms.004-turtle-curves:loom)
  (check #'flax.looms.005-simple-triangulations:loom)
  (check #'flax.looms.006-tracing-lines:loom)
  (check #'flax.looms.007-stipple:loom))