begin
  resetMotion()
  movej(jBrasBaisse,tStylo[0],mNormal)
  waitEndMove()
  while true
    call traceunpoint(pLettreT[0])
    call tracecontours(pPlaque)
    call tracelespoints()
    movej(jBrasBaisse,tStylo[0],mNormal)
    waitEndMove()
  endWhile
  
end