Appearance
2013d3e2 ​
arc
let g: OList OList Color
let p: (Int, Int)
let input = fill 10 (fill 10 black)
|> grid p (flat [
hcat [g, map rev (tp g)],
hcat [rev (tp g), rev (map rev g)],
])
let output = gcomposer
input = fill 10v (fill 10h black) |> fold rect #0
output = [[#1, black, #2], [black, #3, #4], [#5, #6, #7]]
(UList ((VInt, HInt, VInt, HInt), Color), Color, Color, Color, Color, Color, Color, Color)
({((8v, 5h, 8v, 6h), orange), ((7v, 7h, 7v, 7h), fuschia), ((7v, 4h, 7v, 4h), fuschia), ((5v, 8h, 6v, 8h), orange), ((5v, 3h, 6v, 3h), orange), ((4v, 7h, 4v, 7h), fuschia), ((4v, 4h, 4v, 4h), fuschia), ((3v, 5h, 3v, 6h), orange), ((7v, 5h, 7v, 6h), teal), ((5v, 7h, 6v, 7h), teal), ((5v, 4h, 6v, 4h), teal), ((4v, 5h, 4v, 6h), teal), ((5v, 5h, 6v, 6h), yellow)}, black, orange, fuschia, teal, orange, teal, yellow)
({((7v, 7h, 7v, 7h), blue), ((7v, 2h, 7v, 2h), blue), ((6v, 6h, 6v, 6h), green), ((6v, 5h, 6v, 5h), fuschia), ((6v, 4h, 6v, 4h), grey), ((6v, 3h, 6v, 3h), green), ((5v, 6h, 5v, 6h), grey), ((5v, 3h, 5v, 3h), fuschia), ((4v, 6h, 4v, 6h), fuschia), ((4v, 3h, 4v, 3h), grey), ((3v, 6h, 3v, 6h), green), ((3v, 5h, 3v, 5h), grey), ((3v, 4h, 3v, 4h), fuschia), ((3v, 3h, 3v, 3h), green), ((2v, 7h, 2v, 7h), blue), ((2v, 2h, 2v, 2h), blue), ((4v, 4h, 5v, 5h), red)}, blue, black, green, fuschia, black, grey, red)
({((7v, 6h, 7v, 7h), yellow), ((7v, 5h, 8v, 5h), teal), ((6v, 7h, 6v, 8h), teal), ((6v, 4h, 7v, 4h), yellow), ((5v, 3h, 5v, 4h), teal), ((4v, 7h, 5v, 7h), yellow), ((4v, 4h, 4v, 5h), yellow), ((3v, 6h, 4v, 6h), teal), ((5v, 5h, 6v, 6h), green)}, ?, ?, ?, ?, ?, ?, ?)