; ;Copyright 1996-2013 United States Government as represented by the ;Administrator of the National Aeronautics and Space Administration. ;All Rights Reserved. ; This software may be used, copied, or redistributed as long as it is not ; sold and this copyright notice is reproduced on each copy made. This ; routine is provided as is without any express or implied warranties ; whatsoever. ; pro cmb_adjust_screen_size,xsize,ysize ;check is plot fits in the computer screen, if not adjust xsize and ysize scrsize = get_screen_size() ysize0 = scrsize[1]*0.9 xsize0 = scrsize[0]*0.4 if n_elements(xsize) eq 0 then xsize=xsize0 if n_elements(ysize) eq 0 then ysize=ysize0 if xsize gt xsize0 then xsize=xsize0 if ysize gt ysize0 then ysize=ysize0 end