ARC

Appearance

On this page

d5d6de2d ​

arc
let s: Int
let fs: OList (Int, Int, Int, Int)

let input = fill s (fill s black)
  |> fold (λf. frame f red) fs

let output = fill s (fill s black)
  |> fold (λ(y1, x1, y2, x2). rect ((y1 + 1, x1 + 1, y2 - 1, x2 - 1), green)) fs
composer
input = fill #0 (fill #1 black) |> fold (λr. rect (r, red)) #2 |> fold rect #3
output = fill #0 (fill #1 black) |> fold (λr. rect ((r.1 + 1, r.2 + 1, r.3 - 1, r.4 - 1), green)) #2
(VInt, HInt, UList (VInt, HInt, VInt, HInt), UList ((VInt, HInt, VInt, HInt), Color))
(10v, 10h, {(6v, 5h, 10v, 8h), (2v, 2h, 4v, 4h)}, {((7v, 6h, 9v, 7h), black), ((3v, 3h, 3v, 3h), black)})
(10v, 10h, {(2v, 5h, 5v, 7h)}, {((3v, 6h, 4v, 6h), black)})
(15v, 15h, {(2v, 2h, 6v, 6h)}, {((8v, 11h, 9v, 12h), red), ((3v, 3h, 5v, 5h), black)})
(10v, 10h, {(5v, 2h, 10v, 9h), (1v, 1h, 3v, 3h)}, {((6v, 3h, 9v, 8h), black), ((2v, 2h, 2v, 2h), black)})
(25v, 25h, {(19v, 2h, 24v, 6h), (10v, 16h, 13v, 24h), (2v, 2h, 4v, 8h)}, {((8v, 5h, 9v, 6h), red), ((20v, 3h, 23v, 5h), black), ((11v, 17h, 12v, 23h), black), ((3v, 3h, 3v, 7h), black)})