test.pro

pro test, kgon=kgon, flush=flush, onesided=onesided, istart=istart

;x = [43, 18, 19, 24, 35, 49, 56, 54]*1.
;y = [24, 45, 54, 63, 69, 64, 57, 41]*1.

;x = [43, 18, 18, 24, 35, 49, 56, 56]*1.
;y = [24, 45, 54, 63, 69, 69, 57, 41]*1.

np = 2000
px = randomn(seed, np)
py = randomn(seed, np)
triangulate, px, py, triangles, hull
x = px[hull]
y = py[hull]
;print, x
;print, y

;x = [-2.10689,-2.01192,-1.57830,0.915346,2.60670,2.52783,1.12817,0.331252,-0.954366,-1.79994]
;y = [0.0933227,-1.46308,-2.18337,-3.91260,-1.54248,0.426201,2.66554,2.75200,1.96331,1.38472]

;x=[3650,3650,3650,3650,3650,3650,3650,3778,4034,6274,6530,6786,6850,6850,6850,6850,5890,5826,5762,5698,5506,5186,4610,4034,3970,3842,3778]*1.
;y=[7897,7833,7513,5337,3289,921,857,857,857,857,1049,1369,1497,1625,1881,2073,15769,16665,16793,16793,16793,16793,16729,16601,15577,13401,11801]*1.

;x=[1249.00,1441.00,1505.00,1633.00,1889.00,2337.00,2785.00,2977.00,4897.00,5345.00,5665.00,5857.00,5857.00,5857.00,5857.00,5857.00,5601.00,5473.00,1825.00,1249.00,993.000,865.000,801.000,929.000,1121.00]*1.
;y=[2527.00,479.000,223.000,223.000,223.000,223.000,223.000,223.000,479.000,543.000,607.000,671.000,2911.00,3551.00,5343.00,5983.00,8223.00,8799.00,8799.00,8799.00,8607.00,8223.00,7967.00,6303.00,3999.00]*1.

;x=[1120.00,288.000,288.000,480.000,992.000,1120.00,1632.00,7648.00,7840.00,9248.00,10976.0,11552.0,11680.0,11424.0,11360.0,10976.0,10848.0,10016.0,9440.00,5984.00,5408.00,2784.00]
;y=[5805.00,5485.00,5421.00,5229.00,4909.00,4845.00,4717.00,3629.00,3693.00,4205.00,4845.00,5293.00,5549.00,7341.00,7789.00,8941.00,9069.00,8813.00,8621.00,7469.00,7277.00,6381.00]

result = poly_kgon(x, y, kgon=kgon, /verb, flush=flush, onesided=onesided, $
                   istart=istart)
end