Suggested adjustments
This commit is contained in:
parent
7b47171db4
commit
d757452bc7
2 changed files with 9 additions and 10 deletions
17
balken.lisp
17
balken.lisp
|
@ -1,17 +1,17 @@
|
|||
(in-package #:se.kth.stacken.nya-balken)
|
||||
|
||||
;;; Parameters
|
||||
(defparameter edge-width 26)
|
||||
(defparameter edge-width 24)
|
||||
(defparameter edge-height 1)
|
||||
|
||||
(defparameter background-width 24)
|
||||
(defparameter background-height 8)
|
||||
(defparameter background-width 22)
|
||||
(defparameter background-height 6)
|
||||
|
||||
(defparameter slope-height 1)
|
||||
(defparameter slope-x-offset (/ (- edge-width background-width) 2))
|
||||
|
||||
(defparameter font-size 6)
|
||||
(defparameter text-width 20.4)
|
||||
(defparameter font-size 5.8)
|
||||
(defparameter text-width 19.75)
|
||||
|
||||
(defparameter edge-color "#ad0000")
|
||||
(defparameter background-color "#ad0000")
|
||||
|
@ -45,11 +45,10 @@
|
|||
background-width background-height)))
|
||||
(add (xmls:make-node :name "text"
|
||||
:attrs `(("x" ,(xmlfloat (/ edge-width 2)))
|
||||
("y" ,(xmlfloat
|
||||
("y" ,(xmlfloat 7.2
|
||||
#+(or)
|
||||
(+ edge-height slope-height
|
||||
(/ font-size 1.375) (/ background-height 4))))
|
||||
;;("class" "stacken-wordmark")
|
||||
)
|
||||
(/ font-size 1.375) (/ background-height 8)))))
|
||||
:child (make-stacken-text)))
|
||||
;; Slopes
|
||||
(let ((*fill-color* slope-color))
|
||||
|
|
|
@ -1 +1 @@
|
|||
<svg xmlns="http://www.w3.org/2000/svg" viewbox="0 0 26 12" width="26" height="12"><style>@font-face{font-family:"rtxbsc";src:url(data:application/font-woff;charset=utf-8;base64,d09GMgABAAAAAASYAA0AAAAACOAAAARBAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP0ZGVE0cGh4GVgCCZBEICoZIhSMLFgABNgIkAygEIAWDSAc2Gz4HAB6FccNdWltiiKNgMnj64+GftX73zezOFzGgEQrNLalHD4VDwxtNxJuZhCK+P4+nvWTOn/gzZCS7DmB653ZQ1/kAseb/5/9yh9vvA92YaPf8hJbNFR0WlS1aRgn2orH8sNO2QZoFJAFIiFm7klLyYNcsO/jorq57KgR82PCfBXxMrF4KwMekTgYIlKMRSIRUiZBDgogr8V2eZCW5H8Dq2hdv2QdJ4bMUVKD+uPnBhQBmaUiZgpuMuEsOAUhpq90KmH6GQDtxA4BixRLMU6WhELOUqy+EghChWDW2N8whLwNFREYAIkFCKCz8dqRy8iCjCIpLhE+IQgkoBfVAMdEGYhAAyAEgEemxuqV6Pb10vbXkqDilISJ4DtR17ApjAYLS2LWOFk1qZKL0LWtMU1KSOIevU/ybBO8WEiQLkYBGUHr0JsUH1n7NGSRI5STJ0pxVbPnEylETQk7p49sUfwRg1SFDBKVbD7oAuwIJbqXKUbFKQyASiQgeTlEFdlxNIBSqARWnVhFUyHHVHE7YsK1wdKVx9cXrSclC4+Ltq4EsnU+ya5yd4HVH7l1JEWWTCN5aFwLNYa9TfJedFF+zDWy5gQSrJidFw10eNy0O6o6CfNGmc9E33qFfKdJAULrxJsXfDewad+GZFXvWTBdTM0ddRk3ov+Fxo91JVKrcqReY48+RVT3Dx36K8gvixcnWNTjQfo7KXJP+Oq0BTlt33uUe9wHnATiZviTJyaO6k88tndVTZBRKHxeXP41XaTlHJ9jVX8tbLNeqFheaBKtG6BEeJlfs1gpWyA8ZVMSdg1pU0Ntg7VfKIuvdZfg9Hbn38oyKl65rgi0dDP+fY+nNiOUZiEl+WDy8d5by4W/k4EAcfo5Vslk0/Kc3mHfGeM7shftCnaQlBzUO4BOYDHZKyTz6p52Fi9tVxLTWa2lywGBBIp7CKnHaXpUxiF5/R/0Qk5GAhZCwwjUuPdGYjiCo8fRm7Q3e8S6q95800hI6/wLiTXfbl2IlldUXH1jpv6XEiidaa0/SG72j7HCONm5vGOnpmKH/wTZv7ZyU5iX22Ub5s/BnXBdnnL0tq1k6TJsY6AGAQMr9z4kGuQpe36RR+vWqqiNZEP/jLlAsAUE8LzDZY078FYRdOloRoxt4RXKQid2AklCP5SgWgkbsDhEejeqNBAlCoB8AVDoIBKCGERZCZhCSEJOEVA8rhZzMEyGv3M/tmSzqiIlcCXqAIIRyvZCEGCmkBskTcspdE/KaPWwuUx5543HVqVeqWhWGIxt28llhhIoTBV5RT+toY5dvxYTGRQEs0aBFgXocsGRZS0E9B2A0rkKlGlWCP8u1AIZwWw390TrFuBgO65AMj3E209rrwIE1Zw0c2JXO4JtdaEldMZdxsLFjPJhVNdBxcLB2tn64m2Fbs51w/Fyz+EcJoVrYwUG7FDFz8SAhwsSIlyIVAAAA) format("woff2")}</style><polygon fill="#ad0000" stroke="none" points="0,0 26,0 26,1 0,1"/><polygon fill="#ad0000" stroke="none" points="0,11 26,11 26,12 0,12"/><polygon fill="#ad0000" stroke="none" points="1,2 25,2 25,10 1,10"/><text x="13.0" y="8.363636"><tspan style="font:6px rtxbsc;fill:white;text-anchor: middle"><tspan style="letter-spacing:-0.01em">S</tspan><tspan style="letter-spacing:-0.05em">t</tspan><tspan style="letter-spacing:-0.05em">a</tspan><tspan style="letter-spacing:0">cken</tspan></tspan></text><polygon fill="#860000" stroke="none" points="0,1 26,1 25,2 1,2"/><polygon fill="#860000" stroke="none" points="1,10 25,10 26,11 0,11"/></svg>
|
||||
<svg xmlns="http://www.w3.org/2000/svg" viewbox="0 0 24 10" width="24" height="10"><style>@font-face{font-family:"rtxbsc";src:url(data:application/font-woff;charset=utf-8;base64,d09GMgABAAAAAASYAA0AAAAACOAAAARBAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP0ZGVE0cGh4GVgCCZBEICoZIhSMLFgABNgIkAygEIAWDSAc2Gz4HAB6FccNdWltiiKNgMnj64+GftX73zezOFzGgEQrNLalHD4VDwxtNxJuZhCK+P4+nvWTOn/gzZCS7DmB653ZQ1/kAseb/5/9yh9vvA92YaPf8hJbNFR0WlS1aRgn2orH8sNO2QZoFJAFIiFm7klLyYNcsO/jorq57KgR82PCfBXxMrF4KwMekTgYIlKMRSIRUiZBDgogr8V2eZCW5H8Dq2hdv2QdJ4bMUVKD+uPnBhQBmaUiZgpuMuEsOAUhpq90KmH6GQDtxA4BixRLMU6WhELOUqy+EghChWDW2N8whLwNFREYAIkFCKCz8dqRy8iCjCIpLhE+IQgkoBfVAMdEGYhAAyAEgEemxuqV6Pb10vbXkqDilISJ4DtR17ApjAYLS2LWOFk1qZKL0LWtMU1KSOIevU/ybBO8WEiQLkYBGUHr0JsUH1n7NGSRI5STJ0pxVbPnEylETQk7p49sUfwRg1SFDBKVbD7oAuwIJbqXKUbFKQyASiQgeTlEFdlxNIBSqARWnVhFUyHHVHE7YsK1wdKVx9cXrSclC4+Ltq4EsnU+ya5yd4HVH7l1JEWWTCN5aFwLNYa9TfJedFF+zDWy5gQSrJidFw10eNy0O6o6CfNGmc9E33qFfKdJAULrxJsXfDewad+GZFXvWTBdTM0ddRk3ov+Fxo91JVKrcqReY48+RVT3Dx36K8gvixcnWNTjQfo7KXJP+Oq0BTlt33uUe9wHnATiZviTJyaO6k88tndVTZBRKHxeXP41XaTlHJ9jVX8tbLNeqFheaBKtG6BEeJlfs1gpWyA8ZVMSdg1pU0Ntg7VfKIuvdZfg9Hbn38oyKl65rgi0dDP+fY+nNiOUZiEl+WDy8d5by4W/k4EAcfo5Vslk0/Kc3mHfGeM7shftCnaQlBzUO4BOYDHZKyTz6p52Fi9tVxLTWa2lywGBBIp7CKnHaXpUxiF5/R/0Qk5GAhZCwwjUuPdGYjiCo8fRm7Q3e8S6q95800hI6/wLiTXfbl2IlldUXH1jpv6XEiidaa0/SG72j7HCONm5vGOnpmKH/wTZv7ZyU5iX22Ub5s/BnXBdnnL0tq1k6TJsY6AGAQMr9z4kGuQpe36RR+vWqqiNZEP/jLlAsAUE8LzDZY078FYRdOloRoxt4RXKQid2AklCP5SgWgkbsDhEejeqNBAlCoB8AVDoIBKCGERZCZhCSEJOEVA8rhZzMEyGv3M/tmSzqiIlcCXqAIIRyvZCEGCmkBskTcspdE/KaPWwuUx5543HVqVeqWhWGIxt28llhhIoTBV5RT+toY5dvxYTGRQEs0aBFgXocsGRZS0E9B2A0rkKlGlWCP8u1AIZwWw390TrFuBgO65AMj3E209rrwIE1Zw0c2JXO4JtdaEldMZdxsLFjPJhVNdBxcLB2tn64m2Fbs51w/Fyz+EcJoVrYwUG7FDFz8SAhwsSIlyIVAAAA) format("woff2")}</style><polygon fill="#ad0000" stroke="none" points="0,0 24,0 24,1 0,1"/><polygon fill="#ad0000" stroke="none" points="0,9 24,9 24,10 0,10"/><polygon fill="#ad0000" stroke="none" points="1,2 23,2 23,8 1,8"/><text x="12.0" y="7.2"><tspan style="font:5.8px rtxbsc;fill:white;text-anchor: middle"><tspan style="letter-spacing:-0.01em">S</tspan><tspan style="letter-spacing:-0.05em">t</tspan><tspan style="letter-spacing:-0.05em">a</tspan><tspan style="letter-spacing:0">cken</tspan></tspan></text><polygon fill="#860000" stroke="none" points="0,1 24,1 23,2 1,2"/><polygon fill="#860000" stroke="none" points="1,8 23,8 24,9 0,9"/></svg>
|
Before Width: | Height: | Size: 2.4 KiB After Width: | Height: | Size: 2.4 KiB |
Loading…
Add table
Reference in a new issue