fb791726

arc

let s: Int
let c: Color
let ps: OList (Int, Int)

let input = fill s (fill s black)
  |> fold (λ(y, x). λg. g
    |> point (y - 1, x) c
    |> point (y + 1, x) c) ps

let output = fill (s * 2) (fill (s * 2) black)
  |> fold (λ(y, x). λg. g
    |> point (y - 1, x) c
    |> point (y + 1, x) c
    |> hline (y, 1, -1, green)
    |> point (y + s - 1, x + s) c
    |> point (y + s + 1, x + s) c
    |> hline (y + s, 1, -1, green)) ps

composer

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

Input	Output

fb791726 ​

fb791726