- (xDir: Image<Gray, float>)
- (yDir: Image<Gray, float>)
- (radiusRange: float * float)
- (windowSize: int)
- (factorNbPick: float) : Types.Ellipse list =
+ (xDir: Image<Gray, float>)
+ (yDir: Image<Gray, float>)
+ (config: Config) : MatchingEllipses =
+
+ let r1, r2 = config.Parameters.scale * config.RBCMinRadius, config.Parameters.scale * config.RBCMaxRadius // FIXME: scale factor should be applied in Config!?
+ let windowSize = roundInt (config.Parameters.factorWindowSize * r2)
+ let factorNbPick = config.Parameters.factorNbPick