Merge pull request #1 from JanCVanB/expand_config

Expand config to do a lot more

Author: Jan Van Bruggen

README.md

@@ -1,11 +1,11 @@
-# Roc platforms for drawing plots with Plotters
+# Roc platform for drawing plots with Plotters
 
 [Roc](https://roc-lang.org/)
 +
 [Plotters](https://github.com/38/plotters)
 = <3
 
-![hello world example image](./examples/hello_world.png)
+![hello world example image](./examples/hello_world.svg)
 
 ## How to example
 

examples/hello_world.jpg

@@ -1,12 +1,47 @@
 app "hello_world"
-    packages { pf: "../platforms/bitmap-chart" }
-    imports []
-    provides [ options ] to pf
+    packages { pf: "../platform" }
+    imports [ pf.Config.{blue, green, red, cyan} ]
+    provides [ config ] to pf
 
-options = {
-    outputFilePath: "./examples/hello_world.png",
-    title: "Hello, World!",
-    subtitle: "These strings are coming from Roc :)",
-    width: 1024,
-    height: 768,
+config =
+    {
+        outputFilePath: "./examples/hello_world.svg",
+        title: "Hello, World!",
+        subtitle: "",
+        width: 1024,
+        height: 768,
+        lines: [
+            { name: "cosine", color: green, points: cos },
+            { name: "cosine x 2", color: cyan, points: cosX2 },
+            { name: "sine", color: blue, points: sin },
+            { name: "sine x 2", color: red, points: sinX2 },
+        ],
+        bounds: {
+            xMin: -3.2,
+            xMax: 3.2,
+            yMin: -2.1,
+            yMax: 2.1,
+        },
+        fonts: {
+            titleFamily: "sans-serif",
+            titleSize: 60,
+            subtitleFamily: "sans-serif",
+            subtitleSize: 40,
+        },
+        labels: {
+            xCount: 20,
+            yCount: 10,
+        },
+        layout: {
+            chartMargin: 5,
+            labelArea: 50,
+        },
     }
+
+pi = 3.141592653589793
+ok = \r -> Result.withDefault r 0
+domain = List.range -100 101 |> List.map (\i -> pi * (Num.toFloat i) / 100 |> ok)
+cos = domain |> List.map (\x -> P2 x (Num.cos x))
+sin = domain |> List.map (\x -> P2 x (Num.sin x))
+cosX2 = domain |> List.map (\x -> P2 x (2 * Num.cos x))
+sinX2 = domain |> List.map (\x -> P2 x (2 * Num.sin x))

examples/hello_world.png

@@ -17,7 +17,7 @@ name = "host"
 path = "src/main.rs"
 
 [dependencies]
-roc_std = { path = "../../roc/roc_std" }
+roc_std = { path = "../roc/roc_std" }
 libc = "0.2"
 plotters = "0.3.1"
 

examples/hello_world.roc

@@ -0,0 +1,70 @@
+interface Config
+    exposes [ Config, black, white, red, green, blue, cyan, magenta, yellow ]
+    imports []
+
+Bounds :
+    {
+        xMin: F64,
+        xMax: F64,
+        yMin: F64,
+        yMax: F64,
+    }
+
+# TODO: probably move some of this into a different module.
+Color :
+    {
+        r: U8,
+        g: U8,
+        b: U8,
+    }
+
+black = { r: 0, g: 0, b: 0 }
+white = { r: 255, g: 255, b: 255 }
+red = { r: 255, g: 0, b: 0 }
+green = { r: 0, g: 255, b: 0 }
+blue = { r: 0, g: 0, b: 255 }
+cyan = { r: 0, g: 255, b: 255 }
+magenta = { r: 255, g: 0, b: 255 }
+yellow = { r: 255, g: 255, b: 0 }
+
+Fonts :
+    {
+        titleFamily: Str,
+        titleSize: U32,
+        subtitleFamily: Str,
+        subtitleSize: U32,
+    }
+
+Labels :
+    {
+        xCount: Nat,
+        yCount: Nat,
+    }
+
+Layout :
+    {
+        chartMargin: U32,
+        labelArea: U32,
+    }
+
+Line :
+    {
+        name: Str,
+        color: Color,
+        points: List [P2 F64 F64],
+    }
+
+# TODO: Make this a `List` and support it in the platform (with `Vec`?)
+Config :
+    {
+        outputFilePath : Str,
+        title : Str,
+        subtitle : Str,
+        width : U32,
+        height : U32,
+        lines : List Line,
+        bounds : Bounds,
+        fonts : Fonts,
+        labels : Labels,
+        layout : Layout,
+    }

examples/hello_world.svg

@@ -0,0 +1,9 @@
+platform "roc-plotters/bitmap-chart"
+    requires {} { config : Config }
+    exposes [ Config ]
+    packages {}
+    imports [ Config.{ Config } ]
+    provides [ configForHost ]
+
+configForHost : Config
+configForHost = config