From d757452bc72ff8cea51621173a628e9ebe2dac2c Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 22 May 2025 22:52:17 +0200 Subject: [PATCH] Suggested adjustments --- balken.lisp | 17 ++++++++--------- stacken.svg | 2 +- 2 files changed, 9 insertions(+), 10 deletions(-) diff --git a/balken.lisp b/balken.lisp index c9ade2f..3806807 100644 --- a/balken.lisp +++ b/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)) diff --git a/stacken.svg b/stacken.svg index 2efd683..8477fcf 100644 --- a/stacken.svg +++ b/stacken.svg @@ -1 +1 @@ -Stacken \ No newline at end of file +Stacken \ No newline at end of file