ARC

Appearance

On this page

694f12f3 ​

arc
let r1: (Int, Int, Int, Int)
let r2: (Int, Int, Int, Int)

let input = fill 10 (fill 10 black)
  |> rect (r1, yellow)
  |> rect (r2, yellow)

let output = fill 10 (fill 10 black)
  |> rect (r1, yellow)
  |> rect (r2, yellow)
  |> rect ((r1.1 + 1, r1.2 + 1, r1.3 - 1, r1.4 - 1), red)
  |> rect ((r2.1 + 1, r2.2 + 1, r2.3 - 1, r2.4 - 1), blue)
composer
input = fill 10v (fill 10h black) |> rect ((#1.3 + 2, #0, 10v, 11 - #1.2), yellow) |> rect (#1, yellow)
output = fill 10v (fill 10h black) |> rect ((#1.3 + 2, #0, 10v, 9h), yellow) |> rect ((2v, 2h, #1.3, #1.4), yellow) |> rect ((#1.3 + 3, #0 + 1, 9v, 8h), #2) |> rect ((3v, 3h, #1.3 - 1, #1.4 - 1), #3)
(HInt, (VInt, HInt, VInt, HInt), Color, Color)
(4h, (2v, 2h, 5v, 5h), red, blue)
(6h, (2v, 2h, 6v, 6h), blue, red)
(5h, (1v, 1h, 6v, 6h), ?, ?)