anchor.diff:  
       open ImmutableSceneGraph
       open Elmish3D
  +    open Primitives
   
       open TranslateController
       open PlaceTransformObjects
  
positive.code: 
  module ImmutableSceneGraph = 
  
  
      type Primitive = 
          | Sphere      of Sphere3d
          | Cone        of center : V3d * dir : V3d * height : float * radius : float
          | Cylinder    of center : V3d * dir : V3d * height : float * radius : float
          | Quad        of Quad3d 
  
      type Scene<'msg> = 
              | Transform of Trafo3d * seq<Scene<'msg>>
  
negative.code: module AnotherSceneGraph =
  
      open ImmutableSceneGraph
      open Primitives
  
      type ISg<'msg> = inherit ISg
  
      let on (p : Kind -> bool) (r : V3d -> 'msg) (k : Kind) = if p k then Some (r (Event.position k)) else None
  
      let cylinder c d h r = Cylinder(c,d,h,r)
  
  