chapter09objectrose.pro

来自「idl 可视化分析与应用（随书程序）」· PRO 代码 · 共 24 行

; Chapter09ObjectRose.pro
PRO Chapter09ObjectRose
    file = FILEPATH('rose.jpg', SUBDIRECTORY = ['examples', 'data'])
    queryStatus = QUERY_IMAGE(file, imageInfo)
    imageSize = imageInfo.dimensions
    image = READ_IMAGE(file)
    imageDims = SIZE(image, /DIMENSIONS)
    interleaving = WHERE((imageDims NE imageSize[0])  $
                   AND (imageDims NE imageSize[1]))
    oWindow = OBJ_NEW('IDLgrWindow', RETAIN = 2, $
              DIMENSIONS = imageSize, TITLE = 'Rose Image')
    oView = OBJ_NEW('IDLgrView',VIEWPLANE_RECT = [0., 0., imageSize])
    oModel = OBJ_NEW('IDLgrModel')
    oImage = OBJ_NEW('IDLgrImage',image,INTERLEAVE = interleaving[0])
    oModel -> Add, oImage
    oView -> Add, oModel
    oWindow -> Draw, oView
    variable = ''
    READ, variable, PROMP='Destroy objects? (y/n) [y]: '
    IF STRPOS(STRUPCASE(variable),'N') EQ -1 THEN BEGIN
       OBJ_DESTROY, oView
       OBJ_DESTROY, oWindow
    ENDIF
END