Function MakePeak, size
IF (N_Elements(size) EQ 0) THEN size=40
peak = Shift(Dist(size),size/2+5, size/2-5)
peak = Exp(-(peak/15)^2)
RETURN, peak
END