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