function xy = THE_LETTER_R(height, width, ptsPerMeter, ptsPerRadian, xyLocation)
  xy_1 = StraightLine(0, 0, 0, height, ptsPerMeter);                                            % left
  xy_2 = StraightLine(0, height, (3/4)*width, height, ptsPerMeter);                             % top
  xy_3 = CurvedLine((3/4)*width, height, (3/4)*width, (1/2)*height, (1/4)*width, ptsPerRadian); % curve
  xy_4 = StraightLine((3/4)*width, (1/2)*height, 0, (1/2)*height, ptsPerMeter);                 % middle
  xy_5 = StraightLine(0, (1/2)*height, width, 0, ptsPerMeter);                                  % leg

  xy_all = [xy_1; xy_2; xy_3; xy_4; xy_5];

  xy = xy_all + xyLocation;
end