2 * Copyright 2013 Sveriges Television AB http://casparcg.com/
\r
4 * This file is part of CasparCG (www.casparcg.com).
\r
6 * CasparCG is free software: you can redistribute it and/or modify
\r
7 * it under the terms of the GNU General Public License as published by
\r
8 * the Free Software Foundation, either version 3 of the License, or
\r
9 * (at your option) any later version.
\r
11 * CasparCG is distributed in the hope that it will be useful,
\r
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
\r
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\r
14 * GNU General Public License for more details.
\r
16 * You should have received a copy of the GNU General Public License
\r
17 * along with CasparCG. If not, see <http://www.gnu.org/licenses/>.
\r
19 * Author: Robert Nagy, ronag89@gmail.com
\r
22 #include "ogl_consumer.h"
\r
24 #include <GL/glew.h>
\r
25 #include <SFML/Window.hpp>
\r
27 #include <common/diagnostics/graph.h>
\r
28 #include <common/gl/gl_check.h>
\r
29 #include <common/log/log.h>
\r
30 #include <common/memory/safe_ptr.h>
\r
31 #include <common/memory/memcpy.h>
\r
32 #include <common/memory/memshfl.h>
\r
33 #include <common/utility/timer.h>
\r
34 #include <common/utility/string.h>
\r
35 #include <common/concurrency/future_util.h>
\r
36 #include <common/concurrency/executor.h>
\r
37 #include <common/exception/win32_exception.h>
\r
39 #include <ffmpeg/producer/filter/filter.h>
\r
41 #include <core/parameters/parameters.h>
\r
42 #include <core/video_format.h>
\r
43 #include <core/mixer/read_frame.h>
\r
44 #include <core/consumer/frame_consumer.h>
\r
46 #include <boost/timer.hpp>
\r
47 #include <boost/circular_buffer.hpp>
\r
48 #include <boost/foreach.hpp>
\r
49 #include <boost/thread.hpp>
\r
50 #include <boost/property_tree/ptree.hpp>
\r
52 #include <tbb/atomic.h>
\r
53 #include <tbb/concurrent_queue.h>
\r
55 #include <boost/assign.hpp>
\r
57 #include <algorithm>
\r
60 #if defined(_MSC_VER)
\r
61 #pragma warning (push)
\r
62 #pragma warning (disable : 4244)
\r
66 #define __STDC_CONSTANT_MACROS
\r
67 #define __STDC_LIMIT_MACROS
\r
68 #include <libavcodec/avcodec.h>
\r
69 #include <libavutil/imgutils.h>
\r
71 #if defined(_MSC_VER)
\r
72 #pragma warning (pop)
\r
75 typedef int (*PFNWGLEXTGETSWAPINTERVALPROC) (void);
\r
77 namespace caspar { namespace ogl {
\r
87 struct configuration
\r
97 size_t screen_index;
\r
100 bool auto_deinterlace;
\r
102 aspect_ratio aspect;
\r
107 : name(L"Screen consumer")
\r
111 , auto_deinterlace(true)
\r
113 , aspect(aspect_invalid)
\r
115 , borderless(false)
\r
120 struct ogl_consumer : boost::noncopyable
\r
122 const configuration config_;
\r
123 core::video_format_desc format_desc_;
\r
124 int channel_index_;
\r
127 std::vector<GLuint> pbos_;
\r
131 unsigned int screen_x_;
\r
132 unsigned int screen_y_;
\r
133 unsigned int screen_width_;
\r
134 unsigned int screen_height_;
\r
135 size_t square_width_;
\r
136 size_t square_height_;
\r
138 sf::Window window_;
\r
140 safe_ptr<diagnostics::graph> graph_;
\r
141 boost::timer perf_timer_;
\r
142 boost::timer tick_timer_;
\r
144 caspar::high_prec_timer wait_timer_;
\r
146 tbb::concurrent_bounded_queue<safe_ptr<core::read_frame>> frame_buffer_;
\r
148 boost::thread thread_;
\r
149 tbb::atomic<bool> is_running_;
\r
150 tbb::atomic<int64_t> current_presentation_age_;
\r
152 ffmpeg::filter filter_;
\r
154 ogl_consumer(const configuration& config, const core::video_format_desc& format_desc, int channel_index)
\r
156 , format_desc_(format_desc)
\r
157 , channel_index_(channel_index)
\r
160 , screen_width_(format_desc.width)
\r
161 , screen_height_(format_desc.height)
\r
162 , square_width_(format_desc.square_width)
\r
163 , square_height_(format_desc.square_height)
\r
164 , filter_(format_desc.field_mode == core::field_mode::progressive || !config.auto_deinterlace ? L"" : L"YADIF=1:-1", boost::assign::list_of(PIX_FMT_BGRA))
\r
166 if(format_desc_.format == core::video_format::ntsc && config_.aspect == configuration::aspect_4_3)
\r
168 // Use default values which are 4:3.
\r
172 if(config_.aspect == configuration::aspect_16_9)
\r
173 square_width_ = (format_desc.height*16)/9;
\r
174 else if(config_.aspect == configuration::aspect_4_3)
\r
175 square_width_ = (format_desc.height*4)/3;
\r
178 frame_buffer_.set_capacity(2);
\r
180 graph_->set_color("tick-time", diagnostics::color(0.0f, 0.6f, 0.9f));
\r
181 graph_->set_color("frame-time", diagnostics::color(0.1f, 1.0f, 0.1f));
\r
182 graph_->set_color("dropped-frame", diagnostics::color(0.3f, 0.6f, 0.3f));
\r
184 graph_->set_text(print());
\r
185 diagnostics::register_graph(graph_);
\r
187 DISPLAY_DEVICE d_device = {sizeof(d_device), 0};
\r
188 std::vector<DISPLAY_DEVICE> displayDevices;
\r
189 for(int n = 0; EnumDisplayDevices(NULL, n, &d_device, NULL); ++n)
\r
190 displayDevices.push_back(d_device);
\r
192 if(config_.screen_index >= displayDevices.size())
\r
193 CASPAR_LOG(warning) << print() << L" Invalid screen-index: " << config_.screen_index;
\r
195 DEVMODE devmode = {};
\r
196 if(!EnumDisplaySettings(displayDevices[config_.screen_index].DeviceName, ENUM_CURRENT_SETTINGS, &devmode))
\r
197 CASPAR_LOG(warning) << print() << L" Could not find display settings for screen-index: " << config_.screen_index;
\r
199 screen_x_ = devmode.dmPosition.x;
\r
200 screen_y_ = devmode.dmPosition.y;
\r
201 screen_width_ = config_.windowed ? square_width_ : devmode.dmPelsWidth;
\r
202 screen_height_ = config_.windowed ? square_height_ : devmode.dmPelsHeight;
\r
204 is_running_ = true;
\r
205 current_presentation_age_ = 0;
\r
206 thread_ = boost::thread([this]{run();});
\r
211 is_running_ = false;
\r
212 frame_buffer_.try_push(make_safe<core::read_frame>());
\r
218 if(!GLEW_VERSION_2_1)
\r
219 BOOST_THROW_EXCEPTION(not_supported() << msg_info("Missing OpenGL 2.1 support."));
\r
221 window_.Create(sf::VideoMode(screen_width_, screen_height_, 32), narrow(print()), config_.borderless ? sf::Style::None : (config_.windowed ? sf::Style::Resize | sf::Style::Close : sf::Style::Fullscreen));
\r
222 window_.ShowMouseCursor(false);
\r
223 window_.SetPosition(screen_x_, screen_y_);
\r
224 window_.SetSize(screen_width_, screen_height_);
\r
225 window_.SetActive();
\r
226 GL(glEnable(GL_TEXTURE_2D));
\r
227 GL(glDisable(GL_DEPTH_TEST));
\r
228 GL(glClearColor(0.0, 0.0, 0.0, 0.0));
\r
229 GL(glViewport(0, 0, format_desc_.width, format_desc_.height));
\r
230 GL(glLoadIdentity());
\r
232 calculate_aspect();
\r
234 GL(glGenTextures(1, &texture_));
\r
235 GL(glBindTexture(GL_TEXTURE_2D, texture_));
\r
236 GL(glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR));
\r
237 GL(glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR));
\r
238 GL(glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP));
\r
239 GL(glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP));
\r
240 GL(glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA8, format_desc_.width, format_desc_.height, 0, GL_BGRA, GL_UNSIGNED_BYTE, 0));
\r
241 GL(glBindTexture(GL_TEXTURE_2D, 0));
\r
243 GL(glGenBuffers(2, pbos_.data()));
\r
245 glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, pbos_[0]);
\r
246 glBufferDataARB(GL_PIXEL_UNPACK_BUFFER_ARB, format_desc_.size, 0, GL_STREAM_DRAW_ARB);
\r
247 glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, pbos_[1]);
\r
248 glBufferDataARB(GL_PIXEL_UNPACK_BUFFER_ARB, format_desc_.size, 0, GL_STREAM_DRAW_ARB);
\r
249 glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, 0);
\r
253 auto wglSwapIntervalEXT = reinterpret_cast<void(APIENTRY*)(int)>(wglGetProcAddress("wglSwapIntervalEXT"));
\r
254 if(wglSwapIntervalEXT)
\r
256 wglSwapIntervalEXT(1);
\r
257 CASPAR_LOG(info) << print() << " Successfully enabled vsync.";
\r
260 CASPAR_LOG(info) << print() << " Failed to enable vsync.";
\r
263 CASPAR_LOG(info) << print() << " Successfully Initialized.";
\r
269 glDeleteTextures(1, &texture_);
\r
271 BOOST_FOREACH(auto& pbo, pbos_)
\r
274 glDeleteBuffers(1, &pbo);
\r
280 win32_exception::ensure_handler_installed_for_thread(
\r
281 "ogl-consumer-thread");
\r
293 while(window_.GetEvent(e))
\r
295 if(e.Type == sf::Event::Resized)
\r
296 calculate_aspect();
\r
297 else if(e.Type == sf::Event::Closed)
\r
298 is_running_ = false;
\r
301 safe_ptr<core::read_frame> frame;
\r
303 frame_buffer_.pop(frame);
\r
305 render_and_draw_frame(frame);
\r
307 graph_->set_value("tick-time", tick_timer_.elapsed()*format_desc_.fps*0.5);
\r
308 tick_timer_.restart();
\r
312 CASPAR_LOG_CURRENT_EXCEPTION();
\r
313 is_running_ = false;
\r
321 CASPAR_LOG_CURRENT_EXCEPTION();
\r
325 void try_sleep_almost_until_vblank()
\r
327 static const double THRESHOLD = 0.003;
\r
328 double threshold = config_.vsync ? THRESHOLD : 0.0;
\r
330 auto frame_time = 1.0 / (format_desc_.fps * format_desc_.field_count);
\r
332 wait_timer_.tick(frame_time - threshold);
\r
335 void wait_for_vblank_and_display()
\r
337 try_sleep_almost_until_vblank();
\r
339 // Make sure that the next tick measures the duration from this point in time.
\r
340 wait_timer_.tick(0.0);
\r
343 safe_ptr<AVFrame> get_av_frame()
\r
345 safe_ptr<AVFrame> av_frame(avcodec_alloc_frame(), av_free);
\r
346 avcodec_get_frame_defaults(av_frame.get());
\r
348 av_frame->linesize[0] = format_desc_.width*4;
\r
349 av_frame->format = PIX_FMT_BGRA;
\r
350 av_frame->width = format_desc_.width;
\r
351 av_frame->height = format_desc_.height;
\r
352 av_frame->interlaced_frame = format_desc_.field_mode != core::field_mode::progressive;
\r
353 av_frame->top_field_first = format_desc_.field_mode == core::field_mode::upper ? 1 : 0;
\r
358 void render_and_draw_frame(const safe_ptr<core::read_frame>& frame)
\r
360 if(static_cast<size_t>(frame->image_data().size()) != format_desc_.size)
\r
363 perf_timer_.restart();
\r
364 auto av_frame = get_av_frame();
\r
365 av_frame->data[0] = const_cast<uint8_t*>(frame->image_data().begin());
\r
367 filter_.push(av_frame);
\r
368 auto frames = filter_.poll_all();
\r
370 if (frames.empty())
\r
373 if (frames.size() == 1)
\r
375 render(frames[0], frame->image_data().size());
\r
376 graph_->set_value("frame-time", perf_timer_.elapsed() * format_desc_.fps * 0.5);
\r
378 wait_for_vblank_and_display(); // progressive frame
\r
380 else if (frames.size() == 2)
\r
382 render(frames[0], frame->image_data().size());
\r
383 double perf_elapsed = perf_timer_.elapsed();
\r
385 wait_for_vblank_and_display(); // field1
\r
387 perf_timer_.restart();
\r
388 render(frames[1], frame->image_data().size());
\r
389 perf_elapsed += perf_timer_.elapsed();
\r
390 graph_->set_value("frame-time", perf_elapsed * format_desc_.fps * 0.5);
\r
392 wait_for_vblank_and_display(); // field2
\r
395 current_presentation_age_ = frame->get_age_millis();
\r
398 void render(safe_ptr<AVFrame> av_frame, int image_data_size)
\r
400 if(av_frame->linesize[0] != static_cast<int>(format_desc_.width*4))
\r
402 const uint8_t *src_data[4] = {0};
\r
403 memcpy(const_cast<uint8_t**>(&src_data[0]), av_frame->data, 4);
\r
404 const int src_linesizes[4] = {0};
\r
405 memcpy(const_cast<int*>(&src_linesizes[0]), av_frame->linesize, 4);
\r
407 auto av_frame2 = get_av_frame();
\r
408 av_image_alloc(av_frame2->data, av_frame2->linesize, av_frame2->width, av_frame2->height, PIX_FMT_BGRA, 16);
\r
409 av_frame = safe_ptr<AVFrame>(av_frame2.get(), [=](AVFrame*)
\r
411 av_freep(&av_frame2->data[0]);
\r
414 av_image_copy(av_frame2->data, av_frame2->linesize, src_data, src_linesizes, PIX_FMT_BGRA, av_frame2->width, av_frame2->height);
\r
417 glBindTexture(GL_TEXTURE_2D, texture_);
\r
419 glBindBuffer(GL_PIXEL_UNPACK_BUFFER, pbos_[0]);
\r
420 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, format_desc_.width, format_desc_.height, GL_BGRA, GL_UNSIGNED_BYTE, 0);
\r
422 glBindBuffer(GL_PIXEL_UNPACK_BUFFER, pbos_[1]);
\r
423 glBufferData(GL_PIXEL_UNPACK_BUFFER, format_desc_.size, 0, GL_STREAM_DRAW);
\r
425 auto ptr = glMapBuffer(GL_PIXEL_UNPACK_BUFFER, GL_WRITE_ONLY);
\r
428 if(config_.key_only)
\r
429 fast_memshfl(reinterpret_cast<char*>(ptr), av_frame->data[0], image_data_size, 0x0F0F0F0F, 0x0B0B0B0B, 0x07070707, 0x03030303);
\r
431 fast_memcpy(reinterpret_cast<char*>(ptr), av_frame->data[0], image_data_size);
\r
433 glUnmapBuffer(GL_PIXEL_UNPACK_BUFFER); // release the mapped buffer
\r
436 glBindBuffer(GL_PIXEL_UNPACK_BUFFER, 0);
\r
438 GL(glClear(GL_COLOR_BUFFER_BIT));
\r
440 glTexCoord2f(0.0f, 1.0f); glVertex2f(-width_, -height_);
\r
441 glTexCoord2f(1.0f, 1.0f); glVertex2f( width_, -height_);
\r
442 glTexCoord2f(1.0f, 0.0f); glVertex2f( width_, height_);
\r
443 glTexCoord2f(0.0f, 0.0f); glVertex2f(-width_, height_);
\r
446 glBindTexture(GL_TEXTURE_2D, 0);
\r
448 std::rotate(pbos_.begin(), pbos_.begin() + 1, pbos_.end());
\r
451 boost::unique_future<bool> send(const safe_ptr<core::read_frame>& frame)
\r
453 if (!frame_buffer_.try_push(frame))
\r
454 graph_->set_tag("dropped-frame");
\r
456 return wrap_as_future(is_running_.load());
\r
459 std::wstring channel_and_format() const
\r
461 return L"[" + boost::lexical_cast<std::wstring>(channel_index_) + L"|" + format_desc_.name + L"]";
\r
464 std::wstring print() const
\r
466 return config_.name + L" " + channel_and_format();
\r
469 void calculate_aspect()
\r
471 if(config_.windowed)
\r
473 screen_height_ = window_.GetHeight();
\r
474 screen_width_ = window_.GetWidth();
\r
477 GL(glViewport(0, 0, screen_width_, screen_height_));
\r
479 std::pair<float, float> target_ratio = None();
\r
480 if(config_.stretch == fill)
\r
481 target_ratio = Fill();
\r
482 else if(config_.stretch == uniform)
\r
483 target_ratio = Uniform();
\r
484 else if(config_.stretch == uniform_to_fill)
\r
485 target_ratio = UniformToFill();
\r
487 width_ = target_ratio.first;
\r
488 height_ = target_ratio.second;
\r
491 std::pair<float, float> None()
\r
493 float width = static_cast<float>(square_width_)/static_cast<float>(screen_width_);
\r
494 float height = static_cast<float>(square_height_)/static_cast<float>(screen_height_);
\r
496 return std::make_pair(width, height);
\r
499 std::pair<float, float> Uniform()
\r
501 float aspect = static_cast<float>(square_width_)/static_cast<float>(square_height_);
\r
502 float width = std::min(1.0f, static_cast<float>(screen_height_)*aspect/static_cast<float>(screen_width_));
\r
503 float height = static_cast<float>(screen_width_*width)/static_cast<float>(screen_height_*aspect);
\r
505 return std::make_pair(width, height);
\r
508 std::pair<float, float> Fill()
\r
510 return std::make_pair(1.0f, 1.0f);
\r
513 std::pair<float, float> UniformToFill()
\r
515 float wr = static_cast<float>(square_width_)/static_cast<float>(screen_width_);
\r
516 float hr = static_cast<float>(square_height_)/static_cast<float>(screen_height_);
\r
517 float r_inv = 1.0f/std::min(wr, hr);
\r
519 float width = wr*r_inv;
\r
520 float height = hr*r_inv;
\r
522 return std::make_pair(width, height);
\r
527 struct ogl_consumer_proxy : public core::frame_consumer
\r
529 const configuration config_;
\r
530 std::unique_ptr<ogl_consumer> consumer_;
\r
534 ogl_consumer_proxy(const configuration& config)
\r
535 : config_(config){}
\r
537 ~ogl_consumer_proxy()
\r
541 auto str = print();
\r
543 CASPAR_LOG(info) << str << L" Successfully Uninitialized.";
\r
549 virtual void initialize(const core::video_format_desc& format_desc, int channel_index) override
\r
552 consumer_.reset(new ogl_consumer(config_, format_desc, channel_index));
\r
553 CASPAR_LOG(info) << print() << L" Successfully Initialized.";
\r
556 virtual int64_t presentation_frame_age_millis() const override
\r
558 return consumer_ ? consumer_->current_presentation_age_ : 0;
\r
561 virtual boost::unique_future<bool> send(const safe_ptr<core::read_frame>& frame) override
\r
563 return consumer_->send(frame);
\r
566 virtual std::wstring print() const override
\r
568 return consumer_ ? consumer_->print() : L"[ogl_consumer]";
\r
571 virtual boost::property_tree::wptree info() const override
\r
573 boost::property_tree::wptree info;
\r
574 info.add(L"type", L"ogl-consumer");
\r
575 info.add(L"key-only", config_.key_only);
\r
576 info.add(L"windowed", config_.windowed);
\r
577 info.add(L"auto-deinterlace", config_.auto_deinterlace);
\r
581 virtual bool has_synchronization_clock() const override
\r
586 virtual size_t buffer_depth() const override
\r
591 virtual int index() const override
\r
593 return 600 + config_.screen_index;
\r
597 safe_ptr<core::frame_consumer> create_consumer(const core::parameters& params)
\r
599 if(params.size() < 1 || params[0] != L"SCREEN")
\r
600 return core::frame_consumer::empty();
\r
602 configuration config;
\r
604 if(params.size() > 1)
\r
605 config.screen_index =
\r
606 lexical_cast_or_default<int>(params[1], config.screen_index);
\r
608 config.screen_index = params.get(L"DEVICE", config.screen_index);
\r
609 config.windowed = !params.has(L"FULLSCREEN");
\r
610 config.key_only = params.has(L"KEY_ONLY");
\r
611 config.name = params.get(L"NAME", config.name);
\r
612 config.borderless = params.has(L"BORDERLESS");
\r
614 return make_safe<ogl_consumer_proxy>(config);
\r
617 safe_ptr<core::frame_consumer> create_consumer(const boost::property_tree::wptree& ptree)
\r
619 configuration config;
\r
620 config.name = ptree.get(L"name", config.name);
\r
621 config.screen_index = ptree.get(L"device", config.screen_index+1)-1;
\r
622 config.windowed = ptree.get(L"windowed", config.windowed);
\r
623 config.key_only = ptree.get(L"key-only", config.key_only);
\r
624 config.auto_deinterlace = ptree.get(L"auto-deinterlace", config.auto_deinterlace);
\r
625 config.vsync = ptree.get(L"vsync", config.vsync);
\r
626 config.borderless = ptree.get(L"borderless", config.borderless);
\r
628 auto stretch_str = ptree.get(L"stretch", L"default");
\r
629 if(stretch_str == L"uniform")
\r
630 config.stretch = stretch::uniform;
\r
631 else if(stretch_str == L"uniform_to_fill")
\r
632 config.stretch = stretch::uniform_to_fill;
\r
634 auto aspect_str = ptree.get(L"aspect-ratio", L"default");
\r
635 if(aspect_str == L"16:9")
\r
636 config.aspect = configuration::aspect_16_9;
\r
637 else if(aspect_str == L"4:3")
\r
638 config.aspect = configuration::aspect_4_3;
\r
640 return make_safe<ogl_consumer_proxy>(config);
\r