hc = 1
save = 1

 seq_filnam = '/md65/log/sci160k/950804_230505'
 for k=0,9 do disp_mmap, seq_filnam, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save, nimg=21

;seq_filnam = '/md66/toulouse/data_disk2/log/sci160k/950630_214927'
;for ipos=6,8 do disp_mmap, seq_filnam, ipos, imgnum=indgen(27) + ipos*27 + 1 -1, save=save, hc=hc


;for k=0,9 do disp_mmap, 548, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=7,9 do disp_mmap, 555, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 551, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 553, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 549, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 555, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 554, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 550, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save

;for k=0,9 do disp_mmap, 588, 0, hc=hc, sub10=k, save=save, part1_save=save, part2_save=save

;for i=685,686 do for j=0,8 do disp_mmap, i, j , hc=hc, /nodefringe
;for i=685,686 do for j=0,8 do disp_mmap, i, j , hc=hc

;for i=658,676 do disp_mmap, i, 0, save=save, hc=hc
;for i=599,610 do disp_mmap, i, 0, save=save, hc=hc
;for i=592,612 do disp_mmap, i, 0, save=save, hc=hc
;for i=869,878 do disp_mmap, i, 0, save=save, hc=hc
;for i=880,909 do disp_mmap, i, 0, save=save, hc=hc
;for i=592,612 do mmap1pos, i, 0, save=save

;for k=0,9 do disp_mmap, 911, sub10=k, hc=hc, save=save, part1_save=save, part2_save=save
;for k=0,9 do disp_mmap, 911, sub10=k, hc=hc, save=save, part1_save=save, part2_save=save

;for i=241,271 do for k=0,1 do disp_mmap, i, sub10=k, hc=hc, save=save

;for j=0,8 do disp_do1pos, 274, j , hc=hc, save=save
;for j=0,8 do disp_do1pos, 680, j , hc=hc
;for j=0,8 do disp_do1pos, 687, j , hc=hc
;for k=0,9 do disp_do1pos, 504, 0 , hc=hc, sub10=k
;for k=0,9 do disp_do1pos, 588, 0 , hc=hc, sub10=k
;for k=0,9 do disp_do1pos, 620, 0 , hc=hc, sub10=k, /save, /part1_save, /part2_save
;for k=0,9 do disp_do1pos, 509, 0 , hc=hc, sub10=k, /save, /part1_save, /part2_save
;for k=0,9 do disp_do1pos, 590, 0 , hc=hc, sub10=k, /save	;laser scans
;for k=0,9 do disp_do1pos, 510, 0 , hc=hc, sub10=k, /save	;laser scans
;disp_do1pos, 575, /hc

 stop

;------------------------------------------------------------------------------
;for j=0,8 do disp_do1pos, 274, j , hc=hc, save=save
;for k=0,9 do disp_do1pos, 504, 0 , hc=hc, sub10=k

;for i=575,586 do disp_do1pos, i, 0, hc=hc
;for i=592,612 do disp_do1pos, i, 0, hc=hc

 for j=0,8 do for k=0,0 do disp_do1pos, 613, j, sub10=k, hc=hc
 for j=0,8 do for k=0,0 do disp_do1pos, 614, j, sub10=k, hc=hc

 for i=621,643 do disp_do1pos, i, 0 , hc=hc
 for i=656,676 do disp_do1pos, i, 0 , hc=hc

 for j=0,8 do disp_do1pos, 678, j , hc=hc
 for j=0,8 do disp_do1pos, 680, j , hc=hc
;;;for j=0,8 do disp_do1pos, 685, j , hc=hc
;;;for j=0,8 do disp_do1pos, 686, j , hc=hc
 for j=0,8 do disp_do1pos, 687, j , hc=hc

 for i=691,706 do disp_do1pos, i, 0 , hc=hc
end