[Scilab-users] How can I make a movie that shows how the sphere rotates around the z-axis?

[Heinz Nabielek]

Thanks. The rotating graphics works well, but on my Mac with Scilab 6.1,  already the first line "scicv_Init()" bumps...
What to do?
Heinz



> On 02.07.2021, at 10:50, P M <p.muehlmann at gmail.com> wrote:
> 
> .... the rotation can be realised by changing   "rotation_angles"  in a for loop
> 
> .. creating the movie...maybe use scicv?
> 
> in a for loop
> - set rotation angle
> - display the graph
> - save the actual graph as an image
> - reload the image
> - add image to frame
> 
> 
> see code below:
> Only draw back here:   the avi-file could not be played afterwards..and had only 6kB in size.
> 
> I guess, this is because ffmpeg is missing on my PC, but I am pretty sure that some scicv expert could solve this issue.
> 
> BR
> Philipp
> 
> scicv_Init();
> 
> 
> 
> R=23;
> N=14500;
>  
> 
> r=grand(N,1,'unf',0,R);
> phi=grand(N,1,'unf',0,2*%pi);
> theta=grand(N,1,'unf',0,%pi);
> x=r.*cos(phi).*sin(theta);
> y=r.*sin(phi).*sin(theta);
> z=r.*cos(theta);
> 
> 
> 
> f = figure();
> f.background = 8;
> scatter3d(x,y,z,msizes=4);
> a = gca();
> 
> 
> 
> // create the avi file
> videoWriter = new_VideoWriter("F:\testAvi.avi", CV_FOURCC('M', 'P', '4', '2'), 25, [400, 400]);
> 
> 
> 
> for i = 0:360
> 
>     
> a.rotation_angles = [60, i];
> 
>     
>     
> // save the graph as image
> 
>     
> xs2png(f.figure_id, 'F:\testImg.bmp');
> 
>     
>     
> // read image    
> 
>     
> img = imread('F:\testImg.png', CV_LOAD_IMAGE_GRAYSCALE);
> 
> 
>     
> // add image as frame to avi
> 
>     
> VideoWriter_write(videoWriter, img);
> 
> 
> 
> end
> 
> 
> 
> // free avi from memory
> delete_VideoWriter(videoWriter);
> 
> 
> 
> 
> 
> Am Fr., 2. Juli 2021 um 00:22 Uhr schrieb Heinz Nabielek <heinznabielek at me.com>:
> Colleagues:
> 
> the code below generates 14,500 random points in a spherical volume.
> How can I make a movie that shows how the sphere rotates around the z-axis? And how do I store the animation? animaGIF does not exist on my Scilab 6.1 in my macOS 10.15.7
> 
> Heinz
> 
> 
> R=23;
> N=14500;
> r=grand(N,1,'unf',0,R);
> phi=grand(N,1,'unf',0,2*%pi);
> theta=grand(N,1,'unf',0,%pi);
> x=r.*cos(phi).*sin(theta);
> y=r.*sin(phi).*sin(theta);
> z=r.*cos(theta);
> scatter3d(x,y,z,msizes=4);
> gca().rotation_angles = [60, 60];
> 
> 
> ______________
> Dr Heinz Nabielek
> Schüttelstrasse 77A/11
> A-1020 Wien, Österreich
> Tel +43 1 276 56 13
> cell +43 677 616 349 22
> heinznabielek at me.com
> _______________________________________________
> users mailing list
> users at lists.scilab.org
> http://lists.scilab.org/mailman/listinfo/users
> _______________________________________________
> users mailing list
> users at lists.scilab.org
> http://lists.scilab.org/mailman/listinfo/users