1# test_Polygon_simplify.praat
2
3printline test_Polygon_simplify
4
5for j to 10
6	m = Create simple Matrix... ps 2 100  randomUniform (0,1)
7	p1x = Get value in cell... 1 1
8	p1y = Get value in cell... 2 1
9	p2x = Get value in cell... 1 10
10	p2y = Get value in cell... 2 10
11	for i from 2 to 99
12		if ( i mod 10) =0
13			p1x = Get value in cell... 1 i
14			p1y = Get value in cell... 2 i
15			p2x = Get value in cell... 1 i+10
16			p2y = Get value in cell... 2 i+10
17		elsif ( i mod 10) >0
18			# 9 points on the edge from p(i) to point(i+10)
19			af = randomUniform (0,1)
20			xn = p1x +af*(p2x-p1x)
21			yn = p1y + af*(p2y-p1y)
22			Set value... 1 i xn
23			Set value... 2 i yn
24		endif
25	endfor
26
27	p = To Polygon
28	for k to 10
29		select p
30		p3 = Circular permutation... randomUniform (1, 100)
31		p4 = Simplify
32		np = Get number of points
33		assert np = 11
34		plus p3
35		Remove
36	endfor
37	select m
38	plus p
39	Remove
40endfor
41
42printline test_Polygon_simplify OK
43
44
45
46