Color traces on graph

Menu "Macros"
	"Color waves.../1", ColorWaves() //Ctrl+1 
End

Macro ColorWaves()
	Variable rev = 1
	String colorTable = "RainbowCycle"
	ColorTraces(rev, colorTable)
End

Function ColorTraces( rev, colorTable )
//% V1.5
	Variable rev 
	String colorTable 
	
	String list = TraceNameList( "", ";", 1 )
	Variable numItems = ItemsInList( list )
	if ( numItems == 0 )
		return 0
	endif
	
	ColorTab2Wave $colorTable
	Wave M_colors	
	
	Variable index, traceindex
	for( index = 0; index < numItems; index += 1 )			
		Variable row = ( index/numItems )*DimSize( M_Colors, 0 )
		traceindex = ( rev == 0 ? index : numItems - index )
		Variable red = M_Colors[ row ][ 0 ], green = M_Colors[ row ][ 1 ], blue = M_Colors[ row ][ 2 ]
		ModifyGraph/Z rgb[ traceindex ] = ( red, green, blue )
	endfor

	KillWaves/Z M_colors
End