ARC

Appearance

On this page

6e19193c ​

arc
let c: Color
let rs: UList (Int, Int, Int, Int)

let input = fill 10 (fill 10 black)
  |> fold (λ(y, x, dy, dx). rect ((y, x, y + 1, x + 1), c)) rs
  |> fold (λ(y, x, dy, dx). point (y + (dy + 1) / 2, x + (dx + 1) / 2) black) rs

let output = fill 10 (fill 10 black)
  |> fold (λ(y, x, dy, dx). rect ((y, x, y + 1, x + 1), c)) rs
  |> fold (λ(y, x, dy, dx). point (y + (dy + 1) / 2, x + (dx + 1) / 2) black) rs
  |> fold (λ(y, x, dy, dx). rep1 (dy, dx) [(y + (dy * 3 + 1) / 2, x + (dx * 3 + 1) / 2, c)]) rs
composer
input = fill 10v (fill 10h black) |> fold (λr. rect ((#0, r.1, r.2, #1), #8)) #2 |> fold (λr. rect ((#3, #4, r.1, r.2), #8)) #5 |> fold (λr. rect ((r.1, r.2, #6, #7), #8)) #9
output = fill 10v (fill 10h black) |> fold rect #10
(VInt, HInt, UList (HInt, VInt), VInt, HInt, UList (VInt, HInt), VInt, HInt, Color, UList (VInt, HInt), UList ((VInt, HInt, VInt, HInt), Color))
(5v, 8h, {(8h, 6v), (7h, 5v)}, 4v, 2h, {(4v, 3h)}, 4v, 2h, orange, {(3v, 2h)}, {((5v, 8h, 6v, 8h), orange), ((5v, 7h, 5v, 8h), orange), ((4v, 2h, 4v, 3h), orange), ((3v, 2h, 4v, 2h), orange), ((10v, 3h, 10v, 3h), orange), ((1v, 5h, 1v, 5h), orange), ((9v, 4h, 9v, 4h), orange), ((8v, 5h, 8v, 5h), orange), ((7v, 6h, 7v, 6h), orange), ((2v, 4h, 2v, 4h), orange)})
(2v, 5h, {(5h, 3v), (4h, 2v)}, 8v, 4h, {(8v, 5h)}, 8v, 4h, brown, {(7v, 4h)}, {((8v, 4h, 8v, 5h), brown), ((7v, 4h, 8v, 4h), brown), ((2v, 5h, 3v, 5h), brown), ((2v, 4h, 2v, 5h), brown), ((6v, 1h, 6v, 1h), brown), ((2v, 10h, 2v, 10h), brown), ((6v, 6h, 6v, 6h), brown), ((5v, 7h, 5v, 7h), brown), ((5v, 2h, 5v, 2h), brown), ((4v, 8h, 4v, 8h), brown), ((4v, 3h, 4v, 3h), brown), ((3v, 9h, 3v, 9h), brown)})
(7v, 4h, {(4h, 8v), (3h, 7v)}, 5v, 8h, {(5v, 9h), (6v, 8h)}, 4v, 5h, teal, {(4v, 4h), (3v, 5h)}, ?)