Automatically Add Annotations

// Adds a legend and a tag for each trace to the specified graph.
// Example:
//  Make/O/N=10 wave0=p, wave1=p+1, wave2=p+2
//  Display wave0, wave1, wave2
//  AutoAddAnnotations("")
Function AutoAddAnnotations(graphName)
    String graphName            // "" for top graph
    
    Legend/C/N=legend0      // Add legend
    
    String traceList = TraceNameList(graphName, ";", 1)
    
    Variable index = 0
    do
        String traceName = StringFromList(index, traceList)
        if (strlen(traceName) == 0)
            break               // All done.
        endif
        
        Wave w = TraceNameToWaveRef(graphName, traceName)
        
        String tagName = "tag" + num2istr(index)
        Variable pointNum = numpnts(w)/3
        Variable xAttach = pnt2x(w, pointNum)
        
        Tag/C/N=$tagName/F=0/M/L=2/X=20/Y=40 $traceName, xAttach, "\\ON: \\OY"
        
        index += 1
    while(1)
End