[Previous]
[Next]
NAME:
X_LUM
PURPOSE:
calculate the integrated X-ray luminosity as a function of T.
See documentation in thermal_kev and above to figure out how
this is done.
CALLING SEQUENCE:
luminosity = x_lum(temp)
INPUTS:
temperature in MK
OPTIONAL (KEYWORD) INPUT PARAMETERS:
OUTPUTS:
integrated X-ray luminosity, ergs/cm^2 sec, at one A.U.
WARNING:
the results look odd at low temperatures, probably because
the Mewe curves are not complete at long wavelengths.
CALLS: ***
HH_DELETE
MODIFICATION HISTORY:
Written by HSH, 15-nov-92 (<- why, not when!)
HSH, edited 8-Feb-93
[Previous]
[Next]
NAME:
XBUGLE
PURPOSE:
select images from the roadmap file, read them, prep them, and then
make a stackplot of SXT FFI's to follow streamer development.
And - we hope - make big discoveries!
CATEGORY:
Yohkoh
CALLING SEQUENCE:
main program
INPUTS:
infil, gotten (eg) by using YODAT in the -888 mode
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED
OUTPUTS:
roadmap of selected images
COMMON BLOCKS:
SIDE EFFECTS:
Makes stackplot
Also makes a time-series plot of the 64x64 area in the SW corner
of the CCD (half res)
RESTRICTIONS:
MODIFICATION HISTORY:
HSH 2 August 1995
[Previous]
[Next]
Name: xcopy_chk
Purpose: determine source/destination parameters for device
procedure from input delta
Input Parameters:
delta - offset - convention:
delta < 0
delta >= 0
[Previous]
[Next]
Name: xdate
Purpose: Time input widget for Yohkoh - uses sliders for date and time
Input Parameters:
Output Parameters:
function returns widget ID of xdate widget
CALLED BY:
xsearch_obs
Note: widget 'uvalue' of xdate WID is a structure including
.time and .day fields which are updated by the event handler.
Keyword Parameters:
wid - optional widget_text WID from calling application - if present,
the current xdate value is written to this text area
(it follows that the calling application can read this via
widget_control, get_value=last_xdate, WID)
group_leader - leader/parent application (for auto-kill)
register - if set, register this application (default lets parent do it)
Calling Sequence:
time_wid=xdate( [wid=wid] )
History:
24-mar-1995 (SLF)
26-mar-1995 (SLF) various - startup from text in WID, if supplied
dont hard code start/stop times
CALLS: ***
GET_WUVALUE, GET_WVALUE, SLIDER_EVENT, STR2ARR [1], STR2ARR [2], TIMEBUT_EVENTS
XDATE_EVENT, XDATE_SET2WID, XMANAGER, XMENU [1], XMENU [2], anytim2ints [1]
anytim2ints [2], fmt_tim [1], fmt_tim [2], get_xfont [1], get_xfont [2]
get_yo_dates [1], get_yo_dates [2], get_yo_dates [3], gt_day [1], gt_day [2]
strsplit, timegrid, ut_time [1], ut_time [2]
Restrictions:
generally called by another widget application
TODO: user supplied start and stop times.
[Previous]
[Next]
NAME:
XDL
PURPOSE:
Provides a graphical user interface to the DOC_LIBRARY user
library procedure.
CATEGORY:
Help, documentation, widgets .
CALLING SEQUENCE:
XDL [, Name]
INPUTS:
Name: The name of the initial routine for which help is desired.
This argument should be a scalar string.
KEYWORDS:
GROUP = The widget ID of the widget that calls XLoadct. When
this ID is specified, a death of the caller results in a
death of XLoadct
OUTPUTS:
None. A widget interface is used to allow reading the help text.
CALLS: ***
DOC_LIB_UNIX [1], DOC_LIB_UNIX [2], DOC_LIB_VMS [1], DOC_LIB_VMS [2], UNIQ [1]
UNIQ [2], UNIQ [3], XDL_EVENT, XDL_LIST, XDL_UPDATE, XMANAGER
COMMON BLOCKS:
None.
RESTRICTIONS:
- This routine does not support many of the keywords supported
by the DOC_LIBRARY procedure.
- This routine uses DOC_LIBRARY to do much of the actual work
of finding the documentation text. The alternative would be
to duplicate much of DOC_LIBRARY which is undesirable. However,
the use of DOC_LIBRARY leads to messages sometimes being sent
to the terminal.
MODIFICATION HISTORY:
5 January 1991, AB
30-Jun-92 (M.Morrison) - Modification so that it would work on SGI
29-Jul-92 (S.Freeland) - Generalized above fix to include mips
(and allow extentions to new systems)
[Previous]
[Next]
NAME:
xfem_grid
PURPOSE:
To extract days/nights/SAA ordered pairs from database
CALLING SEQUENCE:
xfem_grid, saast=fsaast, saaen=fsaaen, $
day=eday, night=enight, astart=astart, aend=aend
KEYWORD PARAMTERS:
saa(st,en) - start and end times of saa in seconds from astart
night, day - same for days and nights
astart - start time in atime format
aend - end time in atime format
CALLS: ***
anytim2ints [1], anytim2ints [2], int2secarr [1], int2secarr [2], rd_fem
HISTORY:
Adapted from fem_grid, ras 93/3/15
[Previous]
[Next]
NAME:
XFLOW_DIAG
PURPOSE:
To design a flow diagram for software/managerial plans.
CATEGORY:
Planning.
CALLING SEQUENCE:
Must compile with .run xflow_diag before use, then
xflow_diag, figure1 [,/cur,/clear]
INPUTS:
figure1 name of an IDL structure to contain details of the
design. If the structure exists on input, the contents
are reused (and added to if /cur is specified).
OPTIONAL INPUT PARAMETERS:
snap the round off value for box positions to be snapped to
eg if snap=0.05 all x,y positions will be rounded to
nearest 0.05 (default)
bsize size of boxes for scaling. This refers to the xsize (full
picture is 1.0 x 1.0 and size in y is xsize/2. Default=0.1
For a larger range of box sizes just run it more than once
with bsize of different values.
KEYWORDS:
cur if present the cursor is used to add more input.
clear if present the structure variable is assumed to be new
or no longer needed.
OUTPUTS:
figure1 on output will contain details of the design. This could
be saved for future use with the IDL 'save' command.
OPTIONAL OUTPUT PARAMETERS:
None.
CALLS: ***
ARROW, Bell, CIRC, ELLIPSE, FIND_BOX, INSIDE, OPTIONS, RECTANGLE, REPLOT, SNAP, SQ_RECT
T_CIRC, boundary
COMMON BLOCKS:
None.
SIDE EFFECTS:
None.
RESTRICTIONS:
The structure is limited to approx 300 entries (this includes
an entry for every shape located and three for every joining line).
There are several related procedures and functions within the
xflow_diag.pro disk file so it must be compiled with .run xflow_diag
BEFORE an attempt is made to call it.
PROCEDURE:
Choose the option in the lower window. If a shape is chosen then
indicate the location in the upper window. If LINE is chosen then
the start and end box must be indicated in the upper window. If
KILL is chosen, select the required shape to delete. The details
are actually only hidden, not deleted, and can be RESTORED if
needed. If NAME chosen then first indicate the box to which the
text will go and enter the text at the terminal screen - end with
a blank line.
MODIFICATION HISTORY:
Written: CDP December 92
Update to include moving symbols and size option.
Improve box text input/output.
Add title/reference text.
Add killing of box text and lines separately.
Add snapping and box size optional keywords.
CDP January 93
Added function to determine inside box criterion.
[Previous]
[Next]
returns whether any of the xpos,ypos positions are within the bounds of
the bnum-th xpos,ypos position (used to find attached lines which are
stored in same xpos,ypos arrays with 'box' type 4)
CALLS:
[Previous]
[Next]
PRO xform, xi,yi,zi, xo,yo,zo, TRANSFORM=t, HELP=help
Apply transformation set up by function set_xform.
Keyword TRANSFORM supplies the transformation matrix, e.g.
TRANSFORM=xf.helio2image.
See set_xform for full documentation on the coordinate systems.
Helio2image = heliographic to image-plane.
Image2helio = image-plane to heliographic.
These can be applied to coordinates, magnetic fields, velocities, ...
Zimage2helio = image-plane xi,yi to heliographic xh,yh, with the point
referred to by xi,yi understood to lie on the photosphere i.e. zh=0.
The suppressed zi is nonzero. This transformation matrix is 2x2, whereas
the others are 3x3.
The following forms are accepted if TRANSFORM is helio2image or image2helio:
xform,xyz ; replace the vector xyz=FLTARR(...,3)
; by the transformed vector.
xform,xyzi,xyzo ; transform the vector xyz=FLTARR(...,3) and return
; the result in xyzo=FLTARR(...,3).
xform,x,y,z ; replace the components x,y,z, which can be of arb.
; dimensions, by the transformed components.
xform,xi,yi,zi,xo,yo,zo ; transform the components xi,yi,zi, which can be
; of arb. dimensions, and return the resulting
; components in xo,yo,zo.
The following forms are accepted if TRANSFORM is a zimage2helio matrix:
xform,xy
xform,xyi,xyo
xform,x,y
xform.xi,yi,xo,yo
These are analogous to above, but the vectors are FLTARR(...,2).
CALLED BY
set_xform [1], set_xform [2]
[Previous]
[Next]
FUNCTION set_xform, b0,p,bc,lc, HELP=help
Calculate and store transformation between image-plane and heliographic
coordinates and various other useful info. Tranformations are linear,
assuming a tangent plane on the photosphere at the reference point.
Thus the reference point should be the center of the FOV.
INPUT:
b0 solar sub-Earth latitude (radians)
p solar p-angle (radians)
bc latitude of reference point on photosphere (radians)
lc cmd of reference point on photosphere (radians)
OUTPUT:
xf a structure containing the information --
transformations --
xf.helio2image ; Heliographic xh,yh,zh -> image-plane xi,yi,zi.
; FLTARR(3,3).
xf.image2helio ; Image-plane xi,yi,zi -> heliographic xh,yh,zh.
; FLTARR(3,3).
xf.zimage2helio ; Image-plane xi,yi -> heliographic xh,yh.
; ASSUMING (the unobserved) zi is such that zh=0 i.e.
; the observed image lies in the photospheric plane.
; FLTARR(2,2).
*NOTE*NOTE**NOTE* These arrays are stored transposed so that "normal"
*NOTE*NOTE**NOTE* matrix arithmetic works as expected, e.g.
*NOTE*NOTE**NOTE* B_i = xf.helio2image # B_h
*NOTE*NOTE**NOTE* "PRINT,xf.helio2image" will print it transposed too.
; useful things to know --
xf.b0 ; Solar latitude of sub-Earth point (radians).
xf.p ; Solar p-angle (radians).
xf.bc ; Latitude of center of FOV (radians).
xf.lc ; Cmd of center of FOV (radians).
xf.DirCos ; Direction cosines of LOS relative to helio xh,yh,zh
; coordinate system in radians (FLTARR(3)).
xf.mu ; Cos(angle from disk centre) in radians.
xf.SolRad ; Solar radius in Mm (megametres).
xf.Mm2arcsec ; Mm on photosphere -> arcsec at Sun.
xf.Mm2radian ; Mm on photosphere -> radians of CMD or latitude.
xf.arcsec2Mm ; Arcsec at Sun -> Mm on photosphere.
xf.radian2Mm ; Radians of CMD or latitude -> Mm on photosphere.
DEFINITION OF COORDINATE SYSTEMS:
xh,yh,zh Heliographic coordinates. zh is normal to the photosphere
(actually the tangent plane). xh in Westerly (+ve CMD)
direction, yh in Northerly (+ve latitude) direction.
xi,yi,zi Position in image plane. xi is terrestrial West, yi is
terrestrial North. zi is distance towards observer from
the image plane, where the origin (xi=0,yi=0,zi=0) of
the image plane touches the photosphere.
Could be generalized for images not oriented to terrestrial
North/West.
It is not really necessary to store the 3 transformations in xf.
helio2image and image2helio are inverses of each other; since the
transformations are unitary? orthogonal? or something one is just
the transpose of the other. Also, zimage2helio can be bypassed by
computing the zi needed to make zh=0, given xi, yi, and image2helio,
then using these xi,yi,zi to compute xh,yh,zh given image2helio.
However, they are stored for generality.
Clearly there is duplication among the constants too, specifically
radian2Mm == SolRad == 1/Mm2radian. and arcsec2Mm = 1/Mm2arcsec.
USAGE EXAMPLES:
; Get heliographic coordinates of observation points (pixels) on photosphere
; in Mm given pixel positions in arcsec.
xyzh=FLTARR(Nx,Ny,3) & FOR i=0,Nx-1 DO FOR j=0,Ny-1 DO $
xyzh(i,j,0:1) = xf.arcsec2Mm * xf.zimage2helio # [xi(i,j),yi(i,j)]
; Compute noise on Bx assuming 15G error in LOS field and 150G error
; in transverse field.
dBx = SQRT( xf.dircos(0)^2*15.0^2 + (1-xf.dircos(0)^2)*150.0^2 )
; Get area of pixel projected on photosphere in Mm^2, given pixel
; dimension pxl in arcsec.
area = (pxl*xf.arcsec2Mm)^2/xf.mu
CALLED BY
set_xform [1], set_xform [2]
[Previous]
[Next]
NAME:
xline
PURPOSE
To draw a horizontal line segment to the screen.
CALLING SEQUENCE
xline,x1,x2,y,color=color,narrow=narrow,linestyle=linestyle
INPUT
x1 - pixel to begin line
x2 - pixel to end line
y - Vertical position of line
OPTIONAL KEYWORD INPUT
color - color of line (default color = 255)
narrow - draw line of single pixel width (default = 3 pixels wide)
HISTORY
LWA, wrote a long time ago.
LWA, 3-Dec-94, upgraded header.
LWA, 21-May_91, added linestyle keyword
[Previous]
[Next]
NAME:
XLOADCT
PURPOSE:
A graphical interface to the LOADCT user library procedure.
XLOADCT displays the current color map and provides
an array of buttons, one per availible predefined color
table. Using the mouse to press these buttons causes
the corresponding color map to be loaded.
CATEGORY:
Widgets
CALLING SEQUENCE:
XLOADCT
INPUTS:
None.
KEYWORDS:
GROUP = The widget ID of the widget that calls XLoadct. When
this ID is specified, a death of the caller results in a
death of XLoadct
PICK_ONE - Normally, XLOADCT remains running until the user
presses the "QUIT" button. If PICK_ONE is present and
non-zero, the "QUIT" button is not displayed, and
XLOADCT quits after a single selection.
SILENT - Normally, no informational message is printed when
a color map is loaded. If this keyword is present and
zero, this message is printed.
WHICH - which predefined color tables to include
default is all (0-15)
CUSTOM - if set, interactivly define WHICH
OUTPUTS:
None.
CALLS: ***
FILEPATH, LOADCT, STRETCH, XDISPLAYFILE [1], XDISPLAYFILE [2], XLOADCT2
XLOADCT2_EVENT, XMANAGER, XREGISTERED, wmenu_sel [1], wmenu_sel [2]
CALLED BY:
BREAK_FILE [2], C3_CME, C3_CME_FRONT, CDS_ENG_N1_VW, CME_MASSIMG2TOTAL
COMBINE_IMG, CPMOVIE, CPMOVIE_DO, CPMOVIE_EV, CPONE, CPONE_EV, CT_Handling
CW_ANIMATE2, EIT_DISPLAY, EIT_MKMOVIE, EIT_SUBFIELD, FCS, GDSPSPEC, GET_PT, GR_IMAGES
HXISWIDGET, HXISWIDG_EV, IMAGE_REGISTER, LOCATE_FFCAL, MK_RASTER, MOVIE_MAKER
MVIPLAY, MVIPLAY3, NDSPSPEC, NRH2_PROJECTION, NRH_ANIM, NRH_VISU_2D, PB_INVERTER
RTMOVIE, RTMVIPLAY [1], RTMVIPLAY [2], RTMVIPLAYPNG, STEPPER [3], STEPPER [4]
STEPPER [6], STEPPER [7], SUBFIELD_EV, SUMER_REFORMAT [2], SUMER_TOOL_PD_EVENT
SUN_IMAGE, VIEW_RAW, WRITE_SUMMARIES [1], WRUNMOVIE [2], WRUNMOVIE4, WRUNMOVIEM
WRUNMOVIEM3, WRUNMOVIEM_RT, XCDS_SNAPSHOT, XRASTER [1], XRASTER [2], XTV, XTVSCALE
ar_prep, box_lc_plot, dsp_menu, gbo_obs_coord, polariz_display, qvu_loadct
sa_gt_specrange, sel_region, show_pix [1], show_pix [2], show_pix_event [1]
show_pix_event [2], show_pix_event [3], uvsp, wdefroi [1], wdefroi [2], xdisp_tfr
xhkplot, xspr [1], xspr [2], xstepper_event, xsxt_prep_event, zmovie
COMMON BLOCKS:
None.
SIDE EFFECTS:
One of the predefined color maps may be loaded.
RESTRICTIONS:
This routine uses the LOADCT user library procedure to
do the actual work.
MODIFICATION HISTORY:
24, August, 1990, Written by AB, RSI.
2-JUN-1992, SLF, ADDED WHICH and CUSTOM KEYWORD PARAMETERS
also, private common, xloadct2_private
[Previous]
[Next]
NAME:
XMOVIE_SFM
PURPOSE:
Displays movie of SFM data on X-windows workstation with Widget control
CATEGORY:
CALLING SEQUENCE:
xmovie_sfm [,option [,subopt]]
INPUTS:
User can select a movie display OPTION from:
0 All images from a single selected monthly SFM file
The required monthly file must be selected either as a
file number (def=6), or a date in form yymm (e.g. 9204)
1 All images between two specified dates
Required start and stop dates must be entered
2 Movie of days seperated by a Carrington Rotation
A Reference Date must be supplied (def = 27-Jan-92)
If no option supplied, the user will be questioned.
OPTIONAL INPUT PARAMETERS:
subopt if option is 0, this is the month required (e.g. 9302)
if option is 2, this is the reference date (e.g. 23-jan-91)
maxfiles if set, ignores last file
KEYWORD PARAMETERS:
CALLS: ***
ADDTIME [1], ADDTIME [2], CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3]
Ex2Int [1], Ex2Int [2], GAMMA_CT, LOADCT, RD_SDA [1], RD_SDA [2], RD_SDA [3]
Rd_Roadmap [2], XINTERANIMATE, anytim2ints [1], anytim2ints [2], concat_dir [4]
fmt_tim [1], fmt_tim [2], get_del_pnt, get_info [1], get_info [2], get_info [3]
get_info [4], mk_dset_str [1], mk_dset_str [2], rd_roadmap [1], tim2dset [1]
tim2dset [2], timstr2ex [1], timstr2ex [2], yesnox [1], yesnox [2]
COMMON BLOCKS:
SIDE EFFECTS:
Uses X-windows pixmap for the movie
Uses Red Temperature colour table (#3) modified with gamma = 0.45
RESTRICTIONS:
Only seems to be able to handle 30-50 images on 3100/76
PROCEDURE:
Reads each image in in turn (so as to minimize memory usage),
converts to a 256x256 pixel image, corrects for commanded
spacecraft pointing, and writes to pixmap using xinteranimate.
When loaded, movie is controlled by Widgets
MODIFICATION HISTORY:
RDB, 3-Jun-93 written
RDB 18-Jun-93 Made into a procedure
15-Jul-93 (MDM) Corrected for cases where the image shift would be negative
RDB 29-Jul-93 Different approach to MDL mod. Now write to large
window and only copy central part of display.
RDB 10-Aug-93 Second parameter for option 0, e.g. 9301
RDB 2-Nov-95 Replaced option 1 with images between two dates
Parameter for option 0 now two forms...
MAXFILES keyword to ignore last file if incomplete
[Previous]
[Next]
Name: xrayss
Purpose: return subscripts of X-Ray images
Input Parameters:
index - Yokhoh SXT index or roadmap structures
Output:
function returns long word vector of subscripts (-1 for no match)
Output Parameters:
count - number of xray images found in input
CALLS: ***
gt_expmode, gt_filta
CALLED BY:
lastsfd [1], lastsfd [2]
History:
18-jul-1994 (SLF)
[Previous]
[Next]
Name: xs_recover
Purpose: restore data from xstepper common block
[Previous]
[Next]
Name: xsearch_obs
Purpose: widget front end to observing log search (search_obs.pro)
Input Parameters:
NONE
Output Parameters:
index - matching observing log records of most recent search
History:
23-mar-1995 (SLF)
25-mar-1995 (SLF) enabled PFI / use widget for text output
CALLS: ***
COMP_EVENT, CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], DPE_EVENT
DP_MODE_EVENT, EXPMODE_EVENT, FILTA_EVENT, FILTB_EVENT, GET_WUVALUE, GET_WVALUE
MAIN_EVENT, PFI_FFI_EVENT, RES_EVENT, START_EVENT, STOP_EVENT, XDATE_SET2WID
XMANAGER, XMENU [1], XMENU [2], XSEARCH_OBS_EVENT, XSO_SETTIME, concat_dir [4]
curdir [1], curdir [2], fmt_tim [1], fmt_tim [2], get_info [1], get_info [2]
get_info [3], get_info [4], get_xfont [1], get_xfont [2], get_yo_dates [1]
get_yo_dates [2], get_yo_dates [3], gt_comp, gt_dp_mode [1], gt_dp_mode [2]
gt_dpe, gt_expmode, gt_filta, gt_filtb, gt_res, mapx [1], mapx [2], rd_tfile [1]
rd_tfile [2], savegen [1], savegen [2], tbeep [1], tbeep [2], tbeep [3], ut_time [1]
ut_time [2], xdate [1], xdate [2], xso_butevents [1], xso_butevents [2]
xso_search
Restrictions:
SXT only
[Previous]
[Next]
Name: xso_butevents
Purpose: handle events for 'gt functions'
Input Parameters:
event - button event structure
gttype - string gt function name [ex: 'dpe', 'comp', 'filta', 'filtb']
Keyword Parameters
fakeid - wid of event to fake (when called from different event)
select - desired select field for faked events.
CALLS: ***
ARR2STR [1], Arr2Str [2], GET_WUVALUE, GET_WVALUE, deriv_arr [1], deriv_arr [2]
gt_dpe, is_member [1], is_member [2], strjustify, tbeep [1], tbeep [2], tbeep [3]
wc_where [1], wc_where [2], wmenu_sel [1], wmenu_sel [2]
CALLED BY:
xsearch_obs
History:
23-mar-1995 (SLF) - xsearch_obs subroutine
25-mar-1991 (SLF) - add fakeid (kickoff 'event' from a different event)
22-feb-1999 (SLF) - change dpe range delimiter from '-' to '~'
[Previous]
[Next]
Name: xso_butevents
Purpose: handle events for 'gt functions'
Input Parameters:
event - button event structure
gttype - string gt function name [ex: 'dpe', 'comp', 'filta', 'filtb']
Keyword Parameters
fakeid - wid of event to fake (when called from different event)
select - desired select field for faked events.
CALLS: ***
ARR2STR [1], Arr2Str [2], GET_WUVALUE, GET_WVALUE, deriv_arr [1], deriv_arr [2]
gt_dpe, is_member [1], is_member [2], strjustify, tbeep [1], tbeep [2], tbeep [3]
wc_where [1], wc_where [2], wmenu_sel [1], wmenu_sel [2]
CALLED BY:
xsearch_obs
History:
23-mar-1995 (SLF) - xsearch_obs subroutine
25-mar-1991 (SLF) - add fakeid (kickoff 'event' from a different event)
[Previous]
[Next]
Name: xso_search
Purpose: setup searches for xsearch_obs.pro
Input Parameters:
event - event structure
CALLS: ***
CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], GET_WUVALUE, GET_WVALUE
anytim2ints [1], anytim2ints [2], concat_dir [4], file_append [1]
file_append [2], get_info [1], get_info [2], get_info [3], get_info [4]
get_logenv [1], get_logenv [2], get_user [1], get_user [2], go_batch [1]
go_batch [2], int2secarr [1], int2secarr [2], search_obs, tbeep [1], tbeep [2]
tbeep [3]
CALLED BY:
xsearch_obs
History:
23-mar-1995 (SLF) Written
16-may-1995 (SLF) force HOME directory output
[Previous]
[Next]
NAME: xspr
PURPOSE: Widget interface/ X-Windows spr/spd file reviewer
INPUT PARAMETERS (positional):
sprfile - (default pops up an SPD menu in $DIR_SITE_NEWDATA
OPTIONAL INPUT PARAMETERS (keyword):
title - widget title (default=XSTEPPER)
xsize/ysize - if present, rebin will be done
noscale - if set, turns off tvscl
subscript - indices of images to display (default=all)
interp - if set, rebin uses interp (default=sample)
start - Index of starting image
info_array - strarray of image info (for stepper compatibility)
may be passed as optional 2nd positional param
goes - if set, include GOES
nogoes - if set, omit GOES
Calling Sequence:
xspr [,spNfile] - where N=d (spd files) or N=r (spr files)
Calling Examples:
xspr
Button Layout:
------------------------------------------------------------------------
| QUIT | FWRD>> | <<BWRD | Movie | Freeze | AZoom-OFF | Wrap | XLOADCT |
------------------------------------------------------------------------
| HELP | IMG->SS | IMG->PIX | DATA->PIX | SS->PIX | RST-SS | RST-PIX |
------------------------------------------------------------------------
| Display: <>DATA <>DATA(SS) <>PIXMAP Title-Image: <> OFF |
------------------------------------------------------------------------
Button Description:
--------------------------------------------------------------------------
QUIT - exits xstepper
FWRD>> - steps forward 1 image (sets movie direction to forward)
<<BWRD - steps backward 1 image (sets movie direction to backward)
Movie - starts movie mode
Freeze - stops movie mode
AZoom-OFF - toggles between Auto Zoom Off and Auto Zoom On modes
Wrap - toggles between wrap around and auto reverse modes
XLOADCT - runx XLOADCT
--------------------------------------------------------------------------
HELP - displays text information about currently selected images
IMG->SS - places current image into SS vector and advances display
IMG->PIX - places current image in a pixmap
DATA->PIX - places entire data array into pixmap array (memory caution)
SS->PIX - places DATA(SS) into pixmap array
RST-SS - Reset (initialize) SS vector
RST-PIX - Reset (initialize) PIXMAP array
--------------------------------------------------------------------------
Display: (select from three categories of image display)
DATA - Original data cube
DATA(SS) _ Subset of data cube ( Data(*,*,ss))
PIXMAP - Offscreen Pixmaps (allows fast frame rates on most machines)
Title-Image:- Toggles On/Off information written to window area
--------------------------------------------------------------------------
Other Features:
clicking on image automatically opens a second window and displays
a zoomed copy of the current image - this second window allows selection
of zoom factors - clicking on zoom window will hide it. If the display
selection is DATA or DATA(SS), then the zoom window may automatically
track (single step or movie mode) and auto zoom if AZoom-ON is chosen
(auto zoom does not work while in PIXMAP display mode)
Image information is displayed to the text portion of the widget
Side Effects: widget(s) is displayed to X terminal
CALLS: ***
BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], EVENT_NAME, FILE_EXIST [2]
GET_WUVALUE, GET_WVALUE, GOES_DRAW, GOES_MARK, LOADCT, MAKE_STR [1], MAKE_STR [2]
Multi_draw [1], Multi_draw [2], RD_SDA [1], RD_SDA [2], RD_SDA [3], Rd_Roadmap [2]
SXT_UNIQFOV, UNIQ [1], UNIQ [2], UNIQ [3], XLOADCT [1], XLOADCT [2], XLOADCT [3]
XMANAGER, XMENU2, XREGISTERED, XSPR_EVENT, XSPR_NEWSFD, XSPR_NEWSPR, XSPR_NEWSS
XSPR_RD1FOV, XSPR_UPDATE_IMG, XSPR_UPDATE_PIX, ZOOM_SINGLE [1], ZOOM_SINGLE [2]
ZOOM_SINGLE [3], anytim2ints [1], anytim2ints [2], ass_or, break_file [4]
data_chk [1], data_chk [2], fid2ex [1], fid2ex [2], file_exist [1], file_exist [3]
file_list [1], file_list [2], force_evt [1], force_evt [2], get_info [1]
get_info [2], get_info [3], get_info [4], get_xfont [1], get_xfont [2]
goes_widget, gt_center, gt_shape_cmd, lastsfd [1], lastsfd [2], mapx [1], mapx [2]
newfiles [1], newfiles [2], newfiles [3], plot_nar [1], plot_nar [2]
rd_roadmap [1], stepper_title [1], stepper_title [2], str_replace [1]
str_replace [2], tag_index [1], tag_index [2], tbeep [1], tbeep [2], tbeep [3]
tim2dset [1], tim2dset [2], xstepper_status
Common Blocks:
xstepper_blk - (xstepper parameters, direction,rebin,etc)
sda_draw_private - (utility window info (zoom, etc)
Restrictions: - only one instance may be run at a time due to common
HISTORY:
slf ~ Apr-95 (converted xstepper/browse to spd/spr use)
slf 23-may-95 (added GOES logic , made /goes the default)
slf 5-oct-95 (Fixed a few bugs; no goes data, pixmap interupt)
[Previous]
[Next]
NAME: xspr
PURPOSE: Widget interface/ X-Windows spr/spd file reviewer
INPUT PARAMETERS (positional):
sprfile - (default pops up an SPD menu in $DIR_SITE_NEWDATA
OPTIONAL INPUT PARAMETERS (keyword):
title - widget title (default=XSTEPPER)
xsize/ysize - if present, rebin will be done
noscale - if set, turns off tvscl
subscript - indices of images to display (default=all)
interp - if set, rebin uses interp (default=sample)
start - Index of starting image
info_array - strarray of image info (for stepper compatibility)
may be passed as optional 2nd positional param
goes - if set, include GOES
nogoes - if set, omit GOES
Calling Sequence:
xspr [,spNfile] - where N=d (spd files) or N=r (spr files)
Calling Examples:
xspr
Button Layout:
------------------------------------------------------------------------
| QUIT | FWRD>> | <<BWRD | Movie | Freeze | AZoom-OFF | Wrap | XLOADCT |
------------------------------------------------------------------------
| HELP | IMG->SS | IMG->PIX | DATA->PIX | SS->PIX | RST-SS | RST-PIX |
------------------------------------------------------------------------
| Display: <>DATA <>DATA(SS) <>PIXMAP Title-Image: <> OFF |
------------------------------------------------------------------------
Button Description:
--------------------------------------------------------------------------
QUIT - exits xstepper
FWRD>> - steps forward 1 image (sets movie direction to forward)
<<BWRD - steps backward 1 image (sets movie direction to backward)
Movie - starts movie mode
Freeze - stops movie mode
AZoom-OFF - toggles between Auto Zoom Off and Auto Zoom On modes
Wrap - toggles between wrap around and auto reverse modes
XLOADCT - runx XLOADCT
--------------------------------------------------------------------------
HELP - displays text information about currently selected images
IMG->SS - places current image into SS vector and advances display
IMG->PIX - places current image in a pixmap
DATA->PIX - places entire data array into pixmap array (memory caution)
SS->PIX - places DATA(SS) into pixmap array
RST-SS - Reset (initialize) SS vector
RST-PIX - Reset (initialize) PIXMAP array
--------------------------------------------------------------------------
Display: (select from three categories of image display)
DATA - Original data cube
DATA(SS) _ Subset of data cube ( Data(*,*,ss))
PIXMAP - Offscreen Pixmaps (allows fast frame rates on most machines)
Title-Image:- Toggles On/Off information written to window area
--------------------------------------------------------------------------
Other Features:
clicking on image automatically opens a second window and displays
a zoomed copy of the current image - this second window allows selection
of zoom factors - clicking on zoom window will hide it. If the display
selection is DATA or DATA(SS), then the zoom window may automatically
track (single step or movie mode) and auto zoom if AZoom-ON is chosen
(auto zoom does not work while in PIXMAP display mode)
Image information is displayed to the text portion of the widget
Side Effects: widget(s) is displayed to X terminal
CALLS: ***
BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], EVENT_NAME, FILE_EXIST [2]
GET_WUVALUE, GET_WVALUE, GOES_DRAW, GOES_MARK, LOADCT, MAKE_STR [1], MAKE_STR [2]
Multi_draw [1], Multi_draw [2], RD_SDA [1], RD_SDA [2], RD_SDA [3], Rd_Roadmap [2]
SXT_UNIQFOV, UNIQ [1], UNIQ [2], UNIQ [3], XLOADCT [1], XLOADCT [2], XLOADCT [3]
XMANAGER, XMENU2, XREGISTERED, XSPR_EVENT, XSPR_NEWSFD, XSPR_NEWSPR, XSPR_NEWSS
XSPR_RD1FOV, XSPR_UPDATE_IMG, XSPR_UPDATE_PIX, ZOOM_SINGLE [1], ZOOM_SINGLE [2]
ZOOM_SINGLE [3], anytim2ints [1], anytim2ints [2], ass_or, break_file [4]
data_chk [1], data_chk [2], fid2ex [1], fid2ex [2], file_exist [1], file_exist [3]
file_list [1], file_list [2], force_evt [1], force_evt [2], get_info [1]
get_info [2], get_info [3], get_info [4], get_xfont [1], get_xfont [2]
goes_widget, gt_center, gt_shape_cmd, lastsfd [1], lastsfd [2], mapx [1], mapx [2]
newfiles [1], newfiles [2], newfiles [3], plot_nar [1], plot_nar [2]
rd_roadmap [1], stepper_title [1], stepper_title [2], str_replace [1]
str_replace [2], tag_index [1], tag_index [2], tbeep [1], tbeep [2], tbeep [3]
tim2dset [1], tim2dset [2], xstepper_status
Common Blocks:
xstepper_blk - (xstepper parameters, direction,rebin,etc)
sda_draw_private - (utility window info (zoom, etc)
Restrictions: - only one instance may be run at a time due to common
HISTORY:
slf ~ Apr-95 (converted xstepper/browse to spd/spr use)
slf 23-may-95 (added GOES logic , made /goes the default)
slf 5-oct-95 (Fixed a few bugs; no goes data, pixmap interupt)
[Previous]
[Next]
NAME:
XSTDEV
PURPOSE:
Compute the standard deviation and, optionally, the
mean of any array.
CATEGORY:
G1- Simple calculations on statistical data.
CALLING SEQUENCE:
Result = XSTDEV(Array [, Mean])
INPUTS:
Array: The data array. Array may be any type except string.
OUTPUTS:
XSTDEV returns the standard deviation (sample variance
because the divisor is N-1) of Array in x-space
OPTIONAL OUTPUT PARAMETERS:
Mean: Upon return, this parameter contains the mean of the values
in the data array.
CALLED BY:
ANAL_STIMS
COMMON BLOCKS:
None.
SIDE EFFECTS:
None.
RESTRICTIONS:
None.
PROCEDURE:
MODIFICATION HISTORY:
DMS, RSI, Sept. 1983.
RDB 19-Mar-94 Modified to x-space
[Previous]
[Next]
Name: xsw2tree_event
Purpose: widget event driver for xsw2tree
CALLS: ***
CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], FILE_EXIST [2], GET_WUVALUE
STR2ARR [1], STR2ARR [2], XMANAGER, XMENU [1], XMENU [2], concat_dir [4], dir_since
file_append [1], file_append [2], file_exist [1], file_exist [3], get_host [1]
get_host [2], get_user [1], get_user [2], mapx [1], mapx [2], rd_tfile [1]
rd_tfile [2], tbeep [1], tbeep [2], tbeep [3], wc_where [1], wc_where [2], xsw2tree
xswlist [1], xswlist [2]
History:
27-Oct-1993 (SLF) written
widget_control,event.top,get_uvalue=top_struct
wchk=where(tag_names(top_struct) eq 'BASE')
main=wchk(0) eq 0
if main then begin
main_struct=top_struct
widget_control, get_uvalue=flist_struct, top_struct.xfbase, bad_id=destroyed
endif else begin
flist_struct=top_struct
main_struct=get_wuvalue(top_struct.parent)
endelse
outfile=get_wuvalue(main_struct.mmenu(1))
dpaths=''
for i=0,n_elements(main_struct.imenu)-1 do $
dpaths=[dpaths,get_wuvalue(main_struct.imenu(i))]
dpaths=dpaths(1:*)
sfact=0
slide_cur=0
if flist_struct.pslide gt 0 then begin
slide_cur=get_wvalue(flist_struct.pslide)-1
sfact=get_wuvalue(flist_struct.pslide)
endif
case (strtrim(event_name(event),2)) of
"BUTTON":begin ; option selection
ichk=where(event.id eq main_struct.imenu)
if ichk(0) ne -1 then begin
npath=get_wuvalue(event.id)
widget_control,top_struct.plist,set_value=npath
widget_control,top_struct.plist,set_uvalue=npath
widget_control,set_value= npath(0), flist_struct.dtext
endif else begin
value=get_wvalue(event.id)
case value of
"QUIT":begin
widget_control, event.top,/destroy
endcase
"MAIL&EXIT": begin
mailuser=get_user()
mailuser=[mailuser,str2arr(get_logenv('MAIL_SW_MANAGERS'))]
mailuser=arr2str(mailuser(uniqo(mailuser)))
message,/info,'Mailing script file to: ' + mailuser
mail,file=outfile,subj="xsw2tree script file",/self, $
users=mailuser
widget_control, event.top,/destroy
endcase
"MOVE FILE": begin
widget_control, flist_struct.stext, $
set_value='Move File To ----> '
olddir=get_wuvalue(flist_struct.modeb(1))
widget_control, flist_struct.dtext, set_value=olddir
endcase
"DELETE FILE": begin
curdest=(get_wvalue(flist_struct.dtext))(0)
if strpos(curdest,'bit_bucket') eq -1 then $
widget_control,flist_struct.modeb(1), set_uvalue= curdest
widget_control,set_value= '/ys/bit_bucket', flist_struct.dtext
widget_control, flist_struct.stext, $
set_value='Move File To ----> '
endcase
"SHOW DOCUMENTATION": begin
widget_control, flist_struct.stext, $
set_value='Show Documentation'
endcase
"Set Destination Path": begin
widget_control, main_struct.setmode, $
set_value='Destination Path Selection'
mapx,main_struct.fage_base,/map,/show,sens=0
endcase
"Set Input Path": begin
widget_control, main_struct.setmode, $
set_value='Input Path Selection'
mapx,main_struct.fage_base,/map,/show,sens=1
endcase
---------------- script append ------------------------
"UPDATE SCRIPT": begin
tbeep
message,/info,'Updating script file: ' + outfile
message,/info,'Paths written to file: ' + outfile + '_dpaths'
file_append, outfile + '_dpaths',dpaths, /new
slist=get_wuvalue(flist_struct.slist)
dlist=get_wuvalue(flist_struct.dlist)
ss=where(strmid(dlist,0,1) ne ' ' and $
strmid(dlist,0,1) ne '', sscnt)
if sscnt eq 0 then begin
message,/info,'No new records to add...'
endif else begin
mvcmds='mv -f ' + slist(ss) + ' ' + dlist(ss)
file_append,outfile,mvcmds,/uniq
ss=where(strmid(dlist,0,1) eq ' ' or $
strmid(dlist,0,1) eq '', sscnt)
curdest=(get_wvalue(flist_struct.dtext))(0)
if sscnt ne 0 then begin
widget_control,main_struct.xfbase,/destroy
message,/info,'Regenerating file list widget'
xfbase= $
xswlist(slist(ss),str2arr(!path,':'), $
parent=flist_struct.parent)
widget_control,xfbase,/realize
top_struct.xfbase=xfbase
widget_control,set_uvalue=main_struct, main_struct.base
xmanager,'xswlist',xfbase,/just_reg, $
event='xsw2tree_event', group=flist_struct.parent
flist_struct=get_wuvalue(xfbase)
widget_control,flist_struct.dtext,set_value=curdest
endif else begin
tbeep
mapx,main_struct.xfbase
message,/info,'All files have been assigned destinations'
message,/info,'Select new input path, or EXIT / QUIT'
widget_control, main_struct.setmode, $
set_value='Input Path Selection'
mapx,main_struct.fage_base,/map,/show,sens=1
endelse
mapx,main_struct.docbase,/map,/show,/sens
widget_control, bad_id=destryed, $
set_value=['CONTENTS OF FILE: ' + outfile ,'', $
'----------------------------------------------------', $
rd_tfile(outfile)], main_struct.doctext
endelse
endcase
----------------------------------------------------------
"SHOW SCRIPT": begin
mapx,main_struct.docbase,/map,/show,/sens
widget_control, $
set_value=['CONTENTS OF FILE: ' + outfile ,'', $
'----------------------------------------------------', $
rd_tfile(outfile)], main_struct.doctext
endcase
"EXECUTE SCRIPT":message,/info,'Execute Script... (TESTING)'
endcase
endelse
endcase
"LIST": begin
case 1 of
event.id eq main_struct.plist: begin
list=get_wuvalue(event.id)
case get_wvalue(main_struct.setmode) of
"Destination Path Selection": begin
widget_control,set_value= list(event.index), $
flist_struct.dtext
endcase
"Input Path Selection": begin
older=strtrim(get_wvalue(main_struct.fage_slide),2)
slist=dir_since(list(event.index),older,/sort)
if older ne 0 then tbeep
if slist(0) eq '' then begin
tbeep
endif else begin
widget_control,main_struct.xfbase,/destroy
xfbase= $
xswlist(slist,str2arr(!path,':'), $
parent=flist_struct.parent)
main_struct.xfbase=xfbase
top_struct.xfbase=xfbase
widget_control,xfbase,/realize
xmanager,'xswlist',xfbase,/just_reg, $
event='xsw2tree_event', group=flist_struct.parent
flist_struct=get_wuvalue(xfbase)
endelse
endcase
endcase
endcase
event.id eq flist_struct.slist: begin
stext=get_wvalue(flist_struct.stext)
list=get_wuvalue(event.id)
index=event.index + (sfact * slide_cur)
case stext(0) of
"Move File To ----> ": begin
mapx,main_struct.mmenu(1:3),/map,/show,/sens
dlist=get_wuvalue(flist_struct.dlist)
dlist(index)=get_wvalue(flist_struct.dtext)
if slide_cur gt 0 then wdlist= $
dlist((slide_cur)*sfact:(slide_cur+1)*sfact-1 < $
(n_elements(dlist)-1)) else wdlist=dlist
widget_control, flist_struct.dlist, set_value= wdlist
widget_control,set_uvalue=dlist, flist_struct.dlist
endcase
"Show Documentation": begin
mapx,main_struct.docbase,/map,/show,/sens
doc=rd_tfile(list(index))
widget_control,set_value=doc,main_struct.doctext
endcase
endcase
endcase
event.id eq flist_struct.dlist: begin
list=get_wuvalue(event.id)
index=event.index + (sfact * slide_cur)
dlist=get_wuvalue(flist_struct.dlist)
dlist(index)=''
widget_control, flist_struct.dlist, set_uvalue=dlist
if slide_cur gt 0 then wdlist= $
dlist((slide_cur)*sfact:(slide_cur+1)*sfact-1 < $
(n_elements(dlist)-1)) else wdlist=dlist
widget_control, flist_struct.dlist, set_value= wdlist
message,/info,'dest list'
endcase
endcase
endcase
"SLIDER": begin
case event.id of
flist_struct.pslide: begin
slist=get_wuvalue(flist_struct.slist)
dlist=get_wuvalue(flist_struct.dlist)
widget_control, flist_struct.slist, set_value=$
slist((event.value-1)*sfact:(event.value*sfact-1) < $
(n_elements(slist)-1))
widget_control, flist_struct.dlist, set_value=$
dlist((event.value-1)*sfact:(event.value*sfact-1) < $
(n_elements(dlist)-1))
endcase
else:
endcase
endcase
endcase
widget_control, main_struct.xfbase, set_uvalue=flist_struct, bad_id=destroyed
widget_control, flist_struct.parent, set_uvalue=main_struct, bad_id=destroyed
widget_control, event.top, set_uvalue=top_struct, bad_id=destroyed
return
end
pro xsw2tree, files, indir=indir, infile=infile, paths=paths, $
outfile=outfile, append=append, overwrite=overwrite, $
ucon=ucon, older_than=older_than, $
bcs=bcs, gen=gen, sxt=sxt, hxt=hxt, wbs=wbs
+
Name: xsw2tree
Purpose: generate script to move files within tree via widget
Input Parameters:
files - optional list of files to move (if no keyword input used)
Optional Keyword Parameters:
indir - directory to use for input files
infile - file containing list of files
paths - data path array (destination paths)
if not defined, use !path array
if 1 element, assume it is a rd_tfile compat file of paths
outfile - name of script (default=$DIR_SITE_SCRIPT/xsw2tree.USER
(destination path list =$DIR_SITE_SCRIPT/xsw2tree.USER_dpaths
ucon - if set, use ucon directory for input files
older_than - in conjunction with indir, only files older than this many days
are considered for action (default=15 days)
Calling Sequence:
xsw2tree,indir=indir [,older=ndays] ; input files from specified path
xsw2tree, [/bcs,/sxt,/gen,/hxt,/wbs] ; input files from specified atest
xsw2tree, /ucon ; input files from users ucon area
History:
27-Oct-1993 (SLF) Written (supplements atest2tree)
31-Oct-1993 (SLF) Mods (document, file age, file delete, etc)
19-apr-1995 (SLF) use fixed font (call get_xfont)
[Previous]
[Next]
Name: xswlist
Purpose:
CALLS: ***
CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], FILE_EXIST [2], GET_WUVALUE
STR2ARR [1], STR2ARR [2], XMANAGER, XMENU [1], XMENU [2], concat_dir [4], dir_since
file_append [1], file_append [2], file_exist [1], file_exist [3], get_host [1]
get_host [2], get_user [1], get_user [2], mapx [1], mapx [2], rd_tfile [1]
rd_tfile [2], tbeep [1], tbeep [2], tbeep [3], wc_where [1], wc_where [2], xsw2tree
CALLED BY:
xsw2tree, xsw2tree_event
History:
SLF - ~15-nov-93
SLF - 19-Jul-94 - reduced fperpage
[Previous]
[Next]
Name: xsxt_prep
Purpose: provide front end to sxt_prep
CALLS: ***
get_host [1], get_host [2], get_user [1], get_user [2], mail [1], mail [2]
tbeep [1], tbeep [2], tbeep [3]
History:
10-Jan-94 (SLF) - protoshell for UG documentation protection/reminder
[Previous]
[Next]
Name: xsxt_prep_event
Purpose: event handler for xsxt_prep
CALLS: ***
ARR2STR [1], Arr2Str [2], CONV_H2A [1], CONV_H2A [2], EVENT_NAME, GET_WUVALUE
GET_WVALUE, REVERSE, STR2ARR [1], STR2ARR [2], SXT_GRID [1], SXT_GRID [2]
SXT_GRID [3], WDEF [1], WDEF [2], XLOADCT [1], XLOADCT [2], XLOADCT [3]
conv_h2p [1], conv_h2p [2], conv_p2a [1], conv_p2a [2], conv_p2h [1], conv_p2h [2]
fmt_tim [1], fmt_tim [2], get_info [1], get_info [2], get_info [3], get_info [4]
get_sfm, gt_pfi_ffi, mapx [1], mapx [2], plot_fov [1], plot_fov [2], str_replace [1]
str_replace [2], sxt_cen [1], sxt_cen [2], sxt_prep_exe, tbeep [1], tbeep [2]
tbeep [3]
History: slf, 15-Aug-1993
[Previous]
[Next]
NAME:
XTMOVIE
PURPOSE:
Display movie using X-windows
Options: display (time) string in each frame.
load overlay color table.
CATEGORY:
CALLING SEQUENCE:
xtmovie,data
INPUTS:
data = movie (3-D array)
KEYWORDS (INPUT):
time = string vector. Each string element is displayed in the
corresponding movie frame.
/right : time string displayed in lower right corner instead of
lower left corner
/overlay : loads special overlay color table
OUTPUTS:
No explicit outputs
CALLS: ***
XINTERANIMATE
COMMON BLOCKS:
None.
SIDE EFFECTS:
Uses the current graphics window as a scratch buffer
RESTRICTIONS:
PROCEDURE:
Calls xinteranimate
MODIFICATION HISTORY:
JPW, Feb. 1992
JPW, 22-nov-94 now uses pixmap for labels
[Previous]
[Next]
X - T. Yoshida - Color Table
CALLS:
CALLED BY
pro xtyoshidactparamnoxnox
[Previous]
[Next]
NAME:
xy_lwa
PURPOSE:
To make a raster pattern of a time series of SXT images
to display time evolution of something or other.
The images start at upper left and go to lower right,
and the formatted time is written at the bottom of each
image.
CALLING SEQUENCE:
xy_lwa, index,data, nx=nx, ny=ny, xy=xy, bin=bin, noscale=noscale,$
color=color, ddhhmm=ddhhmm, charsize=charsize,$
charthick=charthick, xoffset=xoffset, yoffset=yoffset,$
notimes=notimes, noimg=noimg
INPUTS:
data = image array
index = index structure or string array
If a string array is used then the string is printed on the
image in place of the time derived from index.
KEYWORD INPUTS
nx = number of images in x direction
ny = number of images in y direction
WINDOW REQUIREMENT
This routine requires that the right sized IDL window be prepared.
The screen is NOT erased by this program.
OPTIONAL KEYWORD INPUTS
bin = rebin factor
Keyword NOSCALE acts like NOSCALE in STEPPER.
/ddhhmm makes time output in 26-APR-94 19:26:57 style,
else only 19:26:57 is written on the images.
/date_only limits time output to date, e.g., 26-APR-94
color=color sets color of characters
charsize=charsize sets character size, default = 1.6
charthick=charthick sets thickness of vector drawn characters, default=1
xoffset, yoffset = offsets in x & y to apply to each image.
/notimes eliminates output of time labels.
/noimg eliminates output of images, as program does not erase the
screen this permits adding labels or times to an array of images
from some other source.
xy=xy, size of single picture in screen pixels,
e.g., xy=256 or xy=[128,64] where x dimension comes first.
/overlay, special overlays for specific task studying Al.1
terminator images. Could be edited for other purposes.
CALLS: ***
blank_circle [1], blank_circle [2], boxit, data_chk [1], data_chk [2]
draw_circle [1], draw_circle [2], draw_circle [3], fmt_tim [1], fmt_tim [2]
get_rb0p [1], get_rb0p [2], gt_pfi_ffi, gt_res, ocontour [1], ocontour [2]
ocontour [3], ocontour [4], ocontour [5], sector_bound, sxt_cen [1], sxt_cen [2]
HISTORY:
HSH, written some time in early 1992
LWA modified to use existing window, 11/2/92
Fixed noscale option, put index, data in standard order, 4/07/94 LWA
Added ddhhmm option, 4/29/94.
Added charsize keyword, 4/30/94.
Added xoffset, yoffset and notimes keywords, 8/04/94 LWA.
Fixed error and ammended header, 10/26/94 LWA.
Added xy keyword, 12/18/94 LWA.
Added date_only keyword, 5/15/95, LWA
Fixed date_only and ddhhmm logic, 5/21/95, LWA
Changed variable typ to tyyp, 3/19/97, LWA
Added overlay keyword (special application), 7/11/02, LWA
[Previous]
[Next]
NAME:
xy_raster
PURPOSE:
To make a raster pattern of a time series of SXT images
to display time evolution of something or other.
The images start at upper left and go to lower right,
and the formatted time is optionally written at the bottom of each
image.
CALLING SEQUENCE:
xy_raster, index, data
xy_raster, index, data, 3, ss=ss, /individual_scale
xy_raster, index, data, 0.5, /notimes, /noscale
INPUTS:
index - The index structure
data - The data array
OPTIONAL INPUTS:
factor - The rebin factor (factor = 2 to double the size). The
default is same size (=1)
OPTIONAL KEYWORD INPUTS:
noscale - If set, do not scale the data cube (use TV
instead of TVSCL)
Default is to auto scale on the whole cube, so that
the intensities relative to each image is maintained.
individual_scale - If set, then use TVSCL on each individual image.
Default is to auto scale on the whole cube, so that
the intensities relative to each image is maintained.
ss - A list of the subscripts of the images to display
notimes - If set, then do not display the times
xsiz - The xsize of the window (default = 800). This is only
used if the data cube requires multiple pages
ysiz - The ysize of the window (default = 800). This is only
used if the data cube requires multiple pages. If
xsiz is specified, and ysiz is not, then xsiz is used.
charsize- The character size for the time label
COMMENTS:
This routine opens IDL window 10 with the right size and
writes to it.
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], data_type [1], data_type [2], gt_time [1]
gt_time [2]
HISTORY:
HSH, written some time in early 1992
HSH, May 3, 1992, modified to handle odd-size images and
to trap obese windows
MDM, 3-Sep-93, Modified to calculate number of panels properly
MDM, 20-Dec-93 - Modified significantly, more robust
- Reverse data,index calling sequence
MDM, 2-Sep-94 - Added conditional on when to print statement
"XY_RASTER: Cube will not fit on one page...."
MDM, 6-Sep-94 - Corrected error which would not all "SS"
option to work.
[Previous]
[Next]
NAME:
xy_raster
PURPOSE:
To make a raster pattern of a time series of SXT images
to display time evolution of something or other.
The images start at upper left and go to lower right,
and the formatted time is written at the bottom of each
image.
CALLING SEQUENCE:
input data, index, and rebin factor (e.g. 2 to double)
this routine opens IDL window 1 with the right size and
writes to it.
HISTORY:
drafted by H. Hudson, Jan. 1992
[Previous]
[Next]
NAME:
xycrange
PURPOSE:
get x and y ranges using cursors
CALLING SEQUENCE:
xycrange,xrange,yrange
OUTPUTS:
xrange= [x1,x2] = first and second x-values selected
yrange= [y1,y2] = first and second y-values selected
PROCEDURE:
uses CURSOR
HISTORY:
Written Mar'93 (DMZ,ARC)