dotSCAD/test/test_cross_sections.scad

module test_cross_sections() {
    echo("==== test_cross_sections ====");

    include <unittest.scad>;
    include <polysections.scad>;
    include <cross_sections.scad>;
    include <archimedean_spiral.scad>;
    include <rotate_p.scad>;

    shape_pts = [
        [-2, -10],
        [-2, 10],
        [2, 10],
        [2, -10]
    ];

    pts_angles = archimedean_spiral(
        arm_distance = 20,
        init_angle = 180,
        point_distance = 5,
        num_of_points = 100 
    ); 

    pts = [for(pt_angle = pts_angles) pt_angle[0]];
    angles = [
        for(i = [0:len(pts_angles) - 1]) [90, 0, pts_angles[i][1]]
    ];  

    expected =  [[[-8, -8.98657e-6, -10], [-8, -8.98657e-6, 10], [-12, -0.0000134799, 10], [-12, -0.0000134799, -10]], [[-8.69941, -4.81325, -9.96698], [-8.14922, -4.50884, 9.84122], [-11.6156, -6.42677, 9.96698], [-12.1658, -6.73118, -9.84122]], [[-6.87799, -9.40726, -9.92296], [-6.14294, -8.4019, 9.67387], [-8.45619, -11.5658, 9.92296], [-9.19124, -12.5712, -9.67387]], [[-3.19172, -12.82, -9.86815], [-2.74495, -11.0255, 9.4983], [-3.6807, -14.784, 9.86815], [-4.12747, -16.5785, -9.4983]], [[1.59972, -14.5687, -9.80282], [1.33342, -12.1435, 9.31486], [1.75076, -15.9442, 9.80282], [2.01706, -18.3694, -9.31486]], [[6.77117, -14.5107, -9.72719], [5.49566, -11.7773, 9.12391], [7.08993, -15.1939, 9.72719], [8.36544, -17.9273, -9.12391]], [[11.6998, -12.74, -9.64155], [9.27924, -10.1042, 8.92583], [11.791, -12.8393, 9.64155], [14.2116, -15.4751, -8.92583]], [[15.8949, -9.50598, -9.54615], [12.354, -7.38833, 8.72099], [15.4894, -9.26352, 9.54615], [19.0303, -11.3812, -8.72099]], [[19.0056, -5.15104, -9.44129], [14.5101, -3.93264, 8.50976], [17.9753, -4.8718, 9.44129], [22.4708, -6.0902, -8.50976]], [[20.8154, -0.0609642, -9.32725], [15.6418, -0.0458117, 8.29253], [19.1657, -0.0561326, 9.32725], [24.3394, -0.0712851, -8.29253]], [[21.229, 5.37195, -9.20434], [15.7291, 3.9802, 8.06968], [19.0783, 4.82771, 9.20434], [24.5783, 6.21946, -8.06968]], [[20.2549, 10.7762, -9.07287], [14.8198, 7.88457, 7.8416], [17.8063, 9.47349, 9.07287], [23.2414, 12.3651, -7.8416]], [[17.9859, 15.8199, -8.93315], [13.0133, 11.4462, 7.60868], [15.4975, 13.6312, 8.93315], [20.47, 18.0049, -7.60868]], [[14.5804, 20.2235, -8.78551], [10.4452, 14.4878, 7.37132], [12.3349, 17.1089, 8.78551], [16.4701, 22.8447, -7.37132]], [[10.2433, 23.7661, -8.63027], [7.27401, 16.8769, 7.1299], [8.5216, 19.7715, 8.63027], [11.4909, 26.6607, -7.1299]], [[5.20923, 26.2883, -8.46779], [3.67076, 18.5244, 6.88482], [4.26761, 21.5364, 8.46779], [5.80607, 29.3003, -6.88482]], [[-0.272672, 27.6913, -8.29839], [-0.190853, 19.3821, 6.63649], [-0.220264, 22.369, 8.29839], [-0.302083, 30.6781, -6.63649]], [[-5.95173, 27.9333, -8.12244], [-4.14168, 19.4382, 6.38528], [-4.74634, 22.276, 8.12244], [-6.55639, 30.7712, -6.38528]], [[-11.5865, 27.0247, -7.94028], [-8.02297, 18.713, 6.13159], [-9.13197, 21.2996, 7.94028], [-12.6955, 29.6114, -6.13159]], [[-16.9536, 25.0212, -7.75228], [-11.6908, 17.254, 5.87583], [-13.2196, 19.5104, 7.75228], [-18.4825, 27.2776, -5.87583]], [[-21.8539, 22.0168, -7.55879], [-15.019, 15.131, 5.61836], [-16.8756, 17.0014, 7.55879], [-23.7105, 23.8873, -5.61836]], [[-26.1179, 18.1365, -7.36018], [-17.9017, 12.4311, 5.35959], [-19.9912, 13.8821, 7.36018], [-28.2075, 19.5875, -5.35959]], [[-29.6081, 13.5283, -7.15682], [-20.2537, 9.25418, 5.0999], [-22.4834, 10.2729, 7.15682], [-31.8378, 14.5471, -5.0999]], [[-32.2209, 8.35645, -6.94907], [-22.0116, 5.70868, 4.83966], [-24.2939, 6.30058, 6.94907], [-34.5032, 8.94835, -4.83966]], [[-33.8866, 2.79414, -6.73732], [-23.1328, 1.90742, 4.57925], [-25.3885, 2.09342, 6.73732], [-36.1423, 2.98013, -4.57925]], [[-34.5686, -2.98247, -6.52192], [-23.595, -2.0357, 4.31905], [-25.7552, -2.22208, 6.52192], [-36.7288, -3.16884, -4.31905]], [[-34.2615, -8.79991, -6.30327], [-23.395, -6.0089, 4.05942], [-25.4024, -6.52448, 6.30327], [-36.2689, -9.31549, -4.05942]], [[-32.9889, -14.4922, -6.08172], [-22.5471, -9.90508, 3.80073], [-24.3566, -10.7, 6.08172], [-34.7984, -15.2872, -3.80073]], [[-30.7998, -19.9051, -5.85765], [-21.0811, -13.6241, 3.54332], [-22.6602, -14.6447, 5.85765], [-32.3789, -20.9256, -3.54332]], [[-27.7658, -24.8989, -5.63143], [-19.0407, -17.0747, 3.28755], [-20.3687, -18.2656, 5.63143], [-29.0938, -26.0898, -3.28755]], [[-23.9771, -29.3517, -5.40343], [-16.4814, -20.1757, 3.03376], [-17.5489, -21.4826, 5.40343], [-25.0447, -30.6585, -3.03376]], [[-19.5391, -33.1605, -5.17403], [-13.4681, -22.8573, 2.78228], [-14.276, -24.2283, 5.17403], [-20.3469, -34.5314, -2.78228]], [[-14.568, -36.2428, -4.94357], [-10.0737, -25.0616, 2.53344], [-10.6314, -26.4491, 4.94357], [-15.1258, -37.6303, -2.53344]], [[-9.18817, -38

    sects = cross_sections(shape_pts, pts, angles, twist = 180, scale = 0.1);

    for(i = [0:len(expected) - 1]) {
        assertEqualPoints(expected[i], sects[i]);
    }
}

test_cross_sections();