Boa noite onde coloco estes comandos para gerar a escala

/inch {72 mul} def 
/r1 0.5 inch def
/r2 0.75 inch def
/lc 0.125 inch def
/Times-Roman findfont
10 scalefont
setfont

/str 20 string def

/centro
 {
  x0 0.125 inch sub y0 moveto
  0.250 inch 0 rlineto
  stroke
  x0 y0 0.125 inch sub moveto
  0 0.250 inch rlineto
  stroke
  x0 y0 0.15 inch 0 360 arc
  stroke
 } def

 /graduacao
 {/ang exch def
  /r_ext exch def
  /r_int exch def
  r_int ang cos mul x0 add r_int ang sin mul y0 add moveto
  r_ext r_int sub ang cos mul r_ext r_int sub ang sin mul rlineto
  stroke
 } def

/escala
{
   /inc angulo linhas div def
   newpath
   /alfa 0 def
   linhas {
      r1 r2 alfa graduacao
      /alfa alfa inc add def
      } repeat

   % Circulo interno
   x0 y0 r1 0 360 arc
   closepath   

   % Circulo externo
   x0 y0 r2 0 360 arc
   closepath   
   
   % Centro
   centro
   
} def

2 setlinewidth

/x0 3 inch def
/y0 3 inch def
/angulo 270 def
/linhas 20 def
escala

showpage