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

'   Nombre de la Escala
%Lab=S
'   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

If %inv=1 then Inversion

TailleP=*.7

'6 a 20
'--------
%Min==5.8
%Max==20
%i==0
'0.1
Beg6a:
%Arg==(%min+%i)
If %Arg>%Max goto End6a
%pt==Sin(%Arg)
Grad1=%pt,%T3,%E3
%i==%i+0.1
Goto Beg6a
End6a:
'0.5
%i==0.7
Beg6b:
%Arg==(%min+%i)
If %Arg>%Max goto End6b
%pt==Sin(%Arg)
Grad1=%pt,%T2,%E2
%i==%i+0.5
Goto Beg6b
End6b:
'1
%i==0.2
Beg6c:
%Arg==(%min+%i)
If %Arg>%Max goto End6c
%pt==Sin(%Arg)
Grad1=%pt,%T1,%E1
Val1R=0,%pt,%Arg,%T1+1,%E1
%i==%i+1
Goto Beg6c
End6c:

'20 a 40
'--------
%Min==20
%Max==40
%i==0.2
'0.2
Beg20a:
%Arg==(%min+%i)
If %Arg>%Max goto End20a
%pt==Sin(%Arg)
Grad1=%pt,%T3,%E3
%i==%i+0.2
Goto Beg20a
End20a:
'0.1
%i==1
Beg20b:
%Arg==(%min+%i)
If %Arg>%Max goto End20b
%pt==Sin(%Arg)
Grad1=%pt,%T2,%E2
%i==%i+1
Goto Beg20b
End20b:
'5
%i==5
Beg20c:
%Arg==(%min+%i)
If %Arg>%Max goto End20c
%pt==Sin(%Arg)
Grad1=%pt,%T1,%E1
Val1R=0,%pt,%Arg,%T1+1,%E1
%i==%i+5
Goto Beg20c
End20c:

'40 a 90
'--------
%Min==40
%Max==89.5
%i==0.5
'0.5
Beg40a:
%Arg==(%min+%i)
If %Arg>%Max goto End40a
%pt==Sin(%Arg)
Grad1=%pt,%T3,%E3
%i==%i+0.5
Goto Beg40a
End40a:
'1
%i==1
Beg40b:
%Arg==(%min+%i)
If %Arg>%Max goto End40b
%pt==Sin(%Arg)
Grad1=%pt,%T2,%E2
%i==%i+1
Goto Beg40b
End40b:
'5
%i==5
Beg40c:
%Arg==(%min+%i)
If %Arg>%Max goto End40c
%pt==Sin(%Arg)
Grad1=%pt,%T1,%E1
%i==%i+5
Goto Beg40c
End40c:
'10
%i==10
Beg40d:
%Arg==(%min+%i)
If %Arg>%Max goto End40d
%pt==Sin(%Arg)
Grad1=%pt,%T1,%E1
Val1R=0,%pt,%Arg,%T1+1,%E1
%i==%i+10
Goto Beg40d
End40d:


'Scale Label & Index Mark
'-----------------------------------------------------------
TailleP = *.8g
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)