1bfc4729 ​

let p1: (Int, Int)
let p2: (Int, Int)
let c1: Color
let c2: Color

let input = fill 10 (fill 10 black)
  |> point p1 c1
  |> point p2 c2

let output = fill 10 (fill 10 black)
  |> vline (1, 5, 1, c1)
  |> vline (1, 5, -1, c1)
  |> hline (1, 1, -1, c1)
  |> hline (3, 1, -1, c1)
  |> vline (-5, -1, 1, c2)
  |> vline (-5, -1, -1, c2)
  |> hline (-1, 1, -1, c2)
  |> hline (-3, 1, -1, c2)