Проблемы с записью видео

axis off;
 
 p1=[4 5 9]; p2=[4 2 8]; p3=[4 1 5]; p4=[4 2 2]; p5=[4 5 1]; p6=[4 8 2]; p7=[4 9 5]; p8=[4 8 8]; p9=[5 5 5];
p10=[3 5 9]; p11=[3 2 8]; p12=[3 1 5]; p13=[3 2 2]; p14=[3 5 1]; p15=[3 8 2]; p16=[3 9 5]; p17=[3 8 8]; p18=[2 5 5]; 
 p19=[4 5 9]; p20=[3 5 9]; p21=[4 2 8];p22=[3 2 8]; p23=[4 1 5]; p24=[3 1 5]; p25=[4 2 2];
p26=[3 2 2]; p27=[4 5 1]; p28=[3 5 1];p29=[4 8 2];p30=[3 8 2]; p31=[4 9 5]; p32=[3 8 5]; p33=[4 8 8];p34=[3 8 8];
p35=[4 5 9];p36=[3 5 9];
p=[p1;p2;p3;p4;p5;p6;p7;p8;p9;p10;p11;p12;p13;p14;p15;p16;p17;p18;p19;p20;p21;p22;p23;p24;p25;p26;p27;p28;p29;p30;p31;p32;
    p33;p34;p35;p36];
g = [1 2 9; 2 3 9; 3 4 9;4 5 9;5 6 9; 6 7 9; 7 8 9; 8 1 9;10 17 18; 17 16 18; 15 14 18;14 13 18;13 12 18;12 11 18;11 10 18;
    16 15 18;1 17 10;1 8 17;8 16 17;8 7 16;7 15 16;7 6 15;6 5 14;6 14 15;5 4 13; 5 13 14;4 3 12;13 4 12;12 3 11;11 3 2;
    2 10 11; 2 1 10;20 19 34;34 32 33;34 33 32;33 31 32;32 31 30;31 29 30;29 27 28;29 28 30;27 25 26;27 26 28;25 24 26;
    25 23 24;23 21 24;24 21 22;21 19 20;20 22 21;35 33 34;35 34 36];
uv1=[98 121];uv2=[76 99];uv3=[77 68];uv4=[97 47];uv5=[127 47];uv6=[149 68];uv7=[148 99];uv8=[126 121];uv9=[112 83];
uv10=[98 140];uv11=[76 162];uv12=[76 191];uv13=[98 212];uv14=[127 212];uv15=[149 192];uv16=[148 162];uv17=[126 140];
uv18=[112 176];uv19=[255 0];uv20=[255 19];uv21=[226 0];uv22=[226 19]; uv23=[197 0];uv24=[197 19];uv25=[167 0];
uv26=[167 19];uv27=[135 0];uv28=[135 19];uv29=[107 0];uv30=[107 19];uv31=[77 0];uv32=[77 19];uv33=[47 0];uv34=[47 19];
uv35=[0 17];uv36=[19 17];
uv=[uv1;uv2;uv3;uv4;uv5;uv6;uv7;uv8;uv9;uv10;uv11;uv12;uv13;uv14;uv15;uv16;uv17;uv18;uv19;uv20;uv21;uv22;uv23;uv24;uv25;
    uv26;uv27;uv28;uv29;uv30;uv31;uv32;uv33;uv34;uv35;uv36];
im=uint8(zeros(256,256,3));
texture=imread('1.bmp');
cam=[0,0,0];
sun=[-100,0,-500];
foc=-1;
proj=[1,0,0,0;0,1,0,0;0,0,1,foc;0,0,0,0];
dz=30;
Tz=[1,0,0,0;0,1,0,0;0,0,1,0;0,0,dz,1];
k=0;
t=0;
trilist=cell(size(g,1),1);
 
for n= 0:1
    phix=n*(pi/360);
    phiy=n*(pi/360);
    phiz=n*(pi/360);
    Rx=[1,0,0,0;0,cos(phix),sin(phix),0;0,-sin(phix),cos(phix),0;0,0,0,1];
    Ry=[cos(phiy),0,-sin(phiy),0;0,1,0,0;sin(phiy),0,cos(phiy),0;0,0,0,1];
    Rz=[cos(phiz),sin(phiz),0,0;-sin(phiz),cos(phiz),0,0;0,0,1,0;0,0,0,1];
    cla;
    hold on;
    for i=1:size(g,1) 
       i=i
        face=[p(g(i,1),:),1;
              p(g(i,2),:),1;
              p(g(i,3),:),1];
        
        face=face*Rx*Ry*Rz*Tz;
        N=cross(face(2,1:3)-face(1,1:3),face(3,1:3)-face(1,1:3));
        W=sun-face(1,1:3);        
        light=dot(N,W)/(modul(N)*modul(W));
        if light<0.1
            light=0.1;
        end;
        face=face*proj;
        face=[face(1,1:3)./face(1,4),1;
              face(2,1:3)./face(2,4),1;             
              face(3,1:3)./face(3,4),1;
              face(1,1:3)./face(1,4),1];
        if det([face(2,1:3)-face(1,1:3);face(3,1:3)-face(1,1:3);cam-face(1,1:3)])<0
            t=t+1;
            trilist{t}=face(:,1:2);
            facevis=[trilist{t}(1,:),1; trilist{t}(2,:),1;trilist{t}(3, :),1];
            r=facevis^(-1)*[uv(g(i,1),:),1;uv(g(i,2),:),1;uv(g(i,3),:),1];
            for y=0:255
                for x=0:255   
                    x2=x/256-0.5;
                    y2=0.5-y/256;
                    if (ray_test(trilist{t},[x2,y2])==1)
                        puv=[x2,y2,1]*r;
                        puv=round(puv);
                        if puv(1,1)>0 && puv(1,1)<256 && puv(1,2)>0 && puv(1,2)<256
                            im(x,y,:)=texture(puv(1,1),puv(1,2),:)*light;
                        end;
                    end;
                end;
            end;
        end;
    end;
    drawnow;
    imshow(im);
end;