| 
 | 
"I want a list of pitch and intensity values at the same times."
Since Sound: To Pitch... and Sound: To Intensity... do not give values at the same times, you create separate pitch and intensity contours with high time resolution, then interpolate. In the following example, you get pitch and intensity values at steps of 0.01 seconds by interpolating curves that have a time resolution of 0.001 seconds.
   sound = selected ("Sound")
   tmin = Get start time
   tmax = Get end time
   To Pitch: 0.001, 75, 300
   Rename: "pitch"
   selectObject: sound
   To Intensity: 75, 0.001
   Rename: "intensity"
   writeInfoLine: "Here are the results:"
   for i to (tmax-tmin)/0.01
      time = tmin + i * 0.01
      selectObject: "Pitch pitch"
      pitch = Get value at time: time, "Hertz", "linear"
      selectObject: "Intensity intensity"
      intensity = Get value at time: time, "cubic"
      appendInfoLine: fixed$ (time, 2), " ", fixed$ (pitch, 3), " ", fixed$ (intensity, 3)
   endfor
© ppgb 20200912