ARC

Appearance

On this page

1e0a9b12 ​

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

let input = fill (bg.1) (fill (bg.2) black)
  |> fold (λ(c, x, ys). fold (λy. point (y, x) c) ys) ps

let output = fill (bg.1) (fill (bg.2) black)
  |> fold (λ(c, x, ys). vline (-len ys, -1, x, c)) ps
composer
input = fill #0 (fill #1 black) |> fold (λr. rect ((r.2, r.3, r.4, r.3), r.1)) #2
output = #3
(VInt, HInt, UList (Color, VInt, HInt, VInt), OList OList Color)
(4v, 4h, {(blue, 4v, 1h, 4v), (brown, 1v, 4h, 1v), (yellow, 1v, 2h, 1v), (fuschia, 3v, 3h, 3v), (yellow, 3v, 2h, 3v)}, [[black, black, black, black], [black, black, black, black], [black, yellow, black, black], [blue, yellow, fuschia, brown]])
(6v, 6h, {(orange, 5v, 3h, 6v), (yellow, 4v, 1h, 6v), (brown, 1v, 6h, 1v), (teal, 5v, 4h, 5v), (teal, 2v, 4h, 2v)}, [[black, black, black, black, black, black], [black, black, black, black, black, black], [black, black, black, black, black, black], [yellow, black, black, black, black, black], [yellow, black, orange, teal, black, black], [yellow, black, orange, teal, black, brown]])
(5v, 5h, {(green, 5v, 2h, 5v), (black, 5v, 1h, 5v), (fuschia, 4v, 1h, 4v), (red, 3v, 5h, 3v), (blue, 1v, 4h, 1v), (blue, 3v, 4h, 3v), (green, 2v, 2h, 3v)}, [[black, black, black, black, black], [black, black, black, black, black], [black, green, black, black, black], [black, green, black, blue, black], [fuschia, green, black, blue, red]])
(5v, 5h, {(grey, 4v, 1h, 5v), (grey, 2v, 1h, 2v), (green, 1v, 5h, 1v), (yellow, 1v, 4h, 1v), (red, 1v, 2h, 1v), (black, 1v, 1h, 1v), (yellow, 4v, 4h, 4v), (red, 4v, 2h, 4v), (fuschia, 3v, 3h, 3v)}, ?)