// 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