1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

type Livello() as x =
 let mutable soffitto = new ResizeArray()
 let mutable pavimento = new ResizeArray()
 let mutable anelli = new ResizeArray()
 let mutable nubi = new ResizeArray()
 
 member x.Soffitto
    with get() = soffitto
    and set(a) = soffitto <- a

 member x.Nubi
    with get() = nubi
    and set(a) = nubi <- a

 member x.Pavimento
    with get() = pavimento
    and set(a) = pavimento <- a


 member x.Anelli
    with get() = anelli
    and set(a) = anelli <- a

 member x.Reset =
    x.Soffitto.Clear()
    let punto = new PointF(0.f, 30.f)
    x.Soffitto.Add(punto)
    let punto = new PointF(20000.f, 30.f)
    x.Soffitto.Add(punto)
   
    x.Pavimento.Clear()
    let punto = new PointF(0.f, 530.f)
    x.Pavimento.Add(punto)
    let punto = new PointF(20000.f, 530.f)
    x.Pavimento.Add(punto)

    x.Anelli.Clear()
    x.Nubi.Clear()