<< "Graphics`Arrow`"

?Arrow

?Line

varr[x_, y_, h_, col_] := 
      Graphics[{col, Arrow[{x, y},  {x, y + h}]}]

red = RGBColor[1, 0, 0]; blue = RGBColor[0, 0, 1];  
    green = RGBColor[0, 1, 0]; black = RGBColor[0, 0, 0];

Show[varr[0, 0, 1, black]]

hline[x_, y_, h_, col_] := 
      Graphics[{col,  Line[{{x, y},  {x + h, y}}]}]

Show[hline[0, 0, 1, blue]]

Show[hline[0, 0, 1, red], hline[0, 1/2, 1,  red],  
      Table[hline[0,  .75  n,  1, blue],  {n, 3}]]

?Text

tt[text_,  coord_] := Graphics[Text[text,  coord]]

Show[tt["test",  {0, 0}]]

plot := 
      Show[hline[0, 0, 1.5, red], hline[0, 1/2, 1.5,  red],  
        Table[hline[0, 1.2  n,  1.5, blue],  {n, 1}], 
        Table[hline[0, 1.7  n,  1.5, blue],  {n, 1}],  
        varr[ .4, 0,  .48, red], varr[ .5,  .5, - .48, red],  
        tt["IR:",  { .25,  .25}], varr[ .7, 0, 1.2, blue],  
        varr[ .8, 1.2, -1.2, green],  
        tt["Rayleigh",  { .9,  .25}],  
        varr[1. ,  1.2, - .7, black], 
        tt["Raman-St.",  {1.1,  .8}],  varr[1.3,  .5, 1.2, blue],  
        varr[1.4, 1.7, -1.7, black],  
        tt["Raman-antiSt.",  {1.37,  .25}]]

disp := Display["t.ps",  #,  "EPS"] &

figRaman := disp[plot]

figRaman

Save["figRaman.m",  figRaman]