display_surface_contour_image.pro

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

;-------------------------------------------------------
;组合显示表面和等高线

pro display_surface_contour_image
    on_error,2

    MARBELLSTEMPLATE = BINARY_TEMPLATE(filepath('surface.dat',subdir = ['examples','data']))
    MARBELLS_BINARY = READ_BINARY(filepath('surface.dat',subdir = ['examples','data']),$
              TEMPLATE=MARBELLSTEMPLATE)

    A = congrid(MARBELLS_BINARY.A, 35, 45)
    device, retain = 2, decomposed = 0
    loadct, 3
    show3, A

end

;------------------------------------------------------------