git.sesse.net Git - nageru/blob - decklink_capture.cpp

   1 #include "decklink_capture.h"
   2
   3 #include <assert.h>
   4 #include <stdint.h>
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8 #include <cstddef>
   9 #ifdef __SSE2__
  10 #include <immintrin.h>
  11 #endif
  12
  13 #include <DeckLinkAPI.h>
  14 #include <DeckLinkAPIConfiguration.h>
  15 #include <DeckLinkAPIDiscovery.h>
  16 #include <DeckLinkAPIModes.h>
  17 #include "bmusb/bmusb.h"
  18
  19 #define FRAME_SIZE (8 << 20)  // 8 MB.
  20
  21 using namespace std;
  22 using namespace std::placeholders;
  23
  24 namespace {
  25
  26 // TODO: Support stride.
  27 void memcpy_interleaved(uint8_t *dest1, uint8_t *dest2, const uint8_t *src, size_t n)
  28 {
  29         assert(n % 2 == 0);
  30         uint8_t *dptr1 = dest1;
  31         uint8_t *dptr2 = dest2;
  32
  33         for (size_t i = 0; i < n; i += 2) {
  34                 *dptr1++ = *src++;
  35                 *dptr2++ = *src++;
  36         }
  37 }
  38
  39 #ifdef __SSE2__
  40
  41 // Returns the number of bytes consumed.
  42 size_t memcpy_interleaved_fastpath(uint8_t *dest1, uint8_t *dest2, const uint8_t *src, size_t n)
  43 {
  44         const uint8_t *limit = src + n;
  45         size_t consumed = 0;
  46
  47         // Align end to 32 bytes.
  48         limit = (const uint8_t *)(intptr_t(limit) & ~31);
  49
  50         if (src >= limit) {
  51                 return 0;
  52         }
  53
  54         // Process [0,31] bytes, such that start gets aligned to 32 bytes.
  55         const uint8_t *aligned_src = (const uint8_t *)(intptr_t(src + 31) & ~31);
  56         if (aligned_src != src) {
  57                 size_t n2 = aligned_src - src;
  58                 memcpy_interleaved(dest1, dest2, src, n2);
  59                 dest1 += n2 / 2;
  60                 dest2 += n2 / 2;
  61                 if (n2 % 1) {
  62                         swap(dest1, dest2);
  63                 }
  64                 src = aligned_src;
  65                 consumed += n2;
  66         }
  67
  68         // Make the length a multiple of 64.
  69         if (((limit - src) % 64) != 0) {
  70                 limit -= 32;
  71         }
  72         assert(((limit - src) % 64) == 0);
  73
  74 #if __AVX2__
  75         const __restrict __m256i *in = (const __m256i *)src;
  76         __restrict __m256i *out1 = (__m256i *)dest1;
  77         __restrict __m256i *out2 = (__m256i *)dest2;
  78
  79         __m256i shuffle_cw = _mm256_set_epi8(
  80                 15, 13, 11, 9, 7, 5, 3, 1, 14, 12, 10, 8, 6, 4, 2, 0,
  81                 15, 13, 11, 9, 7, 5, 3, 1, 14, 12, 10, 8, 6, 4, 2, 0);
  82         while (in < (const __m256i *)limit) {
  83                 // Note: For brevity, comments show lanes as if they were 2x64-bit (they're actually 2x128).
  84                 __m256i data1 = _mm256_stream_load_si256(in);         // AaBbCcDd EeFfGgHh
  85                 __m256i data2 = _mm256_stream_load_si256(in + 1);     // IiJjKkLl MmNnOoPp
  86
  87                 data1 = _mm256_shuffle_epi8(data1, shuffle_cw);       // ABCDabcd EFGHefgh
  88                 data2 = _mm256_shuffle_epi8(data2, shuffle_cw);       // IJKLijkl MNOPmnop
  89
  90                 data1 = _mm256_permute4x64_epi64(data1, 0b11011000);  // ABCDEFGH abcdefgh
  91                 data2 = _mm256_permute4x64_epi64(data2, 0b11011000);  // IJKLMNOP ijklmnop
  92
  93                 __m256i lo = _mm256_permute2x128_si256(data1, data2, 0b00100000);
  94                 __m256i hi = _mm256_permute2x128_si256(data1, data2, 0b00110001);
  95
  96                 _mm256_storeu_si256(out1, lo);
  97                 _mm256_storeu_si256(out2, hi);
  98
  99                 in += 2;
 100                 ++out1;
 101                 ++out2;
 102                 consumed += 64;
 103         }
 104 #else
 105         const __restrict __m128i *in = (const __m128i *)src;
 106         __restrict __m128i *out1 = (__m128i *)dest1;
 107         __restrict __m128i *out2 = (__m128i *)dest2;
 108
 109         __m128i mask_lower_byte = _mm_set1_epi16(0x00ff);
 110         while (in < (const __m128i *)limit) {
 111                 __m128i data1 = _mm_load_si128(in);
 112                 __m128i data2 = _mm_load_si128(in + 1);
 113                 __m128i data1_lo = _mm_and_si128(data1, mask_lower_byte);
 114                 __m128i data2_lo = _mm_and_si128(data2, mask_lower_byte);
 115                 __m128i data1_hi = _mm_srli_epi16(data1, 8);
 116                 __m128i data2_hi = _mm_srli_epi16(data2, 8);
 117                 __m128i lo = _mm_packus_epi16(data1_lo, data2_lo);
 118                 _mm_storeu_si128(out1, lo);
 119                 __m128i hi = _mm_packus_epi16(data1_hi, data2_hi);
 120                 _mm_storeu_si128(out2, hi);
 121
 122                 in += 2;
 123                 ++out1;
 124                 ++out2;
 125                 consumed += 32;
 126         }
 127 #endif
 128
 129         return consumed;
 130 }
 131
 132 #endif  // __SSE2__
 133
 134 }  // namespace
 135
 136 DeckLinkCapture::DeckLinkCapture(IDeckLink *card, int card_index)
 137         : card_index(card_index)
 138 {
 139         {
 140                 const char *model_name;
 141                 char buf[256];
 142                 if (card->GetModelName(&model_name) == S_OK) {
 143                         snprintf(buf, sizeof(buf), "Card %d: %s", card_index, model_name);
 144                 } else {
 145                         snprintf(buf, sizeof(buf), "Card %d: Unknown DeckLink card", card_index);
 146                 }
 147                 description = buf;
 148         }
 149
 150         if (card->QueryInterface(IID_IDeckLinkInput, (void**)&input) != S_OK) {
 151                 fprintf(stderr, "Card %d has no inputs\n", card_index);
 152                 exit(1);
 153         }
 154
 155         /* Set up the video and audio sources. */
 156         IDeckLinkConfiguration *config;
 157         if (card->QueryInterface(IID_IDeckLinkConfiguration, (void**)&config) != S_OK) {
 158                 fprintf(stderr, "Failed to get configuration interface for card %d\n", card_index);
 159                 exit(1);
 160         }
 161
 162         if (config->SetInt(bmdDeckLinkConfigVideoInputConnection, bmdVideoConnectionHDMI) != S_OK) {
 163                 fprintf(stderr, "Failed to set video input connection for card %d\n", card_index);
 164                 exit(1);
 165         }
 166
 167         if (config->SetInt(bmdDeckLinkConfigAudioInputConnection, bmdAudioConnectionEmbedded) != S_OK) {
 168                 fprintf(stderr, "Failed to set video input connection for card %d\n", card_index);
 169                 exit(1);
 170         }
 171
 172         IDeckLinkDisplayModeIterator *mode_it;
 173         if (input->GetDisplayModeIterator(&mode_it) != S_OK) {
 174                 fprintf(stderr, "Failed to enumerate display modes for card %d\n", card_index);
 175                 exit(1);
 176         }
 177
 178         for (IDeckLinkDisplayMode *mode_ptr; mode_it->Next(&mode_ptr) == S_OK; mode_ptr->Release()) {
 179                 VideoMode mode;
 180                 mode.id = mode_ptr->GetDisplayMode();
 181
 182                 const char *mode_name;
 183                 if (mode_ptr->GetName(&mode_name) != S_OK) {
 184                         mode.name = "Unknown mode";
 185                 } else {
 186                         mode.name = mode_name;
 187                 }
 188
 189                 mode.autodetect = false;
 190
 191                 mode.width = mode_ptr->GetWidth();
 192                 mode.height = mode_ptr->GetHeight();
 193
 194                 BMDTimeScale frame_rate_num;
 195                 BMDTimeValue frame_rate_den;
 196                 if (mode_ptr->GetFrameRate(&frame_rate_den, &frame_rate_num) != S_OK) {
 197                         fprintf(stderr, "Could not get frame rate for mode '%s' on card %d\n", mode.name.c_str(), card_index);
 198                         exit(1);
 199                 }
 200                 mode.frame_rate_num = frame_rate_num;
 201                 mode.frame_rate_den = frame_rate_den;
 202
 203                 // TODO: Respect the TFF/BFF flag.
 204                 mode.interlaced = (mode_ptr->GetFieldDominance() == bmdLowerFieldFirst || mode_ptr->GetFieldDominance() == bmdUpperFieldFirst);
 205
 206                 video_modes.push_back(mode);
 207         }
 208
 209         // TODO: Make the user mode selectable.
 210         set_video_mode(bmdModeHD720p5994);
 211
 212         if (input->EnableAudioInput(48000, bmdAudioSampleType32bitInteger, 2) != S_OK) {
 213                 fprintf(stderr, "Failed to enable audio input for card %d\n", card_index);
 214                 exit(1);
 215         }
 216
 217         input->SetCallback(this);
 218 }
 219
 220 DeckLinkCapture::~DeckLinkCapture()
 221 {
 222         if (has_dequeue_callbacks) {
 223                 dequeue_cleanup_callback();
 224         }
 225 }
 226
 227 HRESULT STDMETHODCALLTYPE DeckLinkCapture::QueryInterface(REFIID, LPVOID *)
 228 {
 229         return E_NOINTERFACE;
 230 }
 231
 232 ULONG STDMETHODCALLTYPE DeckLinkCapture::AddRef(void)
 233 {
 234         return refcount.fetch_add(1) + 1;
 235 }
 236
 237 ULONG STDMETHODCALLTYPE DeckLinkCapture::Release(void)
 238 {
 239         int new_ref = refcount.fetch_sub(1) - 1;
 240         if (new_ref == 0)
 241                 delete this;
 242         return new_ref;
 243 }
 244
 245 HRESULT STDMETHODCALLTYPE DeckLinkCapture::VideoInputFormatChanged(
 246         BMDVideoInputFormatChangedEvents,
 247         IDeckLinkDisplayMode* display_mode,
 248         BMDDetectedVideoInputFormatFlags)
 249 {
 250         if (display_mode->GetFrameRate(&frame_duration, &time_scale) != S_OK) {
 251                 fprintf(stderr, "Could not get new frame rate\n");
 252                 exit(1);
 253         }
 254         return S_OK;
 255 }
 256
 257 HRESULT STDMETHODCALLTYPE DeckLinkCapture::VideoInputFrameArrived(
 258         IDeckLinkVideoInputFrame *video_frame,
 259         IDeckLinkAudioInputPacket *audio_frame)
 260 {
 261         if (!done_init) {
 262                 if (has_dequeue_callbacks) {
 263                         dequeue_init_callback();
 264                 }
 265                 done_init = true;
 266         }
 267
 268         FrameAllocator::Frame current_video_frame, current_audio_frame;
 269         VideoFormat video_format;
 270         AudioFormat audio_format;
 271
 272         video_format.frame_rate_nom = time_scale;
 273         video_format.frame_rate_den = frame_duration;
 274
 275         if (video_frame) {
 276                 video_format.has_signal = !(video_frame->GetFlags() & bmdFrameHasNoInputSource);
 277
 278                 int width = video_frame->GetWidth();
 279                 int height = video_frame->GetHeight();
 280                 const int stride = video_frame->GetRowBytes();
 281                 assert(stride == width * 2);
 282
 283                 current_video_frame = video_frame_allocator->alloc_frame();
 284                 if (current_video_frame.data != nullptr) {
 285                         const uint8_t *frame_bytes;
 286                         video_frame->GetBytes((void **)&frame_bytes);
 287
 288                         uint8_t *data = current_video_frame.data;
 289                         uint8_t *data2 = current_video_frame.data2;
 290                         size_t num_bytes = width * height * 2;
 291 #ifdef __SSE2__
 292                         size_t consumed = memcpy_interleaved_fastpath(data, data2, frame_bytes, num_bytes);
 293                         frame_bytes += consumed;
 294                         data += consumed / 2;
 295                         data2 += consumed / 2;
 296                         if (num_bytes % 2) {
 297                                 swap(data, data2);
 298                         }
 299                         current_video_frame.len += consumed;
 300                         num_bytes -= consumed;
 301 #endif
 302
 303                         if (num_bytes > 0) {
 304                                 memcpy_interleaved(data, data2, frame_bytes, num_bytes);
 305                         }
 306                         current_video_frame.len += num_bytes;
 307
 308                         video_format.width = width;
 309                         video_format.height = height;
 310                 }
 311         }
 312
 313         if (audio_frame) {
 314                 int num_samples = audio_frame->GetSampleFrameCount();
 315
 316                 current_audio_frame = audio_frame_allocator->alloc_frame();
 317                 if (current_audio_frame.data != nullptr) {
 318                         const uint8_t *frame_bytes;
 319                         audio_frame->GetBytes((void **)&frame_bytes);
 320                         current_audio_frame.len = sizeof(int32_t) * 2 * num_samples;
 321
 322                         memcpy(current_audio_frame.data, frame_bytes, current_audio_frame.len);
 323
 324                         audio_format.bits_per_sample = 32;
 325                         audio_format.num_channels = 2;
 326                 }
 327         }
 328
 329         if (current_video_frame.data != nullptr || current_audio_frame.data != nullptr) {
 330                 // TODO: Put into a queue and put into a dequeue thread, if the
 331                 // BlackMagic drivers don't already do that for us?
 332                 frame_callback(timecode,
 333                         current_video_frame, /*video_offset=*/0, video_format,
 334                         current_audio_frame, /*audio_offset=*/0, audio_format);
 335         }
 336
 337         timecode++;
 338         return S_OK;
 339 }
 340
 341 void DeckLinkCapture::configure_card()
 342 {
 343         if (video_frame_allocator == nullptr) {
 344                 set_video_frame_allocator(new MallocFrameAllocator(FRAME_SIZE, NUM_QUEUED_VIDEO_FRAMES));  // FIXME: leak.
 345         }
 346         if (audio_frame_allocator == nullptr) {
 347                 set_audio_frame_allocator(new MallocFrameAllocator(65536, NUM_QUEUED_AUDIO_FRAMES));  // FIXME: leak.
 348         }
 349 }
 350
 351 void DeckLinkCapture::start_bm_capture()
 352 {
 353         if (input->StartStreams() != S_OK) {
 354                 fprintf(stderr, "StartStreams failed\n");
 355                 exit(1);
 356         }
 357 }
 358
 359 void DeckLinkCapture::stop_dequeue_thread()
 360 {
 361         if (input->StopStreams() != S_OK) {
 362                 fprintf(stderr, "StopStreams failed\n");
 363                 exit(1);
 364         }
 365 }
 366
 367 void DeckLinkCapture::set_video_mode(uint32_t video_mode_id)
 368 {
 369         BMDDisplayModeSupport support;
 370         IDeckLinkDisplayMode *display_mode;
 371         if (input->DoesSupportVideoMode(video_mode_id, bmdFormat8BitYUV, /*flags=*/0, &support, &display_mode)) {
 372                 fprintf(stderr, "Failed to query display mode for card %d\n", card_index);
 373                 exit(1);
 374         }
 375
 376         if (support == bmdDisplayModeNotSupported) {
 377                 fprintf(stderr, "Card %d does not support display mode\n", card_index);
 378                 exit(1);
 379         }
 380
 381         if (display_mode->GetFrameRate(&frame_duration, &time_scale) != S_OK) {
 382                 fprintf(stderr, "Could not get frame rate for card %d\n", card_index);
 383                 exit(1);
 384         }
 385
 386         if (input->EnableVideoInput(video_mode_id, bmdFormat8BitYUV, 0) != S_OK) {
 387                 fprintf(stderr, "Failed to set 720p59.94 connection for card %d\n", card_index);
 388                 exit(1);
 389         }
 390
 391         current_video_mode = video_mode_id;
 392 }