From patchwork Thu Jul 27 19:02:03 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Paras X-Patchwork-Id: 4472 Delivered-To: ffmpegpatchwork@gmail.com Received: by 10.103.1.76 with SMTP id 73csp2365625vsb; Thu, 27 Jul 2017 12:08:56 -0700 (PDT) X-Received: by 10.28.27.69 with SMTP id b66mr4200775wmb.11.1501182535990; Thu, 27 Jul 2017 12:08:55 -0700 (PDT) ARC-Seal: i=1; a=rsa-sha256; t=1501182535; cv=none; d=google.com; s=arc-20160816; b=NgvTS5sohpGPKJn77+yD9FgLQi1cnbj/Q1E3D9TmxL9IcV1VWKgHkottVQroWI2WFV /psTcPZfhYK7MVgaBxmPL2Dc9qCtQ3TEoOu9QJealvw7gQugDx2X8HofbQHwfmnOkfd4 uH4h8oEcUhWjdDkSkFlleuXwdchrv3V21DpBAUwd24okpsmQjX21R88XxOU18n7zv30H e1hpVjg4cg9UUX5GYju7CLTUDnluHD0qLz57CCox1eGtKO+fx2MCvP8fWsq9FHiW+fTD XASSQtu4/L+BKHubKSED2tIgCQ2VPe1CxGPf4ugtuAr2dcL2ysPmaCiXs1i5bTiDUKZ9 DOlw== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=sender:errors-to:content-transfer-encoding:mime-version:cc:reply-to :list-subscribe:list-help:list-post:list-archive:list-unsubscribe :list-id:precedence:subject:references:in-reply-to:message-id:date :to:from:dkim-signature:delivered-to:arc-authentication-results; bh=M7hswPSQWtPnA4H99GqOPDBETSuzJ3yuz5t9fuvCcP4=; b=ujejfDPiFmg6nT/nWuiiVpFyRWyQXi7kdBNq705+OKKfKaYIHujU6VrxzmyF64bwgM 5MhlAUgNZ4O/l3ZGn1ZQ0J17T2B3wgnhHZF4+CiYndQLI3EnrHE7WPPMMCsWZ/9lxqvi 5kg+xbntJrn37+cSs5LL+iIv3Q/O+pzoaR+cGjOPQFvxgCZODwYzZT7kx0J8UZivhaIk DCp9rzDhTeas+xzk3v+klccK5Fo1x1nuPgDH+rXtWNp8t00WoXqfMQ/l6tlCaQEh4puk 5q4f/hmDflNFwZ2Z0MfrnnrDRDvSQvxGW3sgxGHLba0jWt2nKfKhAPYyGg1iYgbMdU24 HikQ== ARC-Authentication-Results: i=1; mx.google.com; dkim=neutral (body hash did not verify) header.i=@gmail.com header.b=BRSJWM25; spf=pass (google.com: domain of ffmpeg-devel-bounces@ffmpeg.org designates 79.124.17.100 as permitted sender) smtp.mailfrom=ffmpeg-devel-bounces@ffmpeg.org; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=gmail.com Return-Path: Received: from ffbox0-bg.mplayerhq.hu (ffbox0-bg.ffmpeg.org. [79.124.17.100]) by mx.google.com with ESMTP id g26si19637957wrg.365.2017.07.27.12.08.52; Thu, 27 Jul 2017 12:08:55 -0700 (PDT) Received-SPF: pass (google.com: domain of ffmpeg-devel-bounces@ffmpeg.org designates 79.124.17.100 as permitted sender) client-ip=79.124.17.100; Authentication-Results: mx.google.com; dkim=neutral (body hash did not verify) header.i=@gmail.com header.b=BRSJWM25; spf=pass (google.com: domain of ffmpeg-devel-bounces@ffmpeg.org designates 79.124.17.100 as permitted sender) smtp.mailfrom=ffmpeg-devel-bounces@ffmpeg.org; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=gmail.com Received: from [127.0.1.1] (localhost [127.0.0.1]) by ffbox0-bg.mplayerhq.hu (Postfix) with ESMTP id C30096808C2; Thu, 27 Jul 2017 22:08:47 +0300 (EEST) X-Original-To: ffmpeg-devel@ffmpeg.org Delivered-To: ffmpeg-devel@ffmpeg.org Received: from mail-pg0-f68.google.com (mail-pg0-f68.google.com [74.125.83.68]) by ffbox0-bg.mplayerhq.hu (Postfix) with ESMTPS id C4EAD68040B for ; Thu, 27 Jul 2017 22:08:40 +0300 (EEST) Received: by mail-pg0-f68.google.com with SMTP id v190so21376253pgv.1 for ; Thu, 27 Jul 2017 12:08:41 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references; bh=99nD5mScLU5RKjs1I+kCq+P4WfwOGr055MbGoGCZ8Bw=; b=BRSJWM254f63FnyWd+hZ8PLCO4mLezS10Kb6m3qUUxb6OS15VH2iC3PFjFRBCE20sd fWOyWUCXVjjvVEg7e7hOXrQp9ISxXKuD1Zk3Fspe0aH7YS1gLs/aa/oKX1IUHXLw8JVF TI6GJaeGt065ouzvF4TbM+P8nDgphUMqAhihjA5UuLiHa7/s9Jza227XHkBQFyDeZjTK mxnkbk6FR3IGtNk5lxzg0I+cjUpbNQQYWRSPhVxR9iyEuJ6seBHXSODF1I/lJ/pOzXrB 3jQcXwDqSitD2a+SS0sgb8AAEe9Mzv/kmK8Qv2DJKj2AP0X8Onm46I4ATVUc5qH31Mhn xhrw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references; bh=99nD5mScLU5RKjs1I+kCq+P4WfwOGr055MbGoGCZ8Bw=; b=Fke5hxnn5IgOMaYD+/dtYtmczePDCjith9qjavGdyMo6HbBVijHQQKdE8hZtUElw/o Cv+Q6lAMSbHdV6H9G1m77oziuovXE6uzPClQTHAiJG93wgkPYnX20k0u7qVAXLrGGf2V Ry4zFyH08RZujhdC6+kjVzhp8I1fFGs68UXdeUSCtI8zy3pDV6J/IqgTAGvox5bkPo4I 3z/ob0n0xCqycZLYmHcpE6M1kAViOPozY1pNc/+JgPho4cjw42M96aVOt6oQWaHwL55l 3LgQMI6MHfvLsryoLjeA4gW5mubpops2vN9rkkRIDf2gzG4HIwBKgpYF1SLzAoz4rZ0K y4Og== X-Gm-Message-State: AIVw110HKtKZhzOjpRvt95T1zfswcSknIeeHldXduWdrSjrv6WlKoiyO w0FZeHy6VYQ6tw0E X-Received: by 10.98.23.69 with SMTP id 66mr5111089pfx.305.1501182154594; Thu, 27 Jul 2017 12:02:34 -0700 (PDT) Received: from dhcppc9.localdomain ([210.56.98.45]) by smtp.gmail.com with ESMTPSA id j124sm6456982pfc.78.2017.07.27.12.02.30 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 27 Jul 2017 12:02:33 -0700 (PDT) From: Paras Chadha To: ffmpeg-devel@ffmpeg.org Date: Fri, 28 Jul 2017 00:32:03 +0530 Message-Id: <1501182123-12620-1-git-send-email-paraschadha18@gmail.com> X-Mailer: git-send-email 2.4.11 In-Reply-To: <20170721142505.GA96215@phare.normalesup.org> References: <20170721142505.GA96215@phare.normalesup.org> Subject: [FFmpeg-devel] [PATCH] Add FITS Decoder X-BeenThere: ffmpeg-devel@ffmpeg.org X-Mailman-Version: 2.1.20 Precedence: list List-Id: FFmpeg development discussions and patches List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: FFmpeg development discussions and patches Cc: Paras Chadha MIME-Version: 1.0 Errors-To: ffmpeg-devel-bounces@ffmpeg.org Sender: "ffmpeg-devel" Signed-off-by: Paras Chadha --- Changelog | 1 + doc/general.texi | 2 + libavcodec/Makefile | 1 + libavcodec/allcodecs.c | 1 + libavcodec/avcodec.h | 1 + libavcodec/codec_desc.c | 7 + libavcodec/fits.h | 79 +++++++ libavcodec/fitsdec.c | 550 ++++++++++++++++++++++++++++++++++++++++++++++++ libavcodec/version.h | 2 +- 9 files changed, 643 insertions(+), 1 deletion(-) create mode 100644 libavcodec/fits.h create mode 100644 libavcodec/fitsdec.c diff --git a/Changelog b/Changelog index 187ae79..d9af2b9 100644 --- a/Changelog +++ b/Changelog @@ -29,6 +29,7 @@ version : - limiter video filter - libvmaf video filter - Dolby E decoder and SMPTE 337M demuxer +- FITS demuxer and decoder version 3.3: - CrystalHD decoder moved to new decode API diff --git a/doc/general.texi b/doc/general.texi index 036c8c2..01402cb 100644 --- a/doc/general.texi +++ b/doc/general.texi @@ -592,6 +592,8 @@ following image formats are supported: @tab Digital Picture Exchange @item EXR @tab @tab X @tab OpenEXR +@item FITS @tab @tab X + @tab Flexible Image Transport System @item JPEG @tab X @tab X @tab Progressive JPEG is not supported. @item JPEG 2000 @tab X @tab X diff --git a/libavcodec/Makefile b/libavcodec/Makefile index 357fa1a..5348ed9 100644 --- a/libavcodec/Makefile +++ b/libavcodec/Makefile @@ -291,6 +291,7 @@ OBJS-$(CONFIG_FFV1_DECODER) += ffv1dec.o ffv1.o OBJS-$(CONFIG_FFV1_ENCODER) += ffv1enc.o ffv1.o OBJS-$(CONFIG_FFWAVESYNTH_DECODER) += ffwavesynth.o OBJS-$(CONFIG_FIC_DECODER) += fic.o +OBJS-$(CONFIG_FITS_DECODER) += fitsdec.o OBJS-$(CONFIG_FLAC_DECODER) += flacdec.o flacdata.o flac.o OBJS-$(CONFIG_FLAC_ENCODER) += flacenc.o flacdata.o flac.o vorbis_data.o OBJS-$(CONFIG_FLASHSV_DECODER) += flashsv.o diff --git a/libavcodec/allcodecs.c b/libavcodec/allcodecs.c index 4712592..8678ac2 100644 --- a/libavcodec/allcodecs.c +++ b/libavcodec/allcodecs.c @@ -192,6 +192,7 @@ static void register_all(void) REGISTER_ENCDEC (FFV1, ffv1); REGISTER_ENCDEC (FFVHUFF, ffvhuff); REGISTER_DECODER(FIC, fic); + REGISTER_DECODER(FITS, fits); REGISTER_ENCDEC (FLASHSV, flashsv); REGISTER_ENCDEC (FLASHSV2, flashsv2); REGISTER_DECODER(FLIC, flic); diff --git a/libavcodec/avcodec.h b/libavcodec/avcodec.h index c594993..b28002f 100644 --- a/libavcodec/avcodec.h +++ b/libavcodec/avcodec.h @@ -447,6 +447,7 @@ enum AVCodecID { AV_CODEC_ID_SRGC, AV_CODEC_ID_SVG, AV_CODEC_ID_GDV, + AV_CODEC_ID_FITS, /* various PCM "codecs" */ AV_CODEC_ID_FIRST_AUDIO = 0x10000, ///< A dummy id pointing at the start of audio codecs diff --git a/libavcodec/codec_desc.c b/libavcodec/codec_desc.c index 6f43b68..2fea680 100644 --- a/libavcodec/codec_desc.c +++ b/libavcodec/codec_desc.c @@ -1464,6 +1464,13 @@ static const AVCodecDescriptor codec_descriptors[] = { AV_CODEC_PROP_LOSSLESS, }, { + .id = AV_CODEC_ID_FITS, + .type = AVMEDIA_TYPE_VIDEO, + .name = "fits", + .long_name = NULL_IF_CONFIG_SMALL("FITS image"), + .props = AV_CODEC_PROP_INTRA_ONLY | AV_CODEC_PROP_LOSSLESS, + }, + { .id = AV_CODEC_ID_GIF, .type = AVMEDIA_TYPE_VIDEO, .name = "gif", diff --git a/libavcodec/fits.h b/libavcodec/fits.h new file mode 100644 index 0000000..45d1ae2 --- /dev/null +++ b/libavcodec/fits.h @@ -0,0 +1,79 @@ +/* + * FITS image format + * Copyright (c) 2017 Paras Chadha + * + * 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 + */ + +#ifndef AVCODEC_FITS_H +#define AVCODEC_FITS_H + +typedef enum FITSHeaderState { + STATE_SIMPLE, + STATE_XTENSION, + STATE_BITPIX, + STATE_NAXIS, + STATE_NAXIS_N, + STATE_PCOUNT, + STATE_GCOUNT, + STATE_REST, +} FITSHeaderState; + +/** + * Structure to store the header keywords in FITS file + */ +typedef struct FITSHeader { + FITSHeaderState state; + unsigned naxis_index; + int bitpix; + int64_t blank; + int blank_found; + int naxis; + int naxisn[999]; + int pcount; + int gcount; + int groups; + int rgb; /**< 1 if file contains RGB image, 0 otherwise */ + int image_extension; + double bscale; + double bzero; + int data_min_found; + double data_min; + int data_max_found; + double data_max; +} FITSHeader; + + +/** + * Initialize a single header line + * @param header pointer to the header + * @param state current state of parsing the header + * @return 0 if successful otherwise AVERROR_INVALIDDATA + */ +int avpriv_fits_header_init(FITSHeader *header, FITSHeaderState state); + +/** + * Parse a single header line + * @param avcl used in av_log + * @param header pointer to the header + * @param line one header line + * @param metadata used to store metadata while decoding + * @return 0 if successful otherwise AVERROR_INVALIDDATA + */ +int avpriv_fits_header_parse_line(void *avcl, FITSHeader *header, const uint8_t line[80], AVDictionary ***metadata); + +#endif /* AVCODEC_FITS_H */ diff --git a/libavcodec/fitsdec.c b/libavcodec/fitsdec.c new file mode 100644 index 0000000..0ce23f3 --- /dev/null +++ b/libavcodec/fitsdec.c @@ -0,0 +1,550 @@ +/* + * FITS image decoder + * Copyright (c) 2017 Paras Chadha + * + * 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 + * FITS image decoder + * + * Specification: https://fits.gsfc.nasa.gov/fits_standard.html Version 3.0 + * + * Support all 2d images alongwith, bzero, bscale and blank keywords. + * RGBA images are supported as NAXIS3 = 3 or 4 i.e. Planes in RGBA order. Also CTYPE = 'RGB ' should be present. + * Also to interpret data, values are linearly scaled using min-max scaling but not RGB images. + */ + +#include "avcodec.h" +#include "internal.h" +#include +#include "libavutil/intreadwrite.h" +#include "libavutil/intfloat.h" +#include "libavutil/dict.h" +#include "libavutil/opt.h" +#include "fits.h" + +typedef struct FITSContext { + const AVClass *class; + int blank_val; +} FITSContext; + +static int dict_set_if_not_null(AVDictionary ***metadata, char * keyword, char * value) +{ + if (metadata) + av_dict_set(*metadata, keyword, value, 0); + return 0; +} + +int avpriv_fits_header_init(FITSHeader *header, FITSHeaderState state) +{ + header->state = state; + header->naxis_index = 0; + header->blank_found = 0; + header->pcount = 0; + header->gcount = 1; + header->groups = 0; + header->rgb = 0; + header->image_extension = 0; + header->bscale = 1.0; + header->bzero = 0; + header->data_min_found = 0; + header->data_max_found = 0; + return 0; +} + +/** + * Calculate the data_min and data_max values from the data. + * This is called if the values are not present in the header. + * @param ptr8 pointer to the data + * @param header pointer to the header + * @param end pointer to end of packet + * @return 0 if calculated successfully otherwise AVERROR_INVALIDDATA + */ +static int fill_data_min_max(const uint8_t * ptr8, FITSHeader * header, const uint8_t * end) +{ + uint8_t t8; + int16_t t16; + int32_t t32; + int64_t t64; + float tflt; + double tdbl; + int i, j; + + header->data_min = DBL_MAX; + header->data_max = DBL_MIN; + switch (header->bitpix) { +#define CASE_N(a, t, rd) \ + case a: \ + for (i = 0; i < header->naxisn[1]; i++) { \ + for (j = 0; j < header->naxisn[0]; j++) { \ + t = rd; \ + if (!header->blank_found || t != header->blank) { \ + if (t > header->data_max) \ + header->data_max = t; \ + if (t < header->data_min) \ + header->data_min = t; \ + } \ + ptr8 += abs(a) >> 3; \ + } \ + } \ + break + + CASE_N(-64, tdbl, av_int2double(AV_RB64(ptr8))); + CASE_N(-32, tflt, av_int2float(AV_RB32(ptr8))); + CASE_N(8, t8, ptr8[0]); + CASE_N(16, t16, AV_RB16(ptr8)); + CASE_N(32, t32, AV_RB32(ptr8)); + CASE_N(64, t64, AV_RB64(ptr8)); + default: + return AVERROR_INVALIDDATA; + } + return 0; +} + +/** + * Extract keyword and value from a header line (80 bytes) and store them in keyword and value strings respectively + * @param ptr8 pointer to the data + * @param keyword pointer to the char array in which keyword is to be stored + * @param value pointer to the char array in which value is to be stored + * @return 0 if calculated successfully otherwise AVERROR_INVALIDDATA + */ +static int read_keyword_value(const uint8_t * ptr8, char * keyword, char * value) +{ + int i; + + for (i = 0; i < 8 && ptr8[i] != ' '; i++) { + keyword[i] = ptr8[i]; + } + keyword[i] = '\0'; + + if (ptr8[8] == '=') { + i = 10; + while (i < 80 && ptr8[i] == ' ') { + i++; + } + + if (i < 80) { + *value++ = ptr8[i]; + i++; + if (ptr8[i-1] == '\'') { + for (; i < 80 && ptr8[i] != '\''; i++) { + *value++ = ptr8[i]; + } + *value++ = '\''; + } else if (ptr8[i-1] == '(') { + for (; i < 80 && ptr8[i] != ')'; i++) { + *value++ = ptr8[i]; + } + *value++ = ')'; + } else { + for (; i < 80 && ptr8[i] != ' ' && ptr8[i] != '/'; i++) { + *value++ = ptr8[i]; + } + } + } + } + *value = '\0'; + return 0; +} + +int avpriv_fits_header_parse_line(void *avcl, FITSHeader *header, const uint8_t line[80], AVDictionary ***metadata) +{ + int dim_no, ret; + int64_t t; + double d; + char keyword[10], value[72], c; + + read_keyword_value(line, keyword, value); + switch (header->state) { + case STATE_SIMPLE: + if (strncmp(keyword, "SIMPLE", 6)) { + av_log(avcl, AV_LOG_ERROR, "expected SIMPLE keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (value[0] == 'F') { + av_log(avcl, AV_LOG_WARNING, "not a standard FITS file\n"); + } else if (value[0] != 'T') { + av_log(avcl, AV_LOG_ERROR, "invalid value of SIMPLE keyword, SIMPLE = %c\n", value[0]); + return AVERROR_INVALIDDATA; + } + header->state = STATE_BITPIX; + break; + case STATE_XTENSION: + if (strncmp(keyword, "XTENSION", 8)) { + av_log(avcl, AV_LOG_ERROR, "expected XTENSION keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (!strncmp(value, "'IMAGE '", 10)) { + header->image_extension = 1; + } + + header->state = STATE_BITPIX; + break; + case STATE_BITPIX: + if (strncmp(keyword, "BITPIX", 6)) { + av_log(avcl, AV_LOG_ERROR, "expected BITPIX keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (sscanf(value, "%d", &header->bitpix) != 1) { + av_log(avcl, AV_LOG_ERROR, "invalid value of BITPIX keyword, %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + dict_set_if_not_null(metadata, keyword, value); + header->state = STATE_NAXIS; + break; + case STATE_NAXIS: + if (strncmp(keyword, "NAXIS", 5)) { + av_log(avcl, AV_LOG_ERROR, "expected NAXIS keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (sscanf(value, "%d", &header->naxis) != 1) { + av_log(avcl, AV_LOG_ERROR, "invalid value of NAXIS keyword, %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + dict_set_if_not_null(metadata, keyword, value); + if (header->naxis) { + header->state = STATE_NAXIS_N; + } else { + if(header->image_extension) { + header->state = STATE_PCOUNT; + } else { + header->state = STATE_REST; + } + } + break; + case STATE_NAXIS_N: + ret = sscanf(keyword, "NAXIS%d", &dim_no); + if (ret != 1 || dim_no != header->naxis_index + 1) { + av_log(avcl, AV_LOG_ERROR, "expected NAXIS%d keyword, found %s = %s\n", header->naxis_index + 1, keyword, value); + return AVERROR_INVALIDDATA; + } + + if (sscanf(value, "%d", &header->naxisn[header->naxis_index]) != 1) { + av_log(avcl, AV_LOG_ERROR, "invalid value of NAXIS%d keyword, %s = %s\n", header->naxis_index + 1, keyword, value); + return AVERROR_INVALIDDATA; + } + + dict_set_if_not_null(metadata, keyword, value); + header->naxis_index++; + if (header->naxis_index == header->naxis) { + if(header->image_extension) { + header->state = STATE_PCOUNT; + } else { + header->state = STATE_REST; + } + } + break; + case STATE_PCOUNT: + if (strncmp(keyword, "PCOUNT", 6)) { + av_log(avcl, AV_LOG_ERROR, "expected PCOUNT keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (sscanf(value, "%d", &header->pcount) != 1) { + av_log(avcl, AV_LOG_ERROR, "invalid value of PCOUNT keyword, %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (header->pcount) { + av_log(avcl, AV_LOG_ERROR, "expected PCOUNT = 0 but found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + header->state = STATE_GCOUNT; + break; + case STATE_GCOUNT: + if (strncmp(keyword, "GCOUNT", 6)) { + av_log(avcl, AV_LOG_ERROR, "expected GCOUNT keyword, found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (sscanf(value, "%d", &header->gcount) != 1) { + av_log(avcl, AV_LOG_ERROR, "invalid value of GCOUNT keyword, %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + if (header->gcount != 1) { + av_log(avcl, AV_LOG_ERROR, "expected GCOUNT = 1 but found %s = %s\n", keyword, value); + return AVERROR_INVALIDDATA; + } + + header->state = STATE_REST; + break; + case STATE_REST: + if (!strncmp(keyword, "BLANK", 5) && sscanf(value, "%"SCNd64"", &t) == 1) { + header->blank = t; + header->blank_found = 1; + } else if (!strncmp(keyword, "BSCALE", 6) && sscanf(value, "%lf", &d) == 1) { + header->bscale = d; + } else if (!strncmp(keyword, "BZERO", 5) && sscanf(value, "%lf", &d) == 1) { + header->bzero = d; + } else if (!strncmp(keyword, "CTYPE3", 6) && !strncmp(value, "'RGB", 4)) { + header->rgb = 1; + } else if (!strncmp(keyword, "DATAMAX", 7) && sscanf(value, "%lf", &d) == 1) { + header->data_max_found = 1; + header->data_max = d; + } else if (!strncmp(keyword, "DATAMIN", 7) && sscanf(value, "%lf", &d) == 1) { + header->data_min_found = 1; + header->data_min = d; + } else if (!strncmp(keyword, "END\0", 4)) { + return 1; + } else if (!strncmp(keyword, "GROUPS", 6) && sscanf(value, "%c", &c) == 1) { + header->groups = (c == 'T'); + } else if (!header->image_extension) { + if (!strncmp(keyword, "GCOUNT", 6) && sscanf(value, "%"SCNd64"", &t) == 1) { + header->gcount = t; + } else if (!strncmp(keyword, "PCOUNT", 6) && sscanf(value, "%"SCNd64"", &t) == 1) { + header->pcount = t; + } + } + dict_set_if_not_null(metadata, keyword, value); + break; + } + return 0; +} + +/** + * Read the fits header and store the values in FITSHeader pointed by header + * @param avctx AVCodec context + * @param ptr pointer to pointer to the data + * @param header pointer to the FITSHeader + * @param end pointer to end of packet + * @param meta pointer to pointer to AVDictionary to store metadata + * @return 0 if calculated successfully otherwise AVERROR_INVALIDDATA + */ +static int fits_read_header(AVCodecContext *avctx, const uint8_t **ptr, FITSHeader * header, + const uint8_t * end, AVDictionary **metadata) +{ + const uint8_t *ptr8 = *ptr; + int lines_read, i, ret; + uint64_t size, t; + + lines_read = 1; // to account for first header line, SIMPLE or XTENSION which is not included in packet... + avpriv_fits_header_init(header, STATE_BITPIX); + do { + if (end - ptr8 < 80) + return AVERROR_INVALIDDATA; + ret = avpriv_fits_header_parse_line(avctx, header, ptr8, &metadata); + ptr8 += 80; + lines_read++; + } while (!ret); + if (ret < 0) + return ret; + + lines_read %= 36; + t = ((36 - lines_read) % 36) * 80; + if (end - ptr8 < t) + return AVERROR_INVALIDDATA; + ptr8 += t; + + if (header->rgb && (header->naxis != 3 || (header->naxisn[2] != 3 && header->naxisn[2] != 4))) { + av_log(avctx, AV_LOG_ERROR, "File contains RGB image but NAXIS = %d and NAXIS3 = %d\n", header->naxis, header->naxisn[2]); + return AVERROR_INVALIDDATA; + } + + if (!header->rgb && header->naxis != 2) { + av_log(avctx, AV_LOG_ERROR, "unsupported number of dimensions, NAXIS = %d\n", header->naxis); + return AVERROR_INVALIDDATA; + } + + if (header->blank_found && (header->bitpix == -32 || header->bitpix == -64)) { + av_log(avctx, AV_LOG_WARNING, "BLANK keyword found but BITPIX = %d\n. Ignoring BLANK", header->bitpix); + header->blank_found = 0; + } + + size = abs(header->bitpix) >> 3; + for (i = 0; i < header->naxis; i++) { + if (header->naxisn[i] > ULLONG_MAX / size) { + av_log(avctx, AV_LOG_ERROR, "unsupported size of FITS image"); + return AVERROR_INVALIDDATA; + } + size *= header->naxisn[i]; + } + + if (end - ptr8 < size) + return AVERROR_INVALIDDATA; + *ptr = ptr8; + + if (!header->rgb && (!header->data_min_found || !header->data_max_found)) { + ret = fill_data_min_max(ptr8, header, end); + if (ret < 0) { + av_log(avctx, AV_LOG_ERROR, "invalid BITPIX, %d\n", header->bitpix); + return ret; + } + } else { + /* + * instead of applying bscale and bzero to every element, + * we can do inverse transformation on data_min and data_max + */ + header->data_min = (header->data_min - header->bzero) / header->bscale; + header->data_max = (header->data_max - header->bzero) / header->bscale; + } + + return 0; +} + +static int fits_decode_frame(AVCodecContext *avctx, void *data, int *got_frame, AVPacket *avpkt) +{ + AVFrame *p=data; + const uint8_t *ptr8 = avpkt->data, *end; + uint8_t t8; + int16_t t16; + int32_t t32; + int64_t t64; + float tflt; + double tdbl; + int ret, i, j, k; + int map[] = {2, 0, 1, 3}; // mapping from GBRA -> RGBA as RGBA is to be stored in FITS file.. + uint8_t *dst8; + uint16_t *dst16; + uint64_t t; + FITSHeader header; + FITSContext * fitsctx = avctx->priv_data; + + end = ptr8 + avpkt->size; + p->metadata = NULL; + ret = fits_read_header(avctx, &ptr8, &header, end, &p->metadata); + if (ret < 0) + return ret; + + if (header.rgb) { + if (header.bitpix == 8) { + if (header.naxisn[2] == 3) { + avctx->pix_fmt = AV_PIX_FMT_GBRP; + } else { + avctx->pix_fmt = AV_PIX_FMT_GBRAP; + } + } else if (header.bitpix == 16) { + if (header.naxisn[2] == 3) { + avctx->pix_fmt = AV_PIX_FMT_GBRP16; + } else { + avctx->pix_fmt = AV_PIX_FMT_GBRAP16; + } + } else { + av_log(avctx, AV_LOG_ERROR, "unsupported BITPIX = %d\n", header.bitpix); + return AVERROR_INVALIDDATA; + } + } else { + if (header.bitpix == 8) { + avctx->pix_fmt = AV_PIX_FMT_GRAY8; + } else { + avctx->pix_fmt = AV_PIX_FMT_GRAY16; + } + } + + if ((ret = ff_set_dimensions(avctx, header.naxisn[0], header.naxisn[1])) < 0) + return ret; + + if ((ret = ff_get_buffer(avctx, p, 0)) < 0) + return ret; + + /* + * FITS stores images with bottom row first. Therefore we have + * to fill the image from bottom to top. + */ + if (header.rgb) { + switch(header.bitpix) { +#define CASE_RGB(cas, dst, type, dref) \ + case cas: \ + for (k = 0; k < header.naxisn[2]; k++) { \ + for (i = 0; i < avctx->height; i++) { \ + dst = (type *) (p->data[map[k]] + (avctx->height - i - 1) * p->linesize[map[k]]); \ + for (j = 0; j < avctx->width; j++) { \ + t32 = dref(ptr8); \ + if (!header.blank_found || t32 != header.blank) { \ + t = t32 * header.bscale + header.bzero; \ + } else { \ + t = fitsctx->blank_val; \ + } \ + *dst++ = (type) t; \ + ptr8 += cas >> 3; \ + } \ + } \ + } \ + break + + CASE_RGB(8, dst8, uint8_t, *); + CASE_RGB(16, dst16, uint16_t, AV_RB16); + } + } else { + switch (header.bitpix) { +#define CASE_GRAY(cas, dst, type, t, rd) \ + case cas: \ + for (i = 0; i < avctx->height; i++) { \ + dst = (type *) (p->data[0] + (avctx->height-i-1)* p->linesize[0]); \ + for (j = 0; j < avctx->width; j++) { \ + t = rd; \ + if (!header.blank_found || t != header.blank) { \ + t = ((t - header.data_min) * ((1 << (sizeof(type) * 8)) - 1)) / (header.data_max - header.data_min); \ + } else { \ + t = fitsctx->blank_val; \ + } \ + *dst++ = (type) t; \ + ptr8 += abs(cas) >> 3; \ + } \ + } \ + break + + CASE_GRAY(-64, dst16, uint16_t, tdbl, av_int2double(AV_RB64(ptr8))); + CASE_GRAY(-32, dst16, uint16_t, tflt, av_int2float(AV_RB32(ptr8))); + CASE_GRAY(8, dst8, uint8_t, t8, ptr8[0]); + CASE_GRAY(16, dst16, uint16_t, t16, AV_RB16(ptr8)); + CASE_GRAY(32, dst16, uint16_t, t32, AV_RB32(ptr8)); + CASE_GRAY(64, dst16, uint16_t, t64, AV_RB64(ptr8)); + default: + av_log(avctx, AV_LOG_ERROR, "invalid BITPIX, %d\n", header.bitpix); + return AVERROR_INVALIDDATA; + } + } + + p->key_frame = 1; + p->pict_type = AV_PICTURE_TYPE_I; + + *got_frame = 1; + + return avpkt->size; +} + +static const AVOption fits_options[] = { + { "blank_value", "value that is used to replace BLANK pixels in data array", offsetof(FITSContext, blank_val), AV_OPT_TYPE_INT, { .i64 = 0 }, 0, 65535, AV_OPT_FLAG_DECODING_PARAM | AV_OPT_FLAG_VIDEO_PARAM}, + { NULL }, +}; + +static const AVClass fits_decoder_class = { + .class_name = "FITS decoder", + .item_name = av_default_item_name, + .option = fits_options, + .version = LIBAVUTIL_VERSION_INT, +}; + +AVCodec ff_fits_decoder = { + .name = "fits", + .type = AVMEDIA_TYPE_VIDEO, + .id = AV_CODEC_ID_FITS, + .priv_data_size = sizeof(FITSContext), + .decode = fits_decode_frame, + .capabilities = AV_CODEC_CAP_DR1, + .long_name = NULL_IF_CONFIG_SMALL("Flexible Image Transport System"), + .priv_class = &fits_decoder_class +}; diff --git a/libavcodec/version.h b/libavcodec/version.h index 02c4f41..7473000 100644 --- a/libavcodec/version.h +++ b/libavcodec/version.h @@ -28,7 +28,7 @@ #include "libavutil/version.h" #define LIBAVCODEC_VERSION_MAJOR 57 -#define LIBAVCODEC_VERSION_MINOR 102 +#define LIBAVCODEC_VERSION_MINOR 103 #define LIBAVCODEC_VERSION_MICRO 100 #define LIBAVCODEC_VERSION_INT AV_VERSION_INT(LIBAVCODEC_VERSION_MAJOR, \