clearinfo
Erase all

Create formant table (Pols & Van Nierop 1973)

form Draw formant plot from Table object
	comment Table name
	text formant_file pvn
	comment Column name for vowel label:
        text col_vowel Vowel
	comment Vowel label:
        text type_vowel e
	comment Colour
	optionmenu colour: 1
		option Black
		option Red
		option Green
		option Yellow
		option Blue
	comment Settings:
	positive font_size 10
	positive f1_lo 200
	positive f1_hi 1000
	positive f2_lo 500
	positive f2_hi 2700
	
	comment Standard deviation for ellipse:
	positive stdev 2
endform


selectObject: "Table pvn"
Rename: formant_file$

selectObject: "Table " + formant_file$

## Extract subtables for vowel type
Extract rows where column (text): col_vowel$, "is equal to", type_vowel$

## Select outer bounds for plot window
Select outer viewport: 0, 5, 0, 4
Draw inner box
# five marks within the inner box (marks --> marks right... etc.)
Marks right: 5, "yes", "yes", "yes"
Marks top:  5, "yes", "yes", "yes"


# Draw scatterplot for vowel
   Colour: colour$
   Scatter plot: "F2", f2_hi, f2_lo, "F1", f1_hi, f1_lo, col_vowel$, font_size, "no"
   Text right: "yes", "F1"
   Text top: "yes", "F2"

# Draw ellipses
   Draw ellipse (standard deviation): "F2" ,f2_hi, f2_lo, "F1" ,f1_hi, f1_lo, stdev, "no"