pro sample_plot

TVLCT,[[255],[255],[255]],100
black=000
white='FFFFFF'x
;111 is Stanford Red

pix_array=findgen(20)

set_plot, 'z'

device, set_font='Courier'
device, set_resolution=[8000,6000]

!P.CHARSIZE=10
!P.CHARTHICK=30
!P.THICK=20
!X.THICK=20
!Y.THICK=20

symsize=10.
filenamecharsize=8.

erase

plot,pix_array,psym=0,title="Cosmic Ray Hits",xtitle="Read Number",charsize=1.10*!P.CHARSIZE, ytitle='ADUs', $
         color=black,background=white,position=[0.15,0.15,0.8,0.9],ystyle=1,$
         xstyle=1

jpgimg=tvrd()
                                                                                
write_jpeg,'./Sample.jpg',congrid(jpgimg,400,400,/interp,/center),quality=100

device,/close

end