butClose.Content <- "Close"
updateSourceImages ())
- Utils.log "Analysis terminated successfully"
+ Utils.log "All analyses terminated successfully"
atLeastOneAnalysisPerformed <- true
analysisPerformed <- true)
} |> Async.Start)
if not analysisPerformed
then
analysisCancelled <- true
- atLeastOneAnalysisPerformed)
-
-
- (*let results = ImageAnalysis.doMultipleAnalysis (state.SourceImages |> Seq.map (fun srcImg -> string srcImg.num, srcImg.img) |> Seq.toList) defaultConfig
- for id, rbcRadius, cells in results do
- state.SetResult (int id) rbcRadius cells*)
\ No newline at end of file
+ atLeastOneAnalysisPerformed)
\ No newline at end of file