git-svn-id: https://casparcg.svn.sourceforge.net/svnroot/casparcg/server/branches...

diff --git a/modules/ffmpeg/producer/util.cpp b/modules/ffmpeg/producer/util.cpp
new file mode 100644 (file)
index 0000000..e4e8aaf
--- /dev/null
+++ b/modules/ffmpeg/producer/util.cpp
@@ -0,0 +1,249 @@
+#include "../../stdafx.h"\r
+\r
+#include "util.h"\r
+\r
+#include <tbb/concurrent_unordered_map.h>\r
+#include <tbb/concurrent_queue.h>\r
+\r
+#include <core/producer/frame/pixel_format.h>\r
+#include <core/producer/frame/image_transform.h>\r
+#include <core/producer/frame/frame_factory.h>\r
+#include <core/producer/frame_producer.h>\r
+#include <core/mixer/write_frame.h>\r
+\r
+#include <common/memory/memcpy.h>\r
+\r
+#if defined(_MSC_VER)\r
+#pragma warning (push)\r
+#pragma warning (disable : 4244)\r
+#endif\r
+extern "C" \r
+{\r
+       #include <libswscale/swscale.h>\r
+       #include <libavcodec/avcodec.h>\r
+       #include <libavfilter/avfilter.h>\r
+}\r
+#if defined(_MSC_VER)\r
+#pragma warning (pop)\r
+#endif\r
+\r
+namespace caspar {\r
+\r
+core::video_mode::type get_mode(AVFrame& frame)\r
+{\r
+       if(!frame.interlaced_frame)\r
+               return core::video_mode::progressive;\r
+\r
+       return frame.top_field_first ? core::video_mode::upper : core::video_mode::lower;\r
+}\r
+\r
+core::pixel_format::type get_pixel_format(PixelFormat pix_fmt)\r
+{\r
+       switch(pix_fmt)\r
+       {\r
+       case PIX_FMT_GRAY8:             return core::pixel_format::gray;\r
+       case PIX_FMT_BGRA:              return core::pixel_format::bgra;\r
+       case PIX_FMT_ARGB:              return core::pixel_format::argb;\r
+       case PIX_FMT_RGBA:              return core::pixel_format::rgba;\r
+       case PIX_FMT_ABGR:              return core::pixel_format::abgr;\r
+       case PIX_FMT_YUV444P:   return core::pixel_format::ycbcr;\r
+       case PIX_FMT_YUV422P:   return core::pixel_format::ycbcr;\r
+       case PIX_FMT_YUV420P:   return core::pixel_format::ycbcr;\r
+       case PIX_FMT_YUV411P:   return core::pixel_format::ycbcr;\r
+       case PIX_FMT_YUV410P:   return core::pixel_format::ycbcr;\r
+       case PIX_FMT_YUVA420P:  return core::pixel_format::ycbcra;\r
+       default:                                return core::pixel_format::invalid;\r
+       }\r
+}\r
+\r
+PixelFormat get_ffmpeg_pixel_format(const core::pixel_format_desc& format_desc)\r
+{\r
+       switch(format_desc.pix_fmt)\r
+       {\r
+       case core::pixel_format::gray: return PIX_FMT_GRAY8;\r
+       case core::pixel_format::bgra: return PIX_FMT_BGRA;\r
+       case core::pixel_format::argb: return PIX_FMT_ARGB;\r
+       case core::pixel_format::rgba: return PIX_FMT_RGBA;\r
+       case core::pixel_format::abgr: return PIX_FMT_ABGR;\r
+       case core::pixel_format::ycbcra: return PIX_FMT_YUVA420P;\r
+       case core::pixel_format::ycbcr:\r
+               auto planes = format_desc.planes;\r
+               if(planes[0].height == planes[1].height)\r
+               {\r
+                       if(planes[0].width == planes[1].width)\r
+                               return PIX_FMT_YUV444P;\r
+                       else if(planes[0].width/2 == planes[1].width)\r
+                               return PIX_FMT_YUV422P;\r
+                       else if(planes[0].width/4 == planes[1].width)\r
+                               return PIX_FMT_YUV411P;\r
+               }\r
+               if(planes[0].height/2 == planes[1].height)\r
+               {\r
+                       if(planes[0].width/2 == planes[1].width)\r
+                               return PIX_FMT_YUV420P;\r
+               }\r
+               if(planes[0].height/4 == planes[1].height)\r
+               {\r
+                       if(planes[0].width/4 == planes[1].width)\r
+                               return PIX_FMT_YUV410P;\r
+               }\r
+       }\r
+       return PIX_FMT_NONE;\r
+}\r
+\r
+safe_ptr<AVFrame> as_av_frame(const safe_ptr<core::write_frame>& frame)\r
+{\r
+       auto desc = frame->get_pixel_format_desc();\r
+       safe_ptr<AVFrame> av_frame(avcodec_alloc_frame(), av_free);     \r
+       avcodec_get_frame_defaults(av_frame.get());\r
+\r
+       for(size_t n = 0; n < desc.planes.size(); ++n)\r
+       {       \r
+               av_frame->data[n]               = frame->image_data(n).begin();\r
+               av_frame->linesize[n]   = desc.planes[n].width;\r
+       }\r
+\r
+       av_frame->format        = get_ffmpeg_pixel_format(desc);\r
+       av_frame->width         = desc.planes[0].width;\r
+       av_frame->height        = desc.planes[0].height;\r
+\r
+       if(frame->get_type() != core::video_mode::progressive)\r
+       {\r
+               av_frame->interlaced_frame = 1;\r
+               av_frame->top_field_first = frame->get_type() == core::video_mode::upper ? 1 : 0;\r
+       }\r
+\r
+       return av_frame;\r
+}\r
+\r
+core::pixel_format_desc get_pixel_format_desc(PixelFormat pix_fmt, size_t width, size_t height)\r
+{\r
+       // Get linesizes\r
+       AVPicture dummy_pict;   \r
+       avpicture_fill(&dummy_pict, nullptr, pix_fmt, width, height);\r
+\r
+       core::pixel_format_desc desc;\r
+       desc.pix_fmt = get_pixel_format(pix_fmt);\r
+               \r
+       switch(desc.pix_fmt)\r
+       {\r
+       case core::pixel_format::gray:\r
+               {\r
+                       desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[0], height, 1));                                               \r
+                       return desc;\r
+               }\r
+       case core::pixel_format::bgra:\r
+       case core::pixel_format::argb:\r
+       case core::pixel_format::rgba:\r
+       case core::pixel_format::abgr:\r
+               {\r
+                       desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[0]/4, height, 4));                                             \r
+                       return desc;\r
+               }\r
+       case core::pixel_format::ycbcr:\r
+       case core::pixel_format::ycbcra:\r
+               {               \r
+                       // Find chroma height\r
+                       size_t size2 = dummy_pict.data[2] - dummy_pict.data[1];\r
+                       size_t h2 = size2/dummy_pict.linesize[1];                       \r
+\r
+                       desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[0], height, 1));\r
+                       desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[1], h2, 1));\r
+                       desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[2], h2, 1));\r
+\r
+                       if(desc.pix_fmt == core::pixel_format::ycbcra)                                          \r
+                               desc.planes.push_back(core::pixel_format_desc::plane(dummy_pict.linesize[3], height, 1));       \r
+                       return desc;\r
+               }               \r
+       default:                \r
+               desc.pix_fmt = core::pixel_format::invalid;\r
+               return desc;\r
+       }\r
+}\r
+\r
+bool try_make_gray(const safe_ptr<AVFrame>& frame)\r
+{\r
+       auto pix_fmt = get_pixel_format(static_cast<PixelFormat>(frame->format));\r
+       if(pix_fmt != core::pixel_format::invalid)\r
+               frame->format = PIX_FMT_GRAY8;\r
+\r
+       return pix_fmt != core::pixel_format::invalid;\r
+}\r
+\r
+safe_ptr<core::write_frame> make_write_frame(const void* tag, const safe_ptr<AVFrame>& decoded_frame, const safe_ptr<core::frame_factory>& frame_factory, int hints)\r
+{                      \r
+       static tbb::concurrent_unordered_map<size_t, tbb::concurrent_queue<std::shared_ptr<SwsContext>>> sws_contexts_;\r
+       \r
+       const auto width  = decoded_frame->width;\r
+       const auto height = decoded_frame->height;\r
+       auto desc                 = get_pixel_format_desc(static_cast<PixelFormat>(decoded_frame->format), width, height);\r
+       \r
+       if(desc.pix_fmt == core::pixel_format::invalid)\r
+       {\r
+               auto pix_fmt = static_cast<PixelFormat>(decoded_frame->format);\r
+\r
+               auto write = frame_factory->create_frame(tag, desc.pix_fmt != core::pixel_format::invalid ? desc : get_pixel_format_desc(PIX_FMT_BGRA, width, height));\r
+               write->set_type(get_mode(*decoded_frame));\r
+\r
+               std::shared_ptr<SwsContext> sws_context;\r
+\r
+               //CASPAR_LOG(warning) << "Hardware accelerated color transform not supported.";\r
+\r
+               size_t key = width << 20 | height << 8 | pix_fmt;\r
+                       \r
+               auto& pool = sws_contexts_[key];\r
+                                               \r
+               if(!pool.try_pop(sws_context))\r
+               {\r
+                       double param;\r
+                       sws_context.reset(sws_getContext(width, height, pix_fmt, width, height, PIX_FMT_BGRA, SWS_BILINEAR, nullptr, nullptr, &param), sws_freeContext);\r
+               }\r
+                       \r
+               if(!sws_context)\r
+               {\r
+                       BOOST_THROW_EXCEPTION(operation_failed() << msg_info("Could not create software scaling context.") << \r
+                                                                       boost::errinfo_api_function("sws_getContext"));\r
+               }       \r
+\r
+               // Use sws_scale when provided colorspace has no hw-accel.\r
+               safe_ptr<AVFrame> av_frame(avcodec_alloc_frame(), av_free);     \r
+               avcodec_get_frame_defaults(av_frame.get());                     \r
+               avpicture_fill(reinterpret_cast<AVPicture*>(av_frame.get()), write->image_data().begin(), PIX_FMT_BGRA, width, height);\r
+                \r
+               sws_scale(sws_context.get(), decoded_frame->data, decoded_frame->linesize, 0, height, av_frame->data, av_frame->linesize);      \r
+               pool.push(sws_context);\r
+\r
+               write->commit();\r
+\r
+               return write;\r
+       }\r
+       else\r
+       {\r
+               if(hints & core::frame_producer::ALPHA_HINT)\r
+                       desc = get_pixel_format_desc(PIX_FMT_GRAY8, width, height);\r
+               \r
+               auto write = frame_factory->create_frame(tag, desc.pix_fmt != core::pixel_format::invalid ? desc : get_pixel_format_desc(PIX_FMT_BGRA, width, height));\r
+               write->set_type(get_mode(*decoded_frame));\r
+\r
+               tbb::parallel_for(0, static_cast<int>(desc.planes.size()), 1, [&](int n)\r
+               {\r
+                       auto plane            = desc.planes[n];\r
+                       auto result           = write->image_data(n).begin();\r
+                       auto decoded          = decoded_frame->data[n];\r
+                       auto decoded_linesize = decoded_frame->linesize[n];\r
+                               \r
+                       // Copy line by line since ffmpeg sometimes pads each line.\r
+                       tbb::parallel_for(tbb::blocked_range<size_t>(0, static_cast<int>(desc.planes[n].height)), [&](const tbb::blocked_range<size_t>& r)\r
+                       {\r
+                               for(size_t y = r.begin(); y != r.end(); ++y)\r
+                                       fast_memcpy(result + y*plane.linesize, decoded + y*decoded_linesize, plane.linesize);\r
+                       });\r
+\r
+                       write->commit(n);\r
+               });\r
+\r
+               return write;\r
+       }\r
+}\r
+\r
+}
\ No newline at end of file