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