diff --git a/dotscape b/dotscape index bcc024b..a7fc07a 100755 Binary files a/dotscape and b/dotscape differ diff --git a/fcore/parser/parse-grid.sml b/fcore/parser/parse-grid.sml index 4eae661..b49d974 100644 --- a/fcore/parser/parse-grid.sml +++ b/fcore/parser/parse-grid.sml @@ -11,7 +11,7 @@ struct local fun loopY (yAxis, x, ex, y, ey, colour) = - if y > ey then + if y > ey orelse y >= Vector.length yAxis then yAxis else let val yAxis = Vector.update (yAxis, y, colour) @@ -19,7 +19,7 @@ struct end fun loopX (grid, x, ex, y, ey, colour) = - if x > ex then + if x > ex orelse x >= Vector.length grid then grid else let diff --git a/green.dsc b/green.dsc index 9ea7afb..05c34d3 100644 --- a/green.dsc +++ b/green.dsc @@ -1 +1 @@ -4 4 { {0 1 0 1 0 0 0 1 } {1 2 1 2 0 0 0 1 } } +4 4 { {0 0 1 0 0 0 0 1 } {1 0 1 1 0 0 0 1 } {2 1 2 4 0 0 0 1 } {2 3 3 4 0 0 0 1 } } \ No newline at end of file