ARC

Appearance

On this page

178fcbfb ​

arc
let bg: (Int, Int)
let rs: OList (Int, Int)
let gs: OList (Int, Int)
let bs: OList (Int, Int)

let input = fill (bg.1) (fill (bg.2) black)
  |> fold (λp. point p red) rs
  |> fold (λp. point p green) gs
  |> fold (λp. point p blue) bs

let output = fill (bg.1) (fill (bg.2) black)
  |> fold (λ(y, x). vline (1, -1, x, red)) rs
  |> fold (λ(y, x). hline (y, 1, -1, green)) gs
  |> fold (λ(y, x). hline (y, 1, -1, blue)) bs
composer
input = fill #0 (fill #1 black) |> fold (λr. rect ((r.1, r.2, r.1, r.2), blue)) #2 |> fold (λr. rect ((r.1, r.2, r.1, r.2), green)) #3 |> fold (λr. rect ((r.1, r.2, r.1, r.2), red)) #4
output = fill #0 (fill #1 black) |> fold (λr. rect ((1v, r.2, #0, r.2), red)) #4 |> fold (λr. rect ((r.1, 1h, r.1, #1), blue)) #2 |> fold (λr. rect ((r.1, 1h, r.1, #1), green)) #3
(VInt, HInt, UList (VInt, HInt), UList (VInt, HInt), UList (VInt, HInt))
(9v, 9h, {(7v, 4h)}, {(5v, 8h)}, {(3v, 3h)})
(10v, 8h, {(7v, 2h)}, {(5v, 4h), (2v, 2h)}, {(8v, 6h)})
(10v, 11h, {(2v, 2h)}, {(7v, 3h), (4v, 9h)}, {(10v, 10h), (9v, 4h)})
(12v, 11h, {(10v, 9h), (8v, 2h)}, {(1v, 4h), (4v, 6h)}, {(6v, 5h), (2v, 10h)})