ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/gensky.c
(Generate patch)

Comparing ray/src/gen/gensky.c (file contents):
Revision 2.13 by greg, Fri Nov 5 17:25:34 1993 UTC vs.
Revision 2.22 by schorsch, Sun Nov 16 10:29:38 2003 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1992 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   *  gensky.c - program to generate sky functions.
6   *              Our zenith is along the Z-axis, the X-axis
# Line 14 | Line 11 | static char SCCSid[] = "$SunId$ LBL";
11   */
12  
13   #include  <stdio.h>
14 <
14 > #include  <stdlib.h>
15 > #include  <string.h>
16   #include  <math.h>
17 + #include  <ctype.h>
18  
19   #include  "color.h"
20  
21 < extern char  *strcpy(), *strcat(), *malloc();
22 < extern double  stadj(), sdec(), sazi(), salt();
21 > extern int jdate(int month, int day);
22 > extern double stadj(int  jd);
23 > extern double sdec(int  jd);
24 > extern double salt(double sd, double st);
25 > extern double sazi(double sd, double st);
26  
27 < #define  PI             3.141592654
27 > #ifndef  PI
28 > #define  PI             3.14159265358979323846
29 > #endif
30  
31   #define  DOT(v1,v2)     (v1[0]*v2[0]+v1[1]*v2[1]+v1[2]*v2[2])
32  
# Line 31 | Line 35 | extern double  stadj(), sdec(), sazi(), salt();
35   #define  S_UNIF         3
36   #define  S_INTER        4
37  
38 < #define  overcast       (skytype==S_OVER|skytype==S_UNIF)
38 > #define  overcast       ((skytype==S_OVER)|(skytype==S_UNIF))
39  
40   double  normsc();
41                                          /* sun calculation constants */
42   extern double  s_latitude;
43   extern double  s_longitude;
44   extern double  s_meridian;
45 +
46 + #undef  toupper
47 + #define  toupper(c)     ((c) & ~0x20)   /* ASCII trick to convert case */
48 +
49 +                                        /* European and North American zones */
50 + struct {
51 +        char    zname[8];       /* time zone name (all caps) */
52 +        float   zmer;           /* standard meridian */
53 + } tzone[] = {
54 +        {"YST", 135}, {"YDT", 120},
55 +        {"PST", 120}, {"PDT", 105},
56 +        {"MST", 105}, {"MDT", 90},
57 +        {"CST", 90}, {"CDT", 75},
58 +        {"EST", 75}, {"EDT", 60},
59 +        {"AST", 60}, {"ADT", 45},
60 +        {"NST", 52.5}, {"NDT", 37.5},
61 +        {"GMT", 0}, {"BST", -15},
62 +        {"CET", -15}, {"CEST", -30},
63 +        {"EET", -30}, {"EEST", -45},
64 +        {"AST", -45}, {"ADT", -60},
65 +        {"GST", -60}, {"GDT", -75},
66 +        {"IST", -82.5}, {"IDT", -97.5},
67 +        {"JST", -135}, {"NDT", -150},
68 +        {"NZST", -180}, {"NZDT", -195},
69 +        {"", 0}
70 + };
71                                          /* required values */
72   int  month, day;                                /* date */
73   double  hour;                                   /* time */
# Line 60 | Line 90 | int    u_solar = 0;                            /* -1=irradiance, 1=radiance */
90   char  *progname;
91   char  errmsg[128];
92  
93 + void computesky(void);
94 + void printsky(void);
95 + void printdefaults(void);
96 + void userror(char  *msg);
97 + double normsc(void);
98 + void cvthour(char  *hs);
99 + void printhead(register int  ac, register char  **av);
100  
101 +
102 + int
103   main(argc, argv)
104   int  argc;
105   char  *argv[];
# Line 85 | Line 124 | char  *argv[];
124                  day = atoi(argv[2]);
125                  if (day < 1 || day > 31)
126                          userror("bad day");
127 <                hour = atof(argv[3]);
89 <                if (hour < 0 || hour >= 24)
90 <                        userror("bad hour");
91 <                tsolar = argv[3][0] == '+';
127 >                cvthour(argv[3]);
128          }
129          for (i = 4; i < argc; i++)
130                  if (argv[i][0] == '-' || argv[i][0] == '+')
# Line 104 | Line 140 | char  *argv[];
140                                  break;
141                          case 'c':
142                                  skytype = S_OVER;
107 –                                dosun = 0;
143                                  break;
144                          case 'u':
145                                  skytype = S_UNIF;
111 –                                dosun = 0;
146                                  break;
147                          case 'i':
148                                  skytype = S_INTER;
# Line 141 | Line 175 | char  *argv[];
175                  else
176                          userror("bad option");
177  
178 <        if (fabs(s_meridian-s_longitude) > 30*PI/180)
178 >        if (fabs(s_meridian-s_longitude) > 45*PI/180)
179                  fprintf(stderr,
180          "%s: warning: %.1f hours btwn. standard meridian and longitude\n",
181                          progname, (s_longitude-s_meridian)*12/PI);
# Line 150 | Line 184 | char  *argv[];
184  
185          computesky();
186          printsky();
187 +
188 +        exit(0);
189   }
190  
191  
192 < computesky()                    /* compute sky parameters */
192 > void
193 > computesky(void)                        /* compute sky parameters */
194   {
195          double  normfactor;
196                                          /* compute solar direction */
# Line 169 | Line 206 | computesky()                   /* compute sky parameters */
206                          st = hour + stadj(jd);
207                  altitude = salt(sd, st);
208                  azimuth = sazi(sd, st);
209 +                printf("# Local solar time: %.2f\n", st);
210                  printf("# Solar altitude and azimuth: %.1f %.1f\n",
211                                  180./PI*altitude, 180./PI*azimuth);
212          }
# Line 221 | Line 259 | computesky()                   /* compute sky parameters */
259                                          /* Compute horizontal radiance */
260          groundbr = zenithbr*normfactor;
261          printf("# Ground ambient level: %.1f\n", groundbr);
262 <        if (sundir[2] > 0.0 && (!u_solar || solarbr > 0.0)) {
262 >        if (!overcast && sundir[2] > 0.0 && (!u_solar || solarbr > 0.0)) {
263                  if (u_solar == -1)
264                          solarbr /= 6e-5*sundir[2];
265                  else if (u_solar == 0) {
# Line 237 | Line 275 | computesky()                   /* compute sky parameters */
275   }
276  
277  
278 < printsky()                      /* print out sky */
278 > void
279 > printsky(void)                  /* print out sky */
280   {
281          if (dosun) {
282                  printf("\nvoid light solar\n");
# Line 260 | Line 299 | printsky()                     /* print out sky */
299   }
300  
301  
302 < printdefaults()                 /* print default values */
302 > void
303 > printdefaults(void)                     /* print default values */
304   {
305          switch (skytype) {
306          case S_OVER:
# Line 293 | Line 333 | printdefaults()                        /* print default values */
333   }
334  
335  
336 < userror(msg)                    /* print usage error and quit */
337 < char  *msg;
336 > void
337 > userror(                        /* print usage error and quit */
338 >        char  *msg
339 > )
340   {
341          if (msg != NULL)
342                  fprintf(stderr, "%s: Use error - %s\n", progname, msg);
# Line 306 | Line 348 | char  *msg;
348  
349  
350   double
351 < normsc()                        /* compute normalization factor (E0*F2/L0) */
351 > normsc(void)                    /* compute normalization factor (E0*F2/L0) */
352   {
353          static double  nfc[2][5] = {
354                                  /* clear sky approx. */
# Line 328 | Line 370 | normsc()                       /* compute normalization factor (E0*F2/L0)
370   }
371  
372  
373 < printhead(ac, av)               /* print command header */
374 < register int  ac;
375 < register char  **av;
373 > void
374 > cvthour(                        /* convert hour string */
375 >        char  *hs
376 > )
377 > {
378 >        register char  *cp = hs;
379 >        register int    i, j;
380 >
381 >        if ( (tsolar = *cp == '+') ) cp++;              /* solar time? */
382 >        while (isdigit(*cp)) cp++;
383 >        if (*cp == ':')
384 >                hour = atoi(hs) + atoi(++cp)/60.0;
385 >        else {
386 >                hour = atof(hs);
387 >                if (*cp == '.') cp++;
388 >        }
389 >        while (isdigit(*cp)) cp++;
390 >        if (!*cp)
391 >                return;
392 >        if (tsolar || !isalpha(*cp)) {
393 >                fprintf(stderr, "%s: bad time format: %s\n", progname, hs);
394 >                exit(1);
395 >        }
396 >        i = 0;
397 >        do {
398 >                for (j = 0; cp[j]; j++)
399 >                        if (toupper(cp[j]) != tzone[i].zname[j])
400 >                                break;
401 >                if (!cp[j] && !tzone[i].zname[j]) {
402 >                        s_meridian = tzone[i].zmer * (PI/180);
403 >                        return;
404 >                }
405 >        } while (tzone[i++].zname[0]);
406 >
407 >        fprintf(stderr, "%s: unknown time zone: %s\n", progname, cp);
408 >        fprintf(stderr, "Known time zones:\n\t%s", tzone[0].zname);
409 >        for (i = 1; tzone[i].zname[0]; i++)
410 >                fprintf(stderr, " %s", tzone[i].zname);
411 >        putc('\n', stderr);
412 >        exit(1);
413 > }
414 >
415 >
416 > void
417 > printhead(              /* print command header */
418 >        register int  ac,
419 >        register char  **av
420 > )
421   {
422          putchar('#');
423          while (ac--) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines