Annotate traces by color

Function AnnotationColor()
	variable tnum
	string traces=tracenamelist("",";",1),text=""
	for(tnum=0;tnum<itemsinlist(traces,";");tnum+=1)
		text+="\K"+StringByKey("rgb(x)", TraceInfo("",stringfromlist(tnum,traces,";"),0),"=")+stringfromlist(tnum,traces,";")+"\r"
	endfor
	if(strlen(text)>0)
		TextBox removeending(text)
	endif
End