b35b3319fbdbc09807cacd6645da86c4f89ec322
1
module Parasitemia.GUI.State
3 open System.Collections.Generic
11 let sourceImages = List<SourceImage>()
12 let mutable currentImage = -1
14 member val FilePath: string = "" with get
, set
15 member val PatientID: string = "" with get
, set
18 let data = { Pia.sources
= []; Pia.patientID
= this
.PatientID }
19 Pia.save
this.FilePath data
22 let data = Pia.load
this.FilePath
23 this.PatientID <- data.patientID
25 member this.AddSourceImage (filePath
: string) : SourceImage =
26 let srcImg = { num
= sourceImages.Count + 1; rbcs
= []; img
= new Image<Bgr, byte
>(filePath
) }
27 sourceImages.Add(srcImg)
28 if sourceImages.Count = 1
33 member x
.SourceImages : SourceImage seq =
34 sourceImages :> SourceImage seq
36 member this.Reset () =