read_png_img.pro

来自「本手册主要向读者介绍IDL在图像处理方面的强大功能。包括如何显示、控制影像和进行」· PRO 代码 · 共 21 行

pro read_png_img
    file=dialog_pickfile(filter=['*.png'])
    ok=query_png(file,header)
    if ok ne 0 then begin
       print,header
       print,tag_names(header)
       if header.channels eq 1 then begin
         result=read_png(file)
         tvscl,result
       endif else begin
         result=read_png(file,r,g,b)
       endelse

    imgfile=dialog_pickfile(filter=['*.png'])
    write_png,imgfile,result


    endif


end