'---------------------------------------------------------------------------
'   PARAMETROS

'   Nombre de la Escala
%Lab=<A
'   Centro
%Cx==105
%Cy==140
'    Radio de la escala
%Rad==85
'Angulo de inicio en referencia a la vertical
%Ang==0
'     Décadas
%Dec ==7
'Orden Inverso
%Rev==0
'Font Numeros
%Fnt = Arial
'Inversion (1 = ticks por dentro)
%Inv ==0
'Tipo de Arco
%Arc==1
'Color del Fondo
%Bck=RVB  255 201 255

'--------------------------------------------------------------------
ZoomIni = 1
Police = %Fnt
CentreE = %Cx, %Cy, bleu
CentreI = %Cx, %Cy, bleu

'Background
%wid==75
EpaisT=%wid
If %Inv=1 goto B1
Arc=0,360,%Rad+1.5,%Bck
Goto Be
B1:
Arc=0,360,%Rad-1.5,%Bck
Be:
EpaisT= 1

If %Rev=0 goto A1
  If %Arc = 0 then Arc = 90+%Ang, -270+%Ang, %Rad,white
  If %Arc = 1 then Arc = 90+%Ang, -270+%Ang, %Rad,black
  If %Arc <=1 goto A0
     If %Inv=1 then Arc = 90+%Ang, -270+%Ang, %Rad-1.5, black
     If %Inv=0 then Arc = 90+%Ang, -270+%Ang, %Rad+1.5, black
  Arc = 90+%Ang, -270+%Ang, %Rad, black
A0:
Goto Aend 

A1:
  If %Arc = 0 then Arc = 90+%Ang, 450+%Ang, %Rad,white
  If %Arc = 1 then Arc = 90+%Ang, 450+%Ang, %Rad,black
  If %Arc <=1 goto Aend
     If %Inv=1 then Arc = 90+%Ang, 450+%Ang, %Rad-1.5, black
     If %Inv=0 then Arc = 90+%Ang, 450+%Ang, %Rad+1.5, black
   Arc = 90+%Ang, 450+%Ang, %Rad,black
Aend:

Exposant = L, %Dec

If %inv=1 then Inversion

' Tickmarks
'--------------------------------------------------------
TailleP = *.8g
Grad=0.5§9.5§1.5,3
Grad=1§10§1,4
ValR=R90,1,1,P,6,2,10^%Dec