anchor.diff:              let hw = "height: " + fst(getFormSize 355 355) + "; width: " + fst(getFormSize 355 355)
               Img [Attr.Style hw; Attr.Src "defaultImg.svg"])
                 | (Some(graphOption), true) -> //to do
  -                 let arr: array<int*int*string*int> = Array.zeroCreate (Array.length graphOption.edges) 
  +                 let arr: array<int*int*string*bool> = Array.zeroCreate (Array.length graphOption.edges) 
                    for indx = 0 to Array.length graphOption.edges-1 do
                          let f1 nuc =
                             match nuc with
  
positive.code:                              |U -> "U"
                               |C -> "C"
                               |G -> "G"  
                         let f2 bool =
                               if bool then 1
                                       else 0
                         arr.[indx] <-
                             match graphOption.edges.[indx] with
                               | a, b, c, d -> a,b,f1 c,f2 d
                   wsff.OfElement(fun () ->Graph ((fst(getFormSize 355 355)),(fst(getFormSize 355 355)),arr, graphOption.countOfVertex))
  
  
  
negative.code:         
          Div [      
             MainForm
          ] 
                                           
     
  