Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Aug 16th, 2013  |  syntax: None  |  size: 1.96 KB  |  views: 31  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.   }]