3 May 2022 1:21:33.093 PM triangle_test(): FORTRAN90 version: Test triangle(). triangle_angles_test(): triangle_angles() computes the angles in a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 Radians Degrees 0.785398 45.0000 1.57080 90.0000 0.785398 45.0000 TRIANGLE_AREA_TEST TRIANGLE_AREA computes the area of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 Triangle area is 0.500000 TRIANGLE_CENTROID_TEST TRIANGLE_CENTROID computes the centroid of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.00000 1.00000 Centroid: 1 0.33333333 2 0.33333333 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 0.866025 Centroid: 1 0.50000000 2 0.28867513 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 10.0000 Centroid: 1 0.50000000 2 3.3333333 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 10.0000 2.00000 Centroid: 1 3.6666667 2 0.66666667 TRIANGLE_CIRCUMCIRCLE_TEST TRIANGLE_CIRCUMCIRCLE computes the circumcircle of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.00000 1.00000 Circumcenter 1 0.50000000 2 0.50000000 Circumradius: 0.707107 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 0.866025 Circumcenter 1 0.50000000 2 0.28867513 Circumradius: 0.577350 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 10.0000 Circumcenter 1 0.50000000 2 4.9875000 Circumradius: 5.01250 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 10.0000 2.00000 Circumcenter 1 0.50000000 2 23.500000 Circumradius: 23.5053 TRIANGLE_CONTAINS_POINT_TEST TRIANGLE_CONTAINS_POINT reports if a point is inside a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 X Y Inside 0.250 0.250 T 0.750 0.250 T 1.000 1.000 F 11.000 0.500 F 0.000 1.000 T 0.500 -10.000 F 0.600 0.600 F Repeat the test, but reverse the triangle vertex ordering. Triangle vertices (reversed): Row 1 2 Col 1 1.00000 0.00000 2 0.00000 0.00000 3 0.00000 1.00000 X Y Inside 0.250 0.250 F 0.750 0.250 F 1.000 1.000 F 11.000 0.500 F 0.000 1.000 F 0.500 -10.000 F 0.600 0.600 F TRIANGLE_DIAMETER_TEST TRIANGLE_DIAMETER computes the diameter of the SMALLEST circle around the triangle. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 Diameter = 6.00000 Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 5.00000 4.00000 3 6.00000 6.00000 Diameter = 6.00000 Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 4.00000 2.00000 Diameter = 0.00000 TRIANGLE_EDGE_LENGTH_TEST TRIANGLE_EDGE_LENGTH computes the edge lengths of a triangle. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 Edge lengths: 1 4.2426407 2 4.2426407 3 6.0000000 Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 5.00000 4.00000 3 6.00000 6.00000 Edge lengths: 1 2.2360680 2 2.2360680 3 4.4721360 Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 4.00000 2.00000 Edge lengths: 1 4.2426407 2 4.2426407 3 0.0000000 TRIANGLE_INCIRCLE_TEST TRIANGLE_INCIRCLE_2D computes the incircle of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 Incenter 1 0.29289322 2 0.29289322 Incircle radius is 0.292893 TRIANGLE_ORIENTATION_TEST TRIANGLE_ORIENTATION determines the orientation of a triangle. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 The points are counterclockwise. Triangle vertices: Row 1 2 Col 1 1.00000 5.00000 2 4.00000 2.00000 3 1.00000 -1.00000 The points are clockwise. Triangle vertices: Row 1 2 Col 1 1.00000 5.00000 2 2.00000 7.00000 3 3.00000 9.00000 The points are colinear. Triangle vertices: Row 1 2 Col 1 1.00000 5.00000 2 4.00000 2.00000 3 1.00000 5.00000 The points are not distinct. TRIANGLE_ORTHOCENTER_TEST TRIANGLE_ORTHOCENTER_2D computes the orthocenter of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.00000 1.00000 Orthocenter 1 0.0000000 2 0.0000000 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 0.866025 Orthocenter 1 0.50000000 2 0.28867514 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 10.0000 Orthocenter 1 0.50000000 2 0.25000000E-01 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 10.0000 2.00000 Orthocenter 1 10.000000 2 -45.000000 TRIANGLE_POINT_DIST_TEST TRIANGLE_POINT_DIST computes the distance from a point to a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 P DIST 0.250 0.250 0.250 0.750 0.250 0.000 1.000 1.000 0.707 11.000 0.500 10.012 0.000 1.000 0.000 0.500 -10.000 10.000 0.600 0.600 0.141 TRIANGLE_POINT_NEAR_TEST TRIANGLE_POINT_NEAR computes the nearest point on a triangle to a given point. Triangle vertices: Row 1 2 Col 1 0.00000 1.00000 2 0.00000 0.00000 3 1.00000 0.00000 P PN 0.250 0.250 0.000 0.250 0.750 0.250 0.750 0.250 1.000 1.000 0.500 0.500 11.000 0.500 1.000 0.000 0.000 1.000 0.000 1.000 0.500 -10.000 0.500 0.000 0.600 0.600 0.500 0.500 TRIANGLE_QUALITY_TEST TRIANGLE_QUALITY computes the quality of a triangle. Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.00000 1.00000 Quality = 0.828427 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 0.866025 Quality = 1.00000 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 0.500000 10.0000 Quality = 0.189775 Triangle vertices: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 10.0000 2.00000 Quality = 0.833469E-02 TRIANGLE_REFERENCE_SAMPLE_TEST TRIANGLE_REFERENCE_SAMPLE samples the reference triangle. Sample points (X,Y) and (XSI1,XSI2,XSI3) coordinates: 0.2311 0.2286 0.5402 0.2311 0.2286 0.3435 0.0094 0.6471 0.3435 0.0094 0.4592 0.1728 0.3680 0.4592 0.1728 0.8604 0.1110 0.0285 0.8604 0.1110 0.0648 0.5693 0.3659 0.0648 0.5693 0.5276 0.0695 0.4029 0.5276 0.0695 0.3024 0.2258 0.4717 0.3024 0.2258 0.5121 0.3727 0.1152 0.5121 0.3727 0.2380 0.2029 0.5591 0.2380 0.2029 0.0400 0.7925 0.1675 0.0400 0.7925 TRIANGLE_SAMPLE_TEST TRIANGLE_SAMPLE samples points from a triangle. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 Sample points (X,Y) and (XSI1,XSI2,XSI3) coordinates: -0.6001 2.0886 0.2185 0.0295 0.7519 2.6405 3.3542 0.5477 0.4514 0.0009 2.5842 3.2523 0.5553 0.4174 0.0273 -0.4849 3.2172 0.0496 0.4057 0.5446 -1.0638 2.8578 0.0131 0.2859 0.7010 0.5562 3.4357 0.1867 0.4786 0.3347 -0.0332 2.4315 0.2559 0.1438 0.6003 0.8572 2.7801 0.3462 0.2600 0.3938 2.0538 2.9474 0.5177 0.3158 0.1665 1.9316 4.0225 0.3182 0.6742 0.0077 TRIANGLE_XSI_TO_XY_TEST TRIANGLE_XSI_TO_XY converts XSI to XY coordinates. We verify that (X,Y) -> (XSI1,XSI2,XSI3) -> (X,Y) works properly. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 Sample points: 1.0000 3.0000 0.3333 0.3333 0.3333 1.0000 3.0000 3.0000 0.0000 1.1667 -0.6667 0.5000 3.0000 0.0000 -1.0049 2.2779 0.1195 0.0926 0.7878 -1.0049 2.2779 0.1684 3.7441 0.0707 0.5814 0.3479 0.1684 3.7441 0.6775 3.0359 0.2736 0.3453 0.3811 0.6775 3.0359 1.1663 2.3115 0.4758 0.1038 0.4204 1.1663 2.3115 2.7474 2.5394 0.7013 0.1798 0.1189 2.7474 2.5394 -1.2442 2.3394 0.0694 0.1131 0.8175 -1.2442 2.3394 3.1952 2.7385 0.7428 0.2462 0.0111 3.1952 2.7385 1.0489 4.4312 0.1030 0.8104 0.0866 1.0489 4.4312 TRIANGLE_XY_TO_XSI_TEST TRIANGLE_XY_TO_XSI converts XY to XSI coordinates. We verify that (X,Y) -> (XSI1,XSI2,XSI3) -> (X,Y) works properly. Triangle vertices: Row 1 2 Col 1 4.00000 2.00000 2 1.00000 5.00000 3 -2.00000 2.00000 Sample points: 1.0000 3.0000 0.3333 0.3333 0.3333 1.0000 3.0000 3.0000 0.0000 1.1667 -0.6667 0.5000 3.0000 0.0000 -0.9898 2.3254 0.1141 0.1085 0.7774 -0.9898 2.3254 2.3347 2.6412 0.6156 0.2137 0.1707 2.3347 2.6412 1.4032 3.7936 0.2683 0.5979 0.1339 1.4032 3.7936 -0.0355 2.9398 0.1708 0.3133 0.5160 -0.0355 2.9398 0.1812 3.9253 0.0427 0.6418 0.3156 0.1812 3.9253 1.7017 2.0347 0.6112 0.0116 0.3773 1.7017 2.0347 0.0639 2.6361 0.2380 0.2120 0.5500 0.0639 2.6361 -0.2845 3.6280 0.0146 0.5427 0.4428 -0.2845 3.6280 triangle_test(): Normal end of execution. 3 May 2022 1:21:33.094 PM