Get Color of Graph Trace In Variables

// This was posted by Rick Gerkin to the Igor mailing list. I added a demo function.

Function GetTraceColor(graph,trace,red,green,blue)
    String graph, trace
    Variable &red,&green,&blue

    String info = TraceInfo(graph,trace,0)
    String color=StringByKey("rgb(x)",info,"=")
    sscanf color,"(%d,%d,%d)",red,green,blue
End

Function DemoGetTraceColor()
    Make/O TraceColorDemoWave = sin(x/8)
   
    DoWindow TraceColorDemoGraph
    if (V_Flag == 0)
        Display /N=TraceColorDemoGraph TraceColorDemoWave
        ModifyGraph rgb(TraceColorDemoWave) = (50000, 40000, 30000)
    endif
   
    Variable red, green, blue
   
    GetTraceColor("TraceColorDemoGraph","TraceColorDemoWave",red,green,blue)
    Print red, green, blue
End