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

Comparing src/gen/gensky.c (file contents):
Revision 2.14 by greg, Mon Jan 31 12:53:49 1994 UTC vs.
Revision 2.24 by greg, Wed Jul 26 17:15:11 2006 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 48 | Line 78 | int  skytype = S_CLEAR;                                /* sky type */
78   int  dosun = 1;
79   double  zenithbr = 0.0;
80   int     u_zenith = 0;                           /* -1=irradiance, 1=radiance */
81 < double  turbidity = 2.75;
81 > double  turbidity = 2.45;
82   double  gprefl = 0.2;
83                                          /* computed values */
84   double  sundir[3];
# 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 + int 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[];
106   {
107 +        int  got_meridian = 0;
108          int  i;
109  
110          progname = argv[0];
# Line 85 | Line 125 | char  *argv[];
125                  day = atoi(argv[2]);
126                  if (day < 1 || day > 31)
127                          userror("bad day");
128 <                hour = atof(argv[3]);
89 <                if (hour < 0 || hour >= 24)
90 <                        userror("bad hour");
91 <                tsolar = argv[3][0] == '+';
128 >                got_meridian = cvthour(argv[3]);
129          }
130          for (i = 4; i < argc; i++)
131                  if (argv[i][0] == '-' || argv[i][0] == '+')
# Line 130 | Line 167 | char  *argv[];
167                                  s_longitude = atof(argv[++i]) * (PI/180);
168                                  break;
169                          case 'm':
170 +                                if (got_meridian) {
171 +                                        ++i;
172 +                                        break;          /* time overrides */
173 +                                }
174                                  s_meridian = atof(argv[++i]) * (PI/180);
175                                  break;
176                          default:
# Line 139 | Line 180 | char  *argv[];
180                  else
181                          userror("bad option");
182  
183 <        if (fabs(s_meridian-s_longitude) > 30*PI/180)
183 >        if (fabs(s_meridian-s_longitude) > 45*PI/180)
184                  fprintf(stderr,
185          "%s: warning: %.1f hours btwn. standard meridian and longitude\n",
186                          progname, (s_longitude-s_meridian)*12/PI);
# Line 148 | Line 189 | char  *argv[];
189  
190          computesky();
191          printsky();
192 +
193 +        exit(0);
194   }
195  
196  
197 < computesky()                    /* compute sky parameters */
197 > void
198 > computesky(void)                        /* compute sky parameters */
199   {
200          double  normfactor;
201                                          /* compute solar direction */
# Line 167 | Line 211 | computesky()                   /* compute sky parameters */
211                          st = hour + stadj(jd);
212                  altitude = salt(sd, st);
213                  azimuth = sazi(sd, st);
214 +                printf("# Local solar time: %.2f\n", st);
215                  printf("# Solar altitude and azimuth: %.1f %.1f\n",
216                                  180./PI*altitude, 180./PI*azimuth);
217          }
# Line 235 | Line 280 | computesky()                   /* compute sky parameters */
280   }
281  
282  
283 < printsky()                      /* print out sky */
283 > void
284 > printsky(void)                  /* print out sky */
285   {
286          if (dosun) {
287                  printf("\nvoid light solar\n");
# Line 258 | Line 304 | printsky()                     /* print out sky */
304   }
305  
306  
307 < printdefaults()                 /* print default values */
307 > void
308 > printdefaults(void)                     /* print default values */
309   {
310          switch (skytype) {
311          case S_OVER:
# Line 291 | Line 338 | printdefaults()                        /* print default values */
338   }
339  
340  
341 < userror(msg)                    /* print usage error and quit */
342 < char  *msg;
341 > void
342 > userror(                        /* print usage error and quit */
343 >        char  *msg
344 > )
345   {
346          if (msg != NULL)
347                  fprintf(stderr, "%s: Use error - %s\n", progname, msg);
# Line 304 | Line 353 | char  *msg;
353  
354  
355   double
356 < normsc()                        /* compute normalization factor (E0*F2/L0) */
356 > normsc(void)                    /* compute normalization factor (E0*F2/L0) */
357   {
358          static double  nfc[2][5] = {
359                                  /* clear sky approx. */
# Line 326 | Line 375 | normsc()                       /* compute normalization factor (E0*F2/L0)
375   }
376  
377  
378 < printhead(ac, av)               /* print command header */
379 < register int  ac;
380 < register char  **av;
378 > int
379 > cvthour(                        /* convert hour string */
380 >        char  *hs
381 > )
382 > {
383 >        register char  *cp = hs;
384 >        register int    i, j;
385 >
386 >        if ( (tsolar = *cp == '+') ) cp++;              /* solar time? */
387 >        while (isdigit(*cp)) cp++;
388 >        if (*cp == ':')
389 >                hour = atoi(hs) + atoi(++cp)/60.0;
390 >        else {
391 >                hour = atof(hs);
392 >                if (*cp == '.') cp++;
393 >        }
394 >        while (isdigit(*cp)) cp++;
395 >        if (!*cp)
396 >                return(0);
397 >        if (tsolar || !isalpha(*cp)) {
398 >                fprintf(stderr, "%s: bad time format: %s\n", progname, hs);
399 >                exit(1);
400 >        }
401 >        i = 0;
402 >        do {
403 >                for (j = 0; cp[j]; j++)
404 >                        if (toupper(cp[j]) != tzone[i].zname[j])
405 >                                break;
406 >                if (!cp[j] && !tzone[i].zname[j]) {
407 >                        s_meridian = tzone[i].zmer * (PI/180);
408 >                        return(1);
409 >                }
410 >        } while (tzone[i++].zname[0]);
411 >
412 >        fprintf(stderr, "%s: unknown time zone: %s\n", progname, cp);
413 >        fprintf(stderr, "Known time zones:\n\t%s", tzone[0].zname);
414 >        for (i = 1; tzone[i].zname[0]; i++)
415 >                fprintf(stderr, " %s", tzone[i].zname);
416 >        putc('\n', stderr);
417 >        exit(1);
418 > }
419 >
420 >
421 > void
422 > printhead(              /* print command header */
423 >        register int  ac,
424 >        register char  **av
425 > )
426   {
427          putchar('#');
428          while (ac--) {

Diff Legend

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