1 |
root |
1.1 |
/* $Id: maps.c,v 1.3 2002/10/29 10:24:53 garbled Exp $ */ |
2 |
|
|
|
3 |
|
|
/* This program will generate ppm files from each of the weathermaps. |
4 |
|
|
Mostly for debugging, but curious DM's might find it useful to see |
5 |
|
|
the weather. |
6 |
|
|
*/ |
7 |
|
|
|
8 |
|
|
#include <stdio.h> |
9 |
|
|
#ifndef MIN |
10 |
|
|
#define MIN(x,y) ((x)<(y)?(x):(y)) |
11 |
|
|
#endif |
12 |
|
|
#ifndef MAX |
13 |
|
|
#define MAX(x,y) ((x)>(y)?(x):(y)) |
14 |
|
|
#endif |
15 |
|
|
|
16 |
|
|
int |
17 |
|
|
main() |
18 |
|
|
{ |
19 |
|
|
int map[100][100]; |
20 |
|
|
int x, y; |
21 |
|
|
int n, i, j, k, l, z, w, r, a; |
22 |
|
|
FILE *fp, *lp; |
23 |
|
|
int junk; |
24 |
|
|
char fn[6]; |
25 |
|
|
|
26 |
|
|
|
27 |
|
|
sprintf(fn, "winddirmap"); |
28 |
|
|
lp = fopen(fn, "r"); |
29 |
|
|
fp = fopen("winddirmap.ppm", "w"); |
30 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
31 |
|
|
for (j=0; j < 100; j++) { |
32 |
|
|
for (k=0; k < 100; k++) { |
33 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
34 |
|
|
junk = map[j][k]; |
35 |
|
|
fprintf(lp, "%d ", map[j][k]); |
36 |
|
|
switch (junk) { |
37 |
|
|
case 0: fprintf(fp, "255 255 255 "); break; |
38 |
|
|
case 1: fprintf(fp, "0 0 0 "); break; |
39 |
|
|
case 2: fprintf(fp, "0 0 127 "); break; |
40 |
|
|
case 3: fprintf(fp, "0 0 255 "); break; |
41 |
|
|
case 4: fprintf(fp, "127 127 255 "); break; |
42 |
|
|
case 5: fprintf(fp, "127 127 127 "); break; |
43 |
|
|
case 6: fprintf(fp, "127 255 127 "); break; |
44 |
|
|
case 7: fprintf(fp, "0 255 0 "); break; |
45 |
|
|
case 8: fprintf(fp, "0 127 0 "); break; |
46 |
|
|
} |
47 |
|
|
fprintf(fp, "\n"); |
48 |
|
|
fscanf(lp, "\n"); |
49 |
|
|
} |
50 |
|
|
} |
51 |
|
|
fclose(fp); |
52 |
|
|
fclose(lp); |
53 |
|
|
|
54 |
|
|
sprintf(fn, "pressuremap"); |
55 |
|
|
lp = fopen(fn, "r"); |
56 |
|
|
fp = fopen("pressuremap.ppm", "w"); |
57 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
58 |
|
|
for (j=0; j < 100; j++) { |
59 |
|
|
for (k=0; k < 100; k++) { |
60 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
61 |
|
|
junk = map[j][k]; |
62 |
|
|
fprintf(lp, "%d ", map[j][k]); |
63 |
|
|
if (junk < 1000) |
64 |
|
|
fprintf(fp, "0 0 %d ", 255-(1000-junk)*3); |
65 |
|
|
else |
66 |
|
|
fprintf(fp, "0 %d 0 ", 255+(1000-junk)*3); |
67 |
|
|
fprintf(fp, "\n"); |
68 |
|
|
fscanf(lp, "\n"); |
69 |
|
|
} |
70 |
|
|
} |
71 |
|
|
fclose(fp); |
72 |
|
|
fclose(lp); |
73 |
|
|
|
74 |
|
|
|
75 |
|
|
sprintf(fn, "windspeedmap"); |
76 |
|
|
lp = fopen(fn, "r"); |
77 |
|
|
fp = fopen("windspeedmap.ppm", "w"); |
78 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
79 |
|
|
for (j=0; j < 100; j++) { |
80 |
|
|
for (k=0; k < 100; k++) { |
81 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
82 |
|
|
junk = map[j][k]; |
83 |
|
|
fprintf(lp, "%d ", map[j][k]); |
84 |
|
|
fprintf(fp, "0 %d 0 ", junk*5); |
85 |
|
|
fprintf(fp, "\n"); |
86 |
|
|
fscanf(lp, "\n"); |
87 |
|
|
} |
88 |
|
|
} |
89 |
|
|
fclose(fp); |
90 |
|
|
fclose(lp); |
91 |
|
|
|
92 |
|
|
|
93 |
|
|
sprintf(fn, "humidmap"); |
94 |
|
|
lp = fopen(fn, "r"); |
95 |
|
|
fp = fopen("humidmap.ppm", "w"); |
96 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
97 |
|
|
for (j=0; j < 100; j++) { |
98 |
|
|
for (k=0; k < 100; k++) { |
99 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
100 |
|
|
junk = map[j][k]; |
101 |
|
|
fprintf(lp, "%d ", map[j][k]); |
102 |
|
|
fprintf(fp, "0 0 %d ", 255-(junk*2)); |
103 |
|
|
fprintf(fp, "\n"); |
104 |
|
|
fscanf(lp, "\n"); |
105 |
|
|
} |
106 |
|
|
} |
107 |
|
|
fclose(fp); |
108 |
|
|
fclose(lp); |
109 |
|
|
|
110 |
|
|
|
111 |
|
|
sprintf(fn, "temperaturemap"); |
112 |
|
|
lp = fopen(fn, "r"); |
113 |
|
|
fp = fopen("temperaturemap.ppm", "w"); |
114 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
115 |
|
|
for (j=0; j < 100; j++) { |
116 |
|
|
for (k=0; k < 100; k++) { |
117 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
118 |
|
|
junk = map[j][k]; |
119 |
|
|
fprintf(lp, "%d ", map[j][k]); |
120 |
|
|
if (junk < 0) |
121 |
|
|
fprintf(fp, "0 0 %d ", 255+junk*5); |
122 |
|
|
else |
123 |
|
|
fprintf(fp, "0 %d 0 ", junk*5); |
124 |
|
|
fprintf(fp, "\n"); |
125 |
|
|
fscanf(lp, "\n"); |
126 |
|
|
} |
127 |
|
|
} |
128 |
|
|
fclose(fp); |
129 |
|
|
fclose(lp); |
130 |
|
|
|
131 |
|
|
sprintf(fn, "skymap"); |
132 |
|
|
lp = fopen(fn, "r"); |
133 |
|
|
if (lp == NULL) |
134 |
|
|
exit(0); |
135 |
|
|
fp = fopen("skymap.ppm", "w"); |
136 |
|
|
fprintf(fp, "P3 %d %d 255\n", 100, 100); |
137 |
|
|
for (j=0; j < 100; j++) { |
138 |
|
|
for (k=0; k < 100; k++) { |
139 |
|
|
fscanf(lp, "%d ", &map[j][k]); |
140 |
|
|
junk = map[j][k]; |
141 |
|
|
fprintf(lp, "%d ", map[j][k]); |
142 |
|
|
switch (junk) { |
143 |
|
|
case 0: fprintf(fp, "0 0 255 "); break; |
144 |
|
|
case 1: fprintf(fp, "230 230 230 "); break; |
145 |
|
|
case 2: fprintf(fp, "170 170 170 "); break; |
146 |
|
|
case 3: fprintf(fp, "120 120 120 "); break; |
147 |
|
|
case 4: fprintf(fp, "80 80 80 "); break; |
148 |
|
|
case 5: fprintf(fp, "40 40 40 "); break; |
149 |
|
|
case 6: fprintf(fp, "10 10 10 "); break; |
150 |
|
|
case 7: fprintf(fp, "0 255 0 "); break; |
151 |
|
|
case 8: fprintf(fp, "255 0 0 "); break; |
152 |
|
|
case 13: fprintf(fp, "230 230 255 "); break; |
153 |
|
|
case 14: fprintf(fp, "170 170 255 "); break; |
154 |
|
|
case 15: fprintf(fp, "120 120 255 "); break; |
155 |
|
|
case 16: fprintf(fp, "80 80 255 "); break; |
156 |
|
|
} |
157 |
|
|
fprintf(fp, "\n"); |
158 |
|
|
fscanf(lp, "\n"); |
159 |
|
|
} |
160 |
|
|
} |
161 |
|
|
fclose(fp); |
162 |
|
|
fclose(lp); |
163 |
|
|
|
164 |
|
|
} |