diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/cover/cover.scm | 81 |
1 files changed, 40 insertions, 41 deletions
diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm index 3af66ff..efa3af7 100644 --- a/utils/cover/cover.scm +++ b/utils/cover/cover.scm @@ -37,7 +37,7 @@ luctus. Fusce pharetra ipsum fringilla quam faucibus, ut lobortis risus varius. Ut nec sem lectus. Integer porta justo a augue sodales, nec malesuada libero varius. Sed convallis cursus efficitur. Cras maximus, ligula et dapibus ultrices, sapien lectus pellentesque purus, nec dignissim augue dolor eu -ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. +ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. ") (define company-info "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad @@ -244,10 +244,11 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. ; BLACK BACKGROUND FOR SUMMARY - (g (@ (transform ,(string-append - ; TODO extender lo negro en el margen - "translate("(num margin)"," (num (+ margin (* 0.05 page-height))) ") - scale(" (num (* 0.95 page-width)) ")"))) + (g (@ (transform + ,(string-append + ; TODO extender lo negro en el margen + "translate( 0," (num (+ margin (* 0.05 page-height))) ") + scale(" (num (+ margin (* 0.95 page-width))) ")"))) (path (@ (id "black-part") (d "M 1.00, 0.10 L 0.30, 0.00 L 0.00, 0.16 L 0.00, 0.67 L 0.45, 0.76 L 0.97, 0.67 Z")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -255,30 +256,30 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ,(map (lambda (posx posy rot) - `(g (@ (id ,(string-append "marks-" - (num posx) - "-" - (num posy))) + `(g (@ (id ,(string-append "marks-" + (num posx) + "-" + (num posy))) (transform ,rot)) - (line (@ - (x1 ,(+ posx)) - (y1 ,(+ posy margin)) - (x2 ,(+ posx (* 0.6 margin))) - (y2 ,(+ posy margin)) - (class "margin-mark"))) - (line (@ - (x1 ,(+ posx margin)) - (y1 ,(+ posy)) - (x2 ,(+ posx margin)) - (y2 ,(+ posy (* 0.6 margin))) - (class "margin-mark"))))) - - (list 0 0 width width) - (list 0 height 0 height) - (list "rotate(0,0,0)" - (string-append "rotate(-90, 0," (num height) ")") - (string-append "rotate(-270," (num width) ", 0)") - (string-append "rotate(-180," (num width) "," (num height) ")"))) + (line (@ + (x1 ,(+ posx)) + (y1 ,(+ posy margin)) + (x2 ,(+ posx (* 0.6 margin))) + (y2 ,(+ posy margin)) + (class "margin-mark"))) + (line (@ + (x1 ,(+ posx margin)) + (y1 ,(+ posy)) + (x2 ,(+ posx margin)) + (y2 ,(+ posy (* 0.6 margin))) + (class "margin-mark"))))) + + (list 0 0 width width) + (list 0 height 0 height) + (list "rotate(0,0,0)" + (string-append "rotate(-90, 0," (num height) ")") + (string-append "rotate(-270," (num width) ", 0)") + (string-append "rotate(-180," (num width) "," (num height) ")"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; BACK SIDE ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -287,7 +288,7 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. (text (@ (class "title-back") (x ,(+ margin (* 0.15 page-width))) (y ,(+ margin (* page-height 0.20)))) - ,(string-upcase book-title)) + ,(string-upcase book-title)) ,(textArea book-summary @@ -376,12 +377,12 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. (height ,h))) (text - (@ (class "subject") - (x ,(+ x (* 0.10 w))) - (y ,(+ y (* 0.75 h))) - (w ,w) - (h ,h)) - ,book-subject))) + (@ (class "subject") + (x ,(+ x (* 0.10 w))) + (y ,(+ y (* 0.75 h))) + (w ,w) + (h ,h)) + ,book-subject))) (text (@ (class "main-title-before") (x ,(exact->inexact (- width @@ -397,9 +398,9 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. ; 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 margin (* 0.37 page-height)))) + "SubtÃtulo que puede ser una frase resumen") ,(map (lambda (author pos) `(text (@ (class "author") @@ -415,6 +416,4 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in. ,(elenq-logo "PUBLISHING" 3 (exact->inexact (- width (/ page-width 2) margin)) - (+ margin (* 0.95 page-height))) - - ))) + (+ margin (* 0.95 page-height)))))) |