/[MITgcm]/MITgcm_contrib/darwinview/src/darwin.c
ViewVC logotype

Contents of /MITgcm_contrib/darwinview/src/darwin.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3 - (show annotations) (download)
Fri Jul 13 18:47:12 2007 UTC (18 years ago) by marissa
Branch: MAIN
Changes since 1.2: +73 -52 lines
File MIME type: text/plain
modifications galore!

1 #include <GL/glut.h>
2 #include <stdlib.h>
3 #include <stdio.h>
4 #include <string.h>
5 #include <math.h>
6 #define WINDOW "image"
7 #define UP 101
8 #define DOWN 103
9 #define RIGHT 102
10 #define LEFT 100
11 #define MAX 200
12
13 int NX, NY, NZ;
14
15 void do_byteswap_f32( float arr[], int nel ), global(), local( int, int, int );
16 void readnames( char[] ), readarray( float[], char[], int ), readjet();
17 void TimerFunction( int ), bitmap( char[], int, int );
18
19 float data[MAX][MAX*MAX], mxval, mnval, jet[MAX][MAX];
20 float globalmx=0, globalmn=100;
21 int win[MAX], ilev=1, howmany, sets, count=0, glo=0, usr=0, anim=0, logscale=0, nonegs=1, endian=0;
22 char initfns[MAX][MAX], fns[MAX][MAX][MAX];
23
24 void menu(int value){ // called when menu is opened on right click
25
26 switch( value ){
27 case 1: usr=glo=0; // unset glo & usr, sets local max/min
28 glutPostRedisplay(); // recall display func with new values
29 break;
30 case 2: glo=1; // enables global max/min
31 usr=0; // unsets usr
32 mxval=globalmx; // sets max to globalmx
33 mnval=globalmn; // sets min to globalmn
34 glutPostRedisplay(); // recall display func with new values
35 break;
36 case 3: usr=1; // switch to user-set max/min
37 glo=0; // unset glo
38 printf( "Max=" ); scanf( "%f", &mxval ); // prompt user for new max
39 printf( "Min=" ); scanf( "%f", &mnval ); // prompt user for new min
40 glutPostRedisplay(); // recall display func with new values
41 break;
42 case 4: logscale=(logscale+1)%2; // switch log scale on/off
43 glutPostRedisplay();
44 break;
45 case 5: nonegs=(nonegs+1)%2; // switch allowance of negatives on/off
46 glutPostRedisplay();
47 break;
48 case 6: endian=(endian+1)%2; // switch between big/little endian
49 glutPostRedisplay();
50 break;
51 }
52 }
53 void display(void){ // called on glutPostRedisplay
54 int i, j, ioff, q;
55 float r, g, b, k, y;
56 double num, logmx, logmn;
57 char str[MAX];
58
59 for( q=0; q<sets; q++ ){ // runs display func for each subwindow
60 glutSetWindow( win[q] ); // sets which subwindow to display to
61 glClear( GL_COLOR_BUFFER_BIT ); // background to black
62 if( glo || usr ) // if global or user-set max/min
63 readarray( data[q], fns[q][count], ilev ); // read new array w/o calculating local max/min
64 else // if local max/min is set
65 local( q, count, ilev ); // read new array and calculate local max/min
66
67 if( logscale ){
68 if( usr ){
69 logmx=(double)mxval;
70 logmn=(double)mnval;
71 }
72 else{
73 logmx=log10( mxval );
74 logmn=log10( mnval );
75 }
76 }
77
78 ioff=0; // ioff will count both i&j b/c data is 1D
79 for( j=0; j<NY; j++ ){ // cycles through y values
80 for( i=0; i<NX; i++ ){ // cycles through x values
81 r=g=b=0; // set color values to black
82 if( data[q][ioff]==0 ); // if data=0, values stay black
83 else{
84 if( logscale ){
85 num=(double)data[q][ioff];
86 num=log10( num );
87 if( num<logmn ) num=0;
88 else{
89 if( num>logmx ) num=63;
90 else
91 num=63*( num-logmn )/( logmx-logmn );
92 }
93 }
94 else{
95 if( data[q][ioff]<mnval ) num=0; // if data is less than min, =min
96 else{
97 if( data[q][ioff]>mxval ) num=63; // if data is more than max, =max
98 else
99 num=63*( data[q][ioff]-mnval )/( mxval-mnval ); // scale num from 0-63 (not defined for 64)
100 }
101 }
102 r=jet[(int)num][0]; // set red val
103 g=jet[(int)num][1]; // set green val
104 b=jet[(int)num][2]; // set blue val
105 }
106
107 glColor3f( r, g, b ); // put r, g, b into effect
108 glRectf( i, j, i+1, j+1 ); // draws a square for data value
109 ioff++;
110 }
111 }
112 glColor3f( 1, 1, 1 ); // set color to white
113 glRectf( NX, 0, NX+1, NY+1 ); // draws a border
114 glRectf( 0, NY, NX, NY+1 ); // draws a border
115 for( i=0; i<64; i++ ){ // draws color bar
116 glColor3f( jet[i][0], jet[i][1], jet[i][2]); // sets color
117 k=(float)i; // turns i into a float
118 y=(float)NY/64; // sets height of rectangles
119 glRectf( NX+10, y*k, NX+20, (k+1)*y ); // draws rectangle
120 }
121 glColor3f( 1, 1, 1 ); // color to white
122
123 if( logscale )
124 sprintf( str, "%.2f", logmx );
125 else
126 sprintf( str, "%.1e", mxval ); // labels color bar with max val
127 bitmap( str, NX+2, NY-1 );
128
129 if( logscale )
130 sprintf( str, "%.2f", logmn );
131 else
132 sprintf( str, "%.1e", mnval ); // labels color bar with min val
133 bitmap( str, NX+2, 1 );
134
135 sprintf( str, "Level %d", ilev ); // labels current level
136 bitmap( str, 1, NY+3 );
137
138 sprintf( str, "Time %d", count+1 ); // labels current time
139 bitmap( str, 50, NY+3 );
140
141 if( glo ) // labels how max/min have been set
142 sprintf( str, "Global" ); // if glo is set, display Global
143 if( usr )
144 sprintf( str, "User-set" ); // if usr is set, display User-set
145 if( !usr && !glo )
146 sprintf( str, "Local" ); // else display Local
147 bitmap( str, NX+12, NY+3 );
148
149 if( anim ){ // tell user if autoplay is on
150 sprintf( str, "Autoplay" );
151 bitmap( str, NX-25, NY+3 );
152 }
153
154 if( logscale ){
155 sprintf( str, "Log Scale" ); // tell user if log scale is on
156 bitmap( str, NX-25, NY+10 );
157 }
158
159 bitmap( fns[q][count], 1, NY+10 ); // labels current file
160
161 glutSwapBuffers(); // double buffering set to animate smoothly
162 glFlush();
163 }
164 }
165
166 void bitmap( char str[], int x, int y ){ // called to display text onscreen
167 int i;
168
169 glRasterPos2f( x, y ); // set position of text
170 for( i=0; i<strlen( str ); i++) // display each character of str
171 glutBitmapCharacter( GLUT_BITMAP_HELVETICA_12, str[i] );
172 }
173
174 void key( unsigned char key, int x, int y ){ // called on key press
175 int i, tmp;
176
177 switch(key){
178 case 'q': exit(0); // quits on 'q'
179 break;
180 case 'r': count=0; // resets back to first time
181 ilev=1; // and first level
182 glutPostRedisplay();
183 break;
184 case 'a': anim=(anim+1)%2; // turns anim on/off
185 glutPostRedisplay();
186 break;
187 }
188 }
189
190 void TimerFunction( int value ){ // called when anim is set and arrow key is pressed
191 int i;
192
193 switch(value){ // increments in the correct direction
194 case DOWN : if( ilev<NZ )
195 ilev++; // if down arrow pressed, move down a level
196 break;
197 case UP : if( ilev>1 )
198 ilev--; // if up arrow is pressed, move up a level
199 break;
200 case LEFT : if( count>0 )
201 count--; // if left arrow is pressed, move back one time step
202 break;
203 case RIGHT: if( count<howmany-1 )
204 count++; // if right arrow is pressed, moves forward one time step
205 break;
206 }
207
208 glutPostRedisplay();
209
210 if (anim )
211 switch( value ){
212 case DOWN : if( ilev==NZ ) ilev=1; // if end reached, restart
213 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
214 break;
215 case UP : if( ilev==1 ) ilev=NZ; // if end reached, restart
216 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
217 break;
218 case LEFT : if( count==0 ) count=howmany-1; // if end reached, restart
219 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
220 break;
221 case RIGHT: if( count==howmany-1 ) count=0; // if end reached, restart
222 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
223 break;
224 }
225 }
226
227 void specialkey( int key, int x, int y ){
228 int i;
229
230 if( anim ) // if animation is set, call the timer function
231 glutTimerFunc( 100, TimerFunction, key); // to scroll automatically
232
233 switch(key){
234 case DOWN : if( ilev<NZ ) // if you haven't reached the bottom
235 ilev++; // keep going down
236 break;
237 case UP : if( ilev>1 ) // if you haven't reached the top
238 ilev--; // keep going up
239 break;
240 case RIGHT : if( count<howmany-1 ) // if you haven't reached the last file
241 count++; // keep going right
242 break;
243 case LEFT : if( count>0 ) // if you haven't reached the first file
244 count--; // keep going left
245 break;
246 }
247 glutPostRedisplay();
248 }
249
250 void global(){ // calculates the max/min for the total data set
251 FILE* fp;
252 int h, i, j;
253 for( h=0; h<sets; h++) // cycles through each window
254 for( i=0; i<howmany; i++ ) // cycles through each time
255 for( j=0; j<NZ; j++ ){ // cycles through each level for each file
256 local( h, i, j ); // calculates local max/min for specific data set
257 if( mxval > globalmx ) globalmx = mxval; // sets highest value to globalmx
258 if( mnval < globalmn ) globalmn = mnval; // sets lowest value to globalmn
259 }
260 }
261
262 void local( int i, int time, int lev ){ // calculates local max/min
263 int j;
264
265 mxval=0;
266 mnval=100;
267 readarray( data[i], fns[i][time], lev ); // read new array of data
268 for( j=0; j<NX*NY; j++ ){
269 if( data[i][j] > mxval )
270 mxval=data[i][j]; // set largest val to mxval
271 if( data[i][j] < mnval && data[i][j]!=0 )
272 mnval=data[i][j]; // set smallest positive val to mnval
273 }
274 }
275
276 void readnames( char filename[] ){ // reads in list of filenames
277 FILE* fp;
278 int i=0, j=0;
279
280 fp=fopen( filename, "r" ); // opens list of filenames
281 while( !feof(fp) ){ // reads until the end of the file
282 fscanf( fp, "%s", initfns[i] ); // places filename into an array of strings
283 i++; // counts how many filenames there are
284 }
285 fclose( fp ); // close file
286 sets=i-1; // saves number of initial filenames
287
288 for(i=0; i<sets; i++){ // goes through each read-in filename
289 fp=fopen( initfns[i], "r" ); // opens each filename
290 j=0;
291 while( !feof(fp) ){ // reads in filenames from each filename
292 fscanf( fp, "%s", fns[i][j]);
293 j++;
294 }
295 fclose(fp); // close file
296 }
297 howmany=j-1; // saves number of data filenames
298 }
299
300 void readjet(){ //reads in color scale values
301 FILE* fp;
302 int i, j;
303
304 fp=fopen( "jet.dat", "r" ); // opens file containing values
305 for( i=0; i<64; i++ ) // reads in 64 sets of r, g, b values
306 for( j=0; j<3; j++ )
307 fscanf( fp, "%f", &jet[i][j] );
308 fclose( fp ); // closes file
309 }
310
311 void readarray( float arr[], char filename[], int il ){ // reads new data
312 FILE* fp;
313 int i;
314
315 fp=fopen( filename, "r" ); // opens the file containing data
316 fseek( fp, (il-1)*NX*NY*4, SEEK_SET ); // seeks to the correct place using ilev
317 fread( arr, sizeof( arr[0] ), NX*NY, fp ); // reads in data to fill one level
318 fclose( fp ); // close file
319
320 if( nonegs )
321 for( i=0; i<NX*NY; i++ )
322 if( arr[i] < 0 )
323 arr[i] = pow(10, -20); // sets negative values to 10^-20
324
325 if( endian )
326 do_byteswap_f32( arr, NX*NY ); // switches endian
327 }
328
329 void do_byteswap_f32( float arr[], int nel ){ // switches endian
330
331 int i;
332 char src[4], trg[4];
333
334 for( i=0; i<nel; i++ ){
335 memcpy( src, &(arr[i]), 4 );
336 trg[0]=src[3];
337 trg[1]=src[2];
338 trg[2]=src[1];
339 trg[3]=src[0];
340 memcpy( &(arr[i]), trg, 4 );
341 }
342 }
343
344 void black(){
345 glClear( GL_COLOR_BUFFER_BIT );
346 glutSwapBuffers();
347 glFlush();
348 }
349
350 int main( int argc, char *argv[] ){
351 int i, setsx, setsy, tmpx, tmpy, winx, winy, parent;
352 char filename[MAX];
353
354 sscanf( argv[1], "%dx%d", &winx, &winy ); // reads screen resolution from command line
355 winy-=60; winx-=20; // adjusts resolution so edges won't get cut off
356
357 printf( "Please enter x, y and z dimensions.\n" );
358 scanf( "%d %d %d", &NX, &NY, &NZ ); // prompts user for NX, NY, NZ
359 printf( "Please enter filename.\n" );
360 scanf( "%s", filename ); // prompts user for initial filenames
361 printf( "Please enter dimensions of data sets.\n" );
362 scanf( "%dx%d", &setsx, &setsy ); // prompts user for dimensions of subwindows
363
364 readjet(); // stores color values
365 readnames( filename ); // gets list of filenames to read from
366 global(); // calculates max and min for all data
367
368 glutInit( &argc, argv );
369 glutInitDisplayMode( GLUT_RGB | GLUT_DOUBLE ); // sets rgb mode and double buffering
370 glutInitWindowSize( winx, winy ); // parent window will cover screen
371 glutInitWindowPosition( 10, 10 ); // location of parent window
372 parent=glutCreateWindow( WINDOW ); // creates parent window
373
374 glClearColor( 0, 0, 0, 0 ); // sets clear color to black
375 gluOrtho2D( 0, winx , winy, 0 ); // sets(0,0) as top left corner
376 glutDisplayFunc( display );
377 glutKeyboardFunc( key ); // called on key press
378 glutSpecialFunc( specialkey ); // called on special key press (arrow keys)
379
380
381 for( i=0; i<setsx*setsy; i++ ){
382 tmpx = (i%setsx)*(winx/setsx); // x coordinate of top left corner of subwindow
383 tmpy = (i/setsx)*(winy/setsy); // y coordinate of top left corner of subwindow
384
385 win[i]=glutCreateSubWindow( parent, tmpx, tmpy, winx/setsx, winy/setsy ); // creates subwindow
386 gluOrtho2D( 0, NX+35, 0, NY+15 ); // sets how data is mapped to subwindow
387 glutKeyboardFunc( key ); // called on key press
388 glutSpecialFunc( specialkey ); // called on special key press (arrow keys)
389 if( i >= sets ) //
390 glutDisplayFunc( black );
391 else
392 glutDisplayFunc( display ); // sets display func for subwindow
393
394
395 glutCreateMenu( menu ); // adds a menu
396 glutAddMenuEntry( "Local Color Scale", 1 ); // adds a menu entry
397 glutAddMenuEntry( "Global Color Scale", 2 ); // adds a menu entry
398 glutAddMenuEntry( "User-Set Color Scale", 3 ); // adds a menu entry
399 glutAddMenuEntry( "Log Scale (on/off)", 4 ); // adds a menu entry
400 glutAddMenuEntry( "Allow Negatives (on/off)", 5 ); // adds a menu entry
401 glutAddMenuEntry( "Switch Endian (big/little) ", 6); // adds a menu entry
402 glutAttachMenu( GLUT_RIGHT_BUTTON ); // menu called on right click
403 }
404
405 glutMainLoop(); // begin processing events
406 return 0;
407 }
408

  ViewVC Help
Powered by ViewVC 1.1.22