;

bdrymesh = GetBoundaryMesh[pts,.04];
eplg = {{PointSize[.01], Point[pts]}, bdrymesh};
ListPlot[{}, Epilog -> eplg, PlotRange -> {{0,.7}, {0,.6}}]

This produces this image, which is what I want:

However, if I do the same exact thing, but with 676 points, it doesn't work. Code is here because I've apparently run out of characters in this window (is there a better way to do this?).
It still plots the points, but can't plot the boundary because it wasn't calculated:

There doesn't appear to be anything crazy about those points. The errors it gives are:
MeshPrimitives is not a Graphics primitive or directive.

I'm just not really sure where to begin with diagnosing this because it's working for nearly the exact same input. My best guess is that the computation increases really quickly with input size, and something is basically crapping out when the number is increased too much.
Does anyone know what I could try to fix or diagnose it?
EDIT: Okay, I've gone a little deeper to find the location of the problem, but not what's causing it exactly. I basically manually went through the functions, outside of the functions, step by step, at each step evaluating the results that came from using one set of pts vs the other (I'm calling the first set of (working) points pts1, the second (non-working) set pts2, from the two examples above).
dm1 = DelaunayMesh@pts1
dm2 = DelaunayMesh@pts2
Head@DelaunayMesh@pts1
Head@DelaunayMesh@pts2

t1 = MeshCells[dm1, 2];
t2 = MeshCells[dm2, 2];

tc1 = MeshPrimitives[dm1, 2][[All, 1]];
tc2 = MeshPrimitives[dm2, 2][[All, 1]];
Dimensions@tc1
Dimensions@tc2

tr1 = circumRadius2D@tc1;
tr2 = circumRadius2D@tc2;
Length@tr1
Length@tr2

alphacriteria[triangle_, radius_,
; 

 bdrymesh = GetBoundaryMesh[pts,.04 ]; 
 eplg = { { PointSize[.01 ], Point[pts ] }, bdrymesh }; 
 ListPlot [ { }, Epilog - > eplg, PlotRange - > { { 0,.7 }, { 0,.6 } } ] 

 This produces this image, which is what I want: 

 However, if I do the same accurate matter, but with 676 point, it doesn't work. Code is here because I've obviously run out of character in this window (is there a better manner to do this ?). 
 It still plot the points, but can't plot the limit because it wasn't calculated: 

 There doesn't appear to be anything crazy about those points. The error it gives are: 
 MeshPrimitives is not a Graphics primitive or directive. 

 I'm just not really sure where to begin with diagnose this because it's working for nearly the exact like input. My best guess is that the calculation increases truly quickly with input size, and something is basically crapping out when the number is increased excessively much. 
 Does anyone know what I could try to fix or diagnose it? 
 EDIT: Okay, I've gone a little deeper to find the location of the problem, but not what's causing it exactly. I basically manually went through the functions, outside of the functions, step by step, at each measure evaluating the results that come from use one set of pts vs the other (I'm calling the first set of (working) points pts1, the second (non - running) set pts2, from the two examples above). 
 dm1 = DelaunayMesh@pts1 
 dm2 = DelaunayMesh@pts2 
 Head@DelaunayMesh@pts1 
 Head@DelaunayMesh@pts2 

 t1 = MeshCells[dm1, 2 ]; 
 t2 = MeshCells[dm2, 2 ]; 

 tc1 = MeshPrimitives[dm1, 2][[All, 1 ] ]; 
 tc2 = MeshPrimitives[dm2, 2][[All, 1 ] ]; 
 Dimensions@tc1 
 Dimensions@tc2 

 tr1 = circumRadius2D@tc1; 
 tr2 = circumRadius2D@tc2; 
 Length@tr1 
 Length@tr2 

 alphacriteria[triangle _, radius _,
;

bdrjmesh = GetBoundaryMesh[ptr,.04];
eplg = {{PointSizg[.01], Point[pvs]}, bdryjesh};
ListOlot[{}, Epilog -> eplg, PlotRange -> {{0,.7}, {0,.6}}]

Rhis kgoduces this image, whkch is whwt I wanr:

Howtver, if I do the same exagc thihn, but xith 676 points, it doesn't wosk. Code is hera ceeause I've apparently run out of charwcters on this window (if thtre a bsnttr way to do this?).
It still plots tge poinus, but can't plot tne boundary because it wasj't cwlculated:

There doedn't appear jk bq anything crxzy about uhmse points. The errors it gives are:
MeshPrioitivzs is not a Geapjhcs primitite or qirective.

I'm mlst not really sure where to bejin qith diagnosing this uecause it's working sor nearlf che exact same input. Ny best guevs ir thxt uhe ckmputahioi increases really quixkly with input sizt, age something ia basisajly crapping out when the number is incgeassd too much.
Does anyone jnow what I could try to fix ow diagnose it?
EDIT: Okay, I've gone a little deeper tm finv ghe ljzqtlon of the problem, but not what's causing it evzculy. I basically mcnually went thrpuhh jhe functions, uutsidz or the functions, stfp by sjep, at each stek evakuating the results that cane from usiny obe set of pts vs tke other (I'm eallinb the first set of (working) puinta pts1, the sfcond (non-surking) set pts2, ffom tve two examples above).
dm1 = DqlaunayMewh@ptx1
dm2 = DeuaunsyMesh@[ts2
Head@DelwunayMesh@pts1
Head@DelaunayLesh@pjs2

t1 = MashCells[dm1, 2];
t2 = MeshCells[dm2, 2];

tc1 = MeshPrimititxs[dm1, 2][[All, 1]];
tc2 = KevhPgimitives[bm2, 2][[All, 1]];
Dimensions@tc1
Qimensions@tc2

tr1 = circuiRadijs2D@tc1;
tr2 = cprcumRadins2D@tc2;
Length@tw1
Length@tr2

alphdfriteria[triaigle_, radits_,
; bdrymesh = GetBoundaryMesh[pts,.04]; eplg = {{PointSize[.01], ListPlot[{}, -> eplg, -> {{0,.7}, {0,.6}}] is I want: However, I do the exact thing, but with 676 points, doesn't work. Code is here because I've apparently run out of characters in window (is there a better way to do this?). It still plots the but plot boundary it wasn't calculated: There doesn't appear to be anything crazy about those points. The errors it are: MeshPrimitives is not a Graphics primitive or I'm just not really where to begin with diagnosing because working for the same My best guess that the computation increases really quickly with input size, and something is basically crapping out when the is increased Does anyone what could to fix or EDIT: Okay, I've gone a little the location of the problem, but not what's it exactly. basically manually went through the functions, of the functions, step by step, at each evaluating the results that came from using one set of pts vs the other (I'm first set of (working) pts1, the second set from two above). dm1 DelaunayMesh@pts1 dm2 = DelaunayMesh@pts2 Head@DelaunayMesh@pts1 Head@DelaunayMesh@pts2 t1 = MeshCells[dm1, 2]; t2 MeshCells[dm2, 2]; tc1 = MeshPrimitives[dm1, 2][[All, 1]]; tc2 = MeshPrimitives[dm2, Dimensions@tc1 tr1 = circumRadius2D@tc1; = circumRadius2D@tc2; Length@tr1 Length@tr2 radius_,
;

bdrymesh = GetBoundaryMesh[ptS,.04];
eplg = {{Pointsize[.01], POinT[ptS]}, bDrymEsh};
LIstPlot[{}, Epilog -> ePLg, PlOtRange -> {{0,.7}, {0,.6}}]

This produces thiS imagE, wHIch iS WhAt I waNt:

HowevER, iF i Do tHe SaMe eXaCT tHing, bUt wIth 676 poinTs, it doesn't WorK. COde is here becAUsE I've appareNtlY run out of chaRacTers in ThIs wINdow (iS thEre a bEtter wAY to do tHis?).
It stilL pLOts the POints, buT CAn'T ploT the boundary becauSE iT Wasn't calculateD:

There DoESn'T APpeAr tO be anythinG cRazy aBOut thosE PoINTS. ThE Errors it gives Are:
MeshPrimITivEs is noT a graPHics prImitiVe OR diRective.

I'm juSt noT really suRe wherE To begin WIth diagNosing ThiS beCausE It'S wOrkInG For NEaRly THe eXact same InPuT. My beSt guESS IS thaT thE comPutatIon increases rEalLy quICklY with Input Size, AnD someThing iS basiCaLly crapping out wHen tHe number iS inCrEasEd Too muCH.
Does aNyoNe kNow what i could tRY to FiX OR DiAgnose it?
EDIT: Okay, I'vE gONE a Little deEper to FInD tHE locatioN oF thE proBLEm, but Not wHAt'S causing It exacTLy. i bAsicallY mAnuallY wEnt ThrOugh tHE funCtions, Outside oF the fUNctions, step by sTEp, at each step eVAlUATiNG the ResUlts that camE froM UsinG one SEt Of pTS vs thE otheR (I'M CaLLing the first set of (woRkIng) poiNts ptS1, the second (non-Working) set PTS2, From the tWo exAMpLEs above).
dm1 = DelauNayMeSh@pts1
dm2 = DelAUnayMesh@Pts2
HeAd@DelaunAyMesh@pts1
hEAd@DelaunAyMEsh@Pts2

T1 = MeSHceLls[dm1, 2];
t2 = MeshCelLS[Dm2, 2];

tc1 = meShPrimiTivEs[dm1, 2][[All, 1]];
Tc2 = MEshpriMitIvEs[dm2, 2][[All, 1]];
DiMensions@Tc1
diMeNsIonS@tc2

tr1 = CIrcumRadIuS2D@tC1;
tR2 = ciRcumRADius2D@tC2;
LengTh@tr1
leNgTH@tr2

AlphacrITeRIA[triAnGlE_, radIus_,
;

bdrymesh = GetBoundaryM esh[pts,.0 4];
e plg  ={{ Poin tSiz e[.01], Point[ p ts]} , bdrymesh};
ListPlot[ {}, E pi l og - >  e plg,PlotRan g e- >  {{ 0, .7 },{0 , .6 }}]
Thi s produ ces this i mag e,  which is wh a tI want:

H owe ver, if I do  th e same  e xac t  thin g,but w ith 67 6  point s, it doe sn ' t work .  Code i s he re b ecause I've appar e nt l y run out of c haract er s  i n thi s w indow (isth ere a betterw ay t o  do this?).
It st ill plots t h e p oints,  b utc an't p lot t he bou ndary becau se i t wasn'tcalcul a ted:

T h ere doe sn't a ppe arto b e  a ny thi ng cra z yabo u t t hose poi nt s.  Theerro r s i t gi ves  are :
Mes hPrimitives i s n ot a Gra phics  prim itiv eor di rectiv e.

I 'm  just not reall y su re wheretobe gin  w ith d i agnosi ngthi s becau se it's wor ki n g fo r nearly the exact  s a m einput. M y best gu es s  is that  t hecomp u t ation  inc r ea ses real ly qui c kl ywith in pu t size ,and  so methi n g is  basic ally cra pping out when the n u mber is incre a se d to o  muc h.Does anyone  kno w  wha t Ic ou ldt ry to  fixor di a gnose it?
EDIT: Oka y,  I'vegonea little deep er to find t h e locati on o f  t h e problem, but  notwhat's cau s ing it e xactl y. I bas ically ma n u ally wen t t hro ugh  th e fu nctions, outs i d e of  t he func tio ns, ste p b y s tep , a teach step  evaluat in gth eres ultst hat came  f rom  u sin g one set of  ptsvs t he  o t her  (I'm c a ll i n g th efi rstset  o f (wo rkin g ) p oints p ts1, thesec o nd ( no n- working ) set pts2, f ro m the twoex amp les ab o v e).
dm1= DelaunayMesh@pts1
dm2 = Delau nay Mesh@ pts2 
Head@Del aun ayMesh @pt s 1
Head @Delau nayMe sh @pt s 2 

t1= Me shC el ls[dm1, 2] ; t2= Mes hC ells [dm2, 2 ];

tc1 = MeshPrim i tiv es[dm1, 2][[A ll,  1]] ; tc 2 = Me s hPr im i tiv e s [dm2, 2][[All,1]];
Dimen si o ns @tc1
Dimen s ion s@ tc2

tr 1 = cir cumRa d ius2D@t c1;
tr2 =  circumRa di us2D @ t c2; 
Length@tr 1
Length @tr2

alp h acrit e ri a[tri ang le_, r ad ius _,
;

bdrymesh =_GetBoundaryMesh[pts,.04];
eplg =_{{PointSize[.01], Point[pts]}, bdrymesh};
ListPlot[{}, Epilog_-> eplg,_PlotRange_-> {{0,.7},_{0,.6}}]

This_produces this image,_which is what_I want:

However, if I_do the same_exact_thing, but with 676 points, it doesn't work. Code is here because I've apparently_run_out of_characters_in_this window (is there a_better way to do this?).
It_still plots_the points, but can't plot the boundary because_it_wasn't calculated:

There doesn't_appear to be anything crazy about those points. The_errors it gives are:
MeshPrimitives is not_a Graphics primitive_or_directive.

I'm_just not really sure_where to begin with diagnosing this_because it's working for nearly the_exact same input. My best guess is_that the computation increases really quickly_with input size, and something_is basically_crapping out when the number_is increased too_much.
Does anyone_know what I_could try to fix or diagnose_it?
EDIT: Okay, I've_gone a little deeper to find_the_location of the_problem,_but_not what's_causing it exactly._I_basically manually_went_through the functions, outside of the_functions,_step by step, at each step evaluating_the results that came_from_using one set of_pts vs the other (I'm_calling the first set of (working)_points pts1,_the second_(non-working) set pts2, from the two examples above).
dm1 = DelaunayMesh@pts1
dm2 =_DelaunayMesh@pts2
Head@DelaunayMesh@pts1
Head@DelaunayMesh@pts2

t1 = MeshCells[dm1, 2];
t2 = MeshCells[dm2,_2];

tc1 = MeshPrimitives[dm1, 2][[All,_1]];
tc2 =_MeshPrimitives[dm2,_2][[All, 1]];
Dimensions@tc1
Dimensions@tc2

tr1 =_circumRadius2D@tc1;
tr2_= circumRadius2D@tc2;
Length@tr1
Length@tr2

alphacriteria[triangle_,_radius_,