# Mittelpunkt des Intervalls aus Startzeitpunkt (a) und # Länge (b) berechnen; der Mittelpunkt wird c zugewiesen a = Get start of selection b = Get selection length c = a+(b/2) # Mit dem folgenden Befehl verlässt das Skript die # Editor-Umgebung und kann somit auf Befehle des # Objekt-Fensters zugreifen endeditor # Da beim ersten Skriptaufruf vermutlich sowohl Sound-Objekt # als auch TextGrid markiert sind, im folgenden aber nur das # TextGrid bearbeitet werden soll, muss hier die Markierung # des Sound-Objekts aufgehoben werden. # # Anzahl der markierten Objekte feststellen nos = numberOfSelected () # Wenn mehr als ein Objekt markiert ist... if nos > 1 # ID des Sound-Objekts feststellen sound = selected ("Sound") # Markierung des Sound-Objekts aufheben minusObject: sound endif # Sicherstellen, dass ein TextGrid markiert ist; # Wenn nicht, bricht das Skript mit einer Fehlermeldung ab textgrid = selected ("TextGrid") # ID des Zielintervalls feststellen; # 1 = Nummer des Interval-Tier im TextGrid; # c = Mittelpunkt des Intervalls (s.o.); noi = Get interval at time: 1, c # Label im Zielintervall abfragen; # 1 = Nummer des Interval-Tier im TextGrid; # noi = ID des Zielintervalls label$ = Get label of interval: 1, noi # Boundary in das Point-Tier eintragen. # Die boundary wird mit dem Label aus dem Intervall annotiert; # 2 = Nummer des Point-Tier im TextGrid; # c = Annotationspunkt (Mittelpunkt) # label$: Label aus dem Intervall einfügen; Insert point: 2, c, label$ # Zurück in die Editor-Umgebung editor # Cursor zu dem ermitelten Zeitpunkt bewegen Move cursor to: c