anchor.diff:  
   open System.Drawing
   open System.Windows.Forms 
  -//let cParallel: array<int> = Array.zeroCreate 160000
   
   let deviceType = DeviceType.Default
   
  
positive.code:             let mutable zi1 = 0.0
              let mutable count = 0;
              while flag && count < iter do
                  if (zr1 * zr1 + zi1 * zi1 ) <= 4.0
                  then                        
                      let t = zr1
                      zr1 <- (zr1 * zr1 - zi1 * zi1 + cr)
                      zi1 <- (2.0 * zi1 * t + ci)
                      count <- count + 1
                  else
                      flag <- false
  
negative.code: let mutable commandQueue = new CommandQueue(provider, provider.Devices |> Seq.head)
  
  let localWorkSize = 32
  
  let mandelbrot =
      <@                            
  