From 34f07d7b2ea286911c6d16e340992d118d081bf8 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sat, 5 Oct 2024 23:34:11 +0200 Subject: Adjust size more to fit in a7 --- stickers.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'stickers.scm') 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) -- cgit v1.2.3