Shaded Error Bars

// Makes shaded error bars, given a data wave and a wave containing e.g. standard errors.  
Function ShadedErrorBars(Data,Error)
       Wave Data,Error
     
       String dataName=GetWavesDataFolder(Data,2)
       String dataLow=dataName+"_Low"
       String dataHigh=dataName+"_High"
       Duplicate /o Error,$dataLow /WAVE=Low
       Duplicate /o Error,$dataHigh /WAVE=High
       Low=Data-Error
       High=Data+Error
       Display
       AppendToGraph Low
       ModifyGraph mode[0]=7, toMode[0]=1, hbFill[0]=4
       AppendToGraph Data
       ModifyGraph mode[1]=7, toMode[1]=1, hbFill[1]=4, lsize[1]=2
       AppendToGraph High
End