/setxunit {
   /xunit exch def
} def
/setyunit {
   /yunit exch def
} def
/setunit {
   setyunit
   setxunit
} def
/setangle_repere {
   /angle_repere exch def
} def