comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado

Home » Public Forums » archive » Re: IDL 8.2.2 released
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Return to the default flat view Create a new topic Submit Reply
Re: IDL 8.2.2 released [message #83050 is a reply to message #83049] Tue, 05 February 2013 11:02 Go to previous messageGo to previous message
natha is currently offline  natha
Messages: 482
Registered: October 2007
Senior Member
Could you please let me know if the following code still crashes IDL ?

Thank you in advance,
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
[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: IDL 8.2.2 fixes workbench Java crash on Fedora 18
Next Topic: adding legend with cgzplot

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Wed Oct 08 20:00:03 PDT 2025

Total time taken to generate the page: 0.00260 seconds