Support Board

SCSFExport scsf_SimulationBackgroundColor(SCStudyInterfaceRef sc)
{
SCSubgraphRef testSubgraph = sc.Subgraph[0];
SCInputRef Input_Length = sc.Input[0];

if (sc.SetDefaults)
{
sc.GraphName = "MyTest";
sc.StudyDescription = "MyTest";

Input_Length.Name = "Test Length";
Input_Length.SetInt(100);

  testSubgraph.Name = "Test Subgraph";
  testSubgraph.DrawStyle = DRAWSTYLE_LINE;
  testSubgraph.PrimaryColor = RGB(255, 0, 0);
  testSubgraph.LineWidth = 2;


sc.DisplayStudyInputValues = false;
sc.AutoLoop = true;
sc.DrawStudyUnderneathMainPriceGraph = 1;

}

const int P_ONE_MIN_CHART = 1;

int& oneMinChartNumber = sc.GetPersistentInt(P_ONE_MIN_CHART);

if (sc.IsFullRecalculation || sc.Index == 0)
{
s_ACSOpenChartParameters oneMinParams;

oneMinParams.PriorChartNumber = oneMinChartNumber;
oneMinParams.DaysToLoad = 0;
oneMinParams.ChartDataType = INTRADAY_DATA;
oneMinParams.Symbol = sc.GetRealTimeSymbol();
oneMinParams.IntradayBarPeriodType = IBPT_DAYS_MINS_SECS;
oneMinParams.IntradayBarPeriodLength = 1 * SECONDS_PER_MINUTE;
oneMinParams.HideNewChart = true;
oneMinParams.LoadWeekendData = true;
oneMinParams.UseEveningSession = true;
oneMinParams.UpdatePriorChartNumberParametersToMatch = true;
oneMinChartNumber = sc.OpenChartOrGetChartReference(oneMinParams);

sc.SetPersistentInt(P_ONE_MIN_CHART, oneMinChartNumber);
}

if (sc.Index < sc.ArraySize - 1
&& sc.IsFullRecalculation)
return;

if (oneMinChartNumber != 0)
{
SCGraphData oneMinData;
sc.GetChartBaseData(oneMinChartNumber, oneMinData);

if (oneMinData.GetArraySize() == 0)
return;

int dataIndex = oneMinData[SC_OPEN].GetArraySize() - 1;

auto tpvSum{ 0.0 };

for (auto offset = 0; offset < Input_Length.GetInt(); ++offset)
{
if (dataIndex - offset < 0)
break;

auto refIndex = dataIndex - offset;
auto tpvVal = static_cast<double>(oneMinData[SC_HLC][refIndex]) * static_cast<double>(oneMinData[SC_VOLUME][refIndex]);
tpvSum += tpvVal;
  }

SCString FormattedMessage;

sc.AddMessageToLog(FormattedMessage.Format("sc.index=%i dataIndex=%i oneMinDataLen=%i tpvSum=%.2f", sc.Index, dataIndex, oneMinData[0].GetArraySize(), tpvSum), 0);

testSubgraph[sc.Index] = static_cast<float>(tpvSum);
}
}