{ UT_Bars PSS Universal Trend Detection System - Paint Bar (C)Copyright, 2009, B.Eichberger from Professional Software Solutions, pss@pobox.com This program remains the exclusive property of B. EICHBERGER and may not be sold, used, copied, displayed or modified without the written consent of B. EICHBERGER. YOU ASSUME FULL LIABILITY FOR ALL TRADING RISKS AND OUTCOMES! PSS OR ITS EMPLOYEES AND ASSOCIATES ARE NOT RESPONSIBLE FOR ANY LOSS OR PROFIT! } Inputs: UTScope(40), UTSmooth(1), UTRecent(2), UTStep(80), UTCloseFac(100), UTColorMax(3), BarWidth(2), ColorUp(Green), ColorNeutral(Yellow), ColorDown(Red); Var: txtDiag("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"), txtID(Symbol + "_BARS"), ret(0); Array: double arrVal[100](0); {====== UT MODULE INTERFACE =========================================} DefineDLLFunc: "PSS_UTC.DLL", float , "PSS_UTC", LPSTR, LPDOUBLE, LPSTR; arrVal[0] = Date data1; arrVal[1] = Time data1; arrVal[2] = Open data1; arrVal[3] = High data1; arrVal[4] = Low data1; arrVal[5] = Close data1; arrVal[6] = Ticks data1; arrVal[7] = BarNumber data1; arrVal[8] = BarInterval data1; arrVal[9] = BarType data1; arrVal[10] = CustomerID; arrVal[11] = UTScope; arrVal[12] = UTSmooth; arrVal[14] = UTRecent; arrVal[15] = UTStep; arrVal[16] = GetBackgroundColor; arrVal[17] = ColorUp; arrVal[18] = ColorNeutral; arrVal[19] = ColorDown; arrVal[20] = UTCloseFac; arrVal[21] = UTColorMax; ret = PSS_UTC(txtID,&arrVal[0],txtDiag); {====== PAINT BAR WITH CURRENT TREND COLOR ===========================} IF ret > 0 THEN PlotPaintBar(High,Low,Open,Close,"Trend",arrVal[58],Default,BarWidth); {====== PROCESS ERRORS ===============================================} IF ret < -100 THEN RaiseRunTimeError(txtDiag);