Placeholder… I’ll add notes!
Here’s the source code to my mathematica queue generating script:
<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>
