anchor.diff:      cParallel
   
   
  -let draw (scaling, size, mx, my, cr, ci) = 
  +let draw scaling size mx my cr ci = 
       let image = new Bitmap (400,400)
       let arr1 = JuliaDraw scaling size mx my cr ci
       let mutable s = -400
  
positive.code:             fun (r:_2D) (cx: array<_>) scaling size mx my cr ci ->
                  let x = r.GlobalID0
                  let y = r.GlobalID1
  
                  let fx = float x / size * scaling + mx
                  let fy = float y / size * scaling + my 
                  let iter = 4000
  
negative.code:                     cx.[x*400 + y] <- count
  
          @>
  
      let kernel, kernelPrepare, kernelRun = provider.Compile command
      let d = (new _2D(400, 400, localWorkSize, localWorkSize))
      kernelPrepare d cParallel scaling size mx my cr ci
      let _ = commandQueue.Add(kernelRun()).Finish()
      let _ = commandQueue.Add(cParallel.ToHost provider).Finish()
  