diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm index d367ba0..ab31702 100644 --- a/frontend/src/Main.elm +++ b/frontend/src/Main.elm @@ -245,6 +245,7 @@ updateModel msg model = handleDragFinish { model | drag = None } target (subtractTuple start end) _ -> model + TimeScale factor -> { model | startTime = model.startTime + factor / 2 @@ -382,7 +383,7 @@ measureView title colour fn points = [ x "0" , width portalWidth , height graphHeight - , fill "#eef" + , fill "#f8f8ff" , stroke "none" ] [] , g