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