I am trying to generate mesh on spherical surface.
I do not have an idea t generate icosahedron and
devide each surface into smaller triagnes.
Any comment are welcom. Please give me some idea.
Finally I could do what I wanted.
reset
{p=(1+sqrt(5))/2}
{n=8}
create sphere radius {sqrt(p+2)}
create vertex location 0, 1, {p}
create vertex location 0,-1, {p}
create vertex location {p}, 0, 1
create vertex location 1, {p}, 0
create vertex location -1, {p}, 0
create vertex location -{p}, 0, 1
create vertex location -1,-{p}, 0
create vertex location 1,-{p}, 0
create vertex location {p}, 0,-1
create vertex location 0, 1,-{p}
create vertex location -{p}, 0,-1
create vertex location 0,-1,-{p}
create vertex location 0, 0, 0
create curve arc center vertex 13 1 2
create curve arc center vertex 13 1 3
create curve arc center vertex 13 1 4
create curve arc center vertex 13 1 5
create curve arc center vertex 13 1 6
create curve arc center vertex 13 2 3
create curve arc center vertex 13 3 4
create curve arc center vertex 13 4 5
create curve arc center vertex 13 5 6
create curve arc center vertex 13 6 2
create curve arc center vertex 13 2 7
create curve arc center vertex 13 3 8
create curve arc center vertex 13 4 9
create curve arc center vertex 13 5 10
create curve arc center vertex 13 6 11
create curve arc center vertex 13 8 2
create curve arc center vertex 13 9 3
create curve arc center vertex 13 10 4
create curve arc center vertex 13 11 5
create curve arc center vertex 13 7 6
create curve arc center vertex 13 7 8
create curve arc center vertex 13 8 9
create curve arc center vertex 13 9 10
create curve arc center vertex 13 10 11
create curve arc center vertex 13 11 7
create curve arc center vertex 13 12 7
create curve arc center vertex 13 12 8
create curve arc center vertex 13 12 9
create curve arc center vertex 13 12 10
create curve arc center vertex 13 12 11
imprint volume all with curve all
imprint merge all
merge vertex all force
surface all interval {n}
Surface all scheme triadvance
mesh surf all