anchor.diff:      function ToColor3f: TKMColor3f;
     end;
   
  +  TKMColor3bArray = array of TKMColor3b;
  +
   const
     COLOR3F_WHITE: TKMColor3f = (R: 1; G: 1; B: 1);
     COLOR3F_BLACK: TKMColor3f = (R: 0; G: 0; B: 0);
  
positive.code:     constructor New(aR,aG,aB: Single);
      constructor NewB(aR,aG,aB: Byte);
    end;
  //             Result := R + G shl 8 + B shl 16 + A shl 24;
  
    TKMColor4f = record
  
negative.code: end;
  
  
  { TKMColor3b }
  constructor TKMColor3b.New(aR, aG, aB: Byte);
  begin
    R := aR;
    G := aG;
    B := aB;
  end;
  
  
  function TKMColor3b.ToCardinal: Cardinal;
  begin
    Result := (R + (G shl 8) + (B shl 16)); {or $FF000000};
  end;
  
  
  { TKMColor4f }
  constructor TKMColor4f.New(aR,aG,aB,aA: Single);
  begin
  