1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
<br>QueueGraphic[q_, len_, smargin_, dmargin_] := Module[i,
<br> Graphics[
<br> {
<br>
<br> Table[
<br> Translate[{
<br> Text[Style[i, FontSize -> 7, FontColor -> Gray], {5, -4}],
<br> Ifqueuedata[[i] == 1, {
<br> RGBColor[106/255, 157/255, 174/255],
<br> Rectangle[{0, 0}, {10, 10}],
<br> RGBColor[106/255, 157/255, 174/255],
<br> Rectangle[{0, 10}, {10, 13}],
<br> RGBColor[128/255, 128/255, 128/255],
<br> Line[{{0, 10}, {10, 13}}],
<br> Line[{{0, 13}, {10, 10}}]
<br> }, {}],
<br> Ifqueuedata[[i] == 2, {
<br> RGBColor[255/255, 192/255, 0/255],
<br> Rectangle[{0, 0}, {10, 10}]
<br> }, {}],
<br> Ifqueuedata[[i] == 3, {
<br> RGBColor[225/255, 225/255, 225/255],
<br> Rectangle[{0, 0}, {10, 10}]
<br> }, {}],
<br> Ifqueuedata[[i] == 4, {
<br> RGBColor[49/255, 155/255, 115/255],
<br> Rectangle[{0, 0}, {10, 10}], Rectangle[{0, 10}, {10, 13}],
<br> If[i > (len - smargin), Rectangle[{0, 10}, {10, 16}], {}],
<br> If[i > (len - dmargin), Rectangle[{0, 10}, {10, 19}], {}]
<br> }, {}]
<br>
<br> ,
<br> If[i > (len/2),
<br> {
<br> (*Main box*)
<br> RGBColor[128/255, 128/255, 128/255],
<br> Line[{{0, 0}, {10, 10}}],
<br> Line[{{0, 10}, {10, 0}}],
<br>
<br> (*Margin box*)
<br> RGBColor[128/255, 128/255, 128/255],
<br> Line[{{0, 10}, {10, 13}}],
<br> Line[{{0, 13}, {10, 10}}]
<br>
<br> } ,
<br> { }
<br> ]
<br> ,
<br>
<br> If[i > (len - smargin),
<br> {
<br> RGBColor[128/255, 128/255, 128/255],
<br> Line[{{0, 13}, {10, 16}}],
<br> Line[{{0, 16}, {10, 13}}],
<br>
<br> Black,
<br> Line[{{10, 13}, {10, 16}}],
<br> Line[{{10, 16}, {0, 16}}],
<br> Line[{{0, 13}, {0, 16}}]
<br> },
<br> {}
<br> ]
<br> ,
<br>
<br> If[i > (len - dmargin),
<br> {
<br> RGBColor[128/255, 128/255, 128/255],
<br> Line[{{0, 16}, {10, 19}}],
<br> Line[{{0, 19}, {10, 16}}],
<br>
<br> Black,
<br> Line[{{10, 16}, {10, 19}}],
<br> Line[{{10, 19}, {0, 19}}],
<br> Line[{{0, 16}, {0, 19}}]
<br> },
<br> {}
<br> ]
<br>
<br> ,
<br> Black,
<br> Line[{{0, 0}, {0, 10}}],
<br> Line[{{0, 10}, {10, 10}}],
<br> Line[{{0, 0}, {10, 0}}],
<br> Line[{{10, 0}, {10, 10}}],
<br>
<br> Black,
<br> Line[{{10, 10}, {10, 13}}],
<br> Line[{{10, 13}, {0, 13}}],
<br> Line[{{0, 10}, {0, 13}}]
<br>
<br>
<br> }, {i*10, 0}]
<br> , {i, 1, len}]
<br> }
<br> ]
<br>
<br> ];
<br>
<br> |
6 inch Type B-Mini USB Cable 
ButtonPad 
GamePack 
Illuminato X Machina 
Lithium Backpack 
Mega Backpack 
TouchShield Slide 
TouchShield Stealth 
TripleWide ExtenderShield X 
