NUTSMacro Varian g_hmbc, magnitude

;import data before starting macro

;macro prompts for name of data set
; select translated NUTS data file (starts with $)
ask filea
ga
set sl 1
set s# 0
set lb 5
set filec ft1.2d

; 1st dimension processing using sine sq window fcn
ga bc ms ms ft bc sc in

; transpose data
set filec td.2d
set filea ft1.2d
set sl 1
ga
td
set filea td.2d
set filec ft2.2d
set sl 1

; 2nd dimension processing using exponential mult and magnitude calcn
ga em zf ft mc bc sc in

; tranpose
set filea ft2.2d
set filec final.2d
set sl 1
ga
td

; display intensity plot
set filea final.2d
ga
ss
set mh 5
ip
end