anchor.diff:          let pset (git : WorkingCopy) (name : string) =
               git.pset (sprintf "%s.%s" (current.Value |> String.concat "") name)
   
  +    module PMod =
  +        let value (m : pmod<'a>) = m.Value
  +
  +    let toV3d (v : V3f) : V3d = V3d.op_Explicit v
  +
       [<AutoOpen>]
       module Interaction =
  -        type Operation = AddPoint of V3f | ClosePolygon | MovePoint of pmod<V3f> * V3f
  +        type Operation = AddPoint of V3f 
  +                       | ClosePolygon 
  +                       | MovePoint of V3f
  +                       | ToggleMoving
   
       module Logics =
   
           open Interaction
  +
  +        let private git = Git.init ()
  +
  +        let unsafeGit = git
   
           let (<~) (p : pmod<'a>) v = PMod.change p v
           
  
positive.code:                 |> Sg.onOff (m |> Mod.map Option.isSome)    
  
          let pickSphere  = conditionally 0.040 C4b.Green camPick
          let hoverSphere = conditionally 0.041 C4b.Yellow (Mod.map (Option.map (fun (_,_,p) -> p)) hoverPosition)
          let groundPlane = Helpers.quad C4b.Gray
  
          let sg =
  
negative.code:         win.Run()
  
  open Polygons
  open Logics
  
  module TestOperations =
      unsafeGit.merge "urdar"
  
  #if INTERACTIVE
  setSg sg
  