ARC

Appearance

On this page

a2fd1cf0 ​

arc
let bg: (Int, Int)
let p1: (Int, Int)
let p2: (Int, Int)

let input = fill (bg.1) (fill (bg.2) black)
  |> point p1 green
  |> point p2 red

let output = fill (bg.1) (fill (bg.2) black)
  |> hline (p2.1, p1.2, p2.2, teal)
  |> vline (p1.1, p2.1, p1.2, teal)
  |> point p1 green
  |> point p2 red
composer
input = fill #0 (fill #1 black) |> rect ((#2, #3, #2, #3), green) |> rect ((#4, #5, #4, #5), red)
output = fill #0 (fill #1 black) |> fold (λr. rect ((#6, r.1, r.2, #3), teal)) #7 |> fold (λr. rect ((#8, r.2, #9, r.3), r.1)) #10 |> fold (λr. rect ((2v, r.2, 2v, r.3), r.1)) #11
(VInt, HInt, VInt, HInt, VInt, HInt, VInt, UList (HInt, VInt), VInt, VInt, UList (Color, HInt, HInt), UList (Color, HInt, HInt))
(15v, 15h, 14v, 11h, 2v, 5h, 2v, {(11h, 13v), (6h, 2v)}, 14v, 14v, {(green, 11h, 11h)}, {(red, 5h, 5h)})
(10v, 16h, 2v, 12h, 8v, 2h, 3v, {(12h, 8v)}, 8v, 8v, {(teal, 3h, 12h), (red, 2h, 2h)}, {(green, 12h, 12h)})
(12v, 14h, 11v, 5h, 2v, 12h, 2v, {(5h, 10v)}, 11v, 11v, {(green, 5h, 5h)}, {(teal, 5h, 11h), (red, 12h, 12h)})
(12v, 14h, 11v, 11h, 3v, 2h, ?, ?, ?, ?, ?, ?)