diff options
| -rw-r--r-- | logo/elenq.scm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/logo/elenq.scm b/logo/elenq.scm index ffd04dd..c3ec13d 100644 --- a/logo/elenq.scm +++ b/logo/elenq.scm @@ -5,15 +5,18 @@ (define (num x) (number->string (exact->inexact x))) -(define (elenq-logo sub size rotation-deg x y) +(define (elenq-logo sub size rotation-deg) `(svg - (@ (width ,(num (* size))) - (height ,(num (* size (/ 10 22)))) - (viewBox "0 0 22 10")) + (@ (width ,(num (* size))) + (height ,(num (* size (/ 10 22)))) + (viewBox ,(string-join (list (num (* size 22 -1/2)) + (num (+ (* -1.4 size) (* size 10 -1/2))) + (num (* size 22)) + (num (* size 10))) + " "))) (g (@ (id "elenq-logo") (transform ,(string-append - "translate(" (num x) "," (num y) ")" "scale(" (num size) ")" "rotate (" (num rotation-deg) ")"))) (g (@ (transform "scale(0.33333)")) @@ -27,13 +30,13 @@ ,sub))))) (define (elenq-technology size rotation) - (sxml->xml (elenq-logo "TECHNOLOGY" size rotation 11 6.3))) + (sxml->xml (elenq-logo "TECHNOLOGY" size rotation))) (define (elenq-publishing size rotation) - (sxml->xml (elenq-logo "PUBLISHING" size rotation 11 6.3))) + (sxml->xml (elenq-logo "PUBLISHING" size rotation))) (match (command-line) - ((name "tech") (elenq-technology 1 0)) - ((name "pub") (elenq-publishing 1 0)) + ((name "tech") (elenq-technology 100 0)) + ((name "pub") (elenq-publishing 100 0)) ((name . any) (format (current-error-port) "USAGE: ~a tech|pub\n" name) (exit 1))) |