Mein MATLAB Forum

pic_x = 1280;
pic_y = 720;


//http://help.scilab.org/docs/5.3.3/en_US/plot3d.html

// plot of a sphere using facets computed by eval3dp
deff("[x,y,z]=sph(alp,tet)",["x=r*cos(alp).*cos(tet)+orig(1)*ones(tet)";..
     "y=r*cos(alp).*sin(tet)+orig(2)*ones(tet)";..
     "z=r*sin(alp)+orig(3)*ones(tet)"]);
r=0.8; orig=[0 0 0];
[xx,yy,zz]=eval3dp(sph,linspace(-%pi/2,%pi/2,40),linspace(0,%pi*2,20));
clf();
f=gcf();
f.color_map = hotcolormap(128);
f.figure_size= [pic_x,pic_y];
r=0.3;orig=[1 0 0];
[xx1,yy1,zz1]=eval3dp(sph,linspace(-%pi/2,%pi/2,40),linspace(0,%pi*2,20));

f=gcf();
f.color_map = hotcolormap(128);
f.figure_size= [pic_x,pic_y];
r=0.6;orig=[1.0 2 0];
[xx2,yy2,zz2]=eval3dp(sph,linspace(-%pi/2,%pi/2,40),linspace(0,%pi*2,20));

cc=(xx+zz+2)*32;
cc1=(xx1-orig(1)+zz1/r+10)*0;
cc2=(xx2-orig(1)+zz2/r+8)*0;
clf();
scf(0);
plot3d1([xx xx1 xx2],[yy yy1 yy2],list([zz,zz1,zz2],[cc cc1 cc2]),theta=70,alpha=80,flag=[5,6,3]);

//scf(0);
//plot2d();
//JPG export
xs2jpg(0,'C:\Users\admin\Desktop\fooa1.jpg');
//xs2jpg(gcf(),'C:\Users\admin\Desktop\foo.jpg');
//xs2jpg(0,'C:\Users\admin\Desktop\foo_0.jpg', 0); // poor quality
xs2jpg(gcf(),'C:\Users\admin\Desktop\foo_11.jpg', 1); // best quality
//xs2svg(gcf(),'C:\Users\admin\Desktop\foo_1.svg'); // svg