summaryrefslogtreecommitdiff
path: root/utils/cover
diff options
context:
space:
mode:
Diffstat (limited to 'utils/cover')
-rw-r--r--utils/cover/cover.scm70
1 files changed, 42 insertions, 28 deletions
diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index ad29717..aa2035c 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -12,10 +12,11 @@
;; CONTENTS
(define isbn "9780201379624")
-(define book-title "Qué es la informática")
-(define book-title-before "Qué es la")
-(define book-title-word "Informática")
-(define book-title-after "")
+(define book-title "Programación en Python")
+(define book-subtitle "Introducción a la programación y al lenguaje")
+(define book-title-before "") ; TODO: Thinking about removing this
+(define book-title-word book-title)
+(define book-title-after book-subtitle)
(define book-category "Básico")
(define book-authors '("Giacomo Tesio" "Ekaitz Zarraga"))
(define book-summary "
@@ -76,16 +77,17 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
(define text-size (exact->inexact (/ page-height 70))); mm
(define category-size (* 1.5 text-size)); mm
-(define authors-size (* 2 text-size))
+(define authors-size (* 1.8 text-size))
(define title-size (* 2.5 text-size)); mm
(define main-title-size ; mm
(let ((size (exact->inexact
- (* 2.1
+ (* 3
(/ page-width
(length (string->list book-title-word)))))))
(if (< (/ page-height 4) size)
(exact->inexact (/ page-height 4))
size)))
+(define main-subtitle-size (* 2 text-size))
(define width (+ (* 2 margin) (* 2 page-width) spine-width)) ;mm
(define height (+ (* 2 margin) page-height)) ;mm
@@ -174,25 +176,19 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
.main-title {
font-size: "(num main-title-size)";
font-family: 'Pathway Gothic One';
- text-anchor: middle;
}
.main-title-before {
- font-size: "(num (* 1.5 title-size))";
- -inkscape-font-specification:'Lato Light';
- font-family:Lato;
+ font-size: "(num (* 1 title-size))";
+ font-family: 'Pathway Gothic One';
font-weight:300;
- font-style:normal;
- font-stretch:normal;
- font-variant:normal;
}
.main-title-after {
- font-size: "(num (* 1 title-size))";
- -inkscape-font-specification:'Lato LightItalic';
+ font-size: "(num main-subtitle-size)";
+ -inkscape-font-specification:'Lato Light Italic';
+ line-height: 0.9;
+ font-style: italic;
font-family:Lato;
- font-weight:300;
- font-style:italic;
- font-stretch:normal;
- font-variant:normal;
+ font-weight: 300;
text-anchor: end;
}
.author {
@@ -357,7 +353,8 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
(y ,(+ margin (* 0.95 page-height))))
"Q")
(elenq-logo "PUBLISHING"
- (* spine-width 0.1 0.75)
+ ; Max logo size is as the spine was 40mm thick
+ (* (if (< 40 spine-width) 40 spine-width) 0.1 0.75)
(+ margin page-width (* 0.5 spine-width)) ;anchor is centered
(+ margin (* 0.95 page-height))))
@@ -390,25 +387,42 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
margin)))
(y ,(+ margin (* 0.30 page-height))))
,book-title-before)
+
(text (@ (class "main-title")
- (x ,(exact->inexact (- width (/ page-width 2) margin)))
+ (textLength ,(* page-width 6/8))
+ (lengthAdjust ,"spacingAndGlyphs")
+ (x ,(exact->inexact (- width
+ (- page-width (/ page-width 8))
+ margin)))
(y ,(+ main-title-size margin (* 0.30 page-height))))
,(string-upcase book-title-word))
-
- ; TODO PENSAR SI QUITAR ESTO
#;(text (@ (class "main-title-after")
- (x ,(exact->inexact (- width (/ page-width 8) margin)))
- (y ,(+ main-title-size margin (* 0.37 page-height))))
- "Subtítulo que puede ser una frase resumen")
+ (x ,(exact->inexact (- width (/ page-width 8) margin)))
+ (y ,(+ main-title-size
+ (* 1.25 title-size)
+ margin
+ (* 0.30 page-height))))
+ ,book-title-after)
+
+ ; TODO WORK ON THIS
+ ,(textArea book-title-after
+ "main-title-after"
+ (exact->inexact (- width (- page-width (/ page-width 8)) margin))
+ (+ main-title-size
+ (* main-subtitle-size 0.5)
+ margin
+ (* 0.30 page-height))
+ (* page-width 6/8)
+ (* 2 1.25 main-subtitle-size))
,(map (lambda (author pos)
`(text (@ (class "author")
(x ,(exact->inexact (- width (/ page-width 8) margin)))
(y ,(+ main-title-size
margin
- (* 0.37 page-height)
- (* pos (* 1.5 authors-size)))))
+ (* 0.35 page-height)
+ (* (+ 2 pos) (* 1.5 authors-size)))))
,author))
book-authors
(iota (length book-authors)))