anchor.diff:  end;
   
   
  +function TKMColor3f.ToString: string;
  +begin
  +  Result := Format('[%d:%d:%d]', [Round(255*R), Round(255*G), Round(255*B)]);
  +end;
  +
  +
   { TKMColor3b }
   constructor TKMColor3b.New(aR, aG, aB: Byte);
   begin
  
positive.code:     class function RandomWSeed(aSeed: Integer): TKMColor3f; static;
      constructor New(aR,aG,aB: Single);
      constructor NewB(aR,aG,aB: Byte);
    end;
  
    TKMColor3b = record
  
negative.code:   B := aB;
  end;
  
  
  constructor TKMColor3f.NewB(aR, aG, aB: Byte);
  begin
    R := aR / 255;
    G := aG / 255;
    B := aB / 255;
  end;
  
  
  constructor TKMColor3f.NewC(aRGB: Cardinal);
  begin
    B := (aRGB and $FF) / 255;
    G := (aRGB shr 8 and $FF) / 255;
    R := (aRGB shr 16 and $FF) / 255;
  end;
  
  
  