(@up    sampler select :sample-above)
(@down  sampler select :sample-below)
(@left  sampler select :sample-to-left)
(@right sampler select :sample-to-right)
(@r     sampler record-toggle :sample-selected)