Praat 将两层合并为一层

Question

我在文本网格中有两层，我想将它们组合成一层。每一层都是不同的扬声器。每层内的间隔不重叠。这可能吗？我见过很多将合并或连接的 Praat 脚本，但没有任何东西可以组合它们。我试图使用 Python tgt 模块来做到这一点，但进展缓慢。我已经挖掘了一段时间，因此非常感谢任何有关如何解决此问题的建议！谢谢。

Answer 1

前段时间我写了a script，用于查找不重叠的间隔，也可以在具有不同扬声器的层中。虽然任务不同，但脚本创建的 TextGrid 可用于您想要的。

该脚本的逻辑在 a procedure 中，可以包含在您正在使用的任何脚本中（或者如果您喜欢这种东西，也可以将其包含在其中）。

如果您包含该过程（物理复制或includeing），您可以这样做

old = selected("TextGrid")
@toNonOverlappingTiers()
new = selected("TextGrid")

之后，new TextGrid 将只有一个层，其他层的所有间隔都将“变平”。这个新层中带有非零标签的每个间隔将表示最多一个层中的标签间隔中包含的old TextGrid 的块。 old 中的任何已标记区间中均不包含未标记区间。其余标签告诉您包含它们的唯一标记区间的层号。

所以在运行上面的例子之后，你可以这样做

# Loop through intervals in the new TextGrid
selectObject: new
for i to do("Get number of intervals...", 1)
  label$ = Get label of interval: 1, i
  # Since your original TextGrid had no overlapping intervals
  # you only want labeled intervals (there will be no zeros)
  if label$ != ""
    # Get the midpoint, to match to intervals in a different
    # tier in the original TextGrid
    tier = number(label$)
    start    = Get start point: 1, i
    end      = Get end point:   1, i
    midpoint = ((end - start) / 2) + start

    # Get the original label
    selectObject: old
    j = Get interval at time: tier, midpoint
    original$ = Get label of interval: tier, j

    # Apply the original label to the new TextGrid
    selectObject: new
    Set interval text: 1, i, original$
  endif
endfor

---

出于存档目的：

# This procedure is a part of the tgutils plugin
# Please see http://cpran.net/plugins/tgutils for more details
procedure toNonOverlappingIntervals ()
  # Original TextGrid
  .tg = selected("TextGrid")
  .tiers = Get number of tiers

  .start = Get start time
  .end = Get end time

  # Overlap TextGrid
  .id = Create TextGrid: .start, .end, "overlap", ""

  # Populate overlap tier with "flattened" intervals from all tiers
  for .tier to .tiers
    selectObject: .tg
    .intervals = Get number of intervals: .tier

    for .interval to .intervals-1
      selectObject: .tg
      .end = Get end point: .tier, .interval
      # We use nocheck because there might already be a boundary there
      selectObject: .id
      nocheck Insert boundary: 1, .end
    endfor

  endfor

  # Cycle through the flattened intervals to check how many spoken intervals
  # align with each. A segment in the overlap tier will be considered to have no
  # overlap if and only if there is one tier with a speech labeled interval which
  # coincides with it.

  selectObject: .id
  .flat_intervals = Get number of intervals: 1
  for .interval to .flat_intervals
    .start = Get start point: 1, .interval
    .end = Get end point: 1, .interval
    .midpoint = (.end - .start) / 2 + .start

    # Count how many speakers are speaking over that flattened interval
    .speakers = 0
    for .tier to .tiers
      selectObject: .tg
      .interval_number = Get interval at time: .tier, .midpoint
      .label$ = Get label of interval: .tier, .interval_number
      if .label$ != ""
        # Increment the number of speakers for each labeled coinciding interval
        # on any tier. We also save the tier number of the (last) speaker, so we
        # know where to look for measurements later.
        .speakers += 1
        .speaker_tier = .tier
      endif
    endfor

    # Label the overlap intervals. Blank intervals are matched by no speakers in
    # any tier. Intervals labeled "0" are matched by more than one speaker, in
    # more than one tier. The rest contain the tier number of the single speaker
    # speaking at that time.
    selectObject: .id
    if .speakers = 1
      Set interval text: 1, .interval, string$(.speaker_tier)
    elif .speakers > 1
      Set interval text: 1, .interval, "0"
    else
      Set interval text: 1, .interval, ""
    endif
  endfor

endproc