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 @@
-
\ No newline at end of file
+
\ No newline at end of file