diff options
| -rwxr-xr-x | make-points.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/make-points.scm b/make-points.scm index abbdaba..7fa9ec8 100755 --- a/make-points.scm +++ b/make-points.scm @@ -130,6 +130,14 @@ Copyright (C) 2023 Wojtek Kosior <koszko@koszko.org> . rest)) (let* ((relative-coords (map string->number (list coord1 coord2))) (position* (map + position relative-coords))) + (loop position* command (cons position* path-points) rest))) + + ((or (_ ('Pcommand (and "v" command)) ('Parg coord) + . rest) + ((and "v" command) ('Parg coord) + . rest)) + (let* ((relative-coord (string->number coord)) + (position* (map + position (list 0 relative-coord)))) (loop position* command (cons position* path-points) rest)))))) (define point-coords |