From 22f703cab05b7cd368f4de9e03991b7664dc5022 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Mon, 1 Sep 2014 13:56:46 +0200 Subject: Initial import of argyll version 1.5.1-8 --- link/monoplot.c | 231 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 231 insertions(+) create mode 100644 link/monoplot.c (limited to 'link/monoplot.c') diff --git a/link/monoplot.c b/link/monoplot.c new file mode 100644 index 0000000..781342b --- /dev/null +++ b/link/monoplot.c @@ -0,0 +1,231 @@ + +/* + * Argyll Color Management System + * + * Plot the monochrome axis transfer curve of a given link. + * + * Author: Graeme W. Gill + * Date: 01/26/8 + * Version: 2.00 + * + * Copyright 2001 Graeme W. Gill + * + * This material is licenced under the GNU AFFERO GENERAL PUBLIC LICENSE Version 3 :- + * see the License.txt file for licencing details. + */ + +/* TTBD: + * + */ + +#include +#include +#include +#include +#include +#include +#include "copyright.h" +#include "aconfig.h" +#include "icc.h" +#include "plot.h" + +#define PRES 100 + +void error(char *fmt, ...), warning(char *fmt, ...); + +/* ---------------------------------------- */ + +void usage(void) { + fprintf(stderr,"Plot monochrome axis of ICC link file, Version %s\n",ARGYLL_VERSION_STR); + fprintf(stderr,"PCS->DEV ->link-> DEV->PCS\n"); + fprintf(stderr,"Author: Graeme W. Gill\n"); + fprintf(stderr,"usage: monoplot inprof linkprof outprof\n"); + fprintf(stderr," -v verbose\n"); + exit(1); +} + +int +main( + int argc, + char *argv[] +) { + int fa, nfa; /* argument we're looking at */ + int verb = 0; + char in_name[100]; + char link_name[100]; + char out_name[100]; + icmFile *in_fp, *link_fp, *out_fp; + icc *in_icco, *link_icco, *out_icco; + icmLuBase *in_lu, *link_lu, *out_lu; + int rv = 0; + + if (argc < 4) + usage(); + + /* Process the arguments */ + for(fa = 1;fa < argc;fa++) { + nfa = fa; /* skip to nfa if next argument is used */ + if (argv[fa][0] == '-') { /* Look for any flags */ + char *na = NULL; /* next argument after flag, null if none */ + + if (argv[fa][2] != '\000') + na = &argv[fa][2]; /* next is directly after flag */ + else { + if ((fa+1) < argc) { + if (argv[fa+1][0] != '-') { + nfa = fa + 1; + na = argv[nfa]; /* next is seperate non-flag argument */ + } + } + } + + /* Verbosity */ + if (argv[fa][1] == 'v' || argv[fa][1] == 'V') { + verb = 1; + } + else if (argv[fa][1] == '?') + usage(); + else + usage(); + } + else + break; + } + + if (fa >= argc || argv[fa][0] == '-') usage(); + strcpy(in_name,argv[fa++]); + + if (fa >= argc || argv[fa][0] == '-') usage(); + strcpy(link_name,argv[fa++]); + + if (fa >= argc || argv[fa][0] == '-') usage(); + strcpy(out_name,argv[fa++]); + + /* Open up the files for reading */ + if ((in_fp = new_icmFileStd_name(in_name,"r")) == NULL) + error ("Read: Can't open file '%s'",in_name); + + if ((in_icco = new_icc()) == NULL) + error ("Read: Creation of ICC object failed"); + + if ((rv = in_icco->read(in_icco,in_fp,0)) != 0) + error ("Read: %d, %s",rv,in_icco->err); + + + if ((link_fp = new_icmFileStd_name(link_name,"r")) == NULL) + error ("Read: Can't open file '%s'",link_name); + + if ((link_icco = new_icc()) == NULL) + error ("Read: Creation of ICC object failed"); + + if ((rv = link_icco->read(link_icco,link_fp,0)) != 0) + error ("Read: %d, %s",rv,link_icco->err); + + + if ((out_fp = new_icmFileStd_name(out_name,"r")) == NULL) + error ("Read: Can't open file '%s'",out_name); + + if ((out_icco = new_icc()) == NULL) + error ("Read: Creation of ICC object failed"); + + if ((rv = out_icco->read(out_icco,out_fp,0)) != 0) + error ("Read: %d, %s",rv,out_icco->err); + + + /* Get a PCS to Device conversion object */ + if ((in_lu = in_icco->get_luobj(in_icco, icmBwd, icAbsoluteColorimetric, icSigLabData, icmLuOrdNorm)) == NULL) { + if ((in_lu = in_icco->get_luobj(in_icco, icmBwd, icmDefaultIntent, icSigLabData, icmLuOrdNorm)) == NULL) + error ("%d, %s",in_icco->errc, in_icco->err); + } + + /* Get a Device to Device conversion object */ + if ((link_lu = link_icco->get_luobj(link_icco, icmFwd, icmDefaultIntent, icSigLabData, icmLuOrdNorm)) == NULL) + error ("%d, %s",link_icco->errc, link_icco->err); + + /* Get a Device to PCS conversion object */ + if ((out_lu = out_icco->get_luobj(out_icco, icmFwd, icAbsoluteColorimetric, icSigLabData, icmLuOrdNorm)) == NULL) { + if ((out_lu = out_icco->get_luobj(out_icco, icmFwd, icmDefaultIntent, icSigLabData, icmLuOrdNorm)) == NULL) + error ("%d, %s",out_icco->errc, out_icco->err); + } + + { + double xx[100], yy[PRES]; + int i; + double tt[10]; + + for (i = 0; i < PRES; i++) { + + tt[0] = 100.0 * i/(PRES-1.0); + tt[1] = tt[2] = 0.0; + + xx[i] = tt[0]; + + if (verb) + printf(" %f %f %f -> ",tt[0],tt[1],tt[2]); + + /* PCS to input device space */ + if ((rv = in_lu->lookup(in_lu, tt, tt)) > 1) + error ("%d, %s",in_icco->errc,in_icco->err); + + + /* input device space to output device space */ + if ((rv = link_lu->lookup(link_lu, tt, tt)) > 1) + error ("%d, %s",link_icco->errc,link_icco->err); + + /* output device space to PCS */ + if ((rv = out_lu->lookup(out_lu, tt, tt)) > 1) + error ("%d, %s",out_icco->errc,out_icco->err); + + yy[i] = tt[0]; + + if (verb) + printf("%f %f %f\n",tt[0],tt[1],tt[2]); + } + + if (do_plot(xx,yy,NULL,NULL,PRES) < 0) + error("do_plot returned -1!\n"); + + } + + /* Done with lookup objects */ + in_lu->del(in_lu); + link_lu->del(link_lu); + out_lu->del(out_lu); + + in_icco->del(in_icco); + in_fp->del(in_fp); + link_icco->del(link_icco); + link_fp->del(link_fp); + out_icco->del(out_icco); + out_fp->del(out_fp); + + return 0; +} + +/* ------------------------------------------------ */ +/* Basic printf type error() and warning() routines */ + +void +error(char *fmt, ...) +{ + va_list args; + + fprintf(stderr,"monoplot: Error - "); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n"); + exit (-1); +} + +void +warning(char *fmt, ...) +{ + va_list args; + + fprintf(stderr,"monoplot: Warning - "); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n"); +} -- cgit v1.2.3