git.haldean.org plotter / master plotpaths.lisp
master

Tree @master (Download .tar.gz)

plotpaths.lisp @masterraw · history · blame

(load "package.lisp")
(load "stringutil.lisp")

(in-package :so3-cnc)

(ql:quickload :parse-float)
(ql:quickload :split-sequence)

(defun parse-paths-line (l)
  (let* ((coords-strs (split-sequence:split-sequence #\Space l))
         (coords (mapcar (lambda (s)
                           (mapcar #'parse-float:parse-float (split-sequence:split-sequence #\Comma s)))
                         coords-strs)))
    coords
    ))