(defun transform-xyz-be-7-property (delta-x delta-y delta-z r-x r-y r-z delta-m old-X old-Y old-Z / new-X new-Y new-Z)
  (setq new-X (+ delta-x (* (+ 1.0 delta-m) (+ old-X  (* old-Y r-z) (* (* -1.0 old-Z) r-y)))))
  (setq new-Y (+ delta-y (* (+ 1.0 delta-m) (+ (* (* -1.0 old-X) r-z) old-Y (* old-Z r-x)))))
  (setq new-Z (+ delta-z (* (+ 1.0 delta-m) (+ (- (* old-X r-y) (* old-Y r-x)) old-Z))))
  (list new-X new-Y new-Z)
  )
