gencpeppi,500,400,-13,106,radpep
 
 ;  retrieve the peppi data
 pepim(*,*) = 0
 pepim(110:110+nxx-1,66:66+nyy-1) = pep(*,*)
  
  ;;; pepim = rot(pepim,-25.)   ;;;  Bruce's
  pepim = rot(pepim,-20.9)
  pepim = pepim*radpep
   
   tttp = bytscl(pepim)
   rrrr = bytscl(radpep)
    
	tv,tttp