Description: sample contribution to tof peak shape

Contributed by: John Evans

macro tof_sample_peakshape(lor,lor_val,dsp,dsp_val,dspsq,dspsq_val) 
{         
      prm dsp dsp_val del = 0.05 Val + 1; min 1
      prm dspsq dspsq_val del = 0.05 Val + 1; min 0
      peak_type pv             
         pv_lor lor lor_val
         pv_fwhm  = dsp D_spacing + dspsq D_spacing^2;    
}