ARC

Appearance

On this page

bdad9b1f ​

arc
let vl: (Int, Int, Int)
let hl: (Int, Int, Int)

let input = fill 6 (fill 6 black)
  |> vline (vl.1, vl.2, vl.3, teal)
  |> hline (hl.1, hl.2, hl.3, red)

let output = fill 6 (fill 6 black)
  |> vline (1, -1, vl.3, teal)
  |> hline (hl.1, 1, -1, red)
  |> point (hl.1, vl.3) yellow
composer
input = fill 6v (fill 6h black) |> rect ((#1, #0, #1, #2), red) |> rect ((1v, #3, 2v, #3), teal)
output = fill 6v (fill 6h black) |> rect ((1v, #3, 6v, #3), teal) |> rect ((#1, 1h, #1, 6h), red) |> rect ((#1, #3, #1, #3), yellow)
(HInt, VInt, HInt, HInt)
(1h, 3v, 2h, 5h)
(5h, 4v, 6h, 2h)
(1h, 5v, 2h, 4h)