diff -r 679ddf512b65 -r 895829b91057 www/includes/formulas.php --- a/www/includes/formulas.php Sat Nov 17 21:59:06 2018 +0100 +++ b/www/includes/formulas.php Sat Nov 17 23:29:11 2018 +0100 @@ -627,8 +627,6 @@ end; - CalcBitterness; - // Get concentration of ions in diluted brewwater (1) and target water (2) in mmol/l Ca1 := W.Calcium.Value / MMCa; Ca2 := W2.Calcium.Value / MMCa; @@ -678,31 +676,6 @@ -function TRecipe.CalcColorWort : double; -var - i: integer; - F: TFermentable; - c, v: double; -begin - c := 0; - v := FBatchSize.Value; - if (v > 0) and (High(FFermentables) >= 0) then - begin - for i := Low(FFermentables) to High(FFermentables) do - begin - F := TFermentable(FFermentables[i]); - c := c + F.Amount.Value * F.Color.Value / v; - end; - c := c * 8.34436; - case FColorMethod of - cmMorey: c := 1.49 * Power(c, 0.69); - cmMosher: c := 0.3 * c + 4.7; - cmDaniels: c := 0.2 * c + 8.4; - end; - end; - Result:= c; -end; - procedure TRecipe.CalcWaterBalance; var