# Zuerst muss noch innerhalb des Sound-Editors der Objektname ermittelt werden; # dieser wird gleich gebraucht, um das richtige Sound-Objekt auszuwählen. soundinfo$ = Sound info oname$ = extractWord$ (soundinfo$, "Object name:") # Editor-Umgebung verlassen, d.h. ab jetzt arbeitet das Skript im Objektfenster endeditor # Sound-Objekt auswählen select Sound 'oname$' # Pitch-Objekt erzeugen, Pitch range: 50 - 700 Hz To Pitch: 0.01, 50, 700 # Q1 ermitteln q1 = Get quantile: 0, 0, 0.25, "Hertz" # Q3 ermitteln q3 = Get quantile: 0, 0, 0.75, "Hertz" # Q1 mit 0,75 multiplizieren und runden floor = round (q1 * 0.75) # Q3 mit 2,5 multiplizieren und runden ceiling = round (q3 * 2.5) # Pitch-Objekt wieder entfernen Remove # Zurück in die Editor-Umgebung wechseln editor # Neuen Pitch range einstellen; # dies stößt automatisch eine Pitch-Neuberechnung an # und die dargestellte Kontur wird aktualisiert Pitch settings: floor, ceiling, "Hertz", "autocorrelation", "automatic"