comp.lang.idl-pvwave archive: archive

Home » Public Forums » archive » Re: Draped Contours?

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: Draped Contours? [message #68970]

Thu, 10 December 2009 10:23

penteado
Messages: 866
Registered: February 2018

Senior Member
Administrator

On Dec 10, 3:48 pm, mgalloy <mgal...@gmail.com> wrote:
> Like this?
>
> z = randomu(seed, 50, 50)
> for i = 0, 4 do z = smooth(z, 5, /edge_truncate)
>
> view = obj_new('IDLgrView')
>
> model = obj_new('IDLgrModel')
> view->add, model
>
> dem = obj_new('IDLgrSurface', z, style=2, color=[200, 200, 0],
> depth_offset=1)
> model->add, dem
>
> contours = obj_new('IDLgrContour', z, n_levels=15)
> model->add, contours
>
> lightModel = obj_new('IDLgrModel')
> view->add, lightModel
>
> light = obj_new('IDLgrLight', type=2, location=[-1, 1, 1])
> lightModel->add, light
>
> ambientLight = obj_new('IDLgrLight', type=0, intensity=0.4)
> lightModel->add, ambientLight
>
> dem->getProperty, xrange=xr, yrange=yr, zrange=zr
> xc = norm_coord(xr)
> xc[0] -= 0.5
> yc = norm_coord(yr)
> yc[0] -= 0.5
> zc = norm_coord(zr)
> zc[0] -= 0.5
> dem->setProperty, xcoord_conv=xc, ycoord_conv=yc, zcoord_conv=zc
> contours->setProperty, xcoord_conv=xc, ycoord_conv=yc, zcoord_conv=zc
>
> model->rotate, [1, 0, 0], -90
> model->rotate, [0, 1, 0], -30
> model->rotate, [1, 0, 0], 45
>
> clipboard = obj_new('IDLgrClipboard', dimensions=[400, 400])
> clipboard->draw, view, /postscript, /vector, filename='draped_surface.eps'
>
> win = obj_new('IDLgrWindow', dimensions=[400, 400], graphics_tree=view)
> win->draw
>
> end
>

A similar result could be obtained with

z = randomu(seed, 50, 50)
for i = 0, 4 do z = smooth(z, 5, /edge_truncate)
isurface,z
icontour,z,/over,planar=0,n_levels=15
isave,'draped_surface.eps'

Report message to a moderator

[Message index]

		Re: Draped Contours? By: penteado on Thu, 10 December 2009 10:23
		Re: Draped Contours? By: David Fanning on Thu, 10 December 2009 09:59
		Re: Draped Contours? By: Michael Galloy on Thu, 10 December 2009 09:48
		Re: Draped Contours? By: JDS on Thu, 10 December 2009 09:06
		Re: Draped Contours? By: David Fanning on Wed, 09 December 2009 14:40
		Re: Draped Contours? By: JDS on Tue, 05 January 2010 15:06
		Re: Draped Contours? By: Michael Galloy on Thu, 10 December 2009 10:43
		Re: Draped Contours? By: penteado on Thu, 10 December 2009 10:34

Previous Topic:	Re: Reducing a set of curves to a mean curve
Next Topic:	ITT VIS at the 90th AMS Annual Meeting

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 17:35:57 PDT 2025

Total time taken to generate the page: 0.00415 seconds