twc/ludus-scripts
17
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding my odd peano curve thing

Browse Source
This commit is contained in:
Matt Nish-Lapidus 2024-11-15 17:35:52 -05:00
parent fc4b8dae8b
commit d5b451b101
1 changed files with 89 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
peanomod.ld Normal file
View File

@ -0,0 +1,89 @@
let d = 50
pw!(5)
rt!(0.25)
fn y!
& comment for strange Peano variation
& uncomment for standard Peano curve
& fn f! (n) -> fd!(d)
& comment for standard Peano curve
& uncomment for strange Peano variation
fn f! {
(0) -> fd!(d)
(n) -> {
f!(dec(n))
rt!(0.25)
f!(dec(n))
lt!(0.25)
f!(dec(n))
lt!(0.25)
f!(dec(n))
f!(dec(n))
lt!(0.25)
f!(dec(n))
lt!(0.25)
f!(dec(n))
lt!(0.25)
f!(dec(n))
f!(dec(n))
}
}
fn x! {
(0) -> nil
(n) -> {
x!(dec(n))
f!(dec(n))
y!(dec(n))
f!(dec(n))
x!(dec(n))
rt!(0.25)
f!(dec(n))
rt!(0.25)
y!(dec(n))
f!(dec(n))
x!(dec(n))
f!(dec(n))
y!(dec(n))
lt!(0.25)
f!(dec(n))
lt!(0.25)
x!(dec(n))
f!(dec(n))
y!(dec(n))
f!(dec(n))
x!(dec(n))
}
}
fn y! {
(0) -> nil
(n) -> {
y!(dec(n))
f!(dec(n))
x!(dec(n))
f!(dec(n))
y!(dec(n))
lt!(0.25)
f!(dec(n))
lt!(0.25)
x!(dec(n))
f!(dec(n))
y!(dec(n))
f!(dec(n))
x!(dec(n))
rt!(0.25)
f!(dec(n))
rt!(0.25)
y!(dec(n))
f!(dec(n))
x!(dec(n))
f!(dec(n))
y!(dec(n))
}
}
x!(3)