anchor.diff:           (domain 71.0)
            (some-large-floats (v! "951.135664" "642.949883" "803.202459"))
            (p (v! (s~ grid-cell :xy) (+ (s~ grid-cell :xy) (v2! 1.0)))))
  -    (setf p (mod-fixed-denominator p domain))
  +    (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)))
  
positive.code:          (domain 71.0)
           (some-large-floats (v! "951.135664" "642.949883"))
           (p (v! (s~ grid-cell :xy) (+ (s~ grid-cell :xy) (v2! 1.0)))))
      (setf p (mod-fixed-denominator p domain))
      (incf p (s~ offset :xyxy))
      (multf p p)
      (setf p (* (s~ p :xzxz) (s~ p :yyww)))
  
negative.code:          (domain 71.0)
           (somelargefloat "951.135664")
           (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)
      (fract (* (s~ p :xzxz) (* (s~ p :yyww) (/ 1.0 somelargefloat))))))
  