Advanced Search
All Posts :
This is what I have so far, I would prefer that the globe be animated with the animate code, also if there is a way to tilt the globe slightly. I also want to be able to have the moon and sun go around the globe as it is rising and falling. While the Sphere is rotating. I want to try and do this with animate or rotate commands Packages: with(plots):with(plottools): Globe: sphere: globe:=sphere([0, 0, 0], 1/3): display(globe,scaling=constrained,style=patch,axes=none): animation: globe := sphere([0,0,0], 1/3): n := 80: plt[0] := globe: for i to n-1 do plt[i] := rotate(plt[i-1],0,0,1/n*2*Pi/24); end do: display([seq(plt[i], i=0..n-1)], insequence=true, style=patch, scaling=constrained, axes=none): Sun: sun:=sphere([1,1,1],1/8,color=yellow,scaling=constrained,axes=none,style=patchnogrid): display(sun): Moon: moon:=sphere([-1,-1,-1],1/8,color=navy,scaling=constrained,style=patchnogrid): display(moon): Combined: Sun, Moon, Globe Together display({globe,sun,moon}): >
plot

Please Wait...