From d40c7ed1d9214a5b670cdec2d35eda9c2e85e025 Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Fri, 8 Apr 2022 10:56:56 -0400
Subject: [PATCH] Draw breakout rects differently

---
 examples/breakout/breakout.roc | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/examples/breakout/breakout.roc b/examples/breakout/breakout.roc
index c5c7bafd5d..30f8e57416 100644
--- a/examples/breakout/breakout.roc
+++ b/examples/breakout/breakout.roc
@@ -7,6 +7,7 @@ program = { render }
 
 render = \state ->
     div0 = \numerator, denominator -> (numerator / denominator) |> Result.withDefault 0
+    intDiv0 = \numerator, denominator -> (numerator // denominator) |> Result.withDefault 0
 
     rgba = \r, g, b, a -> { r: div0 r 255, g: div0 g 255, b: div0 b 255, a }
 
@@ -18,12 +19,22 @@ render = \state ->
     blocks = List.map (List.range 0 (numRows * numCols)) \index ->
         { col: index, row: (index // 5 |> Result.withDefault 0) }
 
-    blockWidth = 100
-    blockHeight = 50
+    blockWidth = 50
+    blockHeight = 20
 
     List.map blocks \{ row, col } ->
         left = Num.toF32 (col * blockWidth)
         top = Num.toF32 (row * blockHeight)
-        color = rgba 10 20 30 1 # TODO different colors for each block!
+        red =
+            250 // col
+                |> Result.withDefault 0
+                |> Num.toF32
+
+        green =
+            250 // row
+                |> Result.withDefault 0
+                |> Num.toF32
+
+        color = rgba red 120 green 1
 
         Rect { left, top, width: blockWidth, height: blockHeight, color }