Support "v" svg path command.

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