d4a91cb9

arc

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

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

let output = fill (bg.1) (fill (bg.2) black)
  |> hline (p2.1, p1.2, p2.2, yellow)
  |> vline (p1.1, p2.1, p1.2, yellow)
  |> point p1 teal
  |> point p2 red

composer

input = fill #0 (fill #1 black) |> rect ((#2, #3, #2, #3), red) |> rect ((#4, #5, #4, #5), teal)
output = fill #0 (fill #1 black) |> fold (λr. rect ((r.1, #5, #6, r.2), yellow)) #7 |> fold (λr. rect ((#2, r.2, #2, r.3), r.1)) #8 |> rect ((#4, #5, #4, #5), teal)
(VInt, HInt, VInt, HInt, VInt, HInt, VInt, UList (VInt, HInt), UList (Color, HInt, HInt))
(10v, 12h, 9v, 10h, 3v, 2h, 9v, {(9v, 9h), (4v, 2h)}, {(red, 10h, 10h)})
(8v, 11h, 6v, 2h, 2v, 9h, 6v, {(3v, 9h)}, {(yellow, 3h, 9h), (red, 2h, 2h)})
(12v, 11h, 2v, 9h, 11v, 3h, 10v, {(2v, 3h)}, {(yellow, 3h, 8h), (red, 9h, 9h)})
(12v, 13h, 3v, 12h, 9v, 4h, ?, ?, ?)

Input	Output

d4a91cb9 ​

d4a91cb9