inputs:numSegments(6),numPlots(6);

arrays: segmentBounds[](0);

variables: j(0),loopCnt(0),segmentSize(0),avgRng(0);
once
Begin
	Array_SetMaxIndex(segmentBounds, numSegments);
end;

if d <> d[1] Then  // only works on the @ES.D or any .D session
begin
	avgRng = average(range of data2,20);
	segmentSize = avgRng/numSegments;
	loopCnt = -1*numSegments/2;
	for j = 0 to numSegments
	begin
		segmentBounds[j] = openD(0) + loopCnt * segmentSize;
		loopCnt = loopCnt + 1;
	end;
end;

//The following time constraint only works when all time stamps
//are less than the end of day time stamp
//This will not work when time = 1800 and endTime = 1700
if t < calcTime(sessionEndTime(0,1),-barInterval) Then
begin
	if numPlots >= 1 then plot1(segmentBounds[0],"Level 0");
	if numPlots >= 2 then plot2(segmentBounds[1],"Level 1");
	if numPlots >= 3 then plot3(segmentBounds[2],"Level 2");
	if numPlots >= 4 then plot4(segmentBounds[3],"Level 3");
	if numPlots >= 5 then plot5(segmentBounds[4],"Level 4");
	if numPlots >= 6 then plot6(segmentBounds[5],"Level 5");
	if numPlots >= 7 then plot7(segmentBounds[6],"Level 6");
//	plot8(segmentBounds[7],"Level 7");
//	plot9(segmentBounds[8],"Level 8");
end;

inputs:numSegments(6),numPlots(6);
arrays: segmentBounds[](0);
variables: j(0),loopCnt(0),segmentSize(0),avgRng(0),
startTime(0),endTime(0),endTimeOffset(0);

once
Begin
	Array_SetMaxIndex(segmentBounds, numSegments);
end;

startTime = sessionStartTime(0,1); 
endTime = sessionEndTime(0,1);
//let TS tell you when the market opens - remember the
//first time stamp is the open time + bar interval
if t = calcTime(sessionStartTime(0,1),barInterval) Then
begin
	avgRng = average(range of data2,20);
	segmentSize = avgRng/numSegments;
	loopCnt = -1*numSegments/2;
	for j = 0 to numSegments
	begin
		segmentBounds[j] = open + loopCnt * segmentSize;
		loopCnt = loopCnt + 1;
	end;
end;

// if startTime > endTime then you know you are dealing with
// timees that more than likely bridges midnight
// if time is greater then 1700 (end time) then you must
// subtract an offset so it makes sense - endTimeOffset
// play with the math and it will come to you
if startTime > endTime then 
begin 
	endTimeOffset = 0; 
	if t >= startTime+barInterval and t<= 2359 then
		endTimeOffSet = 2400-endTime; 
end;
if t-endTimeOffSet < endTime Then
begin
	if numPlots >= 1 then plot1(segmentBounds[0],"Level 0");
	if numPlots >= 2 then plot2(segmentBounds[1],"Level 1");
	if numPlots >= 3 then plot3(segmentBounds[2],"Level 2");
	if numPlots >= 4 then plot4(segmentBounds[3],"Level 3");
	if numPlots >= 5 then plot5(segmentBounds[4],"Level 4");
	if numPlots >= 6 then plot6(segmentBounds[5],"Level 5");
	if numPlots >= 7 then plot7(segmentBounds[6],"Level 6");
//	plot8(segmentBounds[7],"Level 7");
//	plot9(segmentBounds[8],"Level 8");
end;