From 4990e4ff1f81aab531fe07a9a0f4bacca8742074 Mon Sep 17 00:00:00 2001
From: Robert Bendun <rob.bendun@gmail.com>
Date: Fri, 28 Oct 2022 16:25:48 +0200
Subject: [PATCH] new example

---
 examples/noises.mq | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/examples/noises.mq b/examples/noises.mq
index 9d21230..80cab4b 100644
--- a/examples/noises.mq
+++ b/examples/noises.mq
@@ -1,8 +1,3 @@
--- todo: cicho, ostatni parametr midi
--- todo: for doesn't forwards implicit play context
-
-pick := (array | (shuffle array).0),
-
 hand1_pool := (
 	chord g#3 g4,
 	chord d#3 d4,
@@ -14,10 +9,11 @@ hand2_pool := (d8, d#8, g8, g#8, d9, d#9),
 
 for (up 10) (
 	hand1_length := pick (hn, dhn),
+	say hand1_length,
 	hand1 := (set_len hand1_length (pick hand1_pool)),
 
 	hand2 := (),
-	while (fold '+ (map duration hand2) != hand1_length) (
+	while (duration hand2 != hand1_length) (
 		hand2 = flat hand2 (set_len (1/64) (pick hand2_pool)),
 	),