Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dave Griffiths
jellyfish
Commits
cd279a6b
Commit
cd279a6b
authored
Feb 26, 2015
by
Dave Griffiths
Browse files
lz fiddle
parent
d34a94e3
Changes
2
Hide whitespace changes
Inline
Side-by-side
experiments/flz/lz.scm
View file @
cd279a6b
...
...
@@ -78,7 +78,7 @@
(
lz-step
lz
)
(
let
((
r
(
lz-read
lz
)))
(
lz-inc-pos
lz
)
(
dbg
r
)
))
r
))
(
define
(
lz-prog
lz
pat
str
)
(
let
((
c
0
))
...
...
@@ -258,8 +258,8 @@
)
)
;
(define z (build-nz (vector 9 5 '((4 2) (4 1) (6 0) (3 2) (4 1) (6 0)) 8 3 (list->vector (string->list "BaaadBdcd--C+++ --Aba+dd"))) ss 0.2))
(
define
z
(
build-nz
(
vector
9
5
'
((
4
2
)
(
4
1
)
(
6
0
)
(
3
2
)
(
4
1
)
(
6
0
))
8
3
(
list->vector
(
string->list
"BaaadBdcd--C+++ --Aba+dd
"
)))
ss
0.2
))
(
define
z
(
build-nz
l
ss
0.2
))
;
(define z (build-nz l ss 0.2))
(
every-frame
(
nz-tick
z
))
experiments/timed.scm
View file @
cd279a6b
(
synth-init
)
(
synth-init
20
44100
)
(
define
time
(
ntp-time-add
(
ntp-time
)
2
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment