sphere((0,0,0),r)[br]N=(0,0,r)[br]S=(0,0,-r)[br]A=(r,0,0)[br]circle((0,0,0),r,vector((0,0,1)))[br]circle((0,0,r*sin(23.5°)),r*cos(23.5°),vector((0,0,1)))[br]circle((0,0,r*sin(-23.5°)),r*cos(23.5°),vector((0,0,1)))[br]circle((0,0,r*sin(66.5°)),r*cos(66.5°),vector((0,0,1)))[br]circle((0,0,r*sin(-66.5°)),r*cos(66.5°),vector((0,0,1)))[br][br]circumcircularArc(N,(r*cos(i*15°),r*sin(i*15°),0),S)[br]Sequence(circumcircularArc(N,(r*cos(i*15°),r*sin(i*15°),0),S),i,1,24)[br][br]circle((0,0,r*sin(i*15°)),r*cos(i*15°),vector((0,0,1)))[br]Sequence(circle((0,0,r*sin(i*15°)),r*cos(i*15°),vector((0,0,1))),i,-5,5)[br][br]surface(r*cos(t)*cos(s),r*cos(t)*sin(s),r*sin(t),s,-180°,180°,t,-23.5°,23.5°)[br]surface(r*cos(t)*cos(s),r*cos(t)*sin(s),r*sin(t),s,-180°,180°,t,23.5°,66.5°)[br]surface(r*cos(t)*cos(s),r*cos(t)*sin(s),r*sin(t),s,-180°,180°,t,66.5°,90°)