ludus-scripts/peanomod.ld

let d = 50

pw!(5)
rt!(0.25)

fn y!
fn y_seq!
fn x_seq!

& 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_seq!(n)
    rt!(0.25)
    f!(dec(n))
    rt!(0.25)
    y_seq!(n)
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    x_seq!(n)
  }
}

fn y! {
  (0) -> nil
  (n) -> {
    y_seq!(n)
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    x_seq!(n)
    rt!(0.25)
    f!(dec(n))
    rt!(0.25)
    y_seq!(n)
  }
}

fn x_seq! (n) -> {
  x!(dec(n))
  f!(dec(n))
  y!(dec(n))
  f!(dec(n))
  x!(dec(n))
}

fn y_seq! (n) -> {
  y!(dec(n))
  f!(dec(n))
  x!(dec(n))
  f!(dec(n))
  y!(dec(n))
}

x!(3)