anchor.diff:      let sensor = model.ObjectSensor
       let buttons = new ButtonPad()
   
  -    buttons.Start()
  -    sensor.Start()
  -
  -    Trik.Helpers.SendToShell """v4l2-ctl -d "/dev/video2" --set-ctrl white_balance_temperature_auto=1"""
  -    model.LedStripe.SetPower deepPink
  +    model.LedStripe.SetPower (75, 20, 20)
   
       let sensorOutput = sensor.ToObservable()
       
  
positive.code: 
      use ledstripeDisposable = colorStream.Subscribe model.LedStripe
  
      let 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) 
  
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)
  
  