2 added 153 characters in body edited Dec 11 '15 at 10:50 Quantum_Oli 6,83922 gold badges1616 silver badges4141 bronze badges  m = {{-10, 3, 1}, {-7.5, 12, 3}, {-1.5, 5, 2}, {2, 4, 4}, {3, 7, 4}, {6, 9, 5}, {7, 1, 5}, {8, 3, 1}, {9, 12, 2}, {10, 8, 5}}; colors = {Black, Darker[Green], Red, Blue, Magenta, Orange, Cyan, Brown}; data = Table[{colors[[m[[i, 3]]]], Line[{{m[[i, 1]], -1}, {m[[i, 1]], 1}}]}, {i, 1, Length[m]}]; S0 = Graphics[data]  Or more compactly (you don't need Table):  Graphics[{colors[[#[[3]]]], Line[{{#[[1]], -1}, {#[[1]], 1}}]} & /@ m]  EDIT for Jason B: The graphic was made with the following additional options:  Frame -> True, AspectRatio -> 1/2, PlotRangePadding -> None   m = {{-10, 3, 1}, {-7.5, 12, 3}, {-1.5, 5, 2}, {2, 4, 4}, {3, 7, 4}, {6, 9, 5}, {7, 1, 5}, {8, 3, 1}, {9, 12, 2}, {10, 8, 5}}; colors = {Black, Darker[Green], Red, Blue, Magenta, Orange, Cyan, Brown}; data = Table[{colors[[m[[i, 3]]]], Line[{{m[[i, 1]], -1}, {m[[i, 1]], 1}}]}, {i, 1, Length[m]}]; S0 = Graphics[data]  Or more compactly (you don't need Table):  Graphics[{colors[[#[[3]]]], Line[{{#[[1]], -1}, {#[[1]], 1}}]} & /@ m]   m = {{-10, 3, 1}, {-7.5, 12, 3}, {-1.5, 5, 2}, {2, 4, 4}, {3, 7, 4}, {6, 9, 5}, {7, 1, 5}, {8, 3, 1}, {9, 12, 2}, {10, 8, 5}}; colors = {Black, Darker[Green], Red, Blue, Magenta, Orange, Cyan, Brown}; data = Table[{colors[[m[[i, 3]]]], Line[{{m[[i, 1]], -1}, {m[[i, 1]], 1}}]}, {i, 1, Length[m]}]; S0 = Graphics[data]  Or more compactly (you don't need Table):  Graphics[{colors[[#[[3]]]], Line[{{#[[1]], -1}, {#[[1]], 1}}]} & /@ m]  EDIT for Jason B: The graphic was made with the following additional options:  Frame -> True, AspectRatio -> 1/2, PlotRangePadding -> None  1 answered Dec 11 '15 at 10:41 Quantum_Oli 6,83922 gold badges1616 silver badges4141 bronze badges  m = {{-10, 3, 1}, {-7.5, 12, 3}, {-1.5, 5, 2}, {2, 4, 4}, {3, 7, 4}, {6, 9, 5}, {7, 1, 5}, {8, 3, 1}, {9, 12, 2}, {10, 8, 5}}; colors = {Black, Darker[Green], Red, Blue, Magenta, Orange, Cyan, Brown}; data = Table[{colors[[m[[i, 3]]]], Line[{{m[[i, 1]], -1}, {m[[i, 1]], 1}}]}, {i, 1, Length[m]}]; S0 = Graphics[data]  Or more compactly (you don't need Table):  Graphics[{colors[[#[[3]]]], Line[{{#[[1]], -1}, {#[[1]], 1}}]} & /@ m]