Changeset 23 for trunk

Timestamp:

05/02/06 14:45:59 (18 years ago)

Author:

pinsard

Message:

upgrade of IMAGE according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

Location:

trunk

Files:

• IMAGE (deleted)
• ToBeReviewed/IMAGE/animgif.pro (copied) (copied from trunk/IMAGE/animgif.pro) (2 diffs)
• ToBeReviewed/IMAGE/image_viewer.pro (added)
• ToBeReviewed/IMAGE/imdisp.pro (added)
• ToBeReviewed/IMAGE/saveimage.pro (copied) (copied from trunk/IMAGE/saveimage.pro)
• ToBeReviewed/IMAGE/showimage.pro (copied) (copied from trunk/IMAGE/showimage.pro) (3 diffs)

trunk/ToBeReviewed/IMAGE/animgif.pro

@@ -61 +61 @@
    set_plot, 'z'
 ; taille de l''image (en nombre de pixel:
-   xsize = 30*(petitfeuille*key_portrait+grandfeuille*(1-key_portrait))
-   ysize = 30*(petitfeuille*(1-key_portrait)+grandfeuille*key_portrait)
+   xsize = 30*(min(page_size, max = ma)*key_portrait + ma*(1-key_portrait))
+   ysize = 30*(min(page_size, max = ma)*(1-key_portrait) + ma*key_portrait)
    device, set_resolution = [xsize, ysize]
 ;
@@ -95 +95 @@
 ;   for i = 0, 3*2-1 do begin
 ;   for i = 0, 73*2-1 do begin
-      if keyword_set(bavard) then print, 'Image numero : '+strtrim(i, 2)
+;     print, 'Image numero : '+strtrim(i, 2)
       date = calen[debut+i]
       erase, 255

trunk/ToBeReviewed/IMAGE/showimage.pro

@@ -10 +10 @@
 ;    The input formats supported are:
 ;    GIF   8-bit with color table,
+;    PNG   8-bit with color table,
 ;    BMP   8-bit with color table or 24-bit true-color,
 ;    PICT  8-bit with color table,
@@ -122 +123 @@
 if result eq 0 then result = query_tiff(file, info)
 if result eq 0 then result = query_jpeg(file, info)
+if result eq 0 then result = query_png(file, info)
 if result eq 0 then begin
   message, 'File format not recognized', /continue
@@ -136 +138 @@
 
   'GIF' : read_gif, file, image, r, g, b
+
+  'PNG' : read_png, file, image, r, g, b
 
   'BMP' : begin