The LAMP Application

Generated by IDLdoc

single page | use frames     summary     class     fields     routine details     file attributes

./

dids.pro


Routines

result = finefile(pth, count=count)

P_DID_SETVAR

P_DID_CREATE, base, ready

P_DID_CREATE_MORE, bsxy, bsoptf, bsopt0

P_DID_RESIZE, ev

result = tvrdd(a, b, c, d)

result = P_ICK_LIST(pk_pthv, pk_flt, cnt)

P_ICK_INIT, frm

P_ICK_FRM, ev, uv

P_ICK_LST, ev, uv

P_ICK_MICO, wkstring, xx, yy, uv, pp2

P_ICK_PTH, uv

P_ICK_GET, pth, filin, frm, info, uv

P_ICK_DEL, uv

P_GET_DATAPATH, pk_pthv

P_ICK_SCAN, pp2, frm, wnumber, uv, hyst, fname, pth

P_ICK_RETURN, ok, filename, xtbl

P_ICK_XY, ev, uv

READ_LXY, pthfil, w=w, status=status, comhis=comhis

P_AFTER_REALIZE_DID, sepben, sepdon, sepdid

logo, flg

put_logo, wid, TIO=TIO, file=file

p_did_mvlog, ev, uv

p_tremble

result = RDSTOP(a, b, ic, win=win)

RDSTAP, a, b, ic, res

ENDPROX

SANSTOP, res

p_did_getw_cur, widx, wnumb

result = sl_zoom(x, y, xd, yd)

did_zoom_reset

did_zoom, event, uv

P_DID_EVENT, event, uv

p_did_before_read, wnumber, laber

p_did_just_read, pp2, frm, wnumber, uv, hyst, fname, info, comhis

p_did_after_read, wnumber, laber, fname, pp2, comhis

write_ps

p_did_ps_header, yo, widx, out_file

Launch, what

SaveSession, browse=browse

p_did_save_session, browse=browse

did_set, text

p_did_setwin0, map=map

to_did_cur, wkspce

DECOR, cti_, ctj_, a1_, a2_, DIS_, PIXV_, PIXH_, shap, squa, LVu_, LVd_, LHl_, LHr_, FQ_, PHI_, DXT_, DYT_, FCTX_, FCTY_

FORCPLOT, wi, w=w, image=image, contour=contour, surface=surface, vrml=vrml, below=below, beside=beside, pscript=pscript, gif=gif, png=png, htm=htm

SEE, wi, w=w, image=image, contour=contour, surface=surface, vrml=vrml, below=below, beside=beside, pscript=pscript, gif=gif, png=png, htm=htm, xypixels=xypixels, screen=screen, replot=replot, logbook=logbook

FORCSET, image=image, contour=contour, surface=surface, rot=rot, below=below, beside=beside, xrange=xrange, yrange=yrange, log=log, zlim=zlim, regular=regular, vrml=vrml, view=view

SEEM, image=image, contour=contour, surface=surface, rot=rot, below=below, beside=beside, xrange=xrange, yrange=yrange, log=log, zlim=zlim, regular=regular, vrml=vrml, view=view, nolog=nolog, noregular=noregular, reset=reset

FORCPAR, param

DRAWIND, xsiz, ysiz, DrawId=DrawId

p_did_rep, r, spc

p_did_drawidl, turn, string_w, isiz, DrawId=DrawId

myreduce, idx, xx, yy, zz, ee, nn, vv

myproj, imaage, W0, smoo, f_dps, profile=profile, surf=surf

setcol, n

trapx, w_res

trapy, w_res

trapt, w_res

trapp, w_res

trapc, w_res

trap_set, smoo=smoo, fill=fill, getfu=getfu

trap, w_res, flag, current=current

positive, w_in

p_did_multi_cre, widx

p_did_create_begood, widx, rx, nlv, smoo, styles, did_repr

p_did_begood_getitle

p_did_begood_setitle

p_did_begood_updat

p_did_begood_slide, ev

p_did_begood_nlv, nlv

p_did_begood_ax, rx

p_did_begood_devps

p_did_begood_done, rx, nlv

p_did_save_reset

p_did_save_menu, widx

write_kif, file, imaage, r, g, b, TRANSPARENT=TRANSPARENT

read_kif, file, imaage, sx, sy

write_lamp, file, w=w, fmt=fmt, format=format, path=path

HtmW, wi, w, x, y

p_did_WebIda, inst, year, cycl, runs, furm, patho, rep

p_did_WebTouch, inst, year, cycl, runs, prun, wi, rep, BarnsTmpDir

p_did_save_auto, widx, path, file, auto

p_did_save_work, event, uv, auto

p_did_makeSnap, wi

p_did_makSnaps, w, s, Snapix, Snapil, dido, wi

p_did_makefunc, w, w0, rep, ln

p_did_makeicon, wkstr, xx, yy, uv4, uv5, auto, wr, rup

p_did_save_format, form

p_did_save_list, event

p_did_save_filename, event

p_did_save_seq

result = read_tmp(INST, PATH, FILENAME, STATUS, DATP)

read_lamp, file, w=w, path=path

read_myGIF, file, w=w

p_did_res_hdf, fil, pth, ws, hyst, rflag

p_did_restore_wrk, fil, pth, wnumber, hyst, rflag

P_DATA_ACCESS, laber, b33, bac, butb, flag

P_MAC_COMPLETE, uv, butb, bugTooltip

P_DATA_IDOL

lamp_loop_so, dll, reset=reset

P_MAC_LABINS

result = flto6(run)

CALIBRATION, FILE=FILE, NOCAL=NOCAL, LIST=LIST, GET_CAL=GET_CAL, SET_CAL=SET_CAL, INF=INF

result = rlamp(inst, path, file, status, datp)

p_did_get_it, run, wi, status, uv, run_fil

p_did_getfil, run, wi, full

result = p_did_getrun_matlab(proced, inst, path, file, status, datp)

p_did_getrun, run, wi, full, fifi, FRAME=FRAME

filterpro, name

clearpar, wi, wstr

movepar, wi, wsti, wo, wsto

take_w, wkp, w=w

new_w, wkp

give_w, wkp, w=w

result = W_lamp_sys(dummy)

W_store, W=W, ALL=ALL

W_restore, W=W, ALL=ALL

W_exchange, W=W, ALL=ALL

W_clear, W=W, ALL=ALL

A_exchange, W=W

A_store, W=W

A_restore, W=W, TEMP=TEMP

A_clear, W=W

setdatp, datp
take_datp, datp, w=w, second=second, third=third, fourth=fourth, fifth=fifth, sixth=sixth

getdatp, datp
give_datp, datp, w=w, second=second, third=third, fourth=fourth, fifth=fifth, sixth=sixth

mod_datp, datp, tag, val

did_objet, wi, objout

set_suf, input
set_pref, input
RDSET, INST=INST, BASE=BASE, CYCLE=CYCLE, TOLERANCE=TOLERANCE, STEP=STEP, RAW=RAW, DEFAULT=DEFAULT, PATH=PATH, DIR=DIR, NORAW=NORAW, DIF=DIF, CLEAR=CLEAR, LAST=LAST, GOLAST=GOLAST, PREFIX=PREFIX, SUFFIX=SUFFIX, VANA=VANA, NODATA=NODATA, GETnodata=GETnodata, curSUM=curSUM, Proposal=Proposal, UseSigma=UseSigma, TofFlux=TofFlux, Panels=Panels

result = rdsum(lrun1, lrun2, stati, datp=datp, W=W, COMPLEMENT=COMPLEMENT, DANIBL=DANIBL)

result = rdrun(run, stati, datp=datp, W=W)

rd_adjust, na, nb, ws

result = rdand(lrun1, lrun2, stati, datp=datp, accu=accu, flip=flip, mon=mon, FRAME=FRAME, W=W, COMPLEMENT=COMPLEMENT, DANIBL=DANIBL)

result = rdopr(text, stati, datp=datp, W=W, DANIBL=DANIBL, labid=labid)

rdoprMIX, xrun, wi, status, FRAME=FRAME, DANIBL=DANIBL

rdmulti, txt, status, labid, wi, monoto, DANIBL=DANIBL

RDMONI, HZ, Wxx, Exx, Nxx, moni, monl

run_comd, text, tbl, tbf, RUNLNGH=RUNLNGH

set_tolerance, tt, get=get, tol=tol

W_ACCU, accu=accu, add=add, sub=sub, combine=combine, tolerance=tolerance, ero=ero, raw=raw, DANIBL=DANIBL

V_ACCU, ops, wa, xa, na, ea, wi, xi, ni, ei, tt, raw=raw

lamp_journal, textt, show=show

lamp_message, textt

lamp_error

p_did_journal, event, uv

p_did_journal_print, uv

DID_WRITE_JOURNAL, jou, htm=htm, clear=clear, check=check

DID_PARAM_HTM, nwk

p_did_help, flg, formu, formt

dids

Routine details

top finefile

result = finefile(pth, count=count)

******* ******** ** Pb MacosX (duplicated!)

Parameters

pth

Keywords

count

top P_DID_SETVAR

P_DID_SETVAR

** ************ ** ** Init variables at start ** Note: B_LABINS(3)= 0:Lamp normal 1:Lamp terminal 2:Lamp for the Web

top P_DID_CREATE

P_DID_CREATE, base, ready

** ************ ** ** Workspace display frame creation for main Lamp window, called from lamp.pro.

Parameters

base
ready

top P_DID_CREATE_MORE

P_DID_CREATE_MORE, bsxy, bsoptf, bsopt0

** ***************** ** p_did_create continuation

Parameters

bsxy
bsoptf
bsopt0

top P_DID_RESIZE

P_DID_RESIZE, ev

** ************ ** resizing main lamp window

Parameters

ev

top tvrdd

result = tvrdd(a, b, c, d)

******* ***** ** User callable ** Input: a,b,c,d for x0,y0,Nx,Ny (if d is present) ** Output: a,b,c for r,g,b returned by color_Quan ** call tvrd idl routine either with true or pseudo colors

Parameters

a
b
c
d

top P_ICK_LIST

result = P_ICK_LIST(pk_pthv, pk_flt, cnt)

******* ********** ** part of import gui

Parameters

pk_pthv
pk_flt
cnt

top P_ICK_INIT

P_ICK_INIT, frm

** ********** ** part of import gui, window creation

Parameters

frm

top P_ICK_FRM

P_ICK_FRM, ev, uv

** ********* ** part of import gui

Parameters

ev
uv

top P_ICK_LST

P_ICK_LST, ev, uv

** ********* ** ** part of import gui, call correct reading routine

Parameters

ev
uv

top P_ICK_MICO

P_ICK_MICO, wkstring, xx, yy, uv, pp2

** ********** ** part of import gui, make snapshot

Parameters

wkstring
xx
yy
uv
pp2

top P_ICK_PTH

P_ICK_PTH, uv

** ********* ** part of import gui, path

Parameters

uv

top P_ICK_GET

P_ICK_GET, pth, filin, frm, info, uv

** ********* ** part of import gui

Parameters

pth
filin
frm
info
uv

top P_ICK_DEL

P_ICK_DEL, uv

** ********* ** part of import gui, delete file

Parameters

uv

top P_GET_DATAPATH

P_GET_DATAPATH, pk_pthv

** ************** ** part of import gui

Parameters

pk_pthv

top P_ICK_SCAN

P_ICK_SCAN, pp2, frm, wnumber, uv, hyst, fname, pth

** ********** ** part of import gui, call descript

Parameters

pp2
frm
wnumber
uv
hyst
fname
pth

top P_ICK_RETURN

P_ICK_RETURN, ok, filename, xtbl

** ************ ** part of import gui

Parameters

ok
filename
xtbl

top P_ICK_XY

P_ICK_XY, ev, uv

** ******** ** part of import gui

Parameters

ev
uv

top READ_LXY

READ_LXY, pthfil, w=w, status=status, comhis=comhis

** ******** ** part of import gui, call read_org column reader

Parameters

pthfil

Keywords

w
status
comhis

top P_AFTER_REALIZE_DID

P_AFTER_REALIZE_DID, sepben, sepdon, sepdid

** ******************* ** called sfter lamp creation, load logos ...

Parameters

sepben
sepdon
sepdid

top p_did_mvlog

p_did_mvlog, ev, uv

** *********** ** animate icone created by put_logo

Parameters

ev
uv

top p_tremble

p_tremble

** ********* ** image tremble after error, replaced by tornade

top RDSTOP

result = RDSTOP(a, b, ic, win=win)

******* ****** ** User callable ** Input: a,b,ic (indices of calling loop (a->b, ic is current loop value) ** Output: 0 to continue, 1 to stop ** move the STOP button until it appears completely if wit is present ** used when reading files or launching prox

Parameters

a
b
ic

Keywords

win

top RDSTAP

RDSTAP, a, b, ic, res

** ****** ** User callable ** Input: a,b,ic (indices of calling loop (a->b, ic is current loop value) ** Output: 0 to continue, 1 to stop ** interface to rdstop (see ENDPROX))

Parameters

a
b
ic
res

top ENDPROX

ENDPROX

** ******* ** User callable ** used to stop a prox execution (see RDSTAP)

top SANSTOP

SANSTOP, res

** ******* ** don't know

Parameters

res

top p_did_getw_cur

p_did_getw_cur, widx, wnumb

** ************** ** get Wi seen on the plot button

Parameters

widx
wnumb

top sl_zoom

result = sl_zoom(x, y, xd, yd)

******* ******* ** while zoomming

Parameters

x
y
xd
yd

top did_zoom_reset

did_zoom_reset

** ************** ** zoomming stuff

top did_zoom

did_zoom, event, uv

** ******** ** draw event zoomming, showing coodinates, turning snapshot, drawing rectangle ** **uv: 2:base 3:wi 4:draw 5:wind 6:x0 7:y0 8:bstx 9:bsty 10:rgx 11:rgx 12:rgy 13:rgy ** 14:surf 15:!ord 16:axy 17:labl 18:xof 19:yof 20:log (12=-1 ->vector) ** type 0:pressed 1:released 2:motion

Parameters

event
uv

top P_DID_EVENT

P_DID_EVENT, event, uv

** *********** ** ** Event parser mainly for did.pro.

Parameters

event
uv

top p_did_before_read

p_did_before_read, wnumber, laber

** ***************** ** say reading in wi when reading a numor

Parameters

wnumber
laber

top p_did_just_read

p_did_just_read, pp2, frm, wnumber, uv, hyst, fname, info, comhis

** *************** ** may create a snapshot, call p_did_after_read, may init default titles

Parameters

pp2
frm
wnumber
uv
hyst
fname
info
comhis

top p_did_after_read

p_did_after_read, wnumber, laber, fname, pp2, comhis

** **************** ** init Wi history

Parameters

wnumber
laber
fname
pp2
comhis

top write_ps

write_ps

** ******** ** call dids.pro event writting a PS file

top p_did_ps_header

p_did_ps_header, yo, widx, out_file

** *************** ** write lamp icon in PS file

Parameters

yo
widx
out_file

top Launch

Launch, what

*************** ** User callable ** launch routines using dids,lamp,bens events

Parameters

what

top SaveSession

SaveSession, browse=browse

** *********** ** User callable ** save current session, workspaces only ** /browse to use dialog_pickfile, default file is lamp.ses

Keywords

browse

top p_did_save_session

p_did_save_session, browse=browse

** ****************** ** save current session, workspaces only

Keywords

browse

top did_set

did_set, text

** ******* ** User callable ** execute the input text string command

Parameters

text

top p_did_setwin0

p_did_setwin0, map=map

** ************* ** User callable ** set main lamp draw widget active

Keywords

map

top to_did_cur

to_did_cur, wkspce

** ********** ** set lamp plot button to a workspace number

Parameters

wkspce

top DECOR

DECOR, cti_, ctj_, a1_, a2_, DIS_, PIXV_, PIXH_, shap, squa, LVu_, LVd_, LHl_, LHr_, FQ_, PHI_, DXT_, DYT_, FCTX_, FCTY_

** ***** ** used for WDIAG routine which transform a radial image to a rectangular one

Parameters

cti_
ctj_
a1_
a2_
DIS_
PIXV_
PIXH_
shap
squa
LVu_
LVd_
LHl_
LHr_
FQ_
PHI_
DXT_
DYT_
FCTX_
FCTY_

top FORCPLOT

FORCPLOT, wi, w=w, image=image, contour=contour, surface=surface, vrml=vrml, below=below, beside=beside, pscript=pscript, gif=gif, png=png, htm=htm

** ******** ** legacy

Parameters

wi

Keywords

w
image
contour
surface
vrml
below
beside
pscript
gif
png
htm

top SEE

SEE, wi, w=w, image=image, contour=contour, surface=surface, vrml=vrml, below=below, beside=beside, pscript=pscript, gif=gif, png=png, htm=htm, xypixels=xypixels, screen=screen, replot=replot, logbook=logbook

** *** ** User callable ** see, W=1, /contour, /image, /beside ** plot a workspace from a command line

Parameters

wi

Keywords

w
image
contour
surface
vrml
below
beside
pscript
gif
png
htm
xypixels
screen
replot
logbook

top FORCSET

FORCSET, image=image, contour=contour, surface=surface, rot=rot, below=below, beside=beside, xrange=xrange, yrange=yrange, log=log, zlim=zlim, regular=regular, vrml=vrml, view=view

** ******* ** legacy

Keywords

image
contour
surface
rot
below
beside
xrange
yrange
log
zlim
regular
vrml
view

top SEEM

SEEM, image=image, contour=contour, surface=surface, rot=rot, below=below, beside=beside, xrange=xrange, yrange=yrange, log=log, zlim=zlim, regular=regular, vrml=vrml, view=view, nolog=nolog, noregular=noregular, reset=reset

** **** ** User callable ** set permanent attributes for the SEE routine

Keywords

image
contour
surface
rot
below
beside
xrange
yrange
log
zlim
regular
vrml
view
nolog
noregular
reset

top FORCPAR

FORCPAR, param

** ******* ** legacy

Parameters

param

top DRAWIND

DRAWIND, xsiz, ysiz, DrawId=DrawId

** ******* ** User callable ** Input: Xsize,Ysize ** Output: basw draw id (to use with wset) ** create a draw window like a beside lamp window

Parameters

xsiz
ysiz

Keywords

DrawId

top p_did_rep

p_did_rep, r, spc

** ********* ** returne mixed representations as a number r to p_did_drawidl r=0 image r=1 image + surface r=2 image + contour r=3 image + contour + surface r=4 contour + surface r=5 contour r=6 surface

Parameters

r
spc

top p_did_drawidl

p_did_drawidl, turn, string_w, isiz, DrawId=DrawId

** ************* ** main plotting routine of Lamp ** turn= 0 new plot ** turn= 1 replot +10 degres ** turn=-1 replot -10 degres ** turn> 2 replot beside ** turn<-2 replot LiveTools. Set liveT,liveA,liveC then set turn=0

Parameters

turn
string_w
isiz

Keywords

DrawId

top myreduce

myreduce, idx, xx, yy, zz, ee, nn, vv

** ******** ** reduce x, y, z, e, n, pv according to W for p_did_drawidl

Parameters

idx
xx
yy
zz
ee
nn
vv

top myproj

myproj, imaage, W0, smoo, f_dps, profile=profile, surf=surf

** ****** **3D projection for p_did_drawidl **imaage= byte shaded volume **W0.A = total(data,3) **W0.B = total(data,2) **W0.C = total(data,1) **smoo = smooth flag 1 or 0 **f_dps = 1 or PS factor

Parameters

imaage
W0
smoo
f_dps

Keywords

profile
surf

top setcol

setcol, n

** ****** ** User callable ** load a color table number

Parameters

n

top trapx

trapx, w_res

** ***** ** User callable ** take last plotted image, project on X and put in new workspace w_res

Parameters

w_res

top trapy

trapy, w_res

** ***** ** User callable ** take last plotted image, project on y and put in new workspace w_res

Parameters

w_res

top trapt

trapt, w_res

** ***** ** User callable ** take last plotted image, totalise and put in new workspace w_res

Parameters

w_res

top trapp

trapp, w_res

** ***** ** User callable ** take last plotted image, print total

Parameters

w_res

top trapc

trapc, w_res

** ***** ** User callable ** take last plotted image, print beam center for SANS

Parameters

w_res

top trap_set

trap_set, smoo=smoo, fill=fill, getfu=getfu

** ******** ** set or unset image smoothing ** set or unset the fill button

Keywords

smoo
fill
getfu

top trap

trap, w_res, flag, current=current

** **** ** do the trap ** Get last zoomed workspace into w_res (c.a.d alone) ** Flag=0 then return array ** Flag=1 then return total(array,1) ** Flag=2 then return total(array,2) ** Flag=3 then return total(array) ** Flag=4 then print total(array) ** Flag=5 then show beam center

Parameters

w_res
flag

Keywords

current

top positive

positive, w_in

** ******** ** User callable ** Transform an integer*2 unsigned array in a long positive one. ** Call: W1 = POSITIVE ( W1 )

Parameters

w_in

top p_did_multi_cre

p_did_multi_cre, widx

** *************** ** to do ** Create the Multi_Plot interface.

Parameters

widx

top p_did_create_begood

p_did_create_begood, widx, rx, nlv, smoo, styles, did_repr

** ******************* ** ** Make a GUI to change titles and general plot settings.

Parameters

widx
rx
nlv
smoo
styles
did_repr

top p_did_begood_getitle

p_did_begood_getitle

** ******************** ** begood stuff

top p_did_begood_setitle

p_did_begood_setitle

** ******************** ** begood stuff

top p_did_begood_updat

p_did_begood_updat

** ****************** ** begood stuff

top p_did_begood_slide

p_did_begood_slide, ev

** ****************** ** begood stuff

Parameters

ev

top p_did_begood_nlv

p_did_begood_nlv, nlv

** **************** ** begood stuff

Parameters

nlv

top p_did_begood_ax

p_did_begood_ax, rx

** *************** ** begood stuff

Parameters

rx

top p_did_begood_devps

p_did_begood_devps

** ****************** ** begood stuff

top p_did_begood_done

p_did_begood_done, rx, nlv

** ***************** ** begood stuff

Parameters

rx
nlv

top p_did_save_reset

p_did_save_reset

** **************** ** save gui stuff

top p_did_save_menu

p_did_save_menu, widx

** *************** ** create save workspace gui

Parameters

widx

top write_kif

write_kif, file, imaage, r, g, b, TRANSPARENT=TRANSPARENT

** ********* ** ** Used for compatibilty with Idl versions, save gif, png, jpg or bin .img.

Parameters

file
imaage
r
g
b

Keywords

TRANSPARENT

top read_kif

read_kif, file, imaage, sx, sy

** ******** ** ** Used for compatibilty with Idl versions, read gif, png, jpg or bin img.

Parameters

file
imaage
sx
sy

top write_lamp

write_lamp, file, w=w, fmt=fmt, format=format, path=path

** ********** ** User callable ** write workspace wi in file. See format names in the export gui

Parameters

file

Keywords

w
fmt
format
path

top HtmW

HtmW, wi, w, x, y

** **** ** give workspace to a web client

Parameters

wi
w
x
y

top p_did_WebIda

p_did_WebIda, inst, year, cycl, runs, furm, patho, rep

** ************ ** stuff for web ida, getting numors

Parameters

inst
year
cycl
runs
furm
patho
rep

top p_did_WebTouch

p_did_WebTouch, inst, year, cycl, runs, prun, wi, rep, BarnsTmpDir

** ************** ** stuff for web touch, getting runs

Parameters

inst
year
cycl
runs
prun
wi
rep
BarnsTmpDir

top p_did_save_auto

p_did_save_auto, widx, path, file, auto

** *************** ** stuff for p_did_save_work ** auto =-1 auto save without data (return -2 for 'imgR') ** auto = 1 auto save with the data

Parameters

widx
path
file
auto

top p_did_save_work

p_did_save_work, event, uv, auto

** *************** ** save a workspace from local or web lamp ** auto = 0 save from interface ** auto =-1 auto save without data (return -2 for 'imgR') ** auto = 1 auto save with the data

Parameters

event
uv
auto

top p_did_makeSnap

p_did_makeSnap, wi

** ************** ** make a snapshop of workspace local or web

Parameters

wi

top p_did_makSnaps

p_did_makSnaps, w, s, Snapix, Snapil, dido, wi

** ************** ** make a snapshop of workspace local or web

Parameters

w
s
Snapix
Snapil
dido
wi

top p_did_makefunc

p_did_makefunc, w, w0, rep, ln

** ************** ** make some total and log functions

Parameters

w
w0
rep
ln

top p_did_makeicon

p_did_makeicon, wkstr, xx, yy, uv4, uv5, auto, wr, rup

** ************** ** make snapshot for local or web ** auto = 0 save from interface ** auto =-1 auto save without data (no web) ** auto = 1 auto save with the data

Parameters

wkstr
xx
yy
uv4
uv5
auto
wr
rup

top p_did_save_format

p_did_save_format, form

** ***************** ** stuff for p_did_save_work

Parameters

form

top p_did_save_list

p_did_save_list, event

** *************** ** stuff for p_did_save_work

Parameters

event

top p_did_save_filename

p_did_save_filename, event

** ******************* ** stuff for p_did_save_work

Parameters

event

top p_did_save_seq

p_did_save_seq

** ************** ** stuff for p_did_save_work

top read_tmp

result = read_tmp(INST, PATH, FILENAME, STATUS, DATP)

******* ******** ** read template to match variables into lamp

Parameters

INST
PATH
FILENAME
STATUS
DATP

top read_lamp

read_lamp, file, w=w, path=path

** ********* ** User callable ** reads a file written in a lamp format in workspace wi

Parameters

file

Keywords

w
path

top read_myGIF

read_myGIF, file, w=w

** ********** ** reads a png,gif or jpg file in workspace wi

Parameters

file

Keywords

w

top p_did_res_hdf

p_did_res_hdf, fil, pth, ws, hyst, rflag

** ************* ** Reads an HDF LAMP format

Parameters

fil
pth
ws
hyst
rflag

top p_did_restore_wrk

p_did_restore_wrk, fil, pth, wnumber, hyst, rflag

** ***************** ** Read LAMP format ** Input: input filename = pth+fil ** workspace string number = wnumber

Parameters

fil
pth
wnumber
hyst
rflag

top P_DATA_ACCESS

P_DATA_ACCESS, laber, b33, bac, butb, flag

** ************* ** ** Create Data Access buttons in main lamp window

Parameters

laber
b33
bac
butb
flag

top P_MAC_COMPLETE

P_MAC_COMPLETE, uv, butb, bugTooltip

** ************** ** ** Create Data Access buttons in main lamp window (continue)

Parameters

uv
butb
bugTooltip

top P_DATA_IDOL

P_DATA_IDOL

** *********** ** ------------------------------------------------------------------------------- ** OLD CODE USED AT ILL FOR RPC CONNECTIONS (see rpcill.pro when On_Line selected) ** -------------------------------------------------------------------------------

top lamp_loop_so

lamp_loop_so, dll, reset=reset

** ************ ** at lamp start, return dll, the full path of the sharable C loops object

Parameters

dll

Keywords

reset

top P_MAC_LABINS

P_MAC_LABINS

** ************ ** init the inst button menu at lamp start

top flto6

result = flto6(run)

******* ***** ** complete run numbers to lamp_6 digits (6 at ILL)

Parameters

run

top CALIBRATION

CALIBRATION, FILE=FILE, NOCAL=NOCAL, LIST=LIST, GET_CAL=GET_CAL, SET_CAL=SET_CAL, INF=INF

** *********** ** User callable ** This procedure sets or unsets calibrations. ** In window mode the call is CALIBRATION ** In batch mode the call is CALIBRATION, file='calibration_file' ** or CALIBRATION, /nocal [,/list]

Keywords

FILE
NOCAL
LIST
GET_CAL
SET_CAL
INF

top rlamp

result = rlamp(inst, path, file, status, datp)

******* ***** ** read a lamp file format in p_did_restore_wrk

Parameters

inst
path
file
status
datp

top p_did_get_it

p_did_get_it, run, wi, status, uv, run_fil

** ************ ** entry to read a file or run entered in file field of main lamp window

Parameters

run
wi
status
uv
run_fil

top p_did_getfil

p_did_getfil, run, wi, full

** ************ ** called by p_did_get_it, read a filename{data set number}

Parameters

run
wi
full

top p_did_getrun_matlab

result = p_did_getrun_matlab(proced, inst, path, file, status, datp)

******* ******************* ** legacy

Parameters

proced
inst
path
file
status
datp

top p_did_getrun

p_did_getrun, run, wi, full, fifi, FRAME=FRAME

** ************ ** called by p_did_get_it, read a filename or a numor

Parameters

run
wi
full
fifi

Keywords

FRAME

top filterpro

filterpro, name

** ********* ** set name of a routine called just after a read from RDFILTER.pro

Parameters

name

top clearpar

clearpar, wi, wstr

** ******** ** clear parameters of workspace wi

Parameters

wi
wstr

top movepar

movepar, wi, wsti, wo, wsto

** ******* ** move parameters from workspace wi to wo

Parameters

wi
wsti
wo
wsto

top take_w

take_w, wkp, w=w

** ****** ** User callable ** get contents of workspace wi in variable wkp

Parameters

wkp

Keywords

w

top new_w

new_w, wkp

** ****** **

Parameters

wkp

top give_w

give_w, wkp, w=w

** ****** ** User callable ** put contents of variable wkp in workspace wi

Parameters

wkp

Keywords

w

top W_lamp_sys

result = W_lamp_sys(dummy)

******* ** return the number of workspaces available in current lamp version

Parameters

dummy

top W_store

W_store, W=W, ALL=ALL

** ******* ** User callable ** save workspace wii (or all) and its parameters in a specific memory

Keywords

W
ALL

top W_restore

W_restore, W=W, ALL=ALL

** ********* ** User callable ** restore workspace wii (or all) and its parameters from a specific memory

Keywords

W
ALL

top W_exchange

W_exchange, W=W, ALL=ALL

** ********** ** User callable ** exchange workspace wii (or all) and its parameters with that in specific memory

Keywords

W
ALL

top W_clear

W_clear, W=W, ALL=ALL

** ******* ** User callable ** clear all memories or just workspace wii (W1=0)

Keywords

W
ALL

top A_exchange

A_exchange, W=W

** ********** ** do the work for W_exchange

Keywords

W

top A_store

A_store, W=W

** ******* ** do the work for W_store

Keywords

W

top A_restore

A_restore, W=W, TEMP=TEMP

** ********* ** do the work for W_restore

Keywords

W
TEMP

top A_clear

A_clear, W=W

** ******* ** do the work for W_clear

Keywords

W

top setdatp

setdatp, datp

Parameters

datp

top take_datp

take_datp, datp, w=w, second=second, third=third, fourth=fourth, fifth=fifth, sixth=sixth

** ********* ** User callable ** This procedure allows you to access the following data parameters: ** datp.X , datp.Y , datp.Z , datp.E , datp.N , datp.history , datp.W_TIT .... ** If called from a macro specified by W3=MACRO(w6,w7) then: ** returned datp is that of w6 by default ** returned datp is that of w7 if third is set ** returned datp is that of Wi if W is set. ** ** You can modify all parameters ex: datp.X_TIT='this is the X axis' ** You can't modify the size of an array parameter.

Parameters

datp

Keywords

w
second
third
fourth
fifth
sixth

top getdatp

getdatp, datp

Parameters

datp

top give_datp

give_datp, datp, w=w, second=second, third=third, fourth=fourth, fifth=fifth, sixth=sixth

** ********* ** User callable ** This procedure allows you to give data parameters back to lamp. ** If called from a macro specified by W3=MACRO(w6,w7) then: ** given datp is for w3 by default ** given datp is for w6 if second is set ** given datp is for w7 if third is set ** given datp is for wi if W is set.

Parameters

datp

Keywords

w
second
third
fourth
fifth
sixth

top mod_datp

mod_datp, datp, tag, val

** ******** ** User callable ** This procedure allows you to change the size of a parameter. ** The call is MOD_DATP, datp , 'X' , alog(indgen(50)+1) ** MOD_DATP, datp , 'E' , sqrt(w)

Parameters

datp
tag
val

top did_objet

did_objet, wi, objout

** ********* ** set objout to one if workspace wi contains objects

Parameters

wi
objout

top set_suf

set_suf, input

Parameters

input

top set_pref

set_pref, input

Parameters

input

top RDSET

RDSET, INST=INST, BASE=BASE, CYCLE=CYCLE, TOLERANCE=TOLERANCE, STEP=STEP, RAW=RAW, DEFAULT=DEFAULT, PATH=PATH, DIR=DIR, NORAW=NORAW, DIF=DIF, CLEAR=CLEAR, LAST=LAST, GOLAST=GOLAST, PREFIX=PREFIX, SUFFIX=SUFFIX, VANA=VANA, NODATA=NODATA, GETnodata=GETnodata, curSUM=curSUM, Proposal=Proposal, UseSigma=UseSigma, TofFlux=TofFlux, Panels=Panels

** ***** ** User callable ** set INST_VALUE , PATH_FOR_ONLINE , Other dependent parameters for read-in procedures ** This procedure changes the current instrument name and (or) ** the current base access (see Customize). ** This procedure can also be used to change specific read-variables [STEP,TOL]. ** [/RAW] means do not use treatment in read operations. ** [/DEF] means use specific treatment during the read. ** [ DIR] [DIF] [SUF] [PREF] specific use at ILL,ESRF. ** [LAST=proc] proc is the name of a procedure called by ** Lamp just after a multiple read (proc,j,data) ** j is worksp number & data is Wj values ** The call is RDSET, INST='D20' , BASE='Current Cycle' , PROPOSAL='exp_1-2-3'

Keywords

INST
BASE
CYCLE
TOLERANCE
STEP
RAW
DEFAULT
PATH
DIR
NORAW
DIF
CLEAR
LAST
GOLAST
PREFIX
SUFFIX
VANA
NODATA
GETnodata
curSUM
Proposal
UseSigma
TofFlux
Panels

top rdsum

result = rdsum(lrun1, lrun2, stati, datp=datp, W=W, COMPLEMENT=COMPLEMENT, DANIBL=DANIBL)

******* ***** ** User callable ** This function reads and adds the run numbers range from the selected instrument. ** If datp is set and non 0, all parameters are returned in datp (see READ_tmp.pro). ** If W is set to 1

Parameters

lrun1
lrun2
stati

Keywords

datp
W
COMPLEMENT
DANIBL

top rdrun

result = rdrun(run, stati, datp=datp, W=W)

******* ***** ** User callable ** read a run from formula entry ** This function reads the run number from the currently selected instrument. ** If datp is set and non 0, all parameters are returned in datp (see READ_tmp.pro). ** If W is set to 1

Parameters

run
stati

Keywords

datp
W

top rd_adjust

rd_adjust, na, nb, ws

** ***** *** ** resize vector 'ws' from nb to na points ** used by rdand when sizes differ littlely

Parameters

na
nb
ws

top rdand

result = rdand(lrun1, lrun2, stati, datp=datp, accu=accu, flip=flip, mon=mon, FRAME=FRAME, W=W, COMPLEMENT=COMPLEMENT, DANIBL=DANIBL)

******* ***** ** User callable ** This function reads and joins the run numbers range from the selected instrument. ** If datp is set and non 0, all parameters are returned in datp (see READ_tmp.pro). ** If W is set to 1

Parameters

lrun1
lrun2
stati

Keywords

datp
accu
flip
mon
FRAME
W
COMPLEMENT
DANIBL

top rdopr

result = rdopr(text, stati, datp=datp, W=W, DANIBL=DANIBL, labid=labid)

******* ***** ** This function reads specified runs and performs basic operations on them. ** If datp is set and non 0, all parameters are returned in datp (see READ_tmp.pro). ** If W is set to 1629 - 630>631 - 633 ' ) ** W2 = RDOPR( ' 624 : 627 ' ) ** ** Result of W1 is 624+ (627+628+629) - (630+631) -633 ** Result of W2 is [[624],[625],[626],[627]] the runs are joined..! ** [,DANIBL=[5,6] 'sum param entries ie monitor,time'

Parameters

text
stati

Keywords

datp
W
DANIBL
labid

top rdoprMIX

rdoprMIX, xrun, wi, status, FRAME=FRAME, DANIBL=DANIBL

** ******** ** used when we use rdand with a numor sum (123:133+134)

Parameters

xrun
wi
status

Keywords

FRAME
DANIBL

top rdmulti

rdmulti, txt, status, labid, wi, monoto, DANIBL=DANIBL

** ******* ** called by RDOPR, do the work !!! lamp_sys+1 or lamp_sys+2(if wi=lamp_sys+1) or lamp_sys+3(if opr=is the temp workspace

Parameters

txt
status
labid
wi
monoto

Keywords

DANIBL

top RDMONI

RDMONI, HZ, Wxx, Exx, Nxx, moni, monl

** ****** ** handel monitor and error when rdand is used ** HZ=0 comes from RDAND (one count by spectra or frame) ** HZ=1 comes from RDMULTI (X monitor) ** moni is the current monitor while mol is the new monitor.

Parameters

HZ
Wxx
Exx
Nxx
moni
monl

top run_comd

run_comd, text, tbl, tbf, RUNLNGH=RUNLNGH

** ******** ** ** Read operator command analysis (RDOPR)

Parameters

text
tbl
tbf

Keywords

RUNLNGH

top set_tolerance

set_tolerance, tt, get=get, tol=tol

** ************* ** User callable ** set a tolerance when adding numors with different abcissa

Parameters

tt

Keywords

get
tol

top W_ACCU

W_ACCU, accu=accu, add=add, sub=sub, combine=combine, tolerance=tolerance, ero=ero, raw=raw, DANIBL=DANIBL

** ****** ** User callable ** This procedure adds workspace number j to workspace accumulator number i. ** using the monitors Ni,Nj and propagating the errors EI,Ej. ** The tolerance is used for vectors; the default is MIN([step(Xi),step(Xj)])/3 ** The call is W_ACCU, accu=1 (for W1=0) ** W_ACCU, accu=1 , add=3 (for W1=W1+W3 using N1,N3,X1,X3,E1,E3) ** Operation on accumulator wi (add or subtract or combine)

Keywords

accu
add
sub
combine
tolerance
ero
raw
DANIBL

top V_ACCU

V_ACCU, ops, wa, xa, na, ea, wi, xi, ni, ei, tt, raw=raw

** ****** ** called by W_accu, do the work for vectors

Parameters

ops
wa
xa
na
ea
wi
xi
ni
ei
tt

Keywords

raw

top lamp_journal

lamp_journal, textt, show=show

** ************ ** User callable ** add an entry string(array) in lamp.jou

Parameters

textt

Keywords

show

top lamp_message

lamp_message, textt

** ************ ** User callable ** show a message in lamp main window

Parameters

textt

top lamp_error

lamp_error

** ********** ** User callable ** show last error in lamp main window and lamp.jou

top p_did_journal

p_did_journal, event, uv

** ************* ** the lamp journal gui

Parameters

event
uv

top p_did_journal_print

p_did_journal_print, uv

** ******************* ** print the lamp journal

Parameters

uv

top DID_WRITE_JOURNAL

DID_WRITE_JOURNAL, jou, htm=htm, clear=clear, check=check

** ***************** ** write lamp journal in file lamp.jou

Parameters

jou

Keywords

htm
clear
check

top DID_PARAM_HTM

DID_PARAM_HTM, nwk

** ************* ** show parameters to a web client

Parameters

nwk

top p_did_help

p_did_help, flg, formu, formt

** ********** ** construct different help string array

Parameters

flg
formu
formt

top dids

dids

** **** ** last routine in dids.pro, just to compile

File attributes

Modification date: Tue Oct 1 14:35:35 2013
Lines: 9,945