elias/strudel-docker
1
0
Fork 0
mirror of https://github.com/eliasstepanik/strudel-docker.git synced 2026-01-25 20:48:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

add m for mini

Browse Source
This commit is contained in:
Felix Roos 2022-02-09 20:19:05 +01:00
parent 9ed198db28
commit e783de3453
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
repl/src/parse.ts
View File

@ -99,6 +99,8 @@ export const mini = (...strings: string[]) => {
return pattern; return pattern;
}; };
const m = mini;
// includes haskell style (raw krill parsing) // includes haskell style (raw krill parsing)
export const h = (string: string) => { export const h = (string: string) => {
const ast = krill.parse(string); const ast = krill.parse(string);

6
repl/src/tunes.ts
View File

@ -106,8 +106,8 @@ export const tetrisRev = `stack(
*/ */
export const tetrisMini1 = `mini('[[e5 [b4 c5] d5 [c5 b4]] [a4 [a4 c5] e5 [d5 c5]] [b4 [~ c5] d5 e5] [c5 a4 a4 ~] [[~ d5] [~ f5] a5 [g5 f5]] [e5 [~ c5] e5 [d5 c5]] [b4 [b4 c5] d5 e5] [c5 a4 a4 ~]],[[e2 e3 e2 e3 e2 e3 e2 e3] [a2 a3 a2 a3 a2 a3 a2 a3] [g#2 g#3 g#2 g#3 e2 e3 e2 e3] [a2 a3 a2 a3 a2 a3 b1 c2] [d2 d3 d2 d3 d2 d3 d2 d3] [c2 c3 c2 c3 c2 c3 c2 c3] [b1 b2 b1 b2 e2 e3 e2 e3] [a1 a2 a1 a2 a1 a2 a1 a2]]')._slow(16);`; export const tetrisMini1 = `m\`[[e5 [b4 c5] d5 [c5 b4]] [a4 [a4 c5] e5 [d5 c5]] [b4 [~ c5] d5 e5] [c5 a4 a4 ~] [[~ d5] [~ f5] a5 [g5 f5]] [e5 [~ c5] e5 [d5 c5]] [b4 [b4 c5] d5 e5] [c5 a4 a4 ~]],[[e2 e3 e2 e3 e2 e3 e2 e3] [a2 a3 a2 a3 a2 a3 a2 a3] [g#2 g#3 g#2 g#3 e2 e3 e2 e3] [a2 a3 a2 a3 a2 a3 b1 c2] [d2 d3 d2 d3 d2 d3 d2 d3] [c2 c3 c2 c3 c2 c3 c2 c3] [b1 b2 b1 b2 e2 e3 e2 e3] [a1 a2 a1 a2 a1 a2 a1 a2]]')._slow(16)\``;
export const tetrisMini = `mini(\`[[e5 [b4 c5] d5 [c5 b4]] export const tetrisMini = `m\`[[e5 [b4 c5] d5 [c5 b4]]
[a4 [a4 c5] e5 [d5 c5]] [a4 [a4 c5] e5 [d5 c5]]
[b4 [~ c5] d5 e5] [b4 [~ c5] d5 e5]
[c5 a4 a4 ~] [c5 a4 a4 ~]
@ -122,7 +122,7 @@ export const tetrisMini = `mini(\`[[e5 [b4 c5] d5 [c5 b4]]
[[d2 d3]*4] [[d2 d3]*4]
[[c2 c3]*4] [[c2 c3]*4]
[[b1 b2]*2 [e2 e3]*2] [[b1 b2]*2 [e2 e3]*2]
[[a1 a2]*4]\`)._slow(16); [[a1 a2]*4]\`._slow(16);
`; `;
export const tetrisHaskellH = `h(\`slow 16 $ "[[e5 [b4 c5] d5 [c5 b4]] export const tetrisHaskellH = `h(\`slow 16 $ "[[e5 [b4 c5] d5 [c5 b4]]