sclass TradingCandlePainter extends AbstractTickerPainter is IToolTipMaker {
  settable L<TradingCandle> candles;
  
  settable int spikeWidth = 1;
  settable Color shortColor = java.awt.Color.blue;
  settable Color longColor = java.awt.Color.yellow;
  
  // Heikin-Ashi style candles?
  settable bool heikinAshi;
  
  settable bool autoHorizontalRange = true;
  
  settable int maxCandlesToShow = 1000;
  
  *() {}
  *(L<TradingCandle> candles) { candles(candles); }
  
  TradingRun visiblePartOfRun() {
    int i = 0;
    while (i < l(candles) && candles.get(i).endOrProjectedEndTime() < horizontalRange().start)
      ++i;
    int j = l(candles);
    while (j > i && candles.get(j-1).startTime().unixDate() >= horizontalRange().end)
      --j;
    ret new TradingRun(subList(candles, i, j));
  }
  
  void autoVerticalRange() {
    var run = visiblePartOfRun();
    verticalRange(doubleRange(run.min(), run.max()));
  }
  
  public void drawOn(Graphics2D g) {
    if (empty(candles)) ret;
    
    var run = new TradingRun(candles);
    if (autoHorizontalRange() || horizontalRange() == null) {
      var firstCandle = candles.get(max(0, l(candles)-maxCandlesToShow));
      horizontalRange(doubleRange(firstCandle.startTime().unixDate(), run.endOrProjectedEndTime()));
    }
    autoVerticalRange();
    
    drawPercentLines(g);
    drawAdditionalObjects(g);
    
    var candles = candles();
    if (heikinAshi) candles = convertToHeikinAshi(candles);

    // Draw candles
    
    var nCandles = l(candles);
    
    for i to nCandles: {
      var candle = candles.get(i);
      //var x1 = xRange().start()+doubleRatio(i, nCandles)*xRange().length();
      //var x2 = xRange().start()+doubleRatio(i+1, nCandles)*xRange().length();
      double x1 = xToScreen(candle.startTime().unixDate());
      double x2 = xToScreen(candle.endOrProjectedEndTime());
      x2 = blend(x1, x2, 0.75);
      var xCenter = avg(x1, x2);
      var y1 = yToScreen(candle.max());
      var y2 = yToScreen(candle.min());
      var yStart = yToScreen(candle.start());
      var yEnd = yToScreen(candle.end());
      
      // draw "spikes"
      var r = doubleRectFromPoints(xCenter, y1, xCenter+spikeWidth, y2);
      fillRect(g, growRectBottom(1, toRect_round(r)), candle.color());
      
      // draw candle body
      r = doubleRectFromPoints(x1, min(yStart, yEnd), x2, max(yStart, yEnd));
      fillRect(g, growRectBottom(1, toRect_round(r)), candle.color());
    }
    
    drawPositions(g);
  }
  
  public BufferedImage render() {
    var img = super.render();
    var img2 = cloneBufferedImageWithMeta(img);
    metaSet(img2, IToolTipMaker, this);
    ret img2;
  }
  
  public swappable S getToolTip(Pt p) {
    if (!hasScale()) ret "No candles yet";
    double time = xFromScreen(p.x);
    //double price = yFromScreen(p.y);
    
    TradingCandle candle = firstThat(candles, c -> c.startTime().unixDate() >= time);
    
    if (candle == null)
      ret formatLocalDateWithSeconds(lround(time));
      
    ret str(candle);
  }
  
  selfType candles(TradingCandleMaker candleMaker) {
    ret candles(candleMaker!);
  }
}