; this one test basic reading and processing of 2Ds
disp1d 1 disp2d 0 cdisp2d 0
read fit_test
evaln 33 142 addbase %% max
zoom 1 636 807
minimax (10*$noise) % peak showpeaks
report ($npk1d == 21) "peak"

zoom 1 643 687 
showpeaks
iter 10
linefit lorentz
set a = (abs($chi2-36.4)<1)
peak showpeaks
linefit gauss
report ($a &  (abs($chi2-10.2)<1)) "Linefit"

zoom 0
