#ifndef GRADNELEM
#define GRADNELEM	100
#endif

#ifndef GRADLENGTH
#define GRADLENGTH	400u
#endif

#ifndef GRADDELAY
#define GRADDELAY	400u
#endif

#define GRAD( LABEL, FACTOR ) %\
50u*FACTOR:c4	%\
LABEL	2u*FACTOR:ngrad:c4	%\
	1.48u*FACTOR:c4	%\
	lo to LABEL times GRADNELEM	%\
	2u*FACTOR:ngrad:c4	%\
GRADDELAY:c4

#define NEGGRAD( LABEL, FACTOR ) %\
50u*FACTOR:c4:c16	%\
LABEL	2u*FACTOR:ngrad:c4:c16	%\
	1.48u*FACTOR:c4:c16	%\
	lo to LABEL times GRADNELEM	%\
	2u*FACTOR:ngrad:c4:c16	%\
GRADDELAY:c4:c16