Check out the Pastebin Gadgets Shop. We have thousands of fun, geeky & affordable gadgets on sale :-)Want more features on Pastebin? Sign Up, it's FREE!
tweet

# Untitled

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