title: Interpolation/smoothing in Mathematica using Graphics
body: <p>I am trying to smooth the path I draw between points.</p>
  
  <p>Please consider :</p>
  
  <pre><code> lesPoints = {{41, 26}, {42, 29}, {41, 31}, {46, 30}, {48, 30}, 
                {40, 30}, {43, 30}, {47, 30}, {48, 26}, {47, 20}}
  </code></pre>
  
  <p>Those are the real eye fixations coordinates I use to trace the temporal path.</p>
  
  <p>This is the way I plot them now :</p>
  
  <pre><code>Graphics[{
           Table[Arrow[{lesPoints[[i]], lesPoints[[i + 1]]}], 
                {i,Length[lesPoints] - 1}], 
           MapThread[Text[Style[#1, Large, FontFamily -&gt; "Impact"], {#2, #3}] &amp;, 
           PrependTo[Transpose[lesPoints], Range[1, Length@lesPoints]]]}]
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/ekrfN.png" alt="enter image description here"></p>
  
  <p><strong>I could not get anything right in my attempt to use interpolation.</strong></p>
  
  <p><strong>Would it be a good way to smooth the path, what would be an alternative ?</strong></p>