Regressions fixes.

This commit is contained in:
Garth Minette
2022-04-06 20:13:39 -07:00
parent d9691b3b4a
commit 05aee1bf7b
4 changed files with 17 additions and 17 deletions

View File

@@ -424,15 +424,15 @@ module test_line_closest_point() {
module test_circle_2tangents() {
//** missing tests with arg tangent=true
assert(approx(circle_2tangents(r=10/sqrt(2),[10,10],[0,0],[10,-10])[0], [10,0]));
assert(approx(circle_2tangents(r=10/sqrt(2),[-10,10],[0,0],[-10,-10])[0], [-10,0]));
assert(approx(circle_2tangents(r=10/sqrt(2),[-10,10],[0,0],[10,10])[0], [0,10]));
assert(approx(circle_2tangents(r=10/sqrt(2),[-10,-10],[0,0],[10,-10])[0], [0,-10]));
assert(approx(circle_2tangents(r=10,[0,10],[0,0],[10,0])[0], [10,10]));
assert(approx(circle_2tangents(r=10,[10,0],[0,0],[0,-10])[0], [10,-10]));
assert(approx(circle_2tangents(r=10,[0,-10],[0,0],[-10,0])[0], [-10,-10]));
assert(approx(circle_2tangents(r=10,[-10,0],[0,0],[0,10])[0], [-10,10]));
assert_approx(circle_2tangents(r=10,polar_to_xy(10,60),[0,0],[10,0])[0], polar_to_xy(20,30));
assert(approx(circle_2tangents(10/sqrt(2),[10,10],[0,0],[10,-10])[0], [10,0]));
assert(approx(circle_2tangents(10/sqrt(2),[-10,10],[0,0],[-10,-10])[0], [-10,0]));
assert(approx(circle_2tangents(10/sqrt(2),[-10,10],[0,0],[10,10])[0], [0,10]));
assert(approx(circle_2tangents(10/sqrt(2),[-10,-10],[0,0],[10,-10])[0], [0,-10]));
assert(approx(circle_2tangents(10,[0,10],[0,0],[10,0])[0], [10,10]));
assert(approx(circle_2tangents(10,[10,0],[0,0],[0,-10])[0], [10,-10]));
assert(approx(circle_2tangents(10,[0,-10],[0,0],[-10,0])[0], [-10,-10]));
assert(approx(circle_2tangents(10,[-10,0],[0,0],[0,10])[0], [-10,10]));
assert_approx(circle_2tangents(10,polar_to_xy(10,60),[0,0],[10,0])[0], polar_to_xy(20,30));
}
*test_circle_2tangents();