--- ray/src/rt/mkpmap.c 2018/03/20 19:55:33 2.9 +++ ray/src/rt/mkpmap.c 2024/08/21 20:42:20 2.12 @@ -1,5 +1,5 @@ #ifndef lint -static const char RCSid[] = "$Id: mkpmap.c,v 2.9 2018/03/20 19:55:33 rschregle Exp $"; +static const char RCSid[] = "$Id: mkpmap.c,v 2.12 2024/08/21 20:42:20 greg Exp $"; #endif @@ -9,12 +9,17 @@ static const char RCSid[] = "$Id: mkpmap.c,v 2.9 2018/ Roland Schregle (roland.schregle@{hslu.ch, gmail.com}) (c) Fraunhofer Institute for Solar Energy Systems, - Lucerne University of Applied Sciences & Arts + supported by the German Research Foundation + (DFG LU-204/10-2, "Fassadenintegrierte Regelsysteme" (FARESYS)) (c) Lucerne University of Applied Sciences and Arts, - supported by the Swiss National Science Foundation (SNSF, #147053) + supported by the Swiss National Science Foundation + (SNSF #147053, "Daylight Redirecting Components") + (c) Tokyo University of Science, + supported by the JSPS Grants-in-Aid for Scientific Research + (KAKENHI JP19KK0115, "Three-Dimensional Light Flow") ====================================================================== - $Id: mkpmap.c,v 2.9 2018/03/20 19:55:33 rschregle Exp $ + $Id: mkpmap.c,v 2.12 2024/08/21 20:42:20 greg Exp $ */ @@ -27,6 +32,7 @@ static const char RCSid[] = "$Id: mkpmap.c,v 2.9 2018/ #include "ambient.h" #include "resolu.h" #include "source.h" +#include #include #include @@ -63,20 +69,19 @@ unsigned nproc = 1; /* number of paral /* Dummies for linkage */ COLOR ambval = BLKCOLOR; -double shadthresh = .05, ambacc = 0.2, shadcert = .5, minweight = 5e-3, - ssampdist = 0, dstrsrc = 0.0, specthresh = 0.15, specjitter = 1.0, - avgrefl = 0.5; -int ambvwt = 0, ambssamp = 0, ambres = 32, ambounce = 0, directrelay = 1, - directvis = 1, samplendx, do_irrad = 0, ambdiv = 128, vspretest = 512, - maxdepth = 6, contrib = 0; -char *shm_boundary = NULL, *ambfile = NULL, *RCCONTEXT = NULL; -void (*trace)() = NULL, (*addobjnotify [])() = {ambnotify, NULL}; +double shadthresh = .05, ambacc = 0.2, shadcert = .5, minweight = 5e-3, + ssampdist = 0, dstrsrc = 0.0, specthresh = 0.15, specjitter = 1.0, + avgrefl = 0.5; +int ambvwt = 0, ambssamp = 0, ambres = 32, ambounce = 0, + directrelay = 1, directvis = 1, samplendx, do_irrad = 0, + ambdiv = 128, vspretest = 512, maxdepth = 6, contrib = 0; +char *ambfile = NULL, *RCCONTEXT = NULL; +void (*trace)() = NULL, (*addobjnotify [])() = {ambnotify, NULL}; void printdefaults() /* print default values to stdout */ { - #ifdef EVALDRC_HACK /* EvalDRC support */ puts("-A\t\t\t\t# angular source file"); @@ -86,10 +91,11 @@ void printdefaults() puts("-ai mod\t\t\t\t# include modifier"); puts("-aI file\t\t\t\t# include modifiers from file"); #ifdef PMAP_EKSPERTZ - puts("-api xmin ymin zmin xmax ymax zmax\t# region of interest"); + puts("-api xmin ymin zmin xmax ymax zmax\t# rectangular region of interest"); + puts("-apI xpos ypos zpos radius\t\t# spherical region of interest"); #endif puts("-apg file nPhotons\t\t\t# global photon map"); - puts("-apc file nPhotons\t\t\t# caustic photon map"); + puts("-apc file nPhotons\t\t\t# caustic photon map"); puts("-apd file nPhotons\t\t\t# direct photon map"); puts("-app file nPhotons bwidth\t\t# precomputed global photon map"); puts("-apv file nPhotons\t\t\t# volume photon map"); @@ -97,63 +103,89 @@ void printdefaults() printf("-apD %f\t\t\t\t# predistribution factor\n", preDistrib); printf("-apM %d\t\t\t\t\t# max predistrib passes\n", maxPreDistrib); #if 1 - /* Kept for backwards compat, will be gradually phased out by -lD, -lr */ + /* Kept for backwards compat, will be gradually phased out by -ld, -lr */ printf("-apm %ld\t\t\t\t# limit photon bounces\n", photonMaxBounce); #endif - puts("-apo mod\t\t\t\t# photon port modifier"); - puts("-apO file\t\t\t\t# photon ports from file"); + puts("-apo+ mod\t\t\t\t# photon port modifier"); + puts("-apO+ file\t\t\t\t# photon ports from file"); printf("-apP %f\t\t\t\t# precomputation factor\n", finalGather); printf("-apr %d\t\t\t\t\t# random seed\n", randSeed); puts("-aps mod\t\t\t\t# antimatter sensor modifier"); puts("-apS file\t\t\t\t# antimatter sensors from file"); - printf(backvis ? "-bv+\t\t\t\t\t# back face visibility on\n" - : "-bv-\t\t\t\t\t# back face visibility off\n"); + printf(backvis + ? "-bv+\t\t\t\t\t# back face visibility on\n" + : "-bv-\t\t\t\t\t# back face visibility off\n" + ); printf("-dp %.1f\t\t\t\t# PDF samples / sr\n", pdfSamples); printf("-ds %f\t\t\t\t# source partition size ratio\n", srcsizerat); printf("-e %s\t\t\t\t# diagnostics output file\n", diagFile); - printf(clobber ? "-fo+\t\t\t\t\t# force overwrite\n" - : "-fo-\t\t\t\t\t# do not overwrite\n"); + printf(clobber + ? "-fo+\t\t\t\t\t# force overwrite\n" + : "-fo-\t\t\t\t\t# do not overwrite\n" + ); #ifdef PMAP_EKSPERTZ - /* NU STUFF for Ze Exspertz! */ + /* (Formerly) NU STUFF for Ze Exspertz! */ printf("-ld %.1f\t\t\t\t\t# limit photon distance\n", photonMaxDist); printf("-lr %ld\t\t\t\t# limit photon bounces\n", photonMaxBounce); #endif - printf("-ma %.2f %.2f %.2f\t\t\t# scattering albedo\n", - colval(salbedo,RED), colval(salbedo,GRN), colval(salbedo,BLU)); - printf("-me %.2e %.2e %.2e\t\t# extinction coefficient\n", - colval(cextinction,RED), colval(cextinction,GRN), - colval(cextinction,BLU)); + printf( + "-ma %.2f %.2f %.2f\t\t\t# scattering albedo\n", + colval(salbedo,RED), colval(salbedo,GRN), colval(salbedo,BLU) + ); + printf( + "-me %.2e %.2e %.2e\t\t# extinction coefficient\n", + colval(cextinction,RED), colval(cextinction,GRN), + colval(cextinction,BLU) + ); printf("-mg %.2f\t\t\t\t# scattering eccentricity\n", seccg); #if NIX - /* Multiprocessing on NIX only */ + /* Multiprocessing on NIX only; so tuff luck, Windoze Weenies! */ printf("-n %d\t\t\t\t\t# number of parallel processes\n", nproc); #endif printf("-t %-9d\t\t\t\t# time between reports\n", photonRepTime); - printf(verbose ? "-v+\t\t\t\t\t# verbose console output\n" - : "-v-\t\t\t\t\t# terse console output\n"); + printf(verbose + ? "-v+\t\t\t\t\t# verbose console output\n" + : "-v-\t\t\t\t\t# terse console output\n" + ); } int main (int argc, char* argv []) { - #define check(ol, al) if (argv [i][ol] || \ - badarg(argc - i - 1,argv + i + 1, al)) \ - goto badopt - + #define check(ol, al) if ( \ + argv [i][ol] || badarg(argc - i - 1,argv + i + 1, al) \ + ) goto badopt + + /* Evaluate boolean option, setting var accordingly */ #define check_bool(olen, var) switch (argv [i][olen]) { \ - case '\0': var = !var; break; \ - case 'y': case 'Y': case 't': case 'T': \ - case '+': case '1': var = 1; break; \ - case 'n': case 'N': case 'f': case 'F': \ - case '-': case '0': var = 0; break; \ - default: goto badopt; \ - } + case '\0': \ + var = !var; break; \ + case 'y': case 'Y': case 't': case 'T': case '+': case '1': \ + var = 1; break; \ + case 'n': case 'N': case 'f': case 'F': case '-': case '0': \ + var = 0; break; \ + default: \ + goto badopt; \ + } + + /* Evaluate trinary option, setting bits v1 and v2 in var accordingly */ + #define check_tri(olen, v1, v2, var) switch (argv [i][olen]) { \ + case '\0': case '+': \ + var = v1; break; \ + case '-': \ + var = v2; break;\ + case '0': \ + var = v1 | v2; break; \ + default: \ + goto badopt; \ + } - int loadflags = IO_CHECK | IO_SCENE | IO_TREE | IO_BOUNDS, rval, i, j, n; - char **portLp = photonPortList, **sensLp = photonSensorList, - **amblp = NULL; - struct stat pmstat; + int loadflags = IO_CHECK | IO_SCENE | IO_TREE | IO_BOUNDS, + rval, i, j, n; + char **portLp = photonPortList, **sensLp = photonSensorList, + **amblp = NULL, sbuf [MAXSTR], portFlags [2] = "\0\0"; + struct stat pmstat; /* Global program name */ progname = fixargv0(argv [0]); @@ -198,15 +230,17 @@ int main (int argc, char* argv []) ambincl = 1; amblp = amblist; } - if (argv [i][2] == 'I') { + if (isupper(argv [i][2])) { /* Add modifiers from file */ - rval = wordfile(amblp, AMBLLEN - (amblp - amblist), - getpath(argv [++i], - getrlibpath(), R_OK)); + rval = wordfile( + amblp, AMBLLEN - (amblp - amblist), + getpath(argv [++i], getrlibpath(), R_OK) + ); if (rval < 0) { - sprintf(errmsg, - "cannot open ambient include file \"%s\"", - argv [i]); + sprintf( + errmsg, "cannot open ambient include file \"%s\"", + argv [i] + ); error(SYSTEM, errmsg); } amblp += rval; @@ -225,15 +259,17 @@ int main (int argc, char* argv []) ambincl = 0; amblp = amblist; } - if (argv [i][2] == 'E') { + if (isupper(argv [i][2])) { /* Add modifiers from file */ - rval = wordfile(amblp, AMBLLEN - (amblp - amblist), - getpath(argv [++i], - getrlibpath(), R_OK)); + rval = wordfile( + amblp, AMBLLEN - (amblp - amblist), + getpath(argv [++i], getrlibpath(), R_OK) + ); if (rval < 0) { - sprintf(errmsg, - "cannot open ambient exclude file \"%s\"", - argv [i]); + sprintf( + errmsg, "cannot open ambient exclude file \"%s\"", + argv [i] + ); error(SYSTEM, errmsg); } amblp += rval; @@ -246,14 +282,14 @@ int main (int argc, char* argv []) break; case 'p': /* Pmap-specific */ - switch (argv [i][3]) { + switch (argv [i][3]) { case 'g': /* Global photon map */ check(4, "ss"); globalPmapParams.fileName = argv [++i]; globalPmapParams.distribTarget = parseMultiplier(argv [++i]); if (!globalPmapParams.distribTarget) - goto badopt; + goto badopt; globalPmapParams.minGather = globalPmapParams.maxGather = 0; break; @@ -286,7 +322,7 @@ int main (int argc, char* argv []) volumePmapParams.distribTarget = parseMultiplier(argv [++i]); if (!volumePmapParams.distribTarget) - goto badopt; + goto badopt; break; case 'd': /* Direct photon map */ @@ -331,56 +367,111 @@ int main (int argc, char* argv []) break; #endif -#ifdef PMAP_EKSPERTZ - case 'i': /* Add region of interest */ - check(4, "ffffff"); +#ifdef PMAP_EKSPERTZ + case 'i': /* Add rectangular region of interest */ + case 'I': /* Add spherical region of interest */ + check(4, isupper(argv [j=i][3]) ? "ffff" : "ffffff"); n = pmapNumROI; - pmapROI = realloc(pmapROI, - ++pmapNumROI * sizeof(PhotonMapROI)); + + pmapROI = realloc( + pmapROI, ++pmapNumROI * sizeof(PhotonMapROI) + ); if (!pmapROI) error(SYSTEM, "failed to allocate ROI"); - pmapROI [n].min [0] = atof(argv [++i]); - pmapROI [n].min [1] = atof(argv [++i]); - pmapROI [n].min [2] = atof(argv [++i]); - pmapROI [n].max [0] = atof(argv [++i]); - pmapROI [n].max [1] = atof(argv [++i]); - pmapROI [n].max [2] = atof(argv [++i]); - for (j = 0; j < 3; j++) - if (pmapROI [n].min [j] >= pmapROI [n].max [j]) - error(USER, "invalid region of interest " - "(swapped min/max?)"); + + pmapROI [n].pos [0] = atof(argv [++i]); + pmapROI [n].pos [1] = atof(argv [++i]); + pmapROI [n].pos [2] = atof(argv [++i]); + pmapROI [n].siz [0] = atof(argv [++i]); + + if (isupper(argv [j][3])) { + /* Spherical ROI; radius^2 */ + pmapROI [n].siz [0] *= pmapROI [n].siz [0]; + PMAP_ROI_SETSPHERE(pmapROI + n); + if (pmapROI [n].siz [0] <= FTINY) + error( + USER, + "region of interest has invalid radius" + ); + } + else { + /* Rectangular ROI */ + pmapROI [n].siz [1] = atof(argv [++i]); + pmapROI [n].siz [2] = atof(argv [++i]); + + for (j = 0; j < 3; j++) { + /* Pos at rectangle centre, siz symmetric */ + pmapROI [n].pos [j] = 0.5 * ( + pmapROI [n].pos [j] + pmapROI [n].siz [j] + ); + pmapROI [n].siz [j] = fabs( + pmapROI [n].siz [j] - pmapROI [n].pos [j] + ); + if (pmapROI [n].siz [j] <= FTINY) + error( + USER, + "region of interest has invalid size" + ); + } + } break; -#endif +#endif case 'P': /* Global photon precomp ratio */ check(4, "f"); finalGather = atof(argv [++i]); if (finalGather <= 0 || finalGather > 1) - error(USER, "global photon precomputation ratio " - "must be in range ]0, 1]"); + error( + USER, "global photon precomputation ratio " + "must be in range ]0, 1]" + ); break; case 'o': /* Photon port */ case 'O': - check(4, "s"); - if (argv [i][3] == 'O') { + /* Check for bad arg and length, taking into account + * default forward orientation if none specified, in + * order to maintain previous behaviour */ + check(argv [i][4] ? 5 : 4, "s"); + /* Get port orientation flags */ + check_tri( + 4, PMAP_PORTFWD, PMAP_PORTBWD, portFlags [0] + ); + + if (isupper(argv [i][3])) { /* Add port modifiers from file */ - rval = wordfile(portLp, - MAXSET - (portLp - photonPortList), - getpath(argv [++i], - getrlibpath(), R_OK)); + rval = wordfile( + portLp, MAXSET - (portLp - photonPortList), + getpath(argv [++i], getrlibpath(), R_OK) + ); if (rval < 0) { - sprintf(errmsg, - "cannot open photon port file %s", - argv [i]); + sprintf( + errmsg, "cannot open photon port file %s", + argv [i] + ); error(SYSTEM, errmsg); } - portLp += rval; + /* HACK: append port orientation flags to every + * modifier; note this requires reallocation */ + for (; rval--; portLp++) { + j = strlen(*portLp); + if (!(*portLp = realloc(*portLp, j + 2))) { + sprintf( + errmsg, + "cannot allocate photon port modifiers" + " from file %s", argv [i] + ); + error(SYSTEM, errmsg); + } + strcat(*portLp, portFlags); + } } else { - /* Add port modifier from next arg, mark end with - * NULL */ - *portLp++ = savqstr(argv [++i]); + /* Append port flags to port modifier, add to + * port list and mark of end list with NULL */ + strcpy(sbuf, argv [++i]); + strcat(sbuf, portFlags); + *portLp++ = savqstr(sbuf); *portLp = NULL; } break; @@ -393,17 +484,19 @@ int main (int argc, char* argv []) case 's': /* Antimatter sensor */ case 'S': check(4, "s"); - if (argv[i][3] == 'S') { + if (isupper(argv[i][3])) { /* Add sensor modifiers from file */ - rval = wordfile(sensLp, - MAXSET - (sensLp - photonSensorList), - getpath(argv [++i], - getrlibpath(), R_OK)); + rval = wordfile( + sensLp, MAXSET - (sensLp - photonSensorList), + getpath(argv [++i], getrlibpath(), R_OK) + ); if (rval < 0) { - sprintf(errmsg, - "cannot open antimatter sensor file %s", - argv [i]); - error(SYSTEM, errmsg); + sprintf( + errmsg, + "cannot open antimatter sensor file %s", + argv [i] + ); + error(SYSTEM, errmsg); } sensLp += rval; } @@ -482,17 +575,21 @@ int main (int argc, char* argv []) case 'm': /* Medium */ switch (argv[i][2]) { - case 'e': /* Eggs-tinction coefficient */ + case 'e': /* Eggs-tinction coefficient */ check(3, "fff"); - setcolor(cextinction, atof(argv [i + 1]), - atof(argv [i + 2]), atof(argv [i + 3])); + setcolor( + cextinction, atof(argv [i + 1]), + atof(argv [i + 2]), atof(argv [i + 3]) + ); i += 3; break; case 'a': /* Albedo */ check(3, "fff"); - setcolor(salbedo, atof(argv [i + 1]), - atof(argv [i + 2]), atof(argv [i + 3])); + setcolor( + salbedo, atof(argv [i + 1]), + atof(argv [i + 2]), atof(argv [i + 3]) + ); i += 3; break; @@ -512,11 +609,13 @@ int main (int argc, char* argv []) if (nproc > PMAP_MAXPROC) { nproc = PMAP_MAXPROC; - sprintf(errmsg, "too many parallel processes, clamping to " - "%d\n", nproc); + sprintf( + errmsg, "too many parallel processes, clamping to %d\n", + nproc + ); error(WARNING, errmsg); - } - break; + } + break; #endif case 't': /* Timer */ @@ -532,7 +631,7 @@ int main (int argc, char* argv []) case 'A': /* Angular source file */ check(2,"s"); angsrcfile = argv[++i]; - break; + break; #endif default: goto badopt; @@ -541,7 +640,8 @@ int main (int argc, char* argv []) /* Open diagnostics file */ if (diagFile) { - if (!freopen(diagFile, "a", stderr)) quit(2); + if (!freopen(diagFile, "a", stderr)) + quit(2); fprintf(stderr, "**************\n*** PID %5d: ", getpid()); printargs(argc, argv, stderr); putc('\n', stderr); @@ -561,15 +661,19 @@ int main (int argc, char* argv []) setPmapParam(photonMaps + i, pmapParams + i); /* Don't overwrite existing photon map unless clobbering enabled */ - if (photonMaps [i] && !stat(photonMaps [i] -> fileName, &pmstat) && - !clobber) { - sprintf(errmsg, "photon map file %s exists, not overwritten", - photonMaps [i] -> fileName); + if ( + photonMaps [i] && !stat(photonMaps [i] -> fileName, &pmstat) && + !clobber + ) { + sprintf( + errmsg, "photon map file %s exists, not overwritten", + photonMaps [i] -> fileName + ); error(USER, errmsg); } } - for (i = 0; i < NUM_PMAP_TYPES && !photonMaps [i]; i++); + for (i = 0; i < NUM_PMAP_TYPES && !photonMaps [i]; i++); if (i >= NUM_PMAP_TYPES) error(USER, "no photon maps specified"); @@ -604,3 +708,4 @@ badopt: #undef check_bool return 0; } +