From 42e898f1f7b02c8b8a5b3ca8a2e274672e2545d3 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Fri, 10 Jan 2025 11:05:19 +0100 Subject: Add logos in SXML --- logo/logos_sxml.scm | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 logo/logos_sxml.scm diff --git a/logo/logos_sxml.scm b/logo/logos_sxml.scm new file mode 100644 index 0000000..c822897 --- /dev/null +++ b/logo/logos_sxml.scm @@ -0,0 +1,43 @@ +(import (chibi sxml) + (srfi 1) + (scheme small) + (chibi)) + +(define num number->string) + +(define (elenq-logo sub size x y . extra) ; 10 x 4mm + `(svg + (@ (width "10") + (height "4") + (viewBox "0 0 12 5")) + (g (@ (id "elenq-logo") + (transform + ,(string-append + "translate(" (num x) "," (num y) ")" + "scale(" (num size) ")" + (if (< 0 (length extra)) + (string-append "rotate (" (num (first extra)) ")") + "") + ))) + (g (@ (transform "scale(0.1667)")) + (text (@ (x 0) + (y 0) + (style "font-size: 30; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle")) + "ElenQ") + (text (@ (x 0) + (y 8) + (style "font-size: 10; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle;")) + ,sub))))) + +(define elenq-technology (sxml->xml (elenq-logo "TECHNOLOGY" 1 6 3))) +(define elenq-publishing (sxml->xml (elenq-logo "PUBLISHING" 1 6 3))) + +(define args (command-line)) + +(with-exception-handler + (lambda (x) + (error (string-append "USAGE: chibi-scheme " (car args) " tech|pub"))) + (lambda () + (case (string->symbol (second args)) + ((tech) (display elenq-technology)) + ((pub) (display elenq-publishing))))) -- cgit v1.2.3