/*
  * Copyright (c) 2011 Stefano Sabatini
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * FFmpeg is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with FFmpeg; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 /**
  * @file

  * filter for showing textual video frame information

  */
 

 #include <inttypes.h>
 

 #include "libavutil/adler32.h"

 #include "libavutil/display.h"

 #include "libavutil/imgutils.h"

 #include "libavutil/internal.h"

 #include "libavutil/pixdesc.h"

 #include "libavutil/spherical.h"

 #include "libavutil/stereo3d.h"

 #include "libavutil/timestamp.h"

 #include "avfilter.h"

 #include "internal.h"

 #include "video.h"

 static void dump_spherical(AVFilterContext *ctx, AVFrame *frame, AVFrameSideData *sd)
 {
     AVSphericalMapping *spherical = (AVSphericalMapping *)sd->data;
     double yaw, pitch, roll;
 
     av_log(ctx, AV_LOG_INFO, "spherical information: ");
     if (sd->size < sizeof(*spherical)) {
         av_log(ctx, AV_LOG_INFO, "invalid data");
         return;
     }
 
     if (spherical->projection == AV_SPHERICAL_EQUIRECTANGULAR)
         av_log(ctx, AV_LOG_INFO, "equirectangular ");
     else if (spherical->projection == AV_SPHERICAL_CUBEMAP)
         av_log(ctx, AV_LOG_INFO, "cubemap ");
     else if (spherical->projection == AV_SPHERICAL_EQUIRECTANGULAR_TILE)
         av_log(ctx, AV_LOG_INFO, "tiled equirectangular ");
     else {
         av_log(ctx, AV_LOG_WARNING, "unknown");
         return;
     }
 
     yaw = ((double)spherical->yaw) / (1 << 16);
     pitch = ((double)spherical->pitch) / (1 << 16);
     roll = ((double)spherical->roll) / (1 << 16);
     av_log(ctx, AV_LOG_INFO, "(%f/%f/%f) ", yaw, pitch, roll);
 
     if (spherical->projection == AV_SPHERICAL_EQUIRECTANGULAR_TILE) {
         size_t l, t, r, b;
         av_spherical_tile_bounds(spherical, frame->width, frame->height,
                                  &l, &t, &r, &b);

         av_log(ctx, AV_LOG_INFO,
                "[%"SIZE_SPECIFIER", %"SIZE_SPECIFIER", %"SIZE_SPECIFIER", %"SIZE_SPECIFIER"] ",
                l, t, r, b);

     } else if (spherical->projection == AV_SPHERICAL_CUBEMAP) {
         av_log(ctx, AV_LOG_INFO, "[pad %"PRIu32"] ", spherical->padding);
     }
 }
 

 static void dump_stereo3d(AVFilterContext *ctx, AVFrameSideData *sd)
 {
     AVStereo3D *stereo;
 
     av_log(ctx, AV_LOG_INFO, "stereoscopic information: ");
     if (sd->size < sizeof(*stereo)) {
         av_log(ctx, AV_LOG_INFO, "invalid data");
         return;
     }
 
     stereo = (AVStereo3D *)sd->data;
 

     av_log(ctx, AV_LOG_INFO, "type - %s", av_stereo3d_type_name(stereo->type));

 
     if (stereo->flags & AV_STEREO3D_FLAG_INVERT)
         av_log(ctx, AV_LOG_INFO, " (inverted)");
 }
 

 static void update_sample_stats(const uint8_t *src, int len, int64_t *sum, int64_t *sum2)
 {
     int i;
 
     for (i = 0; i < len; i++) {
         *sum += src[i];
         *sum2 += src[i] * src[i];
     }
 }
 

 static int filter_frame(AVFilterLink *inlink, AVFrame *frame)

 {
     AVFilterContext *ctx = inlink->dst;

     const AVPixFmtDescriptor *desc = av_pix_fmt_desc_get(inlink->format);

     uint32_t plane_checksum[4] = {0}, checksum = 0;

     int64_t sum[4] = {0}, sum2[4] = {0};
     int32_t pixelcount[4] = {0};

     int i, plane, vsub = desc->log2_chroma_h;

     for (plane = 0; plane < 4 && frame->data[plane] && frame->linesize[plane]; plane++) {

         uint8_t *data = frame->data[plane];

         int h = plane == 1 || plane == 2 ? AV_CEIL_RSHIFT(inlink->h, vsub) : inlink->h;

         int linesize = av_image_get_linesize(frame->format, frame->width, plane);

         if (linesize < 0)
             return linesize;
 

         for (i = 0; i < h; i++) {

             plane_checksum[plane] = av_adler32_update(plane_checksum[plane], data, linesize);
             checksum = av_adler32_update(checksum, data, linesize);

 
             update_sample_stats(data, linesize, sum+plane, sum2+plane);
             pixelcount[plane] += linesize;

             data += frame->linesize[plane];

         }

     }
 
     av_log(ctx, AV_LOG_INFO,

            "n:%4"PRId64" pts:%7s pts_time:%-7s pos:%9"PRId64" "

            "fmt:%s sar:%d/%d s:%dx%d i:%c iskey:%d type:%c "

            "checksum:%08"PRIX32" plane_checksum:[%08"PRIX32,

            inlink->frame_count_out,

            av_ts2str(frame->pts), av_ts2timestr(frame->pts, &inlink->time_base), frame->pkt_pos,

            desc->name,

            frame->sample_aspect_ratio.num, frame->sample_aspect_ratio.den,
            frame->width, frame->height,
            !frame->interlaced_frame ? 'P' :         /* Progressive  */
            frame->top_field_first   ? 'T' : 'B',    /* Top / Bottom */
            frame->key_frame,
            av_get_picture_type_char(frame->pict_type),

            checksum, plane_checksum[0]);
 

     for (plane = 1; plane < 4 && frame->data[plane] && frame->linesize[plane]; plane++)

         av_log(ctx, AV_LOG_INFO, " %08"PRIX32, plane_checksum[plane]);

     av_log(ctx, AV_LOG_INFO, "] mean:[");
     for (plane = 0; plane < 4 && frame->data[plane] && frame->linesize[plane]; plane++)
         av_log(ctx, AV_LOG_INFO, "%"PRId64" ", (sum[plane] + pixelcount[plane]/2) / pixelcount[plane]);
     av_log(ctx, AV_LOG_INFO, "\b] stdev:[");
     for (plane = 0; plane < 4 && frame->data[plane] && frame->linesize[plane]; plane++)
         av_log(ctx, AV_LOG_INFO, "%3.1f ",
                sqrt((sum2[plane] - sum[plane]*(double)sum[plane]/pixelcount[plane])/pixelcount[plane]));
     av_log(ctx, AV_LOG_INFO, "\b]\n");

     for (i = 0; i < frame->nb_side_data; i++) {
         AVFrameSideData *sd = frame->side_data[i];
 
         av_log(ctx, AV_LOG_INFO, "  side data - ");
         switch (sd->type) {
         case AV_FRAME_DATA_PANSCAN:
             av_log(ctx, AV_LOG_INFO, "pan/scan");
             break;
         case AV_FRAME_DATA_A53_CC:
             av_log(ctx, AV_LOG_INFO, "A/53 closed captions (%d bytes)", sd->size);
             break;

         case AV_FRAME_DATA_SPHERICAL:
             dump_spherical(ctx, frame, sd);
             break;

         case AV_FRAME_DATA_STEREO3D:
             dump_stereo3d(ctx, sd);
             break;

         case AV_FRAME_DATA_DISPLAYMATRIX:
             av_log(ctx, AV_LOG_INFO, "displaymatrix: rotation of %.2f degrees",
                    av_display_rotation_get((int32_t *)sd->data));
             break;

         case AV_FRAME_DATA_AFD:

             av_log(ctx, AV_LOG_INFO, "afd: value of %"PRIu8, sd->data[0]);

             break;

         default:
             av_log(ctx, AV_LOG_WARNING, "unknown side data type %d (%d bytes)",
                    sd->type, sd->size);
             break;
         }
 
         av_log(ctx, AV_LOG_INFO, "\n");
     }
 

     return ff_filter_frame(inlink->dst->outputs[0], frame);

 }
 

 static int config_props(AVFilterContext *ctx, AVFilterLink *link, int is_out)
 {
 
     av_log(ctx, AV_LOG_INFO, "config %s time_base: %d/%d, frame_rate: %d/%d\n",

            is_out ? "out" : "in",

            link->time_base.num, link->time_base.den,

            link->frame_rate.num, link->frame_rate.den);

 
     return 0;
 }
 
 static int config_props_in(AVFilterLink *link)
 {
     AVFilterContext *ctx = link->dst;
     return config_props(ctx, link, 0);
 }
 
 static int config_props_out(AVFilterLink *link)
 {
     AVFilterContext *ctx = link->src;
     return config_props(ctx, link, 1);
 }
 

 static const AVFilterPad avfilter_vf_showinfo_inputs[] = {
     {
         .name             = "default",
         .type             = AVMEDIA_TYPE_VIDEO,

         .filter_frame     = filter_frame,

         .config_props     = config_props_in,

     },
     { NULL }
 };
 
 static const AVFilterPad avfilter_vf_showinfo_outputs[] = {
     {
         .name = "default",

         .type = AVMEDIA_TYPE_VIDEO,
         .config_props  = config_props_out,

     },
     { NULL }
 };
 

 AVFilter ff_vf_showinfo = {

     .name        = "showinfo",
     .description = NULL_IF_CONFIG_SMALL("Show textual information for each video frame."),

     .inputs      = avfilter_vf_showinfo_inputs,
     .outputs     = avfilter_vf_showinfo_outputs,

 };