anchor.diff:  
       use ledstripeDisposable = colorStream.Subscribe model.LedStripe
   
  -    let powerSetterDisposable = 
  +    use powerSetterDisposable = 
                model.ObjectSensor.ToObservable()  
                |> Observable.choose (fun o -> o.TryGetLocation)
                |> Observable.filter (fun loc -> loc.Mass > minMass) 
                |> Observable.scan (fun (accX, accY) loc -> (updatePositionX loc.X accX, updatePositionY loc.Y accY)) (0, 0)
                |> Observable.subscribe (fun (a, b) -> model.Servo.["E1"].SetPower -a
                                                       model.Servo.["E2"].SetPower b)
  -
   
       use downButtonDispose = buttons.ToObservable() 
                               |> Observable.filter (fun x -> ButtonEventCode.Down = x.Button) 
  
positive.code: let maxAngleY = 60
  let scaleConstX = 10
  let scaleConstY = 20
  let RGBdepth = 255.
  let SVscale = 100.
  let minMass = 5
  let deepPink = (255, 20, 147)
  
  let scale var mA sC  = (Trik.Helpers.limit (-mA) mA var) / sC
  
  
negative.code:     then acc + scale y maxAngleY scaleConstY
      else acc
  
  
  let colorProcessor (r, g, b) = 
      printfn "rgb : %d %d %d" (r * 255 / 100) (g * 255 / 100) (b * 255 / 100)
      let del (x, y, z) = (x - r) * (x - r) + (g - y) * (g - y) + (b - z) * (b - z)
      let rec loop (x :: xs) acc =
          let sup = del x
          let accDelta = del acc
          match (x :: xs) with
          | [t] -> printfn "t : %A ;; acc : %A" t acc; if del t < accDelta then t else acc 
          | x :: xs when sup < accDelta -> loop xs x
          | x :: xs when sup >= accDelta -> loop xs acc   
          | _ -> failwith "no way" 
      loop colors red
  
  let conversion (x : DetectTarget) = 
      printfn "%d %d %d %d %d %d" x.Hue x.Saturation x.Value x.HueTolerance x.SaturationTolerance x.ValueTolerance
      let (r, g, b) = 
          Trik.Helpers.HSVtoRGB(float x.Hue, (float x.Saturation) / 100. , (float x.Value) / 100.)
      colorProcessor (int (r * RGBdepth), int (g * RGBdepth), int (b * RGBdepth))
  
  let exit = new EventWaitHandle(false, EventResetMode.AutoReset)
  
  