From 65487d97496a7a32eff1165c14ec04940216e3ff Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Thu, 22 Feb 2024 18:47:37 +0100 Subject: Support "v" svg path command. --- make-points.scm | 8 ++++++++ 1 file changed, 8 insertions(+) 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 . 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 -- cgit v1.2.3