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