summaryrefslogtreecommitdiff
path: root/utils/cover
diff options
context:
space:
mode:
Diffstat (limited to 'utils/cover')
-rw-r--r--utils/cover/cover.scm81
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))))))