MenuView[{
" " ->
Manipulate[
Graphics[{EdgeForm[Thickness[list[[x]]]], White,
Rectangle[{0, 0}, {160, 90}],
Flatten@({Flatten@(Table[
RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
Range[2, 4, 1]),
MapThread[
Function[{Xs, Ys},
Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
Table[Range[0, 32, 16], {3}],
Flatten@(Table[#, {3}] & /@
Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300]
, {x, 1, 3, 1}
],
"Method\[Rule]{ShrinkWrap\[Rule]True}" ->
Manipulate[
Graphics[{EdgeForm[Thickness[list[[x]]]], White,
Rectangle[{0, 0}, {160, 90}],
Flatten@({Flatten@(Table[
RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
Range[2, 4, 1]),
MapThread[
Function[{Xs, Ys},
Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
Table[Range[0, 32, 16], {3}],
Flatten@(Table[#, {3}] & /@
Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300,
Method -> {"ShrinkWrap" -> True}]
, {x, 1, 3, 1}
],
"ImagePadding\[Rule]None,PlotRangePadding\[Rule]None" -> Manipulate[
Graphics[{EdgeForm[Thickness[list[[x]]]], White,
Rectangle[{0, 0}, {160, 90}],
Flatten@({Flatten@(Table[
RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
Range[2, 4, 1]),
MapThread[
Function[{Xs, Ys},
Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
Table[Range[0, 32, 16], {3}],
Flatten@(Table[#, {3}] & /@
Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300,
ImagePadding -> None, PlotRangePadding -> None]
, {x, 1, 3, 1}
]
}]