Animated texture on a sphere
Posted: Tue Oct 13, 2015 12:52 pm
Do you have a built-in (or examples) way to map an animated texture ( such as avi or array of images) onto a 3D surface (such as a sphere) instead of a static one obtained by a code like:
An application could be the evolution of clouds over the word with synchonized audio comments.
This avi would have to evoluate with time (of course!) but also to be complient with the rotation of the shere in order to be able to see all the directions.
Code: Select all
if TeeOpenGL_02.Active then With Chart_Sphere.Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := RGB(40, 250, 120);
if CheckBox4.Checked then
Pen.Style := psSolid
else
Pen.Style := psClear;
Pen.Color := clBlack;
if CheckBox3.Checked then
Brush.Bitmap := MyBitmap_Terre1;
Sphere(Chart_Sphere.ChartXCenter ,Chart_Sphere.ChartYCenter, 0 , 50);
Brush.Bitmap := nil;
end;
This avi would have to evoluate with time (of course!) but also to be complient with the rotation of the shere in order to be able to see all the directions.