3 deleted 77 characters in body
source | link
TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3, 4}]], 
 ImageSize -> 900, MaxCellMeasure -> .1025, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[], ColorData["SolarColors"][RandomReal[{.1, .8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here

Use MaxCellMeasure->{"Area" -> 0.01} and RandomReal[] (in place of RandomReal[{.1, .8}] to get

enter image description here

TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3,4}]], 
 ImageSize -> 900, MaxCellMeasure -> .1, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[], ColorData["SolarColors"][RandomReal[{.1, .8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here

Use MaxCellMeasure->{"Area" -> 0.01} and RandomReal[] (in place of RandomReal[{.1, .8}] to get

enter image description here

TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3, 4}]], 
 ImageSize -> 900, MaxCellMeasure -> .025, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[], ColorData["SolarColors"][RandomReal[{.1, .8}]]]}]

enter image description here

Use MaxCellMeasure->{"Area" -> 0.01} and RandomReal[] (in place of RandomReal[{.1, .8}] to get

enter image description here

2 added 196 characters in body
source | link
TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3,4}]], 
 ImageSize -> 900, MaxCellMeasure -> .1, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[], ColorData["SolarColors"][RandomReal[{.1, .8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here

Use MaxCellMeasure->{"Area" -> 0.01} and RandomReal[] (in place of RandomReal[{.1, .8}] to get

enter image description here

TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3,4}]], 
 ImageSize -> 900, MaxCellMeasure ->.1, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[],ColorData["SolarColors"][RandomReal[{.1,.8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here

TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3,4}]], 
 ImageSize -> 900, MaxCellMeasure -> .1, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[], ColorData["SolarColors"][RandomReal[{.1, .8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here

Use MaxCellMeasure->{"Area" -> 0.01} and RandomReal[] (in place of RandomReal[{.1, .8}] to get

enter image description here

1
source | link

TriangulateMesh[MeshRegion[{{0, 0}, {2, 0}, {2, 1}, {0, 1}}, Polygon[{1, 2, 3,4}]], 
 ImageSize -> 900, MaxCellMeasure ->.1, 
 MeshCellHighlight -> {{2, _} :>   Directive[Antialiasing -> True, 
   EdgeForm[],ColorData["SolarColors"][RandomReal[{.1,.8}]]]}]

enter image description here

Use MaxCellMeasure -> .025 to get

enter image description here