'---------------------------------------------------------------------------
'   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
'Arco de la escala en grados
%Span==360
' Décadas
%Dec ==5
'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
'Color del Texto
%TCol=RVB  0 0 255
'Tamaño Ticks
%Tkh=2
%Tkw=5§C

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

'Calculo angulos Inicial y Final
%Arci == 90 + %Ang
If %Rev=0 goto D1
%Arcf==90+%Ang-%Span
Goto De
D1:
%Arcf==90+%Ang+%Span
De:

'Background
%wid==30
EpaisT=%wid
If %Inv=1 goto B1
Arc=%Arci,%Arcf,%Rad+0.8,%Bck
Goto Be
B1:
Arc=%Arci,%Arcf,%Rad-0.8,%Bck
Be:
EpaisT= 1

  If %Arc = 0 then Arc = %Arci,%Arcf, %Rad,white
  If %Arc = 1 then Arc = %Arci,%Arcf, %Rad,black
  If %Arc <=1 goto A0
     If %Inv=1 then Arc = %Arci,%Arcf, %Rad-1.5, black
     If %Inv=0 then Arc = %Arci,%Arcf, %Rad+1.5, black
  Arc = %Arci,%Arcf, %Rad, black
A0:

Exposant = L, %Dec

If %inv=1 then Inversion

' Tickmarks
'--------------------------------------------------------
TailleP = *.8g

'Distancia de los ticks
%Tkd=%Tkh+3

%VarL=1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2
Grad1 = %VarL§%VarL,%Tkh,%Tkw
Val1R=R90R,%VarL§%VarL,%VarL,%Tkd,%TCol
If %Dec=1 goto Index

%VarL=10,12,15,18,22,27,33,39,47,56,68,82
Grad1 = %VarL§%VarL,%Tkh,%Tkw
Val1R=R90R,%VarL§%VarL,%VarL,%Tkd,%TCol
If %Dec=2 goto Index

%VarL=100,120,150,180,220,270,330,390,470,560,680,820
Grad1 = %VarL§%VarL,%Tkh,%Tkw
Val1R=R90R,%VarL§%VarL,%VarL,%Tkd,%TCol
If %Dec=3 goto Index

%VarL=1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2
Grad1 = 1000*%VarL§1000*%VarL,%Tkh,%Tkw
Val1R=R90R,1000*%VarL§1000*%VarL,%VarL K,%Tkd,%TCol
If %Dec=4 goto Index

%VarL=10,12,15,18,22,27,33,39,47,56,68,82
Grad1 = 1000*%VarL§1000*%VarL,%Tkh,%Tkw
Val1R=R90R,1000*%VarL§1000*%VarL,%VarL K,%Tkd,%TCol
If %Dec=5 goto Index

%VarL=100,120,150,180,220,270,330,390,470,560,680,820
Grad1 = 1000*%VarL§1000*%VarL,%Tkh,%Tkw
Val1R=R90R,1000*%VarL§1000*%VarL,%VarL K,%Tkd,%TCol
If %Dec=6 goto Index

%VarL=1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2
Grad1 = 1000000*%VarL§1000000*%VarL,%Tkh,%Tkw
Val1R=R90R,1000000*%VarL§1000*%VarL,%VarL M,%Tkd,%TCol

Index: