diff options
| -rw-r--r-- | stickers.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/stickers.scm b/stickers.scm index 8e8ee10..ca81224 100644 --- a/stickers.scm +++ b/stickers.scm @@ -32,7 +32,9 @@ (define a6-size '(148 . 105)) (define a7-size '(105 . 74)) -(define page-size a6-size) +; Move this to a configuration file or something +(define sticker-radius 3.82); mm +(define page-size a7-size) ;; 96 Stickers at this size (define x car) (define y cdr) @@ -40,9 +42,6 @@ (define (mm i) (string-append (num i) "mm")) - -; Move this to a configuration file or something -(define sticker-radius 4); mm (define style (string-append " text { @@ -52,7 +51,7 @@ text { .cuts { fill: none; stroke-width: 0.1; - stroke: grey; + stroke: red; } ")) @@ -102,7 +101,7 @@ text { center position of the text. It gets a `glyph` record as an input." (lambda (cx cy) `(text (@ (x ,cx) - (y ,cy) + (y ,(+ 0.1 cy)) (style ,(string-append "font-style: " (glyph-style glyph) "; font-size: " (glyph-size glyph) "; font-family: " (glyph-font glyph) |