IDLgrImage [message #13916] |
Wed, 30 December 1998 00:00 |
David Borland
Messages: 6 Registered: December 1998
|
Junior Member |
|
|
Hellu,
I'm having problems getting an image file to display using object
graphics. Here is a demo procedure that I am using to test the concept.
pro tester
tmp=''
plot,indgen(20)
capture = tvrd()
tvlct,r,g,b,/get
write_gif,'Bob.gif',capture,r,g,b
wdelete,0
read_gif,'Bob.gif',bob,rr,gg,bb
pal = obj_new('idlgrPalette',rr,gg,bb)
mywindow =
obj_new('idlgrwindow',dimensions=[n_elements(bob[*,0]),n_ele ments(bob[0,*])])
myview = obj_new('idlgrview')
mymodel = obj_new('idlgrmodel')
myimage = obj_new('idlgrImage',bob)
myimage -> setproperty, palette = pal
myview -> add, mymodel
mymodel -> add, myimage
mywindow -> draw,myview
tv,bob
read,tmp
wdelete,0
obj_destroy, pal
obj_destroy, myview
obj_destroy, mywindow
end
This creates a plot and then saves it to a gif file, and then deletes
that window. Then it creates an object window, and tries to display the
image onto that window. What happens though, is that I get a black box
in the upper right hand corner, that is about a quarter of the screen
size. I also display the image using direct graphics for comparison,
and that comes out fine.
Does anyone have any suggestions on how I might fix this?
Thanks in Advance,
--
David Borland
Electrical Geodesics Inc.
davidbor@cyber-dyne.com
|
|
|