Changeset 69 for trunk/ToBeReviewed/IMAGE/showimage.pro
- Timestamp:
- 05/11/06 12:35:53 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/IMAGE/showimage.pro
r23 r69 10 10 ; The input formats supported are: 11 11 ; GIF 8-bit with color table, 12 ; PNG 8-bit with color table,13 12 ; BMP 8-bit with color table or 24-bit true-color, 14 13 ; PICT 8-bit with color table, … … 58 57 ; MODIFICATION HISTORY: 59 58 ; Liam.Gumley@ssec.wisc.edu 59 ; http://cimss.ssec.wisc.edu/~gumley 60 60 ; $Id$ 61 ; 62 ; Copyright (C) 1999 Liam E. Gumley 63 ; 64 ; This program is free software; you can redistribute it and/or 65 ; modify it under the terms of the GNU General Public License 66 ; as published by the Free Software Foundation; either version 2 67 ; of the License, or (at your option) any later version. 68 ; 69 ; This program is distributed in the hope that it will be useful, 70 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 71 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 72 ; GNU General Public License for more details. 73 ; 74 ; You should have received a copy of the GNU General Public License 75 ; along with this program; if not, write to the Free Software 76 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 61 77 ;- 78 79 rcs_id = '$Id$' 62 80 63 81 ;------------------------------------------------------------------------------- … … 123 141 if result eq 0 then result = query_tiff(file, info) 124 142 if result eq 0 then result = query_jpeg(file, info) 125 if result eq 0 then result = query_png(file, info)126 143 if result eq 0 then begin 127 144 message, 'File format not recognized', /continue … … 138 155 139 156 'GIF' : read_gif, file, image, r, g, b 140 141 'PNG' : read_png, file, image, r, g, b142 157 143 158 'BMP' : begin … … 205 220 206 221 device, get_screen_size=screen 207 if nx gt (0.95 * screen[0]) then begin 208 xsize = 0.85 * nx 222 screen_xsize = screen[0] 223 screen_ysize = screen[1] 224 if (nx gt screen_xsize) then begin 225 xsize = 0.9 * screen_xsize 209 226 scroll = 1 210 227 endif 211 if ny gt (0.95 * screen[1]) then begin212 ysize = 0. 85 * ny228 if (ny gt screen_ysize) then begin 229 ysize = 0.9 * screen_ysize 213 230 scroll = 1 214 231 endif
Note: See TracChangeset
for help on using the changeset viewer.