Changeset 23 for trunk/ToBeReviewed
- Timestamp:
- 05/02/06 14:45:59 (18 years ago)
- Location:
- trunk/ToBeReviewed/IMAGE
- Files:
-
- 2 added
- 3 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/IMAGE/animgif.pro
r21 r23 61 61 set_plot, 'z' 62 62 ; taille de l''image (en nombre de pixel: 63 xsize = 30*( petitfeuille*key_portrait+grandfeuille*(1-key_portrait))64 ysize = 30*( petitfeuille*(1-key_portrait)+grandfeuille*key_portrait)63 xsize = 30*(min(page_size, max = ma)*key_portrait + ma*(1-key_portrait)) 64 ysize = 30*(min(page_size, max = ma)*(1-key_portrait) + ma*key_portrait) 65 65 device, set_resolution = [xsize, ysize] 66 66 ; … … 95 95 ; for i = 0, 3*2-1 do begin 96 96 ; for i = 0, 73*2-1 do begin 97 if keyword_set(bavard) thenprint, 'Image numero : '+strtrim(i, 2)97 ; print, 'Image numero : '+strtrim(i, 2) 98 98 date = calen[debut+i] 99 99 erase, 255 -
trunk/ToBeReviewed/IMAGE/showimage.pro
r21 r23 10 10 ; The input formats supported are: 11 11 ; GIF 8-bit with color table, 12 ; PNG 8-bit with color table, 12 13 ; BMP 8-bit with color table or 24-bit true-color, 13 14 ; PICT 8-bit with color table, … … 122 123 if result eq 0 then result = query_tiff(file, info) 123 124 if result eq 0 then result = query_jpeg(file, info) 125 if result eq 0 then result = query_png(file, info) 124 126 if result eq 0 then begin 125 127 message, 'File format not recognized', /continue … … 136 138 137 139 'GIF' : read_gif, file, image, r, g, b 140 141 'PNG' : read_png, file, image, r, g, b 138 142 139 143 'BMP' : begin
Note: See TracChangeset
for help on using the changeset viewer.