anchor.diff:                (/ (v4! 1.0)
                    (+ (s~ some-large-floats :xyzw)
                       (* (s~ grid-cell-inc1 :zzzz) (s~ zinc :xyzw)))))
  -        (progn
  -          (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))))
  -          (progn
  -            (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))))
  -            (progn
  -              (setf lowz-hash-3 (fract (* p (s~ lowz-hash-3 :wwww))))
  -              (setf highz-hash-3 (fract (* p (s~ highz-hash-3 :wwww)))))))))
  +        (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)))
   
  
positive.code:     (fract (* (s~ p :xzxz) (* (s~ p :yyww) (/ 1.0 somelargefloat))))))
  
  (defun-g bs-fast32-hash-2-per-corner ((grid-cell :vec2))
    (let (((hash-0 :vec4)) ((hash-1 :vec4)))
      (let* ((offset (v2! 26.0 161.0))
             (domain 71.0)
             (some-large-floats (glsl-expr "vec2(951.135664, 642.949883)" :vec2))
             (p (v! (s~ grid-cell :xy) (+ (s~ grid-cell :xy) (v2! 1.0)))))
        (setf p (- p (* (floor (* p (/ 1.0 domain))) domain)))
        (incf p (s~ offset :xyxy))
        (multf p p)
        (setf p (* (s~ p :xzxz) (s~ p :yyww)))
        (progn
          (setf hash-0 (fract (* p (/ 1.0 (x some-large-floats)))))
          (setf hash-1 (fract (* p (/ 1.0 (y some-large-floats)))))))
      (values hash-0 hash-1)))
  
  (defun-g bs-fast32-hash-3-per-corner ((grid-cell :vec2))
    (let (((hash-0 :vec4)) ((hash-1 :vec4)) ((hash-2 :vec4)))
      (let* ((offset (v2! 26.0 161.0))
             (domain 71.0)
             (some-large-floats
              (glsl-expr "vec3(951.135664, 642.949883, 803.202459)" :vec3))
             (p (v! (s~ grid-cell :xy) (+ (s~ grid-cell :xy) (v2! 1.0)))))
        (setf p (- p (* (floor (* p (/ 1.0 domain))) domain)))
        (incf p (s~ offset :xyxy))
        (multf p p)
        (setf p (* (s~ p :xzxz) (s~ p :yyww)))
        (progn
          (setf hash-0 (fract (* p (/ 1.0 (x some-large-floats)))))
          (setf hash-1 (fract (* p (/ 1.0 (y some-large-floats)))))
          (setf hash-2 (fract (* p (/ 1.0 (z some-large-floats)))))))
      (values hash-0 hash-1 hash-2)))
  
  (defun-g bs-fast32-hash-cell ((grid-cell :vec2))
    (let* ((offset (v2! 26.0 161.0))
  
negative.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)))))))
  
  ;;------------------------------------------------------------
  