Hello IDLers,
Could you please tell me if the code below crashes your IDL ? If you
have the same problem I will report the BUG.
Thank you,
nata
PRO CRASH_IDL, file
file = FILEPATH('IDLPoweredBy.jpg', $
SUBDIRECTORY = ['examples', 'mjpeg2000'])
image=READ_IMAGE(file)
sz=SIZE(image,/DIM)
base=WIDGET_BASE(/COLUMN,TITLE=title, TLB_FRAME_ATTR=15)
draw=WIDGET_DRAW(base,XSIZE=sz[1],YSIZE=sz[2],GRAPHICS_LEVEL =2,RETAIN=0,RENDERER=1)
oview=OBJ_NEW('IDLgrView',VIEWPLANE_RECT=[0,0,sz[1],sz[2]],L OCATION=[0,0],DIMENSIONS=[sz[1],sz[2]])
omodel1=OBJ_NEW('IDLgrModel')
omodel2=OBJ_NEW('IDLgrModel')
oview->Add, omodel1
oview->Add, omodel2
oimage=OBJ_NEW('IDLgrImage',DIMENSIONS=[sz[1],sz[2]],LOCATIO N=[0,0],DATA=image)
omodel1->Add, oimage, /ALIAS
omodel2->Add, oimage, /ALIAS
WIDGET_CONTROL, base, /REALIZE
WIDGET_CONTROL, draw, GET_VALUE=owind
owind->SetProperty, QUALITY=2
owind->Draw, oview
WAIT, 1
oclipboard=OBJ_NEW('IDLgrClipboard',DIMENSIONS=[sz[1],sz[2]] )
oclipboard->Draw, oview, /POSTSCRIPT, /VECTOR, FILENAME='./test1.ps'
;; Change view viewport
viewplane=[sz[1]/4.,sz[2]/6,sz[1]*2/3.,sz[2]*2/3.]
oview->SetProperty, VIEWPLANE_RECT=viewplane
owind->Draw, oview
WAIT, 1
oclipboard->Draw, oview, /POSTSCRIPT, /VECTOR, FILENAME='./test2.ps'
OBJ_DESTROY, [oclipboard,owind,omodel1,omodel2,oimage,oview]
WIDGET_CONTROL, base, /DESTROY
END
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
