Episode #125 of the Stack Overflow podcast is here. We talk Tilde Club and mechanical keyboards. Listen now
3 of 3 deleted 77 characters in body
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