display_shade_surface.pro

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

;-------------------------------------------------------
;显示阴影表面

pro display_shade_surface
    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
    Shade_surf, A, AX = 70, AZ = 25, charsize = 1.5, Title = 'Shade Surface'

end

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