anchor.diff:                  let size = 100.0
                   let fx = float x / size * scaling +  -1.5
                   let fy = float y / size * scaling +  -1.0
  -                let maxr = 1.0
  -                let maxi = 1.0
  -                let minr = -1.78
  -                let mini = -1.0
  -                let zr = 0.0
  -                let zi = 0.0
                   let cr = fx
                   let ci = fy
                   let iter = 20
  -                let mutable flag = false
  -                let mutable flag2 = true
  -                let mutable zr1 = zr
  -                let mutable zi1 = zi
  -                let mutable count = 0;
  -                while (flag2) do
  -                    if (minr < zr1) && (mini < zi1) && (zr1 < maxr) && (zi1 < maxi) && (count < iter)
  +                let mutable flag = true
  +                let mutable zr1 = 0.0
  +                let mutable zi1 = 0.0
  +                for i in 0..iter do
  +                    if (zr1*zr1 + zi1*zi1 ) <= 4.0
                       then
  -                        count <- count + 1
  +                        let t = zr1
                           zr1 <- (zr1*zr1 - zi1*zi1 + cr)
  -                        zi1 <- (zr1*zi1 + zi1*zr1 + ci)
  +                        zi1 <- (2.0 * zi1 * t + ci)
                       else
  -                        flag2 <- false 
  -                        if count=iter
  -                        then flag <- true  
  -                        else flag <- false                
  +                        flag <- false                    
                   if flag 
                   then
                       cx.[x*400+y] <- 1
  
positive.code:     provider.CloseAllBuffers()
      //ignore (System.Console.Read())
      cParallel
  //let f (a:array<int>) =
  //    for i in 0..(a.Length-1) do
  //        printf "%A" a.[i]
  //f Main
  
  let draw  (image:Bitmap) (arr1:array<int>) =
      let mutable t = -400; 
  
negative.code:     temp.SetBounds(400, 400, 410, 450)
      temp
  
  do Application.Run(form);;