do{ if( ISQ_REALZ((sq)) && (sq)->dc->visual_class == TrueColor ){  \
         if( (sq)->status->send_CB != NULL ){                        \
            ISQ_cbs cbs ;                                            \
            cbs.reason = isqCR_force_redisplay ;                     \
            AFNI_CALL_VOID_3ARG( (sq)->status->send_CB      ,        \
                                 MCW_imseq * , (sq)         ,        \
                                 XtPointer   , (sq)->getaux ,        \
                                 ISQ_cbs *   , &cbs          ) ;     \
         } else {                                                    \
            KILL_2XIM( (sq)->given_xbar , (sq)->sized_xbar ) ;       \
            ISQ_redisplay( (sq) , -1 , isqDR_display ) ;             \
         }                                                           \
    } } while(0)

do{ (opt).mirror      = FALSE ;            \
                                 (opt).rot         = ISQ_ROT_0 ;        \
                                 (opt).no_overlay  = False ;            \
                                 (opt).scale_group = ISQ_SCL_AUTO ;     \
                                 (opt).scale_range = ISQ_RNG_02TO98 ;   \
                                 (opt).free_aspect = False ;            \
                                 (opt).save_nsize  = False ;            \
                                 (opt).save_pnm    = False ;            \
                                 (opt).save_one    = True ;             \
                                 (opt).improc_code = ISQ_IMPROC_NONE ;  \
                                 (opt).cx_code     = ISQ_CX_MAG ;       \
                                 (opt).parent      = NULL ;             \
                                 (opt).aux         = NULL ;             \
                                 (opt).save_filter = -1   ;             \
                                 (opt).save_agif   = 0    ;             \
                                 (opt).save_mpeg   = 0    ;             \
                               } while(0)

( (ss)->slice_proj_range >  0   &&   \
   (ss)->slice_proj_func  != NULL   )

( ((opta).mirror      == (optb).mirror     ) && \
      ((opta).rot         == (optb).rot        ) && \
      ((opta).no_overlay  == (optb).no_overlay ) && \
      ((opta).scale_group == (optb).scale_group) && \
      ((opta).scale_range == (optb).scale_range) && \
      ((opta).free_aspect == (optb).free_aspect) && \
      ((opta).improc_code == (optb).improc_code) && \
      ((opta).cx_code     == (optb).cx_code    )     )

( (isq)->winfo_sides[0][0] != '\0' || \
                             (isq)->winfo_sides[1][0] != '\0' || \
                             (isq)->winfo_sides[2][0] != '\0' || \
                             (isq)->winfo_sides[3][0] != '\0'      )

do { if( (two) != (one) ) MCW_kill_XImage(two) ; \
        (two) = NULL ; } while(0)

do { if( (two) != (one) ) MCW_kill_XImage(two) ; \
        MCW_kill_XImage(one) ; (one) = (two) = NULL ; } while(0)

06552 {
06553 ENTRY("drive_MCW_imseq") ;
06554    if( ! ISQ_VALID(seq) ) RETURN( False );
06555 
06556    switch( drive_code ){
06557 
06558       /*------- error! -------*/
06559 
06560       default:{
06561          fprintf(stderr,"\a\n*** drive_MCW_imseq: code=%d illegal!\n",
06562                  drive_code) ;
06563          XBell( seq->dc->display , 100 ) ;
06564          RETURN( False );
06565       }
06566       break ;
06567 
06568       /*--------- set display range [04 Nov 2003] ----------*/
06569 
06570       case isqDR_setrange:{
06571         float *rng = (float *)drive_data ;
06572         if( rng == NULL ){
06573           seq->rng_bot = seq->rng_top = seq->rng_ztop = 0.0f ;
06574         } else {
06575           seq->rng_bot = rng[0] ; seq->rng_top = rng[1] ; seq->rng_ztop = 0.0 ;
06576         }
06577         ISQ_redisplay( seq , -1 , isqDR_display ) ;
06578         RETURN( True ) ;
06579       }
06580       break ;
06581 
06582       /*--------- save image type? [23 Jan 2003] ----------*/
06583 
06584       case isqDR_setimsave:{
06585         char *suf = (char *)drive_data ;
06586         int ii ;
06587         if( suf == NULL || *suf == '\0' || ppmto_num < 1 ) RETURN(False) ;
06588         for( ii=0 ; ii < ppmto_num ; ii++ ){
06589           if( strcmp(suf  ,ppmto_suffix[ii]) == 0 ) break ;
06590           if( strcmp(suf+1,ppmto_suffix[ii]) == 0 ) break ;
06591         }
06592         if( ii == ppmto_num ) RETURN(False) ;
06593         seq->opt.save_filter = ii ;
06594         SET_SAVE_LABEL(seq) ;
06595         if( seq->num_bbox > 0 && seq->bbox[NTOG_SAV] != NULL )
06596           MCW_set_bbox( seq->bbox[NTOG_SAV] , ppmto_bval[ii] ) ;
06597         RETURN( True ) ;
06598       }
06599       break ;
06600 
06601       /*--------- ignore redraws? [16 Aug 2002] -------------*/
06602 
06603       case isqDR_ignore_redraws:{
06604          int dd = (int)drive_data ;
06605          seq->ignore_redraws = dd ;
06606          RETURN( True ) ;
06607       }
06608       break ;
06609 
06610       /*--------- overlay plot stuff [20 Sep 2001] ----------*/
06611 
06612       case isqDR_plot_label:{
06613          int dd = (int)drive_data ;
06614 
06615          if( dd < 0 ){
06616             INVERT_manage( seq->wbar_label_av->wrowcol ) ;
06617             INVERT_manage( seq->wbar_labsz_av->wrowcol ) ;
06618          } else if( dd != seq->wbar_label_av->ival && dd >= 0 && dd <= 4 ){
06619            AV_assign_ival( seq->wbar_label_av , dd ) ;
06620            ISQ_redisplay( seq , -1 , isqDR_display ) ;
06621          }
06622          RETURN( True ) ;
06623       }
06624 
06625       /*.....................................................*/
06626 
06627       case isqDR_save_jpeg:{                 /* 28 Jul 2005 */
06628         char *fname = (char *)drive_data ;
06629         ISQ_save_jpeg( seq , fname ) ;
06630         RETURN( True ) ;
06631       }
06632 
06633       /*.....................................................*/
06634 
06635       case isqDR_plot_plot:{
06636          int dd = (int)drive_data ;
06637 
06638          if( dd < 0 ){
06639             INVERT_manage( seq->wbar_plots_bbox->wrowcol ) ;
06640          } else {
06641             dd = (dd != 0) ;
06642             if( dd != MCW_val_bbox(seq->wbar_plots_bbox) ){
06643                MCW_set_bbox( seq->wbar_plots_bbox , dd ) ;
06644                ISQ_redisplay( seq , -1 , isqDR_display ) ;
06645             }
06646          }
06647          RETURN( True ) ;
06648       }
06649 
06650       /*--------- record off forever [24 Apr 2001] ----------*/
06651 
06652       case isqDR_record_disable:{
06653          ISQ_remove_widget( seq , seq->record_rc ) ;
06654          seq->record_status = RECORD_STATUS_OFF ;
06655          RETURN( True ) ;
06656       }
06657       break ;
06658 
06659       /*--------- record mode [24 Apr 2001] ----------*/
06660 
06661       case isqDR_record_mode:{
06662          int ii ;
06663          static Pixmap record_pixmap = XmUNSPECIFIED_PIXMAP ;
06664 #define record_width 64
06665 #define record_height 32
06666 static unsigned char record_bits[] = {
06667    0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00,
06668    0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
06669    0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x81, 0x0f, 0x00, 0x00,
06670    0x00, 0x00, 0x00, 0x00, 0x81, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
06671    0x81, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x81, 0x40, 0x00, 0x00,
06672    0x00, 0x00, 0x00, 0x02, 0x81, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02,
06673    0x81, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x81, 0x40, 0x00, 0x00,
06674    0x00, 0x00, 0x00, 0x02, 0x81, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02,
06675    0x81, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x81, 0x10, 0x00, 0x00,
06676    0x00, 0x00, 0x00, 0x02, 0x81, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02,
06677    0x81, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x81, 0x10, 0x00, 0x00,
06678    0x00, 0x00, 0x00, 0x02, 0x81, 0x10, 0x70, 0x00, 0xe0, 0xf0, 0x01, 0x02,
06679    0x81, 0x20, 0x8c, 0xf0, 0x10, 0x21, 0xe2, 0x03, 0x81, 0x20, 0x02, 0x09,
06680    0x09, 0x22, 0x12, 0x02, 0x81, 0x20, 0x02, 0x09, 0x08, 0x22, 0x10, 0x02,
06681    0x81, 0x20, 0xfe, 0x09, 0x08, 0x22, 0x10, 0x02, 0x81, 0x40, 0x02, 0x08,
06682    0x08, 0x22, 0x10, 0x02, 0x81, 0x40, 0x02, 0x08, 0x08, 0x22, 0x10, 0x02,
06683    0x81, 0x40, 0x02, 0x08, 0x08, 0x22, 0x10, 0x02, 0x81, 0x40, 0x02, 0x08,
06684    0x08, 0x22, 0x10, 0x02, 0x81, 0x40, 0x04, 0x11, 0x11, 0x21, 0x20, 0x02,
06685    0x81, 0x40, 0xf8, 0xe0, 0xe0, 0x20, 0xc0, 0x01, 0x01, 0x00, 0x00, 0x00,
06686    0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
06687    0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00,
06688    0x00, 0x00, 0x00, 0x00};
06689 
06690          if( seq->record_mode ) RETURN( False ) ;  /* already on */
06691          seq->record_mode = 1 ;
06692          seq->cropit = seq->crop_allowed = 0 ;     /* 12 Jun 2002 */
06693 
06694          /* create background pixmap */
06695 
06696          if( record_pixmap == XmUNSPECIFIED_PIXMAP )
06697             record_pixmap = XCreatePixmapFromBitmapData(
06698                               seq->dc->display ,
06699                               RootWindowOfScreen(seq->dc->screen) ,
06700                               record_bits, record_width, record_height ,
06701                               seq->dc->ovc->pixov_brightest ,
06702                               seq->dc->ovc->pixov_darkest ,
06703                               DefaultDepthOfScreen(seq->dc->screen) ) ;
06704 
06705          XtVaSetValues( seq->wform, XmNbackgroundPixmap, record_pixmap, NULL ) ;
06706 
06707          /* disable various widgets */
06708 
06709          ISQ_remove_widget( seq , seq->wbut_bot[NBUT_MONT] ) ;
06710          ISQ_remove_widget( seq , seq->record_rc ) ;
06711          for( ii=0 ; ii < NBUTTON_RIG ; ii++)
06712             ISQ_remove_widget( seq , seq->wbut_rig[ii] ) ;
06713          for( ii=0 ; ii < NARROW-1 ; ii++ ) /* keep "i" arrow */
06714             ISQ_remove_widget( seq , seq->arrow[ii]->wrowcol ) ;
06715          if( seq->ov_opacity_av != NULL ){
06716             ISQ_remove_widget( seq , seq->ov_opacity_sep ) ;
06717             ISQ_remove_widget( seq , seq->ov_opacity_av->wrowcol ) ;
06718          }
06719 
06720          ISQ_remove_widget( seq , seq->zoom_sep ) ;
06721          ISQ_remove_widget( seq , seq->zoom_val_av->wrowcol ) ;
06722          ISQ_remove_widget( seq , seq->zoom_drag_pb ) ;
06723          ISQ_remove_widget( seq , seq->crop_drag_pb ) ;
06724          ISQ_remove_widget( seq , seq->pen_bbox->wrowcol ) ;
06725 
06726          ISQ_remove_widget( seq , seq->arrowpad->wform ) ;
06727          ISQ_remove_widget( seq , seq->wbar ) ;
06728          ISQ_remove_widget( seq , seq->winfo ) ;
06729 
06730          /* change to Save:bkg */
06731 
06732          seq->opt.save_one    = 0 ;
06733          seq->opt.save_agif   = 0 ;   /* 27 Jul 2001 */
06734          seq->opt.save_mpeg   = 0 ;
06735          seq->opt.save_pnm    = 0 ;
06736          seq->opt.save_filter = -1 ;  /* 27 Jun 2001 */
06737          SET_SAVE_LABEL(seq) ;
06738          drive_MCW_imseq( seq , isqDR_setimsave ,
06739                           (XtPointer)getenv("AFNI_DEFAULT_IMSAVE") ) ;
06740 
06741          /* 27 Jun 2001: change help on Save: */
06742 
06743          MCW_unregister_help( seq->wbut_bot[NBUT_DISP] ) ;
06744          if( ppmto_num > 0 ){
06745            MCW_register_help( seq->wbut_bot[NBUT_SAVE] ,
06746                                 "Save controls:\n"
06747                                 " Press with Button 1 (left) to save images\n"
06748                                 " Press with Button 3 (right) to change the\n"
06749                                 "   format of the saved images"
06750                             ) ;
06751            MCW_register_hint( seq->wbut_bot[NBUT_SAVE] ,
06752                               "Button 3 => change save format" ) ;
06753          } else {
06754            MCW_register_help( seq->wbut_bot[NBUT_SAVE] ,
06755                                 "Save controls:\n"
06756                                 " Press with Button 1 (left) to\n"
06757                                 " in the PNM format save images"  ) ;
06758            MCW_register_hint( seq->wbut_bot[NBUT_SAVE] ,
06759                               "Save images as PNM" ) ;
06760          }
06761 
06762          /* change Disp to Kill */
06763 
06764          XtRemoveCallback( seq->wbut_bot[NBUT_DISP] , XmNactivateCallback ,
06765                            ISQ_but_bot_def[NBUT_DISP].func_CB , seq        ) ;
06766 
06767          XtAddCallback( seq->wbut_bot[NBUT_DISP] , XmNactivateCallback ,
06768                         ISQ_record_kill_CB , seq                       ) ;
06769 
06770          MCW_set_widget_label( seq->wbut_bot[NBUT_DISP] , "Kill" ) ;
06771          MCW_unregister_help( seq->wbut_bot[NBUT_DISP] ) ;
06772          MCW_register_hint( seq->wbut_bot[NBUT_DISP] , "Erase current image" ) ;
06773          MCW_register_help( seq->wbut_bot[NBUT_DISP] ,
06774                             "Erase the current image in the recorded sequence.\n"
06775                             "If not later overwritten, this image will NOT\n"
06776                             "be saved when you use Save:bkg to write the image\n"
06777                             "sequence to disk.\n"
06778                            ) ;
06779 
06780          /* attach Done to Save (since Mont is now hidden) */
06781 
06782          XtVaSetValues( seq->wbut_bot[NBUT_DONE] ,
06783                            LEADING_BOT       , XmATTACH_WIDGET          ,
06784                            LEADING_WIDGET_BOT, seq->wbut_bot[NBUT_SAVE] ,
06785                         NULL ) ;
06786 
06787          /* Miscellaneous stuff */
06788 
06789          XtVaSetValues( seq->wtop , XmNtitle , "Image Recorder" , NULL ) ;
06790          if( MCW_isitmwm( seq->wtop ) )
06791             XtVaSetValues( seq->wtop ,
06792                             XmNmwmDecorations, MWM_DECOR_ALL | MWM_DECOR_MAXIMIZE,
06793                            NULL ) ;
06794 
06795          RETURN( True ) ;
06796       }
06797       break ;
06798 
06799       /*--------- opacity button [07 Mar 2001] ----------*/
06800 
06801       case isqDR_opacitybut:{
06802          int val = (int) drive_data ;
06803          if( seq->ov_opacity_av == NULL ) RETURN( False ) ;
06804          if( val == 0 ){
06805             XtUnmanageChild( seq->ov_opacity_sep ) ;
06806             XtUnmanageChild( seq->ov_opacity_av->wrowcol ) ;
06807          }
06808          else {
06809             XtManageChild( seq->ov_opacity_sep ) ;
06810             XtManageChild( seq->ov_opacity_av->wrowcol ) ;
06811          }
06812          RETURN( True ) ;
06813       }
06814       break ;
06815 
06816       /*--------- set opacity value [21 Jan 2003] ----------*/
06817 
06818       case isqDR_setopacity:{
06819         int val = (int) drive_data ;
06820         if( seq->ov_opacity_av == NULL ) RETURN( False ) ;
06821         if( val < OPACITY_BOT || val > OPACITY_TOP ) RETURN( False ) ;
06822         AV_assign_ival( seq->ov_opacity_av , val ) ;
06823         ISQ_opacity_CB( seq->ov_opacity_av , seq ) ;
06824         RETURN( True ) ;
06825       }
06826       break ;
06827 
06828       /*--------- get opacity value [21 Jan 2003] ----------*/
06829 
06830       case isqDR_getopacity:{
06831         int *val = (int *) drive_data ;
06832         if( seq->ov_opacity_av == NULL || val == NULL ) RETURN( False ) ;
06833         *val = seq->ov_opacity_av->ival ;
06834         RETURN( True ) ;
06835       }
06836       break ;
06837 
06838       /*--------- zoom buttons [11 Mar 2002] ----------*/
06839 
06840       case isqDR_zoombut:{
06841          int val = (int) drive_data ;
06842          if( val == 0 ){
06843             XtUnmanageChild( seq->zoom_sep ) ;
06844             XtUnmanageChild( seq->zoom_val_av->wrowcol ) ;
06845             XtUnmanageChild( seq->zoom_drag_pb ) ;
06846             XtUnmanageChild( seq->crop_drag_pb ) ;
06847          } else {
06848             XtManageChild( seq->zoom_sep ) ;
06849             XtManageChild( seq->zoom_val_av->wrowcol ) ;
06850             XtManageChild( seq->zoom_drag_pb ) ;
06851             XtManageChild( seq->crop_drag_pb ) ;
06852          }
06853          RETURN( True ) ;
06854       }
06855       break ;
06856 
06857       /*--------- pen bbox [18 Jul 2003] ----------*/
06858 
06859       case isqDR_penbbox:{
06860          int val = (int) drive_data ;
06861          if( val == 0 )
06862            XtUnmanageChild( seq->pen_bbox->wrowcol ) ;
06863          else
06864            XtManageChild( seq->pen_bbox->wrowcol ) ;
06865          RETURN( True ) ;
06866       }
06867       break ;
06868 
06869       /*--------- set montage [22 Sep 2000] ----------*/
06870       /* [mostly copied from ISQ_montage_action_CB()] */
06871 
06872       case isqDR_setmontage:{
06873          int * mm = (int *) drive_data ;
06874 
06875          if( mm == NULL )                     RETURN( False );  /* sanity */
06876          if( mm[0] < 1 || mm[0] > MONT_NMAX ) RETURN( False );  /* checks */
06877          if( mm[1] < 1 || mm[1] > MONT_NMAX ) RETURN( False );
06878 
06879          seq->mont_nx_old       = seq->mont_nx       ;  /* save */
06880          seq->mont_ny_old       = seq->mont_ny       ;
06881          seq->mont_skip_old     = seq->mont_skip     ;
06882          seq->mont_gap_old      = seq->mont_gap      ;
06883          seq->mont_gapcolor_old = seq->mont_gapcolor ;
06884 
06885          /* set new values, if legal */
06886 
06887          seq->mont_nx = mm[0] ;
06888          seq->mont_ny = mm[1] ;
06889          if( mm[2] >  0 && mm[2] <= MONT_SMAX ) seq->mont_skip     = mm[2]-1 ;
06890          if( mm[3] >= 0 && mm[3] <= MONT_GMAX ) seq->mont_gap      = mm[3] ;
06891          if( mm[4] >= 0 &&
06892              mm[4] <= seq->dc->ovc->ncol_ov-1 ) seq->mont_gapcolor = mm[4] ;
06893 
06894          /* set Save One */
06895 
06896          if( seq->mont_nx * seq->mont_ny > 1 && !seq->opt.save_one ){
06897             seq->opt.save_one  = 1 ;
06898             seq->opt.save_agif = 0 ; /* 27 Jul 2001 */
06899             seq->opt.save_mpeg = 0 ;
06900             SET_SAVE_LABEL(seq) ;
06901          }
06902 
06903          /* now do the redisplay */
06904 
06905          ISQ_redisplay( seq , -1 , isqDR_display ) ;    /* local redraw */
06906 
06907          if( seq->status->send_CB != NULL ){  /* tell AFNI */
06908 
06909             ISQ_cbs cbs ;
06910             THD_ivec3 minf ;
06911             int ijcen = (seq->mont_nx)/2 + (seq->mont_ny/2) * seq->mont_nx ,
06912                 nmont = seq->mont_nx * seq->mont_ny ;
06913 
06914             minf.ijk[0]  = ijcen ;            /* number of slices before center */
06915             minf.ijk[1]  = nmont-ijcen-1 ;    /* number after */
06916             minf.ijk[2]  = seq->mont_skip ;   /* number between slices */
06917             cbs.reason   = isqCR_newmontage ;
06918             cbs.userdata = (XtPointer) &minf ;
06919 
06920             seq->ignore_redraws = 1 ;         /* don't listen to redraws */
06921 #if 0
06922             seq->status->send_CB( seq , seq->getaux , &cbs ) ;
06923 #else
06924             SEND(seq,cbs) ;
06925 #endif
06926             seq->ignore_redraws = 0 ;         /* can listen again */
06927          }
06928 
06929 #if 0
06930          ISQ_redisplay( seq , -1 , isqDR_display ) ;    /* local redraw */
06931 #endif
06932 
06933          RETURN( True );
06934       }
06935       break ;
06936 
06937       /*------- winfo sides text [01 Dec 1999] -------*/
06938 
06939       case isqDR_winfosides:{
06940          char ** ws = (char **) drive_data ;
06941          int iw ;
06942 
06943          if( ws == NULL ){                   /* remove the label data */
06944             seq->winfo_sides[0][0] =
06945              seq->winfo_sides[1][0] =
06946               seq->winfo_sides[2][0] =
06947                seq->winfo_sides[3][0] = '\0' ;
06948 
06949          } else {                           /* change the label data */
06950             for( iw=0 ; iw < 4 ; iw++ ){
06951                if( ws[iw] == NULL || ws[iw][0] == '\0' ){
06952                   seq->winfo_sides[iw][0] = '\0' ;
06953                } else {
06954                   strncpy( seq->winfo_sides[iw] , ws[iw] , 15 ) ;
06955                   seq->winfo_sides[iw][15] = '\0' ;
06956                }
06957             }
06958          }
06959          seq->im_label[0] = '\0' ;  /* will force redraw */
06960          ISQ_draw_winfo( seq ) ;
06961 
06962          if( ws == NULL )                       /* 18 May 2005: add a hint */
06963            MCW_unregister_hint( seq->winfo ) ;  /* for the clueless newbie */
06964          else
06965            MCW_register_hint( seq->winfo ,
06966                     "setenv AFNI_LEFT_IS_LEFT YES disables 'radiology mode'" );
06967 
06968          RETURN( True );
06969       }
06970 
06971       /*------- setifrac [22 Sep 2000] -------*/
06972       /* [mostly copied from ISQ_arrow_CB()]  */
06973 
06974       case isqDR_setifrac:{
06975          float * ff = (float *) drive_data ;
06976 
06977          if( ff == NULL || *ff < FRAC_MIN || *ff > 1.0 ) RETURN( False );
06978 
06979          if( *ff <= FRAC_MAX ){ /* from ISQ_arrow_CB() */
06980             float nfrac = *ff ;
06981             seq->image_frac = nfrac ;
06982 
06983             if( !seq->onoff_state )  /* turn widgets on first, recursively */
06984                drive_MCW_imseq( seq,isqDR_onoffwid,(XtPointer)isqDR_onwid );
06985 
06986             XtVaSetValues( seq->wimage ,
06987                              XmNrightPosition ,(int)(0.49+nfrac*FORM_FRAC_BASE),
06988                              XmNbottomPosition,(int)(0.49+nfrac*FORM_FRAC_BASE),
06989                            NULL ) ;
06990             XtVaSetValues( seq->wscale ,
06991                              XmNrightPosition ,(int)(0.49+nfrac*FORM_FRAC_BASE),
06992                            NULL ) ;
06993             XtVaSetValues( seq->wbar ,
06994                              XmNbottomPosition,(int)(0.49+nfrac*FORM_FRAC_BASE),
06995                            NULL ) ;
06996             XtVaSetValues( seq->winfo ,
06997                              XmNrightPosition ,(int)(0.49+nfrac*FORM_FRAC_BASE),
06998                            NULL ) ;
06999 
07000          } else if( seq->onoff_state ) {  /* turn widgets off */
07001 
07002             drive_MCW_imseq( seq,isqDR_onoffwid,(XtPointer)isqDR_offwid );
07003 
07004          }
07005          RETURN( True );
07006       }
07007       break ;
07008 
07009       /*------- send a simulated key press [18 Feb 2005] -------*/
07010 
07011       case isqDR_keypress:{
07012         unsigned int key = (unsigned int)drive_data ;
07013         (void )ISQ_handle_keypress( seq , key ) ;
07014         RETURN( True );
07015       }
07016       break ;
07017 
07018       /*------- winfo extra text [07 Aug 1999] -------*/
07019 
07020       case isqDR_winfotext:{
07021          char * wt = (char *) drive_data ;
07022 
07023          if( wt == NULL || wt[0] == '\0' ){
07024             seq->winfo_extra[0] = '\0' ;
07025          } else {
07026             strncpy( seq->winfo_extra , wt , 63 ) ;
07027             seq->winfo_extra[63] = '\0' ;
07028          }
07029          seq->im_label[0] = '\0' ;  /* will force redraw */
07030          ISQ_draw_winfo( seq ) ;
07031          RETURN( True );
07032       }
07033 
07034       /*------- button2 stuff -------*/
07035 
07036       case isqDR_button2_pixel:{
07037          seq->button2_pixel = (Pixel) drive_data ;
07038          RETURN( True );
07039       }
07040 
07041       case isqDR_button2_mode:{
07042          seq->button2_drawmode = (int) drive_data ;
07043          RETURN( True );
07044       }
07045 
07046       case isqDR_button2_width:{                  /* 08 Oct 2002 */
07047          seq->button2_width = (int) drive_data ;
07048          RETURN( True );
07049       }
07050 
07051       case isqDR_button2_enable:{
07052          ISQ_timer_stop(seq) ;
07053          if( seq->status->send_CB == NULL ) RETURN( False );  /* makes no sense */
07054          if( seq->button2_enabled )         RETURN( True );   /* already on */
07055 
07056          XtInsertEventHandler(
07057               seq->wimage ,         /* handle events in image */
07058 
07059                0
07060                | ButtonReleaseMask  /* button releases (only #2 is used) */
07061                | Button2MotionMask  /* motion while #2 is down */
07062               ,
07063               FALSE ,               /* nonmaskable events? */
07064               ISQ_button2_EV ,      /* handler routine */
07065               (XtPointer) seq ,     /* client data */
07066               XtListTail            /* last in queue */
07067          ) ;
07068 
07069          seq->button2_enabled = 1 ;
07070          seq->button2_active  = 0 ;
07071 
07072          XtManageChild( seq->pen_bbox->wrowcol ) ;
07073          RETURN( True );
07074       }
07075 
07076       case isqDR_button2_disable:{
07077          if( seq->status->send_CB == NULL ) RETURN( False );  /* makes no sense */
07078          if( !seq->button2_enabled )        RETURN( True );   /* already off */
07079 
07080          XtRemoveEventHandler(
07081               seq->wimage ,         /* unhandle events in image */
07082 
07083                0
07084                | ButtonReleaseMask  /* button releases (only #2 is used) */
07085                | Button2MotionMask  /* motion while #2 is down */
07086               ,
07087               TRUE ,                /* nonmaskable events? */
07088               ISQ_button2_EV ,      /* handler routine */
07089               (XtPointer) seq       /* client data */
07090          ) ;
07091 
07092          seq->button2_enabled = seq->button2_active = 0 ;
07093          ISQ_set_cursor_state( seq , CURSOR_NORMAL ) ;
07094          XtUnmanageChild( seq->pen_bbox->wrowcol ) ;
07095          RETURN( True );
07096       }
07097 
07098       /*------- montage stuff -------*/
07099 
07100       case isqDR_periodicmont:{
07101         int per = ((int) drive_data) != 0 ;
07102 
07103         if( per != seq->mont_periodic ){
07104            seq->mont_periodic = per ;
07105            if( ISQ_REALZ(seq) ) ISQ_redisplay( seq , -1 , isqDR_display ) ;
07106         }
07107         RETURN( True );
07108       }
07109 
07110       case isqDR_sendmontage:{
07111          if( seq->status->send_CB != NULL ){
07112             ISQ_cbs cbs ;
07113             THD_ivec3 minf ;
07114             int ijcen = (seq->mont_nx)/2 + (seq->mont_ny/2) * seq->mont_nx ,
07115                 nmont = seq->mont_nx * seq->mont_ny ;
07116 
07117             minf.ijk[0]  = ijcen ;            /* number of slices before center */
07118             minf.ijk[1]  = nmont-ijcen-1 ;    /* number after */
07119             minf.ijk[2]  = seq->mont_skip ;   /* number between slices */
07120             cbs.reason   = isqCR_newmontage ;
07121             cbs.userdata = (XtPointer) &minf ;
07122 #if 0
07123             seq->status->send_CB( seq , seq->getaux , &cbs ) ;
07124 #else
07125             SEND(seq,cbs) ;
07126 #endif
07127             RETURN( True );
07128          } else {
07129             RETURN( False );
07130          }
07131       }
07132       break ;
07133 
07134       /*------ set icon -----*/
07135 
07136       case isqDR_icon:{
07137          XtVaSetValues( seq->wtop, XmNiconPixmap,(Pixmap)drive_data , NULL ) ;
07138          RETURN( True );
07139       }
07140       break ;
07141 
07142       /*------ set background icon [28 Jan 2004] -------*/
07143 
07144       case isqDR_bgicon:{
07145         XtVaSetValues( seq->wform,
07146                          XmNbackgroundPixmap, (Pixmap)drive_data ,
07147                        NULL ) ;
07148         RETURN( True );
07149       }
07150       break ;
07151 
07152       /*------ get image number -----*/
07153 
07154       case isqDR_getimnr:{
07155          int * retval = (int *) drive_data ;
07156 
07157          if( retval != NULL ) *retval = seq->im_nr ;
07158          RETURN( True );
07159       }
07160       break ;
07161 
07162       /*------ widgets on or off -----*/
07163 
07164       case isqDR_onoffwid:{
07165          int mode = (int) drive_data , turn_on ;
07166          int ww , hh ;
07167 
07168          switch( mode ){
07169             default:
07170             case isqDR_togwid:  turn_on = ! seq->onoff_state ; break ;
07171             case isqDR_onwid:   turn_on = 1                  ; break ;
07172             case isqDR_offwid:  turn_on = 0                  ; break ;
07173          }
07174 
07175          if( turn_on == seq->onoff_state ) RETURN( True );
07176 
07177          MCW_widget_geom( seq->wimage , &ww , &hh , NULL,NULL ) ;
07178 
07179          if( turn_on ){
07180             MCW_manage_widgets( seq->onoff_widgets , seq->onoff_num ) ;
07181             XtVaSetValues(
07182                seq->wimage ,
07183                   XmNrightPosition ,(int)( 0.49+seq->image_frac*FORM_FRAC_BASE ),
07184                   XmNbottomPosition,(int)( 0.49+seq->image_frac*FORM_FRAC_BASE ),
07185                NULL ) ;
07186             XtVaSetValues( seq->wtop ,
07187                               XmNwidth  , (int)(0.49+ww/seq->image_frac) ,
07188                               XmNheight , (int)(0.49+hh/seq->image_frac) ,
07189                            NULL ) ;
07190             if( !seq->button2_enabled ) XtUnmanageChild(seq->pen_bbox->wrowcol);
07191          } else {
07192             MCW_unmanage_widgets( seq->onoff_widgets , seq->onoff_num ) ;
07193             XtVaSetValues( seq->wimage ,
07194                               XmNrightPosition , FORM_FRAC_BASE ,
07195                               XmNbottomPosition, FORM_FRAC_BASE ,
07196                            NULL ) ;
07197             XtVaSetValues( seq->wtop ,
07198                               XmNwidth  , ww ,
07199                               XmNheight , hh ,
07200                            NULL ) ;
07201          }
07202 
07203          seq->onoff_state = turn_on ;
07204          RETURN( True );
07205       }
07206       break ;
07207 
07208       /*------- title --------*/
07209 
07210       case isqDR_title:{
07211          char * title = (char *) drive_data ;
07212 
07213          if( title == NULL || strlen(title) == 0 ) title = "AFNI" ;
07214 
07215          XtVaSetValues( seq->wtop , XmNtitle , title , NULL ) ;
07216 #if 1
07217          if( MCW_isitmwm( seq->wtop ) )
07218             XtVaSetValues( seq->wtop ,
07219                             XmNmwmDecorations, MWM_DECOR_ALL | MWM_DECOR_MAXIMIZE,
07220                            NULL ) ;
07221 #endif
07222          RETURN( True );
07223       }
07224       break ;
07225 
07226       /*------- death! -------*/
07227 
07228       case isqDR_destroy:{
07229          ISQ_timer_stop(seq) ;
07230          ISQ_but_done_CB( NULL , (XtPointer) seq , NULL ) ;
07231          RETURN( True );
07232       }
07233       break ;
07234 
07235       /*------- unrealize! -------*/
07236 
07237       case isqDR_unrealize:{
07238          ISQ_timer_stop(seq) ;
07239          if( ISQ_REALZ(seq) ) XtUnrealizeWidget( seq->wtop ) ;
07240          seq->valid = 1 ;
07241          RETURN( True );
07242       }
07243       break ;
07244 
07245       /*------- realize! -------*/
07246 
07247       case isqDR_realize:{
07248          if( ! ISQ_REALZ(seq) ){
07249             XtRealizeWidget( seq->wtop ) ;
07250             WAIT_for_window( seq->wtop ) ;
07251             NORMAL_cursorize( seq->wtop ) ;
07252             POPUP_cursorize( seq->wimage ) ;
07253             POPUP_cursorize( seq->wbar ) ;
07254             POPUP_cursorize( seq->wbut_bot[NBUT_SAVE] ) ;
07255             XmUpdateDisplay( seq->wtop ) ;
07256          }
07257 #ifndef DONT_ONOFF_ONE
07258          if( seq->status->num_total == 1 )  /* 08 Aug 2001 */
07259             drive_MCW_imseq( seq , isqDR_onoffwid , (XtPointer) isqDR_offwid ) ;
07260 #endif
07261          seq->valid = 2 ;
07262          RETURN( True );
07263       }
07264       break ;
07265 
07266       /*------- change helptext! -------*/
07267 
07268       case isqDR_imhelptext:{
07269         char * newtxt = (char *) drive_data ;
07270         int ii ;
07271 
07272         if( newtxt == NULL ) RETURN( False );
07273         ii = strlen(newtxt) ;
07274         if( ii == 0 ) RETURN( False );
07275 
07276         strncpy( seq->im_helptext , newtxt , ISQ_NHELP ) ;
07277         seq->im_helptext[ISQ_NHELP] = '\0' ;
07278         RETURN( True );
07279       }
07280       break ;
07281 
07282       /*------- display anew! -------*/
07283 
07284       case isqDR_reimage:
07285       case isqDR_reshow:
07286       case isqDR_overlay:
07287       case isqDR_display:{
07288          int n = (int) drive_data ;
07289 
07290          if( ! seq->ignore_redraws )
07291             ISQ_redisplay( seq , n , drive_code ) ;
07292          RETURN( True );
07293       }
07294       break ;
07295 
07296       /*------- display bar anew [23 Aug 1998] -------*/
07297 
07298       case isqDR_rebar:{
07299          KILL_2XIM( seq->given_xbar , seq->sized_xbar ) ; /* destroy old */
07300          if( seq->onoff_state ) ISQ_show_bar( seq ) ;     /* show new?  */
07301          RETURN( True );
07302       }
07303       break ;
07304 
07305       /*------- new cursor for image -------*/
07306 
07307       case isqDR_cursor:{
07308          int cur = (int) drive_data ;
07309 
07310          MCW_alter_widget_cursor( seq->wimage , cur , "yellow" , "blue" ) ;
07311          RETURN( True );
07312       }
07313       break ;
07314 
07315       /*------- new options -------*/
07316 
07317       case isqDR_options:{
07318          ISQ_options * newopt = (ISQ_options *) drive_data ;
07319          int sf ;
07320 
07321          if( ppmto_num > 0 )           /* 27 Mar 2002: keep the old */
07322            sf = seq->opt.save_filter ; /*              save filter  */
07323 
07324          if( newopt != NULL ) seq->opt = *newopt ;
07325 
07326          if( ppmto_num > 0 )
07327            seq->opt.save_filter = sf ;
07328 
07329          seq->opt.parent = (XtPointer) seq ;
07330          SET_SAVE_LABEL(seq) ;
07331          AV_SENSITIZE(seq->ov_opacity_av,!seq->opt.no_overlay) ; /* 09 Mar 2001 */
07332 
07333 
07334          seq->im_label[0] = '\0' ;  /* will force redraw */
07335          if( ISQ_REALZ(seq) ) ISQ_redisplay( seq , -1 , isqDR_display ) ;
07336          RETURN( True );
07337       }
07338       break ;
07339 
07340       /*------- get current options [07 Aug 1999] -------*/
07341 
07342       case isqDR_getoptions:{
07343          ISQ_options * opt = (ISQ_options *) drive_data ;
07344 
07345          if( opt == NULL ) RETURN( False );
07346          *opt = seq->opt ;
07347          RETURN( True );
07348       }
07349 
07350       /*------- turn arrowpad on -------*/
07351 
07352       case isqDR_arrowpadon:{
07353          char * helptext = (char *) drive_data ;
07354 
07355          XtSetMappedWhenManaged( seq->arrowpad->wform , True ); /* on */
07356 
07357          if( helptext != NULL && strlen(helptext) > 0 ){
07358             char * str = XtNewString( helptext ) ;
07359             MCW_reghelp_children( seq->arrowpad->wform , str ) ;
07360             XtFree(str) ;  /* 28 Sep 1998: via Purify */
07361          }
07362          RETURN( True );
07363       }
07364       break ;
07365 
07366       case isqDR_arrowpadhint:{
07367          int ib ;
07368          char ** hint = (char **) drive_data ;
07369          if( hint == NULL ) RETURN( False );
07370          for( ib=0 ; ib < 5 ; ib++ )
07371             MCW_register_hint( seq->arrowpad->wbut[ib] , hint[ib] ) ;
07372          RETURN( True );
07373       }
07374       break ;
07375 
07376       /*------- turn arrowpad off -------*/
07377 
07378       case isqDR_arrowpadoff:{
07379          XtSetMappedWhenManaged( seq->arrowpad->wform , False ); /* off */
07380          RETURN( True );
07381       }
07382       break ;
07383 
07384       /*------- new numtotal -------*/
07385 
07386 #if 0                                   /* 29 Jul 2002: removed from the canon for unuse */
07387       case isqDR_numtotal:{
07388          int newtot = (int) drive_data ,
07389              oldtot = seq->status->num_total ,
07390              numser = seq->status->num_series , ii ;
07391          char * msg =
07392              "illegal change to image\n"
07393              "count from driver routine\n"
07394              "(press here to continue)" ;
07395 
07396          /* check for error conditions */
07397 
07398          if( newtot == oldtot ) RETURN( True );
07399 
07400          if( newtot < 2 || newtot < numser ){
07401             if( ISQ_REALZ(seq) )
07402                MCW_popup_message( seq->wimage , msg , MCW_USER_KILL ) ;
07403             fprintf(stderr,"\n%s\n",msg) ;
07404             RETURN( False );
07405          }
07406 
07407          /* stop the automatic statistics calculations, if started */
07408 
07409          if( seq->glstat->worker != 0 ){
07410             XtRemoveWorkProc( seq->glstat->worker ) ;
07411             seq->glstat->worker = 0 ;
07412          }
07413 
07414          /* setup new space for the per image statistics */
07415 
07416          seq->imstat = (ISQ_indiv_statistics *)
07417                         XtRealloc( (char *) seq->imstat ,
07418                                    sizeof(ISQ_indiv_statistics) * newtot ) ;
07419 
07420          for( ii=oldtot ; ii < newtot ; ii++ )
07421              seq->imstat[ii].one_done = seq->imstat[ii].glob_done = False ;
07422 
07423          /* let the imseq know that the number of images is different */
07424 
07425          seq->status->num_total = newtot ;
07426 
07427          XtVaSetValues( seq->wscale ,
07428                            XmNmaximum , newtot-1 ,
07429                         NULL ) ;
07430 
07431          if( seq->im_nr >= newtot )
07432             ISQ_redisplay( seq , newtot-1 , isqDR_display ) ;
07433 
07434          RETURN( True );
07435       }
07436       break ;
07437 #endif
07438 
07439       /*------- new image sequence!!! -------*/
07440 
07441       case isqDR_newseq:{
07442          Boolean good ;
07443          ISQ_timer_stop(seq) ;
07444          good = ISQ_setup_new( seq , drive_data ) ;
07445          RETURN( good );
07446       }
07447       break ;
07448 
07449       /*------ re-initialize image statistics -----*/
07450 
07451       case isqDR_clearstat:{
07452          int ii ;
07453 
07454          seq->opt.scale_group = ISQ_SCL_AUTO ;  /* autoscaling */
07455          ISQ_disp_options( seq , False ) ;      /* set buttons */
07456 
07457          if( seq->glstat->worker != 0 ){  /* remove work process */
07458             XtRemoveWorkProc( seq->glstat->worker ) ;
07459             seq->glstat->worker = 0 ;
07460          }
07461 
07462          for( ii=0 ; ii < seq->status->num_total ; ii++ )
07463             seq->imstat[ii].one_done = seq->imstat[ii].glob_done = False ;
07464 
07465          for( ii=0 ; ii < NHISTOG ; ii++ )
07466             seq->glstat->hist[ii] = 0 ;  /* initialize histogram */
07467 
07468          seq->glstat->mm_done =
07469            seq->glstat->per_done = (seq->status->num_series < 2 ) ;
07470 
07471 #ifdef AUTOMATE_STATISTICS
07472          if( seq->glstat->mm_done ){
07473             seq->glstat->worker = 0 ;
07474          } else {
07475             seq->glstat->worker = XtAppAddWorkProc(
07476                                         seq->dc->appcontext ,
07477                                         ISQ_statistics_WP , seq ) ;
07478          }
07479 #else
07480          seq->glstat->worker = 0 ;
07481 #endif
07482       }
07483       break ;
07484 
07485    }  /* end of switch on drive_code */
07486 
07487    RETURN( False );  /* should never be reached! */
07488 }

02077 {
02078    float hh,vv , mh,dh , hhold,vvold ;
02079 
02080 ENTRY("ISQ_actually_pan") ;
02081 
02082    if( !ISQ_REALZ(seq) || seq->zoom_fac == 1 || seq->zoom_xim == NULL ) EXRETURN;
02083 
02084    mh = (seq->zoom_fac-1.001)/seq->zoom_fac ;  /* max offset    */
02085    dh = 0.020/seq->zoom_fac ;                  /* delta offset   */
02086    hh=seq->zoom_hor_off ; hhold=hh ;           /* current offsets */
02087    vv=seq->zoom_ver_off ; vvold=vv ;
02088 
02089    hh += lr*dh ;
02090         if( hh < 0.0) hh = 0.0 ;
02091    else if( hh > mh ) hh = mh  ;
02092 
02093    vv += ud*dh ;
02094         if( vv < 0.0) vv = 0.0 ;
02095    else if( vv > mh ) vv = mh  ;
02096 
02097    if( vv == vvold && hh == hhold ) EXRETURN ; /* no changes? */
02098 
02099    seq->zoom_hor_off = hh ;                    /* changes! */
02100    seq->zoom_ver_off = vv ;
02101    ISQ_show_zoom( seq ) ;                      /* redraw */
02102    EXRETURN ;
02103 }

06323 {
06324    MCW_imseq * seq = (MCW_imseq *) client_data ;
06325    int ddd ;
06326 
06327 ENTRY("ISQ_arrow_CB") ;
06328 
06329    if( ! ISQ_REALZ(seq) ) EXRETURN ;
06330 
06331    if( av->fval > av->old_fval ) ddd = -1 ;
06332    else                          ddd =  1 ;
06333 
06334 /*
06335    ddd = (av->fval > av->old_fval) ? (-1) : (1) ;
06336 */
06337 
06338    if( av == seq->arrow[NARR_SQUEEZE] ){
06339            DC_palette_squeeze( seq->dc , ddd ) ;
06340            COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
06341 
06342    } else if( av == seq->arrow[NARR_BRIGHT]  ){
06343            DC_palette_bright(  seq->dc , ddd ) ;
06344            COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
06345 
06346    } else if( av == seq->arrow[NARR_ROTATE]  ){
06347            DC_palette_rotate(  seq->dc ,-ddd ) ;
06348            COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
06349 
06350    } else if( av == seq->arrow[NARR_GAMMA]   ){
06351            if( seq->imim == NULL || seq->imim->kind != MRI_rgb ){
06352              double new_gamma = seq->dc->gamma ;
06353              if( ddd > 0 ) new_gamma *= 0.95 ;
06354              else          new_gamma /= 0.95 ;
06355              DC_palette_restore( seq->dc , new_gamma ) ;
06356              COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
06357 
06358            } else {   /* 25 Apr 2005: delta gamma on RGB images */
06359              if( ddd > 0 ) seq->rgb_gamma *= 0.95 ;
06360              else          seq->rgb_gamma /= 0.95 ;
06361              ISQ_redisplay( seq , -1 , isqDR_reimage ) ;
06362            }
06363 
06364    } else if( av == seq->arrow[NARR_FRAC]  ){  /* 25 Oct 1996 */
06365       float nfrac = seq->image_frac ;
06366 
06367       nfrac += (ddd < 0) ? DFRAC : -DFRAC ;
06368 
06369       if( nfrac >= FRAC_MIN && nfrac <= FRAC_MAX ){
06370          seq->image_frac = nfrac ;
06371 
06372          XtVaSetValues( seq->wimage ,
06373                           XmNrightPosition ,(int)(0.49 + nfrac * FORM_FRAC_BASE),
06374                           XmNbottomPosition,(int)(0.49 + nfrac * FORM_FRAC_BASE),
06375                         NULL ) ;
06376          XtVaSetValues( seq->wscale ,
06377                           XmNrightPosition ,(int)(0.49 + nfrac * FORM_FRAC_BASE),
06378                         NULL ) ;
06379          XtVaSetValues( seq->wbar ,
06380                           XmNbottomPosition,(int)(0.49 + nfrac * FORM_FRAC_BASE),
06381                         NULL ) ;
06382          XtVaSetValues( seq->winfo ,
06383                           XmNrightPosition ,(int)(0.49 + nfrac * FORM_FRAC_BASE),
06384                         NULL ) ;
06385       } else {
06386          XBell( seq->dc->display , 100 ) ;
06387       }
06388    }
06389 
06390    ISQ_but_done_reset( seq ) ;
06391    EXRETURN ;
06392 }

07496 {
07497    MCW_imseq * seq = (MCW_imseq *) client_data ;
07498 
07499    ISQ_cbs cbs ;
07500    int xorg,yorg , xwin,ywin , xoff,yoff ;
07501 
07502 ENTRY("ISQ_arrowpad_CB") ;
07503 
07504    if( ! ISQ_REALZ(seq) || seq->status->send_CB == NULL ) EXRETURN ;
07505 
07506    cbs.event = &(apad->xev) ;  /* copy event for user's edification */
07507 
07508    if( apad->which_pressed == AP_MID ){
07509       cbs.reason = isqCR_appress ;
07510 #if 0
07511       seq->status->send_CB( seq , seq->getaux , &cbs ) ;
07512 #else
07513       SEND(seq,cbs) ;
07514 #endif
07515       EXRETURN ;
07516    }
07517 
07518    /* 24 Jan 2003: pan a zoomed image */
07519 
07520    if( seq->zoom_button1 && seq->zoom_fac > 1 && seq->zoom_xim != NULL ){
07521      switch( apad->which_pressed ){
07522        default:
07523        case AP_DOWN:  xoff =  0 ; yoff = -1 ; break ;
07524        case AP_UP:    xoff =  0 ; yoff =  1 ; break ;
07525        case AP_LEFT:  xoff =  1 ; yoff =  0 ; break ;
07526        case AP_RIGHT: xoff = -1 ; yoff =  0 ; break ;
07527      }
07528      ISQ_actually_pan( seq , xoff , yoff ) ;
07529      EXRETURN ;
07530    }
07531 
07532    xwin = ywin = XYORG ;
07533 
07534    switch( apad->which_pressed ){
07535       default:
07536       case AP_DOWN:  ywin = XYORG + DXY ; break ;
07537       case AP_UP:    ywin = XYORG - DXY ; break ;
07538       case AP_LEFT:  xwin = XYORG - DXY ; break ;
07539       case AP_RIGHT: xwin = XYORG + DXY ; break ;
07540    }
07541 
07542    xorg = yorg = XYORG ;       ISQ_flipxy( seq , &xorg,&yorg ) ;
07543    xoff = xwin ; yoff = ywin ; ISQ_flipxy( seq , &xoff,&yoff ) ;
07544 
07545         if( xoff > xorg ) cbs.reason = isqCR_dxplus  ;
07546    else if( xoff < xorg ) cbs.reason = isqCR_dxminus ;
07547    else if( yoff > yorg ) cbs.reason = isqCR_dyplus  ;
07548    else if( yoff < yorg ) cbs.reason = isqCR_dyminus ;
07549    else                   EXRETURN ;                     /* error! */
07550 
07551 #if 0
07552    seq->status->send_CB( seq , seq->getaux , &cbs ) ;
07553 #else
07554    SEND(seq,cbs) ;
07555 #endif
07556    EXRETURN ;
07557 }

06399 {
06400    MCW_imseq *seq = (MCW_imseq *) client_data ;
06401 
06402 ENTRY("ISQ_but_cnorm_CB") ;
06403 
06404    if( ! ISQ_REALZ(seq) ) EXRETURN ;
06405 
06406    DC_palette_restore( seq->dc , 0.0 ) ;
06407    seq->rgb_gamma  = 1.0 ;     /* 25 Apr 2005 */
06408    seq->rgb_offset = 0.0 ;
06409    COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
06410    ISQ_but_done_reset( seq ) ;
06411    EXRETURN ;
06412 }

03044 {
03045    MCW_imseq *seq = (MCW_imseq *) client_data ;
03046 
03047 ENTRY("ISQ_but_color_CB") ;
03048 
03049    if( ! ISQ_REALZ(seq) ) EXRETURN ;
03050 
03051    if( seq->dc->use_xcol_im ) DC_palette_setgray( seq->dc ) ;
03052    else                       DC_palette_setcolor( seq->dc ) ;
03053 
03054    COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
03055    ISQ_but_done_reset( seq ) ;
03056    EXRETURN ;
03057 }

03063 {
03064    MCW_imseq *seq = (MCW_imseq *) client_data ;
03065 
03066 ENTRY("ISQ_but_cswap_CB") ;
03067 
03068    if( ! ISQ_REALZ(seq) ) EXRETURN ;
03069 
03070    DC_palette_swap( seq->dc ) ;
03071    COLORMAP_CHANGE(seq) ;      /* 22 Aug 1998 */
03072    ISQ_but_done_reset( seq ) ;
03073    EXRETURN ;
03074 }

05405 {
05406    MCW_imseq *seq = (MCW_imseq *) client_data ;
05407    int ib ;
05408    Widget rctop , rcboxes , shtop ;
05409    Widget swtop=NULL ;
05410 
05411 ENTRY("ISQ_but_disp_CB") ;
05412 
05413    if( ! ISQ_REALZ(seq) || seq->dialog != NULL ) EXRETURN ;
05414 
05415    for( ib=0 ; ib < NBUTTON_BOT-1 ; ib++ )        /* turn off buttons  */
05416       if( ISQ_but_bot_dial[ib] == True )          /* that also want to */
05417         SENSITIZE( seq->wbut_bot[ib] , False ) ;  /* use seq->dialog   */
05418 
05419    seq->dialog = XtVaCreatePopupShell(
05420                     "menu" , xmDialogShellWidgetClass , seq->wtop ,
05421                        XmNtitle , "Display Options" ,
05422                        XmNdeleteResponse , XmDO_NOTHING ,
05423                        XmNinitialResourcesPersistent , False ,
05424                     NULL ) ;
05425 
05426    SAVEUNDERIZE(seq->dialog) ; /* 27 Feb 2001 */
05427 
05428    DC_yokify( seq->dialog , seq->dc ) ;  /* 14 Sep 1998 */
05429 
05430    seq->dialog_starter = NBUT_DISP ;
05431 
05432 #if 1
05433    if( MCW_isitmwm(w) )
05434       XtVaSetValues( seq->dialog ,
05435                        XmNmwmDecorations , MWM_DECOR_BORDER ,
05436                        XmNmwmFunctions ,   MWM_FUNC_MOVE
05437                                          | MWM_FUNC_CLOSE ,
05438                      NULL ) ;
05439 #endif
05440 
05441    XmAddWMProtocolCallback(           /* make "Close" window menu work */
05442            seq->dialog ,
05443            XmInternAtom( seq->dc->display , "WM_DELETE_WINDOW" , False ) ,
05444            ISQ_disp_act_CB , seq ) ;
05445 
05446    for( ib=0 ; ib < NACT_DISP ; ib++ )
05447       ISQ_disp_act[ib].data = (XtPointer) seq ;
05448 
05449    if( seq->dc->height < 1024 ||               /* 21 Jun 2005 */
05450        AFNI_yesenv("AFNI_DISP_SCROLLBARS") ){  /* 31 Jan 2002 */
05451 
05452       shtop = swtop = XtVaCreateManagedWidget(
05453                  "menu" , xmScrolledWindowWidgetClass , seq->dialog ,
05454                     XmNscrollingPolicy        , XmAUTOMATIC ,
05455                     XmNvisualPolicy           , XmVARIABLE ,
05456                     XmNscrollBarDisplayPolicy , XmSTATIC ,
05457                     XmNinitialResourcesPersistent , False ,
05458                  NULL ) ;
05459    } else {
05460       shtop = seq->dialog ;
05461    }
05462 
05463    rctop = XtVaCreateWidget(
05464               "menu" , xmRowColumnWidgetClass , shtop ,
05465                  XmNpacking    , XmPACK_TIGHT ,
05466                  XmNnumColumns , 1 ,
05467 
05468                  XmNinitialResourcesPersistent , False ,
05469               NULL ) ;
05470 
05471    rcboxes = XtVaCreateWidget(
05472                 "menu" , xmRowColumnWidgetClass , rctop ,
05473                    XmNpacking    , XmPACK_TIGHT ,
05474                    XmNnumColumns , 2 ,
05475 
05476                    XmNinitialResourcesPersistent , False ,
05477               NULL ) ;
05478 
05479    for( ib=0 ; ib < NBOX_DISP ; ib++ ){
05480       int jh ;
05481       char ** bbh = ISQ_bb_allhelp[ib] ;
05482       char ** cch = ISQ_bb_allhint[ib] ;
05483 
05484       /*** 30 Oct 1996: transformations just above the IMPROC buttons ***/
05485 
05486       if( ib == NTOG_IMP ){
05487          int nav = 0 ;
05488 
05489          /*---- FIRST, add some check boxes for special options ----*/
05490 
05491          char *save_one_label[] = { "Save One" }  ; /* 26 Jul 2001 */
05492          char *save_agif_label  = "Save Anim GIF" ; /* 27 Jul 2001 */
05493          char *save_mpeg_label  = "Save Anim MPG" ; /* 02 Aug 2001 */
05494          char *save_anim_label[2] ;
05495 
05496          seq->save_one_bbox = new_MCW_bbox( rcboxes ,
05497                                             1 ,
05498                                             save_one_label ,
05499                                             MCW_BB_check ,
05500                                             MCW_BB_frame ,
05501                                             ISQ_disp_act_CB , (XtPointer) seq ) ;
05502          MCW_reghelp_children( seq->save_one_bbox->wrowcol ,
05503                                " \n"
05504                                "When pressed IN, then the 'Save' button\n"
05505                                "will only save a snapshot of the current\n"
05506                                "display.  This is the ONLY way to save\n"
05507                                "a montage.\n"
05508                                "\n"
05509                                "When pressed OUT, then the 'Save' button\n"
05510                                "asks for the first and last image indexes\n"
05511                                "to save, and then saves each individual\n"
05512                                "image (no montage) to a file.\n"
05513                              ) ;
05514          MCW_reghint_children( seq->save_one_bbox->wrowcol ,
05515                                "Save just 1 (including montage)" ) ;
05516 
05517          if( ppmto_agif_filter != NULL || ppmto_mpeg_filter != NULL ){
05518            int nb = 0 ;
05519            if( ppmto_agif_filter != NULL ) save_anim_label[nb++]=save_agif_label;
05520            if( ppmto_mpeg_filter != NULL ) save_anim_label[nb++]=save_mpeg_label;
05521            seq->save_agif_bbox = new_MCW_bbox( rcboxes ,
05522                                                nb ,
05523                                                save_anim_label ,
05524                                                MCW_BB_radio_zero ,
05525                                                MCW_BB_frame ,
05526                                                ISQ_disp_act_CB, (XtPointer)seq );
05527            MCW_reghelp_children( seq->save_agif_bbox->wrowcol ,
05528                                  " \n"
05529                                  "Controls if image sequence is saved to\n"
05530                                  "an animation file, rather than a bunch\n"
05531                                  "of separate image files.\n"
05532                                  "* This takes precedence over 'Save One',\n"
05533                                  "    if it is also turned on.\n"
05534                                  "* GIF animations require gifsicle.\n"
05535                                  "* MPEG-1 animations require mpeg_encode.\n"
05536                                ) ;
05537            MCW_reghint_children( seq->save_agif_bbox->wrowcol ,
05538                                  "Save image sequence to animation" ) ;
05539          } else {
05540            seq->save_agif_bbox = NULL ;
05541          }
05542 
05543          /*---- OK, do the transforms NOW ----*/
05544 
05545          if( seq->status->slice_proj != NULL &&
05546              seq->status->slice_proj->num > 0  ){  /* 31 Jan 2002 */
05547 
05548              (void) XtVaCreateManagedWidget(
05549                       "menu" , xmSeparatorWidgetClass , rcboxes ,
05550                          XmNseparatorType , XmSINGLE_LINE ,
05551                          XmNinitialResourcesPersistent , False ,
05552                       NULL ) ;
05553 
05554              seq->slice_proj_av =
05555                 new_MCW_optmenu( rcboxes , "Project" ,
05556                                  0 , seq->status->slice_proj->num ,
05557                                  seq->slice_proj_index , 0 ,
05558                                  ISQ_slice_proj_CB , (XtPointer) seq ,
05559                                  ISQ_transform_label ,
05560                                  (XtPointer) seq->status->slice_proj ) ;
05561 
05562              if( seq->status->slice_proj->num >= COLSIZE )
05563                 AVOPT_columnize( seq->slice_proj_av ,
05564                                  (seq->status->slice_proj->num/COLSIZE)+1 ) ;
05565 
05566              MCW_reghelp_children( seq->slice_proj_av->wrowcol ,
05567                                    "Choose a projection function\n"
05568                                    "to apply to plus-or-minus\n"
05569                                    "'Slab' images from each pixel.\n"
05570                                    "Built-in projections:\n"
05571                                    " Minimum = smallest value in slab\n"
05572                                    " Maximum = largest value in slab\n"
05573                                    " Mean    = average value in slab\n"
05574                                    " Median  = median value in slab\n"
05575                                    " Extreme = value farthest from median" ) ;
05576 
05577              MCW_reghint_children( seq->slice_proj_av->wrowcol ,
05578                                    "Image projection function"  ) ;
05579 
05580              seq->slice_proj_range_av =
05581                 new_MCW_optmenu( rcboxes , "Slab +-" ,
05582                                  0 , 19 , seq->slice_proj_range , 0 ,
05583                                  ISQ_slice_proj_CB , (XtPointer) seq ,
05584                                  NULL , NULL ) ;
05585              MCW_reghelp_children( seq->slice_proj_range_av->wrowcol ,
05586                                    "Choose thickness of Project slice\n"
05587                                    "package (in each direction from\n"
05588                                    "central slice).  For example:\n"
05589                                    " 2 ==> slab is 5 images thick\n"
05590                                    "       (2 before, 2 after, central)" ) ;
05591              MCW_reghint_children( seq->slice_proj_range_av->wrowcol ,
05592                                    "Slab half-thickness"              ) ;
05593              nav++ ;
05594          }
05595 
05596          /* 0D transforms */
05597 
05598          if( seq->status->transforms0D != NULL &&
05599              seq->status->transforms0D->num > 0  ){
05600 
05601              (void) XtVaCreateManagedWidget(
05602                       "menu" , xmSeparatorWidgetClass , rcboxes ,
05603                          XmNseparatorType , XmSINGLE_LINE ,
05604                          XmNinitialResourcesPersistent , False ,
05605                       NULL ) ;
05606 
05607              seq->transform0D_av =
05608                 new_MCW_optmenu( rcboxes , "Tran 0D" ,
05609                                  0 , seq->status->transforms0D->num ,
05610                                  seq->transform0D_index , 0 ,
05611                                  ISQ_transform_CB , (XtPointer) seq ,
05612                                  ISQ_transform_label ,
05613                                  (XtPointer) seq->status->transforms0D ) ;
05614 
05615              if( seq->status->transforms0D->num >= COLSIZE )
05616                 AVOPT_columnize( seq->transform0D_av ,
05617                                  (seq->status->transforms0D->num/COLSIZE)+1 ) ;
05618 
05619              MCW_reghelp_children( seq->transform0D_av->wrowcol ,
05620                                    "Choose a function to apply to\n"
05621                                    "each point in the image." ) ;
05622              MCW_reghint_children( seq->transform0D_av->wrowcol ,
05623                                    "Pointwise transformations" ) ;
05624              nav++ ;
05625          }
05626 
05627          /* 2D transforms */
05628 
05629          if( seq->status->transforms2D != NULL &&
05630              seq->status->transforms2D->num > 0  ){
05631 
05632              (void) XtVaCreateManagedWidget(
05633                       "menu" , xmSeparatorWidgetClass , rcboxes ,
05634                          XmNseparatorType , XmSINGLE_LINE ,
05635                          XmNinitialResourcesPersistent , False ,
05636                       NULL ) ;
05637 
05638              seq->transform2D_av =
05639                 new_MCW_optmenu( rcboxes , "Tran 2D" ,
05640                                  0 , seq->status->transforms2D->num ,
05641                                  seq->transform2D_index , 0 ,
05642                                  ISQ_transform_CB , (XtPointer) seq ,
05643                                  ISQ_transform_label ,
05644                                  (XtPointer) seq->status->transforms2D ) ;
05645 
05646              if( seq->status->transforms2D->num >= COLSIZE )
05647                 AVOPT_columnize( seq->transform2D_av ,
05648                                  (seq->status->transforms2D->num/COLSIZE)+1 ) ;
05649 
05650              MCW_reghelp_children( seq->transform2D_av->wrowcol ,
05651                                    "Choose a function to apply to\n"
05652                                    "the underlay image as a whole." ) ;
05653              MCW_reghint_children( seq->transform2D_av->wrowcol ,
05654                                    "Global transformations" ) ;
05655              nav++ ;
05656          }
05657 
05658          /* 30 Dec 1998: rowgraphs */
05659 
05660          if( nav > 0 && seq->status->send_CB != NULL ){
05661             (void) XtVaCreateManagedWidget(
05662                      "menu" , xmSeparatorWidgetClass , rcboxes ,
05663                         XmNseparatorType , XmSINGLE_LINE ,
05664                         XmNinitialResourcesPersistent , False ,
05665                      NULL ) ;
05666 
05667             seq->rowgraph_av =
05668                new_MCW_optmenu( rcboxes , "RowGraphs" ,
05669                                 0 , ROWGRAPH_MAX , seq->rowgraph_num , 0 ,
05670                                 ISQ_rowgraph_CB , (XtPointer) seq ,
05671                                 ISQ_rowgraph_label , NULL ) ;
05672             AVOPT_columnize( seq->rowgraph_av , 2 ) ;
05673 
05674             MCW_reghelp_children( seq->rowgraph_av->wrowcol ,
05675                                   "Rowgraphs are plots of the underlay\n"
05676                                   "(grayscale) image intensity as\n"
05677                                   "x vs. y graphs.  Each graph is from\n"
05678                                   "one displayed horizontal row of the\n"
05679                                   "image.  The bottom rowgraph is from\n"
05680                                   "the image row under the crosshairs.\n"
05681                                   "Upper rowgraphs are from higher image\n"
05682                                   "rows.  Note that image transformations\n"
05683                                   "functions and image rotations/flips\n"
05684                                   "will affect the rowgraphs as well as\n"
05685                                   "the image display.\n\n"
05686                                   "N.B.: The color 'UK Flag' marker indicates\n"
05687                                   "      the crosshair focus point. It can be\n"
05688                                   "      turned off via the 'No Overlay' button."
05689                                  ) ;
05690             MCW_reghint_children( seq->rowgraph_av->wrowcol ,
05691                                   "Number of image rows to graph" ) ;
05692             nav++ ;
05693          }
05694 
05695          /* 21 Jan 1999: surfgraph */
05696 
05697          if( nav > 0 && seq->status->send_CB != NULL ){
05698             (void) XtVaCreateManagedWidget(
05699                      "menu" , xmSeparatorWidgetClass , rcboxes ,
05700                         XmNseparatorType , XmSINGLE_LINE ,
05701                         XmNinitialResourcesPersistent , False ,
05702                      NULL ) ;
05703 
05704             seq->surfgraph_av =
05705                new_MCW_optmenu( rcboxes , "SurfGraph" ,
05706                                 0 , SURFGRAPH_MAX , seq->surfgraph_num , 0 ,
05707                                 ISQ_surfgraph_CB , (XtPointer) seq ,
05708                                 ISQ_surfgraph_label , NULL ) ;
05709 
05710             MCW_reghelp_children( seq->surfgraph_av->wrowcol ,
05711                                   "The SurfGraph is a wiremesh plot of the\n"
05712                                   "underlay (grayscale) image intensity vs.\n"
05713                                   "x and y.  Use the arrows in the SurfGraph\n"
05714                                   "window to rotate the viewpoint; use the\n"
05715                                   "middle button between the arrows to reset\n"
05716                                   "the viewpoint to the default orientation.\n"
05717                                   "\n"
05718                                   "N.B.: The plotting routine may produce some\n"
05719                                   "        erroneous vertical lines on occasion.\n"
05720                                   "      The color 'UK Flag' marker indicates\n"
05721                                   "        crosshair focus point.  It is drawn\n"
05722                                   "        on top of the surface at the end, and\n"
05723                                   "        so is always visible, even if it should\n"
05724                                   "        be hidden behind the surface; that is,\n"
05725                                   "        it shines through, no matter what.\n"
05726                                   "      The color marker can be turned off with\n"
05727                                   "        the 'No Overlay' button."
05728                                  ) ;
05729             MCW_reghint_children( seq->surfgraph_av->wrowcol ,
05730                                   "Plot wiremesh surface?" ) ;
05731             nav++ ;
05732          }
05733 
05734          /* final separator */
05735 
05736          if( nav ) (void) XtVaCreateManagedWidget(
05737                             "menu" , xmSeparatorWidgetClass , rcboxes ,
05738                                XmNseparatorType , XmSINGLE_LINE ,
05739                                XmNinitialResourcesPersistent , False ,
05740                             NULL ) ;
05741       }
05742 
05743       /*** back to the button box stuff ***/
05744 
05745       seq->bbox[ib] = new_MCW_bbox( rcboxes ,
05746                                      ISQ_dispbb[ib].nbut ,
05747                                      ISQ_dispbb[ib].lbut ,
05748                                      ISQ_dispbb[ib].type ,
05749                                      ISQ_dispbb[ib].frame ,
05750                                      ISQ_disp_act_CB , (XtPointer) seq ) ;
05751 
05752       seq->bbox[ib]->parent = (XtPointer) seq ;
05753 
05754       seq->num_bbox ++ ;
05755 
05756       for( jh=0 ; jh < seq->bbox[ib]->nbut ; jh++ ){
05757          MCW_register_help( seq->bbox[ib]->wbut[jh] , bbh[jh] ) ;
05758          MCW_register_hint( seq->bbox[ib]->wbut[jh] , cch[jh] ) ;
05759       }
05760 
05761    }
05762 
05763 #define NO_GROUP_SCALE
05764 #ifdef  NO_GROUP_SCALE
05765    XtUnmanageChild( seq->bbox[NTOG_SCL]->wtop ) ;  /* turn this box off! */
05766 #endif
05767 
05768    if( seq->last_image_type != MRI_complex )
05769       XtUnmanageChild( seq->bbox[NTOG_CX]->wtop ) ;
05770 
05771    XtManageChild( rcboxes ) ;
05772 
05773    (void) MCW_action_area( rctop , ISQ_disp_act , NACT_DISP ) ;
05774 
05775    XtManageChild( rctop ) ;
05776 
05777    if( swtop != NULL ){       /* 31 Jan 2002 */
05778      int wx,hy , cmax ;
05779      MCW_widget_geom( rctop  , &wx,&hy,NULL,NULL ) ;
05780 
05781      cmax = HeightOfScreen(XtScreen(rctop)) - 128 ;
05782      if( hy > cmax ) hy = cmax ;
05783 
05784      XtVaSetValues( seq->dialog , XmNwidth,wx+29,XmNheight,hy+19 , NULL ) ;
05785    }
05786 
05787    ISQ_place_dialog( seq ) ;  /* 05 Jan 1999 */
05788 
05789    XtPopup( seq->dialog , XtGrabNone ) ;
05790 
05791    ISQ_disp_options( seq , False ) ;  /* set toggles from option list */
05792    seq->save_opt = seq->opt ;         /* for use with Reset button */
05793 
05794    NORMAL_cursorize( seq->dialog ) ;
05795 
05796    ISQ_but_done_reset( seq ) ;
05797    EXRETURN ;
05798 }