Function test

code/geometry/lines.test.cpp:10–51

}

void test() {
  
  point a, b, c;

  a = point(-2, -2); b = point(3, 3); c = point(5, 5);
  assert_true(collinear(a, b, c));
  assert_true(collinear(a, c, b));
  assert_true(collinear(b, a, c));
  assert_true(collinear(b, c, a));
  assert_true(collinear(c, a, b));
  assert_true(collinear(c, b, a));

  a = point(-2, 2); b = point(3, 3); c = point(5, 5);
  assert_false(collinear(a, b, c));
  assert_false(collinear(a, c, b));
  assert_false(collinear(b, a, c));
  assert_false(collinear(b, c, a));
  assert_false(collinear(c, a, b));
  assert_false(collinear(c, b, a));

  
  assert_equal(point(1, 1), closest_point(point(2, 2), point(3, 3), point(2, 0)));
  assert_equal(point(0.5, 0.5), closest_point(point(2, 2), point(3, 3), point(1, 0)));
  assert_equal(point(1, 1), closest_point(point(2, 2), point(3, 3), point(0, 2)));
  assert_equal(point(0.5, 0.5), closest_point(point(2, 2), point(3, 3), point(0, 1)));
  assert_equal(point(0, 0), closest_point(point(2, 2), point(3, 3), point(0, 0)));
  assert_equal(point(2, 2), closest_point(point(2, 2), point(3, 3), point(2, 2)));
  assert_equal(point(1, 1), closest_point(point(2, 2), point(3, 3), point(1, 1)));
  assert_equal(point(3, 3), closest_point(point(2, 2), point(3, 3), point(3, 3)));
  assert_equal(point(2.5, 2.5), closest_point(point(2, 2), point(3, 3), point(2.5, 2.5)));

  assert_equal(point(2.5, 2.5), closest_point(point(2, 2), point(3, 3), point(2.5, 2.5), true));
  assert_equal(point(2, 2), closest_point(point(2, 2), point(3, 3), point(2, 2), true));
  assert_equal(point(3, 3), closest_point(point(2, 2), point(3, 3), point(3, 3), true));
  assert_equal(point(2, 2), closest_point(point(2, 2), point(3, 3), point(1, 1), true));
  assert_equal(point(3, 3), closest_point(point(2, 2), point(3, 3), point(4, 4), true));
  assert_equal(point(3, 3), closest_point(point(2, 2), point(3, 3), point(50, 100), true));
  assert_equal(point(3, 3), closest_point(point(2, 2), point(3, 3), point(100, 50), true));
  assert_equal(point(2, 2), closest_point(point(2, 2), point(3, 3), point(-50, -100), true));
  assert_equal(point(2, 2), closest_point(point(2, 2), point(3, 3), point(-100, -50), true));

}
// vim: cc=60 ts=2 sts=2 sw=2: