# fix_tier.praat # fill empty intervals in target tier with the labels in the source tier. # date: 15/07/2011 # author: Julien Eychenne form Fix tier comment fill empty intervals in the target tier with the corresponding labels in the source tier: integer Source_tier integer Target_tier comment The following values let you decide which part to operate on: real Start_time 0 (= from the beginning) real End_time 0 (= to the end) comment Label to be replaced (by default, empty intervals): sentence Bad_label comment When the following option is on, all labels are replaced and the preceding field are ignored: boolean Replace_all_labels 0 endform if end_time == 0 end_time = Get end time endif n = Get number of intervals... target_tier for i from 1 to n start = Get start point... target_tier i end = Get end point... target_tier i label$ = Get label of interval... target_tier i if (start >= start_time and end <= end_time) and (replace_all_labels == 1 or label$ == bad_label$) mid_point = (start + end) / 2 int = Get interval at time... source_tier mid_point new_label$ = Get label of interval... source_tier int Set interval text... target_tier i 'new_label$' endif endfor