anchor.diff:  ;; 3D
   
   (defun-g bs-fast32-hash ((grid-cell :vec3))
  -  (let (((lowz-hash :vec4)) (highz-hash (v4! 0)))
  -    (let* ((offset (v2! 50.0 161.0))
  -           (domain 69.0)
  -           (somelargefloat (glsl-expr "635.298681" :float))
  -           (zinc (glsl-expr "48.500388" :float)))
  -      (setf (s~ grid-cell :xyz)
  -            (- (s~ grid-cell :xyz)
  -               (* (floor (* (s~ grid-cell :xyz) (/ 1.0 domain))) domain)))
  -      (let* ((grid-cell-inc1
  -              (* (step grid-cell (v3! (- domain 1.5))) (+ grid-cell (v3! 1.0))))
  -             (p
  -              (+ (v! (s~ grid-cell :xy) (s~ grid-cell-inc1 :xy))
  -                 (s~ offset :xyxy))))
  -        (multf p p)
  -        (setf p (* (s~ p :xzxz) (s~ p :yyww)))
  -        (setf (s~ highz-hash :xy)
  -              (/ (v2! 1.0)
  -                 (+ (v2! somelargefloat)
  -                    (* (v2! (z grid-cell) (z grid-cell-inc1)) zinc))))
  -        (setf lowz-hash (fract (* p (s~ highz-hash :xxxx))))
  -        (setf highz-hash (fract (* p (s~ highz-hash :yyyy))))))
  -    (values lowz-hash highz-hash)))
  +  (let* ((offset (v2! 50.0 161.0))
  +         (domain 69.0)
  +         (somelargefloat (glsl-expr "635.298681" :float))
  +         (zinc (glsl-expr "48.500388" :float)))
  +    (setf (s~ grid-cell :xyz)
  +          (- (s~ grid-cell :xyz)
  +             (* (floor (* (s~ grid-cell :xyz) (/ 1.0 domain))) domain)))
  +    (let* ((grid-cell-inc1
  +            (* (step grid-cell (v3! (- domain 1.5))) (+ grid-cell (v3! 1.0))))
  +           (p
  +            (+ (v! (s~ grid-cell :xy) (s~ grid-cell-inc1 :xy))
  +               (s~ offset :xyxy)))
  +           ((lowz-hash :vec4))
  +           (highz-hash (v4! 0)))
  +      (multf p p)
  +      (setf p (* (s~ p :xzxz) (s~ p :yyww)))
  +      (setf (s~ highz-hash :xy)
  +            (/ (v2! 1.0)
  +               (+ (v2! somelargefloat)
  +                  (* (v2! (z grid-cell) (z grid-cell-inc1)) zinc))))
  +      (setf lowz-hash (fract (* p (s~ highz-hash :xxxx))))
  +      (setf highz-hash (fract (* p (s~ highz-hash :yyyy))))
  +      (values lowz-hash highz-hash))))
   
   
   (defun-g bs-fast32-hash ((grid-cell :vec3) (v1-mask :vec3) (v2-mask :vec3))
  
positive.code:     (incf (s~ grid-cell :xy) (s~ offset :xy))
      (multf (s~ grid-cell :xy) (s~ grid-cell :xy))
      (fract
       (* (* (x grid-cell) (y grid-cell))
          (/ (v4! 1.0) (+ some-large-floats (* (s~ grid-cell :zzzz) zinc)))))))
  
  ;;------------------------------------------------------------
  
negative.code:               (/ (v4! 1.0)
                   (+ (s~ some-large-floats :xyzw)
                      (* (s~ grid-cell-inc1 :zzzz) (s~ zinc :xyzw)))))
          (setf lowz-hash-0 (fract (* p (s~ lowz-hash-3 :xxxx))))
          (setf highz-hash-0 (fract (* p (s~ highz-hash-3 :xxxx))))
          (setf lowz-hash-1 (fract (* p (s~ lowz-hash-3 :yyyy))))
          (setf highz-hash-1 (fract (* p (s~ highz-hash-3 :yyyy))))
          (setf lowz-hash-2 (fract (* p (s~ lowz-hash-3 :zzzz))))
          (setf highz-hash-2 (fract (* p (s~ highz-hash-3 :zzzz))))
          (setf lowz-hash-3 (fract (* p (s~ lowz-hash-3 :wwww))))
          (setf highz-hash-3 (fract (* p (s~ highz-hash-3 :wwww))))))
      (values lowz-hash-0 lowz-hash-1 lowz-hash-2 lowz-hash-3
              highz-hash-0 highz-hash-1 highz-hash-2 highz-hash-3)))
  
  