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

'   Nombre de la Escala
%Lab=T2
'   Centro
%Cx=105
%Cy=140
'    Radio de la escala
%Rad=90
'Angulo de inicio en referencia a la vertical
%Ang=0
'     Décadas
%Vinf = 0
' Primer Valor
%Vsup = 1
'Orden Inverso
%Rev=0
'Font Numeros
%Fnt = Arial
'Inversion (1 = ticks por dentro)
%Inv =0
'Tipo de Arco
%Arc=1
'Largos de los ticks
%T1=5   '1
%T2=4    '.5
%T3=3    '.1
%T4=2    '.05
%T5=1.5    '.02 y.01
'Espesores de los ticks
%E1=6
%E2=5
%E3=4
%E4=3
%E5=1
'Color del Fondo
%Bck=RVB  255 255 255

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

'Background
%wid=%T3*25
EpaisT=%wid
If %Inv=1 goto B1
Arc=0,360,%Rad+%T3/2,%Bck
Goto Be
B1:
Arc=0,360,%Rad-%T3/2,%Bck
Be:
EpaisT= 1

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-%T5, black
   If %Inv=0 then Arc = 90+%Ang, 450+%Ang, %Rad+%T5, black
   Arc = 90+%Ang, 450+%Ang, %Rad,black
Aend:

Exposant=L,,1,10

If %inv=1 then Inversion

TailleP=*0.7

'45 a 80
%Min==45
%Max==80
'0.1
%i==0.1
Beg2a:
%Arg==(%min+%i)
If %Arg>%Max goto End2a
%pt==Tan(%Arg)
Grad1=%pt,%T3,%E3
%i==%i+0.1
Goto Beg2a
End2a:
'0.5
%i==0.5
Beg2b:
%Arg==(%min+%i)
If %Arg>%Max goto End2b
%pt==Tan(%Arg)
Grad1=%pt,%T2,%E2
%i==%i+0.5
Goto Beg2b
End2b:
'1
%i==1
Beg2c:
%Arg==(%min+%i)
If %Arg>%Max goto End2c
%pt==Tan(%Arg)
Grad1=%pt,%T1,%E1
%i==%i+1
Goto Beg2c
End2c:
'5
%i==5
Beg2d:
%Arg==(%min+%i)
If %Arg>%Max goto End2d
%pt==Tan(%Arg)
Grad1=%pt,%T1,%E1
Val1R=0,%pt,%Arg,%T1+1
%i==%i+5
Goto Beg2d
End2d:


'80 a 84.2
'----------
%Min==80
%Max==84.2
'0.1
%i==0.1
Beg4a:
%Arg==(%min+%i)
If %Arg>%Max goto End4a
%pt==Tan(%Arg)
Grad1=%pt,%T3,%E3
%i==%i+0.1
Goto Beg4a
End4a:
'0.5
%i==0.5
Beg4b:
%Arg==(%min+%i)
If %Arg>%Max goto End4b
%pt==Tan(%Arg)
Grad1=%pt,%T2,%E2
%i==%i+0.5
Goto Beg4b
End4b:
'1
%i==1
Beg4c:
%Arg==(%min+%i)
If %Arg>=%Max goto End4c
%pt==Tan(%Arg)
Grad1=%pt,%T1,%E1
Val1R=0,%pt,%Arg,%T1+1
%i==%i+1
Goto Beg4c
End4c:


'Scale Label & Index Mark
'-----------------------------------------------------------
TailleP = *.7g
Grad1=1,(%T5),,white
If %Inv=1 goto Lab1
  %px=(%rad+%T5)*cos(90-%Ang),%px(1)+2.83*cos(135-%Ang),%px(2)+2*cos(90-%Ang),%px(3)+4*cos(-%Ang),%px(4)+2*cos(270-%Ang),%px(5)+2.83*cos(225-%Ang)
  %py=(%rad+%T5)*sin(90-%Ang),%py(1)+2.83*sin(135-%Ang),%py(2)+2*sin(90-%Ang),%py(3)+4*sin(-%Ang),%py(4)+2*sin(270-%Ang),%py(5)+2.83*sin(225-%Ang)

   PolyP=black,%px(1),%py(1),%px(2),%py(2),%px(3),%py(3),%px(4),%py(4),%px(5),%py(5),%px(6),%py(6)
   TexteC=0r,0r,%Rad+3.4,90+%Ang,white,BX,%Lab
   Goto LabEnd

Lab1:
   %px=(%rad-%T5)*cos(90-%Ang),%px(1)+2.83*cos(-45-%Ang),%px(2)+2*cos(-90-%Ang),%px(3)+4*cos(180-%Ang),%px(4)+2*cos(90-%Ang),%px(5)+2.83*cos(45-%Ang)
   %py=(%rad-%T5)*sin(90-%Ang),%py(1)+2.83*sin(-45-%Ang),%py(2)+2*sin(-90-%Ang),%py(3)+4*sin(180-%Ang),%py(4)+2*sin(90-%Ang),%py(5)+2.83*sin(45-%Ang)

    PolyP=black,%px(1),%py(1),%px(2),%py(2),%px(3),%py(3),%px(4),%py(4),%px(5),%py(5),%px(6),%py(6)
    TexteC=0r,0r,%Rad-4.6,90+%Ang,white,BX,%Lab
LabEnd:
Grad1=1,(%T5)