Circles and lines	
	
					col := value * 65535;
					negcol:= (1-value) * 65535;

{**************plugin***********************************}
					PenFore(col,col,col);
					rect(x,y,x+5,y-5);
					objectHand :=  LNewObj;
					SetFillBack(objectHand,col,col,col);
{**************get color index for each cell***********************************}					
					RGBToColorIndex(col, col, col, colorIndex);
					Message(colorIndex);
					str:= concat(str, ' cell=',id,': ', colorIndex);
					message(str);
					PenFore(negcol,negcol,negcol);

{**************plugin can CHANGE THE POSITION OF THE CIRCLE x+1 or x+2***********************************}
					
						IF col>100 THEN BEGIN
							negcol := (1-value)  * 65535;
							
							PenFore(65535,65535,65535);
							rect(x+(2.5-.5*value),y,x+(2.5-.5*value)+value,y-5);
							objectHand :=  LNewObj;
							SetFillBack(objectHand,negcol,negcol,negcol);
							
							PenFore(65535,65535,65535);
							
							arcbycenter(x+2.5,y-2.5, value*2,360,360);
							objectHand :=  LNewObj;
							SetFillBack(objectHand,65535,65535,65535);