Tag each point of a trace

Function TagAllPoints(graphName, traceName, tagTextWave)
    String graphName            // "" for top graph
    String traceName            // Name of graph trace to be tagged.
    Wave/T tagTextWave
    
    if (strlen(graphName) == 0)
        graphName = WinName(0, 1)
    endif
    if (strlen(graphName) == 0)
        Abort "There are no graphs"
    endif
    
    Wave w = TraceNameToWaveRef("", traceName)
    Variable n = numpnts(w)
    
    Variable i
    for(i=0; i<n; i+=1)
        String text = tagTextWave[i]
        Variable xval = pnt2x(w, i)
        String name = "tag" + num2istr(i)
        Tag/C/N=$name/W=$graphName/F=0/L=1 $traceName, xval, text
    endfor
End
 
Function RemoveAllTags(graphName, traceName)
    String graphName            // "" for top graph
    String traceName            // Name of graph trace to be tagged.
 
    if (strlen(graphName) == 0)
        graphName = WinName(0, 1)
    endif
    if (strlen(graphName) == 0)
        Abort "There are no graphs"
    endif
    
    String list = AnnotationList(graphName)
    Variable numItems = ItemsInList(list)
    Variable i
    for(i=0; i<numItems; i+=1)
        String name = StringFromList(i, list)
        String info = AnnotationInfo(graphName, name)
        String typeStr = StringByKey("TYPE", info)
        if (CmpStr(typeStr,"Tag") != 0)
            continue
        endif
        String tagTraceName = StringByKey("YWAVE", info)    // "YWAVE" is a misnomer - it is really a trace name
        if (CmpStr(tagTraceName,traceName) != 0)
            continue
        endif
        Tag/K/N=$name       // Remove the tag   
    endfor
End