diff options
| -rw-r--r-- | pict.scm | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -752,7 +752,8 @@ of the SVG of PICT or #F." ;; Take value up to unit and convert to number (let ((index (string-skip s char-set:digit))) (string->number (substring s 0 index)))) - ((? number? n) n))) + ((? number? n) n) + (_ 150))) (define (pict-width pict) "Return the numeric width of PICT." @@ -761,7 +762,8 @@ of the SVG of PICT or #F." ;; Take value up to unit and convert to number (let ((index (string-skip s char-set:digit))) (string->number (substring s 0 index)))) - ((? number? n) n))) + ((? number? n) n) + (_ 150))) (define (pict-rotation pict) "Return the rotation of PICT." |