comp.lang.idl-pvwave archive: archive » Re: Keyword

Home » Public Forums » archive » Re: Keyword_Set function

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

Re: Keyword_Set function [message #46095 is a reply to message #46094]

Wed, 02 November 2005 09:20

IDLmastertobe
Messages: 54
Registered: June 2004

Member

hi, thanks. d_vectrack is a rather large function, im taking the first
couple of lines that involves keyword_set:

PRO d_vectrack, $
state, $
LOADDATA=fname, $
WIDTH = fWidth, $
RECORD_TO_FILENAME=record_to_filename, $
GROUP=group, $ ; IN: (opt) group identifier
DEBUG=debug, $ ; IN: (opt)
APPTLB = appTLB, $ ; OUT: (opt) TLB of this
application
INITIALIZE = initialize
REDRAW = redraw

COMMON scivis, scivislist, dinfo, xoffset, yoffset

print,'*********************************************@ PRO d_vectrack'

xdim = 600
ydim = 600

adim=130
dpath='..\part-16\'
dat='tperp.gda'
file=dpath+dat

z_r = intarr(2);
x_r = intarr(2);
y_r = intarr(2);
IF (N_ELEMENTS(fWidth) EQ 0) THEN fWidth = 1.0
IF (N_ELEMENTS(fname) NE 0) THEN BEGIN

END ELSE BEGIN

IF KEYWORD_SET(initialize) THEN BEGIN
!clean = 1
frame3d = state.frame ;---------------get data
transform = lindgen(26)
curr_data = total(state.data_index*transform)
dinfo(*).threed2 = 1
im = scivis_get(curr_data,frame3d,/THREED2)
ENDIF

IF KEYWORD_SET(redraw) THEN BEGIN
if(!smo gt 0) then begin
im = SMOOTH(state.Image, !smo)
endif else begin
im = state.Image
endelse

ENDIF

let me know if you need more. thanks.

Report message to a moderator

[Message index]

		Re: Keyword_Set function By: IDLmastertobe on Wed, 02 November 2005 12:00
		Re: Keyword_Set function By: David Fanning on Wed, 02 November 2005 09:26
		Re: Keyword_Set function By: IDLmastertobe on Wed, 02 November 2005 09:20
		Re: Keyword_Set function By: peter.albert@gmx.de on Wed, 02 November 2005 02:28
		Re: Keyword_Set function By: wmconnolley on Fri, 04 November 2005 00:55

Previous Topic:	point datasets in ENVI: some potentially useful routines and an ROI problem
Next Topic:	Re: Dilating at image boundaries

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Fri Oct 10 10:05:43 PDT 2025

Total time taken to generate the page: 0.56134 seconds