dotSCAD/test/test_sphere_spiral_extrude.scad

use <unittest.scad>;
include <sphere_spiral_extrude.scad>;

module test_sphere_spiral_extrude(sections) {
    expected =  [[[0, -8.23276, -39.1947], [0, -6.79756, -38.9674], [0, -6.57025, -37.5322], [0, -5.91056, -38.8269], [0, -4.47537, -38.5996], [0, -5.50285, -39.627], [0, -4.84316, -40.9217], [0, -6.13787, -40.2621], [0, -7.16536, -41.2895], [0, -6.93805, -39.8544]], [[0.29253, -8.37695, -39.1637], [0.242096, -6.93273, -38.9399], [0.233937, -6.69908, -37.4964], [0.210927, -6.04016, -38.8017], [0.160494, -4.59594, -38.578], [0.196706, -5.63292, -39.6084], [0.173696, -4.974, -40.9136], [0.219086, -6.27381, -40.2452], [0.255298, -7.31079, -41.2756], [0.247139, -7.07714, -39.8321]], [[0.595109, -8.51046, -39.1321], [0.493614, -7.05901, -38.912], [0.476849, -6.81925, -37.4603], [0.430887, -6.16197, -38.776], [0.329392, -4.71052, -38.556], [0.40248, -5.75574, -39.5892], [0.356518, -5.09845, -40.905], [0.447652, -6.40172, -40.2278], [0.520741, -7.44694, -41.2611], [0.503976, -7.20719, -39.8093]], [[0.907339, -8.63275, -39.1], [0.754217, -7.1759, -38.8836], [0.728405, -6.93031, -37.4236], [0.659583, -6.27551, -38.7499], [0.506462, -4.81866, -38.5336], [0.617049, -5.87083, -39.5697], [0.548228, -5.21604, -40.896], [0.685396, -6.52111, -40.21], [0.795983, -7.57328, -41.246], [0.770171, -7.32768, -39.786]], [[1.22879, -8.74332, -39.0673], [1.02355, -7.28292, -38.8547], [0.988252, -7.03178, -37.3865], [0.896698, -6.38034, -38.7234], [0.691452, -4.91994, -38.5109], [0.840115, -5.97773, -39.5496], [0.748562, -5.32629, -40.8866], [0.931994, -6.63148, -40.1916], [1.08066, -7.68928, -41.2304], [1.04536, -7.43813, -39.7622]], [[1.55903, -8.84167, -39.034], [1.30122, -7.3796, -38.8253], [1.25602, -7.12322, -37.3489], [1.14189, -6.47599, -38.6964], [0.88409, -5.01392, -38.4877], [1.07136, -6.07599, -39.5292], [0.957236, -5.42876, -40.8767], [1.1871, -6.73238, -40.1728], [1.37437, -7.79444, -41.2143], [1.32916, -7.53806, -39.7378]], [[1.89756, -8.92733, -39.0002], [1.58684, -7.4655, -38.7954], [1.5313, -7.20421, -37.3108], [1.3948, -6.56204, -38.6689], [1.08408, -5.10021, -38.4642], [1.31044, -6.16516, -39.5083], [1.17395, -5.52298, -40.8663], [1.45034, -6.82333, -40.1535], [1.6767, -7.88827, -41.1976], [1.62117, -7.62698, -39.713]], [[2.24391, -8.99982, -38.9658], [1.87998, -7.54017, -38.7651], [1.8137, -7.27434, -37.2723], [1.65505, -6.63806, -38.641], [1.29112, -5.17841, -38.4403], [1.55701, -6.24481, -39.4869], [1.39836, -5.60853, -40.8556], [1.72133, -6.90389, -40.1337], [1.98722, -7.97029, -41.1803], [1.92094, -7.70446, -39.6876]], [[2.59755, -9.05872, -38.9308], [2.18018, -7.6032, -38.7342], [2.10276, -7.33321, -37.2333], [1.92224, -6.70364, -38.6126], [1.50487, -5.24812, -38.416], [1.81067, -6.31454, -39.4651], [1.63014, -5.68498, -40.8444], [1.99966, -6.97363, -40.1135], [2.30545, -8.04006, -41.1626], [2.22803, -7.77006, -39.6617]], [[2.95794, -9.1036, -38.8953], [2.48699, -7.65418, -38.7028], [2.39805, -7.38043, -37.1939], [2.19594, -6.75839, -38.5838], [1.72499, -5.30898, -38.3913], [2.07102, -6.37395, -39.4428], [1.86891, -5.75192, -40.8327], [2.28488, -7.03215, -40.0927], [2.63091, -8.09712, -41.1443], [2.54197, -7.82337, -39.6353]], [[3.32453, -9.13406, -38.8592], [2.79993, -7.69274, -38.6709], [2.69908, -7.41565, -37.154], [2.47571, -6.80195, -38.5545], [1.95111, -5.36062, -38.3662], [2.33766, -6.42266, -39.4201], [2.11429, -5.80895, -40.8207], [2.57656, -7.07903, -40.0715], [2.96311, -8.14107, -41.1254], [2.86226, -7.86398, -39.6084]], [[3.69673, -9.14973, -38.8226], [3.11848, -7.7185, -38.6385], [3.00536, -7.43854, -37.1136], [2.7611, -6.83395, -38.5248], [2.18284, -5.40272, -38.3407], [2.61013, -6.4603, -39.397], [2.36586, -5.85571, -40.8082], [2.87421, -7.11391, -40.0497], [3.3015, -8.17149, -41.106], [3.18838, -7.89153, -39.581]], [[4.07396, -9.15026, -38.7854], [3.44212, -7.73113, -38.6057], [3.3164, -7.44876, -37.0727], [3.05162, -6.85406, -38.4946], [2.41979, -5.43493, -38.3149], [2.88798, -6.48652, -39.3733], [2.62321, -5.89182, -40.7952], [3.17735, -7.13643, -40.0275], [3.64554, -8.18802, -41.086], [3.51982, -7.90565, -39.5531]], [[4.45559, -9.13532, -38.7477], [3.77032, -7.73031, -38.5723], [3.63167, -7.44602, -37.


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

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

    function shape_pentagram(r) = 
        [
            [0, 1], [-0.224514, 0.309017], 
            [-0.951057, 0.309017], [-0.363271, -0.118034], 
            [-0.587785, -0.809017], [0, -0.381966], 
            [0.587785, -0.809017], [0.363271, -0.118034], 
            [0.951057, 0.309017], [0.224514, 0.309017]
        ] * r;

    points_triangles = shape_pentagram(2);

    sphere_spiral_extrude(
        shape_pts = points_triangles,
        radius = 40, 
        za_step = 2, 
        z_circles = 20, 
        begin_angle = 90, 
        end_angle = 450,
        vt_dir = "SPI_UP",
        scale = 5
    );

}

test_sphere_spiral_extrude_star();