anchor.diff:  module TranslateController2 =
   
       open AnotherSceneGraph
  -    open Elmish3D
  +    open Elmish3DADaptive
       open TranslateController
  +    open Primitives
   
       [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
       module Axis =
  
positive.code: 
      type MouseEvent = Down of MouseButtons | Move | Click of MouseButtons | Up of MouseButtons
      type NoPick = NoPick of MouseEvent * Ray3d
  
      module List =
          let updateAt i f xs =
  
negative.code:                     { m with trafo = Trafo3d.Translation (ha.Point - start) }
                  else m
              | MoveRay r, None -> m
  
      let view (m : MModel) =
          let arrow dir = Cone(V3d.OOO,dir,0.3,0.1)
  