about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorelioat <elioat@tilde.institute>2023-05-05 22:58:46 -0400
committerelioat <elioat@tilde.institute>2023-05-05 22:58:46 -0400
commite1ed8ffb51feb3b189286ad96e03273e9552ac6d (patch)
tree929a472db5ec1b57e9b7aa1c6707d2db9bc030c6
parentc4af194999cf6f58999a3e12bc87a54cfadfa054 (diff)
downloadtour-e1ed8ffb51feb3b189286ad96e03273e9552ac6d.tar.gz
got it?
-rw-r--r--lil/giblang.lil21
1 files changed, 9 insertions, 12 deletions
diff --git a/lil/giblang.lil b/lil/giblang.lil
index b92f20b..7370a8c 100644
--- a/lil/giblang.lil
+++ b/lil/giblang.lil
@@ -1,20 +1,17 @@
+sys.seed:sys.ms
 cons: ("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "r", "s", "t", "v", "w", "z", "ch", "sh", "zh", "th")
 vow: ("a", "e", "i", "o", "u", "y", "ee", "ai", "ae", "au")
 
-sys.seed:sys.ms
-
-on syl do
-	"" fuse random[vow 1],random[cons 1]
+on syl v c do
+	"" fuse random[v 1],random[c 1]
 end
 
-on apply func do 
-	func[]
+on word i v c do
+	"" fuse each x in i syl[v c] end
 end
 
-x:apply[syl]
-show[x]
-
-wrd:(syl[],syl[],syl[]) # I'd like to support a random number of syllables within a given range
-word:"" fuse wrd
+p:random[(1,2,2,3,4) 1]
+r:range sum p
 
-show[word]
+out:word[r vow cons]
+show[out]
\ No newline at end of file