function xfb() --[[ xfb is a little 2D processing script, which can easily can be manipulated.]] F1size = F1size or 4096 F2size = F2size or 1024 --value for horizontal mark spectral = getf 'y' y = spectral.start + spectral.width -- max ppm value --ph0 = ph0 or 144 --phase correction --ph1 = ph1 or 0 --f2 Dimension parameters swap = true mirror = true real = false subtractDC = false --Weighting functions Exp = 40 Gaus = false Sin = 90 Sin_sqr = false --f2 dimension fill(F2size) --Zero filling ft( swap, mirror, real, subtractDC ) weight(Exp,Gaus,sin,sin_sqr) wft(true,true,false) --FT wft( [weight[, transform[, hyperize ]]] ) mark("h",y) --Define a horizontal trace to phase correct extract() aph() --automatic phase correction -- or try a pre defined phase -- phase(ph0,ph1) closex() --cmd 'MAKE' --removes the imaginary part of the spectrum, equialent to the Process/Make Real command --f1 Dimension parameters swap = true mirror = true real = true subtractDC = false --Weighting functions Exp = 100 Gaus = false Sin = false Sin_sqr = 90 --f1 dimension fill(F1size) --Zero filling ft( swap, mirror, real, subtractDC ) weight(Exp,Gaus,sin,sin_sqr) wft(true,true,false) --FT wft( [weight[, transform[, hyperize ]]] ) transpose(2, 1) -- Transposes the Spectrum shift(-2.4992,1) -- shifts 2.4992 ppm to 0 on f1. --2D spectrum commands --bidi("A") -- Arrayed Plot --bidi("B") -- ChessBoard Plot --bidi("C") -- Contour Plot --bidi("F") -- Fast Plot --bidi("S") -- Stacked Plot --bidi("Y") -- Symmetrize Square Matrix --bidi("T") -- Tilt --bidi("J") -- Symmetrize J-resolved 2D --bidi("N") -- Reduce t1 noise amp() -- implements the changes end