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

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

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

revision 1.3 by marissa, Fri Jul 13 18:47:12 2007 UTC revision 1.6 by marissa, Tue Jul 24 16:53:55 2007 UTC
# Line 8  Line 8 
8  #define DOWN 103  #define DOWN 103
9  #define RIGHT 102  #define RIGHT 102
10  #define LEFT 100  #define LEFT 100
11  #define MAX 200  #define MAX 700
12    
13  int NX, NY, NZ;  int NX, NY, NZ;
14    
15  void do_byteswap_f32( float arr[], int nel ), global(), local( int, int, int );  void do_byteswap_f32( float arr[], int nel ), global(), local( int, int, int );
16  void readnames( char[] ), readarray( float[], char[], int ), readjet();  void readnames( char[] ), readarray( float[], char[], int ), readjet(), readxz( float[], char[] );
17    void readyz( float[], char[] );
18  void TimerFunction( int ), bitmap( char[], int, int );  void TimerFunction( int ), bitmap( char[], int, int );
19    
20  float data[MAX][MAX*MAX], mxval, mnval, jet[MAX][MAX];  float data[MAX][MAX*MAX], mxval, mnval, jet[64][3];
21  float globalmx=0, globalmn=100;  float globalmx=0, globalmn=100;
22  int win[MAX], ilev=1, howmany, sets, count=0, glo=0, usr=0, anim=0, logscale=0, nonegs=1, endian=0;  int win[MAX], ilev=1, howmany, sets, count=0, glo=0, usr=0, anim=0, logscale=0, xz=0, nonegs=1, endian=0;
23    int xmax, ymax, yoffset=0, xoffset=0, yz=0;
24  char initfns[MAX][MAX], fns[MAX][MAX][MAX];  char initfns[MAX][MAX], fns[MAX][MAX][MAX];
25    
26  void menu(int value){           // called when menu is opened on right click  void menu( int value ){           // called when menu is opened on right click
27    
28   switch( value ){   switch( value ){
29    case 1: usr=glo=0;            // unset glo & usr, sets local max/min    case 1: usr=glo=0;            // unset glo & usr, sets local max/min
# Line 50  void menu(int value){           // calle Line 52  void menu(int value){           // calle
52            break;            break;
53   }   }
54  }  }
55  void display(void){                 // called on glutPostRedisplay  void display(){                 // called on glutPostRedisplay
56   int i, j, ioff, q;   int i, j, ioff, q;
57   float r, g, b, k, y;   float r, g, b, k, y;
58   double num, logmx, logmn;   double num, logmx, logmn;
59   char str[MAX];   char str[MAX];
60    
61   for( q=0; q<sets; q++ ){    // runs display func for each subwindow   for( q=0; q<sets; q++ ){           // runs display func for each subwindow
62    glutSetWindow( win[q] );          // sets which subwindow to display to    glutSetWindow( win[q] );          // sets which subwindow to display to
63    glClear( GL_COLOR_BUFFER_BIT );   // background to black    glClear( GL_COLOR_BUFFER_BIT );   // background to black
64    if( glo || usr )                  // if global or user-set max/min    if( xz ) {  xmax=NX;  ymax=NZ;  }
65     readarray( data[q], fns[q][count], ilev );  // read new array w/o calculating local max/min    else{
66       if( yz ){  xmax=NY;  ymax=NZ;  }
67       else    {  xmax=NX;  ymax=NY;  }
68      }
69    
70      if( glo || usr ){                  // if global or user-set max/min
71       if( xz )
72        readxz( data[q], fns[q][count] );
73       else{
74        if( yz )
75         readyz( data[q], fns[q][count] );
76        else
77         readarray( data[q], fns[q][count], ilev );  // read new array w/o calculating local max/min
78       }
79      }
80    else                              // if local max/min is set    else                              // if local max/min is set
81     local( q, count, ilev );         // read new array and calculate local max/min     local( q, count, ilev );         // read new array and calculate local max/min
82    
# Line 74  void display(void){                 // c Line 90  void display(void){                 // c
90      logmn=log10( mnval );      logmn=log10( mnval );
91     }     }
92    }    }
93    
94    ioff=0;                           // ioff will count both i&j b/c data is 1D    ioff=0;                           // ioff will count both i&j b/c data is 1D
95    for( j=0; j<NY; j++ ){            // cycles through y values    for( j=0; j<ymax; j++ ){            // cycles through y values
96     for( i=0; i<NX; i++ ){           // cycles through x values     for( i=0; i<xmax; i++ ){           // cycles through x values
97      r=g=b=0;                        // set color values to black      r=g=b=0;                        // set color values to black
98      if( data[q][ioff]==0 );           // if data=0, values stay black      if( data[q][ioff]==0 );           // if data=0, values stay black
99      else{      else{
# Line 110  void display(void){                 // c Line 126  void display(void){                 // c
126     }     }
127    }    }
128    glColor3f( 1, 1, 1 );             // set color to white    glColor3f( 1, 1, 1 );             // set color to white
129    glRectf( NX, 0, NX+1, NY+1 );     // draws a border    glRectf( xmax, 0, xmax+1, ymax+1 );     // draws a border
130    glRectf( 0, NY, NX, NY+1 );       // draws a border      glRectf( 0, ymax, xmax, ymax+1 );       // draws a border  
131    for( i=0; i<64; i++ ){            // draws color bar        for( i=0; i<64; i++ ){            // draws color bar    
132     glColor3f( jet[i][0], jet[i][1], jet[i][2]);         // sets color     glColor3f( jet[i][0], jet[i][1], jet[i][2]);         // sets color
133     k=(float)i;                      // turns i into a float     k=(float)i;                      // turns i into a float
134     y=(float)NY/64;                  // sets height of rectangles     y=(float)ymax/64;                  // sets height of rectangles
135     glRectf( NX+10, y*k, NX+20, (k+1)*y );               // draws rectangle     glRectf( xmax+10, y*k, xmax+20, (k+1)*y );               // draws rectangle
136    }    }
137    glColor3f( 1, 1, 1 );             // color to white    glColor3f( 1, 1, 1 );             // color to white
138    
# Line 124  void display(void){                 // c Line 140  void display(void){                 // c
140     sprintf( str, "%.2f", logmx );     sprintf( str, "%.2f", logmx );
141    else    else
142     sprintf( str, "%.1e", mxval );    // labels color bar with max val     sprintf( str, "%.1e", mxval );    // labels color bar with max val
143    bitmap( str, NX+2, NY-1 );    bitmap( str, xmax+2, ymax-1 );
144        
145    if( logscale )    if( logscale )
146     sprintf( str, "%.2f", logmn );     sprintf( str, "%.2f", logmn );
147    else    else
148     sprintf( str, "%.1e", mnval );    // labels color bar with min val     sprintf( str, "%.1e", mnval );    // labels color bar with min val
149    bitmap( str, NX+2, 1 );    bitmap( str, xmax+2, 1 );
150    
151    sprintf( str, "Level %d", ilev ); // labels current level    if( xz )
152    bitmap( str, 1, NY+3 );     sprintf( str, "N-S slice %d", yoffset+1);
153      else{
154       if( yz )
155        sprintf( str, "E-W slice %d", xoffset+1);
156       else
157        sprintf( str, "Level %d", ilev ); // labels current level
158      }
159      bitmap( str, 1, ymax+3 );
160    
161    sprintf( str, "Time %d", count+1 ); // labels current time    sprintf( str, "Time %d", count+1 ); // labels current time
162    bitmap( str, 50, NY+3 );    bitmap( str, 80, ymax+3 );
163    
164    if( glo )                         // labels how max/min have been set    if( glo )                         // labels how max/min have been set
165     sprintf( str, "Global" );        // if glo is set, display Global     sprintf( str, "Global" );        // if glo is set, display Global
# Line 144  void display(void){                 // c Line 167  void display(void){                 // c
167     sprintf( str, "User-set" );      // if usr is set, display User-set     sprintf( str, "User-set" );      // if usr is set, display User-set
168    if( !usr && !glo )    if( !usr && !glo )
169     sprintf( str, "Local" );         // else display Local     sprintf( str, "Local" );         // else display Local
170    bitmap( str, NX+12, NY+3 );    bitmap( str, xmax+12, ymax+3 );
171        
172    if( anim ){                       // tell user if autoplay is on    if( anim ){                       // tell user if autoplay is on
173     sprintf( str, "Autoplay" );     sprintf( str, "Autoplay" );
174     bitmap( str, NX-25, NY+3 );     bitmap( str, xmax-25, ymax+3 );
175    }    }
176    
177    if( logscale ){    if( logscale ){
178     sprintf( str, "Log Scale" );     // tell user if log scale is on     sprintf( str, "Log Scale" );     // tell user if log scale is on
179     bitmap( str, NX-25, NY+10 );     bitmap( str, xmax-25, ymax+10 );
180    }    }
181    
182    bitmap( fns[q][count], 1, NY+10 ); // labels current file    bitmap( fns[q][count], 1, ymax+10 ); // labels current file
183    
184    glutSwapBuffers();                // double buffering set to animate smoothly    glutSwapBuffers();                // double buffering set to animate smoothly
185    glFlush();    glFlush();
# Line 184  void key( unsigned char key, int x, int Line 207  void key( unsigned char key, int x, int
207    case 'a':   anim=(anim+1)%2;      // turns anim on/off    case 'a':   anim=(anim+1)%2;      // turns anim on/off
208                glutPostRedisplay();                            glutPostRedisplay();            
209                break;                break;
210      case 'x':   xz=(xz+1)%2;
211                  yz=0;
212                  glutPostRedisplay();
213                  break;
214      case 'y':   yz=(yz+1)%2;
215                  xz=0;
216                  glutPostRedisplay();
217   }   }
218  }  }
219    
# Line 191  void TimerFunction( int value ){    // c Line 221  void TimerFunction( int value ){    // c
221   int i;   int i;
222    
223   switch(value){                     // increments in the correct direction   switch(value){                     // increments in the correct direction
224    case DOWN : if( ilev<NZ )    case DOWN : if( xz && yoffset>0 )
225                 ilev++;              // if down arrow pressed, move down a level                       yoffset--;
226                  else{
227                   if( yz && xoffset<NX-1 )
228                    xoffset++;
229                   else
230                    if( ilev<NZ && !xz && !yz )
231                     ilev++;              // if down arrow pressed, move down a level      
232                  }
233                break;                break;
234    case UP   : if( ilev>1 )        case UP   : if( xz && yoffset<NY-1 )
235                 ilev--;              // if up arrow is pressed, move up a level                 yoffset++;
236                  else{
237                   if( yz && xoffset>0 )
238                    xoffset--;
239                   else
240                    if( ilev>1 && !xz && !yz )    
241                     ilev--;              // if up arrow is pressed, move up a level
242                  }
243                break;                break;
244    case LEFT : if( count>0 )          case LEFT : if( count>0 )      
245                 count--;             // if left arrow is pressed, move back one time step                 count--;             // if left arrow is pressed, move back one time step
# Line 207  void TimerFunction( int value ){    // c Line 251  void TimerFunction( int value ){    // c
251    
252   glutPostRedisplay();               glutPostRedisplay();            
253    
254   if (anim )   if ( anim )
255    switch( value ){        switch( value ){    
256     case DOWN : if( ilev==NZ ) ilev=1;                   // if end reached, restart     case DOWN : if( xz && yoffset==0 )
257                    yoffset=NY-1;
258                   else{
259                    if( yz && xoffset==NX-1 )
260                     xoffset=0;
261                    else
262                     if( ilev==NZ && !xz && !yz )
263                      ilev=1;                   // if end reached, restart
264                   }
265                 glutTimerFunc( 100, TimerFunction, value ); // recalls itself                 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
266                 break;                 break;
267     case UP   : if( ilev==1 ) ilev=NZ;                   // if end reached, restart     case UP   : if( xz && yoffset==NY-1 )
268                    yoffset=0;
269                   else{
270                    if( yz && xoffset==0 )
271                     xoffset=NX-1;
272                    else
273                     if( ilev==1 )
274                      ilev=NZ;                   // if end reached, restart
275                   }
276                 glutTimerFunc( 100, TimerFunction, value ); // recalls itself                 glutTimerFunc( 100, TimerFunction, value ); // recalls itself
277                 break;                 break;
278     case LEFT : if( count==0 ) count=howmany-1;             // if end reached, restart     case LEFT : if( count==0 ) count=howmany-1;             // if end reached, restart
# Line 231  void specialkey( int key, int x, int y ) Line 291  void specialkey( int key, int x, int y )
291    glutTimerFunc( 100, TimerFunction, key);             // to scroll automatically    glutTimerFunc( 100, TimerFunction, key);             // to scroll automatically
292    
293   switch(key){   switch(key){
294    case DOWN   :  if( ilev<NZ )      // if you haven't reached the bottom    case DOWN   :  if( xz && yoffset>0 )
295                    ilev++;              // keep going down                    yoffset--;
296                     else{
297                      if( yz && xoffset<NY-1 )
298                       xoffset++;
299                      else
300                       if( ilev<NZ && !xz && !yz )      // if you haven't reached the bottom
301                        ilev++;              // keep going down
302                     }
303                   break;                   break;
304    case UP     :  if( ilev>1 )          // if you haven't reached the top    case UP     :  if( xz && yoffset<NY-1 )
305                    ilev--;              // keep going up                    yoffset++;
306                     else{
307                      if( yz && xoffset>0 )
308                       xoffset--;
309                      else
310                       if( ilev>1 )          // if you haven't reached the top
311                        ilev--;              // keep going up
312                     }
313                   break;                   break;
314    case RIGHT  :  if( count<howmany-1 ) // if you haven't reached the last file    case RIGHT  :  if( count<howmany-1 ) // if you haven't reached the last file
315                    count++;             // keep going right                    count++;             // keep going right
# Line 264  void local( int i, int time, int lev ){ Line 338  void local( int i, int time, int lev ){
338    
339   mxval=0;     mxval=0;  
340   mnval=100;   mnval=100;
341   readarray( data[i], fns[i][time], lev );      // read new array of data   if( xz )
342   for( j=0; j<NX*NY; j++ ){    readxz( data[i], fns[i][time]);
343     else{
344      if( yz )
345       readyz( data[i], fns[i][time]);
346      else
347       readarray( data[i], fns[i][time], lev );      // read new array of data
348     }
349     for( j=0; j<xmax*ymax; j++ ){
350    if( data[i][j] > mxval )    if( data[i][j] > mxval )
351     mxval=data[i][j];                           // set largest val to mxval     mxval=data[i][j];                           // set largest val to mxval
352    if( data[i][j] < mnval && data[i][j]!=0 )    if( data[i][j] < mnval && data[i][j]!=0 )
# Line 301  void readjet(){               //reads in Line 382  void readjet(){               //reads in
382   FILE* fp;   FILE* fp;
383   int i, j;   int i, j;
384        
385   fp=fopen( "jet.dat", "r" );  // opens file containing values   fp=fopen( ".darwinview/jet.h", "r" );  // opens file containing values
386   for( i=0; i<64; i++ )        // reads in 64 sets of r, g, b values   for( i=0; i<64; i++ )        // reads in 64 sets of r, g, b values
387    for( j=0; j<3; j++ )    for( j=0; j<3; j++ )
388     fscanf( fp, "%f", &jet[i][j] );     fscanf( fp, "%f", &jet[i][j] );
389   fclose( fp );                // closes file   fclose( fp );                // closes file
390  }  }
391    
392    void readxz( float arr[], char filename[] ){
393     int i, j;
394     float tmp[MAX][MAX], tmp2[MAX*MAX];
395     FILE* fp;
396    
397     fp=fopen( filename, "rb" );  
398     for( i=0; i<NZ; i++){
399      fseek( fp, (NX*yoffset*4)+(i*NX*NY*4), SEEK_SET );
400      fread( &arr[NX*i], sizeof( arr[0] ), NX, fp );  // reads in data to fill one level
401     }
402     fclose( fp );
403    
404     for( i=0; i<NZ; i++ )
405      for( j=0; j<NX; j++)
406       tmp[i][j]=arr[i*NX+j];
407    
408     for( i=0; i<NZ; i++ )
409      for( j=0; j<NX; j++)
410       tmp2[i*NX+j]=tmp[NZ-i-1][j];
411    
412     for( i=0; i<NX*NZ; i++)
413      arr[i]=tmp2[i];
414    }
415    
416    void readyz( float arr[], char filename[] ){
417     int i, j;
418     float tmp[MAX][MAX], tmp2[MAX*MAX];
419     FILE* fp;  
420    
421     fp=fopen( filename, "rb" );
422     for( i=0; i<NY*NZ; i++ ){
423      fseek( fp, (xoffset*4)+(i*NX*4), SEEK_SET );
424      fread( &arr[i], sizeof( arr[0] ), 1, fp );
425     }
426     fclose(fp);
427    
428     for( i=0; i<NZ; i++ )
429      for( j=0; j<NY; j++)
430       tmp[i][j]=arr[i*NY+j];
431    
432     for( i=0; i<NZ; i++ )
433      for( j=0; j<NY; j++)
434       tmp2[i*NY+j]=tmp[NZ-i-1][j];
435    
436     for( i=0; i<NY*NZ; i++)
437      arr[i]=tmp2[i];
438    }
439    
440  void readarray( float arr[], char filename[], int il ){   // reads new data  void readarray( float arr[], char filename[], int il ){   // reads new data
441   FILE* fp;   FILE* fp;
442   int i;   int i;
443    
444   fp=fopen( filename, "r" );                  // opens the file containing data   fp=fopen( filename, "rb" );                 // opens the file containing data
445   fseek( fp, (il-1)*NX*NY*4, SEEK_SET );      // seeks to the correct place using ilev   fseek( fp, (il-1)*NX*NY*4, SEEK_SET );      // seeks to the correct place using ilev
446   fread( arr, sizeof( arr[0] ), NX*NY, fp );  // reads in data to fill one level   fread( arr, sizeof( arr[0] ), NX*NY, fp );  // reads in data to fill one level
447   fclose( fp );                               // close file   fclose( fp );                               // close file
# Line 341  void do_byteswap_f32( float arr[], int n Line 470  void do_byteswap_f32( float arr[], int n
470   }   }
471  }  }
472    
473  void black(){  void black( ){
474   glClear( GL_COLOR_BUFFER_BIT );   glClear( GL_COLOR_BUFFER_BIT );
475   glutSwapBuffers();   glutSwapBuffers();
476   glFlush();   glFlush();
477  }  }
478    
479    
480  int main( int argc, char *argv[] ){  int main( int argc, char *argv[] ){
481   int i, setsx, setsy, tmpx, tmpy, winx, winy, parent;   int i, setsx, setsy, tmpx, tmpy, winx, winy, parent;
482   char filename[MAX];   char str[MAX], filename[MAX];
483     FILE* fp;
484    
485     if( strcmp(argv[1], "binary") == 0 )
486      fp=fopen( ".darwinview/binconfig", "r" );
487     else
488      if( strcmp(argv[1],"netcdf") == 0 )
489       fp=fopen( ".darwinview/ncconfig", "r" );
490    
491   sscanf( argv[1], "%dx%d", &winx, &winy );  // reads screen resolution from command line   fscanf( fp, "%dx%d ", &winx, &winy );
492   winy-=60;  winx-=20;                     // adjusts resolution so edges won't get cut off               winy-=60;  winx-=20;                     // adjusts resolution so edges won't get cut off            
493     fscanf( fp, "%d %d %d ", &NX, &NY, &NZ );
494   printf( "Please enter x, y and z dimensions.\n" );     fscanf( fp, "%dx%d ", &setsx, &setsy );                // prompts user for dimensions of subwindows
495   scanf( "%d %d %d", &NX, &NY, &NZ );           // prompts user for NX, NY, NZ   fscanf( fp, "%s", filename );
496   printf( "Please enter filename.\n" );  
497   scanf( "%s", filename );                         // prompts user for initial filenames   fclose( fp );
498   printf( "Please enter dimensions of data sets.\n" );  
499   scanf( "%dx%d", &setsx, &setsy );                 // prompts user for dimensions of subwindows   xmax=NX; ymax=NY;
500    
501   readjet();                               // stores color values   readjet();                               // stores color values
502   readnames( filename );                   // gets list of filenames to read from   readnames( filename );                   // gets list of filenames to read from
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22