---
title: "praatpictures"
output: 
  pdf_document:
    latex_engine: xelatex
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(praatpicture)
```

## Stimuli pictures

```{r}
# change filename and title before running

png("22-amr-7.png", width = 6, height = 4, units = "in", res = 600)

praatpicture('../../sound/praatpic/2_amr-eng_7.wav',
             start = 0.0,
             frames = c('sound', 'spectrogram', 'TextGrid'),
             #tg_tiers = c(2),
             proportion = c(45, 40, 15),
             tfrom0 = FALSE,
             highlight = list(tier = 1, label = 'C', color = 'navy'),
             formant_plotOnSpec = TRUE,
             formant_dynamicRange = 8,
             formant_color = "red",
             spec_freqRange = c(100,3500),
             
             # spec_scale = 'mel',
             # spec_windowLength = ,
             # spec_windowShape = 'Hamming',
             # spec_timeStep = 138,
             
             # mainTitle = 'AsE Cɔt - step 1 (5.4ms)',
             # mainTitle = 'AsE Cɔt - step 2 (12.9ms)',
             # mainTitle = 'AsE Cɔt - step 3 (20.4ms)',
             # mainTitle = 'AsE Cɔt - step 4 (27.9ms)',
             # mainTitle = 'AsE Cɔt - step 5 (35.4ms)',
             # mainTitle = 'AsE Cɔt - step 6 (42.9ms)',
             # mainTitle = 'AsE Cɔt - step 7 (50.4ms)',
             
             # mainTitle = 'AsE Cruː - step 1 (5.6ms)',
             # mainTitle = 'AsE Cruː - step 2 (13.1ms)',
             # mainTitle = 'AsE Cruː - step 3 (20.6ms)',
             # mainTitle = 'AsE Cruː - step 4 (28.1ms)',
             # mainTitle = 'AsE Cruː - step 5 (35.6ms)',
             # mainTitle = 'AsE Cruː - step 6 (43.1ms)',
             # mainTitle = 'AsE Cruː - step 7 (50.6ms)',
             
             # mainTitle = 'AmE Cɔt - step 1 (5.4ms)',
             # mainTitle = 'AmE Cɔt - step 2 (12.9ms)',
             # mainTitle = 'AmE Cɔt - step 3 (20.4ms)',
             # mainTitle = 'AmE Cɔt - step 4 (27.9ms)',
             # mainTitle = 'AmE Cɔt - step 5 (35.4ms)',
             # mainTitle = 'AmE Cɔt - step 6 (42.9ms)',
             # mainTitle = 'AmE Cɔt - step 7 (50.4ms)',
             
             # mainTitle = 'AmE Cruː - step 1 (5.6ms)',
             # mainTitle = 'AmE Cruː - step 2 (13.1ms)',
             # mainTitle = 'AmE Cruː - step 3 (20.6ms)',
             # mainTitle = 'AmE Cruː - step 4 (28.1ms)',
             # mainTitle = 'AmE Cruː - step 5 (35.6ms)',
             # mainTitle = 'AmE Cruː - step 6 (43.1ms)',
             mainTitle = 'AmE Cruː - step 7 (50.6ms)',
             mainTitleAlignment = 0.5
             )

dev.off()
```

## Zoomed in for burst

```{r}
png("1-amr-1-zoom.png", width = 8, height = 6, units = "in", res = 600)

praatpicture('../..sound/praatpic/1_amr-eng_1.wav',
             start = 0.0,
             end = 0.07,
             frames = c('sound', 'spectrogram', 'TextGrid'),
             #tg_tiers = c(2),
             proportion = c(50, 45, 5),
             tfrom0 = FALSE,
             # highlight = list(tier = 1, label = 'C', color = 'navy'),
             spec_freqRange = c(100,3500),
             
             # mainTitle = 'AsE Cɔt - step 1 (5.4ms)',
             
             # mainTitle = 'AsE Cruː - step 1 (5.6ms)',
             
             # mainTitle = 'AmE Cɔt - step 1 (5.4ms)',
             
             # mainTitle = 'AmE Cruː - step 1 (5.6ms)',
             
             # mainTitleAlignment = 0.5
             )

dev.off()
```