2 added 153 characters in body
source | link
    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]

enter image description here

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]

enter image description here

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]

enter image description here

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
source | link

    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]

enter image description here

Or more compactly (you don't need Table):

    Graphics[{colors[[#[[3]]]], Line[{{#[[1]], -1}, {#[[1]], 1}}]} & /@ m]