//seconds_interval within a bar, a total of 10 increments within the bar,
// example
// seconds_interval = 30 {5 min bar/every 30 seconds }
// seconds_interval = 180 {30 min bar/every 180 seconds }
inputs: seconds_interval(30),printlog(false);
vars:
CurrentTimeInSecs ( 0 ),
TotSecondsDiff( 0 ) ,
SecondsDiff( 0 ) ,
MinutesDiff( 0 );
//if printlog then
if false then
begin
if BarStatus(1)=0 then
print (time,0);
if BarStatus(1)=1 then
print (time,1);
if BarStatus(1)=2 then
print (time,2);
end;
if date = date[1] then
begin
CurrentTimeInSecs = ( ComputerDateTime - DateToJulian( Date ) ) *
86400 ; { 86400 sec = 60sec * 60min * 24hrs }
TotSecondsDiff = CurrentTimeInSecs - CurrentTimeInSecs[1] ;
MinutesDiff = Intportion( TotSecondsDiff / 60 ) ;
SecondsDiff = FracPortion( TotSecondsDiff / 60 ) * 60 ;
end;
If TotSecondsDiff > 0 then
begin
if TotSecondsDiff < (seconds_interval+1) then
begin
plot1 (ticks,"v1");
end
else if TotSecondsDiff > seconds_interval and TotSecondsDiff <
((seconds_interval*2) +1) then
begin
plot2 (ticks,"v2");
end
else if TotSecondsDiff > (seconds_interval*2) and TotSecondsDiff <
((seconds_interval*3) +1) then
begin
plot3 (ticks,"v3");
end
else if TotSecondsDiff > (seconds_interval*3) and TotSecondsDiff <
((seconds_interval*4) +1) then
begin
plot4 (ticks,"v4");
end
else if TotSecondsDiff > (seconds_interval*4) and TotSecondsDiff <
((seconds_interval*5) +1) then
begin
plot5 (ticks,"v5");
end
else if TotSecondsDiff > (seconds_interval*5) and TotSecondsDiff <
((seconds_interval*6) +1) then
begin
plot6 (ticks,"v6");
end
else if TotSecondsDiff > (seconds_interval*6) and TotSecondsDiff <
((seconds_interval*7) +1) then
begin
plot7 (ticks,"v7");
end
else if TotSecondsDiff > (seconds_interval*7) and TotSecondsDiff <
((seconds_interval*8) +1) then
begin
plot8 (ticks,"v8");
end
else if TotSecondsDiff > (seconds_interval*8) and TotSecondsDiff <
((seconds_interval*9) +1) then
begin
plot9 (ticks,"v9");
end
else plot10 (ticks,"v10");
end;