From a3c280b1ce9e9d6c4c920b668ff4061ff6bc279d Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Fri, 10 Jan 2025 12:25:42 +0100 Subject: logo: scheme: migrate to guile and improve --- logo/logos_sxml.scm | 43 ------------------------------------------- 1 file changed, 43 deletions(-) delete mode 100644 logo/logos_sxml.scm (limited to 'logo/logos_sxml.scm') diff --git a/logo/logos_sxml.scm b/logo/logos_sxml.scm deleted file mode 100644 index c822897..0000000 --- a/logo/logos_sxml.scm +++ /dev/null @@ -1,43 +0,0 @@ -(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