From a846f38f6186a3f3412687e123fc33d1461c5e2a Mon Sep 17 00:00:00 2001
From: arne <noreply@null.arnes.space>
Date: Fri, 19 Jul 2024 01:28:22 +0200
Subject: [PATCH] Rewrite line generation using transducers only

---
 src/main.ts | 55 +++++++++++++++++++++++++++++------------------------
 1 file changed, 30 insertions(+), 25 deletions(-)

diff --git a/src/main.ts b/src/main.ts
index 90d03f8..2283a2a 100644
--- a/src/main.ts
+++ b/src/main.ts
@@ -2,7 +2,8 @@ import { line, group, translate, asSvg, svgDoc } from "@thi.ng/geom";
 import { $canvas } from "@thi.ng/rdom-canvas";
 import { reactive, sync, } from "@thi.ng/rstream";
 import { $compile, $input } from '@thi.ng/rdom'
-import { cycle, takeWhile, comp, mapIndexed, transduce, push } from "@thi.ng/transducers"
+import { cycle, takeWhile, comp, mapIndexed, range, iterator, map, mapcat } from "@thi.ng/transducers"
+import { vec2 } from "@thi.ng/vectors"
 
 const cellSize_ = "12"
 const xs_ = "101110100101100"
@@ -25,15 +26,27 @@ const size = [width, height]
 
 // build a list of start positions
 
-const startPoints = (pattern: Iterable<number>, cellSize: number, maxCoord: number) =>
-  transduce(
+const startPoints = (pattern: Iterable<number>, maxCells: number) =>
+  [...iterator(
     comp(
-      mapIndexed((cell, val) => [cell * cellSize, val] as const),
-      takeWhile(([coord, _]) => coord <= maxCoord),
+      mapIndexed((cell, val) => [cell, val] as const),
+      takeWhile(([cell, _]) => cell <= maxCells),
     ),
-    push(),
     cycle(pattern)
-  ) as (readonly [number, number])[]
+  )]
+
+// points from which to which a stitch is showing for a given seed (1 or 0)
+
+const stitches = (seed: number, maxCells: number) =>
+  [...iterator(
+    comp(
+      mapcat((cell) => (cell + seed) % 2 === 0 // start at the beginning or skip it
+        ? [vec2(cell, cell + 1)]
+        : null),
+      takeWhile(([a, _]) => a < maxCells)
+    ),
+    range()
+  )]
 
 const scene = sync({
   src: { cellSize, xs, ys, }
@@ -49,27 +62,19 @@ const scene = sync({
   const yCells = Math.floor((height - 2 * minPadding) / cellSize)
   const yPadding = (height - (yCells * cellSize)) / 2
 
-  const xStarts = startPoints(xs, cellSize, width - 2 * xPadding)
-  const yStarts = startPoints(ys, cellSize, height - 2 * yPadding)
+  const xStarts = startPoints(xs, xCells)
+  const yStarts = startPoints(ys, yCells)
 
-  const yLines = xStarts.flatMap(
-    ([xCoord, seed]) =>
-      Array
-        .from({ length: yCells })
-        .map((_, cell) => (cell + seed) % 2 === 0 // start at the beginning or skip it
-          ? line([xCoord, cell * cellSize], [xCoord, (cell + 1) * cellSize])
-          : null)
-        .filter(v => v != null)
+  const yLines = iterator(
+    mapcat(([x, seed]) =>
+      map(([y1, y2]) => line([x * cellSize, y1 * cellSize], [x * cellSize, y2 * cellSize]), stitches(seed, yCells))),
+    xStarts
   )
 
-  const xLines = yStarts.flatMap(
-    ([yCoord, seed]) =>
-      Array
-        .from({ length: xCells })
-        .map((_, cell) => (cell + seed) % 2 === 0 // start at the beginning or skip it
-          ? line([cell * cellSize, yCoord], [(cell + 1) * cellSize, yCoord])
-          : null)
-        .filter(v => v != null)
+  const xLines = iterator(
+    mapcat(([y, seed]) =>
+      map(([x1, x2]) => line([x1 * cellSize, y * cellSize], [x2 * cellSize, y * cellSize]), stitches(seed, xCells))),
+    yStarts
   )
 
   const scene = translate(