Get the color of a trace on a graph

Make test
Display test
print GetTraceColor("Graph0", "test")
  65535,0,0
ModifyGraph rgb=(0,0,39168)
print GetTraceColor("Graph0", "test")
  0,0,39168

//**
// Get the RGB triplet representing the color of a trace on a graph.
//
// @param graphName
//  A string containing the name of the graph.
// @param traceName
//  A string containing the name of the trace.
// @return
//  A string containing a comma separated list with the red, green,
//  and blue numeric values of the specified trace, or if there was
//  an error an empty string will be returned.
//*
Function/S GetTraceColor(graphName, traceName)
    String graphName
    String traceName
   
    if (WinType(graphName) != 1)
        printf "There is not a graph named %s.\r", graphName
        return ""
    endif
   
    String info = TraceInfo(graphName, traceName, 0)
    if (strlen(info) <= 0)
        printf "There is not a trace named %s on graph %s.\r", traceName, graphName
        return ""
    endif
   
    String traceRecreation = info[strsearch(info, "RECREATION", 1), strlen(info) - 1]
    String traceColors = StringByKey("rgb(x)", traceRecreation, "=", ";")
   
    // Remove parenthesis from string.
    traceColors = RemoveEnding(traceColors[1, strlen(traceColors) - 1], ")")
    return traceColors             
End