From 1600a89643d9e18e4853f44204bdd797f536d7bb Mon Sep 17 00:00:00 2001
From: Tangent Wantwight <tangent128@gmail.com>
Date: Fri, 12 Jan 2024 23:30:18 -0500
Subject: [PATCH] Terminate upon icecap formation

---
 island.ts | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/island.ts b/island.ts
index 7edfa6b..3064cbc 100644
--- a/island.ts
+++ b/island.ts
@@ -115,6 +115,8 @@ export function IslandApplet() {
   const basePos = len >> 1;
   const width = islands.width;
 
+  let timerId: number;
+
   function drop(pos: number) {
     const lowerNeighbors: number[] = [];
 
@@ -149,7 +151,10 @@ export function IslandApplet() {
     }
 
     // flat, increase elevation
-    islands.data[pos]++;
+    const newValue = ++islands.data[pos];
+    if (newValue == 9) {
+      clearInterval(timerId);
+    }
   }
 
   function tick() {
@@ -167,7 +172,7 @@ export function IslandApplet() {
 
   tick();
 
-  setInterval(tick, 1000 / 10);
+  timerId = setInterval(tick, 1000 / 30);
 
   return [canvas];
 }