Adjust size more to fit in a7

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)