Fixed are_orthogonal for real.

src/typed-geometry/functions/tests/vec_tests.hh

@@ -32,7 +32,9 @@ template <int D, class ScalarT, class = enable_if<is_floating_point<ScalarT>>>
 template <int D, class ScalarT>
 [[nodiscard]] constexpr bool are_orthogonal(vec<D, ScalarT> const& a, vec<D, ScalarT> const& b, ScalarT eps = 100 * D * tg::epsilon<ScalarT>)
 {
-    return abs(dot(a, b)) < max(max_element(abs(a)), max_element(abs(b))) * eps;
+    // the error scales with the square of the magnitude of the inputs
+    auto const scale = max(max_element(abs(a)), max_element(abs(b)));
+    return abs(dot(a, b)) < scale * scale * eps;
 }
 
 template <int D, class ScalarT>