defparam drawonlastbaronly = true
valorhora = 1
if valorhora =1 then
if opentime= 080000 then
Pa=open
x = barindex
endif
endif
if valorhora =2 then
if opentime = 000000 then
Pa=open
x= barindex
endif
endif
if pa=0 then
pa = open
endif
P = pa
S1 = P / 1.00236
S2 = P / 1.00382
S3 = P / 1.005
s4 = P / 1.00618
s5 = P / 1.00762
s6 = P / 1.01
s7 = P / 1.01236
s8 = P / 1.01382
s9 = P / 1.015
r1 = P * 1.00236
rr2 = P * 1.00382
r3 = P * 1.005
r4 = P * 1.00618
r5 = P * 1.00762
r6 = P * 1.01
r7 = P * 1.01236
r8 = P * 1.01382
r9 = P * 1.015
//vertical offset to draw text correctly over horizontal lines
Voffset = 1*pipsize
DRAWTEXT("PA",barindex-2,p+Voffset,SansSerif,Bold,16)coloured(153,153,0)
DRAWTEXT("s1",barindex-2,s1+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("s2",barindex-2,s2+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("S3",barindex-2,s3+Voffset,SansSerif,Bold,16)coloured(153,0,0)
DRAWTEXT("s4",barindex-2,S4+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("s5",barindex-2,S5+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("S6",barindex-2,S6+Voffset,SansSerif,Bold,16)coloured(153,0,0)
DRAWTEXT("s7",barindex-2,S7+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("s8",barindex-2,S8+Voffset,SansSerif,Bold,12)coloured(153,0,0)
DRAWTEXT("S9",barindex-2,S9+Voffset,SansSerif,Bold,16)coloured(153,0,0)
DRAWTEXT("r1",barindex-2,r1+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("r2",barindex-2,rr2+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("R3",barindex-2,r3+Voffset,SansSerif,Bold,16)coloured(0,153,0)
DRAWTEXT("r4",barindex-2,r4+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("r5",barindex-2,r5+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("R6",barindex-2,r6+Voffset,SansSerif,Bold,16)coloured(0,153,0)
DRAWTEXT("r7",barindex-2,r7+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("r8",barindex-2,r8+Voffset,SansSerif,Bold,12)coloured(0,153,0)
DRAWTEXT("R9",barindex-2,r9+Voffset,SansSerif,Bold,16)coloured(0,153,0)
drawsegment(barindex,p,x,p) coloured(0,0,0)
drawsegment(barindex,s1,x,s1) coloured(153,0,0)
drawsegment(barindex,s2,x,s2) coloured(153,0,0)
drawsegment(barindex,s3,x,s3) coloured(153,0,0)
drawsegment(barindex,S4,x,S4) coloured(153,0,0)
drawsegment(barindex,S5,x,S5) coloured(153,0,0)
drawsegment(barindex,S6,x,S6) coloured(153,0,0)
drawsegment(barindex,S7,x,S7) coloured(153,0,0)
drawsegment(barindex,S8,x,S8) coloured(153,0,0)
drawsegment(barindex,S9,x,S9) coloured(153,0,0)
drawsegment(barindex,r1,x,r1) coloured(0,153,0)
drawsegment(barindex,rr2,x,rr2) coloured(0,153,0)
drawsegment(barindex,R3,x,R3) coloured(0,153,0)
drawsegment(barindex,r4,x,r4) coloured(0,153,0)
drawsegment(barindex,r5,x,r5) coloured(0,153,0)
drawsegment(barindex,R6,x,R6) coloured(0,153,0)
drawsegment(barindex,R7,x,R7) coloured(0,153,0)
drawsegment(barindex,R8,x,R8) coloured(0,153,0)
drawsegment(barindex,R9,x,R9) coloured(0,153,0)
RETURN