anchor.diff:      procedure DrawPoint(x, y: Double; Color: TColor);
       procedure DrawLine(x0, y0, x1, y1: Double; Color: TColor; PenWidth: Integer);
       procedure DrawVec(x, y: fvec; Color: TColor; PenWidth: Integer);
  -    procedure DrawChart(ref: string; Width, Height: Integer);
  +    procedure DrawChart(ref: PAnsiChar; Width, Height: Integer);
     end;
   
   implementation
  
positive.code: unit uMolChart;
  
  interface
  
  uses
    SysUtils, Windows, Graphics, Classes,
    superobject,
    cpIntf;
  
  type
  
negative.code:   y1 := y1+0.1*dy;
    CalcScaleFactor;
  
    DrawVec(hf, p, clGreen, 2); // liquid line
    DrawVec(hg, p, clRed, 2); // vapor line
    DrawPoint(hc, pc, clBlue) // critical point
  end;
  
  end.
  