anchor.diff:          
           Div [      
              MainForm
  -        ]
  +        ] 
  +                                         
  +   
  
positive.code:    
     
     
      let Graph (height, width, g: array<int * int * string * int>, c: int) =
       let button = Button [Text "Draw!"; Attr.Style "width: 350px; height: 350px"]
       button.OnClick (fun _ _ -> 
           JS.Window?draw height width g c
           button.Remove()) 
       Div [
           Div [Attr.Id "canvas"; Attr.Height height; Attr.Width width]
           button
           ]
  
      let ShowImageControl grOption drawGr = 
       let src =
             match (grOption, drawGr) with
  
negative.code:                              |U -> "U"
                               |C -> "C"
                               |G -> "G"  
                         
                         arr.[indx] <-
                             match graphOption.edges.[indx] with
                               | a, b, c, d -> a,b,f1 c, d
                   wsff.OfElement(fun () ->Graph ((fst(getFormSize 355 355)),(fst(getFormSize 355 355)),arr, graphOption.countOfVertex))
  
  
  