ARC

Appearance

On this page

272f95fa ​

composer
input = fill #1 (fill #0 teal) |> fold (λr. rect ((#4 + 2, r.1, #1, r.2), black)) #2 |> fold (λr. rect ((1v, r.1, #3 - 2, r.2), black)) #2 |> fold (λr. rect ((#3, r.1, #4, r.2), black)) #5
output = fill #1 (fill #0 teal) |> rect ((9v, #6.1, #1, #6.2), blue) |> fold (λr. rect ((9v, r.1, #1, r.2), black)) #7 |> fold (λr. rect ((1v, r.2, #3 - 2, r.3), r.1)) #8 |> fold (λr. rect ((#3, r.2, 7v, r.3), r.1)) #9
(HInt, VInt, UList (HInt, HInt), VInt, VInt, UList (HInt, HInt), (HInt, HInt), UList (HInt, HInt), UList (Color, HInt, HInt), UList (Color, HInt, HInt))
(19h, 18v, {(13h, 19h), (6h, 11h), (1h, 4h)}, 4v, 7v, {(13h, 19h), (1h, 4h), (6h, 11h)}, (6h, 11h), {(13h, 19h), (1h, 4h)}, {(black, 13h, 19h), (red, 6h, 11h), (black, 1h, 4h)}, {(green, 13h, 19h), (yellow, 1h, 4h), (fuschia, 6h, 11h)})
(14h, 12v, {(11h, 14h), (4h, 9h), (1h, 2h)}, 6v, 7v, {(11h, 14h), (1h, 2h), (4h, 9h)}, (4h, 9h), {(11h, 14h), (1h, 2h)}, {(black, 11h, 14h), (red, 4h, 9h), (black, 1h, 2h)}, {(green, 11h, 14h), (yellow, 1h, 2h), (fuschia, 4h, 9h)})
(15h, 17v, {(10h, 15h), (5h, 8h), (1h, 3h)}, 8v, 13v, {(10h, 15h), (1h, 3h), (5h, 8h)}, (?, ?), ?, ?, ?)
arc
let y1: Int
let y2: Int
let x1: Int
let x2: Int
let yn: Int
let xn: Int

let input = fill yn (fill xn black)
  |> vline (1, -1, x1, teal)
  |> vline (1, -1, x2, teal)
  |> hline (y1, 1, -1, teal)
  |> hline (y2, 1, -1, teal)

let output = fill yn (fill xn black)
  |> vline (1, -1, x1, teal)
  |> vline (1, -1, x2, teal)
  |> hline (y1, 1, -1, teal)
  |> hline (y2, 1, -1, teal)
  |> rect ((1, x1 + 1, y1 - 1, x2 - 1), red)
  |> rect ((y2 + 1, x1 + 1, -1, x2 - 1), blue)
  |> rect ((y1 + 1, 1, y2 - 1, x1 - 1), yellow)
  |> rect ((y1 + 1, x2 + 1, y2 - 1, -1), green)
  |> rect ((y1 + 1, x1 + 1, y2 - 1, x2 - 1), fuschia)