anchor.diff:      open Stuff
   
       let coordinateCross = coordinateCross
  -    let coordinateBox = coordinateBox
  +    let solidCoordinateBox = solidCoordinateBox
  +    let wireCoordinateBox = wireCoordinateBox
  +    let coordinateBox f = [wireCoordinateBox f]
       let cameraFrustum = cameraFrustum
       let cameraFrustum' = cameraFrustum'
   
  
positive.code: 
              let hi = 70
              let lo = 30
  
              let qf = quad' pmp ppp ppm pmm (C4b(hi,lo,lo,255))
              let qb = quad' mmp mmm mpm mpp (C4b(lo,hi,hi,255))
              let ql = quad' pmp pmm mmm mmp (C4b(lo,hi,lo,255))
              let qr = quad' ppp mpp mpm ppm (C4b(hi,lo,hi,255))
              let qu = quad' pmp ppp mpp mmp (C4b(lo,lo,hi,255))
              let qd = quad' pmm mmm mpm ppm (C4b(hi,hi,lo,255))
  
              [qf; qb; ql; qr; qu; qd]
  
          let cameraFrustum (v : IMod<CameraView>) (p : IMod<Frustum>) (c : IMod<C4b>) =
              adaptive {
  
negative.code:                 Line3d(V3d.Zero, V3d.YAxis * size), C4b.Green
                  Line3d(V3d.Zero, V3d.ZAxis * size), C4b.Blue
              ] |> lines
              
          let solidCoordinateBox (size : float) =
              let s = size
  
              let ppp = V3d( s, s, s)
  