Here is a starting point:

 txt = "This is some text to warp." // Characters;
 arc = 1;
 range = Range[0, arc, arc/(Length@txt - 1)];
 coords = {-Cos[#], Sin[#]} & /@ range;
 Graphics[
 MapThread[
 Rotate[Text[Style[#, FontFamily -> "Courier"], #2], 90 \[Degree] - #3] &,
 {txt, coords, range}]
 ]

![Mathematica graphics](https://i.sstatic.net/ECb8t.png)