ARC

Appearance

On this page

e57337a4 ​

arc
let c: Color
let ps: OList (Int, Int)

let input = fill 15 (fill 15 c)
  |> fold (λp. point p black) ps

let output = fill 3 (fill 3 c)
  |> fold (λp. point (p / 5) black) ps
composer
input = fill 15v (fill 15h #0) |> fold (λr. rect ((r.1, r.2, r.1, r.2), black)) #1
output = fill 3v (fill 3h #0) |> fold (λr. rect ((r.1, r.2, r.3, r.2), black)) #2
(Color, UList (VInt, HInt), UList (VInt, HInt, VInt))
(brown, {(3v, 13h)}, {(1v, 3h, 1v)})
(teal, {(8v, 8h), (3v, 2h)}, {(1v, 1h, 1v), (2v, 2h, 2v)})
(orange, {(10v, 3h), (3v, 12h), (3v, 4h)}, {(1v, 3h, 1v), (1v, 1h, 2v)})
(fuschia, {(13v, 14h), (2v, 6h)}, ?)