Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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}
- ]
- }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement