hedgewars/uVideoRec.pas
changeset 10306 4fca8bcfaff0
parent 10108 c68cf030eded
child 10309 e338ccbbe100
equal deleted inserted replaced
10305:17f3ca06e39a 10306:4fca8bcfaff0
   115         , PChar(ansistring(soundFilePath))
   115         , PChar(ansistring(soundFilePath))
   116         , PChar(ansistring(cAVFormat))
   116         , PChar(ansistring(cAVFormat))
   117         , PChar(ansistring(cVideoCodec))
   117         , PChar(ansistring(cVideoCodec))
   118         , PChar(ansistring(cAudioCodec))
   118         , PChar(ansistring(cAudioCodec))
   119         , cScreenWidth, cScreenHeight, cVideoFramerateNum, cVideoFramerateDen, cVideoQuality) < 0 then
   119         , cScreenWidth, cScreenHeight, cVideoFramerateNum, cVideoFramerateDen, cVideoQuality) < 0 then
   120         halt(-1);
   120         halt(HaltFatalError);
   121 
   121 
   122     numPixels:= cScreenWidth*cScreenHeight;
   122     numPixels:= cScreenWidth*cScreenHeight;
   123     YCbCr_Planes[0]:= GetMem(numPixels);
   123     YCbCr_Planes[0]:= GetMem(numPixels);
   124     YCbCr_Planes[1]:= GetMem(numPixels div 4);
   124     YCbCr_Planes[1]:= GetMem(numPixels div 4);
   125     YCbCr_Planes[2]:= GetMem(numPixels div 4);
   125     YCbCr_Planes[2]:= GetMem(numPixels div 4);