This is an example of how helpful it is to be able to draw our own creations. The code is attached Jim Hutchison
[]
<<inline: ChartBook.png>>
GfxSetOverlayMode(2);
Page = Param("Page #",0,0,12,1);
listNum= Param("Watch List Num" ,0,0,50,1); ;//enter watchlist number
ChartsWiNum = Param("# Charts Wide",3,1,4,1);
ChartsHiNum = Param("# Charts High",3,1,4,1);
ChartMargin = 5 ;
DataMargin = 20 ;
NumCharts = ChartsWiNum * ChartsHiNum ;
ScreenHeight = Status("pxheight") ;
SceernWidth = Status("pxwidth") ;
ChartHeight = ScreenHeight / ChartsHiNum -2 ;
Width = SceernWidth / ChartsWiNum - 2;
BarChartHeight= (0.80) * ChartHeight - DataMargin;
VolChartHeight = ChartHeight - BarChartHeight - DataMargin ;
NumberPriceLevels = BarChartHeight / 25;
BarChartWidth= Width - 45;
Bars =Param("Number Of Bars", 195,50,250,1) ;
BarWidth = (BarChartWidth - ChartMargin * 3) / Bars ;
LastBar = BarCount ;
FirstBar = LastBar - Bars;
_N(list = CategoryGetSymbols( categoryWatchlist, listnum ));
printf("Watch List Name\n");
WL = CategoryGetName( categoryWatchlist, listnum );
s = Page * NumCharts;
/*
_TRACE("ScreenHeight "+WriteVal(ScreenHeight));
_TRACE("ChartHeight "+WriteVal(ChartHeight));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("BarChartHeight "+WriteVal(BarChartHeight));
*/
for( x = 0; x < ChartsHiNum ; x++ )
{
for( i = 0; i < ChartsWiNum ; i++ )
{
sym = StrExtract( list, s );
if(sym != "")
{
x1 = Width * i + 5;
y1 = ChartHeight * x + 5;
x2 = Width * (i + 1);
y2 = ChartHeight * (x + 1);
GfxSelectPen( colorBlack );
GfxRectangle( x1, y1, x2, y2 );
SetForeign(sym);
s++;
priceHigh = 0;
VolHigh = 0;
priceMin = 1000000;
for( z = FirstBar; z < LastBar ; z++ )
{
Vol = V[z];
BarH = H[z];
BarL = L[z];
if( Vol > VolHigh )
{
VolHigh = Vol;
}
if( BarH > priceHigh )
{
priceHigh = BarH;
}
if( BarL < priceMin )
{
priceMin = BarL;
}
}
LOpen = O[LastBar-1];
LHigh = H[LastBar-1];
LLow = L[LastBar-1];
LClose = C[LastBar-1];
LVol = V[LastBar-1];
GfxSelectFont("Tahoma", 9 );
GfxSetTextColor(colorBlack);
GfxTextOut(sym + " O-" +LOpen + " H-" +LHigh + " L-"
+LLow + " C-" +LClose + " Vol-" +LVol/ 1000000+ " M", x1+5, y1+2);
VolRatio = VolChartHeight / VolHigh ;
Range = priceHigh - priceMin;
Ratio = BarChartHeight / Range ;
PriceLineLevel = Range / NumberPriceLevels;
yHi=(((priceHigh - priceMin )* Ratio) - BarChartHeight) * -1 +
y1 + DataMargin;
GfxTextOut(WriteVal(priceHigh, 1.2), x1 + BarChartWidth, yHi
-8);
GfxSelectPen( colorLightGrey );
GfxMoveTo( x1 , yHi );
GfxLineTo( x1 + BarChartWidth -5, yHi );
/*
_TRACE("x "+WriteVal(x));
_TRACE("i "+WriteVal(i));
_TRACE("VolHigh "+WriteVal(VolHigh));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("VolRatio "+WriteVal(VolRatio,1.8));
_TRACE("Ratio "+WriteVal(Ratio));
_TRACE("PriceLineLevel "+WriteVal(PriceLineLevel));
*/
for( z = 0; z < NumberPriceLevels ; z++ )
{
PriceLevel = PriceLineLevel*z + priceMin;
yHi=(((PriceLevel - priceMin )* Ratio) -
BarChartHeight) * -1 + y1 + DataMargin;
GfxTextOut(WriteVal(PriceLevel, 1.2), x1 +
BarChartWidth, yHi -8);
GfxSelectPen( colorLightGrey );
GfxMoveTo( x1 , yHi );
GfxLineTo( x1 + BarChartWidth -5, yHi );
}
HighestLast = 0;
w = 1;
for( z = FirstBar; z < LastBar ; z++ )
{
BarH = H[z];
BarL = L[z];
BarO = O[z];
BarC = C[z];
Vol = V[z];
vHi= Vol * VolRatio - VolChartHeight + y2;
yHi=(((BarH - priceMin )* Ratio)- BarChartHeight ) * -1
+ y1 + DataMargin;
yLo= (((BarL - priceMin )* Ratio) - BarChartHeight) *
-1 + y1 + DataMargin;
if( BarH > HighestLast )
{
HighestLast = BarH;
GfxSelectPen( colorBlue );
}
else
{
GfxSelectPen( colorRed );
}
GfxMoveTo( BarWidth * w + x1 + ChartMargin , yHi );
GfxLineTo( BarWidth * w + x1 + ChartMargin, yLo );
if( BarO > BarC)
{
GfxSelectPen( colorRed );
}
else
{
GfxSelectPen( colorLime );
}
GfxMoveTo( BarWidth * w + x1 + ChartMargin , vHi );
GfxLineTo( BarWidth * w + x1 + ChartMargin, y2 );
w++;
}
RestorePriceArrays();
}
}
}
