added custom Y axis range

2024-05-26 12:52:54 +02:00 · 2024-05-26 12:52:54 +02:00 · 8038361c76
commit 8038361c76
parent 6c2b12c89b
3 changed files with 4 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -14,6 +14,8 @@ main :: IO ()
 main = do
    apiKey <- getWeatherKey

+    generatePlot 20 35 25 --example
+
    putStrLn "Enter a city name: "
    city <- getLine

--- a/app/Plot.hs
+++ b/app/Plot.hs
@ -11,5 +11,6 @@ generatePlot :: Double -> Double -> Double -> IO ()
 generatePlot yday tday tmrw = toFile def "plot/weather.svg" $ do
    layout_title .= "Yesterday, Today, and Tomorrow's Temperatures"
    layout_margin .= 30
+    layout_y_axis . laxis_generate .= scaledAxis def (-10, 40)
    layout_x_axis . laxis_generate .= autoIndexAxis ["Yesterday", "Today", "Tomorrow"]
    plot $ line "Degrees Celsius" [formatData yday tday tmrw]
--- a/plot/weather.svg
+++ b/plot/weather.svg