Ths consists of the outlines of various shapes suitable for input into the triangle program.

SQ3Outline= Join[Table[{0,y},{y,0,3,0.05}],
{
{1,3},
{3,3},
{3,0}
}];
QuarterCircleThree=Join[
{{0,0}},
Table[ 3 {Cos[θ], Sin[θ]},{θ, 0.0, π/2, π/36}]
];
ListPlot[ {SQ3Outline,QuarterCircleThree},
Joined->True,
Mesh->All,
AspectRatio->Automatic]

SetDirectory["/home/campus03/struther/Desktop/Link to Courses/4620/Scewchuk"]
Points=SQ3Outline;
Export["SQ3.poly",
Join[
{{Length[Points],2}},
Table[
{x,y}=Points[[i]];
{i, x, y},
{i, Length[Points]}
],
{{Length[Points], 0}},
Table[
{i, i, i+1},
{i, Length[Points]-1}
],
{{Length[Points], Length[Points],1}},
{{0}}
],
"TSV"]

SetDirectory["/home/campus03/struther/Desktop/Link to Courses/4620/Scewchuk"]
Points=QuarterCircleThree;
Export["QuarterCircleThree.poly",
Join[
{{Length[Points],2}},
Table[
{x,y}=Points[[i]];
{i, x, y},
{i, Length[Points]}
],
{{Length[Points], 0}},
Table[
{i, i, i+1},
{i, Length[Points]-1}
],
{{Length[Points], Length[Points],1}},
{{0}}
],
"TSV"]

Export[