b5136c2269d93d3e74c16f0056b48d00e4d41882
3 open System.Collections.Generic
9 cells
: List<Types.Cell>
10 img
: Image<Bgr, byte
> }
13 let imagesSource = List<ImageSource>()
15 member val FilePath: string = "" with get
, set
16 member val PatientID: string = "" with get
, set
19 let data = { Pia.sources
= []; Pia.patientID
= this
.PatientID }
20 Pia.save
this.FilePath data
23 let data = Pia.load
this.FilePath
24 this.PatientID <- data.patientID
26 member this.AddSourceImage (filePath
: string) =
27 imagesSource.Add({ cells
= List<Types.Cell>(); img
= new Image<Bgr, byte
>(filePath
) })
29 member x
.ImagesSource : ImageSource seq =
30 imagesSource :> ImageSource seq
32 member this.Reset () =