subroutine char SEGMENTS show vari RESOL_MAX show vari SEGMENTS set vari MAP_SCALE = 0.1 if ( RESOL_MAX .le. 3.0 ) then set vari MAP_SCALE = 5.0 end_if if ( RESOL_MAX .le. 2.5 ) then set vari MAP_SCALE = 9.0 end_if if ( RESOL_MAX .le. 2.2 ) then set vari MAP_SCALE = 10.0 end_if if ( RESOL_MAX .le. 2.2 ) then set vari MAP_SCALE = 45.0 end_if if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele by resi atom numb $1 end if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele by resi active end if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele segm name SEGMENTS end show vari MAP_ACT show vari MAP_SCALE find pept sele XX_KEY end \ step 60 \ sec 5.1 \ map MAP_ACT MAP_SCALE image over false show key XX_KEY key XX_KEY drop return