Advertisement
Guest User

Untitled

a guest
Aug 16th, 2013
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.96 KB | None | 0 0
  1. MenuView[{
  2. " " ->
  3. Manipulate[
  4. Graphics[{EdgeForm[Thickness[list[[x]]]], White,
  5. Rectangle[{0, 0}, {160, 90}],
  6. Flatten@({Flatten@(Table[
  7. RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
  8. Range[2, 4, 1]),
  9. MapThread[
  10. Function[{Xs, Ys},
  11. Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
  12. Table[Range[0, 32, 16], {3}],
  13. Flatten@(Table[#, {3}] & /@
  14. Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
  15. Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300]
  16. , {x, 1, 3, 1}
  17. ],
  18. "Method\[Rule]{ShrinkWrap\[Rule]True}" ->
  19. Manipulate[
  20. Graphics[{EdgeForm[Thickness[list[[x]]]], White,
  21. Rectangle[{0, 0}, {160, 90}],
  22. Flatten@({Flatten@(Table[
  23. RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
  24. Range[2, 4, 1]),
  25. MapThread[
  26. Function[{Xs, Ys},
  27. Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
  28. Table[Range[0, 32, 16], {3}],
  29. Flatten@(Table[#, {3}] & /@
  30. Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
  31. Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300,
  32. Method -> {"ShrinkWrap" -> True}]
  33. , {x, 1, 3, 1}
  34. ],
  35. "ImagePadding\[Rule]None,PlotRangePadding\[Rule]None" -> Manipulate[
  36. Graphics[{EdgeForm[Thickness[list[[x]]]], White,
  37. Rectangle[{0, 0}, {160, 90}],
  38. Flatten@({Flatten@(Table[
  39. RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@
  40. Range[2, 4, 1]),
  41. MapThread[
  42. Function[{Xs, Ys},
  43. Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@
  44. Table[Range[0, 32, 16], {3}],
  45. Flatten@(Table[#, {3}] & /@
  46. Range[63, 81, 9])}]}\[Transpose]), Black, Thick,
  47. Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300,
  48. ImagePadding -> None, PlotRangePadding -> None]
  49. , {x, 1, 3, 1}
  50. ]
  51. }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement