ARC

Appearance

On this page

bda2d7a6 ​

arc
let cs: OList Color

let input = fill (2 * len cs) (fill (2 * len cs) black)
  |> fold (λ(c, i). rect ((i, i, -i, -i), c)) (index cs)

let output = fill (2 * len cs) (fill (2 * len cs) black)
  |> fold (λ(c, i). rect ((i, i, -i, -i), c))
    (index (take (1, len cs) [cs.3, cs.1, cs.2, cs.3]))
composer
input = fill #0 (fill #1 #2) |> fold (fold rect) #3
output = fill #0 (fill #1 #4) |> fold (fold rect) #5
(VInt, HInt, Color, OList UList ((VInt, HInt, VInt, HInt), Color), Color, OList UList ((VInt, HInt, VInt, HInt), Color))
(6v, 6h, green, [{((2v, 2h, 5v, 5h), red)}, {((3v, 3h, 4v, 4h), black)}], black, [{((2v, 2h, 5v, 5h), green)}, {((3v, 3h, 4v, 4h), red)}])
(6v, 6h, black, [{((2v, 2h, 5v, 5h), orange)}, {((3v, 3h, 4v, 4h), fuschia)}], fuschia, [{((2v, 2h, 5v, 5h), black)}, {((3v, 3h, 4v, 4h), orange)}])
(8v, 8h, teal, [{((2v, 2h, 7v, 7h), black)}, {((3v, 3h, 6v, 6h), grey)}, {((4v, 4h, 5v, 5h), teal)}], grey, [{((2v, 2h, 7v, 7h), teal)}, {((3v, 3h, 6v, 6h), black)}, {((4v, 4h, 5v, 5h), grey)}])
(6v, 6h, brown, [{((2v, 2h, 5v, 5h), black)}, {((3v, 3h, 4v, 4h), blue)}], ?, ?)
(8v, 8h, green, [{((2v, 2h, 7v, 7h), orange)}, {((3v, 3h, 6v, 6h), fuschia)}, {((4v, 4h, 5v, 5h), green)}], ?, ?)