aboutsummaryrefslogtreecommitdiff
path: root/vendor/x11iraf/bin.linux/ximtool-alt
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
commitfa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch)
treebdda434976bc09c864f2e4fa6f16ba1952b1e555 /vendor/x11iraf/bin.linux/ximtool-alt
downloadiraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz
Initial commit
Diffstat (limited to 'vendor/x11iraf/bin.linux/ximtool-alt')
-rwxr-xr-xvendor/x11iraf/bin.linux/ximtool-alt11658
1 files changed, 11658 insertions, 0 deletions
diff --git a/vendor/x11iraf/bin.linux/ximtool-alt b/vendor/x11iraf/bin.linux/ximtool-alt
new file mode 100755
index 00000000..aae6787f
--- /dev/null
+++ b/vendor/x11iraf/bin.linux/ximtool-alt
@@ -0,0 +1,11658 @@
+#!/bin/csh -f
+#
+# XIMTOOL-ALT -- Script wrapper to start XImtool using the alternate GUI.
+# The GUI file is contained is this script which is created when the system
+# is built, it may be used to run any alternate GUI by simply replacing the
+# Tcl script making up the GUI at the end of this script or by using the
+# "-gui" command line flag. The only configurable item is the path to the
+# XImtool binary to be used, by default the one found in the user's path will
+# be used.
+# Arguments specific to this GUI include:
+#
+# -showToolBar <bool> show toolbar on startup
+# -showPanelBar <bool> show panelbar on startup
+#
+#----------------------------------------------------------------------------
+
+# Configurable parameters
+set XIMTOOL = ximtool # Path to default ximtool binary
+
+
+#------------------------------------------------------------------
+#--------------- Do not modify below this line --------------------
+#------------------------------------------------------------------
+unset noclobber
+onintr cleanup
+
+set SKIP = 99 # offset to GUI file
+
+# Dump the GUI from this script file.
+tail +$SKIP $0 > /tmp/_gui.$$
+
+# Check for no arguments.
+set q = '"'
+set cmd = "-gui /tmp/_gui.$$ -title $q XImtool V1.3 - Alternative GUI $q"
+
+# Process the script arguments, quoting args when necessary.
+if ($#argv > 0) then
+ while ("$1" != "")
+ if ("$1" == "-xrm") then
+ if ("$2" != "") then
+ shift
+ else
+ echo "missing argument to '-xrm <resource>' switch"
+ exit 1
+ endif
+ set cmd = "$cmd -xrm $q$1$q"
+ else if ("$1" == "-help") then
+ $XIMTOOL -help
+ exit 0
+ else if ("$1" == "-defgui") then
+ tail +$SKIP $0
+ exit 0
+ else if ("$1" == "-showToolBar") then
+ if ("$2" != "") then
+ shift
+ else
+ echo "missing argument to '-showToolBar <bool>' switch"
+ exit 1
+ endif
+ set cmd = "$cmd -xrm $q XImtool.showToolBar:$1$q"
+ else if ("$1" == "-showPanelBar") then
+ if ("$2" != "") then
+ shift
+ else
+ echo "missing argument to '-showPanelBar <bool>' switch"
+ exit 1
+ endif
+ set cmd = "$cmd -xrm $q XImtool.showPanelBar:$1$q"
+ else
+ set cmd = "$cmd $1"
+ endif
+
+ if ("$2" == "") then
+ break
+ else
+ shift
+ endif
+ end
+endif
+
+# Run the command.
+echo "$XIMTOOL $cmd ; /bin/rm -f /tmp/_gui*.$$" > /tmp/_gui.cmds.$$
+sh /tmp/_gui.cmds.$$
+exit 0
+
+cleanup:
+ /bin/rm -f /tmp/_gui*.$$
+ exit 0
+
+#--------------------------------------------------------------------------
+#-------------------------- XIMTOOL-ALT.GUI -------------------------------
+#------ ------
+#------ To change the GUI run by this script just delete everything ------
+#------ below here and replace with the new GUI Tcl script. ------
+#------ ------
+#--------------------------------------------------------------------------
+#--------------------------------------------------------------------------
+
+#!/usr/local/bin/obmsh
+#
+# XIMTOOL-ALT.GUI -- Default GUI for the Ximtool-alt image display server.
+#
+# Version 2.0 -- BETA VERSION
+
+set Version "NOAO/IRAF XImtool Version 2.0BETA"
+
+reset-server
+
+set Objects(ximtool) { \
+ toplevel Layout display\
+\
+ display Group menuGroup\
+ menuGroup Layout menubar\
+ menubar MenuButton fileButton\
+ menubar MenuButton viewButton\
+ menubar MenuButton optionsButton\
+ menubar Label imageTitle\
+ menubar Toggle mXflipButton\
+ menubar Toggle mYflipButton\
+ menubar Command mPrevButton\
+ menubar MenuButton mFrameButton\
+ menubar Command mNextButton\
+ menubar Toggle toolButton\
+ menubar Toggle panelButton\
+\
+ display Layout toolbar\
+ toolbar Command tbZoomIn\
+ toolbar Command tbZoom0\
+ toolbar Command tbZoomOut\
+ toolbar Command tbInvert\
+ toolbar Command tbNormalize\
+ toolbar Command tbMatchLUT\
+ toolbar Toggle tbAutoReg\
+ toolbar Command tbRegister\
+ toolbar Command tbCenter\
+ toolbar Command tbBlinkDec\
+ toolbar Toggle tbBlink\
+ toolbar Command tbBlinkInc\
+ toolbar Toggle xflipButton\
+ toolbar Toggle yflipButton\
+ toolbar Toggle tbTile\
+ toolbar Toggle tbCompass\
+ toolbar Command prevButton\
+ toolbar MenuButton frameButton\
+ toolbar Command nextButton\
+\
+ display Frame imageFrame\
+ imageFrame Gterm imagewin\
+ display Frame cbarFrame\
+ cbarFrame Gterm colorbar\
+ display Toggle hcut\
+ display Toggle vcut\
+ display Frame hcutFrame\
+ hcutFrame Gterm hcutPlot\
+ display Frame vcutFrame\
+ vcutFrame Gterm vcutPlot\
+ display Slider2d focusSlider\
+\
+ display Group plotOpts\
+ plotOpts Layout poptsLayout\
+ poptsLayout TextToggle plotSpeed\
+ poptsLayout TextToggle plotAccurate\
+ poptsLayout TextToggle plotImgPix\
+ poptsLayout Frame optLine\
+ poptsLayout TextToggle curJump\
+ poptsLayout TextToggle curSmooth\
+ poptsLayout TextToggle curTrack\
+\
+ display Layout panelbar\
+ panelbar Toggle pbDisplayP\
+ panelbar Toggle pbLoadP\
+ panelbar Toggle pbSaveP\
+ panelbar Toggle pbPrintP\
+ panelbar Toggle pbInfoP\
+ panelbar Toggle pbTileP\
+ panelbar Toggle pbCoordP\
+ panelbar Toggle pbPanM\
+ panelbar Toggle pbMagM\
+ panelbar Toggle pbWcsM\
+ panelbar Toggle pbIsm\
+ panelbar Toggle helpButton\
+ panelbar Command pbQuit\
+}
+
+
+set Objects(panelShell) { \
+ toplevel TopLevelShell panelShell\
+ panelShell Layout panel\
+\
+ panel Frame panelMenuFrame\
+ panelMenuFrame Layout panelMenuBar\
+ panelMenuBar Command panelHelp\
+ panelMenuBar Command panelClose\
+\
+ panel Frame tabFrame\
+ tabFrame Tabs panelTabs\
+ panelTabs Frame display_panel\
+ panelTabs Frame print_panel\
+ panelTabs Frame load_panel\
+ panelTabs Frame save_panel\
+ panelTabs Frame info_panel\
+ panelTabs Frame tile_panel\
+ panelTabs Frame wcs_panel\
+\
+\
+ display_panel Layout controlPanel\
+ controlPanel Group viewBox\
+ controlPanel Group enhancementBox\
+ controlPanel Group blinkBox\
+ controlPanel Group optionsBox\
+ controlPanel Frame controlBox\
+\
+ viewBox Layout view\
+ view Group frameSelect\
+ frameSelect Layout frameBox\
+ frameBox Box frlistBox\
+ frlistBox Viewport framePort\
+ framePort Layout frameList\
+ frameList TextToggle frame1\
+ frameList TextToggle frame2\
+ frameList TextToggle frame3\
+ frameList TextToggle frame4\
+ frameList TextToggle frame5\
+ frameList TextToggle frame6\
+ frameList TextToggle frame7\
+ frameList TextToggle frame8\
+ frameList TextToggle frame9\
+ frameList TextToggle frame10\
+ frameList TextToggle frame11\
+ frameList TextToggle frame12\
+ frameList TextToggle frame13\
+ frameList TextToggle frame14\
+ frameList TextToggle frame15\
+ frameList TextToggle frame16\
+ frameBox Command prevFrame\
+ frameBox Command nextFrame\
+ view Frame frameDataBox\
+ frameDataBox TextBox frameData\
+ view Group zoomBox\
+ zoomBox Layout zoom\
+ zoom TextButton toggleZoom\
+ zoom TextButton zoomIn\
+ zoom Command x1\
+ zoom Command z2\
+ zoom Command z3\
+ zoom Command z4\
+ zoom Command z5\
+ zoom Command z8\
+ zoom TextButton zoomOut\
+ zoom TextButton centerFrame\
+ zoom Command d2\
+ zoom Command d3\
+ zoom Command d4\
+ zoom Command d5\
+ zoom Command d8\
+ view Layout viewButtons\
+ viewButtons Command aspect\
+ viewButtons Command flipX\
+ viewButtons Command flipY\
+ viewButtons Command flipXY\
+ viewButtons Command clearFrame\
+ viewButtons Command fitFrame\
+\
+ enhancementBox Layout enhance\
+ enhance Frame colorlistFrame\
+ colorlistFrame Viewport colorlistView\
+ colorlistView MultiList colorlist\
+ enhance Frame colordataFrame\
+ colordataFrame TextBox colordata\
+ enhance Label contrastLabel\
+ enhance Slider2d contrastSlider\
+ enhance Label brightnessLabel\
+ enhance Slider2d brightnessSlider\
+ enhance Command invertButton\
+ enhance Command optimizeButton\
+\
+ blinkBox Layout blink\
+ blink Label blinkFramesLabel\
+ blink Command blinkFrame1\
+ blink Command blinkFrame2\
+ blink Command blinkFrame3\
+ blink Command blinkFrame4\
+ blink Toggle blinkPanel\
+ blink Command blinkReset\
+ blink Label blinkRateLabel\
+ blink Frame BRframe\
+ BRframe Layout BRlayout\
+ BRlayout Arrow BRdecrease\
+ BRlayout TextBox BRtext\
+ BRlayout Arrow BRincrease\
+ blink Command registerButton\
+ blink Command matchButton\
+ blink TextToggle blinkButton\
+ blink TextToggle autoregButton\
+\
+ optionsBox TextToggle pannerButton\
+ optionsBox TextToggle magnifierButton\
+ optionsBox TextToggle coordsBoxButton\
+ optionsBox TextToggle autoscaleButton\
+ optionsBox TextToggle antialiasButton\
+ optionsBox TextToggle tileFramesButton\
+ optionsBox TextToggle warningsButton\
+ optionsBox TextToggle peakupButton\
+\
+ controlBox Layout control\
+ control Command initializeButton\
+ control Command normalizeButton\
+\
+\
+ print_panel Layout printLayout\
+\
+ printLayout Group printCmdGroup\
+ printLayout Group optGroup\
+ printLayout Group cmdGroup\
+\
+ printCmdGroup Layout printCmdLayout\
+ printCmdLayout Layout labelLayout\
+ labelLayout Label toLabel\
+ labelLayout Label printerLabel\
+ printCmdLayout Layout inputLayout\
+ inputLayout TextToggle toPrinter\
+ inputLayout TextToggle toFile\
+ inputLayout Frame printcmdFrame\
+ printcmdFrame AsciiText printcmd\
+\
+ optGroup Layout optLayout\
+ optLayout Group epsPageGroup\
+ optLayout Group optionsGroup\
+ optLayout Group printColorGroup\
+ optLayout Group printerGroup\
+ optLayout Group annOptsGroup\
+\
+ epsPageGroup Layout epsPage\
+ epsPage Label epsOrientLabel\
+ epsPage TextToggle epsPortButton\
+ epsPage TextToggle epsLandButton\
+ epsPage TextToggle epsSquareButton\
+ epsPage Label epsSizeLabel\
+ epsPage TextToggle epsLetterButton\
+ epsPage TextToggle epsLegalButton\
+ epsPage TextToggle epsA4Button\
+ epsPage TextToggle epsB5Button\
+ epsPage Label epsScaleLabel\
+ epsPage Frame ScaleFrame\
+ ScaleFrame Layout ScaleLayout\
+ ScaleLayout Arrow SCdecrease\
+ ScaleLayout TextBox SCtext\
+ ScaleLayout Arrow SCincrease\
+\
+ optionsGroup Layout options\
+ options TextToggle epsscaleButton\
+ options TextToggle autorotateButton\
+ options TextToggle aspectButton\
+ options TextToggle compressButton\
+\
+ annOptsGroup Layout annOpts\
+ annOpts TextToggle annotateButton\
+ annOpts TextToggle colorbarButton\
+ annOpts TextToggle titleButton\
+ annOpts TextToggle bordersButton\
+ annOpts Label titleLabel\
+ annOpts Frame titleFrame\
+ titleFrame AsciiText titleString\
+\
+ printColorGroup Layout printColor\
+ printColor TextToggle prGrayButton\
+ printColor TextToggle prPseudoButton\
+ printColor TextToggle prRGBButton\
+\
+ printerGroup Layout printers\
+ printers Frame printlistFrame\
+ printlistFrame Viewport printlistView\
+ printlistView MultiList printlist\
+\
+ cmdGroup Layout cmdLayout\
+ cmdLayout Command okayPrint\
+ cmdLayout Label printStatus\
+\
+\
+ load_panel Layout filesLayout\
+ filesLayout Group imlistGroup\
+ imlistGroup Layout imlistLayout\
+ imlistLayout Command rootButton\
+ imlistLayout Command homeButton\
+ imlistLayout Command upButton\
+ imlistLayout Command rescanButton\
+ imlistLayout Label dirLabel\
+ imlistLayout Label fnameLabel\
+ imlistLayout Frame filnamFrame\
+ filnamFrame AsciiText fnameText\
+ imlistLayout Label imtemplateLabel\
+ imlistLayout Frame imtemplateFrame\
+ imtemplateFrame AsciiText imtemplateText\
+ imlistLayout Label imlistLabel\
+ imlistLayout Frame imlistFrame\
+ imlistFrame Viewport imlistView\
+ imlistView MultiList imageList\
+\
+ filesLayout Group imoptsGroup\
+ imoptsGroup Layout imoptsLayout\
+ imoptsLayout TextToggle grayscale\
+ imoptsLayout TextToggle autoload\
+ imoptsLayout TextToggle browseHdrs\
+ imoptsLayout TextToggle zscale\
+ imoptsLayout TextToggle zrange\
+ imoptsLayout Label z1Label\
+ imoptsLayout Frame z1Frame\
+ z1Frame AsciiText z1Value\
+ imoptsLayout Label z2Label\
+ imoptsLayout Frame z2Frame\
+ z2Frame AsciiText z2Value\
+ imoptsLayout Label nsampLabel\
+ imoptsLayout Frame nsampFrame\
+ nsampFrame AsciiText nsampValue\
+ imoptsLayout Label frameLabel\
+ imoptsLayout MenuButton frameFrame\
+\
+ filesLayout Group loadCmdGroup\
+ loadCmdGroup Layout loadCmdLayout\
+ loadCmdLayout Command filesLoadButton\
+ loadCmdLayout Label filesStatus\
+\
+\
+ save_panel Layout saveLayout\
+ saveLayout Group saveNameGroup\
+ saveNameGroup Layout saveNameLayout\
+ saveNameLayout Label saveLabel\
+ saveNameLayout Frame fnameFrame\
+ fnameFrame AsciiText saveFile\
+\
+ saveLayout Group saveOptGroup\
+ saveOptGroup Layout saveOptLayout\
+ saveOptLayout Group fmtGroup\
+ saveOptLayout Group saveColorGroup\
+ saveOptLayout Frame saveDataBox\
+ saveDataBox TextBox saveData\
+\
+ fmtGroup Layout formats\
+ formats TextToggle rasButton\
+ formats TextToggle gifButton\
+ formats TextToggle jpegButton\
+ formats TextToggle tiffButton\
+ formats TextToggle fitsButton\
+ formats TextToggle epsButton\
+ formats TextToggle x11Button\
+ formats TextToggle rawButton\
+\
+ saveColorGroup Layout saveColor\
+ saveColor TextToggle svGrayButton\
+ saveColor TextToggle svPseudoButton\
+ saveColor TextToggle svRGBButton\
+\
+ saveLayout Group saveCmdGroup\
+ saveCmdGroup Layout saveCmdLayout\
+ saveCmdLayout Command okaySave\
+ saveCmdLayout Label saveStatus\
+\
+\
+ info_panel Layout infoLayout\
+ infoLayout Group infoBox\
+ infoBox Layout infoBoxL\
+ infoBoxL Frame infoFrame\
+ infoFrame AsciiText infoText\
+ infoBoxL TextToggle infoOptFr\
+ infoBoxL TextToggle infoOptWCS\
+ infoBoxL TextToggle infoOptSvr\
+ infoBoxL TextToggle infoOptClients\
+ infoBoxL TextToggle infoOptIsm\
+ infoBoxL TextToggle infoOptFB\
+\
+\
+ wcs_panel Layout wcsLayout\
+ wcsLayout Group wcsGroup\
+ wcsGroup Layout wcsBox\
+\
+ wcsBox Frame wcsFrame\
+ wcsFrame Layout wcsText\
+ wcsText AsciiText wtName\
+ wcsText AsciiText wtTitle\
+ wcsText AsciiText wtFBCfg\
+ wcsText AsciiText wtIPixval\
+ wcsText AsciiText wtSPixval\
+ wcsText AsciiText wtBPixval\
+ wcsText AsciiText wtWcs1\
+ wcsText AsciiText wtWcs2\
+ wcsText AsciiText wtWcs3\
+ wcsText AsciiText wtWcs4\
+\
+ wcsBox TextToggle ismToggle\
+ wcsBox TextToggle pixelTable\
+ wcsBox TextToggle imageHeader\
+ wcsBox TextToggle compass\
+ wcsBox TextToggle wcsOptions\
+\
+\
+ wcsLayout Group wcsOptGroup\
+ wcsOptGroup Layout wcsOptLayout\
+\
+ wcsOptLayout Group wcsCoords\
+ wcsCoords Layout wcLayout\
+ wcLayout Label wcTitle\
+ wcLayout Frame wcLine\
+ wcLayout Label wlWcs1\
+ wcLayout Label wlWcs2\
+ wcLayout Label wlWcs3\
+ wcLayout Label wlWcs4\
+ wcLayout MenuButton sysWcs1\
+ wcLayout MenuButton sysWcs2\
+ wcLayout MenuButton sysWcs3\
+ wcLayout MenuButton sysWcs4\
+ wcLayout MenuButton fmtWcs1\
+ wcLayout MenuButton fmtWcs2\
+ wcLayout MenuButton fmtWcs3\
+ wcLayout MenuButton fmtWcs4\
+ wcLayout TextToggle wpWcs1\
+ wcLayout TextToggle wpWcs2\
+ wcLayout TextToggle wpWcs3\
+ wcLayout TextToggle wpWcs4\
+ wcLayout TextToggle wiWcs1\
+ wcLayout TextToggle wiWcs2\
+ wcLayout TextToggle wiWcs3\
+ wcLayout TextToggle wiWcs4\
+\
+ wcsOptLayout Group wcsOpts\
+ wcsOpts Layout woLayout\
+ woLayout TextToggle woptLabels\
+ woLayout TextToggle woptTitles\
+ woLayout TextToggle woptFBinfo\
+ woLayout TextToggle woptBPM\
+\
+ wcsOptLayout Group wcsIsmGroup\
+ wcsIsmGroup Layout wcsIsmLayout\
+ wcsIsmLayout Label wcsIsmLabel\
+ wcsIsmLayout Frame wcsIsmFrame\
+ wcsIsmFrame AsciiText wcsIsmCmd\
+ wcsIsmLayout Command wcsIsmInit\
+\
+\
+ tile_panel Frame tileOpts\
+ tileOpts Layout toptLayout\
+ toptLayout Group tFramesG\
+ toptLayout Group tileMode\
+ tileMode TextToggle tileDisabled\
+ tileMode TextToggle tileManual\
+ tileMode TextToggle tileBest\
+ tileMode TextToggle tileSquare\
+ tileMode TextToggle tileHorizontal\
+ tileMode TextToggle tileVertical\
+ tileMode TextToggle tileRow\
+ tileMode TextToggle tileCol\
+ toptLayout Group userOrientG\
+ toptLayout Group fillStyle\
+ fillStyle TextToggle byCols\
+ fillStyle TextToggle bottomUp\
+ toptLayout Group tileLabel\
+ tileLabel TextToggle labelImname\
+ tileLabel TextToggle labelTitles\
+ tileLabel TextToggle labelFrames\
+ toptLayout Frame geomFrame\
+ geomFrame Label tileGeometry\
+\
+ userOrientG Layout userOrientL\
+ userOrientL Label nrowLab\
+ userOrientL Frame nrFrame\
+ nrFrame Layout nrLayout\
+ nrLayout Arrow nrdecrease\
+ nrLayout Label nrtext\
+ nrLayout Arrow nrincrease\
+ userOrientL Label ncolLab\
+ userOrientL Frame ncFrame\
+ ncFrame Layout ncLayout\
+ ncLayout Arrow ncdecrease\
+ ncLayout Label nctext\
+ ncLayout Arrow ncincrease\
+\
+ tFramesG Layout tFrames\
+ tFrames Command tAll\
+ tFrames Command tNone\
+ tFrames Toggle tFrame1\
+ tFrames Toggle tFrame2\
+ tFrames Toggle tFrame3\
+ tFrames Toggle tFrame4\
+ tFrames Toggle tFrame5\
+ tFrames Toggle tFrame6\
+ tFrames Toggle tFrame7\
+ tFrames Toggle tFrame8\
+ tFrames Toggle tFrame9\
+ tFrames Toggle tFrame10\
+ tFrames Toggle tFrame11\
+ tFrames Toggle tFrame12\
+ tFrames Toggle tFrame13\
+ tFrames Toggle tFrame14\
+ tFrames Toggle tFrame15\
+ tFrames Toggle tFrame16\
+}
+
+
+set Objects(parameters) { \
+ toplevel Parameter ximtool\
+ ximtool Parameter alert\
+ ximtool Parameter initialize\
+ ximtool Parameter resize\
+ ximtool Parameter frame\
+ ximtool Parameter nframes\
+ ximtool Parameter frameSize\
+ ximtool Parameter frameRegion\
+ ximtool Parameter frameView\
+ ximtool Parameter frameTitle\
+ ximtool Parameter frameFit\
+ ximtool Parameter enhancement\
+ ximtool Parameter colortables\
+ ximtool Parameter cmfocus\
+ ximtool Parameter autoscale\
+ ximtool Parameter antialias\
+ ximtool Parameter tileFrames\
+ ximtool Parameter cursorMode\
+ ximtool Parameter xflip\
+ ximtool Parameter yflip\
+ ximtool Parameter printerList\
+ ximtool Parameter printOptions\
+ ximtool Parameter loadOptions\
+ ximtool Parameter saveOptions\
+ ximtool Parameter tileOptions\
+ ximtool Parameter filelist\
+ ximtool Parameter help\
+ ximtool Parameter info\
+ ximtool Parameter ism_msg\
+}
+
+
+set Objects(help_panel) { \
+ toplevel TopLevelShell help_panel\
+ help_panel Layout helpLayout\
+ helpLayout Group helpMenuGroup\
+ helpMenuGroup Layout helpMenubar\
+ helpLayout Layout helpInfoLayout\
+\
+ helpMenubar Command helpClose\
+\
+ helpLayout Command helpBack\
+ helpLayout Command helpForward\
+ helpLayout Command helpHome\
+ helpLayout Frame hfFrame\
+ hfFrame AsciiText hfEntry\
+ helpLayout Command hfFind\
+ helpLayout Command hfClear\
+ helpLayout Frame helpTextFrame\
+ helpTextFrame HTML helpText\
+\
+ helpInfoLayout Label helpIRAFLogo\
+ helpInfoLayout Label helpInfo1\
+ helpInfoLayout Label helpInfo2\
+ helpInfoLayout Label helpInfo3\
+ helpInfoLayout Label helpNOAOLogo\
+}
+
+
+set Objects(blink_panel) { \
+ toplevel TopLevelShell blink_panel\
+ blink_panel Layout bpLayout\
+\
+ bpLayout Frame brMenuFrame\
+ brMenuFrame Layout brMenuBar\
+ brMenuBar Command brClose\
+\
+ bpLayout Frame brFrame\
+ brFrame Layout brLayout\
+\
+ brLayout Group brFramesG\
+ brFramesG Layout brFrames\
+ brFrames MenuButton brFrame1\
+ brFrames MenuButton brFrame2\
+ brFrames MenuButton brFrame3\
+ brFrames MenuButton brFrame4\
+ brFrames MenuButton brFrame5\
+ brFrames MenuButton brFrame6\
+ brFrames MenuButton brFrame7\
+ brFrames MenuButton brFrame8\
+ brFrames MenuButton brFrame9\
+ brFrames MenuButton brFrame10\
+ brFrames MenuButton brFrame11\
+ brFrames MenuButton brFrame12\
+ brFrames MenuButton brFrame13\
+ brFrames MenuButton brFrame14\
+ brFrames MenuButton brFrame15\
+ brFrames MenuButton brFrame16\
+\
+ brLayout Group brCmdG\
+ brCmdG Layout brCmd\
+ brCmd Command brReset\
+ brCmd Label brRateLabel\
+ brCmd Frame brBRframe\
+ brBRframe Layout brBRlayout\
+ brBRlayout Arrow brBRdecrease\
+ brBRlayout TextBox brBRtext\
+ brBRlayout Arrow brBRincrease\
+ brCmd Command brRegButton\
+ brCmd Command brMatchButton\
+ brCmd TextToggle brBlinkButton\
+ brCmd TextToggle brAregButton\
+}
+
+
+set Objects(hdr_panel) { \
+ toplevel TopLevelShell hdr_panel\
+ hdr_panel Layout hdrLayout\
+\
+ hdrLayout Frame hdrMenuFrame\
+ hdrMenuFrame Layout hdrMenuBar\
+ hdrMenuBar Command hdrClose\
+\
+ hdrLayout Group hdrObjGroup\
+ hdrObjGroup Layout hdrObjLayout\
+ hdrObjLayout Label hdrObjLabel\
+ hdrObjLayout MenuButton hdrObjMenu\
+\
+ hdrLayout Frame hdrTabFrame\
+ hdrTabFrame Tabs hdrTabs\
+ hdrTabs Group hdrHdrGroup\
+ hdrTabs Group hdrWcsGroup\
+\
+ hdrHdrGroup Layout hdrHdrLayout\
+ hdrHdrLayout Frame hFindFrame\
+ hFindFrame AsciiText hFindEntry\
+ hdrHdrLayout Command hdrFilter\
+ hdrHdrLayout Command hdrFind\
+ hdrHdrLayout Command hdrClear\
+ hdrHdrLayout HTML hdrText\
+\
+ hdrWcsGroup Layout hdrWcsLayout\
+ hdrWcsLayout Group hdrInfoGroup\
+ hdrInfoGroup Frame hdrIGFrame\
+ hdrIGFrame AsciiText hdrIGText\
+ hdrWcsLayout Group hdrKeywGroup\
+ hdrKeywGroup Frame hdrKGFrame\
+ hdrKGFrame AsciiText hdrKGText\
+}
+
+
+set Objects(pixel_table) { \
+ toplevel TopLevelShell pixel_panel\
+\
+ pixel_panel Layout pixel_table\
+ pixel_table Frame pixtabMenuFrame\
+ pixtabMenuFrame Layout pixtabMenuBar\
+ pixtabMenuBar MenuButton pixtabSize\
+ pixtabMenuBar Command pixtabHelp\
+ pixtabMenuBar Command pixtabClose\
+\
+ pixel_table Frame pixtabFrame\
+ pixtabFrame Porthole ptPort\
+ ptPort Layout ptLayout\
+ ptLayout Frame ptColFrame\
+ ptColFrame MultiList ptColLabs\
+ ptLayout Frame ptRowFrame\
+ ptRowFrame MultiList ptRowLabs\
+ ptLayout Frame ptFrame\
+ ptFrame MultiList pixtab\
+\
+ ptLayout Label meanLabel\
+ ptLayout Frame meanFrame\
+ meanFrame Label meanValue\
+\
+ ptLayout Label sigLabel\
+ ptLayout Frame sigFrame\
+ sigFrame Label sigValue\
+}
+
+
+set Objects(tcl_panel) { \
+ toplevel TopLevelShell tcl_panel\
+ tcl_panel Layout tclLayout\
+ tclLayout Group tclCmdGroup\
+ tclCmdGroup Layout tclCmd\
+ tclCmd Command tclClear\
+ tclCmd Command tclExecute\
+ tclCmd Command tclDismiss\
+ tclLayout Frame tclFrame\
+ tclFrame AsciiText tclEntry\
+}
+
+
+set Objects(warning) { \
+ toplevel TransientShell warning\
+ warning Layout warn\
+ warn Frame warnFrame\
+ warnFrame Layout WFlayout\
+ WFlayout Icon warnIcon\
+ WFlayout TextBox warnText\
+ warn Command warnOk\
+ warn Command warnCancel\
+}
+
+
+set Resources(global) { \
+
+ !---------------------------------------------------------
+ ! Define some global widget resources for the main panels.
+ !---------------------------------------------------------
+ *shadowWidth: 1
+ *background: #c4c4c4
+! *foreground: black
+ *Arrow.width: 16
+ *Arrow.height: 25
+ *Text*height: 21
+ *Command.height: 21
+ *Command.highlightThickness: 1
+ *MenuButton.height: 21
+ *MenuButton.highlightThickness: 1
+ *Label.borderWidth: 0
+ *Label.shadowWidth: 0
+ *TextButton.shadowWidth: 0
+ *TextButton.highlightThickness: 1
+ *TextToggle*borderWidth: 0
+ *TextToggle.highlightThickness: 0
+ *Toggle.highlightThickness: 1
+ *Group.shrinkToFit: True
+
+ *Arrow.foreground: gray
+ *Arrow.background: #adadad
+ *Text*background: #adadad
+ *AsciiText*background: #adadad
+ *TextBox.background: #adadad
+ *MultiList*background: #adadad
+ *Slider2d.thumbColor: #c4c4c4
+
+
+ !-------------------------------------------------------------
+ ! Define resources to take advantage of the 3D scrollbar look.
+ !-------------------------------------------------------------
+ *Scrollbar*background: #c4c4c4
+ *Scrollbar*shadowWidth: 1
+ *Scrollbar*width: 15
+ *Scrollbar*height: 15
+ *Scrollbar*cursorName: top_left_arrow
+ *Scrollbar*pushThumb: true
+
+ *HTML.Scrollbar.shadowWidth: 1
+ *HTML*Scrollbar*width: 15
+ *HTML*Scrollbar*height: 15
+
+
+ !----------------------------------------
+ ! Menu resources giving a shadow effect.
+ !----------------------------------------
+ *SmeBSB.leftMargin: 10
+ *SmeBSB.rightMargin: 5
+ *SmeBSB.shadowWidth: 2
+ *SmeBSB.foreground: #e5e5e5
+ *SmeBSB.background: SteelBlue
+ *SimpleMenu.background: #c4c4c4
+ *SimpleMenu.borderWidth: 2
+ *SimpleMenu.borderColor: black
+ *SimpleMenu.line1.foreground: #9c9c9c
+ *SimpleMenu.line2.foreground: #e8e8e8
+ *SimpleMenu.line3.foreground: #9c9c9c
+ *SimpleMenu.line4.foreground: #e8e8e8
+ *SimpleMenu.line5.foreground: #9c9c9c
+ *SimpleMenu.line6.foreground: #e8e8e8
+ *SimpleMenu.line7.foreground: #9c9c9c
+ *SimpleMenu.line8.foreground: #e8e8e8
+ *SimpleMenu.line9.foreground: #9c9c9c
+ *SimpleMenu.line10.foreground: #e8e8e8
+ *SimpleMenu.line11.foreground: #9c9c9c
+ *SimpleMenu.line12.foreground: #e8e8e8
+ *SimpleMenu.line13.foreground: #9c9c9c
+ *SimpleMenu.line14.foreground: #e8e8e8
+ *SimpleMenu.line15.foreground: #9c9c9c
+ *SimpleMenu.line16.foreground: #e8e8e8
+ *SimpleMenu.line17.foreground: #9c9c9c
+ *SimpleMenu.line18.foreground: #e8e8e8
+ *SimpleMenu.line19.foreground: #9c9c9c
+ *SimpleMenu.line20.foreground: #e8e8e8
+ *SimpleMenu.line21.foreground: #9c9c9c
+ *SimpleMenu.line22.foreground: #e8e8e8
+ *SimpleMenu.line23.foreground: #9c9c9c
+ *SimpleMenu.line24.foreground: #e8e8e8
+ *SimpleMenu.line25.foreground: #9c9c9c
+ *SimpleMenu.line26.foreground: #e8e8e8
+ *SimpleMenu.line27.foreground: #9c9c9c
+ *SimpleMenu.line28.foreground: #e8e8e8
+ *SimpleMenu.line29.foreground: #9c9c9c
+ *SimpleMenu.line30.foreground: #e8e8e8
+ *SimpleMenu.line31.foreground: #9c9c9c
+ *SimpleMenu.line32.foreground: #e8e8e8
+ *SimpleMenu.line33.foreground: #9c9c9c
+ *SimpleMenu.line34.foreground: #e8e8e8
+ *SimpleMenu.line35.foreground: #9c9c9c
+ *SimpleMenu.line36.foreground: #e8e8e8
+ *SimpleMenu.line37.foreground: #9c9c9c
+ *SimpleMenu.line38.foreground: #e8e8e8
+ *SimpleMenu.line39.foreground: #9c9c9c
+ *SimpleMenu.line40.foreground: #e8e8e8
+
+
+ !---------------------------------------------
+ ! Fixups for 24-bit displays
+ !---------------------------------------------
+ *hFindEntry.background: #adadad
+ *hdrIGText.background: #adadad
+ *hdrKGText.background: #adadad
+ *hfEntry.background: #adadad
+ *printcmd.background: #adadad
+ *titleString.background: #adadad
+ *fnameText.background: #adadad
+ *imtemplateText.background: #adadad
+ *z1Value.background: #adadad
+ *z2Value.background: #adadad
+ *nsampValue.background: #adadad
+ *saveFile.background: #adadad
+ *infoText.background: #adadad
+ *wtName.background: #adadad
+ *wtTitle.background: #adadad
+ *wtFBCfg.background: #adadad
+ *wtIPixval.background: #adadad
+ *wtSPixval.background: #adadad
+ *wtBPixval.background: #adadad
+ *wtWcs1.background: #adadad
+ *wtWcs2.background: #adadad
+ *wtWcs3.background: #adadad
+ *wtWcs4.background: #adadad
+ *wcsIsmCmd.background: #adadad
+ *tclEntry.background: #adadad
+
+ *hFindEntry.foreground: #000000
+ *hdrIGText.foreground: #000000
+ *hdrKGText.foreground: #000000
+ *hfEntry.foreground: #000000
+ *printcmd.foreground: #000000
+ *titleString.foreground: #000000
+ *fnameText.foreground: #000000
+ *imtemplateText.foreground: #000000
+ *z1Value.foreground: #000000
+ *z2Value.foreground: #000000
+ *nsampValue.foreground: #000000
+ *saveFile.foreground: #000000
+ *infoText.foreground: #000000
+ *wtName.foreground: #000000
+ *wtTitle.foreground: #000000
+ *wtFBCfg.foreground: #000000
+ *wtIPixval.foreground: #000000
+ *wtSPixval.foreground: #000000
+ *wtBPixval.foreground: #000000
+ *wtWcs1.foreground: #000000
+ *wtWcs2.foreground: #000000
+ *wtWcs3.foreground: #000000
+ *wtWcs4.foreground: #000000
+ *wcsIsmCmd.foreground: #000000
+ *tclEntry.foreground: #000000
+}
+
+
+
+
+
+set Resources(ximtool) { \
+
+ ! Main image window resources.
+ ! -------------------------------
+ *allowShellResize: True
+ *beNiceToColormap: False
+ *menuLabel.foreground: Gold
+ *markerMenu.foreground: White
+ *rulerMenu.foreground: White
+ *display.imagewin.markerMenu.foreground: White
+ *display.imagewin.rulerMenu.foreground: White
+ *markerMenu.background: SteelBlue
+ *markerMenu*SimpleMenu.foreground: White
+ *markerMenu*SimpleMenu.background: SteelBlue
+ *rulerMenu.background: SteelBlue
+ *rulerMenu*SimpleMenu.foreground: White
+ *rulerMenu*SimpleMenu.background: SteelBlue
+ *rulerColor.SmeBSB.leftMargin: 16
+ *magzoomMenu.foreground: White
+ *magzoomMenu.background: SteelBlue
+ *magzoomMenu*SimpleMenu.foreground: White
+ *magzoomMenu*SimpleMenu.background: SteelBlue
+ *markerColor.SmeBSB.leftMargin: 64
+ *markerColor.SmeBSB.rightMargin: 0
+ *markerColor.menuLabel.leftMargin: 5
+ *markerColor.menuLabel.rightMargin: 5
+ *rulerColor.SmeBSB.leftMargin: 64
+ *rulerColor.SmeBSB.rightMargin: 0
+ *rulerColor.menuLabel.leftMargin: 5
+ *rulerColor.menuLabel.rightMargin: 5
+
+ *ximtool.title: XIMTOOL_VERSION
+
+ *display.borderWidth: 2
+ *display.layout: horizontal { \
+ -0 \
+ vertical { \
+ menuGroup < +inf -inf * > \
+ horizontal { 1 toolbar < +inf -inf * > 1 } \
+ 1 < -1 > \
+ horizontal { 1 panelbar < +inf -inf * > 1 } \
+ 1 < -1 > \
+ vertical { \
+ horizontal { \
+ imageFrame < +inf -inf * +inf -inf > \
+ -2 \
+ vcutFrame < * +inf -inf > \
+ } \
+ -3 \
+ horizontal { \
+ hcutFrame < +inf -inf * > 1 \
+ vertical { 4 horizontal { -4 plotOpts} -4 } \
+ } \
+ -3 \
+ horizontal { \
+ cbarFrame < +inf -inf * > \
+ focusSlider 2 hcut 2 vcut 15 \
+ } \
+ } \
+ } \
+ -0 \
+ }
+ *hcut.label: H
+ *hcut.font: *lucida-bold-r*10*
+ *vcut.label: V
+ *vcut.font: *lucida-bold-r*10*
+ *focusSlider.location: 0 0 100 15
+
+ *hcutFrame.frameType: sunken
+ *hcutFrame.frameWidth: 1
+ *hcutFrame.innerOffset: 1
+ *hcutFrame.outerOffset: 1
+ //*hcutPlot.color0: #c4c4c4
+ //*hcutPlot.color1: #000000
+ *hcutPlot.color0: #000000
+ *hcutPlot.color1: #ffffff
+ *hcutPlot.crosshairCursorColor: red
+ *hcutPlot.width: 512
+ *hcutPlot.height: 6
+ *hcutPlot.borderWidth: 0
+ *hcutPlot.alphaFont1: 6x10
+ *hcutPlot.alphaFont2: 6x10
+ *hcutPlot.alphaFont3: 6x10
+ *hcutPlot.alphaFont4: 6x10
+ *hcutPlot.alphaFont5: 6x10
+ *hcutPlot.alphaFont6: 6x10
+ *hcutPlot.alphaFont7: 6x10
+ *hcutPlot.alphaFont8: 6x10
+ *hcutPlot.translations: \
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed) \n\
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed) \n\
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed) \n\
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed) \n\
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed) \n\
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed) \n\
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed) \n\
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed) \n\
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed) \n\
+ !Ctrl <Key>b: call(prevFrame,$name) \n\
+ !Ctrl <Key>f: call(nextFrame,$name) \n\
+ !Ctrl <Key>i: call(cpInvert) \n\
+ !Ctrl <Key>m: call(toggleMagnifier) \n\
+ !Ctrl <Key>n: call(normalize) \n\
+ !Ctrl <Key>p: call(togglePanner) \n\
+ !Ctrl Alt <Key>q: call(Quit) \n\
+ !Ctrl <Key>r: call(cpRegisterFrames) \n\
+ !Ctrl <Key>s: call(cpMatchFrames) \n\
+ !Ctrl <Key>u: call(cpZoom,1,1,fixed) \n\
+ Ctrl <Key>+: call(cpZoom,2.0,2.0,relative) \n\
+ Ctrl <Key>-: call(cpZoom,0.5,0.5,relative) \n\
+ Ctrl <Key>\<: call(cpSetBlinkRate,BRdecrease) \n\
+ Ctrl <Key>\>: call(cpSetBlinkRate,BRincrease) \n\
+ !Alt <Key>b: call(toggleBlink) \n\
+ !Alt <Key>c: call(displayPanel) \n\
+ !Alt <Key>h: call(Help) \n\
+ !Alt <Key>i: call(infoPanel) \n\
+ !Ctrl Alt <Key>f: call(fitFrame) \n\
+ !Alt <Key>l: call(loadPanel) \n\
+ !Alt <Key>p: call(printPanel) \n\
+ !Alt <Key>s: call(savePanel) \n\
+ !Alt <Key>t: call(tclPanel) \n\
+ !<Btn1Down>: call(makeMarker,$name,$x,$y) m_create() \n\
+ <EnterWindow>: enter-window() \n\
+ <LeaveWindow>: leave-window() \n\
+ <KeyPress>: graphics-input() \n\
+ !Alt <Motion>: call(curtrack_msg,$x,$y) \n\
+ <Motion>: track-cursor() call(hcutWCSUpdate,$x,$y)
+
+
+ *vcutFrame.frameType: sunken
+ *vcutFrame.frameWidth: 1
+ *vcutFrame.innerOffset: 0
+ *vcutFrame.outerOffset: 0
+ //*vcutPlot.color0: #c4c4c4
+ //*vcutPlot.color1: black
+ *vcutPlot.color0: #000000
+ *vcutPlot.color1: #ffffff
+ *vcutPlot.crosshairCursorColor: red
+ *vcutPlot.width: 6
+ *vcutPlot.height: 512
+ *vcutPlot.borderWidth: 0
+ *vcutPlot.alphaFont1: 6x10
+ *vcutPlot.alphaFont2: 6x10
+ *vcutPlot.alphaFont3: 6x10
+ *vcutPlot.alphaFont4: 6x10
+ *vcutPlot.alphaFont5: 6x10
+ *vcutPlot.alphaFont6: 6x10
+ *vcutPlot.alphaFont7: 6x10
+ *vcutPlot.alphaFont8: 6x10
+ *vcutPlot.translations: \
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed) \n\
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed) \n\
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed) \n\
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed) \n\
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed) \n\
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed) \n\
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed) \n\
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed) \n\
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed) \n\
+ !Ctrl <Key>b: call(prevFrame,$name) \n\
+ !Ctrl <Key>f: call(nextFrame,$name) \n\
+ !Ctrl <Key>i: call(cpInvert) \n\
+ !Ctrl <Key>m: call(toggleMagnifier) \n\
+ !Ctrl <Key>n: call(normalize) \n\
+ !Ctrl <Key>p: call(togglePanner) \n\
+ !Ctrl Alt <Key>q: call(Quit) \n\
+ !Ctrl <Key>r: call(cpRegisterFrames) \n\
+ !Ctrl <Key>s: call(cpMatchFrames) \n\
+ !Ctrl <Key>u: call(cpZoom,1,1,fixed) \n\
+ Ctrl <Key>+: call(cpZoom,2.0,2.0,relative) \n\
+ Ctrl <Key>-: call(cpZoom,0.5,0.5,relative) \n\
+ Ctrl <Key>\<: call(cpSetBlinkRate,BRdecrease) \n\
+ Ctrl <Key>\>: call(cpSetBlinkRate,BRincrease) \n\
+ !Alt <Key>b: call(toggleBlink) \n\
+ !Alt <Key>c: call(displayPanel) \n\
+ !Alt <Key>h: call(Help) \n\
+ !Alt <Key>i: call(infoPanel) \n\
+ !Ctrl Alt <Key>f: call(fitFrame) \n\
+ !Alt <Key>l: call(loadPanel) \n\
+ !Alt <Key>p: call(printPanel) \n\
+ !Alt <Key>s: call(savePanel) \n\
+ !Alt <Key>t: call(tclPanel) \n\
+ !<Btn1Down>: call(makeMarker,$name,$x,$y) m_create() \n\
+ <EnterWindow>: enter-window() \n\
+ <LeaveWindow>: leave-window() \n\
+ <KeyPress>: graphics-input() \n\
+ !Alt <Motion>: call(curtrack_msg,$x,$y) \n\
+ <Motion>: track-cursor() call(vcutWCSUpdate,$x,$y)
+
+
+ *plotOpts.label: Options
+ !*plotOpts*location: 0 0 105 18
+ *plotOpts*location: 0 0 1 18
+ *plotOpts.shrinkToFit: True
+ *plotOpts.outerOffset: 5
+ *plotOpts.innerOffset: 3
+ *plotOpts.frameWidth: 2
+ *plotOpts*TextToggle.offIcon: square0s
+ *plotOpts*TextToggle.onIcon: square1s
+ *plotOpts*TextToggle.highlightColor: yellow
+ *plotOpts*TextToggle.outerOffset: 0
+ *plotOpts*TextToggle.frameWidth: 0
+ *plotOpts*TextToggle.selectionStyle: multi
+ *plotOpts*TextToggle.leftMargin: 3
+ *plotOpts*TextToggle.alignment: left
+
+ *poptsLayout.borderWidth: 0
+ *poptsLayout.layout: vertical { \
+ -1 \
+ plotSpeed plotAccurate plotImgPix \
+ 2 < -2 > \
+ horizontal { -4 optLine < +inf -inf * > -4 } \
+ 2 < -2 > \
+ curJump curSmooth curTrack \
+ -1 \
+ }
+ *plotSpeed.label: Better Speed
+ *plotSpeed.on: True
+ *plotAccurate.label: Better Accuracy
+ *plotAccurate.on: False
+ *plotImgPix.label: Image Pixels
+ *plotImgPix.on: False
+ *plotImgPix.sensitive: False
+ *optLine.height: 2
+ *optLine.width: 120
+ *optLine.outerOffset: 0
+ *optLine.innerOffset: 0
+ *optLine.frameWidth: 2
+ *optLine.frameType: chiseled
+ *curJump.label: Jump Cursor
+ *curJump.on: True
+ *curSmooth.label: Smooth Cursor
+ *curSmooth.on: False
+ *curTrack.label: Graphics Cursors
+ *curTrack.on: True
+
+
+ *menuGroup.label:
+ *menuGroup.height: 38
+ *menuGroup.width: 512
+ *menuGroup.frameType: raised
+ *menuGroup.frameWidth: 2
+ *menubar.layout: horizontal { \
+ 2 < -2 > \
+ fileButton 1 < -1 > viewButton 1 < -1 > optionsButton \
+ 1 < -1 > \
+ imageTitle < +inff -inff * > \
+ 1 < -1 > \
+ mXflipButton 1 < -1 > mYflipButton \
+ 1 < -1 > \
+ mPrevButton 1 < -1 > mFrameButton 1 < -1 > mNextButton \
+ 1 < -1 > \
+ toolButton 1 < -1 > panelButton \
+ 2 < -2 > \
+ }
+
+ *menubar*SimpleMenu.foreground: Black
+ *menubar*SimpleMenu.borderWidth: 1
+ *menubar*SimpleMenu.foreground: White
+ *menubar*SimpleMenu.background: SteelBlue
+ *SmeBSB.vertSpace: 10
+
+ *menubar.width: 512
+ *menubar*borderWidth: 0
+ *menubar*Command.internalWidth: 0
+ *menubar*Command.borderWidth: 0
+ *menubar*Toggle.label: x
+ *menubar*Toggle.internalWidth: 0
+ *menubar*Toggle.borderWidth: 0
+
+ *toolbar.layout: horizontal { \
+ tbZoomIn < +inf -inf * > 1 < -1 > \
+ tbZoom0 < +inf -inf * > 1 < -1 > \
+ tbZoomOut < +inf -inf * > 1 < -1 > \
+ tbInvert < +inf -inf * > 1 < -1 > \
+ tbNormalize < +inf -inf * > 1 < -1 > \
+ tbMatchLUT < +inf -inf * > 1 < -1 > \
+ tbAutoReg < +inf -inf * > 1 < -1 > \
+ tbRegister < +inf -inf * > 1 < -1 > \
+ tbCenter < +inf -inf * > 1 < -1 > \
+ tbBlinkDec < +inf -inf * > 1 < -1 > \
+ tbBlink < +inf -inf * > 1 < -1 > \
+ tbBlinkInc < +inf -inf * > 1 < -1 > \
+ xflipButton < +inf -inf * > 1 < -1 > \
+ yflipButton < +inf -inf * > 1 < -1 > \
+ tbCompass < +inf -inf * > 1 < -1 > \
+ tbTile < +inf -inf * > 1 < -1 > \
+ prevButton < +inf -inf * > 1 < -1 > \
+ frameButton < +inf -inf * > 1 < -1 > \
+ nextButton < +inf -inf * > 1 < -1 > \
+ }
+ *toolbar.width: 512
+ *toolbar.height: 25
+ *toolbar*borderWidth: 0
+ *toolbar*Command.internalWidth: 3
+ *toolbar*Command.borderWidth: 0
+ *toolbar*Toggle.internalWidth: 2
+ *toolbar*Toggle.borderWidth: 0
+
+ *panelbar.layout: horizontal { \
+ pbDisplayP < +inf -inf * > 1 < -1 > \
+ pbPrintP < +inf -inf * > 1 < -1 > \
+ pbLoadP < +inf -inf * > 1 < -1 > \
+ pbSaveP < +inf -inf * > 1 < -1 > \
+ pbInfoP < +inf -inf * > 1 < -1 > \
+ pbTileP < +inf -inf * > 1 < -1 > \
+ pbCoordP < +inf -inf * > 1 < -1 > \
+ pbPanM < +inf -inf * > 1 < -1 > \
+ pbMagM < +inf -inf * > 1 < -1 > \
+ pbWcsM < +inf -inf * > 1 < -1 > \
+ pbIsm < +inf -inf * > 1 < -1 > \
+ helpButton < +inf -inf * > 1 < -1 > \
+ pbQuit < +inf -inf * > 1 < -1 > \
+ }
+ *panelbar*SimpleMenu.borderColor: Black
+ *panelbar*SimpleMenu.borderWidth: 1
+ *SmeBSB.vertSpace: 10
+
+ *panelbar.width: 12
+ *panelbar.height: 25
+ *panelbar*borderWidth: 0
+ *panelbar*Label.internalWidth: 4
+ *panelbar*Label.borderWidth: 0
+ *panelbar*Command.internalWidth: 4
+ *panelbar*Command.borderWidth: 0
+ *panelbar*Toggle.internalWidth: 3
+ *panelbar*Toggle.borderWidth: 0
+
+ *pbLoadP.label: Load
+ *pbDisplayP.label: Display
+ *pbSaveP.label: Save
+ *pbPrintP.label: Print
+ *pbInfoP.label: Info
+ *pbTileP.label: Tile
+ *pbCoordP.label: Coords
+ *pbPanM.label: Pan
+ *pbPanM.state: 1
+ *pbMagM.label: Mag
+ *pbMagM.state: 0
+ *pbWcsM.label: WCS
+ *pbWcsM.state: 1
+ *pbIsm.label: ISM
+ *pbIsm.state: 0
+ *helpButton.label:
+
+ *fileButton.label: File
+ *fileButton.menuName: fileMenu
+ *viewButton.label: View
+ *viewButton.menuName: viewMenu
+ *optionsButton.label: Options
+ *optionsButton.menuName: optionsMenu
+ *toolButton.label:
+ *toolButton.state: 0
+ *panelButton.label:
+ *panelButton.state: 0
+ *imageTitle*font: *times-bold-r*12*
+ *imageTitle.width: 40
+ *imageTitle.height: 20
+ *frameButton.menuName: frameMenu
+ *frameButton.label: 1
+ *frameButton.width: 20
+ *mFrameButton.menuName: mFrameMenu
+ *mFrameButton.label: 1
+ *mFrameButton.width: 20
+ *pbQuit.label: Quit
+ *tbZoom0.label: Mag
+ *tbBlink.label: Blink
+ *tbBlink.internalWidth: 3
+ *tbCenter.label: Cntr
+ *tbAutoReg.label: AReg
+ *tbRegister.label: Reg
+ *tbInvert.label: Inv
+ *tbNormalize.label: Norm
+ *tbMatchLUT.label: Match
+
+ *SimpleMenu*font: -adobe-times-bold-r-normal-*-12-*-*-*-*-*-iso8859-1
+ *fileButton.font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+ *optionsButton.font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+ *viewButton.font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+ *panelbar*font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+ *toolbar*font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+
+ *Gterm.cmapName: image
+ *Gterm.basePixel: 64
+ *imageFrame.frameType: sunken
+ *imageFrame.frameWidth: 1
+ *imageFrame.outerOffset: 0
+ *imageFrame.innerOffset: 0
+ *imageFrame.width: 512
+ *imageFrame.height: 512
+ *cbarFrame.frameType: sunken
+ *cbarFrame.frameWidth: 1
+ *cbarFrame.outerOffset: 0
+ *cbarFrame.innerOffset: 0
+ *cbarFrame.width: 512
+ *imagewin.warpCursor: true
+ *imagewin.raiseWindow: true
+ *imagewin.deiconifyWindow: true
+ *imagewin.idleCursor: crosshair
+ *imagewin.ginmodeCursor: circle
+ *imagewin.ginmodeBlinkInterval: 500
+ *imagewin.resizable: true
+ *imagewin.copyOnResize: false
+ *imagewin.width: 512
+ *imagewin.height: 512
+ *imagewin.maxMappings: 64
+ *imagewin.borderWidth: 0
+
+ *imagewin.translations: \
+ None<Key>Left: call(move_cursor,-1,0) \n\
+ None<Key>Down: call(move_cursor,0,1) \n\
+ None<Key>Up: call(move_cursor,0,-1) \n\
+ None<Key>Right: call(move_cursor,1,0) \n\
+ !Shift <Key>Left: call(move_cursor,-10,0) \n\
+ !Shift <Key>Down: call(move_cursor,0,10) \n\
+ !Shift <Key>Up: call(move_cursor,0,-10) \n\
+ !Shift <Key>Right: call(move_cursor,10,0) \n\
+ !Ctrl <Key>h: call(move_cursor,-1,0) \n\
+ !Ctrl <Key>j: call(move_cursor,0,1) \n\
+ !Ctrl <Key>k: call(move_cursor,0,-1) \n\
+ !Ctrl <Key>l: call(move_cursor,1,0) \n\
+ !Ctrl Shift <Key>h: call(move_cursor,-10,0) \n\
+ !Ctrl Shift <Key>j: call(move_cursor,0,10) \n\
+ !Ctrl Shift <Key>k: call(move_cursor,0,-10) \n\
+ !Ctrl Shift <Key>l: call(move_cursor,10,0) \n\
+ !Ctrl <Key>Left: call(moveFrame,-1,0) \n\
+ !Ctrl <Key>Down: call(moveFrame,0,1) \n\
+ !Ctrl <Key>Up: call(moveFrame,0,-1) \n\
+ !Ctrl <Key>Right: call(moveFrame,1,0) \n\
+ !Ctrl Alt <Key>Left: call(moveFrame,-0.5,0) \n\
+ !Ctrl Alt <Key>Down: call(moveFrame,0,0.5) \n\
+ !Ctrl Alt <Key>Up: call(moveFrame,0,-0.5) \n\
+ !Ctrl Alt <Key>Right: call(moveFrame,0.5,0) \n\
+ !Alt <Key>1: call(cpSetFrame,frame1) \n\
+ !Alt <Key>2: call(cpSetFrame,frame2) \n\
+ !Alt <Key>3: call(cpSetFrame,frame3) \n\
+ !Alt <Key>4: call(cpSetFrame,frame4) \n\
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed) \n\
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed) \n\
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed) \n\
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed) \n\
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed) \n\
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed) \n\
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed) \n\
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed) \n\
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed) \n\
+ !Ctrl <Key>a: call(tbToggleAutoReg) \n\
+ !Ctrl <Key>b: call(prevFrame,$name) \n\
+ !Ctrl <Key>c: call(cpZoomAction,centerFrame) \n\
+ !Ctrl <Key>f: call(nextFrame,$name) \n\
+ !Ctrl <Key>i: call(cpInvert) \n\
+ !Ctrl <Key>m: call(toggleMagnifier) \n\
+ !Ctrl <Key>n: call(normalize) \n\
+ !Ctrl <Key>o: call(offset,$x,$y) \n\
+ !Ctrl <Key>p: call(togglePanner) \n\
+ !Ctrl Alt <Key>q: call(Quit) \n\
+ !Ctrl <Key>r: call(cpRegisterFrames) \n\
+ !Ctrl <Key>s: call(cpMatchFrames) \n\
+ !Ctrl <Key>t: call(tbTileFramesToggle) \n\
+ !Ctrl <Key>u: call(cpZoom,1,1,fixed) \n\
+ !Ctrl <Key>x: call(cpFrameAction,flipX) \n\
+ !Ctrl <Key>y: call(cpFrameAction,flipY) \n\
+ Ctrl <Key>+: call(cpZoom,2.0,2.0,relative) \n\
+ Ctrl <Key>-: call(cpZoom,0.5,0.5,relative) \n\
+ !Ctrl Alt <Key>=: call(Print) \n\
+ Ctrl <Key>\<: call(cpSetBlinkRate,BRdecrease) \n\
+ Ctrl <Key>\>: call(cpSetBlinkRate,BRincrease) \n\
+ Ctrl <Key>\[: call(setCtrBoxSize,$x,$y,-1) \n\
+ Ctrl <Key>\]: call(setCtrBoxSize,$x,$y,1) \n\
+ !Ctrl <Key>0: call(centroid,$x,$y,peak) \n\
+ !Ctrl Alt <Key>0: call(centroid,$x,$y,min) \n\
+ !Alt <Key>b: call(toggleBlink) \n\
+ !Alt <Key>c: call(displayPanel) \n\
+ !Ctrl Shift <Key>c: call(displayPanel) \n\
+ !Ctrl Alt <Key>f: call(fitFrame) \n\
+ !Alt <Key>h: call(Help) \n\
+ !Alt <Key>i: call(infoPanel) \n\
+ !Alt <Key>l: call(loadPanel) \n\
+ !Alt <Key>p: call(printPanel) \n\
+ !Alt <Key>s: call(savePanel) \n\
+ !Alt <Key>t: call(tclPanel) \n\
+ !Ctrl Shift <Key>t: call(tclPanel) \n\
+ !Shift<Btn1Down>: call(setDynamicMagnifier,1) \n\
+ !Shift<Btn1Up>: call(setDynamicMagnifier,0) \n\
+ !<Btn1Down>: call(makeMarker,$name,$x,$y) m_create() \n\
+ !Shift <Btn2Down>: crosshair(on) \n\
+ !Shift <Btn2Motion>: crosshair(on) \n\
+ !Shift <Btn2Up>: crosshair(off) \n\
+ !<Btn2Up>: crosshair(off) \n\
+ !<Btn2Down>: call(zoom,$x,$y) \n\
+ !<Btn3Down>: call(windowColormap,$x,$y) \n\
+ !<Btn3Up>: call(updateColormap,$x,$y) \n\
+ !<Btn3Motion>: call(windowColormap,$x,$y) \n\
+ !Ctrl <Btn1Down>: call(makeRuler,$name,$x,$y) \n\
+ !Ctrl <Btn1Motion>: track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y) call(resizeRuler,$x,$y,0) \n\
+ !Ctrl <Btn1Up>: call(deleteRuler,$x,$y) \n\
+ <EnterWindow>: enter-window() \n\
+ <LeaveWindow>: leave-window() \n\
+ <KeyPress>: graphics-input() \n\
+ !Alt <Motion>: call(curtrack_msg,$x,$y) \n\
+ <Motion>: track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)
+
+! The following translations can be used to enable windowing of the
+! individual RGB components of the colormap. It's not very useful but
+! included here for those that may wish to use it.
+!--------------------------------------------------------------------------
+! !Ctrl <Btn1Down>: call(windowRGB,1,$x,$y,0) \n\
+! !Ctrl <Btn1Motion>: call(windowRGB,1,$x,$y,0) \n\
+! !Ctrl <Btn1Up>: call(windowRGB,1,$x,$y,1) \n\
+! !Ctrl <Btn2Down>: call(windowRGB,2,$x,$y,0) \n\
+! !Ctrl <Btn2Motion>: call(windowRGB,2,$x,$y,0) \n\
+! !Ctrl <Btn2Up>: call(windowRGB,2,$x,$y,1) \n\
+! !Ctrl <Btn3Down>: call(windowRGB,3,$x,$y,0) \n\
+! !Ctrl <Btn3Motion>: call(windowRGB,3,$x,$y,0) \n\
+! !Ctrl <Btn3Up>: call(windowRGB,3,$x,$y,1) \n\
+
+
+ *colorbar.maxRasters: 1
+ *colorbar.maxMappings: 1
+ *colorbar.height: 17
+ *colorbar.width: 50
+ *colorbar.borderWidth: 0
+}
+
+
+set Resources(panelShell) { \
+
+ !================================
+ ! Main Integrated Control Panel
+ !================================
+ *panelShell.title: XImtool Control Panel
+ *panelShell.geometry: 480x630
+ *panelShell.maxWidth: 480
+ *panelShell.minWidth: 480
+ *panelTabs.internalHeight: 3
+ *panelTabs.internalWidth: 10
+
+ *Text*font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *TextBox*font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *List.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *MultiList.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *TextButton.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *TextToggle.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+
+ *display_panel.tabLabel: Display
+ *display_panel.innerOffset: 5
+ *print_panel.tabLabel: Print
+ *print_panel.innerOffset: 5
+ *load_panel.tabLabel: Load
+ *load_panel.innerOffset: 5
+ *save_panel.tabLabel: Save
+ *save_panel.innerOffset: 5
+ *info_panel.tabLabel: Info
+ *info_panel.innerOffset: 5
+ *tile_panel.tabLabel: Tile
+ *tile_panel.innerOffset: 5
+ *wcs_panel.tabLabel: Coords
+ *wcs_panel.innerOffset: 5
+
+ *panelMenuBar*borderWidth: 0
+ *panelMenuBar*Command.internalHeight: 4
+ *panelMenuBar*Command.internalWidth: 15
+ *panelMenuBar.layout: vertical { \
+ 5 < -5 > \
+ horizontal { \
+ 10 < +inf -10> \
+ panelHelp \
+ 3 < -3 > \
+ panelClose \
+ 7 < -7 > \
+ } \
+ 5 < -5 > \
+ }
+
+ *panelHelp.label: Help
+ *panelClose.label: Dismiss
+
+
+ *tabFrame.outerOffset: 3
+ *tabFrame.innerOffset: 0
+ *tabFrame.frameWidth: 0
+ *tabFrame.frameType: chiseled
+ *panelMenuFrame.outerOffset: 0
+ *panelMenuFrame.innerOffset: 1
+ *panelMenuFrame.frameType: raised
+ *panelMenuFrame.frameWidth: 2
+ *panel.layout: vertical { \
+ panelMenuFrame < +inf -inf * > \
+ 3 \
+ horizontal { tabFrame < +inf -inf * +inf -inf> } \
+ }
+}
+
+
+set Resources(display_panel) { \
+
+ !================================
+ ! Main Display Control Panel.
+ !================================
+ *controlPanel*internalWidth: 0
+ *controlPanel*borderWidth: 0
+
+ *TextBox.font: 7x13bold
+ *TextToggle.font: -adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
+ *Command.font: -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
+ *Toggle.font: -adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
+ *Label.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *MultiList.font: -adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
+ *toggleZoom.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *centerFrame.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *zoom*Command.font: 7x13bold
+
+ *blinkFrame1.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *blinkFrame2.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *blinkFrame3.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *blinkFrame4.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *matchButton.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *registerButton.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *blinkButton.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+ *autoregButton.font: -adobe-times-medium-r-normal-*-12-*-iso8859-1
+
+ *controlPanel.layout: vertical { \
+ 5 < -5 > \
+ horizontal { \
+ -1 \
+ viewBox < +inf -inf * > \
+ -1 \
+ } \
+ 5 < -5 > \
+ horizontal { \
+ -1 \
+ enhancementBox < +inf -inf * +inf -inf > \
+ -5 \
+ vertical { \
+ -1 \
+ blinkBox < * +inf - inf > \
+ 1 \
+ optionsBox < * +inff -inff > \
+ -1 \
+ } \
+ -1 \
+ } \
+ -5 \
+ controlBox < +inf * > \
+ -5 \
+ }
+
+ ! VIEW
+ ! ------------------
+ *viewBox.label: View
+ *viewBox.location: 0 0 410 0
+ *viewBox.shrinkToFit: True
+ *viewBox.outerOffset: 7
+
+ *view.layout: vertical { \
+ 5 < +inf -5 > \
+ horizontal { \
+ -1 \
+ frameSelect \
+ vertical { \
+ 3 < -3 > \
+ frameDataBox < +inff -100% * +inff -100% > \
+ 3 < -3 > \
+ } \
+ zoomBox \
+ -1 \
+ } \
+ 1 < +inf > \
+ viewButtons < +inf -inf * +inf -inf > \
+ 5 < +inf -5 > \
+ }
+
+ *frameDataBox.frameType: sunken
+ *frameDataBox.frameWidth: 1
+ *frameData.width: 150
+ *frameData.height: 50
+
+ *frameSelect.location: 0 0 72 0
+ *frameSelect.shrinkToFit: True
+ *frameSelect.outerOffset: 7
+ *frameSelect.innerOffset: 2
+ *frameSelect.frameWidth: 2
+ *frameSelect*offIcon: diamond0s
+ *frameSelect*onIcon: diamond1s
+ *frameSelect*highlightColor: blue
+ *frameSelect.label: Frame
+
+ *frameBox.layout: vertical { \
+ 3 \
+ horizontal { -2 frlistBox < * +inff -inff > } \
+ 3 < +inf -3 > \
+ horizontal { prevFrame < +inf -inf * > 4 nextFrame < +inf -inf * > } \
+ }
+ *framePort.allowVert: True
+ *framePort.allowHoriz: False
+ *framePort.useRight: True
+ *framePort.height: 80
+
+ *frameBox*alignment: left
+ *frameBox*frameWidth: 0
+ *frameBox*frame1.label: 1\ \
+ *frameBox*frame2.label: 2\ \
+ *frameBox*frame3.label: 3\ \
+ *frameBox*frame4.label: 4\ \
+
+ *frameBox*frame5.label: 5\ \
+ *frameBox*frame6.label: 6\ \
+ *frameBox*frame7.label: 7\ \
+ *frameBox*frame8.label: 8\ \
+ *frameBox*frame9.label: 9\ \
+ *frameBox*frame10.label: 10\
+ *frameBox*frame11.label: 11\
+ *frameBox*frame12.label: 12\
+ *frameBox*frame13.label: 13\
+ *frameBox*frame14.label: 14\
+ *frameBox*frame15.label: 15\
+ *frameBox*frame16.label: 16\
+ *frameBox*Command.width: 24
+ *frameBox*prevFrame.label: xxx
+ *frameBox*nextFrame.label: xxx
+
+ *frameList*location: 0 0 50 20
+ *frameList.layout: vertical { \
+ frame1 < +inf * >\
+ frame2 < +inf * >\
+ frame3 < +inf * >\
+ frame4 < +inf * >\
+ frame5 < +inf * >\
+ frame6 < +inf * >\
+ frame7 < +inf * >\
+ frame8 < +inf * >\
+ frame9 < +inf * >\
+ frame10 < +inf * >\
+ frame11 < +inf * >\
+ frame12 < +inf * >\
+ frame13 < +inf * >\
+ frame14 < +inf * >\
+ frame15 < +inf * >\
+ frame16 < +inf * >\
+ }
+
+
+ *zoomBox.label: Zoom:
+ *zoomBox.location: 0 0 160 127
+ *zoomBox.outerOffset: 7
+ *zoomBox.shrinkToFit: True
+ *zoomBox*TextButton.frameWidth: 1
+ *zoomBox*TextButton.outerOffset: 0
+
+ *controlPanel*zoom*internalWidth: 4
+ *zoom.layout: vertical { \
+ space = ((50% of width zoom) - (50% of width z5)) \
+ 1 < +inf > \
+ horizontal { \
+ vertical { toggleZoom < +inf * +inf > 1 } \
+ 1 \
+ vertical { 1 < +inf > z5 1 < +inf > z3 0 < +inf > } \
+ 1 \
+ vertical { zoomIn < +inf * +inf > 1 } \
+ } \
+ 1 \
+ horizontal { \
+ 1 < +inf > \
+ d8 1 d4 1 d2 1 x1 1 z2 1 z4 1 z8 \
+ 1 < +inf > \
+ } \
+ 1 \
+ horizontal { \
+ vertical { 1 zoomOut < +inf * +inf > } \
+ 1 \
+ vertical { 0 < +inf > d3 1 < +inf > d5 1 < +inf > } \
+ 1 \
+ vertical { 1 centerFrame < +inf * +inf > } \
+ } \
+ 1 < +inf > \
+ }
+
+ *toggleZoom.label: Toggle\nZoom
+ *toggleZoom.outerOffset: 2
+ *toggleZoom.width: 30
+ *toggleZoom.height: 25
+
+ *zoomIn.label: Zoom\nIn
+ *zoomIn.outerOffset: 2
+ *zoomIn.width: 30
+ *zoomIn.height: 25
+
+ *x1.label: 1
+ *z2.label: 2
+ *z3.label: 3
+ *z4.label: 4
+ *z5.label: 5
+ *z8.label: 8
+
+ *controlPanel*zoomIn.foreground: royalBlue3
+ *controlPanel*z4.foreground: royalBlue3
+ *controlPanel*z5.foreground: royalBlue3
+ *controlPanel*z8.foreground: royalBlue3
+ *controlPanel*z2.foreground: royalBlue3
+ *controlPanel*z3.foreground: royalBlue3
+
+ *zoomOut.label: Zoom\nOut
+ *zoomOut.outerOffset: 2
+ *zoomOut.width: 30
+ *zoomOut.height: 25
+
+ *centerFrame.label: Center
+ *centerFrame.outerOffset: 2
+ *centerFrame.width: 30
+ *centerFrame.height: 25
+
+ *d2.label: 2
+ *d3.label: 3
+ *d4.label: 4
+ *d5.label: 5
+ *d8.label: 8
+
+ *controlPanel*zoomOut.foreground: mediumVioletRed
+ *controlPanel*d2.foreground: mediumVioletRed
+ *controlPanel*d3.foreground: mediumVioletRed
+ *controlPanel*d4.foreground: mediumVioletRed
+ *controlPanel*d5.foreground: mediumVioletRed
+ *controlPanel*d8.foreground: mediumVioletRed
+
+ *viewButtons.location: 0 0 100 80
+ *viewButtons.layout: horizontal { \
+ 2 < -2 > \
+ aspect < +inf * > 2 \
+ flipX < +inf * > 2 \
+ flipY < +inf * > 2 \
+ flipXY < +inf * > 2 \
+ clearFrame < +inf * > 2 \
+ fitFrame < +inf * > \
+ 2 < -2 > \
+ }
+ *nextFrame.label: Next Frame
+ *prevFrame.label: Previous Frame
+ *fitFrame.label: Fit Frame
+ *aspect.label: Aspect
+ *clearFrame.label: Clear Frame
+ *flipX.label: Flip X
+ *flipY.label: Flip Y
+ *flipXY.label: Flip XY
+
+
+ ! ENHANCEMENT
+ ! ------------------
+ *enhancementBox.label: Enhancement
+ *enhancementBox.location: 0 0 110 0
+ *enhancementBox.shrinkToFit: True
+ *enhancementBox.outerOffset: 7
+
+ *enhance*Viewport.allowVert: True
+ *enhance*Viewport.allowHoriz: False
+ *enhance*Viewport.useRight: False
+ *enhance*Viewport.resizeable: True
+ *enhance*Scrollbar.width: 17
+ *enhance*Scrollbar.minimumThumb: 10
+ *enhance.layout: vertical { \
+ 3 < -3 > \
+ horizontal { \
+ 2 < -2 > \
+ colorlistFrame < +inf -inf * +inff -inff > \
+ 2 < -2 > \
+ } \
+ 2 \
+ horizontal { \
+ 2 < -2 > \
+ colordataFrame < +inf -inf * +inf -inf > \
+ 2 < -2 > \
+ } \
+ 5 < -5 > \
+ horizontal { \
+ 2 < -2 > \
+ vertical { -1 contrastLabel 3 < -3 > brightnessLabel -1 } \
+ 3 < -3 > \
+ vertical { \
+ -1 \
+ contrastSlider < +inf -inf * > \
+ 3 < -3 > \
+ brightnessSlider < +inf -inf * > \
+ -1 \
+ } \
+ 2 < -2 > \
+ } \
+ 5 < -5 > \
+ horizontal { \
+ 3 < -3 > \
+ invertButton < +inf -inf * > \
+ 5 < -5 > \
+ optimizeButton < +inf -inf * > \
+ 3 < -3 > \
+ } \
+ 3 < -3 > \
+ }
+
+ *enhance*frameType: sunken
+ *enhance*frameWidth: 1
+ *enhance*BorderWidth: 0
+ *enhance*Label.ShadowWidth: 0
+
+ *colorlist.width: 100
+ *colorlist.height: 98
+ *colordata.width: 100
+ *colordata.height: 45
+ *enhance*colordata.frameWidth: 0
+ *contrastLabel.label: x
+ *contrastSlider.location: 0 0 100 17
+ *brightnessLabel.label: x
+ *brightnessSlider.location: 0 0 100 17
+ *invertButton.label: Invert
+ *optimizeButton.label: Optimize
+
+
+ ! ---------------------
+ ! BLINK/REGISTER
+ ! ---------------------
+ *blinkBox.label: Blink/Register
+ *blinkBox.location: 0 0 235 0
+ *blinkBox.shrinkToFit: True
+ *blinkBox.outerOffset: 7
+ *blinkBox*TextToggle.frameWidth: 1
+
+ *blink.layout: vertical { \
+ space = (width blinkFramesLabel - width blinkRateLabel) \
+ 3 < -3 > \
+ horizontal { \
+ 0 \
+ blinkFramesLabel \
+ 3 < +inf > \
+ blinkFrame1 < -50% * > \
+ blinkFrame2 < -50% * > \
+ blinkFrame3 < -50% * > \
+ blinkFrame4 < -50% * > \
+ 4 < +inf > \
+ blinkPanel < -50% * > \
+ blinkReset \
+ 2 \
+ } \
+ 5 < -5 > \
+ horizontal { \
+ $space \
+ blinkRateLabel \
+ 2 \
+ BRframe < +inf * > \
+ } \
+ 5 < +inf -100% > \
+ horizontal { \
+ vertical { \
+ 2 matchButton < +inf * > 4 < -4 > registerButton < +inf * > \
+ } \
+ 5 < -5 > \
+ vertical { \
+ 1 blinkButton < +inf * > 4 < -4 > autoregButton < +inf * > \
+ } \
+ } \
+ }
+
+ *BRlayout.layout: horizontal { \
+ BRdecrease \
+ BRtext < +inf -100% * > \
+ BRincrease \
+ }
+
+ *blink.Label.borderWidth: 0
+ *blink.Label.shadowWidth: 0
+ *controlPanel*blink*internalWidth: 4
+ *blink.TextToggle.location: 0 0 102 23
+ *blink.TextToggle.frameWidth: 1
+ *blink*TextToggle.highlightColor: yellow
+ *blink*TextToggle.offIcon: square0s
+ *blink*TextToggle.onIcon: square1s
+ *blink*TextToggle.outerOffset: 1
+ *blink*Command.height: 27
+ *blink*Arrow.width: 16
+ *blink*Arrow.height: 25
+
+
+ *blinkFramesLabel.label: Frames List:
+ *blinkFrame1.label: 1
+ *blinkFrame2.label: 2
+ *blinkFrame3.label: 3
+ *blinkFrame4.label: 4
+ *blinkPanel.label: x
+ *blinkPanel.width: 20
+ *blinkReset.label: Reset
+
+ *blinkRateLabel.label: Blink Rate:
+ *BRframe.frameType: sunken
+ *BRframe.frameWidth: 1
+ *BRtext.width: 40
+ *BRtext.height: 23
+ *BRdecrease.direction: left
+ *BRincrease.direction: right
+ *registerButton.label: Register
+ *matchButton.label: Match LUTs
+ *blinkButton.label: Blink
+ *autoregButton.label: Auto-Register
+
+ ! OPTIONS
+ ! ---------------------
+ *optionsBox.label: Options
+ *optionsBox.location: 0 0 220 0
+ *optionsBox.shrinkToFit: False
+ *optionsBox.outerOffset: 7
+ *optionsBox*offIcon: square0s
+ *optionsBox*onIcon: square1s
+ *optionsBox*selectionStyle: multi
+ *optionsBox*highlightColor: yellow
+ *optionsBox.TextToggle.location: 0 0 102 20
+ *optionsBox.TextToggle.frameWidth: 0
+ *optionsBox.TextToggle.highlightThickness: 0
+ *optionsBox*alignment: left
+
+ *pannerButton.label: Panner
+ *coordsBoxButton.label: Coords Box
+ *autoscaleButton.label: Autoscale
+ *antialiasButton.label: Antialias
+ *tileFramesButton.label: Tile Frames
+ *magnifierButton.label: Magnifier
+ *warningsButton.label: Warnings
+ *peakupButton.label: Centroid Peaks
+ *peakupButton.on: True
+
+ ! CONTROL
+ ! ----------------------
+ *controlBox.frameType: chiseled
+ *controlBox.frameWidth: 2
+ *controlBox.outerOffset: 7
+ *controlBox.innerOffset: 5
+ *controlBox.height: 30
+
+ *control.layout: horizontal { \
+ 1 \
+ initializeButton < +inf * > \
+ 5 < -5 > \
+ normalizeButton < +inf * > \
+ 80 < +inf -100% > \
+ }
+
+ *initializeButton.label: Initialize
+ *normalizeButton.label: Normalize
+}
+
+
+set Resources(print_panel) { \
+
+ !=====================================
+ ! Print Setup Panel resources. !
+ !=====================================
+ *print_panel*TextToggle.alignment: left
+ *print_panel*Arrow.width: 16
+ *print_panel*Arrow.height: 20
+ *print_panel*TextToggle.frameWidth: 0
+ *print_panel*TextToggle.height: 20
+ *print_panel*Label.borderWidth: 0
+ *print_panel*Label.shadowWidth: 0
+ *print_panel*TextButton.width: 40
+ *print_panel*TextButton.height: 25
+
+ *printLayout.borderWidth: 0
+ *printLayout.layout: vertical { \
+ -1 \
+ printCmdGroup < +inf * > \
+ -1 \
+ optGroup < +inf -inf * +inf -inf > \
+ -3 \
+ cmdGroup < +inf * > \
+ -1\
+ }
+
+
+ ! Print Group resources.
+ !----------------------------------
+ *printCmdGroup.borderWidth: 0
+ *printCmdGroup.outerOffset: 5
+ *printCmdGroup.label:
+ *printCmdGroup.location: 0 0 400 80
+ *printCmdGroup*offIcon: diamond0s
+ *printCmdGroup*onIcon: diamond1s
+ *printCmdGroup*highlightColor: cyan
+ *printCmdGroup*Frame.frameType: sunken
+ *printCmdGroup*Frame.frameWidth: 1
+ *printCmdGroup*Frame.width: 300
+ *printCmdGroup*Label.justify: right
+ *printCmdGroup*Text*editType: edit
+ *printCmdGroup*Text*height: 22
+ *printCmdGroup*TextToggle.width: 70
+ *printCmdGroup*shadowWidth: 0
+ *printCmdGroup*borderWidth: 0
+ *printCmdLayout.borderWidth: 0
+ *printCmdLayout.layout: horizontal { \
+ labelLayout 5 inputLayout < +inf -inf * > \
+ }
+ *labelLayout.borderWidth: 0
+ *labelLayout.layout: vertical { 5 toLabel 7 printerLabel }
+ *printerLabel.label: Print Command:
+ *toLabel.label: Print To:
+ *toPrinter.label: Printer
+ *toPrinter.on: True
+ *toFile.label: File
+
+ *inputLayout.borderWidth: 0
+ *inputLayout.layout: horizontal { \
+ 3 \
+ vertical { \
+ 5 \
+ horizontal { 5 toPrinter 5 toFile 5 < +inf -inf > } \
+ 5 \
+ printcmdFrame < +inf -inf * > \
+ 5 \
+ } \
+ 3 \
+ }
+ *printcmd*string: lpr
+ *printcmd*height: 22
+ *printcmd*Text*editType: edit
+
+
+ ! Main options groups layout resources.
+ !---------------------------------------
+ *optGroup.frameWidth: 2
+ *optGroup.frameType: chiseled
+ *optGroup.label:
+ *optGroup.location: 0 0 400 330
+ *optGroup.outerOffset: 5
+ *optGroup.innerOffset: 2
+ *optLayout*borderWidth: 0
+ *optLayout.layout: vertical { \
+ -1 \
+ horizontal { \
+ vertical { \
+ 5 \
+ epsPageGroup < +inf -inf * > \
+ optionsGroup < +inf -inf * +inf -inf > \
+ -1 \
+ } \
+ vertical { \
+ 5 \
+ printColorGroup < +inf -inf * > \
+ printerGroup < +inf -inf * > \
+ -1 \
+ } \
+ -1 \
+ } \
+ 5 \
+ horizontal { annOptsGroup < +inf * +inf > -1 } \
+ -1 \
+ }
+
+
+ ! Postscript Options group resources.
+ ! -----------------------------------
+ *epsPageGroup.label: Postscript Options
+ *epsPageGroup.outerOffset: 7
+ *epsPageGroup.innerOffset: 5
+ *epsPageGroup.location: 0 0 250 150
+ *epsPageGroup*offIcon: diamond0s
+ *epsPageGroup*onIcon: diamond1s
+ *epsPageGroup*highlightColor: cyan
+ *epsPage*Label.justify: left
+ *epsPage.layout: vertical { \
+ -1 \
+ epsOrientLabel 4 < -4 > \
+ horizontal { 25 epsPortButton epsLandButton epsSquareButton -1 } \
+ 4 \
+ epsSizeLabel -1 \
+ horizontal { \
+ 25 epsLetterButton epsLegalButton epsA4Button epsB5Button -1 \
+ } \
+ 10 \
+ horizontal { 5 epsScaleLabel 4 ScaleFrame < +inf -inf * > } \
+ -1 \
+ }
+
+
+ ! Page Layout resources.
+ ! -------------------------------
+ *epsOrientLabel.label: Orientation:
+ *epsPortButton.label: Portrait
+ *epsPortButton.width: 65
+ *epsLandButton.label: Landscape
+ *epsLandButton.width: 85
+ *epsSquareButton.label: Square
+ *epsSquareButton.width: 70
+ *epsSquareButton.sensitive: False
+
+ *epsSizeLabel.label: Paper Size:
+ *epsLetterButton.label: Letter
+ *epsLetterButton.width: 60
+ *epsLegalButton.label: Legal
+ *epsLegalButton.width: 60
+ *epsA4Button.label: A4
+ *epsA4Button.width: 50
+ *epsB5Button.label: B5
+ *epsB5Button.width: 50
+
+ ! Image scale box resources.
+ ! -------------------------------
+ *epsScaleLabel.label: Output Image Scale:
+ *epsScaleLabel.justify: right
+ *ScaleFrame.frameType: sunken
+ *ScaleFrame.frameWidth: 1
+ *ScaleFrame*shadowWidth: 0
+ *ScaleLayout.location: 0 0 100 35
+ *ScaleLayout.label:
+ *ScaleLayout.layout: horizontal { \
+ SCdecrease SCtext < +inf -100% * > SCincrease \
+ }
+ *SCdecrease.direction: left
+ *SCtext.width: 75
+ *SCtext.height: 22
+ *SCtext.label: 100 %
+ *SCincrease.direction: right
+
+
+ ! Miscellaneous print options box resources.
+ ! ------------------------------------
+ *optionsGroup.outerOffset: 7
+ *optionsGroup.innerOffset: 5
+ *optionsGroup*onIcon: square1s
+ *optionsGroup*offIcon: square0s
+ *optionsGroup.label: Processing Options
+ *optionsGroup*TextToggle.width: 125
+ *optionsGroup*TextToggle.highlightColor: yellow
+ *options.location: 0 0 250 60
+ *options.frameWidth: 2
+ *options.layout: horizontal { \
+ 5 \
+ vertical { -1 epsscaleButton 2 autorotateButton -1 } \
+ 3 \
+ vertical { -1 aspectButton 2 compressButton -1 } \
+ -1 \
+ }
+ *epsscaleButton.label: Auto Scale
+ *autorotateButton.label: Auto Rotate
+ *aspectButton.label: Max Aspect
+ *compressButton.label: RLE Compress
+ *compressButton.sensitive: False
+
+
+ ! Annotation options box resources.
+ ! ------------------------------------
+ *annOptsGroup.outerOffset: 7
+ *annOptsGroup.innerOffset: 5
+ *annOptsGroup*onIcon: square1s
+ *annOptsGroup*offIcon: square0s
+ *annOptsGroup.label: Annotation Options
+ *annOptsGroup*TextToggle.width: 90
+ *annOptsGroup*TextToggle.highlightColor: yellow
+ *annOptsGroup*Frame.frameType: sunken
+ *annOptsGroup*Frame.frameWidth: 1
+ *annOptsGroup*Frame.width: 300
+ *annOptsGroup*Text*editType: edit
+ *annOpts.frameWidth: 2
+ *annOpts.location: 0 0 400 70
+ *annOpts.layout: vertical { \
+ 2 \
+ horizontal { \
+ 5 annotateButton 2 titleButton 2 bordersButton 2 colorbarButton 5 \
+ } \
+ 3 \
+ horizontal { -1 titleLabel 2 titleFrame < +inf -inf * > -1 } \
+ -1 \
+ }
+ *annotateButton.label: \ Annotate
+ *titleButton.label: \ Title
+ *bordersButton.label: \ Borders
+ *colorbarButton.label: \ Colorbar
+ *titleLabel.label: Title String
+ *titleString*string: imtitle
+ *titleString*height: 23
+ *titleString*Text*editType: edit
+
+
+ ! Output color box resources.
+ ! ------------------------------
+ *printColorGroup.location: 0 0 150 90
+ *printColorGroup.outerOffset: 7
+ *printColorGroup.frameWidth: 2
+ *printColorGroup*offIcon: diamond0s
+ *printColorGroup*onIcon: diamond1s
+ *printColorGroup*highlightColor: cyan
+ *printColorGroup.innerOffset: 5
+ *printColorGroup.label: Output Color
+ *printColorGroup*TextToggle.width: 110
+ *printColor.frameWidth: 2
+ *printColor.location: 0 0 250 75
+ *printColor.layout: horizontal { \
+ 1 \
+ vertical { -1 prGrayButton 2 prPseudoButton 2 prRGBButton -1 } \
+ -1 \
+ }
+ *prGrayButton.label: Grayscale
+ *prPseudoButton.label: PseudoColor
+ *prRGBButton.label: RGB
+
+ ! Printer Selection.
+ ! --------------------------
+ *printerGroup.label: Printers
+ *printerGroup.location: 0 0 110 130
+ *printerGroup.shrinkToFit: True
+ *printerGroup.outerOffset: 7
+
+ *printers*Viewport.allowVert: True
+ *printers*Viewport.allowHoriz: False
+ *printers*Viewport.useRight: True
+ *printers*Viewport.resizeable: True
+ *printers*Scrollbar.width: 17
+ *printers*Scrollbar.minimumThumb: 10
+ *printers.layout: vertical { \
+ 3 < -3 > \
+ horizontal { \
+ 2 < -2 > \
+ printlistFrame < +inf -inf * +inff -inff > \
+ 2 < -2 > \
+ } \
+ 3 < -3 > \
+ }
+
+ *printers*frameType: sunken
+ *printers*frameWidth: 1
+ *printers*BorderWidth: 0
+ *printers*Label.ShadowWidth: 0
+
+ *printlist.width: 100
+ *printlist.height: 78
+
+
+ ! Panel command resources.
+ ! ------------------------------
+ *cmdGroup.frameType: chiseled
+ *cmdGroup.frameWidth: 2
+ *cmdGroup.outerOffset: 5
+ *cmdGroup.innerOffset: 5
+ *cmdGroup.label:
+ *cmdGroup.location: 0 0 150 50
+ *cmdLayout.borderWidth: 0
+ *cmdLayout*Command.internalWidth: 12
+ *cmdLayout.layout: horizontal { \
+ 2 \
+ okayPrint 1 < +inf > printStatus < +inf -inf * +inf -inf > \
+ 2 \
+ }
+ *cmdGroup*TextButton*location: 0 0 80 0
+ *okayPrint.label: Print
+}
+
+
+set Resources(info_panel) { \
+
+ !--------------------
+ ! Information Panel
+ !--------------------
+ *infoLayout*borderWidth: 0
+ *infoLayout*Frame.frameType: sunken
+ *infoLayout*Frame.frameWidth: 1
+ *infoLayout*Command.internalWidth: 12
+ *infoLayout*Text*editType: read
+ *infoLayout*Text*scrollVertical: whenNeeded
+ *infoLayout*Text*scrollHorizontal: whenNeeded
+ *infoLayout*Text*displayCaret: False
+ *infoLayout*Scrollbar.background: #c4c4c4
+ *infoLayout*Scrollbar.width: 17
+ *infoLayout*Scrollbar.height: 17
+
+ *infoText.height: 240
+ *infoText*font: 6x13
+ *infoLayout.layout: vertical { \
+ infoBox < +inf -inf * > \
+ }
+
+ *infoBox.label:
+ *infoBox.outerOffset: 0
+ *infoBox.innerOffset: 3
+ *infoBoxL*TextToggle.frameType: raised
+ *infoBoxL*TextToggle.frameWidth: 1
+ *infoBoxL*TextToggle*outerOffset: 0
+ *infoBoxL*TextToggle*innerOffset: 1
+ *infoBoxL*TextToggle.location: 0 0 100 25
+ *infoBoxL*TextToggle*onIcon: square1s
+ *infoBoxL*TextToggle*offIcon: square0s
+ *infoBoxL*TextToggle*highlightColor: cyan
+ *infoBoxL.layout: vertical { \
+ infoFrame < +inf -inf * +inf -inf > 1 \
+ 4 \
+ horizontal { \
+ infoOptFr < +inf -inf * > 1 \
+ infoOptSvr < +inf -inf * > 1 \
+ infoOptClients < +inf -inf * > 1 \
+ infoOptWCS < +inf -inf * > 1 \
+ infoOptIsm < +inf -inf * > 1 \
+ infoOptFB < +inf -inf * > \
+ }\
+ 2 \
+ }
+ *infoOptFr.label: Frame
+ *infoOptFr.on: True
+ *infoOptSvr.label: Server
+ *infoOptWCS.label: WCS
+ *infoOptIsm.label: ISM
+ *infoOptClients.label: Clients
+ *infoOptFB.label: Imtoolrc
+}
+
+
+
+set Resources(load_panel) { \
+
+ !-------------------------------
+ ! File Load Control Panel.
+ !-------------------------------
+ *filesLayout*borderWidth: 0
+ *filesLayout*Group.shrinkToFit: True
+ *filesLayout*Group.frameType: chiseled
+ *filesLayout*Frame*frameType: sunken
+ *filesLayout*Frame*frameWidth: 1
+ *filesLayout*TextToggle.frameWidth: 0
+ *filesLayout*TextToggle.height: 28
+ *filesLayout*TextToggle.alignment: left
+ *filesLayout*TextToggle.ledtMargin: 3
+ *filesLayout*SimpleMenu.borderWidth: 1
+ *filesLayout*SimpleMenu.borderColor: black
+ *filesLayout*SimpleMenu.foreground: White
+ *filesLayout*SimpleMenu.background: SteelBlue
+ *filesLayout*Label.borderWidth: 0
+ *filesLayout*Label.shadowWidth: 0
+ *filesLayout.layout: vertical { \
+ imlistGroup < +inf -inf * > \
+ 3 \
+ horizontal { -5 imoptsGroup < +inf -inf * > -5 } \
+ -1 \
+ loadCmdGroup < +inf -inf * > \
+ }
+
+ *imlistGroup.label:
+ *imlistGroup.frameWidth: 2
+ *imlistGroup.outerOffset: 2
+ *imlistLayout*Label.shadowWidth: 0
+ *imlistLayout*Label.justify: left
+ *imlistLayout*Command.width: 90
+ *imlistLayout*Command.height: 23
+ *imlistLayout*Command.shadowWidth: 1
+ *imlistLayout*Viewport.allowVert: True
+ *imlistLayout*Viewport.allowHoriz True
+ *imlistLayout*Viewport.useRight: True
+ *imlistLayout*Viewport.useBottom: True
+ *imlistLayout*Viewport.resizeable: True
+ *imlistLayout*Scrollbar.height: 17
+ *imlistLayout*Scrollbar.width: 17
+ *imlistLayout.layout: vertical { \
+ 3 \
+ horizontal { \
+ 3 \
+ rootButton < +inf -inf * > 1 \
+ homeButton < +inf -inf * > 1 \
+ upButton < +inf -inf * > 1 \
+ rescanButton < +inf -inf * > \
+ 3 \
+ imtemplateLabel 3 imtemplateFrame < +inf -inf * > \
+ 3 \
+ } \
+ 5 \
+ horizontal { 1 imlistLabel < +inf -inf * > 1 } \
+ imlistFrame < +inf -inf * +inf -inf > \
+ 3 \
+ dirLabel < +inf -inf * > \
+ 3 \
+ horizontal { 5 fnameLabel 5 filnamFrame < +inf -inf * > } \
+ 3 \
+ }
+ *imtemplateLabel.label: Filter:
+ *imtemplateText*editType: edit
+ *imtemplateText*height: 23
+ *imtemplateText*font: 7x13
+ !*imageList.width: 100
+ *imageList*height: 140
+ *imageList.shadeSurplus: False
+ *imageList.defaultColumns: 3
+ *imageList.font: 7x13
+ *imlistView.resizeable: True
+ *imlistLabel.height: 0
+ *imlistLabel.label: xxx
+ *imlistLabel.justify: left
+ *imlistLabel.font: *lucida-bold-r*10*
+ *upButton.label: Up
+ *rootButton.label: Root
+ *homeButton.label: Home
+ *rescanButton.label: Rescan
+ *dirLabel.label: \ \ Directory:
+ *dirLabel.alignment: left
+ *fnameLabel.label: Load File:
+ *fnameText*editType: edit
+ *fnameText.height: 22
+
+ *imoptsGroup.label: Options
+ *imoptsGroup.frameWidth: 2
+ *imoptsGroup.outerOffset: 7
+ *imoptsGroup*offIcon: square0s
+ *imoptsGroup*onIcon: square1s
+ *imoptsGroup*highlightColor: yellow
+ *imoptsLayout*Label.shadowWidth: 0
+ *imoptsLayout*Label.justify: left
+ *imoptsLayout.layout: vertical { \
+ 3 \
+ horizontal { \
+ 3 \
+ autoload 6 grayscale \
+ 3 < +inf > \
+ browseHdrs \
+ 3 < +inf > \
+ frameLabel 2 frameFrame \
+ 3 \
+ } \
+ 6 \
+ horizontal { \
+ 3 \
+ zscale 6 zrange \
+ 3 \
+ z1Label z1Frame < +inf * > 2 \
+ z2Label z2Frame < +inf * > 2 \
+ nsampLabel nsampFrame < +inf * > \
+ 3 \
+ } \
+ 3 \
+ }
+ *grayscale.label: Auto Grayscale
+ *grayscale.location: 0 0 100 22
+ *autoload.label: Auto Load
+ *autoload.location: 0 0 80 22
+ *autoload.on: True
+ *browseHdrs.label: List Image Headers
+ *browseHdrs.location: 0 0 120 22
+ *browseHdrs.on: False
+ *zscale.label: Zscale
+ *zscale.location: 0 0 60 22
+ *zrange.label: Zrange
+ *zrange.location: 0 0 60 22
+ *z1Label.label: z1
+ *z1Value*width: 60
+ *z1Value*height: 22
+ *z1Value*editType: edit
+ *z2Label.label: z2
+ *z2Value*width: 60
+ *z2Value*height: 22
+ *z2Value*editType: edit
+ *nsampLabel.label: Nsample
+ *nsampValue*width: 60
+ *nsampValue*height: 22
+ *nsampValue*editType: edit
+ *frameLabel.label: Frame:\
+ *frameFrame.width: 50
+ *frameFrame.resize: False
+ *frameFrame.label: Current
+ *frameFrame.font: 6x13
+ *frameFrame.menuName: loadFrames
+
+
+ *loadCmdGroup.label:
+ *loadCmdGroup*frameWidth: 2
+ *loadCmdGroup*outerOffset: 5
+ *loadCmdGroup.outerOffset: 2
+ *loadCmdGroup*innerOffset: 5
+ *loadCmdGroup.frameType: sunken
+ *loadCmdGroup.label:
+ *loadCmdGroup.location: 0 0 400 45
+ *loadCmdLayout*Command.internalWidth: 12
+ *loadCmdLayout.layout: horizontal { \
+ 2 \
+ filesLoadButton \
+ 1 < +inf > \
+ filesStatus \
+ 2 \
+ }
+ *filesLoadButton.label: Load
+ *filesStatus.label:
+}
+
+
+
+set Resources(save_panel) { \
+
+ !=====================================
+ ! Save Setup Panel resources. !
+ !=====================================
+ *save_panel*TextToggle.alignment: left
+ *save_panel*TextToggle.frameWidth: 0
+ *save_panel*TextToggle.height: 20
+ *save_panel*Label.borderWidth: 0
+ *save_panel*Label.shadowWidth: 0
+ *save_panel*TextButton.width: 80
+
+ *saveLayout.borderWidth: 0
+ *saveLayout.layout: vertical { \
+ saveNameGroup < +inf * > \
+ saveOptGroup < +inf -inf * > -3 \
+ saveCmdGroup < +inf * > \
+ }
+
+ ! Save Name Group resources.
+ !----------------------------------
+ *saveNameGroup.borderWidth: 0
+ *saveNameGroup.outerOffset: 5
+ *saveNameGroup.label:
+ *saveNameGroup.location: 0 0 400 50
+ *saveNameGroup*offIcon: diamond0s
+ *saveNameGroup*onIcon: diamond1s
+ *saveNameGroup*highlightColor: cyan
+ *saveNameGroup*Frame.frameType: sunken
+ *saveNameGroup*Frame.frameWidth: 1
+ *saveNameGroup*Label.justify: right
+ *saveNameGroup*Text*editType: edit
+ *saveNameGroup*shadowWidth: 0
+ *saveNameGroup*borderWidth: 0
+ *saveNameLayout.borderWidth: 0
+ *saveNameLayout.layout: vertical { \
+ 2 \
+ horizontal { 5 saveLabel 5 fnameFrame < +inf -inf * > 5 } \
+ 2 \
+ }
+ *saveLabel.label: File Name:
+ *saveFile.height: 22
+
+ ! Main options groups layout resources.
+ !---------------------------------------
+ *saveOptGroup.frameWidth: 2
+ *saveOptGroup.frameType: chiseled
+ *saveOptGroup.label:
+ *saveOptGroup.location: 0 0 400 140
+ *saveOptGroup.outerOffset: 5
+ *saveOptGroup.innerOffset: 0
+ *saveOptLayout*borderWidth: 0
+ *saveOptLayout.layout: horizontal { \
+ -1 \
+ vertical { 5 < -5 > fmtGroup < +inf * +inf > -1 } \
+ -1 \
+ vertical { \
+ 10 < -10 > \
+ saveDataBox < +inff -inff * +inff -inff > \
+ 5 < -5 > \
+ } \
+ -1 \
+ vertical { 5 < -5 > saveColorGroup < +inf * +inf > -1 } \
+ -1 \
+ }
+
+ ! Output color box resources.
+ ! ------------------------------
+ *saveColorGroup.location: 0 0 140 120
+ *saveColorGroup.outerOffset: 7
+ *saveColorGroup.frameWidth: 2
+ *saveColorGroup*offIcon: diamond0s
+ *saveColorGroup*onIcon: diamond1s
+ *saveColorGroup*highlightColor: cyan
+ *saveColorGroup.innerOffset: 5
+ *saveColorGroup.label: Output Color
+ *saveColorGroup*TextToggle.width: 110
+ *saveColor.frameWidth: 2
+ *saveColor.layout: horizontal { \
+ 3 \
+ vertical { 5 svGrayButton 2 svPseudoButton 2 svRGBButton -1 } \
+ -1 \
+ }
+ *svGrayButton.label: Grayscale
+ *svPseudoButton.label: PseudoColor
+ *svRGBButton.label: RGB
+
+ *saveDataBox.frameType: sunken
+ *saveDataBox.frameWidth: 1
+
+
+ ! Output format box resources.
+ ! -----------------------------------
+ *fmtGroup.location: 0 0 140 120
+ *fmtGroup.outerOffset: 7
+ *fmtGroup.frameWidth: 2
+ *fmtGroup*offIcon: diamond0s
+ *fmtGroup*onIcon: diamond1s
+ *fmtGroup*TextToggle.width: 55
+ *fmtGroup*highlightColor: cyan
+ *fmtGroup.label: File Format
+ *formats.layout: horizontal { \
+ 3 \
+ vertical { 5 fitsButton 2 gifButton 2 tiffButton 2 rawButton 1 } \
+ 2 < -2 > \
+ vertical { 5 epsButton 2 rasButton 2 x11Button 2 jpegButton 1 } \
+ -1 \
+ }
+ *rasButton.label: RAS
+ *gifButton.label: GIF
+ *jpegButton.label: JPEG
+ *tiffButton.label: TIFF
+ *fitsButton.label: FITS
+ *x11Button.label: X11
+ *epsButton.label: EPS
+ *rawButton.label: Raw
+
+ ! Change the sensitivity once these formats are implemented. !
+ !-------------------------------------------------------------
+ *jpegButton.sensitive: False
+ *x11Button.sensitive: False
+ *rawButton.sensitive: False
+
+
+ ! Panel command resources.
+ ! ------------------------------
+ *saveCmdLayout.borderWidth: 0
+ *saveCmdGroup.frameType: chiseled
+ *saveCmdGroup.frameWidth: 2
+ *saveCmdGroup.outerOffset: 5
+ *saveCmdGroup.innerOffset: 5
+ *saveCmdGroup.label:
+ *saveCmdGroup.location: 0 0 400 50
+ *saveCmdLayout*Command.internalWidth: 12
+ *saveCmdLayout.layout: horizontal { \
+ 2 \
+ okaySave 1 < +inf -1 > saveStatus < +inf -inf * > \
+ 2 \
+ }
+ *okaySave.label: Save
+}
+
+
+set Resources(tile_panel) { \
+
+ *tileOpts.frameType: chiseled
+ *tileOpts.frameWidth: 2
+ *tileOpts.outerOffset: 5
+ *tileOpts.innerOffset: 7
+ *tileOpts*shrinkToFit: True
+ *tileOpts*borderWidth: 0
+
+ *toptLayout.layout: vertical { \
+ horizontal { -6 tFramesG < +inf -inf * > -6 } \
+ horizontal { \
+ -1 \
+ horizontal { -6 tileMode < * +inf -inf > -6 } \
+ vertical { \
+ horizontal { -3 userOrientG < +inf -inf * > -3 } \
+ horizontal { -3 fillStyle < +inf -inf * > -3 } \
+ horizontal { -3 tileLabel < +inf -inf * > -3 } \
+ -7 \
+ horizontal { -3 geomFrame < +inf -inf * > -3 } \
+ } \
+ -1 \
+ } \
+ -4 \
+ }
+ *tileMode.label: Tile Mode
+ *tileMode.outerOffset: 7
+ *tileMode.innerOffset: 5
+ *tileMode*location: 0 0 150 20
+ *tileMode*TextToggle.outerOffset: 2
+ *tileMode*TextToggle.innerOffset: 1
+ *tileMode*TextToggle.frameWidth: 0
+ *tileMode*TextToggle.leftMargin: 10
+ *tileMode*TextToggle.rightMargin: 20
+ *tileMode*TextToggle.onIcon: diamond1s
+ *tileMode*TextToggle.offIcon: diamond0s
+ *tileMode*TextToggle.highlightColor: yellow
+
+ *tileDisabled.label: Disabled
+ *tileManual.label: Manual
+ *tileBest.label: Best
+ *tileSquare.label: Square
+ *tileHorizontal.label: Horizontal
+ *tileVertical.label: Vertical
+ *tileRow.label: One Row
+ *tileCol.label: One Column
+
+ *fillStyle.label: Fill Style
+ *fillStyle.location: 0 0 160 30
+ *fillStyle.outerOffset: 7
+ *fillStyle.innerOffset: 5
+ *fillStyle.rows: 1
+ *fillStyle*selectionStyle: multi
+ *fillStyle*outerOffset: 0
+ *fillStyle*innerOffset: 1
+ *fillStyle*leftMargin: 7
+ *fillStyle*onIcon: square1s
+ *fillStyle*offIcon: square0s
+ *fillStyle*highlightColor: yellow
+ *fillStyle.TextToggle.frameWidth: 0
+ *fillStyle.TextToggle.location: 0 0 85 23
+ *byCols.label: Fill by Columns
+ *bottomUp.label: Fill from Bottom
+
+ *tileLabel.label: Tile Labels
+ *tileLabel.location: 0 0 175 30
+ *tileLabel.outerOffset: 7
+ *tileLabel.innerOffset: 5
+ *tileLabel.rows: 1
+ *tileLabel*selection: -1
+ *tileLabel*outerOffset: 0
+ *tileLabel*innerOffset: 1
+ *tileLabel*leftMargin: 7
+ *tileLabel*onIcon: square1s
+ *tileLabel*offIcon: square0s
+ *tileLabel*highlightColor: yellow
+ *tileLabel.TextToggle.frameWidth: 0
+ *tileLabel.TextToggle.location: 0 0 85 23
+ *labelFrames.label: Frameno
+ *labelImname.label: Img Name
+ *labelTitles.label: Img Title
+
+ *geomFrame.frameWidth: 0
+ *geomFrame.frameType: sunken
+ *geomFrame.outerOffset: 7
+ *geomFrame.innerOffset: 4
+ *tileGeometry.width: 220
+ *tileGeometry.height; 37
+ *tileGeometry.background: #c4c4c4
+ *tileGeometry.font: 7x13bold
+ *tileGeometry.label: Tile Geometry: 1 x 2
+
+ *userOrientG.label: Manual Configuration
+ *userOrientG.height: 90
+ *userOrientG.width: 220
+ *userOrientG.outerOffset: 7
+ *userOrientG.innerOffset: 5
+ *userOrientG.shrinkToFit: True
+ *userOrientG*Frame.frameWidth: 1
+ *userOrientG*Frame.frameType: sunken
+ *userOrientG*Text.height: 21
+ *userOrientG*Text*editType: edit
+ *userOrientL.borderWidth: 0
+ *userOrientL.layout: vertical { \
+ 1 \
+ horizontal { 18 nrowLab < +50% -inf * > nrFrame < +inf -inf * > 5 } \
+ 1 \
+ horizontal { ncolLab < +50% -inf * > ncFrame < +inf -inf * > 5 } \
+ }
+ *nrowLab.justify: right
+ *ncolLab.justify: right
+
+ *nrLayout.layout: horizontal {nrdecrease nrtext < +inf -inf * > nrincrease}
+ *nrdecrease.direction: left
+ *nrincrease.direction: right
+ *nrowLab.label: Tile Rows:
+ *nrtext.background: #adadad
+ *nrtext.justify: center
+ *nrtext.font: 7x13bold
+ *nrtext.label: 1
+
+ *ncLayout.layout: horizontal {ncdecrease nctext < +inf -inf * > ncincrease}
+ *ncdecrease.direction: left
+ *ncincrease.direction: right
+ *ncolLab.label: Tile Columns:
+ *nctext.background: #adadad
+ *nctext.justify: center
+ *nctext.font: 7x13bold
+ *nctext.label: 2
+
+ *tFramesG.label: Tile Frames
+ *tFramesG.outerOffset: 7
+ *tFramesG.innerOffset: 7
+ *tFrames.borderWidth: 0
+ *tFrames*Toggle.height: 17
+ *tFrames.layout: horizontal { \
+ tAll \
+ 2 \
+ tFrame1 tFrame2 tFrame3 tFrame4 tFrame5 \
+ tFrame6 tFrame7 tFrame8 tFrame9 tFrame10 \
+ tFrame11 tFrame12 tFrame13 tFrame14 tFrame15 tFrame16 \
+ 2 \
+ tNone \
+ }
+ *tAll.label: All\
+ *tNone.label: None
+}
+
+
+set Resources(wcs_panel) { \
+
+ !--------------------
+ ! WCS Readout Panel
+ !--------------------
+ *wcsGroup*TextToggle.offIcon: square0s
+ *wcsGroup*TextToggle.onIcon: square1s
+
+ !*wcsLayout*TextToggle.location: 0 0 160 23
+ *wcsLayout*TextToggle.height: 23
+ *wcsLayout*TextToggle.outerOffset: 0
+ *wcsLayout*Layout.borderWidth: 0
+ *wcsLayout.borderWidth: 0
+ *wcsLayout.layout: vertical { \
+ 0 < +0 -0 > \
+ wcsGroup < +inf -inf * > \
+ 5 \
+ horizontal { -1 wcsOptGroup < +inf -inf * > -1 } \
+ -2 \
+ }
+
+ *wcsOptGroup.label:
+ *wcsOptGroup.outerOffset: 0
+ *wcsOptGroup.innerOffset: 5
+ *wcsOptGroup.frameType: chiseled
+ *wcsOptGroup.frameWidth: 0
+ *wcsOptLayout.layout: vertical { \
+ horizontal { -9 wcsCoords < +inf -inf * > -9 } \
+ -3 \
+ horizontal { -5 wcsOpts < +inf -inf * > -5 } \
+ horizontal { -5 wcsIsmGroup < +inf -inf * > -5 } \
+ 1 \
+ }
+
+ *wcsOpts.label:
+ *wcsOpts.width: 265
+ *wcsOpts.height: 40
+ *wcsOpts.outerOffset: 3
+ *wcsOpts.innerOffset: 3
+ *woLayout*TextToggle.frameWidth: 0
+ *woLayout*TextToggle.onIcon: square1s
+ *woLayout*TextToggle.offIcon: square0s
+ *woLayout*TextToggle.highlightColor: cyan
+ *woLayout*TextToggle.alignment: left
+ *woLayout*TextToggle.leftMargin: 5
+ *woLayout.layout: horizontal { \
+ 3 \
+ woptLabels < +inf -inf * > 2 \
+ woptTitles < +inf -inf * > 2 \
+ woptFBinfo < +inf -inf * > 2 \
+ woptBPM < +inf -inf * > \
+ 3 \
+ }
+ *woptLabels.label: WCS Labels
+ *woptLabels.on: True
+ *woptTitles.label: Image Titles
+ *woptTitles.on: True
+ *woptFBinfo.label: Frame Buffer Info
+ *woptFBinfo.on: True
+ *woptBPM.label: BPM Data
+ *woptBPM.on: False
+ *woptLabels.location: 0 0 150 21
+ *woptTitles.location: 0 0 150 21
+ *woptFBinfo.location: 0 0 175 21
+ *woptBPM.location: 0 0 120 21
+
+
+ *wcsCoords.label: Readout Values
+ *wcsCoords.width: 265
+ *wcsCoords.height: 135
+ *wcsCoords.outerOffset: 7
+ *wcsCoords.innerOffset: 3
+ *wcLayout*TextToggle.offIcon: diamond0s
+ *wcLayout*TextToggle.onIcon: diamond1s
+ *wcLayout*TextToggle.highlightColor: yellow2
+ *wcLayout*TextToggle.shrinkToFit: True
+ *wcLayout*TextToggle.frameWidth: 0
+ *wcLayout*TextToggle.label:
+ *wcLayout*TextToggle.on: True
+ *wcLayout*Label.justify: right
+ *wcLayout*Label.font: 7x13bold
+ *wcLayout*SimpleMenu.borderColor: black
+ *wcLayout*SimpleMenu.borderWidth: 1
+ *wcLayout*SimpleMenu.foreground: White
+ *wcLayout*SimpleMenu.background: SteelBlue
+ *wcLayout*MenuButton.shadowWidth: 1
+ *wcLayout*MenuButton.resize: False
+ *wcLayout.layout: vertical {\
+ 1 \
+ horizontal { 20 < -20 > wcTitle < +inf -inf * > 20 < -20 > }\
+ 1 \
+ horizontal { 5 wcLine < +inf -inf * > 5 } \
+ 5 \
+ horizontal { \
+ 10 \
+ vertical { 2 wlWcs1 2 wlWcs2 2 wlWcs3 2 wlWcs4 2 } 5 \
+ vertical { 1 sysWcs1 1 sysWcs2 1 sysWcs3 1 sysWcs4 1 } 5 \
+ vertical { 1 fmtWcs1 1 fmtWcs2 1 fmtWcs3 1 fmtWcs4 1 } 20 \
+ vertical { 1 wpWcs1 3 wpWcs2 3 wpWcs3 3 wpWcs4 3 } 20 \
+ vertical { 1 wiWcs1 3 wiWcs2 3 wiWcs3 3 wiWcs4 3 } 15 \
+ } \
+ 3 \
+ }
+ *wcTitle.label: Type\ \ \ \ \ \ \ \ \ \ Format\ \ \ \ \ \ Panel\ ImgWin
+
+ *wcLine.height: 2
+ *wcLine.frameWidth: 2
+ *wcLine.frameType: ledged
+
+ *wlWcs1.label: First WCS
+ *wlWcs2.label: Second WCS
+ *wlWcs3.label: Third WCS
+ *wlWcs4.label: Fourth WCS
+ *sysWcs1.label: \ Image Display\
+ *sysWcs1.menuName: sysMenu1
+ *sysWcs2.label: None
+ *sysWcs2.menuName: sysMenu2
+ *sysWcs3.label: None
+ *sysWcs3.menuName: sysMenu3
+ *sysWcs4.label: None
+ *sysWcs4.menuName: sysMenu4
+ *fmtWcs1.label: \ Sexigesimal\
+ *fmtWcs1.menuName: fmtMenu1
+ *fmtWcs2.label: None
+ *fmtWcs2.menuName: fmtMenu2
+ *fmtWcs3.label: None
+ *fmtWcs3.menuName: fmtMenu3
+ *fmtWcs4.label: None
+ *fmtWcs4.menuName: fmtMenu4
+
+ *editMenu fmtWcsMenu$i fmtWcs$i $items
+
+ *wcsIsmGroup.label:
+ *wcsIsmGroup.width: 395
+ *wcsIsmGroup.height: 50
+ *wcsIsmGroup.outerOffset: 3
+ *wcsIsmGroup.innerOffset: 5
+ *wcsIsmGroup*borderWidth: 0
+ *wcsIsmLayout.layout: horizontal { \
+ wcsIsmLabel 1 wcsIsmFrame < +inf -inf * > 3 wcsIsmInit 1 \
+ }
+ *wcsIsmLabel.label: ISM Command
+ *wcsIsmFrame.frameType: sunken
+ *wcsIsmFrame.frameWidth: 1
+ *wcsIsmFrame.outerOffset: 1
+ *wcsIsmFrame*height: 23
+ *wcsIsmCmd*editType: edit
+ *wcsIsmCmd.displayCaret: True
+ *wcsIsmInit.label: Initialize
+ *wcsIsmInit.internalWidth: 7
+
+ *wcsBox*borderWidth: 0
+ *wcsBox*TextToggle.frameType: raised
+ *wcsBox*TextToggle.frameWidth: 1
+ *wcsBox*TextToggle.leftMargin: 2
+ *wcsBox*borderWidth: 0
+ *wcsBox.layout: vertical { \
+ wcsFrame < +inf -inf * > \
+ 2 \
+ horizontal { \
+ 2 \
+ ismToggle < +inf -inf * > 2 \
+ pixelTable < +inf -inf * > 2 \
+ imageHeader < +inf -inf * > 2 \
+ compass < +inf -inf * > 2 \
+ wcsOptions < +inf -inf * > \
+ 2 \
+ } \
+ }
+ *ismToggle.label: ISM Mod
+ *ismToggle.label: WCS/Pix
+ *pixelTable.label: Pix Table
+ *imageHeader.label: Header
+ *imageHeader.sensitive: False
+ *compass.label: Compass
+ *wcsOptions.label: Options
+
+ *wcsGroup.label:
+ *wcsGroup.outerOffset: 0
+ *wcsGroup.innerOffset: 5
+ *wcsGroup.frameType: chiseled
+ *wcsGroup.frameWidth: 2
+ *wcsGroup*Text*width: 260
+ *wcsGroup*Text*height: 17
+ *wcsGroup*Text*font: 7x13
+ *wcsGroup*Text*displayCaret: False
+ *wcsGroup*Text*editType: read
+ *wcsGroup*Text*background: black
+ *wcsGroup*Text*foreground: yellow2
+ *wcsGroup*TextToggle.highlightColor: cyan
+ *wcsFrame.frameType: sunken
+ *wcsFrame.frameWidth: 1
+ *wcsText*background: yellow4
+ *wcsText.layout: vertical { \
+ wtName < +inf -inf * > -3 \
+ wtTitle < +inf -inf * > -3 \
+ wtFBCfg < +inf -inf * > \
+ 1 < -1 > \
+ wtWcs1 < +inf -inf * > -3 \
+ wtWcs2 < +inf -inf * > -3 \
+ wtWcs3 < +inf -inf * > -3 \
+ wtWcs4 < +inf -inf * > \
+ 1 < -1 > \
+ horizontal { \
+ wtIPixval < +inf -inf * +inf > 1 \
+ wtSPixval < +inf -inf * +inf > 1 \
+ wtBPixval < +inf -inf * +inf > \
+ } \
+ }
+}
+
+
+set Resources(blink_panel) { \
+
+ *blink_panel.geometry: 425x200
+ *blink_panel.title: Blink/Register Frames
+
+ *brMenuBar*Command.internalHeight: 4
+ *brMenuBar*Command.internalWidth: 12
+ *brMenuBar*Command.height: 27
+ *brMenuBar*borderWidth: 0
+
+ *brMenuBar*Label.font: 7x13bold
+ *brLayout*Command.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *brRegButton.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *brReset.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *brMatchButton.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *brBlinkButton.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+ *brAregButton.font: -*-helvetica-medium-r-normal-*-12-*-iso8859-1
+
+
+ *brMenuBar.layout: vertical { \
+ 5 < -5 > \
+ horizontal { 10 < +inf -10> brClose 5 } \
+ 5 < -5 > \
+ }
+ *brClose.label: Dismiss
+
+ *brMenuFrame.frameType: raised
+ *brMenuFrame.frameWidth: 2
+ *bpLayout.layout: vertical { \
+ brMenuFrame < +inf -inf * > \
+ 1 < -1 > \
+ brFrame < +inf -inf * +inf -inf > \
+ }
+
+ *brFrame.frameType: chiseled
+ *brFrame.frameWidth: 2
+ *brFrame.outerOffset: 4
+ *brFrame.innerOffset: 4
+
+ *brLayout.borderWidth: 0
+ *brLayout.layout: vertical { \
+ 3 < -3 > \
+ horizontal { -3 brFramesG < +inf -inf * > -3 } \
+ -5 \
+ horizontal { -3 brCmdG < +inf -inf * +inf -inf > -3 } \
+ -5 \
+ }
+
+ *brCmdG.label:
+ *brCmdG.outerOffset: 7
+ *brCmdG.innerOffset: 7
+ *brCmdG*borderWidth: 0
+ *brCmd.layout: horizontal { \
+ 2 \
+ vertical { \
+ 2 \
+ horizontal { \
+ 2 \
+ brRateLabel \
+ 2 \
+ brBRframe < +inf -inf * >\
+ 4 \
+ brReset \
+ 2 \
+ } \
+ 8 < -8 > \
+ horizontal { \
+ 4 \
+ brMatchButton < +inf -inf * > \
+ 5 < -5 > \
+ brRegButton < +inf -inf * > \
+ 2 \
+ } \
+ 1 < +inf > \
+ } \
+ 10 \
+ vertical { \
+ 2 \
+ brBlinkButton < +inf * > \
+ 10 < -10 > \
+ brAregButton < +inf * > \
+ 1 < +inf > \
+ } \
+ 2 \
+ }
+
+ *brFramesG.label: Frames List
+ *brFramesG.outerOffset: 7
+ *brFramesG.innerOffset: 7
+ *brFramesG*SimpleMenu.borderColor: black
+ *brFramesG*SimpleMenu.borderWidth: 1
+ *brFramesG*SimpleMenu.foreground: White
+ *brFramesG*SimpleMenu.background: SteelBlue
+
+ *brFrames.borderWidth: 0
+ *brFrames.layout: horizontal { \
+ 5 < +inf > \
+ brFrame1 < +inf * > 1 \
+ brFrame2 < +inf * > 1 \
+ brFrame3 < +inf * > 1 \
+ brFrame4 < +inf * > 1 \
+ brFrame5 < +inf * > 1 \
+ brFrame6 < +inf * > 1 \
+ brFrame7 < +inf * > 1 \
+ brFrame8 < +inf * > 1 \
+ brFrame9 < +inf * > 1 \
+ brFrame10 < +inf * > 1 \
+ brFrame11 < +inf * > 1 \
+ brFrame12 < +inf * > 1 \
+ brFrame13 < +inf * > 1 \
+ brFrame14 < +inf * > 1 \
+ brFrame15 < +inf * > 1 \
+ brFrame16 < +inf * > \
+ 5 < +inf > \
+ }
+
+ *brBRlayout.layout: horizontal { \
+ brBRdecrease \
+ brBRtext < +inf -100% * > \
+ brBRincrease \
+ }
+
+ *blink_panel*TextToggle.location: 0 0 110 23
+ *blink_panel*TextToggle.frameWidth: 1
+ *blink_panel*TextToggle.highlightColor: yellow
+ *blink_panel*TextToggle.offIcon: square0s
+ *blink_panel*TextToggle.onIcon: square1s
+ *blink_panel*TextToggle.outerOffset: 0
+ *blink_panel*TextToggle.innerOffset: 2
+ *blink_panel*Command.height: 23
+ *blink_panel*Arrow.width: 16
+ *blink_panel*Arrow.height: 20
+
+
+ *brFramesLabel.label: Frames:
+ *brFrame1.menuName: frame1Menu
+ *brFrame2.menuName: frame2Menu
+ *brFrame3.menuName: frame3Menu
+ *brFrame4.menuName: frame4Menu
+ *brFrame5.menuName: frame5Menu
+ *brFrame6.menuName: frame6Menu
+ *brFrame7.menuName: frame7Menu
+ *brFrame8.menuName: frame8Menu
+ *brFrame9.menuName: frame9Menu
+ *brFrame10.menuName: frame10Menu
+ *brFrame11.menuName: frame11Menu
+ *brFrame12.menuName: frame12Menu
+ *brFrame13.menuName: frame13Menu
+ *brFrame14.menuName: frame14Menu
+ *brFrame15.menuName: frame15Menu
+ *brFrame16.menuName: frame16Menu
+ *brReset.label: Reset
+
+ *brRateLabel.label: Rate:
+ *brBRframe.frameType: sunken
+ *brBRframe.frameWidth: 1
+ *brBRtext.width: 40
+ *brBRtext.height: 23
+ *brBRdecrease.direction: left
+ *brBRincrease.direction: right
+ *brRegButton.label: Register
+ *brMatchButton.label: Match LUTs
+ *brBlinkButton.label: Blink
+ *brAregButton.label: Auto-Register
+}
+
+
+set Resources(hdr_panel) { \
+
+ *hdr_panel.geometry: 550x600
+ *hdr_panel.title: Image Header
+
+ *hdr_panel*SimpleMenu.borderColor: black
+ *hdr_panel*SimpleMenu.borderWidth: 1
+ *hdr_panel*SimpleMenu.foreground: White
+ *hdr_panel*SimpleMenu.background: SteelBlue
+
+ *hdrMenuFrame.frameType: raised
+ *hdrMenuFrame.frameWidth: 2
+ *hdrLayout.layout: vertical { \
+ hdrMenuFrame < +inf -inf * > \
+ hdrObjGroup < +inf -inf * > \
+ hdrTabFrame < +inf -inf * +inf -inf> \
+ }
+
+ *hdrMenuBar*borderWidth: 0
+ *hdrMenuBar*Command.internalHeight: 5
+ *hdrMenuBar*Command.internalWidth: 12
+ *hdrMenuBar.layout: vertical { \
+ 5 < -5 > \
+ horizontal { 10 < +inf -10> hdrClose 7 } \
+ 5 < -5 > \
+ }
+ *hdrClose.label: Dismiss
+
+ *hdrObjGroup.label:
+ *hdrObjGroup.outerOffset: 7
+ *hdrObjGroup.innerOffset: 4
+ *hdrObjLayout.borderWidth: 0
+ *hdrObjLayout.layout: vertical { \
+ horizontal { hdrObjLabel 2 hdrObjMenu < +inf -inf * > 2 } \
+ }
+ *hdrObjLabel.label: Image Name:
+ *hdrObjMenu.label:
+ *hdrObjMenu.justify: left
+ *hdrObjMenu.font: 7x13
+ *hdrObjMenu.menuName: objMenu
+ *hdrObjMenu.internalWidth: 5
+ *hdrObjMenu.internalHeight: 1
+ *hdrObjMenu.shadowWidth: 1
+
+ *hdrHdrGroup.tabLabel: Image Header
+ *hdrHdrGroup.label:
+ *hdrHdrGroup.outerOffset: 7
+ *hdrHdrGroup.innerOffset: 5
+ *hdrHdrLayout.borderWidth: 0
+ *hdrHdrLayout.layout: vertical { \
+ horizontal { \
+ hdrFilter 2 hFindFrame < +inf -inf * > 2 hdrFind 1 hdrClear \
+ } \
+ 5 \
+ hdrText < +inf -inf * +inf -inf > \
+ }
+ *hFindEntry*editType: edit
+ *hFindEntry*font: 7x13
+ *hFindEntry*displayCaret: True
+ *hFindEntry*width: 150
+ *hFindFrame.frameWidth: 1
+ *hFindFrame*borderWidth: 0
+ *hFindFrame.frameType: sunken
+ *hFindFrame.width: 150
+ *hFindFrame.height: 23
+ *hdrFilter.label: Keyword Filter
+ *hdrFind.label: Search
+ *hdrClear.label: Clear
+
+ ! Resources if the header text widget is AsciiText
+! *hdrText*scrollVertical: Always
+! *hdrText*scrollHorizontal: Always
+! *hdrText*editType: edit
+! *hdrText*font: 7x13
+! *hdrText*background: #c4c4c4
+! *hdrText*displayCaret: False
+! *hdrText*bottomMargin: 10
+! *hdrText*Scrollbar.width: 15
+! *hdrText*Scrollbar.height: 15
+
+ ! Resources if the header text widget is HTML
+ *hdrText.width: 600
+ *hdrText.height: 500
+ *hdrText.anchorUnderlines: 1
+ *hdrText.visitedAnchorUnderlines: 1
+ *hdrText.verticalScrollOnRight: True
+ *hdrText.plainFont: 7x13
+ *hdrText.marginWidth: 5
+ *hdrText.marginHeight: 5
+
+
+ *hdrWcsGroup.tabLabel: Image WCS Info
+ *hdrWcsGroup.label:
+ *hdrWcsGroup.outerOffset: 5
+ *hdrWcsGroup.innerOffset: 5
+ *hdrWcsGroup*Text*scrollVertical: whenNeeded
+ *hdrWcsGroup*Text*scrollHorizontal: whenNeeded
+ *hdrWcsGroup*Text*editType: edit
+ *hdrWcsGroup*Text*displayCaret: False
+ *hdrWcsGroup*Text*borderWidth: 0
+ *hdrWcsGroup*Text*editType: edit
+ *hdrWcsGroup*Text*font: 7x13
+ *hdrWcsGroup*Text*Scrollbar.width: 15
+ *hdrWcsGroup*Text*Scrollbar.height: 15
+ *hdrWcsLayout.borderWidth: 0
+ *hdrWcsLayout.layout: vertical { \
+ 2 < -2 > \
+ hdrInfoGroup < +inf -inf * > \
+ 2 < -2 > \
+ hdrKeywGroup < +inf -inf * +inf -inf > \
+ -4 \
+ }
+ *hdrInfoGroup.label: Basic WCS Information
+ *hdrInfoGroup.outerOffset: 7
+ *hdrInfoGroup.innerOffset: 0
+ *hdrIGFrame.frameType: sunken
+ *hdrIGFrame.frameWidth: 1
+ *hdrIGText.height: 130
+! *hdrIGText*background: black
+! *hdrIGText*foreground: yellow2
+ *hdrIGText*background: #adadad
+ *hdrIGText*foreground: black
+ *hdrWcsGroup*hdrIGText*scrollVertical: never
+ *hdrWcsGroup*hdrIGText*scrollHorizontal: never
+ *hdrWcsGroup*hdrIGText*font: 7x13
+ *hdrKeywGroup.label: WCS Header Keywords
+ *hdrKeywGroup.outerOffset: 7
+ *hdrKeywGroup.innerOffset: 5
+ *hdrKGFrame.frameType: sunken
+ *hdrKGFrame.frameWidth: 1
+ *hdrKGText*background: #c4c4c4
+ *hdrKGText*bottomMargin: 10
+
+ *hdrIGText*background: #c4c4c4
+ *hdrIGFrame.frameWidth: 0
+}
+
+
+set Resources(pixel_table) { \
+
+ *pixel_panel.title: Image Pixel Table
+ *pixel_panel*SimpleMenu.borderWidth: 1
+ *pixel_panel*SimpleMenu.borderColor: black
+ *pixel_panel*SimpleMenu.foreground: White
+ *pixel_panel*SimpleMenu.background: SteelBlue
+
+ *pixtabMenuBar*borderWidth: 0
+ *pixtabMenuBar*Command.internalHeight: 4
+ *pixtabMenuBar*Command.internalWidth: 12
+ *pixtabMenuBar.layout: vertical { \
+ 5 \
+ horizontal { \
+ 5 \
+ pixtabSize 10 < +inf -10> pixtabHelp 5 pixtabClose \
+ 7 \
+ } \
+ 5 \
+ }
+ *pixtabSize.label: Size
+ *pixtabSize.menuName: pixtabMenu
+ *pixtabHelp.label: Help
+ *pixtabHelp.sensitive: False
+ *pixtabClose.label: Dismiss
+
+ *pixtabMenuFrame.frameType: raised
+ *pixtabMenuFrame.frameWidth: 2
+ *pixel_table.layout: vertical { \
+ 1 \
+ pixtabMenuFrame < +inf -inf * > \
+ 1 \
+ pixtabFrame < +inf -inf * +inf -inf > \
+ 1 \
+ }
+
+
+ *pixtabFrame.frameType: raised
+ *pixtabFrame.frameWidth: 0
+ *pixtabFrame*borderWidth: 0
+ *pixtabFrame*font: 6x10
+ *pixtabFrame*MultiList.font: -*-helvetica-medium-r-normal-*-10-*
+ *pixtabFrame*Label.font: -*-helvetica-medium-r-normal-*-10-*
+ *pixtabFrame*TextToggle.font: -*-helvetica-medium-r-normal-*-10-*
+
+ *pixtabFrame*MultiList.forceColumns: True
+ *pixtabFrame*MultiList.defaultColumns: 5
+ *pixtabFrame*MultiList.shadeSurplus: False
+ *pixtabFrame*MultiList.borderWidth: 0
+ *pixtabFrame*MultiList.rowHeight: 25
+ *pixtabFrame*MultiList.rowSpacing: 7
+ *pixtabFrame*MultiList.internalWidth: 7
+ *pixtabFrame*MultiList.internalHeight: 4
+ *pixtabFrame*MultiList.width: 410
+ *pixtabFrame*MultiList.height: 160
+ *pixtabFrame*MultiList.columnWidth: 50
+ *pixtabFrame*MultiList.columnSpacing: 2
+ *pixtabFrame*MultiList.maxSelectable: 1
+ *pixtabFrame*MultiList.highlightForeground: red
+ *pixtabFrame*MultiList.highlightBackground: #c4c4c4
+ *pixtabFrame*MultiList.background: #c4c4c4
+ *pixtabFrame*TextToggle.background: #c4c4c4
+
+ *pixtabFrame*Label.width: 00
+ !*pixtabFrame*Label.resize: False
+
+ *meanFrame.frameWidth: 2
+ *meanFrame.frameType: chiseled
+ *meanFrame.outerOffset: 0
+ *meanFrame.width: 120
+ *meanLabel.label: Mean:
+ *meanValue.label:
+ *meanValue.resize: False
+
+ *sigFrame.frameWidth: 2
+ *sigFrame.frameType: chiseled
+ *sigFrame.outerOffset: 0
+ *sigFrame.width: 120
+ *sigLabel.label: Stdev:
+ *sigValue.label:
+ *sigValue.resize: False
+
+ *ptColFrame.frameWidth: 0
+ *ptColFrame.outerOffset: 0
+ *ptRowFrame.frameWidth: 0
+ *ptRowFrame.outerOffset: 0
+
+ *pixtabFrame*ptColLabs.width: 410
+ *pixtabFrame*ptColLabs.height: 23
+ *pixtabFrame*ptColLabs.defaultColumns: 5
+ *pixtabFrame*ptColLabs.forceColumns: True
+ *pixtabFrame*ptColLabs.columnWidth: 50
+ *pixtabFrame*ptColLabs.columnSpacing: 2
+ *pixtabFrame*ptRowLabs.width: 60
+ *pixtabFrame*ptRowLabs.height: 110
+ *pixtabFrame*ptRowLabs.defaultColumns: 1
+ *pixtabFrame*ptRowLabs.forceColumns: True
+ *pixtabFrame*ptRowLabs.verticalList: True
+ *pixtabFrame*ptRowLabs.columnWidth: 50
+ *pixtabFrame*ptRowLabs.columnSpacing: 2
+ *pixtabFrame*pixtab.verticalList: True
+
+ *ptFrame.outerOffset: 0
+ *ptFrame.innerOffset: 0
+ *ptFrame.borderWidth: 0
+ *ptFrame.frameWidth: 1
+ *ptFrame.frameType: sunken
+ *ptLayout.layout: vertical { \
+ 3 \
+ horizontal { 65 ptColFrame < +inf -inf * > 5 } \
+ 1 \
+ horizontal { \
+ vertical { ptRowFrame< * +inf -inf > 5 } \
+ 1 \
+ vertical { ptFrame } \
+ 5 \
+ } \
+ 1 \
+ horizontal { \
+ 2 < +inf > \
+ meanLabel meanFrame < +inf -inf * > 2 \
+ sigLabel sigFrame < +inf -inf * > \
+ 10 \
+ } \
+ }
+}
+
+
+set Resources(help_panel) { \
+
+ !----------------------
+ ! Help panel resources.
+ !----------------------
+ *help_panel.title: XImtool Help Summary
+ *help_panel.width: 500
+ *help_panel.height: 550
+ *helpLayout*borderWidth: 0
+ *helpLayout*Command.internalHeight: 4
+ *helpLayout*Command.internalWidth: 12
+ *helpLayout*HTML*shadowWidth: 1
+ *helpLayout*helpText*Scrollbar.shadowWidth: 1
+
+ *helpMenuGroup.label:
+ *helpMenuGroup.height: 45
+ *helpMenuGroup.outerOffset: 0
+ *helpMenuGroup.innerOffset: 0
+ *helpMenuGroup.frameType: raised
+ *helpMenubar.layout: vertical { \
+ 5 < -5 > \
+ horizontal { 20 < +inf -20 > helpClose 7 } \
+ 5 < -5 > \
+ }
+ *helpBack.label: Back
+ *helpBack.sensitive: False
+ *helpForward.label: Forward
+ *helpForward.sensitive: False
+ *helpHome.label: Home
+ *helpClose.label: Dismiss
+
+
+ *hfEntry*editType: edit
+ *hfEntry*font: 7x13
+ *hfEntry*displayCaret: True
+ *hfFrame.frameWidth: 1
+ *hfFrame.frameType: sunken
+ *hfFrame.width: 250
+ *hfFind.label: Search
+ *hfFind.shadowWidth: 1
+ *hfClear.label: Clear
+ *hfClear.shadowWidth: 1
+
+ *helpLayout.layout: vertical { \
+ -1 \
+ horizontal { helpMenuGroup < +inf -inf * > } \
+ 5 \
+ horizontal { \
+ 5 \
+ helpBack 2 helpForward 2 helpHome \
+ 20 < +inf -20 > \
+ hfFrame < +inf -inf * > 3 hfFind 1 hfClear \
+ 5 \
+ } \
+ 5 \
+ horizontal { helpTextFrame < +inf -inf * +inf -inf > } \
+ horizontal { helpInfoLayout < +inf -inf * > } \
+ -1 \
+ }
+ *helpTextFrame.frameWidth: 1
+ *helpTextFrame.frameType: sunken
+ *helpText.width: 600
+ *helpText.height: 500
+ *helpText.anchorUnderlines: 1
+ *helpText.visitedAnchorUnderlines: 1
+ *helpText.verticalScrollOnRight: true
+ *helpText*Scrollbar.shadowWidth: 1
+ *helpText.plainFont: -adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*
+ *helpText.plainboldFont: -adobe-courier-bold-r-normal-*-12-*-*-*-*-*-*-*
+ *helpText.plainitalicFont: -adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*
+! *helpText.boldFont: 6x12bold
+
+
+ ! Contact info at the bottom of the panel.
+ *helpInfoLayout*Label.justify: center
+ *helpInfoLayout*Label.internalHeight: 0
+ *helpInfoLayout.layout: horizontal { \
+ 5 \
+ vertical { 5 helpIRAFLogo 5 } \
+ 1 < +inf > \
+ vertical { \
+ 5 \
+ helpInfo1 < +inf -inf * +inf -inf > \
+ helpInfo2 < +inf -inf * +inf -inf > \
+ helpInfo3 < +inf -inf * +inf -inf > \
+ 5 \
+ } \
+ 1 < +inf > \
+ vertical { 5 helpNOAOLogo 5 } \
+ 5 \
+ }
+ *helpInfo1.label: XIMTOOL_VERSION
+ *helpInfo2.label: For help or questions: http://iraf.net
+ *helpInfo3.label: \
+ NOAO is operated by AURA under cooperative agreement with the NSF
+
+ *helpInfoLayout*helpInfo1.font: -*-helvetica-medium-r-normal-*-12-*-*-*
+ *helpInfoLayout*helpInfo2.font: -*-helvetica-medium-r-normal-*-12-*-*-*
+ *helpInfoLayout*helpInfo3.font: -*-helvetica-medium-r-normal-*-10-*-*-*
+
+ *helpInfoLayout.helpIRAFLogo.internalWidth: 0
+ *helpInfoLayout.helpIRAFLogo.internalHeight: 0
+ *helpInfoLayout.helpIRAFLogo.foreground: SteelBlue
+ *helpInfoLayout.helpIRAFLogo.background: white
+ *helpInfoLayout.helpNOAOLogo.internalWidth: 0
+ *helpInfoLayout.helpNOAOLogo.internalHeight: 0
+ *helpInfoLayout.helpNOAOLogo.foreground: SteelBlue
+ *helpInfoLayout.helpNOAOLogo.background: white
+}
+
+set Resources(tcl_panel) { \
+
+ !--------------------------------
+ ! Define a debug Tcl shell.
+ !--------------------------------
+ *tcl_panel.width: 550
+ *tcl_panel.height: 180
+ *tcl_panel.title: Debug TCL Command Entry
+ *tclLayout*borderWidth: 0
+ *tclLayout*Frame.frameType: sunken
+ *tclLayout*Frame.frameWidth: 2
+ *tclLayout.layout: vertical { \
+ 0 < +0 -0 > \
+ tclCmdGroup < +inf -inf * > \
+ tclFrame < +inf -inf * +inf -inf> \
+ 0 < +0 -0 > \
+ }
+ *tclEntry*foreground: black
+ *tclEntry*editType: edit
+ *tclEntry*type: string
+ *tclEntry*font: 7x13
+ *tclEntry*scrollVertical: Always
+ *tclEntry*scrollHorizontal: whenNeeded
+
+ *tclCmdGroup.label:
+ *tclCmdGroup.outerOffset: 0
+ *tclCmdGroup.innerOffset: 0
+ *tclCmd.layout: vertical { \
+ 5 \
+ horizontal { \
+ 5 \
+ tclClear 3 \
+ tclExecute \
+ 10 < +inf -10> \
+ tclDismiss \
+ 5 \
+ } \
+ 5 \
+ }
+ *tclClear.label: Clear
+ *tclExecute.label: Execute
+ *tclDismiss.label: Dismiss
+}
+
+
+set Resources(warning) { \
+
+ ! ---------------------
+ ! WARNING dialog.
+ ! ---------------------
+ *warning.geometry: +400+300
+ *warning*borderWidth: 0
+ *warning*TextBox.frameWidth: 0
+
+ *warn.layout: vertical { \
+ 5 < -5 > \
+ horizontal { 5 warnFrame < +inf * +inf > 5 } \
+ 5 < -5 > \
+ horizontal { \
+ 10 \
+ warnOk < +inf * > \
+ 5 < +inf -5 > \
+ warnCancel < +inf * > \
+ 10 \
+ } \
+ 5 < -5 > \
+ }
+ *warnOk.label: Okay
+ *warnCancel.label: Cancel
+
+ *WFlayout.layout: horizontal { \
+ 5 < -5 > \
+ vertical { 5 < +inf -5 > warnIcon 5 < +inf -5 > } \
+ 5 < -5 > \
+ warnText < +inf -inf * +inf -inf > \
+ 5 < -5 > \
+ }
+
+ *warnLabel.label: Warning
+ *warnLabel.width: 300
+ *warnLabel.height: 20
+ *warnFrame.frameType: sunken
+ *warnFrame.frameWidth: 2
+ *warnIcon.location: 0 0 40 40
+ *warnIcon.image: WARNING
+ *warnText.label: generic warning text
+ *warnText.width: 270
+ *warnText.height: 60
+ *warnText.background: #c4c4c4
+}
+
+
+
+
+set Resources(gui) { \
+
+ ! GUI resources.
+ ! ------------------------------
+ *autoscale: True
+ *zoomfactors: 1 2 4 8
+ *displayCoords: True
+ *displayPanner: True
+ *displayMagnifier: False
+ *blinkRate: 1.0
+ *pannerArea: 150*150
+ *pannerGeom: -5+5
+ *magnifierArea: 100*100
+ *magnifierGeom: +5+5
+ *wcsboxGeom: -5-5
+ *maxContrast: 5.0
+ *showToolBar: False
+ *showPanelBar: False
+ *warnings: True
+ *centerBoxSize: 5
+ *peakCentroid: True
+}
+
+
+
+
+
+################################################################################
+# GUI Bootstrap Procedures
+################################################################################
+
+# Initialize the widget tree.
+proc InitWidgetTree args \
+{
+ global Objects Resources Version
+
+
+ # Add a new objects description for each of the panels found so we can
+ # create them by name later rather that with the defaults.
+
+ set guiResources ""
+ foreach obj [array names Objects] {
+ set guiResources \
+ [ format "%s\n\n*%s_objects:%s\n" \
+ $guiResources $obj $Objects($obj) ]
+ }
+
+ # Now append all the Resource strings, changing any version strings as
+ # needed.
+
+ foreach res [array names Resources] {
+ regsub -all XIMTOOL_VERSION $Resources($res) $Version ver
+ set guiResources [ format "%s\n\n%s\n\n" $guiResources $ver ]
+ }
+
+ # Define all of the GUI objects and resources.
+ appInitialize ximtool XImtool $guiResources
+}
+
+
+# Realize a window module, i.e. create it's objects.
+proc Realize { module args } \
+{
+ global Objects
+
+ # Create any widgets for the module. We only do this once and set a
+ # flag to indicate the objects have been created so we don't do it on
+ # subsequent realizations.
+ if { [info exists Objects($module)] } {
+ createObjects [format "%s_objects" $module]
+ reset-server
+ }
+}
+
+
+# Bootstrap up the GUI.
+InitWidgetTree
+Realize ximtool
+Realize parameters
+Realize panelShell
+Realize tcl_panel
+Realize pixel_table
+Realize hdr_panel
+Realize blink_panel
+Realize help_panel
+Realize xpan_panel
+Realize xmag_panel
+Realize warning
+
+reset-server
+
+# Set the gterm widget focus.
+send colorbar setGterm ; send colorbar activate
+send imagewin setGterm ; send imagewin activate
+
+# Crank it up.
+activate
+
+
+
+
+##############################################################################
+# Utility Procedures.
+##############################################################################
+
+# Utility procedure to test True/False strings in resources.
+proc true {v} {expr {$v == "true" || $v == "True" || $v == "TRUE"}}
+
+# Utility functions.
+proc min {a b} { expr {($a < $b) ? $a : $b} }
+proc max {a b} { expr {($a > $b) ? $a : $b} }
+
+# Global variables.
+set version "NOAO/IRAF XImtool Version 2.0BETA"
+
+set winWidth [send imagewin get width ] ;# display window width
+set winHeight [send imagewin get height] ;# display window height
+set appWidth [send display get width ] ;# application window width
+set appHeight [send display get height] ;# application window height
+set marker none ;# selected marker
+set markno 0 ;# used to name new markers
+set ruler none ;# selected ruler
+set ruleno 0 ;# used to name new rulers
+set blinkFrames "1 2" ;# list of blink frames
+set auto_reg 0
+
+set panel_up 0 ;# control panel mapped
+set help_up 0 ;# help panel mapped
+set ism_enable 0 ;# ISM is running
+set ism_capable 1 ;# Client is ISM capable
+set frameCache(0) "" ;# ISM frame cache
+
+set ctype "equatorial" ;# default coord type
+set eqtype "fk5" ;# default equatorial type
+
+# Global constants.
+set MAX_FRAMES 16 ;# max frame buffers
+
+# TCL constants
+set tcl_precision 8
+
+
+
+# Window resize callbacks.
+proc winResize {w width height} {
+ global winWidth winHeight
+
+ if {$width <= 1 || $height <= 1} \
+ return
+
+ set winWidth $width
+ set winHeight $height
+} ; send imagewin addCallback winResize resize
+
+proc appResize {w width height} \
+{
+ global doHcut doVcut cutXPos cutYPos
+ global appWidth appHeight
+
+ set appWidth $width
+ set appHeight $height
+
+ catch {
+ if {$doHcut} {
+ send hcutPlot clearScreen
+ hcutInit
+ send hcutAxes1 redraw ; send hcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+ if {$doVcut} {
+ send vcutPlot clearScreen
+ vcutInit
+ send vcutAxes1 redraw ; send vcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+ }
+} ; #send imagewin addCallback appResize resize
+
+
+
+# Additional global variables, taking default values from resources.
+getResources {
+ { zoomfactors }
+ { displayCoords }
+ { displayPanner }
+ { displayMagnifier }
+ { blinkRate }
+ { pannerArea }
+ { pannerGeom }
+ { magnifierArea }
+ { magnifierGeom }
+ { wcsboxGeom }
+ { maxContrast }
+ { showToolBar }
+ { showPanelBar }
+ { warnings }
+ { centerBoxSize }
+ { peakCentroid }
+ { highlight }
+}
+
+set warnings [true $warnings]
+set defaultBlinkRate $blinkRate
+
+# Client state variables (UI parameter objects). Certain of these parameters
+# we mirror in Tcl variables here, updating the values with a callback when
+# the parameter value changes. Others require special callbacks.
+
+set frame 1 ;# current display frame
+set nframes 0 ;# number of frame buffers
+set frames {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16} ;# list of image frames
+set frameWidth 0 ;# frame buffer width, pixels
+set frameHeight 0 ;# frame buffer height, pixels
+set frameDepth 8 ;# frame buffer pixel size, bits
+set cursorMode 0 ;# true when cursor read pending
+
+foreach i $frames {
+ set frameZoomX($i) 0 ;# X zoom factor
+ set frameZoomY($i) 0 ;# Y zoom factor
+ set frameCenterX($i) 0 ;# X center of field
+ set frameCenterY($i) 0 ;# Y center of field
+ set frameScaleX($i) 0 ;# X scale factor
+ set frameScaleY($i) 0 ;# Y scale factor
+ set frameOffsetX($i) 0 ;# X register offset
+ set frameOffsetY($i) 0 ;# Y register offset
+ set enhancement($i) none ;# colortable enhancement
+}
+
+
+#trace variable frameOffsetX w debug_pvar ;# Debug stuff
+#trace variable frameOffsetY w debug_pvar
+#trace variable frameZoomX w debug_pvar
+#trace variable frameZoomY w debug_pvar
+#trace variable frameScaleX w debug_pvar
+#trace variable frameScaleY w debug_pvar
+
+proc debug_pvar { name element op } \
+{
+ if {$element != ""} {
+ set name ${name}($element)
+ }
+ upvar $name x
+ puts "Variable $name set to $x"
+}
+
+
+
+
+################################################################################
+# Cut-plot handling routines.
+################################################################################
+
+set doHcut 0
+set doVcut 0
+set hstate 0
+set vstate 0
+set plotSpeed 1 ; send plotSpeed set on True
+set curJump 1 ; send curJump set on True
+set curTrack 1 ; send curTrack set on True
+
+set cutXPos [expr "$winWidth / 2"]
+set cutYPos [expr "$winHeight / 2"]
+set cutXScale 1.0
+set cutYScale 1.0
+
+
+
+# Change the cursor to the crosshair when in the plot
+proc cutCursor { widget event args } \
+{
+ global doHcut doVcut curTrack
+
+ if {! $curTrack} \
+ return
+
+ if { $event == "enterNotify" } {
+ send $widget setCursorType ginMode
+
+ # Disable the update of the graph we're in while in the plot window.
+ if {$widget == "hcutPlot"} { set doHcut 0 } else { set doVcut 0 }
+ } elseif { $event == "leaveNotify" } {
+ send $widget setCursorType idle
+
+ # Enable the update of the graph we're leaving.
+ if {$widget == "hcutPlot"} { set doHcut 1 } else { set doVcut 1 }
+ }
+ cutPlotRefresh
+}
+foreach w {hcutPlot vcutPlot} {
+ send $w addEventHandler cutCursor enterWindowMask
+ send $w addEventHandler cutCursor leaveWindowMask
+}
+
+proc cutPlotRefresh args \
+{
+ global doHcut doVcut cutXPos cutYPos
+
+ if {$doHcut} {
+ send hcutPlot clearScreen
+ hcutInit
+ send hcutAxes1 redraw ; send hcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+ if {$doVcut} {
+ send vcutPlot clearScreen
+ vcutInit
+ send vcutAxes1 redraw ; send vcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+} ; send imagewin addEventHandler cutPlotRefresh enterWindowMask
+
+proc cutPlotRedraw args \
+{
+ global doHcut doVcut cutXPos cutYPos
+
+ if {$doHcut} {
+ send hcutAxes1 redraw ; send hcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+ if {$doVcut} {
+ send vcutAxes1 redraw ; send vcutAxes2 redraw
+ cutPlots $cutXPos $cutYPos
+ }
+}
+
+
+# Disable the options when we first start up.
+#send plotOpts "set height 1 ; set width 1 ; unmap"
+foreach w {plotOpts hcutFrame vcutFrame} { send $w unmap }
+
+
+# Cut-Plot options callback.
+proc doPlotOpts { widget type state args } \
+{
+ global plotSpeed curJump curTrack doHcut doVcut
+ global cutXPos cutYPos
+
+ if {$state} { set not 0 } else { set not 1 }
+
+ switch $widget {
+ plotSpeed { if {$state} {
+ send plotAccurate set on 0 ; send plotImgPix set on 0
+ } else {
+ send plotSpeed set on True ;
+ }
+ set plotSpeed $not
+ }
+ plotAccurate { if {$state} {
+ send plotImgPix set on 0 ; send plotSpeed set on 0
+ } else {
+ send plotSpeed set on True ;
+ }
+ set plotSpeed $not
+ }
+ plotImgPix { if {$state} {
+ send plotAccurate set on 0 ; send plotSpeed set on 0
+ } else {
+ send plotSpeed set on True ;
+ }
+ set plotSpeed $not
+ }
+ curJump { send curSmooth set on $not ; set curJump $state }
+ curSmooth { send curJump set on $not ; set curJump $not }
+ curTrack { set curTrack $state }
+ }
+
+ # Redraw the plots right away.
+ if {$widget == "plotSpeed" || $widget == "plotAccurate"} {
+ cutPlots $cutXPos $cutYPos
+ }
+}
+foreach w { plotSpeed plotAccurate plotImgPix curJump curSmooth curTrack } {
+ send $w addCallback doPlotOpts
+}
+
+
+# Toggle the display of the horizontal or vertical cut plot windows.
+
+proc cutPlotToggle { widget type state args } \
+{
+ global doHcut doVcut cutXPos cutYPos hstate vstate
+ set debug 0
+
+ set hstate [send hcut get state]
+ set vstate [send vcut get state]
+ set w [send display get width]
+ set h [send display get height]
+
+ if {$debug} { print " " ; print [format "display: %d x %d\n" $w $h] }
+
+ if {$widget == "hcut"} {
+ set hfw [expr [send hcutFrame get width] - 4]
+ set hpw [send hcutPlot get width]
+ if {$state} {
+ # Enable the plot and resize the main window
+ if {$vstate} {
+ send plotOpts set width 134
+ }
+ send hcutFrame "set width $hpw ; set height 132; map"
+ send hcutPlot "set width $hfw ; set height 128"
+ send display "set height [ expr ($h + 132) ]; set width $w"
+ drawHcutAxes 1
+ setHcutCursor 1
+ if {$vstate} {
+ send plotOpts "set height 134 ; map"
+ vcutInit
+ }
+ hcutInit ;# Initialize the plot.
+ } else {
+ # Disable the plot and resize the main window
+ setHcutCursor 0
+ drawHcutAxes 0
+ send hcutPlot clearScreen
+ send plotOpts "unmap; set height 4"
+ send hcutFrame "unmap; set width $hfw; set height 4"
+ send plotOpts "set width 4"
+ send display "set height [ expr ($h - 128) ] ; set width $w"
+ if {$vstate} {
+ vcutInit
+ }
+ }
+ set doHcut $state
+ } else {
+ set vfh [expr [send vcutFrame get height] - 4]
+ set vph [send vcutPlot get height]
+ if {$state} {
+ # Enable the plot and resize the main window
+ if {$hstate} {
+ send plotOpts set height 134
+ }
+ send vcutFrame "set height $vph ; set width 132 ; map"
+ send vcutPlot "set height $vfh ; set width 128"
+ send display "set height $h; set width [ expr ($w + 132) ]"
+ drawVcutAxes 1
+ setVcutCursor 1
+ if {$hstate} {
+ send plotOpts "set height 134 ; set width 134; map"
+ hcutInit
+ }
+ vcutInit ;# Initialize the plot.
+ } else {
+ # Disable the plot and resize the main window
+ setVcutCursor 0
+ drawVcutAxes 0
+ send vcutPlot clearScreen
+ send plotOpts "unmap; set width 4"
+ send vcutFrame "unmap; set height $vfh; set width 4"
+ send plotOpts "set height 4"
+ send display "set width [ expr ($w - 128) ] ; set height $h"
+ if {$hstate} {
+ hcutInit
+ }
+ }
+ set doVcut $state
+ }
+
+ if {$debug} {
+ print [format " hFrame: %d x %d\n" \
+ [send hcutFrame get width] [send hcutFrame get height] ]
+ print [format " hPlot: %d x %d\n" \
+ [send hcutPlot get width] [send hcutPlot get height] ]
+ print [format " vFrame: %d x %d\n" \
+ [send vcutFrame get width] [send vcutFrame get height] ]
+ print [format " vPlot: %d x %d\n" \
+ [send vcutPlot get width] [send vcutPlot get height] ]
+ print [format "state: %d %d\n" $hstate $vstate]
+ print [format "display: %d x %d\n" $w $h]
+ }
+
+ cutPlots $cutXPos $cutYPos
+} ; foreach w { hcut vcut } { send $w addCallback cutPlotToggle }
+
+
+# Draw the cut plots.
+proc cutPlots { xpos ypos args } \
+{
+ global doHcut doVcut cutXPos cutYPos hstate vstate
+
+ catch {
+ if {$doHcut} {
+ drawHcutIndicator $xpos
+ if {$hstate} { plotHcut $xpos $ypos }
+ }
+ if {$doVcut} {
+ drawVcutIndicator $xpos
+ if {$vstate} { plotVcut $xpos $ypos }
+ }
+ }
+
+ set cutXPos $xpos ; set cutYPos $ypos
+}
+
+
+################################################################################
+# Horizontal Cut-Plot Routines
+################################################################################
+
+set hcutVec {}
+
+# Initiailize the horizontal cut-plot
+proc hcutInit args \
+{
+ global logz cutXScale winWidth cutXPos cutYPos
+
+ # Just get some dummy pixels, we only want the z1/z2 values so we can
+ # initialize the labels.
+ set xp [expr [send imagewin get width] / 2 ]
+ set yp [expr [send imagewin get height] / 2 ]
+ set pix [send client getPixels $xp $yp 2 2 ]
+ set z1 [lindex $pix 0]
+ set z2 [lindex $pix 1]
+
+ send hcutPlot getPhysRes xr yr
+ send hcutPlot setLogRes $xr $yr
+
+ set logx [send imagewin get width]
+ set logz [expr ($z2 - $z1)]
+ set cutXScale [expr ($xr * 1.0) / ($logx * 1.0)]
+
+ # Initialize the labels.
+ send vcutPlot "setColorIndex 6"
+ drawHcutLabels $z1 $z2
+}
+
+# Draw the horizontal cut-plot.
+proc plotHcut { xpos ypos } \
+{
+ global doHcut cutXScale
+ global hcutVec cutXPos plotSpeed
+
+
+ if { ($xpos == 0 && $ypos == 0) || ! $doHcut } \
+ return
+
+ # Do the horizontal cut plot.
+ set width [send imagewin get width]
+ if {$plotSpeed} {
+ set pix [send client getPixels 0 $ypos $width 1 2 5 $cutXScale]
+ } else {
+ set pix [send client getPixels 0 $ypos $width 1 2 1 $cutXScale]
+ }
+ set z1 [lindex $pix 0]
+ set z2 [lindex $pix 1]
+ set vec [lrange $pix 2 end]
+
+ # Erase the last plot rather than clear the screen and redraw
+ # the new vector.
+ send hcutPlot setColorIndex background
+ send hcutPlot drawPolyline $hcutVec
+ send hcutPlot setColorIndex foreground
+ send hcutPlot drawPolyline $vec
+ set hcutVec $vec ;# save for later erasure
+
+ # Mark the cursor position.
+ drawHcutIndicator $xpos
+
+ # Minimize the screen refreshes to speed things up.
+ if { [expr "$ypos % 3"] == 0} {
+ catch {
+ drawHcutLabels $z1 $z2 ;# redraw the labels
+ }
+ send hcutAxes1 redraw ;# redraw the axes markers
+ send hcutAxes2 redraw
+ }
+}
+
+
+# Create markers to indicate axes on the horizontal cut-plot.
+proc drawHcutAxes { state } \
+{
+ if {$state} {
+ send hcutPlot createMarker hcutAxes1 \
+ type box \
+ createMode noninteractive \
+ lineColor gray60 \
+ lineStyle 0 \
+ x 1 \
+ y 60 \
+ height 30 \
+ width 4096 \
+ activated True \
+ visible True \
+ sensitive False
+ send hcutPlot createMarker hcutAxes2 \
+ type box \
+ createMode noninteractive \
+ lineColor gray60 \
+ lineStyle 0 \
+ x 1 \
+ y 1 \
+ height 60 \
+ width 4096 \
+ activated True \
+ visible True \
+ sensitive False
+ } else {
+ send hcutAxes1 destroy ; send hcutAxes2 destroy
+ }
+}
+
+# Create a marker to be used as the cursor indicator.
+proc setHcutCursor { state } \
+{
+ if {$state} {
+ set pts { {252 10} {260 10} {256 1} }
+
+ send hcutPlot createMarker hcutCursor \
+ type polygon \
+ createMode noninteractive \
+ lineColor black \
+ fill True \
+ fillColor yellow \
+ x 256 \
+ y 12 \
+ width 8 \
+ height 10 \
+ knotSize 0 \
+ activated True \
+ visible False \
+ sensitive False
+ send hcutCursor setVertices $pts
+ send hcutCursor set visible True
+
+ } else {
+ send hcutCursor destroy
+ }
+}
+
+# Label the axes on the horizontal cut plot.
+proc drawHcutLabels { z1 z2 } \
+{
+ set mid [expr "($z2-$z1)/2.0+$z1"]
+ set low [expr "($mid-$z1)/2.0+$z1"]
+ set high [expr "($z2-$mid)/2.0+$mid"]
+
+ send hcutPlot "setColorIndex 6 ; \
+ drawAlphaText 2 10 [format "%.1f" $z2] ; \
+ drawAlphaText 2 34 [format "%.1f" $high] ; \
+ drawAlphaText 2 64 [format "%.1f" $mid] ; \
+ drawAlphaText 2 94 [format "%.1f" $low] ; \
+ drawAlphaText 2 120 [format "%.1f" $z1]"
+}
+
+# Draw the cursor position indicator on the horizontal cut plot.
+proc drawHcutIndicator { xpos } \
+{
+ global cutXScale cutXPos
+
+ send hcutCursor move [expr ($xpos * $cutXScale)] 12
+ set cutXPos $xpos
+}
+
+# Track the cursor while in the cut-graph window.
+proc hcutWCSUpdate { x y args } \
+{
+ global cutYPos curTrack
+ if {$curTrack} {
+ wcsUpdate $x $cutYPos
+ }
+ drawHcutIndicator $x
+}
+
+
+
+
+################################################################################
+# Vertical Cut-Plot Routines
+################################################################################
+
+set vcutVec {}
+
+# Initiailize the vertical cut-plot
+proc vcutInit args \
+{
+ global cutYScale winWidth cutXPos cutYPos
+
+ # Just get some dummy pixels, we only want the z1/z2 values so we can
+ # initialize the labels.
+ set xp [expr [send imagewin get width] / 2 ]
+ set yp [expr [send imagewin get height] / 2 ]
+ set pix [send client getPixels $xp $yp 2 2 ]
+ set z1 [lindex $pix 0]
+ set z2 [lindex $pix 1]
+
+ send vcutPlot getPhysRes xr yr
+ send vcutPlot setLogRes $xr $yr
+
+ set logy [send imagewin get height]
+ set logz [expr ($z2 - $z1)]
+ set cutYScale [expr ($yr * 1.0) / ($logy * 1.0)]
+
+ # Initialize the labels.
+ send vcutPlot "setColorIndex 6; reset"
+ drawVcutLabels $z1 $z2
+}
+
+# Draw the horizontal cut-plot.
+proc plotVcut { xpos ypos } \
+{
+ global doVcut cutYScale
+ global vcutVec cutXPos cutYPos plotSpeed
+
+
+ if { ($xpos == 0 && $ypos == 0) || ! $doVcut } \
+ return
+
+ # Do the vertical cut plot.
+ set height [send imagewin get height]
+ if {$plotSpeed} {
+ set pix [send client getPixels $xpos 0 1 $height 3 5 $cutYScale]
+ } else {
+ set pix [send client getPixels $xpos 0 1 $height 3 1 $cutYScale]
+ }
+ set z1 [lindex $pix 0]
+ set z2 [lindex $pix 1]
+ set vec [lrange $pix 2 end]
+
+ # Draw the vector.
+ send vcutPlot setColorIndex background
+ send vcutPlot drawPolyline $vcutVec
+ send vcutPlot setColorIndex foreground
+ send vcutPlot drawPolyline $vec
+ set vcutVec $vec ;# save for later erasure
+
+ # Mark the cursor position.
+ drawVcutIndicator $ypos
+
+ # Minimize the screen refreshes to speed things up.
+ if { [expr "$xpos % 3"] == 0} {
+ catch {
+ drawVcutLabels $z1 $z2 ;# redraw the labels
+ }
+ send vcutAxes1 redraw ;# redraw the axes markers
+ send vcutAxes2 redraw
+ }
+}
+
+# Erase the last plot rather than clear the screen and redraw it all. The
+# erase is done by redrawing the last vector in the the background color.
+proc eraseOldVcut args \
+{
+ global cutYPos vcutVec
+
+ send vcutPlot setColorIndex background
+ send vcutPlot drawPolyline $vcutVec
+ send vcutPlot setColorIndex foreground
+}
+
+# Draw the horizontal cut-plot.
+# Create markers to indicate axes on the vertical cut-plot.
+proc drawVcutAxes { state } \
+{
+ if {$state} {
+ send vcutPlot createMarker vcutAxes1 \
+ type box \
+ createMode noninteractive \
+ lineColor gray60 \
+ lineStyle 0 \
+ x 60 \
+ y 1 \
+ height 4096 \
+ width 30 \
+ activated True \
+ visible True \
+ sensitive False
+ send vcutPlot createMarker vcutAxes2 \
+ type box \
+ createMode noninteractive \
+ lineColor gray60 \
+ lineStyle 0 \
+ x 1 \
+ y 1 \
+ width 60 \
+ height 4096 \
+ activated True \
+ visible True \
+ sensitive False
+ } else {
+ send vcutAxes1 destroy ; send vcutAxes2 destroy
+ }
+}
+
+# Create a marker to be used as the cursor indicator.
+proc setVcutCursor { state } \
+{
+ if {$state} {
+ set pts { {10 252} {10 260} {1 256} }
+
+ send vcutPlot createMarker vcutCursor \
+ type polygon \
+ createMode noninteractive \
+ lineColor black \
+ fill True \
+ fillColor yellow \
+ x 12 \
+ y 256 \
+ width 10 \
+ height 8 \
+ knotSize 0 \
+ activated True \
+ visible False \
+ sensitive False
+ send vcutCursor setVertices $pts
+ send vcutCursor set visible True
+
+ } else {
+ send vcutCursor destroy
+ }
+}
+
+# Label the axes on the vertical cut plot.
+proc drawVcutLabels { z1 z2 } \
+{
+ set mid [expr "($z2-$z1)/2.0+$z1"]
+ set low [expr "($mid-$z1)/2.0+$z1"]
+ set high [expr "($z2-$mid)/2.0+$mid"]
+
+ # Initialize the label strings and positions.
+ set labels {}
+ foreach i [list $z2 $high $mid $low $z1] {
+ lappend labels [ format "%.1f" $i ]
+ }
+ set xposns { 2 28 58 88 112 }
+
+ send vcutPlot "setColorIndex 6"
+
+ # Draw each label vertically down the position since we can't rotate
+ # the text.
+ set xp 0
+ foreach lab $labels {
+ set chars [split $lab {} ]
+ set yp 12
+ set xpos [lindex $xposns $xp]
+ foreach ch $chars {
+ if {$ch == "."} { incr yp -4 }
+ send vcutPlot drawAlphaText $xpos $yp $ch
+ incr yp 10
+ }
+ incr xp
+ }
+}
+
+
+# Draw the cursor position indicator on the horizontal cut plot.
+proc drawVcutIndicator { ypos } \
+{
+ global cutYScale cutYPos
+
+ send vcutCursor move 12 [expr ($ypos * $cutYScale)]
+ set cutYPos $ypos
+}
+
+
+# Track the cursor while in the cut-graph window.
+proc vcutWCSUpdate { x y args } \
+{
+ global cutXPos curTrack
+ if {$curTrack} {
+ wcsUpdate $cutXPos $y
+ }
+ drawVcutIndicator $y
+}
+
+
+
+################################################################################
+# UTILITY ROUTINES
+################################################################################
+
+
+# TICSTEP -- Utility routine to compute nice ticmark steps in plots.
+# [ NOT CURRENTLY USED. ]
+
+proc ticstep { range nsteps } \
+{
+ set t2 0.301029996
+ set t5 0.698970004
+ set df [ expr "$range / double($nsteps + 1)" ]
+ if {$df > 0.0} {
+ set p1 [ expr "log10(double($df))" ]
+ } else {
+ set p1 [ expr "log10(double(-$df))" ]
+ }
+ set p2 [ expr "int($p1)" ]
+ set p3 [ expr "$p1 - $p2" ]
+
+ if { $p3 < 0.0 } {
+ set p3 [ expr "$p2 + 1.0" ]
+ set p2 [ expr "$p2 - 1.0" ]
+ }
+
+ if { $p3 < 1.0e-10 } {
+ set ticstep [ expr "pow(double(10.0),double($p2))" ]
+ } elseif { $p3 > 0. && $p3 <= $t2 } {
+ set ticstep [ expr "pow(double(10.0),double($p2 + $t2))" ]
+ } elseif { $p3 > $t2 && $p3 <= $t5 } {
+ set ticstep [ expr "pow(double(10.0),double($p2 + $t5))" ]
+ } elseif { $p3 > $t5 && $p3 <= 1.0 } {
+ set ticstep [ expr "pow(double(10.0),double($p2 + 1.))" ]
+ } else {
+ set ticstep $df
+ }
+
+ set logtic [ expr "int(log10($ticstep)) - 1" ]
+ set scale [ expr "pow(double(10.0),double($logtic))" ]
+ set ticstep [ expr "int( ($ticstep / $scale) * $scale)" ]
+
+ if {$ticstep < 0.1} { set ticstep 0.10 }
+
+ return $ticstep
+}
+
+
+
+# Cursor positioning routines
+#----------------------------
+
+proc move_cursor { xstep ystep args } \
+{
+ set raster 0
+ send imagewin getCursorPos rx ry
+ send imagewin setCursorPos [expr $rx + $xstep] [expr $ry + $ystep] $raster
+}
+
+
+# Called when the number of frames changes.
+proc setNFrames {param old new} \
+{
+ global frameMenuDescription nframes frames
+
+ set nframes $new
+ if {$old != $new} {
+ foreach i {prevButton nextButton} {
+ send $i set sensitive [expr "$nframes > 1"]
+ }
+
+ if {$nframes > 0} {
+
+ # Creates the Frames menu on the main image window.
+ set items { }
+ for {set i 1} {$i <= $nframes} {incr i} {
+ set l [format "%2d" $i]
+ lappend items "$l f.exec \{send client setFrame $i\} sensitive \{[expr \"$nframes >= $i\"]\}"
+ }
+ editMenu frameMenu frameButton $items
+
+ # Create the menu for the blink frames list.
+ set items { }
+ for {set i 0} {$i <= $nframes} {incr i} {
+ set j [expr ($i + 1)]
+ if {$i == 0} {
+ set s "\"none\" f.exec \{send brFrameBTN set label \" \"\}"
+ lappend items $s
+ } else {
+ set l [format "%2d" $i]
+ lappend items "$l f.exec \{send brFrameBTN set label $l\} sensitive \{[expr \"$nframes >= $i\"]\}"
+ }
+ }
+ for {set i 1} {$i <= $nframes} {incr i} {
+ send brFrame$i setSensitive True
+ send tFrame$i setSensitive True
+ regsub -all BTN $items $i nmenu
+ editMenu frame${i}Menu brFrame$i $nmenu
+ }
+
+ } else {
+ editMenu frameMenu frameButton $frameMenuDescription
+
+ for {set i 1} {$i <= $nframes} {incr i} {
+ send brFrame$i setSensitive True
+ send tFrame$i setSensitive True
+ editMenu frame${i}Menu brFrame$i $frameMenuDescription
+ }
+ }
+ }
+
+ for {set i 1} {$i <= 16} {incr i} {
+ if {$i <= $nframes} {
+ send frame$i map
+ } else {
+ send frame$i unmap
+ }
+ }
+
+ if {$nframes > 2} {
+ setAllTileFrames
+ }
+}; send nframes addCallback setNFrames
+
+
+# Set the default main window frame menu.
+set frameMenuDescription {
+ {" 1" f.exec "send client setFrame 1" sensitive {[expr "$nframes >= 1"]} }
+ {" 2" f.exec "send client setFrame 2" sensitive {[expr "$nframes >= 2"]} }
+ {" 3" f.exec "send client setFrame 3" sensitive {[expr "$nframes >= 3"]} }
+ {" 4" f.exec "send client setFrame 4" sensitive {[expr "$nframes >= 4"]} }
+}; createMenu frameMenu frameButton $frameMenuDescription
+
+
+
+
+# Initialize the frame lists panels (blink panel and tile tab).
+for {set i 1} {$i <= 16} {incr i} {
+ send brFrame$i set label [format "%2d" $i]
+ send tFrame$i set label [format "%2d" $i]
+ if {$i <= 4} {
+ send brFrame$i setSensitive True
+ send tFrame$i "setSensitive True ; set state 1"
+ } else {
+ send brFrame$i setSensitive False
+ send tFrame$i "setSensitive False ; set state 0"
+ }
+ createMenu frame${i}Menu brFrame$i $frameMenuDescription
+}
+
+
+# Called when the frame being displayed changes.
+proc frameChanged {param old new} \
+{
+ global frame
+
+ set frame $new
+ send frameButton set label [format "%2d" $frame]
+
+ # The first time we request frame 5 or higher reset
+ # the extra frame buttons on the control panel to make
+ # them visible.
+ if {$new >= 5} {
+ send frlistBox set width 49
+ }
+ wcsFmtFBConfig
+ drawCompass
+}; send frame addCallback frameChanged
+
+
+# Called when the frame buffer configuration changes.
+proc setFrameSize {param old new} \
+{
+ global frameWidth frameHeight frameDepth
+ set frameWidth [lindex $new 0]
+ set frameHeight [lindex $new 1]
+ set frameDepth [lindex $new 2]
+
+ wcsFmtFBConfig
+}; send frameSize addCallback setFrameSize
+
+# Called when the current frame is zoomed or panned.
+proc setFrameView {param old new} \
+{
+ global frameZoomX frameZoomY frameCenterX frameCenterY
+ global frameScaleX frameScaleY frameOffsetX frameOffsetY
+ global frame auto_reg blinkFrames
+
+ # Update the position.
+ set frameZoomX($frame) [lindex $new 0]
+ set frameZoomY($frame) [lindex $new 1]
+ set frameCenterX($frame) [lindex $new 2]
+ set frameCenterY($frame) [lindex $new 3]
+ set frameScaleX($frame) [lindex $new 4]
+ set frameScaleY($frame) [lindex $new 5]
+ set frameOffsetX($frame) [lindex $new 6]
+ set frameOffsetY($frame) [lindex $new 7]
+
+ # If auto-registering is enabled, do it now, but only when we're updating
+ # the current display frame, and only if that frame is in the framelist.
+
+ if {$auto_reg == 1 && $frame == [send frameButton get label]} {
+ if {[string first $frame $blinkFrames] != -1} {
+ send client offsetRegister \{$blinkFrames\}
+ }
+
+ foreach f $blinkFrames {
+ if {$f != $frame} {
+ set frameZoomX($f) $frameZoomX($frame)
+ set frameZoomY($f) $frameZoomY($frame)
+ set frameCenterX($f) $frameCenterX($frame)
+ set frameCenterY($f) $frameCenterY($frame)
+ set frameScaleX($f) $frameScaleX($frame)
+ set frameScaleY($f) $frameScaleY($frame)
+ }
+ }
+ }
+ deleteAllRulers
+
+}; send frameView addCallback setFrameView
+
+
+# Called when the color enhancement for a frame changes.
+proc setEnhancement {param old new} \
+{
+ global enhancement
+ set enhancement([lindex $new 0]) [lrange $new 1 end]
+}; send enhancement addCallback setEnhancement
+
+# Called when the frame title changes (e.g. frame change or new frame loaded).
+proc setTitle {param old new} \
+{
+ set lab [string trimright $new]
+ send imageTitle set label $lab
+
+ set image [lindex [ split $lab '-'] 0 ]
+ wcsFmtImname $image
+
+ set title [lindex [ split $lab '-'] 1 ]
+ wcsFmtImtitle $title
+ deleteAllRulers
+}; send frameTitle addCallback setTitle
+
+# Called when the image is flipped in an axis.
+proc setFlip {param old new} \
+{
+ if {$param == "xflip"} {
+ send xflipButton set state [true $new]
+ } else {
+ send yflipButton set state [true $new]
+ }
+ deleteAllRulers
+}; foreach i {xflip yflip} { send $i addCallback setFlip }
+
+
+# Various general callbacks.
+
+proc Quit args \
+{
+ global ism_enable
+
+ if {$ism_enable} {
+ catch { send wcspix quit }
+ }
+ send client Quit
+}
+proc nextFrame args { send client nextFrame }
+proc prevFrame args { send client prevFrame }
+proc setColormap { mapno } { send client setColormap $mapno }
+proc xflip args { send client flip x ; flipRegister }
+proc yflip args { send client flip y ; flipRegister }
+proc xyflip args { send client flip x y ; flipRegister }
+proc flipRegister args \
+{
+ global auto_reg frame blinkFrames
+
+ if {$auto_reg == 1 && $frame == [send frameButton get label]} {
+ if {[string first $frame $blinkFrames] != -1} {
+ send client offsetRegister \{$blinkFrames\}
+ }
+ }
+}
+
+
+
+# Initialize bitmaps.
+createBitmap xflip 16 16 {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x08, 0x18, 0x18,
+ 0x1c, 0x38, 0xfe, 0x7f, 0xfe, 0x7f, 0x1c, 0x38, 0x18, 0x18, 0x10, 0x08,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap yflip 16 16 {
+ 0x00, 0x00, 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f, 0x80, 0x01,
+ 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0xf0, 0x0f,
+ 0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01, 0x00, 0x00}
+
+createBitmap qmark 16 16 {
+ 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x0f, 0x18, 0x0c, 0x18, 0x0c,
+ 0x18, 0x0e, 0x00, 0x07, 0x80, 0x03, 0x80, 0x01, 0x80, 0x01, 0x00, 0x00,
+ 0x80, 0x01, 0x80, 0x01, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap larrow 16 16 {
+ 0x00, 0x00, 0x00, 0x03, 0x80, 0x03, 0xc0, 0x03, 0xe0, 0x1e, 0x70, 0x1e,
+ 0x38, 0x18, 0x1c, 0x18, 0x1c, 0x18, 0x38, 0x18, 0x70, 0x1e, 0xe0, 0x1e,
+ 0xc0, 0x03, 0x80, 0x03, 0x00, 0x03, 0x00, 0x00}
+
+createBitmap rarrow 16 16 {
+ 0x00, 0x00, 0xc0, 0x00, 0xc0, 0x01, 0xc0, 0x03, 0x78, 0x07, 0x78, 0x0e,
+ 0x18, 0x1c, 0x18, 0x38, 0x18, 0x38, 0x18, 0x1c, 0x78, 0x0e, 0x78, 0x07,
+ 0xc0, 0x03, 0xc0, 0x01, 0xc0, 0x00, 0x00, 0x00}
+
+createBitmap panel 16 16 {
+ 0x00, 0x00, 0xf8, 0x1f, 0xf8, 0x1f, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18,
+ 0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x18, 0x18,
+ 0x18, 0x18, 0x18, 0x18, 0xf8, 0x1f, 0xf8, 0x1f}
+
+createBitmap brightness 15 15 {
+ 0x00, 0x00, 0x80, 0x00, 0x84, 0x10, 0xe8, 0x0b, 0x10, 0x04, 0x08, 0x08,
+ 0x08, 0x08, 0x0e, 0x38, 0x08, 0x08, 0x08, 0x08, 0x10, 0x04, 0xe8, 0x0b,
+ 0x84, 0x10, 0x80, 0x00, 0x00, 0x00}
+
+createBitmap contrast 15 15 {
+ 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x30, 0x07, 0x08, 0x0f, 0x08, 0x0f,
+ 0x04, 0x1f, 0x04, 0x1f, 0x04, 0x1f, 0x08, 0x0f, 0x08, 0x0f, 0x30, 0x07,
+ 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap bar 10 10 {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x42, 0x00, 0x7e, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap dot 16 16 {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01,
+ 0xe0, 0x03, 0xf0, 0x07, 0xf0, 0x07, 0xf0, 0x07, 0xe0, 0x03, 0xc0, 0x01,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap null 16 16 {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap solid 64 24 {
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}
+
+catch { send controlButton "set bitmap panel; addCallback panel" }
+catch { send helpButton "set bitmap qmark; addCallback Help" }
+send xflipButton "set bitmap xflip; addCallback xflip"
+send yflipButton "set bitmap yflip; addCallback yflip"
+send prevButton "set bitmap larrow; addCallback prevFrame"
+send nextButton "set bitmap rarrow; addCallback nextFrame"
+send blinkPanel "set bitmap panel"
+
+
+
+# WINDOW the current frame.
+set old_cm_x 0
+set old_cm_y 0
+
+proc windowColormap {x y} \
+{
+ global winWidth winHeight maxContrast old_cm_x old_cm_y
+
+ # For efficiency we won't compute the sqrt of the distance but instead
+ # just compare the square. Use a threshold of 6 pixels so when we
+ # narrow in on the ROI we refine the colormap more precisely.
+
+ set diff [expr (($old_cm_x - $x) * ($old_cm_x - $x)) + \
+ (($old_cm_y - $y) * ($old_cm_y - $y))]
+
+ # Keep the old position.
+ set old_cm_x $x
+ set old_cm_y $y
+ if {$diff > 36} {
+ return
+ }
+
+ send client windowColormap \
+ [expr "double($x) / $winWidth"] \
+ [expr "(double($y) - $winHeight / 2.0) / $winHeight * \
+ $maxContrast * 2.0"]
+}
+
+proc updateColormap {x y} \
+{
+ global winWidth winHeight maxContrast old_cm_x old_cm_y
+
+ set old_cm_x $x
+ set old_cm_y $y
+ send client updateColormap \
+ [expr "double($x) / $winWidth"] \
+ [expr "(double($y) - $winHeight / 2.0) / $winHeight * \
+ $maxContrast * 2.0"]
+}
+
+
+
+# WINDOW the current frame, but only one color at a time.
+proc windowRGB {color x y save_flag} \
+{
+ global winWidth winHeight maxContrast
+
+ send client windowRGB $color \
+ [expr "double($x) / $winWidth"] \
+ [expr "(double($y) - $winHeight / 2.0) / $winHeight * \
+ $maxContrast * 2.0"] $save_flag
+}
+
+
+# ZOOM and PAN.
+set xcen 0
+set ycen 0
+foreach i $frames {set zoomindex($i) 0}
+set nzoomfactors 0
+foreach i $zoomfactors {
+ set zoomfactor($nzoomfactors) $i
+ incr nzoomfactors
+}
+
+# Zoom or pan image at given center.
+proc zoom {x y} \
+{
+ global xcen ycen frame
+ global zoomindex zoomfactor
+ global nzoomfactors
+
+ set rx $x; set ry $y
+ set raster 0
+
+ # Convert raw screen coordinates to frame buffer raster coordinates.
+ send imagewin unmapPixel $x $y raster rx ry
+
+ # Select a pixel.
+ set rx [expr "int ($rx)"]
+ set ry [expr "int ($ry)"]
+
+ # If the pointer did not move (much) zoom the image, otherwise
+ # pan it.
+
+ send imagewin setCursorType busy
+ if {sqrt(pow($x-$xcen, 2) + pow($y-$ycen, 2)) < 4} {
+ set zoomindex($frame) [expr [incr zoomindex($frame)] % $nzoomfactors]
+ set mag $zoomfactor($zoomindex($frame))
+ send client zoom $mag $mag $rx $ry
+ } else {
+ send client pan $rx $ry
+ set xcen $x
+ set ycen $y
+ }
+
+ # Move the pointer so that it tracks the object feature the user
+ # selected.
+
+ send imagewin setCursorPos $rx $ry $raster
+ send imagewin getCursorPos xcen ycen
+ send imagewin setCursorType idle
+}
+
+
+# Zoom using a marker to indicate the region to be displayed.
+proc zoomMarker {marker aspect} \
+{
+ global xcen ycen frame
+ global winWidth winHeight
+ global zoomindex nzoomfactors
+ global auto_reg frame frameOffsetX frameOffsetY
+
+ # getRegion returns: "rectangle raster x y width height rotangle".
+ set region [send $marker getRegion unmap]
+
+ set raster [lindex $region 1]
+ set xcen [expr "int([lindex $region 2]) + 0.5"]
+ set ycen [expr "int([lindex $region 3]) + 0.5"]
+ set snx [expr "[lindex $region 4] * 2"]
+ set sny [expr "[lindex $region 5] * 2"]
+
+ # Compute the magnification ratio.
+ set xmag [expr "$winWidth / $snx"]
+ set ymag [expr "$winHeight / $sny"]
+ if {$aspect == "equal"} {
+ set mag [expr "($xmag < $ymag) ? $xmag : $ymag"]
+ set xmag $mag; set ymag $mag
+ }
+
+ # Zoom the image.
+ send client zoomAbs \
+ $xmag $ymag $xcen $ycen \
+ $frameOffsetX($frame) $frameOffsetY($frame)
+
+ # The following causes a button2 to redisplay the full image.
+ send imagewin setCursorPos $xcen $ycen $raster
+ send imagewin getCursorPos xcen ycen
+ set zoomindex($frame) [expr "$nzoomfactors - 1"]
+}
+
+# Pan the display frame one width/height in a given direction.
+proc moveFrame { xs ys args } \
+{
+ global winWidth winHeight frame
+ global frameWidth frameHeight
+ global frameZoomX frameZoomY frameCenterX frameCenterY
+ global frameOffsetX frameOffsetY
+
+ # Get the step size for the new position.
+ set xstep_size [ expr "$xs * $winWidth / $frameZoomX($frame)" ]
+ set ystep_size [ expr "$ys * $winHeight / $frameZoomY($frame)" ]
+
+ # Set the boundaries so we only move up to the edges.
+ set xl [ expr "($winWidth / $frameZoomX($frame)) / 2 + 1" ]
+ set yl [ expr "($winHeight / $frameZoomY($frame)) / 2 + 1" ]
+ set xu [ expr "$frameWidth - $xl" ]
+ set yu [ expr "$frameHeight - $yl" ]
+
+ # Set the new center position.
+ set nxc [ expr "$frameCenterX($frame) + $xstep_size" ]
+ set nyc [ expr "$frameCenterY($frame) + $ystep_size" ]
+ if {$nxc < $xl} { set nxc $xl }
+ if {$nxc > $xu} { set nxc $xu }
+ if {$nyc < $yl} { set nyc $yl }
+ if {$nyc > $yu} { set nyc $yu }
+
+ # Finally, send the command to move the frame.
+ send client zoomAbs \
+ $frameZoomX($frame) $frameZoomY($frame) $nxc $nyc \
+ $frameOffsetX($frame) $frameOffsetY($frame)
+}
+
+proc resetView {param old new} {
+ global zoomindex xcen ycen frames
+ global frameWidth frameHeight
+
+ if {$new == "done"} {
+ foreach i $frames {
+ send client setFrame $i
+ set xcen [expr $frameWidth / 2]
+ set ycen [expr $frameHeight / 2]
+ send client zoom 1 1 $xcen $ycen
+ set zoomindex($i) 0
+ send client setColormap Grayscale
+ normalize
+ }
+ send client setFrame 1
+ }
+}; #send initialize addCallback resetView
+
+
+# CURSOR READ stuff.
+proc setCursorMode {param old new} \
+{
+ global cursorMode
+
+ if {$new == "on"} {
+ send imagewin "activate; setCursorType ginMode"
+ set cursorMode 1
+ } elseif {$new == "off"} {
+ send imagewin "setCursorType idle; deactivate"
+ set cursorMode 0
+ }
+}
+
+proc keyInput {widget event sx sy data} \
+{
+ global cursorMode frame
+
+ if {!$cursorMode || $event != "keyPress"} \
+ return
+ if {[lindex $data 0] == "??"} \
+ return
+
+ # Convert raw screen coordinates to raster pixel coordinates.
+ send imagewin unmapPixel $sx $sy raster rx ry
+
+ # Return the cursor value and exit cursor mode.
+ send client retCursorVal $rx $ry $frame 1 [lindex $data 0]
+}
+
+proc resetCursorMode args {
+ global cursorMode frame
+ if {$cursorMode} {
+ send imagewin getCursorPos x y
+ send client retCursorVal $x $y $frame 1 ^D
+ }
+}; send initialize addCallback resetCursorMode
+
+send cursorMode addCallback setCursorMode
+send imagewin addCallback keyInput input
+
+
+# MARKER stuff. The active marker is determined by the global variable
+# "marker", which is the marker the pointer is in, or which the pointer
+# was most recently in.
+
+# Translations when pointer is inside marker.
+set markerTranslations { \
+!Shift <Btn1Motion>: m_rotateResize()
+ <Btn1Motion>: m_moveResize()
+ !Shift <Btn1Down>: m_raise() m_markpos()
+ <Btn1Down>: m_raise() m_markposAdd()
+ <Btn1Up>: m_redraw() m_destroyNull()
+ <Btn2Down>: m_lower()
+ <Btn3Down>: popup(markerMenu)
+ <Btn3Up>: popdown(markerMenu)
+ !Ctrl <Key>b: call(prevFrame,$name)
+ !Ctrl <Key>f: call(nextFrame,$name)
+ !Ctrl <Key>h: call(move_cursor,-1,0)
+ !Ctrl <Key>j: call(move_cursor,0,1)
+ !Ctrl <Key>k: call(move_cursor,0,-1)
+ !Ctrl <Key>l: call(move_cursor,1,0)
+ !Ctrl <Key>n: call(normalize)
+ !Ctrl <Key>c: call(cpZoomAction,centerFrame)
+ !Ctrl <Key>i: call(cpInvert)
+ !Ctrl <Key>m: call(cpMatchFrames)
+ !Ctrl <Key>r: call(cpRegisterFrames)
+ !Ctrl <Key>p: call(togglePanner)
+ !Alt <Key>1: call(cpSetFrame,frame1)
+ !Alt <Key>2: call(cpSetFrame,frame2)
+ !Alt <Key>3: call(cpSetFrame,frame3)
+ !Alt <Key>4: call(cpSetFrame,frame4)
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed)
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed)
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed)
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed)
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed)
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed)
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed)
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed)
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed)
+ <Key>BackSpace: m_deleteDestroy()
+ <Key>Delete: m_deleteDestroy()
+ <KeyPress>: m_input()
+ <Motion>: track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)
+}
+
+# Popup menu in effect when inside marker.
+createMenu markerMenu imagewin {
+ { Marker f.title }
+ { f.dblline }
+ { Zoom f.exec {
+ zoomMarker $marker equal
+ send $marker destroy
+ } }
+ { Fill f.exec {
+ zoomMarker $marker fill
+ send $marker destroy
+ } }
+ { Print f.exec {
+ send $marker getRect interior x0 y0 nx ny
+ setPrintCorners $x0 [expr $y0 + $ny -1] \
+ [expr $x0 + $nx -1] $y0
+ send client print $x0 $y0 $nx $ny
+ } }
+ { Save f.exec {
+ send imagewin setCursorType busy
+ send $marker getRect interior x0 y0 nx ny
+ send client save $x0 $y0 $nx $ny
+ send imagewin setCursorType idle
+ } }
+ { Info f.exec {
+ send infoText append \
+ [format "%s\n" [send $marker getRegion unmap]]
+ } }
+ { Unrotate f.exec {
+ send $marker setAttribute rotangle 0
+ } }
+ { f.dblline }
+ { Color f.menu markerColor }
+ { Type f.menu markerType }
+ { f.dblline }
+ { Destroy f.exec {
+ send $marker destroy
+ } }
+}
+
+createMenu markerType markerMenu {
+ { Type f.title }
+ { f.dblline }
+ { Rectangle f.exec "m_setType $marker rectangle" }
+ { Box f.exec "m_setType $marker box" }
+ { Circle f.exec "m_setType $marker circle" }
+ { Ellipse f.exec "m_setType $marker ellipse" }
+ { Polygon f.exec "m_setType $marker polygon" }
+}
+
+createMenu markerColor markerMenu {
+ { Color f.title }
+ { f.dblline }
+ { "" f.exec "m_setColor $marker black"
+ bitmap solid foreground black }
+ { "" f.exec "m_setColor $marker white"
+ bitmap solid foreground white }
+ { "" f.exec "m_setColor $marker red"
+ bitmap solid foreground red }
+ { "" f.exec "m_setColor $marker green"
+ bitmap solid foreground green }
+ { "" f.exec "m_setColor $marker blue"
+ bitmap solid foreground blue }
+ { "" f.exec "m_setColor $marker magenta"
+ bitmap solid foreground magenta }
+ { "" f.exec "m_setColor $marker cyan"
+ bitmap solid foreground cyan }
+ { "" f.exec "m_setColor $marker yellow"
+ bitmap solid foreground yellow }
+}
+
+proc m_setType {marker type} {
+ send $marker "markpos; set type $type; redraw"
+}
+proc m_setColor {marker color} {
+ send $marker "markpos;
+ set lineColor $color; set highlightColor $color; redraw"
+}
+
+# Callback executed when a marker gets or loses the focus.
+proc selectMarker {active_marker event event_data} \
+{
+ global marker
+ switch $event {
+ focusIn { set marker $active_marker }
+ focusOut { }
+ }
+}
+
+# Create marker action. Makes a new marker.
+proc makeMarker {parent x y} \
+{
+ global markerTranslations markno
+ set marker marker$markno; incr markno
+
+ send $parent createMarker $marker \
+ type rectangle \
+ createMode interactive \
+ translations $markerTranslations \
+ x $x \
+ y $y
+
+ send $marker addCallback selectMarker focusIn focusOut
+}
+
+
+
+# WCSBOX -- Real time coordinate display.
+
+set track_enable 0
+set last_x 0
+set last_y 0
+
+proc wcsUpdate {x y} \
+{
+ global track_enable frame pixtab_up tabTop
+ global frameWidth frameHeight redraw_compass
+ global ism_enable wcsLabels last_x last_y
+ global ct_warn plotSpeed doHcut doVcut
+
+
+ # If the cursor was frozen release it now.
+ if {$ct_warn} {
+ curtrack_destroy
+ }
+
+ # Convert screen coords to raster pixel.
+ send imagewin unmapPixel $x $y raster rx ry rz
+
+ # Set the current frame to the frame the pointer is within.
+ if {$frame && $raster} {
+ set track_frame [send client getFrame $raster]
+ if {$frame != $track_frame} {
+ send client setFrame $track_frame
+ }
+ }
+
+ # Update coords box.
+ if {$raster} {
+ set text [send client encodewcs $rx $ry $rz]
+ scan $text "%g %g %g" nx ny nz
+ } else {
+ set text [format " %7.2f %7.2f %9.1f " $rx $ry $rz]
+ set nx $rx ; set ny $ry ; set nz $rz
+ }
+
+ # Update the coords panel and pixel table.
+ wcsFmtSValue $nz
+ if {$pixtab_up} {
+ updatePixelTable $x $y $nx $ny
+ }
+
+ # If the ISM is running update the coords box with all the selected
+ # options, otherwise just write the one-line frame wcs coords.
+ if {$ism_enable} {
+ updateCoordsBox
+
+ } else {
+ # Update the on-screen marker.
+ if {$track_enable} {
+ send wcsbox "set text \{$text\}; redraw noerase"
+ }
+
+ # Update the control panel readout (always done).
+ if {$wcsLabels} {
+ set ln [format " X: %12s Y: %12s WCS: Display" $nx $ny]
+ } else {
+ set ln [format " %12s %12s Display" $nx $ny]
+ }
+ send wtWcs1 set string $ln
+
+ if {$redraw_compass} \
+ drawCompass
+ }
+
+
+ # Update the cut-plots if enabled. If we're set for speed the don't
+ # track the really large cursor motions, wait till the differences are
+ # small indicating a finer motion.
+ if {$doHcut || $doVcut} {
+ set dist [ expr "sqrt(pow(($last_x - $x),2) + pow(($last_y - $y),2))" ]
+ if {($plotSpeed && $dist < 30) || ! $plotSpeed} {
+ cutPlots $x $y
+ }
+ }
+
+ # Save the position so we can track differences with last position.
+ set last_x $x
+ set last_y $y
+}
+
+
+proc setTrack {state} \
+{
+ global ism_enable track_enable wcsboxGeom
+ global winWidth winHeight up_todo
+
+ if {$state} {
+ if {$track_enable} \
+ return
+
+ send imagewin createMarker wcsbox {
+ type text
+ createMode noninteractive
+ width 27ch
+ height 1ch
+ lineWidth 0
+ imageText true
+ textBgColor black
+ textColor yellow
+ visible false
+ }
+
+ set box_width [send wcsbox get width]
+ set box_height [send wcsbox get height]
+ set defGeom [format "%sx%s-5-5" $box_width $box_height]
+ send imagewin parseGeometry $wcsboxGeom $defGeom x y width height
+
+ send wcsbox setAttributes \
+ x $x \
+ y $y \
+ activated true \
+ visible true \
+ sensitive true
+
+ send wcsbox {
+ addCallback wcsboxDestroyCallback destroy
+ addCallback wcsboxMoved moveResize
+ }
+
+ send imagewin addCallback wcsboxWindowResize resize
+ set track_enable 1
+ send imagewin getCursorPos x y
+ wcsUpdate $x $y
+ magnifierMapImage $x $y
+
+ # Turn on the option toggles on the control panel.
+ foreach n {1 2 3 4} {
+ if {[send sysWcs$n get label] != "None"} {
+ send wiWcs$n set on True
+ }
+ }
+ if {$ism_enable} {
+ resizeCoordsBox $up_todo
+ }
+
+ } elseif {$track_enable} {
+ set track_enable 0
+ send wcsbox destroy
+
+ # Turn off the option toggles on the control panel.
+ foreach w {wiWcs1 wiWcs2 wiWcs3 wiWcs4} { send $w set on False }
+ resizeCoordsBox 0
+ }
+ updateCoordsBox
+}
+
+proc wcsboxDestroyCallback args \
+{
+ global track_enable
+ send imagewin deleteCallback wcsboxWindowResize
+ set track_enable 0
+}
+
+# If the window is resized make the wcsbox track the corner.
+proc wcsboxWindowResize args \
+{
+ global track_enable
+ global wcsboxGeom
+
+ if {$track_enable} {
+ # Get new location.
+ set box_width [send wcsbox get width]
+ set box_height [send wcsbox get height]
+ set defGeom [format "%sx%s-5-5" $box_width $box_height]
+ send imagewin parseGeometry $wcsboxGeom $defGeom x y width height
+
+ # Move the marker.
+ send wcsbox "\
+ deleteCallback wcsboxMoved; \
+ markpos; setAttributes x $x y $y; redraw; \
+ addCallback wcsboxMoved moveResize"
+ set wcsboxGeom [send imagewin getGeometry $x $y $width $height]
+ }
+}
+
+proc wcsboxMoved {marker event position} \
+{
+ global wcsboxGeom
+ send wcsbox getRect boundary x y width height
+ set wcsboxGeom [send imagewin getGeometry $x $y $width $height]
+}
+
+proc resetWcsbox {param old new} \
+{
+ global track_enable wcsboxGeom displayCoords
+ if {$new == "done"} {
+ setTrack [true $displayCoords]
+ } elseif {$track_enable} {
+ setTrack 0
+ if {$new == "restart"} {
+ set wcsboxGeom -5-5
+ }
+ }
+}; send initialize addCallback resetWcsbox
+
+
+
+#---------------------
+# FRAME BLINK.
+#---------------------
+set blinkId 0
+set blinkIndex 0
+
+proc toggleBlink args \
+{
+ global blinkId blinkRate blinkIndex
+ global optionsMenuDescription
+
+ if {$blinkId} {
+ deleteTimedCallback $blinkId
+ set blinkId 0
+ } else {
+ set blinkId [postTimedCallback blink [expr int($blinkRate * 1000)]]
+ }
+
+ set blinkIndex 0
+ editMenu optionsMenu viewButton $optionsMenuDescription
+}
+
+proc blink args \
+{
+ global blinkId blinkRate blinkFrames blinkIndex
+
+ send client setFrame [lindex $blinkFrames $blinkIndex]
+ incr blinkIndex
+ if {$blinkIndex >= [llength $blinkFrames]} {
+ set blinkIndex 0
+ }
+
+ set blinkId [postTimedCallback blink [expr int($blinkRate * 1000)]]
+}
+
+proc resetBlink args \
+{
+ global blinkId
+ if {$blinkId} \
+ toggleBlink
+}; send initialize addCallback resetBlink
+
+
+
+# Normalize -- Reset the view parameters for the current frame.
+proc normalize args \
+{
+ global zoomindex zoomfactor
+ global frameWidth frameHeight
+ global xcen ycen frame
+
+ #set zoomindex($frame) 0
+ #set xcen [expr $frameWidth / 2]
+ #set ycen [expr $frameHeight / 2]
+ #send client zoom 1 1 $xcen $ycen
+ send client updateColormap 0.5 1.0
+}
+
+
+# Popdown menus.
+createMenu fileMenu fileButton {
+ { "Info" f.exec { panelTabToggle info_panel } }
+ { "Load" f.exec {
+ panelTabToggle load_panel
+ set panel_up 1
+ } }
+ { "Save" f.exec { Save } }
+ { "Save As..." f.exec { panelTabToggle save_panel } }
+ { "Print" f.exec {
+ send imagewin setCursorType busy
+ Print
+ send imagewin setCursorType idle
+ } }
+ { "Print Setup" f.exec { panelTabToggle print_panel } }
+ { f.dblline }
+ { "Reset" f.exec {
+ # Do a hard reset.
+ send client Reset
+ #resetView initialize done done
+ } }
+ { "Debug Panel" f.exec { tclPanel 1 } }
+ { "Quit" f.exec { Quit } }
+}
+
+createMenu viewMenu viewButton {
+ { "Next frame" f.exec nextFrame }
+ { "Prev frame" f.exec prevFrame }
+ { f.dblline }
+ { "Colormap" f.menu cmapMenu }
+ { "Flip" f.menu flipMenu }
+ { f.dblline }
+ { "Equal aspect" f.exec {
+ set xmag $frameZoomX($frame)
+ set ymag $frameZoomY($frame)
+ set zoom [expr ($xmag + $ymag) / 2.0]
+ cpZoom $zoom $zoom fixed
+ } }
+ { "Integer zoom" f.exec {
+ set xmag [expr round ($frameZoomX($frame))]
+ set ymag [expr round ($frameZoomY($frame))]
+ cpZoom $xmag $ymag fixed
+ } }
+ { "Toggle zoom" f.exec toggleZoom }
+ { "Unzoom" f.exec {
+ set zoomindex($frame) 0
+ set mag $zoomfactor($zoomindex($frame))
+ send client zoom $mag $mag $xcen $ycen
+ } }
+}
+
+createMenu cmapMenu viewMenu {
+ { "Normalize" f.exec normalize }
+ { "Invert" f.exec cpInvert }
+ { "Optimize" f.exec cpOptimize sensitive false }
+ { f.dblline }
+ { "Grayscale" f.exec "send client setColormap Grayscale" }
+ { "Color" f.exec "send client setColormap Color" }
+ { "Heat" f.exec "send client setColormap Heat" }
+ { "HSV" f.exec "send client setColormap HSV" }
+ { "AIPS0" f.exec "send client setColormap AIPS0" }
+ { "Halley" f.exec "send client setColormap Halley" }
+ { "Ramp" f.exec "send client setColormap Ramp" }
+ { "Standard" f.exec "send client setColormap Standard" }
+ { "Staircase" f.exec "send client setColormap Staircase" }
+ { "Rainbow1" f.exec "send client setColormap Rainbow1" }
+ { "Rainbow2" f.exec "send client setColormap Rainbow2" }
+ { "Random8" f.exec "send client setColormap Random8" }
+}
+
+createMenu flipMenu viewMenu {
+ { "Flip X" f.exec xflip }
+ { "Flip Y" f.exec yflip }
+ { "Flip XY" f.exec xyflip }
+}
+
+set optionsMenuDescription {
+ { "Autoscale" f.exec {
+ set value [send autoscaleButton get on]
+ send autoscaleButton set on [expr !$value]
+ cpSetAutoscale
+ } }
+ { "Antialias" f.exec {
+ set value [send antialiasButton get on]
+ send antialiasButton set on [expr !$value]
+ cpSetAntialias
+ } }
+ { "Panner" f.exec { setPanner [expr !$panner_enable] } }
+ { "Magnifier" f.exec { setMagnifier [expr !$magnifier_enable] }}
+ { "Coords box" f.exec { setTrack [expr !$track_enable] } }
+ { "Tile frames" f.exec {
+ set value [send tileFramesButton get on]
+ send tileFramesButton set on [expr !$value]
+ cpSetTileFrames
+ } }
+ { "Clear frame" f.exec clearFrame }
+ { "Fit frame" f.exec fitFrame }
+ { "Match LUTs" f.exec cpMatchFrames }
+ { "Auto-Register" f.exec cpAutoRegister }
+ { "Register" f.exec cpRegisterFrames }
+ { {$blinkId ? "Stop blink" : "Blink frames"}
+ f.exec toggleBlink }
+ { f.dblline }
+ { "Control Panel" f.exec { panelTabToggle display_panel } }
+ { "Print Panel" f.exec { panelTabToggle print_panel } }
+ { "Load Panel" f.exec { panelTabToggle load_panel } }
+ { "Save Panel" f.exec { panelTabToggle save_panel } }
+}; createMenu optionsMenu optionsButton $optionsMenuDescription
+
+
+
+#-------------------------------
+# Frozen Cursor Warning Message
+#-------------------------------
+
+set ct_warn 0
+
+proc curtrack_msg { x y args } \
+{
+ global ct_warn last_x last_y winHeight winWidth
+
+
+ if {! $ct_warn == 0} {
+ return
+ }
+
+ send imagewin createMarker curtrack_warn {
+ type text
+ createMode noninteractive
+ width 25ch
+ height 21
+ lineWidth 0
+ imageText true
+ textBgColor red
+ textColor yellow
+ visible true
+ sensitive true
+ activated true
+ x 5
+ y 5
+ }
+
+ send curtrack_warn "set text \{ CURSOR READOUT FROZEN \}"
+ set ypos [ expr ($winHeight - 25) ]
+ send curtrack_warn "markpos; setAttributes x 5 y $ypos; redraw"
+ send curtrack_warn "redraw noerase"
+ set ct_warn 1
+
+ # Mark the position of the cursor.
+ send imagewin createMarker x_curpos \
+ type box \
+ createMode noninteractive \
+ lineColor red \
+ x 1 \
+ y $last_y \
+ width $winWidth \
+ height 1 \
+ activated True \
+ visible True \
+ sensitive False
+
+ send imagewin createMarker y_curpos \
+ type box \
+ createMode noninteractive \
+ lineColor red \
+ x $last_x \
+ y 1 \
+ width 1 \
+ height $winHeight \
+ activated True \
+ visible True \
+ sensitive False
+
+ # Raise the coordinate marker so we can see where we are.
+ send wcsbox raise
+}
+
+
+proc curtrack_destroy args \
+{
+ global ct_warn
+
+ if {$ct_warn} {
+ send curtrack_warn destroy
+ send x_curpos destroy
+ send y_curpos destroy
+ set ct_warn 0
+ }
+}
+
+
+################################################################################
+# CURSOR CENTEROID AND AUTO-REGISTER FUNCTIONS.
+################################################################################
+
+# Set the centroiding box size.
+set ctid 0
+set cid 0
+
+proc cbxDestroy args \
+{
+ global centerBoxSize cid ctid
+ catch {
+ if {$ctid != 0} {
+ send cbm$cid destroy
+ deleteTimedCallback $ctid
+ set ctid 0
+ }
+ }
+}
+
+proc setCtrBoxSize { x y delta args } \
+{
+ global centerBoxSize cid ctid
+ global cpXscale cpYscale
+
+ incr centerBoxSize $delta
+ if {$centerBoxSize <= 1} { set centerBoxSize 1 }
+
+ # Kill off any old markers before drawing the new one.
+ catch {
+ if {$ctid != 0} {
+ send cbm$cid destroy
+ deleteTimedCallback $ctid
+ set ctid 0
+ }
+ }
+
+ # create a transient marker indicating the centering box and post a
+ # callback to delete it in about a second.
+ incr cid
+ send imagewin createMarker cbm$cid \
+ type box \
+ createMode noninteractive \
+ lineColor red \
+ x $x \
+ y $y \
+ width [expr $cpXscale * $centerBoxSize] \
+ height [expr $cpXscale * $centerBoxSize] \
+ activated True \
+ visible True \
+ sensitive False
+
+ set ctid [ postTimedCallback cbxDestroy 500]
+}
+
+
+# Box size is half-width of the marker size. Value is the slider value.
+set focusBoxSize $winWidth
+set focusValue 100.0
+set fid 0
+set ftid 0
+set moving 0
+
+proc setFocusBoxSize { sz args } \
+{
+ global focusBoxSize fid ftid focusValue moving
+ global winWidth winHeight
+
+
+ if { $moving == 0 } {
+ return done
+ }
+
+ if { $winWidth < $winHeight } {
+ set max [expr $winWidth / 2 - 64]
+ } else {
+ set max [expr $winHeight / 2 - 64]
+ }
+ set focusBoxSize [expr 64 + ($sz * $max) - 1]
+ #send client setOption cmfocus [expr ($focusBoxSize / 2)]
+ send client setOption cmfocus $focusBoxSize
+
+ # Destroy any existing markers.
+ catch {
+ if {$ftid != 0} {
+ send fm$fid destroy
+ set ftid 0
+ }
+ }
+
+ # create a transient marker indicating the centering box and post a
+ # callback to delete it in about a second.
+ incr fid
+ send imagewin createMarker fm$fid \
+ type box \
+ createMode noninteractive \
+ lineColor green \
+ lineWidth 4 \
+ x [expr $winWidth / 2] \
+ y [expr $winHeight / 2] \
+ width $focusBoxSize \
+ height $focusBoxSize \
+ activated True \
+ visible True \
+ sensitive False
+
+ set ftid [ postTimedCallback fbxDestroy 500]
+ set moving 0
+}
+
+proc fbxDestroy args \
+{
+ global fid ftid moving
+ catch {
+ if {$ftid != 0} {
+ send fm$fid destroy
+ set ftid 0
+ }
+ }
+}
+
+proc setFocusSize { widget cbtype x y } \
+{
+ global focusValue ftid moving
+
+ # Only update once we've stopped the movement.
+ if { $x == $focusValue && $moving == 1 } {
+ set ftid [ postWorkProc setFocusBoxSize $x ]
+ } else {
+ set moving 1
+ }
+ set focusValue $x
+} ; send focusSlider addCallback setFocusSize scroll
+
+
+# Compute a centroid offset for the current position to peak-up on the
+# feature.
+
+proc centroid { x y type args } \
+{
+ global centerBoxSize
+ global cpXscale cpYscale
+
+ # Convert to image coords.
+ set sz [expr "int ($centerBoxSize * $cpXscale)"]
+
+ # Get the centroid position.
+ if {$type != "min"} {
+ if {[send peakupButton get on]} {
+ set center [ send client centroid $x $y $sz ]
+ } else {
+ set center [ send client centroid $x $y $sz max ]
+ }
+ } else {
+ set center [ send client centroid $x $y $sz min ]
+ }
+
+ # Now reposition the cursor.
+ set xoff [lindex $center 0 ]
+ set yoff [lindex $center 1 ]
+ move_cursor $xoff $yoff
+}
+
+
+# Set the auto-register center offset position
+proc offset { x y args } \
+{
+ global frame blinkFrames auto_reg
+ global frameCenterX frameCenterY
+ global frameOffsetX frameOffsetY
+
+ # No-op of auto-register isn't on.
+ if { $auto_reg == 0 } {
+ Wexec client "Auto-Register is not enabled!"
+ return
+ }
+
+ # If we're not in the blink frames list ignore the request.
+ if { [string first $frame $blinkFrames] == -1 } {
+ Wexec client "Frame not in current\nregister list."
+ return
+ }
+
+ set rx $x; set ry $y
+ set raster 0
+
+ # Convert raw screen coordinates to frame buffer raster coordinates.
+ send imagewin unmapPixel $x $y raster rx ry
+
+ # Select a pixel.
+ set xoff [expr "int ($rx) - $frameCenterX($frame)" ]
+ set yoff [expr "int ($ry) - $frameCenterY($frame)" ]
+
+ set frameOffsetX($frame) $xoff
+ set frameOffsetY($frame) $yoff
+
+ # Adjust the display.
+ send client setOffset $xoff $yoff
+}
+
+
+
+################################################################################
+# MAIN CONTROL PANEL
+################################################################################
+
+
+# Global control panel buttons.
+# -------------------------------
+proc cpInitialize args \
+{
+ send imagewin setCursorType busy
+ send client initialize
+ send imagewin setCursorType idle
+}
+send initializeButton addCallback cpInitialize
+send normalizeButton addCallback normalize
+
+# Temporarily deactivate some buttons.
+send optimizeButton setSensitive false
+
+#-----------------------------------------------------------------------------
+
+foreach i $frames {set saveView($i) "1 1"}
+
+send prevFrame set bitmap larrow
+send nextFrame set bitmap rarrow
+send contrastLabel set bitmap contrast
+send brightnessLabel set bitmap brightness
+send contrastSlider resizeThumb 0.1 1.0
+send brightnessSlider resizeThumb 0.1 1.0
+send focusSlider "resizeThumb 0.1 1.0 ; moveThumb 1.0"
+
+
+# panel -- Toggle control panel display.
+proc panel args \
+{
+ global panel_up
+ if {$panel_up} {
+ send panelShell unmap
+ set panel_up 0
+ } else {
+ send panelShell map
+ set panel_up 1
+ }
+}
+
+proc pbTracePanel {name element op} \
+{
+ catch {
+ upvar $name panel_up
+ send controlButton set state $panel_up
+ }
+} ; trace variable panel_up w pbTracePanel
+
+
+# resetPanel -- Calling during startup or in an initialize, to reset things.
+proc resetPanel {param old new} \
+{
+ global frame nframes frames
+ global displayPanner displayMagnifier displayCoords
+ global blinkFrames warnings peakCentroid
+
+ switch $new {
+ startup {
+ }
+ restart { foreach i $frames {
+ send frame$frame set on 0
+ }
+
+ # Initialize to hide the extra frames.
+ send frlistBox set width 30
+ }
+ done { if {$frame} {
+ send frame$frame set on 1
+ }
+
+ cpResetBlink
+ set button 1
+ foreach i {1 2 3 4} {
+ send blinkFrame$button set label $i
+ incr button
+ }
+ for {set i 1} {$i <= 16} {incr i} {
+ send brFrame$i set label $i
+ }
+
+ cpResetEnhance
+ send pannerButton set on [true $displayPanner]
+ send magnifierButton set on [true $displayMagnifier]
+ send coordsBoxButton set on [true $displayCoords]
+ send warningsButton set on $warnings
+ send peakupButton set on [true $peakCentroid]
+ }
+ }
+}; send initialize addCallback resetPanel
+
+
+
+# Control Panel Tabs widget procedures.
+#----------------------------------------
+
+set cpTabs { display_panel print_panel load_panel save_panel \
+ info_panel wcs_panel tile_panel}
+set tabTop "display_panel"
+
+
+# Resize the control panel depending on the Tab selected.
+proc cpResizeCB { widget event a b c d e args } \
+{
+ global tabTop fileList
+
+ # Handle only the first exposure event generated.
+ if { $a == 0 && $b == 0 && $c == 0 && $d == 0 && $e == 0 } {
+ set tabTop $widget
+
+ switch $widget {
+ display_panel { send panel set height 595 }
+ print_panel { send panel set height 545 }
+ load_panel { send panel set height 485
+ if { [send browseHdrs get on] } {
+ send imageList setList $fileList resize
+ } else {
+ send client setLoadOption rescan
+ }
+ }
+ save_panel { send panel set height 325 }
+ info_panel { send panel set height 380 }
+ tile_panel { send panel set height 405 }
+ wcs_panel { setCoordPanelHeight }
+ }
+ }
+} ; foreach w $cpTabs { send $w addEventHandler cpResizeCB exposureMask }
+
+
+proc panelDismiss args \
+{
+ global panel_up
+ send panelShell unmap
+ set panel_up 0
+} ; send panelClose addCallback panelDismiss
+
+
+proc panelTabToggle { panel args } \
+{
+ global tabTop panel_up TabToWidget
+
+ if {$tabTop == $panel && $panel_up} {
+ send panelShell unmap
+ send $TabToWidget($panel) set state 0
+ set panel_up 0
+
+ } else {
+ # Special cases for each panel.
+ if {$panel == "load_panel"} {
+ send client setLoadOption rescan
+ }
+
+ send panelTabs setTop $panel
+ set tabTop $panel
+
+ # Now fire it up if it's not already open.
+ if {$panel_up == 0} {
+ send panelShell map
+ set panel_up 1
+ }
+
+ }
+}
+
+proc displayPanel args { panelTabToggle display_panel }
+proc infoPanel args { panelTabToggle info_panel }
+proc loadPanel args { panelTabToggle load_panel }
+proc savePanel args { panelTabToggle save_panel }
+proc printPanel args { panelTabToggle print_panel }
+proc tilePanel args { panelTabToggle tile_panel }
+proc wcsPanel args { panelTabToggle wcs_panel }
+
+
+
+
+# Frame selection.
+# -------------------------------
+proc cpSetFrame {widget args} \
+{
+ send $widget set on 0
+ send client setFrame [send $widget get label]
+}
+
+proc cpFrameChanged {param old new} \
+{
+ global frameCache
+
+ if {$old > 0} {
+ send frame$old set on 0
+ }
+ if {$new > 0} {
+ send frame$new set on 1
+ }
+
+ # The first time we request frame 5 or higher reset
+ # the extra frame buttons on the control panel to make
+ # them visible.
+ if {$new >= 5} {
+ send frlistBox set width 49
+ }
+
+ # Update the header panel object list.
+ catch {
+ # Only update when the header panel is open.
+ if {[info exists frameCache($new)] && [send imageHeader get on]} {
+ setHdrObjMenu $new
+ getHeader [lindex $frameCache($new) 0] [lindex $frameCache($new) 1]
+ }
+ }
+}
+
+send prevFrame addCallback prevFrame
+send nextFrame addCallback nextFrame
+send frame addCallback cpFrameChanged
+for {set i 1} {$i <= 16} {incr i} {send frame$i addCallback cpSetFrame}
+
+# Initialize to hide the extra frames.
+send frlistBox set width 30
+
+proc blinkPanelCB { widget type state args } \
+{
+ if {$state} {
+ send blink_panel map
+ } else {
+ send blink_panel unmap
+ }
+} ; send blinkPanel addCallback blinkPanelCB
+
+proc blinkPanelClose args \
+{
+ send blink_panel unmap
+ send blinkPanel set state 0
+} ; send brClose addCallback blinkPanelClose
+
+
+
+# Frame buttons.
+proc cpFrameAction {widget args} \
+{
+ global frameZoomX frameZoomY frame
+ switch $widget {
+ aspect { set xmag $frameZoomX($frame)
+ set ymag $frameZoomY($frame)
+ set zoom [expr round (($xmag + $ymag) / 2.0)]
+ cpZoom $zoom $zoom fixed
+ }
+ flipX { send client flip x }
+ flipY { send client flip y }
+ flipXY { send client flip x y }
+ clearFrame { clearFrame }
+ fitFrame { fitFrame }
+ }
+}
+foreach widget {aspect flipX flipY flipXY clearFrame fitFrame} {
+ send $widget addCallback cpFrameAction
+}
+
+# clearFrame -- Clear the current display frame.
+proc clearFrame args \
+{
+ global warnings
+ if {$warnings} {
+ Wexec client \
+ "Clearing the frame will destroy\n\
+ all data in the frame" \
+ clearFrame
+ } else {
+ send client clearFrame
+ }
+}
+
+# fitFrame -- Resize the display window to fit the frame buffer.
+proc fitFrame args \
+{
+ global frameWidth frameHeight winWidth winHeight
+ set dw [expr [send display get width] - $winWidth]
+ set dh [expr [send display get height] - $winHeight]
+ send display "resize [expr $frameWidth + $dw] [expr $frameHeight + $dh]"
+}
+
+proc initFitFrame { param old new } \
+{
+ if { [lindex $new 0] == "resize"} {
+ fitFrame
+ }
+ pannerMapImage init
+}; send frameFit addCallback initFitFrame
+
+
+
+# Zoom and pan buttons.
+# -------------------------------
+proc cpZoomAction {widget args} \
+{
+ global frameWidth frameHeight
+
+ switch $widget {
+ x1 { cpZoom 1 1 fixed }
+ z2 { cpZoom 2 2 fixed }
+ z3 { cpZoom 3 3 fixed }
+ z4 { cpZoom 4 4 fixed }
+ z5 { cpZoom 5 5 fixed }
+ z8 { cpZoom 8 8 fixed }
+
+ d2 { cpZoom [expr 1.0/2] [expr 1.0/2] fixed }
+ d3 { cpZoom [expr 1.0/3] [expr 1.0/3] fixed }
+ d4 { cpZoom [expr 1.0/4] [expr 1.0/4] fixed }
+ d5 { cpZoom [expr 1.0/5] [expr 1.0/5] fixed }
+ d8 { cpZoom [expr 1.0/8] [expr 1.0/8] fixed }
+
+ zoomIn { cpZoom 2.0 2.0 relative }
+ zoomOut { cpZoom 0.5 0.5 relative }
+
+ centerFrame { send client pan \
+ [expr $frameWidth/2.0] \
+ [expr $frameHeight/2.0]
+ }
+ toggleZoom { toggleZoom }
+ }
+}
+
+proc cpZoom {zoom_x zoom_y mode} \
+{
+ global frameZoomX frameZoomY zoomindex frame
+ global frameOffsetX frameOffsetY frameCenterX frameCenterY
+
+ if {$mode == "fixed"} {
+ #send client zoom $zoom_x $zoom_y
+ send client zoomAbs $zoom_x $zoom_y \
+ $frameCenterX($frame) $frameCenterY($frame) \
+ $frameOffsetX($frame) $frameOffsetY($frame)
+ } else {
+ #send client zoom \
+ # [expr $frameZoomX($frame) * $zoom_x] \
+ # [expr $frameZoomY($frame) * $zoom_y]
+ send client zoomAbs \
+ [expr $frameZoomX($frame) * $zoom_x] \
+ [expr $frameZoomY($frame) * $zoom_y] \
+ $frameCenterX($frame) $frameCenterY($frame) \
+ $frameOffsetX($frame) $frameOffsetY($frame)
+ }
+
+ set zoomindex($frame) 0
+}
+
+proc toggleZoom args \
+{
+ global frameZoomX frameZoomY frameCenterX frameCenterY
+ global frameWidth frameHeight saveView frame
+
+ if {$frameZoomX($frame) != 1 && $frameZoomY($frame) != 1} {
+ set saveView($frame) \
+ "$frameZoomX($frame) $frameZoomY($frame) \
+ $frameCenterX($frame) $frameCenterY($frame)"
+ send client zoom 1 1 \
+ [expr $frameWidth/2.0] \
+ [expr $frameHeight/2.0]
+ } else {
+ send client zoom $saveView($frame)
+ }
+}
+
+foreach widget { toggleZoom centerFrame zoomIn zoomOut \
+ x1 z2 z3 z4 z5 z8 d2 d3 d4 d5 d8 } {
+ send $widget addCallback cpZoomAction
+}
+
+# Frame data display.
+# -------------------------------
+set cpFrame 0
+set cpXcen 0
+set cpYcen 0
+set cpXmag 0
+set cpYmag 0
+set cpXscale 0
+set cpYscale 0
+set cpXoff 0
+set cpYoff 0
+
+proc cpDisplayFrameData {name old new} \
+{
+ global cpFrame cpXcen cpYcen cpXoff cpYoff
+ global cpXmag cpYmag cpXscale cpYscale
+
+ set update 0
+ switch $name {
+ frame { if {$new != $cpFrame} {
+ set cpFrame $new
+ set update 1
+ }
+ }
+ frameView { # Parse the frameView input.
+ set xmag [lindex $new 0]; set ymag [lindex $new 1]
+ set xcen [lindex $new 2]; set ycen [lindex $new 3]
+ set xnorm [lindex $new 4]; set ynorm [lindex $new 5]
+ set xoff [lindex $new 6]; set yoff [lindex $new 7]
+
+ # We need client coords and the overall scale factors.
+ set text [send client encodewcs $xcen $ycen]
+ set xcen [lindex $text 0]
+ set ycen [lindex $text 1]
+ set xscale [expr $xmag * $xnorm]
+ set yscale [expr $ymag * $ynorm]
+
+ if {$xcen != $cpXcen || $ycen != $cpYcen ||
+ $xmag != $cpXmag || $ymag != $cpYmag ||
+ $xoff != $cpXoff || $yoff != $cpYoff ||
+ $xscale != $cpXscale || $yscale != $cpYscale} {
+
+ set cpXcen $xcen; set cpXscale $xscale
+ set cpYcen $ycen; set cpYscale $yscale
+ set cpXmag $xmag; set cpXoff $xoff;
+ set cpYmag $ymag; set cpYoff $yoff;
+ set update 1
+ }
+ }
+ }
+
+ if {$update} {
+ set header [format "-- Frame %d --" $cpFrame]
+ set center [format "X center: %0.1f\nY center: %0.1f" $cpXcen $cpYcen]
+ if {int($cpXmag) >= 10} {
+ set zoom1 [format " X zoom: %0.1f" $cpXmag]
+ set zoom2 [format " Y zoom: %0.1f" $cpYmag]
+ } else {
+ set zoom1 [format "X zoom: %0.1f" $cpXmag]
+ set zoom2 [format "Y zoom: %0.1f" $cpYmag]
+ }
+ if {int($cpXscale) >= 10} {
+ set scale1 [format "X scale: %0.1f" $cpXscale]
+ set scale2 [format "Y scale: %0.1f" $cpYscale]
+ } else {
+ set scale1 [format "X scale: %0.2f" $cpXscale]
+ set scale2 [format "Y scale: %0.2f" $cpYscale]
+ }
+ set offset [format " Offset: (%0.1f,%0.1f)" $cpXoff $cpYoff]
+
+ send frameData set label [format "%s\n%s\n%s\n%s\n%s\n%s\n%s" \
+ $header $center $scale1 $scale2 $zoom1 $zoom2 $offset \
+ ]
+ }
+}; foreach p {frame frameView} {send $p addCallback cpDisplayFrameData}
+
+
+# Frame enhancement.
+# -------------------------------
+set cpEnhanceDisable 0
+set cpEnhanceId 0
+set cpEnhanceMode none
+set cpEnhanceVal 0
+set cpListItem none
+
+# Windowing the colormap is slow when the mouse is not in the image window,
+# so it is necessary to execute the windowColormap in a work procedure.
+# This allows any number of slider motion events to be processed for each
+# windowColormap, preventing slider events from queueing up.
+
+proc cpResetEnhance args \
+{
+ global cpListItem cpEnhanceId
+ set cpListItem none
+ set cpEnhanceId 0
+}
+
+proc cpSetEnhancement {widget cbtype x y} \
+{
+ global cpEnhanceMode cpEnhanceVal cpEnhanceId cpEnhanceDisable
+ set cpEnhanceMode $widget
+ set cpEnhanceVal $x
+ if {!$cpEnhanceId && !$cpEnhanceDisable} {
+ set cpEnhanceId [postWorkProc cpEnhanceProc]
+ }
+}
+proc cpEnhanceProc args \
+{
+ global cpEnhanceMode cpEnhanceVal cpEnhanceId
+ global enhancement frame maxContrast
+ set val $cpEnhanceVal
+
+ if {$cpEnhanceMode == "contrastSlider"} {
+ set contrast [lindex $enhancement($frame) 2]
+ send client windowColormap [lindex $enhancement($frame) 1] \
+ [expr (($contrast < 0) ? -$val : $val) * $maxContrast]
+ } else {
+ send client windowColormap $val
+ }
+
+ set cpEnhanceId 0
+ return done
+}
+
+proc cpInvert args \
+{
+ global enhancement frame
+ set contrast [lindex $enhancement($frame) 2]
+ send client updateColormap [lindex $enhancement($frame) 1] \
+ [expr -1.0 * $contrast]
+}
+
+proc cpDisplayEnhancement {param old new} \
+{
+ global cpEnhanceId maxContrast cpEnhanceDisable
+ global cpListItem enhancement frame
+
+ if {!$frame} \
+ return
+ set enhance $enhancement($frame)
+ if {[llength $enhance] < 3} \
+ return
+
+ set colortable [lindex $enhance 0]
+ set offset [lindex $enhance 1]
+ set scale [lindex $enhance 2]
+
+ send colordata set label [format "-- %s --\nCon %0.2f Brt %0.2f" \
+ $colortable $scale $offset]
+
+ if {$colortable != $cpListItem} {
+ send colorlist highlight $colortable
+ set cpListItem $colortable
+ }
+
+ if {!$cpEnhanceId && !$cpEnhanceDisable} {
+ set cpEnhanceDisable 1
+ send contrastSlider moveThumb [expr abs($scale) / $maxContrast]
+ send brightnessSlider moveThumb $offset
+ set cpEnhanceDisable 0
+ }
+}
+
+foreach i {enhancement frame} {
+ send $i addCallback cpDisplayEnhancement
+}
+send contrastSlider addCallback cpSetEnhancement scroll
+send brightnessSlider addCallback cpSetEnhancement scroll
+send invertButton addCallback cpInvert
+
+
+# Colortable display and selection.
+# -------------------------------
+set colorTables {}
+
+proc cpSetColorList {param old new} \
+{
+ set colorTables $new
+ send colorlist setList $new resize
+}; send colortables addCallback cpSetColorList
+
+proc colorlistResize args \
+{
+ global colorTables
+ send colorlist setList $colorTables resize
+}; send colorlist addEventHandler colorlistResize ResizeRedirectMask
+
+proc cpSelectColor {widget cbtype selections indices} \
+{
+ global colortable
+ foreach selection $selections {
+ send client setColormap $selection
+ }
+}; send colorlist addCallback cpSelectColor
+
+
+# Frame blink.
+# -------------------------------
+send BRtext set label $blinkRate
+send brBRtext set label $blinkRate
+
+proc cpSetBlinkRate {w args} \
+{
+ global blinkRate
+ if {$w == "BRincrease" || $w == "brBRincrease"} {
+ if {$blinkRate < 0.01} {
+ set blinkRate 0.125
+ } else {
+ set blinkRate [expr $blinkRate * 2.0]
+ }
+ } else {
+ set blinkRate [expr $blinkRate / 2.0]
+ if {$blinkRate < 0.01} {
+ set blinkRate 0
+ }
+ }
+ send BRtext set label $blinkRate
+ send brBRtext set label $blinkRate
+}
+foreach w {BRincrease BRdecrease brBRincrease brBRdecrease} {
+ send $w addCallback cpSetBlinkRate
+}
+
+proc cpSetBlinkFrame {widget args} \
+{
+ global blinkFrames frames nframes
+
+ set frame [send $widget get label]
+ if {$frame == " "} {
+ set frame 1
+ } else {
+ incr frame
+ if {$frame > $nframes} {
+ set frame " "
+ }
+ }
+ send $widget set label $frame
+
+ set blinkFrames {}
+ foreach i {1 2 3 4} {
+ set frame [send blinkFrame$i get label]
+ if {$frame != " "} {
+ lappend blinkFrames $frame
+ }
+ }
+}; foreach i {1 2 3 4} {send blinkFrame$i addCallback cpSetBlinkFrame}
+
+proc cpBlink {widget args} \
+{
+ global blinkRate blinkId
+
+ if {$blinkRate < 0.01} {
+ send blinkButton set on False
+ send brBlinkButton set on False
+ blink
+ } elseif {($blinkId != 0) != [send $widget get on]} {
+ toggleBlink
+ }
+} ; foreach w {blinkButton brBlinkButton} {send $w addCallback cpBlink}
+
+
+proc cpAutoRegister {widget type state args} \
+{
+ global auto_reg frame frames blinkFrames
+ global frameZoomX frameZoomY frameOffsetX frameOffsetY
+
+ set auto_reg $state
+ if {$auto_reg == 1} {
+ send autoregButton set on True
+ send brAregButton set on True
+ } else {
+ send autoregButton set on False
+ send brAregButton set on False
+ }
+
+ # Register the frames to zero the offsets.
+ send client registerFrames \{$blinkFrames\}
+ foreach f $frames {
+ set frameOffsetX($f) 0
+ set frameOffsetY($f) 0
+ }
+} ; foreach w {autoregButton brAregButton} {send $w addCallback cpAutoRegister}
+
+
+proc toggleAutoReg args \
+{
+ global auto_reg
+ if {$auto_reg} {
+ cpAutoRegister autoregButton dummy 0
+ set auto_reg 0
+ } else {
+ cpAutoRegister autoregButton dummy 1
+ set auto_reg 1
+ }
+}
+
+proc resetAutoReg args \
+{
+ global auto_reg
+ if {$auto_reg} \
+ toggleAutoReg
+}; send initialize addCallback resetAutoReg
+
+
+proc cpResetBlink args \
+{
+ global blinkRate blinkFrames blinkIndex frames
+ global defaultBlinkRate
+
+ foreach i {1 2 3 4} {
+ send blinkFrame$i set label " "
+ }
+ for {set i 1} {$i <= 16} {incr i} {
+ send brFrame$i set label $i
+ }
+ set blinkRate $defaultBlinkRate
+ send BRtext set label $blinkRate
+ send brBRtext set label $blinkRate
+ set blinkIndex 0
+}
+send blinkReset addCallback cpResetBlink
+send brReset addCallback cpResetBlink
+
+proc cpTraceBlink {name element op} \
+{
+ upvar $name blinkId
+ send blinkButton set on [expr $blinkId != 0]
+ send brBlinkButton set on [expr $blinkId != 0]
+}; trace variable blinkId w cpTraceBlink
+
+proc cpSetBlinkFrames {param old new} \
+{
+ global blinkFrames frames
+
+ set blinkFrames {}
+ foreach i $frames {
+ if {$i <= $new} {
+ lappend blinkFrames $i
+ }
+ }
+ cpResetBlink
+ set button 1
+ for {set i 1} {$i <= $new} {incr i} {
+ if {$i <= 4} {
+ send blinkFrame$button set label $i
+ }
+ send brFrame$button set label $i
+ incr button
+ }
+}; send nframes addCallback cpSetBlinkFrames
+
+proc cpRegisterFrames args \
+{
+ global frames blinkFrames
+ global frameOffsetX frameOffsetY
+
+ foreach f $frames {
+ set frameOffsetX($f) 0
+ set frameOffsetY($f) 0
+ }
+ send client registerFrames \{$blinkFrames\}
+}
+send registerButton addCallback cpRegisterFrames
+send brRegButton addCallback cpRegisterFrames
+
+proc cpMatchFrames args \
+{
+ global blinkFrames
+ send client matchFrames \{$blinkFrames\}
+}
+send matchButton addCallback cpMatchFrames
+send brMatchButton addCallback cpMatchFrames
+
+
+# Options buttons.
+# -------------------------------
+proc cpSetPanner {widget args} \
+{
+ setPanner [send $widget get on]
+}; send pannerButton addCallback cpSetPanner
+
+proc cpTracePanner {name element op} \
+{
+ upvar $name panner_enable
+ send pannerButton set on $panner_enable
+}; trace variable panner_enable w cpTracePanner
+
+proc cpSetMagnifier {widget args} \
+{
+ setMagnifier [send $widget get on]
+}; send magnifierButton addCallback cpSetMagnifier
+
+proc cpTraceMagnifier {name element op} \
+{
+ upvar $name magnifier_enable
+ send magnifierButton set on $magnifier_enable
+}; trace variable magnifier_enable w cpTraceMagnifier
+
+proc cpSetCoordsBox {widget args} \
+{
+ setTrack [send $widget get on]
+}; send coordsBoxButton addCallback cpSetCoordsBox
+
+proc cpTraceCoordsBox {name element op} \
+{
+ upvar $name track_enable
+ send coordsBoxButton set on $track_enable
+}; trace variable track_enable w cpTraceCoordsBox
+
+proc cpSetWarnings args \
+{
+ global warnings
+ set warnings [send warningsButton get on]
+}; send warningsButton addCallback cpSetWarnings
+
+proc cpSetAutoscale args \
+{
+ set value [send autoscaleButton get on]
+ send client setOption autoscale [expr {$value ? "True" : "False"}]
+}; send autoscaleButton addCallback cpSetAutoscale
+
+proc cpTrackAutoscale {param old new} \
+{
+ send autoscaleButton set on [true $new]
+}; send autoscale addCallback cpTrackAutoscale
+
+proc cpSetAntialias args \
+{
+ set value [send antialiasButton get on]
+ send client setOption antialias [expr {$value ? "True" : "False"}]
+}; send antialiasButton addCallback cpSetAntialias
+
+proc cpTrackAntialias {param old new} \
+{
+ send antialiasButton set on [true $new]
+}; send antialias addCallback cpTrackAntialias
+
+proc cpSetTileFrames { widget type state args } \
+{
+ global tile_frames tileOpt
+
+ set value [send tileFramesButton get on]
+ if {$value} {
+ selectTileOrientation junk junk [tileSelToLabel $tileOpt]
+ } else {
+ selectTileOrientation junk junk Disabled
+ }
+ send client setOption tileFrames \
+ [expr {$value ? "True" : "False"}] \{ $tile_frames \}
+} ; send tileFramesButton addCallback cpSetTileFrames
+
+proc cpTrackTileFrames {param old new} \
+{
+ send tileFramesButton set on [true $new]
+}; send tileFrames addCallback cpTrackTileFrames
+
+proc tileFramesToggle args \
+{
+ set value [send tileFramesButton get on]
+ send tileFramesButton set on [expr !$value]
+ cpSetTileFrames
+}
+
+
+################################################################################
+# MAGNIFIER. A subraster around the cursor in the main image window is
+# displayed at a high resolution in a marker (known as the magnifier window)
+# within the main image window.
+################################################################################
+
+set magnifier_x 0
+set magnifier_y 0
+set magnifier_width 0
+set magnifier_height 0
+set mrm_width 0
+set mrm_height 0
+
+set magnifier_enable 0
+set magnifier_mag_enable 0
+set magnifier_mapping 0
+
+createMenu magzoomMenu imagewin {
+ { "Zoom Factors" f.title }
+ { f.dblline }
+ { "Zoom 1" f.exec "setMagnifierZoom 1" }
+ { "Zoom 2" f.exec "setMagnifierZoom 2" }
+ { "Zoom 4" f.exec "setMagnifierZoom 4" }
+ { "Zoom 8" f.exec "setMagnifierZoom 8" }
+ { "Zoom 16" f.exec "setMagnifierZoom 16" }
+}
+
+# Magnifier window translations.
+set magnifierWinTranslations { \
+ !Shift <Btn1Motion>: m_rotateResize()
+ <Btn1Motion>: m_moveResize()
+ !Shift <Btn1Down>: m_raise() m_markpos()
+ <Btn1Down>: m_raise() m_markposAdd()
+ <Btn1Up>: m_redraw() m_destroyNull()
+ <Btn2Down>: m_lower()
+ <Btn3Down>: popup(magzoomMenu)
+ <Btn3Up>: popdown(magzoomMenu)
+ !Ctrl <Key>m: call(toggleMagnifier)
+ !Ctrl <Key>p: call(togglePanner)
+ <Key>BackSpace: m_deleteDestroy()
+ <Key>Delete: m_deleteDestroy()
+ <KeyPress>: graphics-input()
+ <Motion>: track-cursor() call(wcsUpdate,$x,$y)
+}
+
+
+# setMagnifier -- Turn the magnifier on or off.
+
+set magAlreadyOn 0
+
+proc setDynamicMagnifier {state} \
+{
+ global magAlreadyOn magnifier_enable
+
+ if {$state} {
+ set magAlreadyOn $magnifier_enable
+ }
+ if {$magAlreadyOn} {
+ return
+ } else {
+ setMagnifier $state
+ }
+}
+
+proc toggleMagnifier args \
+{
+ global magnifier_enable
+ if {$magnifier_enable} {
+ setMagnifier 0
+ } else {
+ setMagnifier 1
+ }
+}
+
+
+proc setMagnifier {state} \
+{
+ global winWidth winHeight frameWidth frameHeight
+ global frame magnifier_mapping magnifierWinTranslations magnifierArea
+ global magnifier_enable magnifier_height
+ global magnifierGeom magnifier_x magnifier_y magnifier_width
+
+ if {$state} {
+ if {$magnifier_enable} \
+ return
+
+ # Determine where to place the magnifier.
+ set scale [expr sqrt(double($magnifierArea) / (512 * 512))]
+ set scaled_width [expr int(512 * $scale) / 2 * 2 + 1]
+ set scaled_height [expr int(512 * $scale) / 2 * 2 + 1]
+ set defGeom [format "%sx%s-5+5" $scaled_width $scaled_height]
+ send imagewin parseGeometry $magnifierGeom $defGeom x y width height
+
+ # Create the main magnifier window (marker).
+ send imagewin createMarker magnifierWin \
+ type rectangle \
+ createMode noninteractive \
+ width [expr $width / 2] \
+ height [expr $height / 2] \
+ x [expr $x + $width / 2] \
+ y [expr $y + $height / 2] \
+ lineColor 8 \
+ highlightColor 8 \
+ translations $magnifierWinTranslations \
+ visible true \
+ sensitive true \
+ activated true
+
+ # Update the magnifier window position variables so that it comes up
+ # in the same place the next time.
+
+ send magnifierWin getRect boundary \
+ magnifier_x magnifier_y magnifier_width magnifier_height
+ set magnifierGeom [send imagewin getGeometry \
+ $magnifier_x $magnifier_y $magnifier_width $magnifier_height]
+
+ # Register callbacks.
+ send imagewin addCallback magnifierImagewinResized resize
+ send resize addCallback magnifierImagewinResized
+ send magnifierWin addCallback magnifierMovedMapImage moveResize
+
+ send magnifierWin {
+ addCallback magnifierMoved moveResize;
+ addCallback magnifierDestroy destroy;
+ addCallback magnifierWinConstraint constraint;
+ }
+
+ # Map display frame to magnifier window.
+ set magnifier_enable 1
+ set magnifier_mapping [send imagewin nextMapping]
+ send imagewin refreshMapping $magnifier_mapping
+
+ # create cross-hair
+ send imagewin createMarker magPointer \
+ type rectangle \
+ createMode noninteractive \
+ width 3 \
+ height 3 \
+ lineWidth 3 \
+ lineColor green \
+ highlightcolor green \
+ activated true \
+ visible true
+
+ # set its position and size
+ setMagPointerPosition
+ magnifierMapImage [expr $winWidth / 2] [expr $winHeight / 2]
+
+ } elseif {$magnifier_enable} {
+ magnifierDestroy
+ }
+}
+
+
+# magnifierDestroy -- Delete the magnifier.
+
+proc magnifierDestroy args \
+{
+ global magnifier_enable
+ global magnifier_mapping
+
+ if {$magnifier_enable} {
+ set magnifier_enable 0
+
+ send imagewin freeMapping $magnifier_mapping
+ send imagewin deleteCallback magnifierImagewinResized
+ send resize deleteCallback magnifierImagewinResized
+ send frame deleteCallback magnifierMapImage
+
+ if [send server queryObject magnifierWin] {
+ send magnifierWin destroy
+ }
+ if [send server queryObject magPointer] {
+ send magPointer destroy
+ }
+ }
+}
+
+
+# magnifierMoved -- Called when the user moves the magnifier window. We need to
+# move the region marker to the new window location and record the new location
+# so that the window will come up in the same place if closed and reopened.
+
+proc magnifierMoved {marker event position} \
+{
+ global winWidth winHeight magnifierGeom frame
+ global magnifier_x magnifier_y magnifier_width magnifier_height
+
+ # Move the region marker to the new location.
+ send client getSource raster sx sy snx sny
+
+ # Update the magnifier window position variables so that it comes up
+ # in the same place the next time.
+
+ send magnifierWin getRect boundary \
+ magnifier_x magnifier_y magnifier_width magnifier_height
+ set magnifierGeom [send imagewin getGeometry \
+ $magnifier_x $magnifier_y $magnifier_width $magnifier_height]
+}
+
+
+# magnifierWinConstraint -- Called when the magnifier window is moved, resized,
+# or rotated. Constrain the magnifier window to remain within the image window;
+# rotation is not permitted.
+
+proc magnifierWinConstraint {marker event attributes} \
+{
+ global winWidth winHeight
+ global magnifier_width magnifier_height
+
+ set width $magnifier_width
+ set height $magnifier_height
+ set constraints [list {}]
+
+ # Check the width and height first as we need these below.
+ foreach i $attributes {
+ set new [lindex $i 2]
+ switch [lindex $i 0] {
+ width { set ww [expr $winWidth / 2]
+ if {$new > $ww} {
+ lappend constraints "width $ww"
+ set width $ww
+ } else {
+ set width $new
+ }
+ }
+ height { set wh [expr $winHeight / 2]
+ if {$new > $wh} {
+ lappend constraints "height $wh"
+ set height $wh
+ } else {
+ set height $new
+ }
+ }
+ rotangle { lappend constraints "rotangle 0"
+ }
+ }
+ }
+
+ # Constrain X and Y.
+ foreach i $attributes {
+ set new [lindex $i 2]
+ switch [lindex $i 0] {
+ x { set pw [expr $width / 2]
+ if {$new < $pw} {
+ lappend constraints "x $pw"
+ } elseif {$new > $winWidth - $pw} {
+ lappend constraints "x [expr $winWidth - $pw]"
+ }
+ }
+ y { set ph [expr $height / 2]
+ if {$new < $ph} {
+ lappend constraints "y $ph"
+ } elseif {$new > $winHeight - $ph} {
+ lappend constraints "y [expr $winHeight - $ph]"
+ }
+ }
+ }
+ }
+
+ return $constraints
+}
+
+
+# magnifierRegionConstraint -- Called when the region marker in the magnifier
+# window is moved, resized, or rotated.
+
+proc magnifierRegionConstraint {marker event attributes} \
+{
+ global winWidth winHeight
+
+ set constraints [list {}]
+ send magnifierWin getRect interior p_x p_y p_width p_height
+
+ # Since the magnifier region marker is a box marker x,y and width,height
+ # will not both change in the same call, so we can process them all
+ # independently.
+
+ foreach i $attributes {
+ set new [lindex $i 2]
+
+ switch [lindex $i 0] {
+ x { set left [expr $p_x + $rwidth + 1]
+ set right [expr $p_x + $p_width - $rwidth - 1]
+ if {$new < $left} {
+ lappend constraints "x $left"
+ } elseif {$new > $right} {
+ lappend constraints "x $right"
+ }
+ }
+ y { set top [expr $p_y + $rheight + 1]
+ set bottom [expr $p_y + $p_height - $rheight - 1]
+ if {$new < $top} {
+ lappend constraints "y $top"
+ } elseif {$new > $bottom} {
+ lappend constraints "y $bottom"
+ }
+ }
+ width { set ww [expr $winWidth / 2]
+ if {$new > $ww / 2} {
+ lappend constraints "width $ww"
+ }
+ }
+ height { set wh [expr $winHeight / 2]
+ if {$new > $wh / 2} {
+ lappend constraints "height $wh"
+ }
+ }
+ rotangle { lappend constraints "rotangle 0"
+ }
+ }
+ }
+
+ return $constraints
+}
+
+
+# magnifierImagewinResized -- If the display window is resized make the
+# magnifier track the corner.
+
+proc magnifierImagewinResized args \
+{
+ global magnifier_enable magnifier_mapping magnifier_height
+ global magnifierGeom magnifier_x magnifier_y magnifier_width
+
+ if {$magnifier_enable} {
+ set old_x $magnifier_x; set old_width $magnifier_width
+ set old_y $magnifier_y; set old_height $magnifier_height
+
+ # Get new location of magnifier window.
+ set defGeom [format "%sx%s+5+5" $magnifier_width $magnifier_height]
+ send imagewin parseGeometry $magnifierGeom $defGeom x y width height
+
+ # Reposition the marker.
+ send magnifierWin "\
+ markpos; \
+ setAttributes \
+ x [expr $x + $width / 2] \
+ y [expr $y + $height / 2] \
+ width [expr $width / 2] \
+ height [expr $height / 2]; \
+ redraw"
+
+ # Update the magnifier window position variables so that it comes up
+ # in the same place the next time.
+ send magnifierWin getRect boundary \
+ magnifier_x magnifier_y magnifier_width magnifier_height
+ set magnifierGeom [send imagewin getGeometry \
+ $magnifier_x $magnifier_y $magnifier_width $magnifier_height]
+
+ # Make sure the magnifier window is on top.
+ send imagewin raiseMapping $magnifier_mapping
+
+ # Refresh the magnifier window if it did not move.
+ if {$magnifier_x == $old_x && $magnifier_y == $old_y &&
+ $magnifier_width == $old_width && $magnifier_height == $old_height} {
+ send imagewin refreshMapping $magnifier_mapping
+ }
+ }
+}
+
+
+# resetMagnifier -- Reinitialize the magnifier.
+
+proc resetMagnifier {param old new} \
+{
+ global magnifierGeom displayMagnifier
+
+ if {$new == "done"} {
+ setMagnifier [true $displayMagnifier]
+ } else {
+ setMagnifier 0
+ if {$new != "startup"} {
+ set magnifierGeom +5+5
+ }
+ }
+}; send initialize addCallback resetMagnifier
+
+
+set last_mag_x [expr $winWidth / 2]
+set last_mag_y [expr $winHeight / 2]
+
+# magnifierMovedMapImage -- Front end to magnifierMapImage, called when
+# magnifier window is moved or resized.
+
+proc magnifierMovedMapImage args \
+{
+ global last_mag_x last_mag_y
+
+ magnifierMapImage $last_mag_x $last_mag_y
+ setMagPointerPosition
+}
+
+# The following code was borrowed from the SAOtng GUI by Eric Mandel of SAO
+#--------------------------------------------------------------------------
+
+# globals for magnifier
+set mag_w 0
+set mag_h 0
+
+#
+# setMagnifierZoom -- set the zoom factor for the magnifier
+#
+proc setMagnifierZoom { zoom } \
+{
+ global mag_w mag_h
+
+ send magnifierWin getRect boundary \
+ magnifier_x magnifier_y magnifier_width magnifier_height
+ set mag_w [expr int( ( $magnifier_width + $zoom - 1 ) / $zoom) ]
+ set mag_h [expr int( ( $magnifier_height + $zoom - 1 ) / $zoom) ]
+
+ #set mw [expr int (($magnifier_width - 1) / ($mag_w * 2))]
+ #if { $mw < 4 } { set mw 4 }
+ #set mh [expr int (($magnifier_height - 1) / ($mag_h * 2))]
+ #if { $mh < 4 } { set mh 4 }
+ #send magPointer "setAttributes width $mw height $mh; redraw"
+}
+
+# magnifierMapImage -- Map the of the current display frame centered on the
+# pointer into the magnifier window. Called when the frame changes, the
+# pointer moves in the main image window, or (via magnifierMovedMapImage)
+# the magnifier window is moved or resized.
+
+set magnifierROP 0
+
+proc magnifierMapImage {x y} \
+{
+ global magnifier_enable frame
+ global last_mag_x last_mag_y
+ global magnifier_mapping
+ global winWidth winHeight
+ global mag_w mag_h
+ global magnifierROP
+
+ if {!$magnifier_enable || $frame == 0} \
+ return
+
+# if {abs($last_mag_x-$x) != 1 && abs($last_mag_y-$y) != 1} {
+# # For efficiency we won't compute the sqrt of the distance but instead
+# # just compare the square. Use a threshold of 6 pixels so when we
+# # narrow in on the ROI the magnifier is still (mostly) correct.
+# set diff [expr (($last_mag_x-$x) * ($last_mag_x-$x)) + \
+# (($last_mag_y-$y) * ($last_mag_y-$y))]
+# if {$diff > 36} {
+# set last_mag_x $x
+# set last_mag_y $y
+# return
+# }
+# }
+
+ set last_mag_x $x
+ set last_mag_y $y
+
+ send magnifierWin getRect interior dx dy dnx dny
+ if [send imagewin activeMapping $magnifier_mapping] {
+ send imagewin raiseMapping $magnifier_mapping
+ }
+
+ # initialize the magnifier zoom factor, if necessary
+ if { !$mag_w || !$mag_h } {
+ setMagnifierZoom 4
+ }
+
+ set sx [expr $x - $mag_w / 2 ]
+ set sy [expr $y - $mag_h / 2 ]
+
+ # Constrain the source rectangle within the main image window
+ # (not overlapping an edge or the magnifier window).
+
+ if {$sx > [expr $dx - $mag_w] && $sx < [expr $dx + $dnx] &&
+ $sy > [expr $dy - $mag_h] && $sy < [expr $dy + $dny] } {
+
+ # The source rectangle would overlap the magnifier window; fix that.
+
+ set dist(l) [expr $sx - ($dx - $mag_w)]
+ set dist(b) [expr $dy + $dny - $sy]
+ set dist(r) [expr $dx + $dnx - $sx]
+ set dist(t) [expr $sy - ($dy - $mag_h)]
+
+ # Put the distances in order.
+
+ foreach j [array names dist] {
+ set alreadyset($j) 0
+ }
+
+ for {set i 0} {$i < 4} {incr i} {
+ set candidate ""
+ foreach j [array names dist] {
+ if {!$alreadyset($j)} {
+ if {$candidate == ""} {
+ set candidate $j
+ set minsofar $dist($j)
+ } elseif {$dist($j) < $minsofar} {
+ set candidate $j
+ set minsofar $dist($j)
+ }
+ }
+ }
+ set order($i) $candidate
+ set alreadyset($candidate) 1
+ }
+
+ # Try the sides in order, using the first one where there's room.
+
+ for {set i 0} {$i < 4} {incr i} {
+ if {$order($i) == "l"} {
+ if {$dx >= $mag_w} {
+ set sx [expr $dx - $mag_w]
+ break
+ }
+ } elseif {$order($i) == "b"} {
+ if {$winHeight >= $dy + $dny + $mag_h} {
+ set sy [expr $dy + $dny]
+ break
+ }
+ } elseif {$order($i) == "r"} {
+ if {$winWidth >= $dx + $dnx + $mag_w} {
+ set sx [expr $dx + $dnx]
+ break
+ }
+ } elseif {$order($i) == "t"} {
+ if {$dy >= $mag_h} {
+ set sy [expr $dy - $mag_h]
+ break
+ }
+ }
+ }
+ }
+
+ # Make sure we don't go beyond an edge of the main window.
+
+ if {$sx < 0} {
+ set sx 0
+ } else {
+ set sxmax [expr $winWidth - $mag_w]
+ if {$sx > $sxmax} {
+ set sx $sxmax
+ }
+ }
+
+ if {$sy < 0} {
+ set sy 0
+ } else {
+ set symax [expr $winHeight - $mag_h]
+ if {$sy > $symax} {
+ set sy $symax
+ }
+ }
+
+ # Map 32 x 32 centered on pointer in main window.
+ set err [catch {send imagewin setMapping $magnifier_mapping $magnifierROP \
+ 0 pixel $sx $sy $mag_w $mag_h \
+ 0 pixel $dx $dy $dnx $dny}]
+ if { $err != 0 } {
+ Print "There was a problem setting up the magnifier ... recovering"
+ }
+}
+
+
+# set the position of the magnifier marker in the center of the mag window
+proc setMagPointerPosition args \
+{
+ global magnifier_enable
+
+ if { !$magnifier_enable } \
+ return
+
+ send magnifierWin "getAttributes x x y y"
+ set xpos [expr $x + 1]
+ set ypos [expr $y + 1]
+
+ send magPointer "setAttributes x $xpos y $ypos visible true; redraw"
+}
+
+
+
+################################################################################
+# PANNER. The full frame mapped into the main image window is displayed at a
+# reduced resolution in a marker (known as the panner window) within the main
+# image window. The currently displayed region of the frame is indicated
+# using a small marker within the panner window. This small marker may be
+# moved or resized to pan or zoom the image in the main display window.
+################################################################################
+
+set panner_x 0
+set panner_y 0
+set panner_width 0
+set panner_height 0
+set prm_width 0
+set prm_height 0
+
+set panner_enable 0
+set panner_pan_enable 0
+set panner_mag_enable 0
+set panner_region_enable 0
+set panner_mapping 0
+
+# Panner window translations.
+set pannerWinTranslations { \
+ !Shift <Btn1Motion>: m_rotateResize()
+ <Btn1Motion>: m_moveResize()
+ !Shift <Btn1Down>: m_raise() m_markpos()
+ <Btn1Down>: m_raise() m_markposAdd()
+ <Btn1Up>: m_redraw() m_destroyNull()
+ <Btn2Down>: m_lower()
+ <Btn2Up>: call(pannerPanXY,$x,$y)
+ !Ctrl <Key>b: call(prevFrame,$name)
+ !Ctrl <Key>f: call(nextFrame,$name)
+ !Ctrl <Key>h: call(move_cursor,-1,0)
+ !Ctrl <Key>j: call(move_cursor,0,1)
+ !Ctrl <Key>k: call(move_cursor,0,-1)
+ !Ctrl <Key>l: call(move_cursor,1,0)
+ !Ctrl <Key>n: call(normalize)
+ !Ctrl <Key>c: call(cpZoomAction,centerFrame)
+ !Ctrl <Key>i: call(cpInvert)
+ !Ctrl <Key>m: call(toggleMagnifier)
+ !Ctrl <Key>p: call(togglePanner)
+ !Ctrl <Key>r: call(cpRegisterFrames)
+ !Ctrl <Key>s: call(cpMatchFrames)
+ !Alt <Key>1: call(cpSetFrame,frame1)
+ !Alt <Key>2: call(cpSetFrame,frame2)
+ !Alt <Key>3: call(cpSetFrame,frame3)
+ !Alt <Key>4: call(cpSetFrame,frame4)
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed)
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed)
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed)
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed)
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed)
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed)
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed)
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed)
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed)
+ <Key>BackSpace: m_deleteDestroy()
+ <Key>Delete: m_deleteDestroy()
+ <KeyPress>: graphics-input()
+ <Motion>: track-cursor() call(wcsUpdate,$x,$y)
+}
+
+
+# setPanner -- Turn the panner on or off.
+
+proc togglePanner args \
+{
+ global panner_enable
+
+ if {$panner_enable} {
+ setPanner 0
+ } else {
+ setPanner 1
+ }
+}
+
+
+proc setPanner {state} \
+{
+ global winWidth winHeight frameWidth frameHeight
+ global frame panner_mapping pannerWinTranslations pannerArea
+ global panner_enable panner_region_enable panner_pan_enable
+ global pannerGeom panner_x panner_y panner_width panner_height
+ global last_compass
+
+ if {$state} {
+ if {$panner_enable} \
+ return
+
+ # Determine where to place the panner.
+ set scale \
+ [expr sqrt(double($pannerArea) / ($frameWidth * $frameHeight))]
+ set scaled_width [expr int($frameWidth * $scale) / 2 * 2 + 1]
+ set scaled_height [expr int($frameHeight * $scale) / 2 * 2 + 1]
+ set defGeom [format "%sx%s-5+5" $scaled_width $scaled_height]
+ send imagewin parseGeometry $pannerGeom $defGeom x y width height
+
+ # Create the main panner window (marker).
+ send imagewin createMarker pannerWin \
+ type rectangle \
+ createMode noninteractive \
+ width [expr $width / 2] \
+ height [expr $height / 2] \
+ x [expr $x + $width / 2] \
+ y [expr $y + $height / 2] \
+ lineColor 8 \
+ highlightColor 8 \
+ translations $pannerWinTranslations \
+ visible true \
+ sensitive true \
+ autoRedraw true \
+ activated true
+
+ # Update the panner window position variables so that it comes up
+ # in the same place the next time.
+
+ send pannerWin getRect boundary \
+ panner_x panner_y panner_width panner_height
+ set pannerGeom [send imagewin getGeometry \
+ $panner_x $panner_y $panner_width $panner_height]
+
+ # Register callbacks.
+ send frame addCallback pannerMapImage
+ send frameRegion addCallback pannerSetRegion
+ send imagewin addCallback pannerImagewinResized resize
+ send resize addCallback pannerImagewinResized
+
+ send pannerWin {
+ addCallback pannerMapImage moveResize;
+ addCallback pannerMoved moveResize;
+ addCallback pannerDestroy destroy;
+ addCallback pannerWinConstraint constraint;
+ }
+
+ # Map display frame to panner window.
+ set panner_enable 1
+ set panner_region_enable 1
+ set panner_mapping [send imagewin nextMapping]
+ pannerMapImage init; send imagewin refreshMapping $panner_mapping
+
+ # Redraw the compass if necessary.
+ send compass "setSensitive True ; set on $last_compass"
+ if { $last_compass } \
+ drawCompass
+
+ # Draw a marker in the panner window outlining displayed region.
+ send imagewin createMarker pannerRegionMarker \
+ type box \
+ createMode noninteractive \
+ translations $pannerWinTranslations \
+ lineColor green \
+ highlightColor green \
+ sensitive true
+
+ # Fire up the panner region marker.
+ send client getSource raster sx sy snx sny
+ pannerSetRegion dummy dummy [concat $frame $sx $sy $snx $sny]
+ send pannerRegionMarker "\
+ addCallback pannerPanImage moveResize; \
+ addCallback pannerDestroy destroy; \
+ addCallback pannerRegionConstraint constraint; \
+ setAttributes visible true activated true; \
+ redraw"
+ set panner_pan_enable 1
+
+ } elseif {$panner_enable} {
+ pannerDestroy
+ }
+}
+
+
+# pannerDestroy -- Delete the panner.
+
+proc pannerDestroy args \
+{
+ global panner_enable panner_region_enable panner_pan_enable
+ global panner_mapping
+
+ if {$panner_enable} {
+ set panner_enable 0
+ set panner_pan_enable 0
+ set panner_region_enable 0
+
+ send imagewin freeMapping $panner_mapping
+ send imagewin deleteCallback pannerImagewinResized
+ send resize deleteCallback pannerImagewinResized
+ send frame deleteCallback pannerMapImage
+ send frameRegion deleteCallback pannerSetRegion
+
+ if [send server queryObject pannerRegionMarker] {
+ send pannerRegionMarker destroy
+ }
+ if [send server queryObject pannerWin] {
+ send pannerWin destroy
+ }
+
+ # Disable the compass.
+ send compass "setSensitive False ; set on False"
+ }
+}
+
+
+# pannerMapImage -- Map the current display frame into the panner window.
+# Called when the frame changes or the panner window is moved or resized.
+# The panner window displays a small dezoomed version of the full frame.
+
+proc pannerMapImage args \
+{
+ global panner_enable frame
+ global panner_mapping
+
+ if {!$panner_enable || $frame == 0} \
+ return
+
+ set raster [send client getRaster]
+ send pannerWin getRect interior dx dy dnx dny
+ send imagewin queryRaster $raster width height
+
+ if [send imagewin activeMapping $panner_mapping] {
+ send imagewin raiseMapping $panner_mapping
+ }
+ send imagewin setMapping $panner_mapping 0 \
+ $raster pixel 0 0 $width $height \
+ 0 pixel $dx $dy $dnx $dny
+}
+
+
+# pannerSetRegion -- Adjust the pannerWin region marker to outline the
+# region displayed in the main display window. This is called in response
+# to a frameRegion event when the main display mapping changes, e.g. when
+# the frame changes or the user zooms or pans the main window. The region
+# marker is moved and resized to reflect the new view.
+
+proc pannerSetRegion {param old new} \
+{
+ global panner_enable panner_region_marker
+ global panner_region_enable panner_pan_enable
+ global frame frameWidth frameHeight prm_width prm_height
+
+ if {!$panner_enable || !$panner_region_enable || $frame == 0} \
+ return
+
+ # new: frame sx sy snx sny
+ set src_frame [lindex $new 0]
+ set sx [lindex $new 1]; set snx [lindex $new 3]
+ set sy [lindex $new 2]; set sny [lindex $new 4]
+
+ if {$src_frame != $frame} \
+ return
+
+ send pannerWin getRect interior px py pnx pny
+
+ set x [expr ($sx + $snx/2.0) / $frameWidth * $pnx + $px]
+ set y [expr ($sy + $sny/2.0) / $frameHeight * $pny + $py]
+ set width [expr ($snx/2.0) / $frameWidth * $pnx + 1]
+ set height [expr ($sny/2.0) / $frameHeight * $pny + 1]
+
+ set pan_save $panner_pan_enable; set panner_pan_enable 0
+ set panner_region_enable 0
+
+ send pannerRegionMarker "\
+ markpos; \
+ setAttributes x $x y $y width $width height $height; \
+ redraw; raise"
+ send pannerRegionMarker getAttributes width prm_width height prm_height
+
+ set panner_region_enable 1
+ set panner_pan_enable $pan_save
+}
+
+
+# pannerPanImage -- Pan or zoom the image in the main image window. This is
+# called when the user moves the region marker within the panner window.
+
+proc pannerPanImage {marker event position} \
+{
+ global panner_pan_enable
+ global winWidth winHeight
+ global prm_width prm_height
+ global frame auto_reg frameOffsetX frameOffsetY
+
+ if {!$panner_pan_enable} \
+ return
+
+ # position: x y width height.
+ set new_width [lindex $position 2]
+ set new_height [lindex $position 3]
+
+ # region: type raster x y width height.
+ set region [send pannerRegionMarker getRegion unmap]
+ set x [expr [lindex $region 2] + 1]; set width [lindex $region 4]
+ set y [expr [lindex $region 3] + 1]; set height [lindex $region 5]
+
+ set panner_pan_enable 0
+ if {$new_width == $prm_width && $new_height == $prm_height} {
+ send client pan $x $y
+ } else {
+ set xscale [expr ($winWidth / 2.0) / $width]
+ set yscale [expr ($winHeight / 2.0) / $height]
+ if {$auto_reg == 1} {
+ send client zoomAbs $xscale $yscale $x $y \
+ $frameOffsetX($frame) $frameOffsetY($frame)
+ } else {
+ send client zoom $xscale $yscale $x $y
+ }
+ }
+ set panner_pan_enable 1
+}
+
+
+# pannerPanXY -- Pan to the point X,Y in the panner window coordinate
+# system. Called when the user clicks MB2 in the panner window.
+
+proc pannerPanXY {x y} \
+{
+ send imagewin unmapPixel $x $y raster rx ry
+ send client pan $rx $ry
+}
+
+
+# pannerMoved -- Called when the user moves the panner window. We need to
+# move the region marker to the new window location and record the new location
+# so that the window will come up in the same place if closed and reopened.
+
+proc pannerMoved {marker event position} \
+{
+ global winWidth winHeight
+ global frame panner_pan_enable pannerGeom
+ global panner_x panner_y panner_width panner_height
+
+ # Move the region marker to the new location.
+ set pan_save $panner_pan_enable; set panner_pan_enable 0
+ send client getSource raster sx sy snx sny
+ pannerSetRegion dummy dummy [concat $frame $sx $sy $snx $sny]
+ set panner_pan_enable $pan_save
+
+ # Update the panner window position variables so that it comes up
+ # in the same place the next time.
+
+ send pannerWin getRect boundary \
+ panner_x panner_y panner_width panner_height
+ set pannerGeom [send imagewin getGeometry \
+ $panner_x $panner_y $panner_width $panner_height]
+
+ drawCompass
+
+ send pannerRegionMarker raise
+}
+
+
+# pannerWinConstraint -- Called when the panner window is moved, resized, or
+# rotated. Constrain the panner window to remain within the image window;
+# rotation is not permitted.
+
+proc pannerWinConstraint {marker event attributes} \
+{
+ global winWidth winHeight
+ global panner_width panner_height
+
+ set width $panner_width
+ set height $panner_height
+ set constraints [list {}]
+
+ # Check the width and height first as we need these below.
+ foreach i $attributes {
+ set new [lindex $i 2]
+ switch [lindex $i 0] {
+ width { set ww [expr $winWidth / 2]
+ if {$new > $ww} {
+ lappend constraints "width $ww"
+ set width $ww
+ } else {
+ set width $new
+ }
+ }
+ height { set wh [expr $winHeight / 2]
+ if {$new > $wh} {
+ lappend constraints "height $wh"
+ set height $wh
+ } else {
+ set height $new
+ }
+ }
+ rotangle { lappend constraints "rotangle 0"
+ }
+ }
+ }
+
+ # Constrain X and Y.
+ foreach i $attributes {
+ set new [lindex $i 2]
+ switch [lindex $i 0] {
+ x { set pw [expr $width / 2]
+ if {$new < $pw} {
+ lappend constraints "x $pw"
+ } elseif {$new > $winWidth - $pw} {
+ lappend constraints "x [expr $winWidth - $pw]"
+ }
+ }
+ y { set ph [expr $height / 2]
+ if {$new < $ph} {
+ lappend constraints "y $ph"
+ } elseif {$new > $winHeight - $ph} {
+ lappend constraints "y [expr $winHeight - $ph]"
+ }
+ }
+ }
+ }
+
+ return $constraints
+}
+
+
+# pannerRegionConstraint -- Called when the region marker in the panner
+# window is moved, resized, or rotated.
+
+proc pannerRegionConstraint {marker event attributes} \
+{
+ global winWidth winHeight
+ global frame
+
+ set constraints [list {}]
+ send pannerWin getRect interior p_x p_y p_width p_height
+ send pannerRegionMarker getAttributes width rwidth height rheight
+
+ # Since the panner region marker is a box marker x,y and width,height
+ # will not both change in the same call, so we can process them all
+ # independently.
+
+ foreach i $attributes {
+ set new [lindex $i 2]
+
+ switch [lindex $i 0] {
+ x { set left [expr $p_x + $rwidth + 1]
+ set right [expr $p_x + $p_width - $rwidth - 1]
+ if {$new < $left} {
+ lappend constraints "x $left"
+ } elseif {$new > $right} {
+ lappend constraints "x $right"
+ }
+ }
+ y { set top [expr $p_y + $rheight + 1]
+ set bottom [expr $p_y + $p_height - $rheight - 1]
+ if {$new < $top} {
+ lappend constraints "y $top"
+ } elseif {$new > $bottom} {
+ lappend constraints "y $bottom"
+ }
+ }
+ width { set ww [expr $winWidth / 2]
+ if {$new > $ww / 2} {
+ lappend constraints "width $ww"
+ }
+ }
+ height { set wh [expr $winHeight / 2]
+ if {$new > $wh / 2} {
+ lappend constraints "height $wh"
+ }
+ }
+ rotangle { lappend constraints "rotangle 0"
+ }
+ }
+ }
+ drawCompass
+
+ return $constraints
+}
+
+
+# pannerImagewinResized -- If the display window is resized make the panner
+# track the corner.
+
+proc pannerImagewinResized args \
+{
+ global panner_enable panner_mapping
+ global pannerGeom panner_x panner_y panner_width panner_height
+ global frame
+
+ if {$panner_enable} {
+ set old_x $panner_x; set old_width $panner_width
+ set old_y $panner_y; set old_height $panner_height
+
+ eraseCompass
+
+ # Get new location of panner window.
+ set defGeom [format "%sx%s-5+5" $panner_width $panner_height]
+ send imagewin parseGeometry $pannerGeom $defGeom x y width height
+
+ # Reposition the marker.
+ send pannerWin "\
+ markpos; \
+ setAttributes \
+ x [expr $x + $width / 2] \
+ y [expr $y + $height / 2] \
+ width [expr $width / 2] \
+ height [expr $height / 2]; \
+ redraw"
+
+ # Update the panner window position variables so that it comes up
+ # in the same place the next time.
+ send pannerWin getRect boundary \
+ panner_x panner_y panner_width panner_height
+ set pannerGeom [send imagewin getGeometry \
+ $panner_x $panner_y $panner_width $panner_height]
+
+ # Make sure the panner window is on top.
+ send imagewin raiseMapping $panner_mapping
+
+ # Refresh the panner window if it did not move.
+ if {$panner_x == $old_x && $panner_y == $old_y &&
+ $panner_width == $old_width && $panner_height == $old_height} {
+ send imagewin refreshMapping $panner_mapping
+ }
+
+ drawCompass
+ }
+}
+
+
+# resetPanner -- Reinitialize the panner.
+
+proc resetPanner {param old new} \
+{
+ global pannerGeom displayPanner
+ if {$new == "done"} {
+ setPanner [true $displayPanner]
+ } else {
+ setPanner 0
+ if {$new != "startup"} {
+ set pannerGeom -5+5
+ }
+ }
+}; send initialize addCallback resetPanner
+
+
+
+################################################################################
+# Print Panel Functions.
+################################################################################
+
+# Global variables needed for the print setup panel
+
+set printColor prGrayButton
+set orientation epsPortButton
+set page_size epsLetterButton
+set imageScale 100
+
+set epsWidgets { epsPageGroup epsOrientLabel epsSizeLabel
+ epsPortButton epsLandButton epsLetterButton epsLegalButton epsA4Button
+ ScaleFrame SCdecrease SCtext SCincrease
+}
+
+
+proc psetup_init args \
+{
+ global printColor orientation page_size imageScale #format
+
+ set_printer toPrinter callback 1
+ send SCtext set label [ format "%d %%" $imageScale ]
+ send $printColor set on true
+ send $orientation set on true
+ send $page_size set on true
+}
+
+
+proc doPrintOptions { param old new } \
+{
+ global imageScale page_size orientation imageScale printColor
+ global warnings
+
+ send printStatus set label {}
+ set val [join [lrange $new 1 end] " "]
+
+ # print [format "doPrintOptions %s = %s" [lindex $new 0] $val]
+ switch [lindex $new 0] {
+ autoscale { if { $val == "True" } {
+ send epsscaleButton set on true
+ } elseif { $val == "False" } {
+ send epsscaleButton set on false
+ }
+ }
+ autorotate { if { $val == "True" } {
+ send autorotateButton set on true
+ } elseif { $val == "False" } {
+ send autorotateButton set on false
+ }
+ }
+ maxaspect { if { $val == "True" } {
+ send aspectButton set on true
+ } elseif { $val == "False" } {
+ send aspectButton set on false
+ }
+ }
+ annotate { if { $val == "True" } {
+ send annotateButton set on true
+ send titleButton setSensitive true
+ send colorbarButton setSensitive true
+ send bordersButton setSensitive true
+ send titleLabel setSensitive true
+ send titleString setSensitive true
+ } elseif { $val == "False" } {
+ send annotateButton set on false
+ send titleButton setSensitive false
+ send colorbarButton setSensitive false
+ send bordersButton setSensitive false
+ send titleLabel setSensitive false
+ send titleString setSensitive false
+ }
+ }
+ compress { if { $val == "True" } {
+ send compressButton set on true
+ } elseif { $val == "False" } {
+ send compressButton set on false
+ }
+ }
+ orientation { send $orientation set on false
+ if { $val == "portrait" } {
+ send epsPortButton set on true
+ set orientation epsPortButton
+ } elseif { $val == "landscape" } {
+ send epsPortButton set on false
+ set orientation epsLandButton
+ }
+ }
+ papersize { send $page_size set on false
+ if { $val == "letter" } {
+ send epsLetterButton set on true
+ set page_size epsLetterButton
+ } elseif { $val == "legal" } {
+ send epsLegalButton set on true
+ set page_size epsLegalButton
+ } elseif { $val == "A4" } {
+ send epsA4Button set on true
+ set page_size epsA4Button
+ } elseif { $val == "B5" } {
+ send epsB5Button set on true
+ set page_size epsB5Button
+ }
+ }
+ imscale { set imageScale $val
+ send SCtext set label [ format "%d %%" $imageScale ]
+ }
+ colortype { send $printColor set on false
+ if { $val == "gray" } {
+ send prGrayButton set on true
+ set printColor prGrayButton
+ } elseif { $val == "pseudo" } {
+ send prPseudoButton set on true
+ set printColor prPseudoButton
+ } elseif { $val == "rgb" } {
+ send prRGBButton set on true
+ set printColor prRGBButton
+ }
+ }
+ printerName { if [send toPrinter get on] {
+ send printlist highlight $val
+ }
+ }
+ printCmd { if [send toPrinter get on] {
+ send printcmd set string $val
+ }
+ }
+ printFile { if [send toFile get on] {
+ send printcmd set string $val
+ }
+ }
+ deviceType { if { $val == "Printer" } {
+ send printerLabel set label "Print Command:"
+ send toPrinter set on true
+ send toFile set on false
+ } elseif { $val == "File" } {
+ send printerLabel set label "File Name:"
+ send toPrinter set on false
+ send toFile set on true
+ send printlist unhighlight
+ }
+ }
+ dotitle { if { $val == "True" } {
+ send titleButton set on true
+ } elseif { $val == "False" } {
+ send titleButton set on false
+ }
+ }
+ doborders { if { $val == "True" } {
+ send bordersButton set on true
+ } elseif { $val == "False" } {
+ send bordersButton set on false
+ }
+ }
+ docolorbar { if { $val == "True" } {
+ send colorbarButton set on true
+ } elseif { $val == "False" } {
+ send colorbarButton set on false
+ }
+ }
+ title { send titleString set string $val
+ }
+
+ status { send printStatus set label $val
+ send server synchronize
+ }
+ warning { if {$warnings} { Wexec server $val }
+ }
+ }
+}; send printOptions addCallback doPrintOptions
+
+
+# Print options procedures.
+# -------------------------------
+
+set prOptsWidgets {
+ toPrinter toFile
+ prGrayButton prPseudoButton prRGBButton
+ epsLandButton epsPortButton
+ epsLetterButton epsLegalButton epsA4Button epsB5Button
+ SCincrease SCdecrease
+}
+set prSimpleOptions {
+ epsscaleButton autorotateButton aspectButton annotateButton compressButton
+ titleButton bordersButton colorbarButton
+}
+
+proc prPrintCommand { widget cbtype args } \
+{
+ if [send toFile get on] {
+ send client setPrintOption printfile $args
+ send printStatus set label [format "output file set to %s" $args]
+ } else {
+ send client setPrintOption printcmd $args
+ send printStatus set label [format "print command set to %s" $args]
+ }
+}; send printcmd addCallback prPrintCommand
+
+proc prTitleString { widget cbtype args } \
+{
+ send client setPrintOption title $args
+}; send titleString addCallback prTitleString
+
+proc prOptionToggle { widget cbtype args } \
+{
+ global imageScale
+
+ # Handle the image scale widgets first.
+ switch $widget {
+ SCincrease { set scale [expr $imageScale + 5]
+ send client setPrintOption imscale $scale
+ return
+ }
+ SCdecrease { set scale [ expr $imageScale - 5 ]
+ send client setPrintOption imscale $scale
+ return
+ }
+ }
+
+ # If it's not one of those it must be one of the radio toggles.
+ set val [ send $widget get on ]
+ #print [ format "prOptionToggle %s = %s" $widget $val ]
+ if { $val == 1 } {
+ switch $widget {
+ toPrinter { send client setPrintOption devicetype printer }
+ toFile { send client setPrintOption devicetype file }
+
+ epsLandButton { send client setPrintOption orientation landscape }
+ epsPortButton { send client setPrintOption orientation portrait }
+
+ epsLetterButton { send client setPrintOption papersize letter }
+ epsLegalButton { send client setPrintOption papersize legal }
+ epsA4Button { send client setPrintOption papersize A4 }
+ epsB5Button { send client setPrintOption papersize B5 }
+
+ prGrayButton { send client setPrintOption colortype gray }
+ prPseudoButton { send client setPrintOption colortype pseudo }
+ prRGBButton { send client setPrintOption colortype rgb }
+ }
+ } else {
+ send $widget set on true
+ }
+
+} ; foreach w $prOptsWidgets { send $w addCallback prOptionToggle }
+
+proc prSimpleOptionToggle { widget args } \
+{
+ set val [ send $widget get on ]
+ #print [ format "prSimpleOptionToggle %s = %s" $widget $val ]
+
+ switch $widget {
+ epsscaleButton { send client setPrintOption autoscale $val }
+ autorotateButton { send client setPrintOption autorotate $val }
+ aspectButton { send client setPrintOption maxaspect $val }
+ annotateButton { send client setPrintOption annotate $val }
+ compressButton { send client setPrintOption compress $val }
+
+ titleButton { send client setPrintOption dotitle $val }
+ bordersButton { send client setPrintOption doborders $val }
+ colorbarButton { send client setPrintOption docolorbar $val }
+ }
+} ; foreach w $prSimpleOptions { send $w addCallback prSimpleOptionToggle }
+
+
+
+# Printer display and selection.
+# -------------------------------
+set lprList {}
+
+proc psSetPrintList {param old new} \
+{
+ global lprList
+ set lprList $new
+ send printlist setList $new resize
+ send printlist highlight 0
+}; send printerList addCallback psSetPrintList
+
+proc lprResize args \
+{
+ global lprList
+ send printlist setList $lprList resize
+ send printlist highlight 0
+}; send printlist addEventHandler lprResize ResizeRedirectMask
+
+proc psSelectPrint {widget cbtype selections indices} \
+{
+ global printerlist
+ foreach selection $selections {
+ send client setPrintOption printername $selection
+ }
+}; send printlist addCallback psSelectPrint
+
+
+proc Print args \
+{
+ global winWidth winHeight
+ send imagewin setCursorType busy
+
+ # Get the print command or file template if not previous reset.
+ set val [ send printcmd get string ]
+ if [send toFile get on] {
+ send client setPrintOption printfile $val
+ } else {
+ send client setPrintOption printcmd $val
+ }
+ set val [ send titleString get string ]
+ send client setPrintOption title $val
+ setPrintCorners 0 [expr $winWidth - 1] [expr $winHeight - 1] 0
+
+ send client print
+ send imagewin setCursorType idle
+} ; send okayPrint addCallback Print
+
+
+
+# setPrintCorners -- Tell the client the WCS of the image being printed.
+
+proc setPrintCorners { lx ly ux uy args } \
+{
+ global winWidth winHeight
+
+ # Convert raw corner screen coordinates to frame buffer raster coords.
+ send imagewin unmapPixel $lx $ly raster llx lly
+ set llx [expr "int ($llx)"]
+ set lly [expr "int ($lly)"]
+ set str [send client encodewcs $llx $lly]
+ scan $str "%g %g %g" llx_r lly_r z
+ set llx_i [expr "int ($llx_r)"]
+ set lly_i [expr "int ($lly_r)"]
+
+ send imagewin unmapPixel $ux $uy raster urx ury
+ set urx [expr "int ($urx)"]
+ set ury [expr "int ($ury)"]
+ set str [send client encodewcs $urx $ury]
+ scan $str "%g %g %g" urx_r ury_r z
+ set urx_i [expr "int ($urx_r)"]
+ set ury_i [expr "int ($ury_r)"]
+
+ send client setPrintOption corners $llx_i $lly_i $urx_i $ury_i
+}
+
+
+
+################################################################################
+# INFO box.
+################################################################################
+
+set infoMode infoOptFr
+
+
+# Current Frame information.
+proc infoFrameUpdate args \
+{
+ global version frame nframes
+ global frameWidth frameHeight frameDepth
+ global enhancement
+ global cpXcen cpYcen cpXoff cpYoff
+ global cpXmag cpYmag cpXscale cpYscale
+
+ if { [send infoOptWCS get on] } {
+ send client info wcs
+ return
+ } elseif {! [send infoOptFr get on]} \
+ return
+
+
+ if {$frame == 0} {
+ send infoText set string "initializing display..."
+ } else {
+ set line1 $version
+ set line2 [format "Image:\t\t%s" [send imageTitle get label]]
+ set line3 [format "Frame %d of %d:\t%d x %d" \
+ $frame $nframes $frameWidth $frameHeight]
+ set cmap [lindex $enhancement($frame) 0]
+ set brt [lindex $enhancement($frame) 1]
+ set con [lindex $enhancement($frame) 2]
+ set line4 [format "Colormap:\t%s" $cmap]
+ set line5 [format "Enhancement:\tBrt=%s Cont=%s" $brt $con]
+
+ set cntr [format "X: %0.1f\n\t\tY: %0.1f" $cpXcen $cpYcen]
+ set line6 [format "Center:\t\t%s" $cntr]
+
+ set line7 [format "Zoom:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXmag $cpYmag]
+ set line8 [format "Scale:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXscale $cpYscale]
+ set line9 [format "Offset:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXoff $cpYoff]
+
+ send infoText set string [
+ format "%s\n\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n\n" \
+ $line1 $line2 $line3 $line4 $line5 $line6 $line7 $line8 $line9
+ ]
+ }
+}
+set params {frame frameView nframes frameSize frameTitle enhancement}
+foreach p $params { send $p addCallback infoFrameUpdate }
+
+
+# Server Program State information.
+proc infoOptToggle { widget type state args } \
+{
+ global infoMode ismInfoText
+
+ if {$state} { set not False } else { set not True }
+
+ send $infoMode set on $not
+ set infoMode $widget
+
+ switch $widget {
+ infoOptFr { infoFrameUpdate }
+ infoOptSvr { set bp [send imagewin get basePixel]
+ set mc [send imagewin get maxColors]
+ send client info server $bp $mc
+ }
+ infoOptIsm { send infoText set string $ismInfoText }
+ infoOptClients { send client info clients }
+ infoOptWCS { send client info wcs }
+ infoOptFB { send client info imtoolrc }
+ }
+}
+set iopts {infoOptFr infoOptSvr infoOptIsm infoOptClients infoOptWCS infoOptFB }
+foreach w $iopts { send $w addCallback infoOptToggle }
+
+
+proc infoSetText { param old new } \
+{
+ send infoText set string $new
+} ; send info addCallback infoSetText
+
+
+
+################################################################################
+# Image and objects list display and section
+################################################################################
+
+proc filesTextHighlight { widget event args } \
+{
+ if { $event == "enterNotify" } {
+ send $widget set displayCaret True
+ } elseif { $event == "leaveNotify" } {
+ send $widget set displayCaret False
+ }
+}
+foreach w {imtemplateText fnameText z1Value z2Value} {
+ send $w addEventHandler filesTextHighlight enterWindowMask
+ send $w addEventHandler filesTextHighlight leaveWindowMask
+}
+
+send rootButton addCallback "send client setLoadOption root"
+send homeButton addCallback "send client setLoadOption home"
+send upButton addCallback "send client setLoadOption up"
+send rescanButton addCallback "send client setLoadOption rescan"
+
+set label \
+ [format "%-35.35s %6s %12s %12s"\
+ " Image" "Bitpix" " Size" " Title"]
+send imlistLabel set label $label
+send imlistLabel "set height 0 ; unmap"
+
+
+# Create the Frames menu on the load panel window.
+set loadItems { "Current f.exec \{send frameFrame set label Current\}"}
+for {set i 1} {$i <= $MAX_FRAMES} {incr i} {
+ lappend loadItems "\"\ \ $i\ \ \" f.exec \{send frameFrame set label $i\}"
+}; createMenu loadFrames frameFrame $loadItems
+
+
+
+
+
+# Filename pattern callback.
+proc setPattern { widget mode pattern args } \
+{
+ send client setLoadOption pattern $pattern
+} ; send imtemplateText addCallback setPattern
+
+
+# Load options parameter callback.
+proc doLoadOptions { param old new } \
+{
+ global warnings panel_up
+
+ set val [ join [lrange $new 1 end] " " ]
+
+ switch [lindex $new 0] {
+ pattern { send imtemplateText set string [format "%s" $val ] }
+ curdir { send dirLabel set label [format " Directory: %s" $val ] }
+ newfile { send fnameText set string $val }
+ status { send filesStatus set label $val
+ if { ! $panel_up } { send imageTitle set label $val }
+ send server synchronize
+ }
+ warning { if {$warnings} { Wexec server $val } }
+ gray { send grayscale set on $val }
+ zscale { send zscale set on $val
+ if {$val} {
+ send zrange setSensitive False
+ } else {
+ send zrange setSensitive True
+ }
+ }
+ zrange { send zrange set on $val
+ if {$val} {
+ foreach w {z1Label z1Value z2Label z2Value} {
+ send $w setSensitive False
+ }
+ } else {
+ foreach w {z1Label z1Value z2Label z2Value} {
+ send $w setSensitive True
+ }
+ }
+ }
+ z1 { send z1Value set string [format "%s" $val ] }
+ z2 { send z2Value set string [format "%s" $val ] }
+ nsample { send nsampValue set string [format "%s" $val ] }
+ }
+} ; send loadOptions addCallback doLoadOptions
+
+# Option utility routines.
+proc toggleGraymap args \
+{
+ send client setLoadOption gray [ send grayscale get on ]
+} ; send grayscale addCallback toggleGraymap
+
+proc toggleHeaders args \
+{
+ if { [send browseHdrs get on] } {
+ send client setLoadOption headers
+ send rootButton setSensitive False
+ send homeButton setSensitive False
+ send upButton setSensitive False
+ send rescanButton setSensitive False
+ send imlistLabel "set height 10 ; map"
+ } else {
+ send client setLoadOption rescan
+ send rootButton setSensitive True
+ send homeButton setSensitive True
+ send upButton setSensitive True
+ send rescanButton setSensitive True
+ send imlistLabel "set height 0 ; unmap"
+ }
+} ; send browseHdrs addCallback toggleHeaders
+
+proc toggleZscale args \
+{
+ send client setLoadOption zscale [send zscale get on]
+} ; send zscale addCallback toggleZscale
+
+proc toggleZrange args \
+{
+ send client setLoadOption zrange [send zrange get on]
+} ; send zrange addCallback toggleZrange
+
+proc setZ1 { widget mode pattern args } \
+{
+ send client setLoadOption z1 $pattern
+} ; send z1Value addCallback setZ1
+
+proc setZ2 { widget mode pattern args } \
+{
+ send client setLoadOption z2 $pattern
+} ; send z2Value addCallback setZ2
+
+proc setNsamp { widget mode pattern args } \
+{
+ send client setLoadOption nsample $pattern
+} ; send nsampValue addCallback setNsamp
+
+proc fileLoad { widget mode fname args } \
+{
+ loadImage $fname
+} ; send fnameText addCallback fileLoad
+
+
+
+# Image list selection routines.
+
+set fileList {}
+
+proc setFileList { param old new } \
+{
+ global fileList
+ set fileList $new
+
+ # Get the max length of the strings so we can set
+ # the list columns appropriately.
+ set max 0
+ foreach n $new {
+ set len [string length $n]
+ if {$len > $max} { set max $len }
+ }
+
+ # Optimize the number of columns for the file list.
+ if {$max > 35} {
+ send imageList set defaultColumns 1
+ } elseif {$max > 21} {
+ send imageList set defaultColumns 2
+ } elseif {$max > 12} {
+ send imageList set defaultColumns 3
+ } elseif {$max > 5} {
+ send imageList set defaultColumns 4
+ } else {
+ send imageList set defaultColumns 5
+ }
+
+ send imageList setList $new resize
+}; send filelist addCallback setFileList
+
+proc flResize args \
+{
+ global fileList
+ send imageList setList $fileList resize
+}; send imageList addEventHandler flResize ResizeRedirectMask
+
+proc flSelectPrint { widget cbtype selections args } \
+{
+ if {! [send autoload get on]} \
+ return
+
+ foreach selection $selections {
+ if { [send zrange get on] } {
+ loadImage [lindex $selection 0]
+ } else {
+ loadImage $selection
+ }
+ }
+}; send imageList addCallback flSelectPrint
+
+
+# Load the named image in the display.
+proc loadImage { name } \
+{
+ global frame
+
+ set fr [send frameFrame get label]
+
+ if { $fr == "Current" } { set fr $frame }
+
+ if { [fileSetOptions] >= 0 } {
+ send imagewin setCursorType busy
+ send client load $name $fr
+ send imagewin setCursorType idle
+ send fnameText set string $name
+ }
+}
+
+# Load button callback.
+proc fileLoadB args \
+{
+ set fname [send fnameText get string]
+ if {$fname == ""} {
+ Wexec client "No image name specified"
+ } else {
+ loadImage $fname
+ }
+} ; send filesLoadButton addCallback fileLoadB
+
+
+# Send and selected options to the client before loading the image.
+proc fileSetOptions args \
+{
+ if { ![send zscale get on] && ![send zrange get on] } {
+ set z1 [send z1Value get string]
+ set z2 [send z2Value get string]
+
+ if {$z1 == $z2} {
+ Wexec client "z1/z2 values are not set properly"
+ return -1
+ } else {
+ send client setLoadOption z1 $z1
+ send client setLoadOption z2 $z2
+ }
+ }
+
+ return 0
+}
+
+
+################################################################################
+# Save panel functions.
+################################################################################
+
+# Global variables needed for the save setup panel
+
+set format rasButton
+set saveColor svPseudoButton
+
+set fileFmtButtons {
+ rasButton gifButton jpegButton tiffButton
+ fitsButton x11Button epsButton rawButton
+}
+
+
+# Format group procedures.
+#---------------------------------
+
+# Select a format.
+
+proc set_format { widget func state args } \
+{
+ global format saveColor
+
+ send $format set on false
+ if {$widget == $format} {
+ send $widget set on true
+ } else {
+ switch $widget {
+ rasButton { send client setSaveOption format ras }
+ gifButton { send client setSaveOption format gif }
+ jpegButton { send client setSaveOption format jpeg }
+ tiffButton { send client setSaveOption format tiff }
+ fitsButton { send client setSaveOption format fits }
+ x11Button { send client setSaveOption format x11 }
+ epsButton { send client setSaveOption format eps }
+ rawButton { send client setSaveOption format raw }
+ }
+ }
+} ; foreach fmt $fileFmtButtons { send $fmt addCallback set_format }
+
+proc setSaveFile { widget cbtype args } \
+{
+ send client setSaveOption fname $args
+ send saveStatus set label [format "output file set to %s" $args]
+}; send saveFile addCallback setSaveFile
+
+
+proc doSaveOptions { param old new } \
+{
+ global format saveColor
+ global warnings
+
+ send saveStatus set label {}
+ set val [join [lrange $new 1 end] " "]
+
+ #print [format "doSaveOptions %s = %s" [lindex $new 0] $val]
+ switch [lindex $new 0] {
+ format {
+ # Now (de)sensitize the color options depending on the format,
+ # force the color choice when needed.
+ send $format set on false
+ switch [lindex $val 0] {
+ ras { #send svRGBButton setSensitive false
+ send svPseudoButton setSensitive true
+ set format rasButton
+ }
+ gif { send svRGBButton setSensitive false
+ send svPseudoButton setSensitive true
+ if {$saveColor == "svRGBButton"} {
+ send $saveColor set on false
+ send svPseudoButton set on true
+ set saveColor svPseudoButton
+ }
+ set format gifButton
+ }
+ jpeg { send svRGBButton setSensitive true
+ send svPseudoButton setSensitive true
+ set format jpegButton
+ }
+ tiff { send svRGBButton setSensitive false
+ send svPseudoButton setSensitive true
+ set format tiffButton
+ }
+ fits { send svRGBButton setSensitive false
+ send svPseudoButton setSensitive false
+ send $saveColor set on false
+ send svGrayButton set on true
+ set saveColor svGrayButton
+ set format fitsButton
+ }
+ x11 { send svRGBButton setSensitive true
+ send svPseudoButton setSensitive true
+ set format x11Button
+ }
+ eps { send svRGBButton setSensitive true
+ send svPseudoButton setSensitive true
+ set format epsButton
+ }
+ raw { send svRGBButton setSensitive true
+ send svPseudoButton setSensitive true
+ set format rawButton
+ }
+ }
+ send $format set on true
+ }
+ color { send $saveColor set on false
+ switch [lindex $val 0] {
+ grayscale { send svGrayButton set on true
+ set saveColor svGrayButton
+ }
+ pseudocolor { send svPseudoButton set on true
+ set saveColor svPseudoButton
+ }
+ rgb { send svRGBButton set on true
+ set saveColor svRGBButton
+ }
+ }
+ }
+ fname { send saveFile set string $val
+ }
+ status { send saveStatus set label $val
+ send server synchronize
+ }
+ text { send saveData set label $val
+ }
+ warning { if {$warnings} { Wexec server $val }
+ }
+ }
+} ; send saveOptions addCallback doSaveOptions
+
+
+# Color group procedures.
+#---------------------------------
+send svGrayButton addCallback "send client setSaveOption color grayscale"
+send svPseudoButton addCallback "send client setSaveOption color pseudocolor"
+send svRGBButton addCallback "send client setSaveOption color rgb"
+
+
+proc Save args \
+{
+ global panel_up
+
+ send imagewin setCursorType busy
+
+ # Get the print command or file template if not previous reset.
+ set val [ send saveFile get string ]
+ send client setSaveOption fname $val
+ send saveStatus set label [format "output file set to %s" $args]
+
+ send client save
+ send imagewin setCursorType idle
+} ; send okaySave addCallback Save
+
+
+
+################################################################################
+# TILE GEOMETRY
+################################################################################
+
+set tileSel 2
+set tileOpt 0
+set tileNcols 2
+set tileNrows 1
+set tile_frames {}
+
+proc selectTileOrientation { widget type select args } \
+{
+ global tileSel tileOpt
+
+ set w { nrowLab ncolLab nrdecrease nrincrease ncdecrease ncincrease }
+ if {$select == "Manual"} {
+ foreach p $w { send $p setSensitive True }
+ } elseif {$select != "none"} {
+ foreach p $w { send $p setSensitive False }
+ }
+
+ set w { byCols bottomUp labelFrames labelImname labelTitles }
+ if {$select == "Disabled"} {
+ foreach p $w { send $p setSensitive False }
+ } else {
+ foreach p $w { send $p setSensitive True }
+ }
+
+ switch $select {
+ Disabled { set tileSel 0 }
+ Manual { set tileSel 1
+ set nx [send nctext get label]
+ set ny [send nrtext get label]
+ set select [format "%dx%d" $nx $ny]
+ }
+ Best { set tileSel 2 }
+ Square { set tileSel 3 }
+ Horizontal { set tileSel 4 }
+ Vertical { set tileSel 5 }
+ "One Row" { set tileSel 6 }
+ "One Column" { set tileSel 7 }
+ none { send tileMode set selection $tileSel ; return }
+ }
+
+ # Reset the button in case we're called directly from elsewhere.
+ send tileMode set selection $tileSel
+
+ # Send the option to the client.
+ if {$tileSel > 0} {
+ setTileFrames
+ send client setOption tileFrames "True"
+ set tileOpt $tileSel
+ } else {
+ send client setOption tileFrames "False"
+ }
+
+} ; send tileMode addCallback selectTileOrientation
+
+proc tileSelToLabel { selection args } \
+{
+ switch $selection {
+ 0 { return "Disabled" }
+ 1 { return "Manual" }
+ 2 { return "Best" }
+ 3 { return "Square" }
+ 4 { return "Horizontal" }
+ 5 { return "Vertical" }
+ 6 { return "One Row" }
+ 7 { return "One Column" }
+ }
+ return "Best"
+}
+
+# Callback for the fill style options.
+proc selectFillStyle { widget type state args } \
+{
+ if {$state} { set not False } else { set not True }
+
+ switch $widget {
+ byCols { send client setOption tileByRows $not }
+ bottomUp { send client setOption tileTopDown $not }
+ }
+} ; foreach w {byCols bottomUp} { send $w addCallback selectFillStyle }
+
+# Callback for the tile labelling options.
+proc selectTileLabels { widget type state args } \
+{
+ if {$state} {
+ switch $widget {
+ labelFrames { send client setOption tileLabels 1 }
+ labelImname { send client setOption tileLabels 2 }
+ labelTitles { send client setOption tileLabels 3 }
+ }
+ } else {
+ send client setOption tileLabels 0
+ }
+ send $widget set on $state
+}
+foreach w {labelFrames labelImname labelTitles} {
+ send $w addCallback selectTileLabels
+}
+
+# Callback for the Tile Frame selection toggles.
+proc setTileFrames args \
+{
+ global tile_frames tileSel tileNcols tileNrows
+
+ # No-op if tiling isn't enabled.
+ if {$tileSel == 0} \
+ return
+
+ # Get the new tile frames list.
+ set tile_frames {}
+ for {set i 1} {$i <= 16} {incr i} {
+ if {[send tFrame$i get state]} {
+ lappend tile_frames $i
+ }
+ }
+
+ # Reset the geometry.
+ set geom [format "%dx%d" $tileNcols $tileNrows]
+ switch $tileSel {
+ 1 { send client setOption tileGeom $geom \{ $tile_frames \} }
+ 2 { send client setOption tileGeom Best \{ $tile_frames \} }
+ 3 { send client setOption tileGeom Square \{ $tile_frames \} }
+ 4 { send client setOption tileGeom Horizontal \{ $tile_frames \} }
+ 5 { send client setOption tileGeom Vertical \{ $tile_frames \} }
+ 6 { send client setOption tileGeom Row \{ $tile_frames \} }
+ 7 { send client setOption tileGeom Column \{ $tile_frames \} }
+ }
+}; for {set i 1} {$i <= 16} {incr i} {send tFrame$i addCallback setTileFrames}
+
+proc setAllTileFrames args \
+{
+ global tileNcols tileNrows
+ for {set i 1} {$i <= 16} {incr i} {
+ if {[send tFrame$i get sensitive]} {
+ send tFrame$i set state True
+ }
+ }
+ setTileFrames
+} ; send tAll addCallback setAllTileFrames
+
+proc setNoTileFrames args \
+{
+ global tileNcols tileNrows
+ for {set i 1} {$i <= 16} {incr i} {
+ if {[send tFrame$i get sensitive]} {
+ send tFrame$i set state False
+ }
+ }
+ setTileFrames
+} ; send tNone addCallback setNoTileFrames
+
+proc tileOptions { param old new } \
+{
+ global tileNcols tileNrows
+
+ set tileNcols [lindex $new 0]
+ set tileNrows [lindex $new 1]
+
+ # Set the geometry.
+ send nctext set label $tileNcols
+ send nrtext set label $tileNrows
+ send tileGeometry set label [format \
+ "Tile Geometry: %-2dx%2d" $tileNcols $tileNrows]
+
+} ; send tileOptions addCallback tileOptions
+
+
+proc tileSetRows { widget args } \
+{
+ global nframes tile_frames
+
+ set nx [send nctext get label]
+ set ny [send nrtext get label]
+
+ if {$widget == "nrdecrease" && [expr ($ny-1)] > 0} {
+ incr ny -1
+ } elseif {$widget == "nrincrease" && [expr ($ny+1)] <= $nframes} {
+ incr ny 1
+ } else {
+ return
+ }
+ set geom [format "%dx%d" $nx $ny]
+ send client setOption tileGeom $geom $tile_frames
+} ; foreach w { nrdecrease nrincrease } { send $w addCallback tileSetRows }
+
+proc tileSetCols { widget args } \
+{
+ global nframes tile_frames
+
+ set nx [send nctext get label]
+ set ny [send nrtext get label]
+
+ if {$widget == "ncdecrease" && [expr ($nx-1)] > 0} {
+ incr nx -1
+ } elseif {$widget == "ncincrease" && [expr ($nx+1)] <= $nframes} {
+ incr nx 1
+ } else {
+ return
+ }
+ set geom [format "%dx%d" $nx $ny]
+ send client setOption tileGeom $geom $tile_frames
+} ; foreach w { ncdecrease ncincrease } { send $w addCallback tileSetCols }
+
+
+# Initialize the frame tiling.
+setAllTileFrames
+selectTileOrientation junk junk Disabled
+selectFillStyle byRows junk True
+selectFillStyle topDown junk True
+selectTileLabels labelImname junk False
+
+################################################################################
+# Coords Panel Callbacks.
+################################################################################
+
+# In case we need to change the values....
+#global wcsPHeight wcsPTxtHeight wcsPGrHeight wcsPOptHeight
+#set wcsPHeight 267
+#set wcsPTxtHeight 132
+#set wcsPGrHeight 175
+#set wcsPOptHeight 233
+#setCoordPanelHeight
+
+set wcsPHeight 267 ;# full panel no options
+set wcsPTxtHeight 132 ;# size of text area box
+set wcsPGrHeight 175 ;# size of text area group
+set wcsPOptHeight 233 ;# extra height for opts boxes
+
+# Set the WCS readout panel sensitivity depending on whether the ISM
+# is currently enabled.
+proc setCoordPanelSensitivity args \
+{
+ set widgets {
+ wpWcs2 wpWcs3 wpWcs4
+ wiWcs2 wiWcs3 wiWcs4
+ wlWcs2 wlWcs3 wlWcs4
+ sysWcs2 sysWcs3 sysWcs4
+ fmtWcs2 fmtWcs3 fmtWcs4
+ }
+
+ send sysWcs1 set label "Display"
+ send fmtWcs1 set label "Default"
+
+ for {set i 2} {$i <= 4} {incr i} {
+ send sysWcs$i set label "None" ; send fmtWcs$i set label "Default"
+ send wpWcs$i set on False ; send wiWcs$i set on False
+ send wtWcs$i set height 4
+ }
+
+ if {[send ismToggle get on]} {
+ send sysWcs2 set label "World" ; send fmtWcs2 set label "Default"
+ send wpWcs2 set on True ; send wiWcs2 set on True
+ send wtWcs2 set height 17
+
+ foreach w $widgets { send $w setSensitive True }
+ } else {
+ foreach w $widgets { send $w setSensitive False }
+ }
+}
+
+
+# Set the Coords Panel height depending on the option settings.
+proc setCoordPanelHeight args \
+{
+ global wcsPHeight wcsPOptHeight wcsPTxtHeight wcsPGrHeight
+ global tabTop
+
+ if {$tabTop != "wcs_panel"} \
+ return
+
+ # Get the height of the text area
+ set panel_h $wcsPHeight
+ set shrinkage 0
+ foreach w { wpWcs1 wpWcs2 wpWcs3 wpWcs4 woptFBinfo } {
+ if {[send $w get on] == 0} {
+ incr shrinkage 13
+ }
+ }
+ if {[send woptTitles get on] == 0} {
+ incr shrinkage 26
+ }
+
+ set ph [expr ($wcsPHeight - $shrinkage)]
+ if {[send wcsOptions get on] == 1} {
+ incr ph $wcsPOptHeight
+ }
+
+ send wcsGroup set height [ expr ($wcsPGrHeight - $shrinkage) ]
+ send wcsFrame set height [ expr ($wcsPTxtHeight - $shrinkage) ]
+ send panel set height $ph
+}
+
+# Toggle the options display for the panel.
+proc wcsOptToggle { widget type state args } \
+{
+ global wcsPOptHeight
+ set h [ send panel get height ]
+ if {$state == 1} {
+ send panel set height [ expr ($h + $wcsPOptHeight) ]
+ } else {
+ send panel set height [ expr ($h - $wcsPOptHeight) ]
+ }
+} ; send wcsOptions addCallback wcsOptToggle
+
+# Handle the panel display toggles.
+proc wcsCoordsCB { widget type state args } \
+{
+
+ set hght [ expr (($state == 1) ? 17 : 4)]
+ switch $widget {
+ wpWcs1 { send wtWcs1 set height $hght }
+ wpWcs2 { send wtWcs2 set height $hght }
+ wpWcs3 { send wtWcs3 set height $hght }
+ wpWcs4 { send wtWcs4 set height $hght }
+ woptFBinfo { send wtFBCfg set height $hght }
+ woptTitles { send wtName set height $hght ; send wtTitle set height $hght }
+ }
+ setCoordPanelHeight
+}
+set wcValues { wpWcs1 wpWcs2 wpWcs3 wpWcs4 woptFBinfo woptTitles }
+foreach w $wcValues { send $w addCallback wcsCoordsCB }
+
+
+# Handle WCS label string options.
+set wcsLabels 1
+proc wcsLabelsCB { widget type state args } \
+{
+ global up_todo wcsLabels
+ set wcsLabels $state
+ #resizeCoordsBox 0
+ resizeCoordsBox $up_todo
+ updateCoordsBox
+} ; send woptLabels addCallback wcsLabelsCB
+
+
+# Toggle the BPM tracking state.
+proc wcsBPMCB { widget type state args } \
+{
+ global ism_enable
+ if ($ism_enable) { catch { send wcspix set bpm $state } }
+} ; send woptBPM addCallback wcsBPMCB
+
+
+# Procedures to format lines in the wcsText box.
+proc wcsFmtImname { name } \
+{
+ send wtName set string [format " Name: %s" [string trimleft $name]]
+}
+
+proc wcsFmtImtitle { title } \
+{
+ send wtTitle set string [format " Title: %s" [string trimleft $title]]
+}
+
+proc wcsFmtFBConfig args \
+{
+ global frameWidth frameHeight frame nframes
+ set buf [ format "%5d x %-5d" $frameWidth $frameHeight ]
+ set line [ format "Frame Buf: %-13s Frame: %d of %d" \
+ [string trimleft $buf] $frame $nframes ]
+ send wtFBCfg set string $line
+}
+
+proc wcsFmtIValue { value } \
+{
+ global coord
+ set line [ format " Pixel: %.11s" $value ]
+ send wtIPixval set string $line
+ if {[info exists coord(ival)]} {
+ set coord(ival) $value
+ updateCoordsBox
+ }
+}
+
+proc wcsFmtSValue { value } \
+{
+ global coord
+ set line [ format " Scaled: %.8s" $value ]
+ send wtSPixval set string $line
+ set coord(sval) [format "%s" $value]
+}
+
+proc wcsFmtBValue { value } \
+{
+ global coord
+
+ if { [send woptBPM get on] } {
+ set line [ format " BPM: %s" $value ]
+ set color [expr { ($value == 0) ? "black" : "red" } ]
+ set msg [format "set string \{%s\}; set background %s" $line $color ]
+ set coord(bval) [format "%s" $value]
+ } else {
+ set line [ format " BPM: (off)" ]
+ set msg [format "set string \{%s\}" $line]
+ }
+ send wtBPixval $msg
+}
+
+proc wcsFmtWcs { num wcsname x y xunit yunit args } \
+{
+ global coord coordLab wcsLabels
+
+ if {$wcsLabels} {
+ set line [ format "%4s: %12s %4s: %12s WCS: %s" \
+ $xunit $x $yunit $y [string trimleft $wcsname] ]
+ } else {
+ set line [ format "%4s %12s %4s %12s %s" \
+ " " $x " " $y [string trimleft $wcsname] ]
+ }
+ send wtWcs$num set string $line
+
+ if {[info exists coord(wcs$num)]} {
+ if {$num == 1} {
+ set coord(wcs1) [ format "\{%s\} \{%s\} \{%s\}" $x $y $coord(sval) ]
+ } elseif {$num == 2} {
+ set coord(wcs2) [ format "\{%s\} \{%s\} \{%s\}" $x $y $coord(ival) ]
+ } else {
+ set coord(wcs$num) [ format "\{%s\} \{%s\} \{%s\}" $x $y $wcsname ]
+ }
+
+ set coordLab(wcs$num) [ format "\{%s\} \{%s\} \{%s\}" \
+ $xunit $yunit [string trimleft $wcsname ] ]
+ updateCoordsBox
+ }
+}
+
+
+
+# Handle the wcsbox readout.
+#------------------------------
+set up_todo 2
+set up_done 0
+set coord(ival) 0.
+set coord(sval) 0.
+set coord(bval) 0
+set coord(wcs1) { 0. 0. 0. }
+set coord(wcs2) { 0. 0. 0. }
+set coord(wcs3) { 0. 0. 0. }
+set coord(wcs4) { 0. 0. 0. }
+
+proc wcsCoordB { widget type state args } \
+{
+ global coord up_todo
+
+ switch $widget {
+ wiWcs1 { set line wcs1 ;set coord($line) { 0. 0. "" } }
+ wiWcs2 { set line wcs2 ;set coord($line) { 0. 0. "" } }
+ wiWcs3 { set line wcs3 ;set coord($line) { 0. 0. "" } }
+ wiWcs4 { set line wcs4 ;set coord($line) { 0. 0. "" } }
+ }
+
+ if {$state} {
+ incr up_todo
+ } else {
+ unset coord($line)
+ incr up_todo -1
+ }
+
+ resizeCoordsBox $up_todo
+ updateCoordsBox
+}
+set wiValues { wiWcs1 wiWcs2 wiWcs3 wiWcs4 }
+foreach w $wiValues { send $w addCallback wcsCoordB }
+
+
+# Resize the coords box depending on the panel options.
+proc resizeCoordsBox { nlines } \
+{
+ global track_enable wcsLabels winWidth winHeight wcsboxGeom
+
+ if {! $track_enable} \
+ return
+
+ send wcsbox getAttributes width cur_w height cur_h
+ set defGeom [format "%sx%s-5-5" $cur_w $cur_h]
+ send imagewin parseGeometry $wcsboxGeom $defGeom x y width height
+
+ set ew [expr (($wcsLabels == 1) ? 125 : 65)]
+
+ # Reset to the default geometry
+ if {$nlines == 0} {
+ set x [expr ($x + $ew)]
+ set y [expr ($y + $height - 17 + 1)]
+ set new_w 166
+ set new_h 17
+
+ } else {
+ if {$width > 166} { ;# not using default wcsbox
+ set new_w $width
+ } else {
+ set new_w [expr ($width + $ew)]
+ set x [expr ($x - $ew)]
+ if {$wcsLabels == 0} {
+ incr x 60
+ }
+ }
+ set new_h [ expr ($nlines * 17) ]
+ set y [expr ($y + $height - $new_h + 1)]
+ }
+
+ # Bounds checking.
+ if {$x < 5} {
+ set x 5
+ } elseif {$x > [expr ($winWidth - $new_w - 5)]} {
+ set x [expr ($winWidth - $new_w - 5)]
+ }
+ if {$y < 5} {
+ set y 5
+ } elseif {$y > [expr ($winHeight - $new_h - 5)]} {
+ set y [expr ($winHeight - $new_h - 5)]
+ }
+
+ # Finally redraw the marker.
+ send wcsbox "\
+ setAttributes \
+ width $new_w \
+ height $new_h \
+ x $x \
+ y $y; \
+ redraw"
+
+ set wcsboxGeom [send imagewin getGeometry $x $y $new_w $new_h]
+ send client encodewcs [expr ($winWidth / 2)] [expr ($winHeight / 2)]
+ updateCoordsBox
+}
+
+
+# Shortcuts for known WCS labels.
+set labels(display) "TV"
+set labels(logical) "Log"
+set labels(physical) "Phys"
+set labels(equatorial) "Eq"
+set labels(ecliptic) "Ecl"
+set labels(galactic) "Gal"
+set labels(supergalactic) "SGal"
+set labels(amplifier) "Amp"
+set labels(ccd) "CCD"
+set labels(detector) "Det"
+
+
+# Format the coords box marker with the selected output options.
+proc updateCoordsBox args \
+{
+ global ism_enable coord coordLab wcsLabels
+ global up_done up_todo labels track_enable
+ global coord
+
+ if {! $ism_enable} \
+ return
+
+ incr up_done
+
+ set text ""
+ foreach l {wcs1 wcs2 wcs3 wcs4} {
+ if {[info exists coord($l)]} {
+ set x [lindex $coord($l) 0]
+ set y [lindex $coord($l) 1]
+ set z [string tolower [string trimleft [lindex $coord($l) 2] ] ]
+ if {[info exists labels($z)]} {
+ set z $labels($z)
+ }
+
+ if {$wcsLabels && [info exists coordLab($l)]} {
+ set lx [lindex $coordLab($l) 0]
+ set ly [lindex $coordLab($l) 1]
+ append text [format " %4s %12.12s %4s %12.12s %9.9s \n" \
+ $lx $x $ly $y $z ]
+ } else {
+ append text [format " %12.12s %12.12s %9.9s \n" $x $y $z ]
+ }
+ }
+ }
+
+ # Now send the string.
+ if {$track_enable} {
+ set color [expr { ($coord(bval) == 0) ? "black" : "red" } ]
+ set txt [format "set text \{%s\}; set textBgColor %s; redraw noerase" \
+ $text $color ]
+ send wcsbox $txt
+ }
+
+ if {$up_done >= $up_todo} {
+ set up_done 0 ;# reset counter
+ }
+}
+
+
+# Create the WCS format menus.
+#------------------------------------
+proc setWcsFmt { format line } \
+{
+ catch { send wcspix set format $format $line }
+}
+
+for {set i 1} {$i <= 4} {incr i} {
+ set items {}
+ lappend items "\"Default\" f.exec \{setWcsFmt default $i\}"
+ lappend items "\"Sexigesimal\" f.exec \{setWcsFmt hms $i\}"
+ lappend items "\"Degrees\" f.exec \{setWcsFmt deg $i\}"
+ lappend items "\"Radians\" f.exec \{setWcsFmt rad $i\}"
+ editMenu fmtMenu$i fmtWcs$i $items
+}
+
+
+# Create the default WCS type menus.
+#------------------------------------
+
+set defaultWcsMenu {
+ { "None" f.exec {setWcsSys none WCS_LINE } }
+ { "Display" f.exec {setWcsSys display WCS_LINE } }
+ { "World" f.exec {setWcsSys world WCS_LINE } }
+ { "Logical" f.exec {setWcsSys logical WCS_LINE } }
+ { "Physical" f.exec {setWcsSys physical WCS_LINE } }
+ { f.dblline }
+}
+
+proc setWcsSys { sys line } \
+{
+ if {[string tolower $sys] == "none"} {
+ wcsCoordB wiWcs$line junk 0
+ send sysWcs$line set label "None"; send fmtWcs$line set label "Default"
+ send wpWcs$line set on False ; send wiWcs$line set on False
+ send wtWcs$line set height 4
+ setCoordPanelHeight
+
+ } else {
+ catch { send wcspix set wcs $sys $line }
+ }
+}
+
+proc resetDefaultWcsMenu args \
+{
+ global defaultWcsMenu
+
+ for {set i 1} {$i <= 4} {incr i} {
+ regsub -all WCS_LINE $defaultWcsMenu $i menu_def
+ editMenu sysMenu$i sysWcs$i $menu_def
+ }
+} ; resetDefaultWcsMenu
+
+
+# Initialize the coordinates panel.
+#------------------------------------
+
+proc initCoordsPanel args \
+{
+ #send wcLine set height 2 ;# kludge for label widget
+
+ # Initialize the display strings in the coords box.
+ wcsFmtImname ""
+ wcsFmtImtitle ""
+ wcsFmtFBConfig
+ wcsFmtIValue "0." ; wcsFmtSValue "0." ; wcsFmtBValue "0"
+ wcsFmtWcs 1 "" "" "" " X" " Y"
+ wcsFmtWcs 2 "" "" "" " X" " Y"
+ wcsFmtWcs 3 "" "" "" " X" " Y"
+ wcsFmtWcs 4 "" "" "" " X" " Y"
+
+ send fmtWcs1 set label Default
+ send wpWcs1 set on True ;send wiWcs1 set on True
+ send wpWcs2 set on True ;send wiWcs2 set on True
+ send wpWcs3 set on False ;send wiWcs3 set on False ;send wtWcs3 set height 4
+ send wpWcs4 set on False ;send wiWcs4 set on False ;send wtWcs4 set height 4
+
+ # Set the Coords Panel height.
+ set wcsPTxtHeight [send wcsText get height]
+ setCoordPanelHeight
+
+ # Set the WCS readout panel sensitivity.
+ setCoordPanelSensitivity
+
+} ; initCoordsPanel
+
+
+
+
+################################################################################
+# Compass indicator procedures.
+################################################################################
+
+set compassColor 207 ;# normally this is yellow
+set last_compass [send compass get on] ;# save compass state
+
+proc drawCompass args \
+{
+ global ism_enable frame frameCache compassColor Compass Orient
+ global panner_x panner_y panner_width panner_height cur_objid
+ global redraw_compass last_compass
+
+
+ if {! [send compass get on]} \
+ return
+
+ eraseCompass ;# erase the old compass
+
+ if {! [info exists frameCache($frame)] } {
+ set id -1
+ } elseif {$cur_objid != [lindex $frameCache($frame) 1]} {
+ set id [lindex $frameCache($frame) 1]
+ } else {
+ set id $cur_objid
+ }
+
+ if { [info exists Compass($id)] } {
+ set angle [lindex $Compass($id) 0]
+ set north_x [lindex $Compass($id) 1]
+ set north_y [lindex $Compass($id) 2]
+ set east_x [lindex $Compass($id) 3]
+ set east_y [lindex $Compass($id) 4]
+ set transpose [lindex $Compass($id) 5]
+ set xlab [lindex $Compass($id) 6]
+ set ylab [lindex $Compass($id) 7]
+ } else {
+ set north_x 0.0 ; set north_y 1.0
+ set east_x 1.0 ; set east_y 0.0
+ set xlab X ; set ylab Y
+ set angle 0.0 ; set transpose 0
+ set Compass($id) { 0.0 1.0 0.0 1.0 0.0 0 X Y }
+ }
+ set xflip 1
+ set yflip 1
+
+ # Adjust the compass for the display orientation (e.g. image sections
+ # used to flip an image during display).
+ if { [info exists Orient($id)] } {
+ set xflip [expr $xflip * [lindex $Orient($id) 1] ]
+ set yflip [expr $yflip * [lindex $Orient($id) 2] ]
+ }
+
+ # Get the panner center position.
+ set pcx [expr ($panner_x + $panner_width / 2)]
+ set pcy [expr ($panner_y + $panner_height / 2)]
+
+ # Setup for the overlay.
+ send imagewin getLogRes sv_xl sv_yl
+ send imagewin getPhysRes sv_xp sv_yp
+ send imagewin setLogRes $sv_xp $sv_yp
+ send imagewin setLineWidth 2
+
+ set xflip [ expr ($xflip * ([send xflipButton get state] ? -1 : 1))]
+ set yflip [ expr ($yflip * ([send yflipButton get state] ? -1 : 1))]
+
+ # Normalized compass points. The first row are the axes, second is
+ # the pointer head, and last are the X/Y label coords. Assumes a
+ # zero rotation with North up and East left, or standard X/Y orientation.
+ set cpoints {
+ {-1 0} {0 0} {0 -1}
+ {-0.07 -0.85} {0 -1} {0.07 -0.85} {-0.07 -0.85}
+ {-1.2 0} {0 -1.2}
+ }
+
+
+ # Get rotation and scale factors.
+ set angle [expr "atan2($north_y,$north_x)"]
+ set coso [expr "cos (-$angle)"]
+ set sino [expr "sin (-$angle)"]
+ set scale [expr ([min $panner_width $panner_height] * 0.3)]
+
+ # Initialize the drawing points.
+ set pts {}
+
+ set cpoints { }
+ lappend cpoints [list $east_x $east_y ]
+ lappend cpoints [list 0 0]
+ lappend cpoints [list $north_x $north_y]
+ foreach p $cpoints {
+ # Get the scaled position.
+ set sx [expr ($scale * [lindex $p [expr "($transpose > 0) ? 1 : 0"]])]
+ set sy [expr ($scale * [lindex $p [expr "($transpose > 0) ? 0 : 1"]])]
+
+ # Translate to the scaled position.
+ set rx [expr int($pcx + $sx + 0.5)]
+ set ry [expr int($pcy - $sy + 0.5)]
+
+ # Now handle the axis flip.
+ set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
+ set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
+ lappend pts $rx $ry
+ }
+
+
+ set rpoints { }
+ set hpoints { {0.0 0.0} {-0.1 -0.07} {-0.1 0.07} {0.0 0.0} }
+ foreach p $hpoints {
+ # Break out the position.
+ set sx [lindex $p [expr "($transpose > 0) ? 1 : 0"]]
+ set sy [lindex $p [expr "($transpose > 0) ? 0 : 1"]]
+
+ # Do the rotation of the head at the origin.
+ set rx [expr ($north_x + ($sx * $coso + $sy * $sino))]
+ set ry [expr ($north_y - ($sx * $sino + $sy * $coso))]
+
+ lappend rpoints [list $rx $ry]
+ }
+ foreach p $rpoints {
+ # Get the scaled position.
+ set sx [expr ($scale * [lindex $p [expr "($transpose > 0) ? 1 : 0"]])]
+ set sy [expr ($scale * [lindex $p [expr "($transpose > 0) ? 0 : 1"]])]
+
+ # Translate to the scaled position.
+ set rx [expr int($pcx + $sx + 0.5)]
+ set ry [expr int($pcy - $sy + 0.5)]
+
+ # Now handle the axis flip.
+ set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
+ set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
+ lappend pts $rx $ry
+ }
+
+ set lpoints { }
+ lappend lpoints [list [expr "$east_x-0.2"] $east_y ]
+ lappend lpoints [list $north_x [expr "$north_y+0.2"] ]
+ foreach p $lpoints {
+ # Get the scaled position.
+ set sx [expr ($scale * [lindex $p [expr "($transpose > 0) ? 1 : 0"]])]
+ set sy [expr ($scale * [lindex $p [expr "($transpose > 0) ? 0 : 1"]])]
+
+ # Translate to the scaled position.
+ set rx [expr int($pcx + $sx + 0.5)]
+ set ry [expr int($pcy - $sy - 0.5)]
+
+ # Now handle the axis flip.
+ set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
+ set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
+ lappend pts $rx $ry
+ }
+
+
+ # Draw the compass axes.
+ set compassPts [lrange $pts 0 5]
+ send imagewin setColorIndex $compassColor
+ send imagewin drawPolyline $compassPts
+
+
+ # Draw the compass pointer.
+ set head [lrange $pts 6 13]
+ send imagewin setFillType solid
+ send imagewin drawPolygon $head
+
+ # Draw the labels.
+ send imagewin drawAlphaText [lindex $pts 14] [lindex $pts 15] $xlab
+ send imagewin drawAlphaText [lindex $pts 16] [lindex $pts 17] $ylab
+
+ send imagewin setLogRes $sv_xl $sv_yl
+
+ set redraw_compass 0
+
+} ; foreach w {xflip yflip} { send $w addCallback drawCompass }
+
+
+proc createCompassMarker { pts args } \
+{
+ set cm_points { }
+ lappend cm_points [lrange $pts 0 1]
+ lappend cm_points [lrange $pts 2 3]
+ lappend cm_points [lrange $pts 4 5]
+
+ print [list $cm_points]
+
+}
+
+
+proc eraseCompass args \
+{
+ global panner_mapping
+ send imagewin refreshMapping $panner_mapping
+}
+
+proc toggleCompass { widget type state args } \
+{
+ global last_compass
+
+ if {$state} {
+ drawCompass
+ set last_compass True
+ } else {
+ eraseCompass
+ set last_compass False
+ }
+} ; send compass addCallback toggleCompass
+
+
+
+
+################################################################################
+# RULER MARKERS
+################################################################################
+
+set rulerX 0 ;# ruler start in screen coords
+set rulerY 0
+set rulerPts { {0 0} {0 0} {0 0} } ;# ruler vertices
+set rulerList { } ;# ruler list
+
+set rulerSticky { } ;# list of sticky rulers
+set isSticky "Sticky" ;# menu label
+
+set rulerWCS 0 ;# use WCS coords
+set rulerXWCS 0 ;# ruler start in WCS units
+set rulerYWCS 0
+set rulerXWCS2 0 ;# ruler end in WCS units
+set rulerYWCS2 0
+set rulerFmt pixel ;# ruler label format
+
+
+# Translations when pointer is inside marker.
+set rulerTranslations { \
+ !Ctrl <Key>b: call(prevFrame,$name)
+ !Ctrl <Key>b: call(prevFrame,$name)
+ !Ctrl <Key>f: call(nextFrame,$name)
+ !Ctrl <Key>h: call(move_cursor,-1,0)
+ !Ctrl <Key>j: call(move_cursor,0,1)
+ !Ctrl <Key>k: call(move_cursor,0,-1)
+ !Ctrl <Key>l: call(move_cursor,1,0)
+ !Ctrl <Key>n: call(normalize)
+ !Ctrl <Key>c: call(cpZoomAction,centerFrame)
+ !Ctrl <Key>i: call(cpInvert)
+ !Ctrl <Key>m: call(cpMatchFrames)
+ !Ctrl <Key>r: call(cpRegisterFrames)
+ !Ctrl <Key>p: call(togglePanner)
+ !Alt <Key>1: call(cpSetFrame,frame1)
+ !Alt <Key>2: call(cpSetFrame,frame2)
+ !Alt <Key>3: call(cpSetFrame,frame3)
+ !Alt <Key>4: call(cpSetFrame,frame4)
+ !Ctrl <Key>1: call(cpZoom,1,1,fixed)
+ !Ctrl <Key>2: call(cpZoom,2,2,fixed)
+ !Ctrl <Key>3: call(cpZoom,3,3,fixed)
+ !Ctrl <Key>4: call(cpZoom,4,4,fixed)
+ !Ctrl <Key>5: call(cpZoom,5,5,fixed)
+ !Ctrl <Key>6: call(cpZoom,6,6,fixed)
+ !Ctrl <Key>7: call(cpZoom,7,7,fixed)
+ !Ctrl <Key>8: call(cpZoom,8,8,fixed)
+ !Ctrl <Key>9: call(cpZoom,9,9,fixed)
+ <Key>BackSpace: call(deleteNamedRuler,NAME,$x,$y)
+ <Key>Delete: call(deleteNamedRuler,NAME,$x,$y)
+ <KeyPress>: m_input()
+ <Btn3Down>: call(setRulerMenu) popup(rulerMenu)
+ <Btn3Up>: popdown(rulerMenu)
+!Ctrl <Btn1Motion>: track-cursor() call(wcsUpdate,$x,$y) call(resizeRuler,$x,$y,0)
+ !Ctrl <Btn1Up>: call(deleteRuler,$x,$y)
+ <Motion>: track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)
+}
+
+
+
+# Popup menu in effect when inside marker.
+set rulerMenuDescription {
+ { "Ruler" f.title }
+ { f.dblline }
+ { "$isSticky" f.exec {
+ toggleSticky $ruler
+ } }
+ { f.line }
+ { "Units" f.menu rulerUnits }
+ { "Color" f.menu rulerColor }
+ { f.line }
+ { "Draw into Frame" f.exec {
+ writeRuler $ruler
+ } sensitive False }
+ { f.line }
+ { "Destroy" f.exec {
+ scan $ruler "ruler%d" num
+ deleteNamedRuler $num x y
+ } }
+} ; createMenu rulerMenu imagewin $rulerMenuDescription
+
+set rulerUnitsDescription {
+ { Units f.title }
+ { f.dblline }
+ { "Pixels" f.exec { setUnits $ruler pixel } }
+ { "Arc Seconds" f.exec { setUnits $ruler arcsec
+ } sensitive { ($rulerWCS > 0) ? "True" : "False"} }
+ { "Arc Minutes" f.exec { setUnits $ruler arcmin
+ } sensitive { ($rulerWCS > 0) ? "True" : "False"} }
+ { "Degrees" f.exec { setUnits $ruler degrees
+ } sensitive { ($rulerWCS > 0) ? "True" : "False"} }
+} ; createMenu rulerUnits rulerMenu $rulerUnitsDescription
+
+set rulerColorDescription {
+ { Color f.title }
+ { f.dblline }
+ { "" f.exec "r_setColor $ruler black yellow"
+ bitmap solid foreground black }
+ { "" f.exec "r_setColor $ruler white black"
+ bitmap solid foreground white }
+ { "" f.exec "r_setColor $ruler red yellow"
+ bitmap solid foreground red }
+ { "" f.exec "r_setColor $ruler green black"
+ bitmap solid foreground green }
+ { "" f.exec "r_setColor $ruler blue white"
+ bitmap solid foreground blue }
+ { "" f.exec "r_setColor $ruler magenta black"
+ bitmap solid foreground magenta }
+ { "" f.exec "r_setColor $ruler cyan black"
+ bitmap solid foreground cyan }
+ { "" f.exec "r_setColor $ruler yellow black"
+ bitmap solid foreground yellow }
+} ; createMenu rulerColor rulerMenu $rulerColorDescription
+
+
+proc makeRuler {parent x y} \
+{
+ global rulerTranslations ruleno rulerWCS rulerXWCS rulerYWCS
+ global rulerPts rulerX rulerY rulerList
+ global isSticky rulerMenuDescription rulerUnitsDescription
+ global coord coordLab
+
+
+ incr ruleno ; set ruler ruler$ruleno
+
+ # Substitute so the marker translation will delete the marker
+ # by it's number rather than the default parent widget name.
+ regsub -all NAME $rulerTranslations $ruleno translations
+
+ # Create the polygon for the marker.
+ send $parent createMarker $ruler \
+ type polygon\
+ createMode noninteractive\
+ translations $translations\
+ lineColor yellow\
+ fill False\
+ highlightWidth 1\
+ highlightColor yellow\
+ knotSize 0\
+ activated True\
+ visible False\
+ sensitive True\
+ x $x\
+ y $y
+
+ # Define a callback so we can identify the ruler.
+ send $ruler addCallback selectRuler focusIn focusOut
+
+ # Create the text markers for the labels.
+ send $parent set markerTextFont 6x9
+ makeLabelMarker $parent rulerXlab$ruleno 5ch 1ch
+ makeLabelMarker $parent rulerYlab$ruleno 5ch 1ch
+ makeLabelMarker $parent rulerHlab$ruleno 8ch 1ch
+ send $parent set markerTextFont 6x13
+
+ set rulerX $x ;# save the reference point
+ set rulerY $y
+
+ set ref [ list $x $y ] ;# initialize the polygon
+ set rx [ list [expr "$x +1"] $y ]
+ set ry [ list $x [expr "$y +1"] ]
+ set rulerPts [list $ref $rx $ry ]
+
+ send $ruler setVertices $rulerPts ;# set attributes
+ send $ruler set visible True"
+ send $ruler setAttribute autoRedraw True
+
+ # See whether we have a WCS to use.
+ set rulerWCS 0
+ set rulerXWCS 0
+ set rulerYWCS 0
+ for {set num 1} {$num <= 4 && $rulerWCS == 0} {incr num} {
+ if { [info exists coordLab(wcs$num)] } {
+ set xl [string tolower [lindex $coordLab(wcs$num) 0]]
+ set yl [string tolower [lindex $coordLab(wcs$num) 1]]
+ set fmt [string tolower [send fmtWcs$num get label] ]
+ if {$xl==" ra" || $xl=="elon" || $xl=="glon" || $xl=="slon"} {
+ set rulerWCS $num
+ set rulerXWCS [wcs2log [lindex $coord(wcs$num) 0] $xl $fmt]
+ set rulerYWCS [wcs2log [lindex $coord(wcs$num) 1] $yl $fmt]
+ }
+ }
+ }
+
+ # Edit the menus.
+ set isSticky "Sticky"
+ editMenu rulerMenu imagewin $rulerMenuDescription
+ editMenu rulerUnits imagewin $rulerUnitsDescription
+
+
+ lappend rulerList $ruleno
+}
+
+proc wcs2log { val label fmt} \
+{
+ set newval $val
+ if {$fmt == "sexigesimal" || $fmt == "default"} {
+ scan $val "%d:%d:%f" h m s
+ set newval [expr "double($h) + double($m) / 60.0 + double($s) / 3600.0"]
+ if {$label == " ra"} {
+ set newval [expr "double($newval * 15.0)"]
+ }
+ }
+ return [expr "double($newval)" ]
+}
+
+
+proc resizeRuler {x y redraw} \
+{
+ global rulerPts rulerX rulerY ruleno coord coordLab
+ global rulerWCS rulerXWCS rulerYWCS rulerFmt
+ global rulerXWCS2 rulerYWCS2
+
+
+ # Track the mouse.
+ set ref [ list $rulerX $rulerY ]
+ set rx [ list $x $rulerY ]
+ set ry [ list $x $y ]
+ set rulerPts [list $ref $rx $ry ]
+
+ # Compute the distances.
+ if {$rulerWCS > 0} {
+ set num $rulerWCS
+ set xl [string tolower [lindex $coordLab(wcs$num) 0]]
+ set yl [string tolower [lindex $coordLab(wcs$num) 1]]
+ set fmt [string tolower [send fmtWcs$num get label] ]
+
+ # Save the cursor coords in WCS so we can convert labels.
+ if {$redraw} {
+ set nx $rulerXWCS2
+ set ny $rulerYWCS2
+ } else {
+ set nx [wcs2log [lindex $coord(wcs$num) 0] $xl $fmt]
+ set ny [wcs2log [lindex $coord(wcs$num) 1] $yl $fmt]
+ set rulerXWCS2 $nx
+ set rulerYWCS2 $ny
+ }
+ }
+
+ if {$rulerFmt == "pixel"} {
+ set xdist [ expr "abs($x - $rulerX)" ]
+ set ydist [ expr "abs($y - $rulerY)" ]
+ set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]
+ } else {
+ set xdist [ expr "abs($nx - $rulerXWCS)" ]
+ set ydist [ expr "abs($ny - $rulerYWCS)" ]
+ set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]
+ }
+
+ # Redraw the polygon.
+ send ruler$ruleno setVertices $rulerPts
+
+ # Label the distances.
+ setXRulerLabel $x $y $xdist
+ setYRulerLabel $x $y $ydist
+ setHRulerLabel $x $y $hdist
+}
+
+# Create a label marker for the ruler.
+proc makeLabelMarker { parent name width height } \
+{
+ send $parent createMarker $name \
+ type text \
+ createMode noninteractive \
+ width $width \
+ height $height \
+ lineWidth 0 \
+ imageText true \
+ textBgColor yellow \
+ textColor black \
+ activated true \
+ visible false
+}
+
+proc setXRulerLabel { cx cy dist } \
+{
+ global rulerX rulerY ruleno winWidth winHeight
+ global cpXscale rulerFmt
+
+ send rulerXlab$ruleno set visible False
+
+ if {[expr "abs($cx - $rulerX)"] > 30} {
+ switch $rulerFmt {
+ pixel { set text [format "%.1f" [expr "$dist / $cpXscale"] ] }
+ arcsec { set text [format "%.2f\"" [expr "$dist * 3600.0"] ] }
+ arcmin { set text [format "%.2f\'" [expr "$dist * 60.0"] ] }
+ degrees { set text [format "%.2fd" "$dist" ] }
+ }
+ set len [expr [string length $text] + 1]
+ send rulerXlab$ruleno "set width ${len}ch"
+
+ # Compute the placement of the label marker.
+ if {$cy > $rulerY} {
+ set yp [expr "$rulerY - 14"]
+ } else {
+ set yp [expr "$rulerY + 2"]
+ }
+ if {$cx > $rulerX} {
+ set xp [expr "$rulerX + abs($cx - $rulerX)/2 - 10"]
+ } else {
+ set xp [expr "$rulerX - abs($cx - $rulerX)/2 - 10"]
+ }
+
+ # Bounds checking.
+ if {$xp < 0} { set xp 1 }
+ if {$yp < 0} { set yp 1 }
+ if {$xp > $winWidth} { set xp [expr "$winWidth - 20" }
+ if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }
+
+ send rulerXlab$ruleno "setAttributes x $xp y $yp"
+ send rulerXlab$ruleno "set text \{$text\}; redraw erase"
+
+ send rulerXlab$ruleno set visible True
+ }
+}
+
+proc setYRulerLabel { cx cy dist } \
+{
+ global rulerX rulerY ruleno winWidth winHeight
+ global cpYscale rulerFmt
+
+ send rulerYlab$ruleno set visible False
+
+ if {[expr "abs($cy - $rulerY)"] > 20} {
+ switch $rulerFmt {
+ pixel { set text [format "%.1f" [expr "$dist / $cpYscale"] ] }
+ arcsec { set text [format "%.2f\"" [expr "$dist * 3600.0"] ] }
+ arcmin { set text [format "%.2f\'" [expr "$dist * 60.0"] ] }
+ degrees { set text [format "%.2fd" "$dist" ] }
+ }
+ set len [expr [string length $text] + 1]
+ send rulerYlab$ruleno "set width ${len}ch"
+
+ # Compute the placement of the label marker.
+ if {$cx > $rulerX} {
+ set xp [expr "$cx + 2"]
+ } else {
+ set xp [expr "$cx - $len * 6 - 5"]
+ }
+ if {$cy > $rulerY} {
+ set yp [expr "$rulerY + abs($cy - $rulerY)/2"]
+ } else {
+ set yp [expr "$rulerY - abs($cy - $rulerY)/2"]
+ }
+
+ # Bounds checking.
+ if {$xp < 0} { set xp 1 }
+ if {$yp < 0} { set yp 1 }
+ if {$xp > $winWidth} { set xp [expr "$winWidth - 20" }
+ if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }
+
+ send rulerYlab$ruleno "setAttributes x $xp y $yp"
+ send rulerYlab$ruleno "set text \{$text\}; redraw erase"
+ send rulerYlab$ruleno set visible True
+ }
+}
+
+proc setHRulerLabel { cx cy dist } \
+{
+ global rulerX rulerY ruleno winWidth winHeight
+ global cpYscale cpXscale rulerFmt
+
+ send rulerHlab$ruleno set visible False
+
+ set xdist [ expr "abs($cx - $rulerX)" ]
+ set ydist [ expr "abs($cy - $rulerY)" ]
+ set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]
+
+ if {$hdist > 30} {
+ switch $rulerFmt {
+ pixel { set text [format "%.1f" [expr "$dist / $cpXscale"] ] }
+ arcsec { set text [format "%.2f\"" [expr "$dist * 3600.0"] ] }
+ arcmin { set text [format "%.2f\'" [expr "$dist * 60.0"] ] }
+ degrees { set text [format "%.2fd" "$dist" ] }
+ }
+ set len [expr [string length $text] + 1]
+ send rulerHlab$ruleno "set width ${len}ch"
+
+ # Compute the placement of the label marker.
+ if {$cx > $rulerX} {
+ set xp [expr "$rulerX + abs($cx - $rulerX)/2 - $len * 6"]
+ } else {
+ set xp [expr "$rulerX - abs($cx - $rulerX)/2 - $len * 3"]
+ }
+ if {$cy > $rulerY} {
+ set yp [expr "$rulerY + abs($cy - $rulerY)/2"]
+ } else {
+ set yp [expr "$rulerY - abs($cy - $rulerY)/2"]
+ }
+
+ # Bounds checking.
+ if {$xp < 0} { set xp 1 }
+ if {$yp < 0} { set yp 1 }
+ if {$xp > $winWidth} { set xp [expr "$winWidth - 20" }
+ if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }
+
+ send rulerHlab$ruleno "setAttributes x $xp y $yp"
+ send rulerHlab$ruleno "set text \{$text\}; redraw erase"
+ send rulerHlab$ruleno set visible True
+ } else {
+ send rulerHlab$ruleno set visible False
+ }
+}
+
+
+# Callback executed when a marker gets or loses the focus.
+proc selectRuler {active_ruler event event_data} \
+{
+ global ruler
+ switch $event {
+ focusIn { set ruler $active_ruler }
+ focusOut { }
+ }
+}
+
+# Reset the ruler format type.
+proc setUnits { ruler units } \
+{
+ global rulerFmt rulerX rulerY
+
+ send $ruler getVertices pts
+ set rulerX [lindex [lindex [lindex $pts 0] 0] 0]
+ set rulerY [lindex [lindex [lindex $pts 0] 0] 1]
+ set cx [lindex [lindex [lindex $pts 0] 1] 0] ; incr cx -1
+ set cy [lindex [lindex [lindex $pts 0] 2] 1] ; incr cy -1
+
+ set rulerFmt $units
+ resizeRuler $cx $cy 1
+}
+
+# Menu option toggle callbacks.
+proc toggleSticky { ruler } \
+{
+ global isSticky rulerSticky rulerMenuDescription
+
+ set index [ lsearch $rulerSticky $ruler]
+ if { $index >= 0 } {
+ # Remove it from the list.
+ set rulerSticky [lreplace $rulerSticky $index $index]
+ set isSticky "Sticky"
+ } else {
+ # Add it to the list.
+ lappend rulerSticky $ruler
+ set isSticky "UnSticky"
+ }
+ editMenu rulerMenu imagewin $rulerMenuDescription
+}
+
+proc setRulerMenu args \
+{
+ global ruler isSticky rulerSticky rulerMenuDescription
+
+ if { [lsearch $rulerSticky $ruler] >= 0 } {
+ set isSticky "UnSticky"
+ } else {
+ set isSticky "Sticky"
+ }
+ editMenu rulerMenu imagewin $rulerMenuDescription
+}
+
+
+# Draw the ruler to the frame buffer as a graphic.
+proc writeRuler { ruler } \
+{
+}
+
+# Change the color of the ruler.
+proc r_setColor {ruler bgcolor fgcolor} {
+
+ # Recolor the polygon.
+ send $ruler \
+ "markpos; set lineColor $bgcolor; set highlightColor $bgcolor; redraw"
+
+ # Recolor the labels.
+ scan $ruler "ruler%d" num
+ send rulerXlab$num \
+ "markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
+ send rulerYlab$num \
+ "markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
+ send rulerHlab$num \
+ "markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
+}
+
+
+# Delete the current ruler, called when we have a Btn1Up on the current ruler.
+proc deleteRuler {x y} { global ruleno ; deleteNamedRuler $ruleno $x $y }
+
+# Delete all rulers on the screen, usually called when the view changes.
+# We preserve the rulers marked as 'sticky'.
+proc deleteAllRulers args \
+{
+ global rulerList rulerSticky
+
+ foreach r $rulerList {
+ # Delete the ruler if it's not in the sticky list.
+ if { [lsearch $rulerSticky ruler$r] == -1 } {
+ deleteNamedRuler $r x y
+ }
+ }
+}
+
+# Delete a particular ruler, usually called from the translation table on
+# the marker itself.
+proc deleteNamedRuler {name x y} \
+{
+ global rulerList
+
+ catch {
+ send ruler$name destroy
+ send rulerXlab$name destroy
+ send rulerYlab$name destroy
+ send rulerHlab$name destroy
+ }
+
+ # Remove the ruler from the list.
+ set index [lsearch $rulerList $name]
+ set rulerList [lreplace $rulerList $index $index]
+}
+
+
+
+
+
+###############################################
+# Define procedure for the help panel
+###############################################
+
+# Help Panel Bitmaps
+#-------------------
+createBitmap iraf_logo 45 45 {
+0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff,
+0xff, 0x3f, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xfc, 0xff, 0xff, 0xff,
+0xff, 0x3f, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xf0, 0xff, 0xff, 0xff,
+0xff, 0x3f, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xe0, 0xff, 0xff, 0xff,
+0xff, 0x3f, 0xc0, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xc0, 0xff, 0xff, 0xff,
+0xff, 0x3f, 0x80, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x80, 0xfc, 0xff, 0xff,
+0xff, 0x3f, 0x84, 0xf8, 0xff, 0xff, 0xff, 0x1f, 0x84, 0xf4, 0xff, 0xff,
+0xff, 0x1b, 0x04, 0x09, 0x00, 0xfc, 0xff, 0x11, 0x04, 0x11, 0xf8, 0xff,
+0x7f, 0x10, 0x04, 0x21, 0xc0, 0xff, 0x1f, 0x10, 0x04, 0x41, 0xf0, 0xff,
+0x00, 0x18, 0x04, 0x01, 0xe0, 0xff, 0x00, 0x18, 0x00, 0x81, 0xc0, 0xff,
+0x00, 0x08, 0x00, 0x01, 0xe0, 0xff, 0x07, 0x08, 0x00, 0x01, 0xf1, 0xff,
+0x1f, 0x08, 0x80, 0x21, 0xf0, 0xff, 0xff, 0x08, 0xc0, 0x41, 0xf4, 0xff,
+0xff, 0x08, 0xc0, 0x41, 0xf8, 0xff, 0xff, 0x09, 0xc0, 0xc1, 0xf0, 0xff,
+0xff, 0x0b, 0x80, 0xc1, 0xf1, 0xff, 0xff, 0x07, 0x80, 0x81, 0xe1, 0xff,
+0xff, 0x07, 0x80, 0x01, 0xc1, 0xff, 0xff, 0x07, 0x00, 0x01, 0xc0, 0xff,
+0xff, 0x07, 0xc2, 0x05, 0x81, 0xff, 0xff, 0x07, 0xf2, 0x07, 0x81, 0xff,
+0xff, 0x07, 0xf2, 0x17, 0x03, 0xff, 0xff, 0x03, 0xfa, 0x7f, 0x02, 0xfe,
+0xff, 0x03, 0xfe, 0xff, 0x02, 0xfe, 0xff, 0x03, 0xfe, 0xff, 0x03, 0xfc,
+0xff, 0x03, 0xff, 0xff, 0x07, 0xfc, 0xff, 0x83, 0xff, 0xff, 0x0f, 0xf8,
+0xff, 0xc1, 0xff, 0xff, 0x3f, 0xf0, 0xff, 0xe1, 0xff, 0xff, 0x7f, 0xf8,
+0xff, 0xf1, 0xff, 0xff, 0xff, 0xf0, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xe0,
+0xff, 0xf8, 0xff, 0xff, 0xff, 0xe3, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xe7,
+0xff, 0xfc, 0xff, 0xff, 0xff, 0xef}; send helpIRAFLogo "set bitmap iraf_logo"
+
+createBitmap noao_logo 45 45 {
+0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+0xff, 0xff, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
+0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
+0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
+0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
+0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
+0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
+0xff, 0xff, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
+0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xdf, 0xff, 0xff, 0xff,
+0xff, 0xff, 0x8f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x8f, 0xff, 0xff, 0xff,
+0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff,
+0xff, 0xff, 0x03, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
+0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x01, 0xfc, 0xff, 0xff,
+0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff,
+0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0xff, 0x3f, 0x00, 0xe0, 0xff, 0xff,
+0xff, 0x3f, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x1f, 0x00, 0xc0, 0xff, 0xff,
+0xff, 0x1f, 0x00, 0xc0, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x80, 0xff, 0xff,
+0xff, 0x0f, 0x00, 0x80, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0xff, 0xff,
+0xff, 0x03, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x03, 0x00, 0x00, 0xfe, 0xff,
+0xff, 0x01, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x01, 0x00, 0x00, 0xfc, 0xff,
+0xff, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0x00, 0x00, 0x00, 0xf8, 0xff,
+0x7f, 0x00, 0x00, 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xf0, 0xff,
+0x3f, 0x00, 0x00, 0x00, 0xe0, 0xff}; send helpNOAOLogo "set bitmap noao_logo"
+
+send helpInfo1 set label $version
+
+# Stuff for keeping track of visited anchors.
+set links { 0 }
+set linkIndex 0
+set visited(0) empty
+
+proc Help args \
+{
+ global help_up
+ if {$help_up == 0} {
+ send client help
+ } else {
+ send help_panel unmap
+ set help_up 0
+ }
+}
+
+proc helpPanel args \
+{
+ global help_up
+ if {$help_up} {
+ send help_panel unmap
+ set help_up 0
+ } else {
+ send help_panel map
+ set help_up 1
+ }
+}
+
+proc panelHelp args \
+{
+ Help
+} ; send panelHelp addCallback panelHelp
+
+proc helpQuit args \
+{
+ global help_up
+ send help_panel unmap
+ set help_up 0
+}; send helpClose addCallback helpQuit
+
+proc getHelpText { param old new } \
+{
+ send helpText setText $new
+ helpPanel
+}; send help addCallback getHelpText
+
+proc anchorSelected {widget cbtype event text href args} \
+{
+ global visited links linkIndex
+ set anchID [send helpText anchorToId $href]
+ set visited($href) 1
+ if {$linkIndex == 0} {
+ send helpBack setSensitive True
+ if {[lindex $links 1] != $anchID} {
+ set links { 0 }
+ send helpForward setSensitive False
+ }
+ }
+ if {$linkIndex > 0 && [lindex $links [expr $linkIndex + 1]] != $anchID} {
+ set links [lrange $links 0 $linkIndex]
+ }
+ if {[lindex $links [expr $linkIndex + 1]] != $anchID} {
+ lappend links $anchID
+ incr linkIndex
+ } else {
+ send helpForward setSensitive False
+ incr linkIndex
+ }
+ if {$linkIndex == [expr [llength $links] - 1]} {
+ send helpForward setSensitive False
+ }
+ send helpText gotoId $anchID
+ send helpText retestAnchors
+}; send helpText addCallback anchorSelected anchor
+
+proc testAnchor {widget cbtype href} \
+{
+ global visited
+ return [info exists visited($href)]
+}; send helpText addCallback testAnchor testAnchor
+
+
+# Callbacks to position forwards and backwards in link list.
+proc hlpForward args \
+{
+ global links linkIndex
+ incr linkIndex
+ if {$linkIndex <= [llength $links]} {
+ set anchID [lindex $links $linkIndex]
+ send helpText gotoId $anchID
+ send helpText retestAnchors
+ if {$linkIndex == [expr [llength $links] - 1]} {
+ send helpForward setSensitive False
+ send helpBack setSensitive True
+ } else {
+ send helpBack setSensitive True
+ }
+ } else {
+ incr linkIndex -1
+ }
+}; send helpForward addCallback hlpForward
+
+proc hlpBack args \
+{
+ global links linkIndex
+ incr linkIndex -1
+ if {$linkIndex >= 0} {
+ set anchID [lindex $links $linkIndex]
+ send helpText gotoId $anchID
+ send helpText retestAnchors
+ if {$linkIndex == 0} { send helpBack setSensitive False }
+ if {$linkIndex >= 0} { send helpForward setSensitive True }
+ } else {
+ incr linkIndex 1
+ }
+}; send helpBack addCallback hlpBack
+
+proc hlpHome args \
+{
+ global links linkIndex
+ set links { 0 }
+ set linkIndex 0
+ send helpText gotoId 0
+ send helpForward setSensitive False
+ send helpBack setSensitive False
+}; send helpHome addCallback hlpHome
+
+
+proc helpFind args \
+{
+ set phrase [send hfEntry get string]
+
+ if { $phrase != "" } {
+ if {[send helpText searchText $phrase start end forward caseless] > 0} {
+ set elid [lindex [lindex $start 0] 0]
+ set id [max 1 [expr $elid - 10] ]
+ send helpText gotoId $id
+ send helpText setSelection $start $end
+ } else {
+ send warnText set label "Search string not found."
+ send warning map
+ }
+ } else {
+ send warnText set label "Warning: No search phrase entered."
+ send warning map
+ }
+} ; foreach w { hfEntry hfFind } { send $w addCallback helpFind }
+
+send hfClear addCallback { send hfEntry set string "" }
+
+
+################################################################################
+# Header Display Callbacks.
+################################################################################
+
+set hdrImage ""
+set hdrImageId ""
+set hdrKeywords "*"
+
+
+proc fitsHdrClose args \
+{
+ global hdr_up
+
+ send hdr_panel unmap
+ send imageHeader set on False
+ set hdr_up 0
+} ; send hdrClose addCallback fitsHdrClose
+
+proc ptFitsHeader {widget type state args} \
+{
+ global hdr_up
+
+ set hdr_up $state
+ if {$hdr_up == 1} {
+ send imageHeader set on True
+ send hdr_panel map
+ } else {
+ send imageHeader set on False
+ send hdr_panel unmap
+ }
+}; send imageHeader addCallback ptFitsHeader
+
+proc getHeader { name id } \
+{
+ global hdrImage hdrImageId hdrKeywords
+
+ set hdrImage $name
+ set hdrImageId $id
+ send hdrObjMenu set label $name
+ send hdrText setText ""
+ send hdrIGText set string ""
+ send hdrKGText set string ""
+
+ catch { send wcspix objinfo $hdrImageId $hdrKeywords }
+}
+
+proc hdrKeywFilter args \
+{
+ global hdrImageId hdrKeywords
+
+ set str [ send hFindEntry get string ]
+ if {$str != ""} {
+ set hdrKeywords $str
+ send hdrText setText ""
+ catch { send wcspix objinfo $hdrImageId $hdrKeywords }
+ }
+} ; send hdrFilter addCallback hdrKeywFilter
+
+
+# Set the image menu in the header panel.
+proc setHdrObjMenu { frame args } \
+{
+ global frameCache ism_enable
+
+ if {! $ism_enable} \
+ return
+
+ # Create the menu of images for the header panel.
+ set items { }
+ foreach i [list $frameCache($frame)] {
+ set l [lindex $i 0]
+ set lid [lindex $i 1]
+ regsub -all {[\[]} $l "\\\[" l2
+ catch {
+ lappend items [format "%s f.exec \{getHeader %s %d\}" $l $l2 $lid]
+ }
+ }
+ editMenu objMenu hdrObjMenu $items
+}
+
+
+# Search box for the header.
+proc hdrFind args \
+{
+ set phrase [send hFindEntry get string]
+
+ if { $phrase != "" } {
+ if {[send hdrText searchText $phrase start end forward caseless] > 0} {
+ set elid [lindex [lindex $start 0] 0]
+ set id [max 1 [expr $elid - 10] ]
+ send hdrText gotoId $id
+ send hdrText setSelection $start $end
+ } else {
+ send warnText set label "Search string not found."
+ send warning map
+ }
+ } else {
+ send warnText set label "Warning: No search phrase entered."
+ send warning map
+ }
+} ; foreach w { hFindEntry hdrFind } { send $w addCallback hdrFind }
+
+send hdrClear addCallback { send hFindEntry set string "" }
+
+
+################################################################################
+# Pixel Table Callbacks.
+################################################################################
+
+set psize 5
+set pixtab_up 0
+set hdr_up 0
+
+createMenu pixtabMenu pixtabSize {
+ { "3x3" f.exec { pixtabSetSize 3 } }
+ { "5x5" f.exec { pixtabSetSize 5 } }
+ { "7x7" f.exec { pixtabSetSize 7 } }
+ { "9x9" f.exec { pixtabSetSize 9 } }
+}
+
+
+proc updatePixelTable { cx cy wx wy args } \
+{
+ global psize pixtab_up ism_enable
+
+ if {! $pixtab_up} \
+ return
+ if {$ism_enable} \
+ return
+
+ set delta [expr int($psize / 2) ]
+ set x1 [expr ($wx - $delta) ]
+ set x2 [expr ($wx + $delta) ]
+ set y1 [expr ($wy - $delta) ]
+ set y2 [expr ($wy + $delta) ]
+ set c [ expr int($psize / 2) ]
+
+
+ # Update the table labels.
+ set x $x1 ; set xl {}
+ set y $y2 ; set yl {}
+ for {set i 0} {$i < $psize} {incr i} {
+ lappend xl [format " %10.1f " $x] ; set x [ expr ($x + 1.) ]
+ lappend yl [format " %10.1f " $y] ; set y [ expr ($y - 1.) ]
+ }
+ send ptColLabs setList $xl ; send ptColLabs highlight $c
+ send ptRowLabs setList $yl ; send ptRowLabs highlight $c
+
+ # Update the pixel table itself.
+ #set pix [ send client getPixels $cx $cy $psize True ]
+
+ set x0 [ expr int($cx - $psize / 2. + 0.5)]
+ set y0 [ expr int($cy - $psize / 2. + 0.5)]
+ set pix [ send client getPixels $x0 $y0 $psize $psize ]
+ send pixtab setList [ lrange $pix 4 end ]
+ set c [ expr int(($psize * $psize) / 2) ]
+ send pixtab highlight $c
+
+ # Update the pixtab stats.
+ set sum 0.0
+ set sum2 0.0
+ set npix [ expr ($psize * $psize) ]
+ set nend [ expr ($psize * $psize) + 4 ]
+ for {set i 4} {$i < $nend} {incr i} {
+ set val [lindex $pix $i]
+ catch {
+ set sum [ expr ($sum + $val) ]
+ set sum2 [ expr ($sum2 + $val * $val) ]
+ }
+ }
+
+ set mean [ expr ($sum / ($npix * 1.0)) ]
+ set var [ expr (($sum2 - $sum * $mean) / ($npix - 1)) ]
+ if {$var <= 0.0} {
+ set stdev 0.0
+ } else {
+ set stdev [ expr sqrt ($var) ]
+ }
+ send meanValue set label [ format "%10.2f" $mean ]
+ send sigValue set label [ format "%10.4f" $stdev ]
+}
+
+
+proc pixtabClose args \
+{
+ global pixtab_up
+
+ send pixel_panel unmap
+ send pixelTable set on False
+ set pixtab_up 0
+ catch { send wcspix set psize 0 }
+} ; send pixtabClose addCallback pixtabClose
+
+
+proc pixtabSetSize { size args } \
+{
+ global psize ism_enable
+
+ set c [ expr int(($psize * $psize) / 2) ]
+ send pixtab highlight $c
+
+ # Now reset the window size.
+ switch $size {
+ 3 { send pixel_panel "resize 265 175"
+ send pixtab "set width 180 ; set height 60"
+ }
+ 5 { send pixel_panel "resize 375 215"
+ send pixtab "set width 290 ; set height 105"
+ }
+ 7 { send pixel_panel "resize 495 265"
+ send pixtab "set width 410 ; set height 150"
+ }
+ 9 { send pixel_panel "resize 610 310"
+ send pixtab "set width 525 ; set height 195"
+ }
+ }
+
+ send pixtab set defaultColumns $size
+ send ptColLabs set defaultColumns $size
+ set psize $size
+
+ # Notify the ISM we've changed size.
+ if ($ism_enable) {
+ catch { send wcspix set psize $psize }
+ }
+
+ send imagewin getCursorPos xc yc
+ updatePixelTable $xc $yc $xc $yc
+
+} ; pixtabSetSize $psize
+
+
+proc ptPixelTable {widget type state args} \
+{
+ global pixtab_up psize
+
+ set pixtab_up $state
+ if {$pixtab_up == 1} {
+ send pixelTable set on True
+ send pixel_panel map
+ catch { send wcspix set psize $psize }
+ } else {
+ send pixelTable set on False
+ send pixel_panel unmap
+ catch { send wcspix set psize 0 }
+ }
+}; send pixelTable addCallback ptPixelTable
+
+
+################################################################################
+# Warning dialog. This pops up a dialog box with the given warning message,
+# and executes the given command if the user pushes OK.
+#
+# Usage: Wexec object message [ok_action [cancel_action]]
+#
+# The message text is displayed in a popup and the user hits the ok or
+# cancel button to close the popup. If an action has been posted for the
+# button selected then it is sent to the named object. Only one alert can
+# be in effect at a time; posting another alert before the first has
+# completed causes the new alert to override the first.
+################################################################################
+
+set W_object ""
+set W_ok_cmd ""
+set W_cancel_cmd ""
+
+proc Wexec {object msg args} \
+{
+ global W_object W_ok_cmd W_cancel_cmd
+ set W_object $object
+ set W_ok_cmd [lindex $args 0]
+ set W_cancel_cmd [lindex $args 1]
+ send warnText set label $msg
+ send warning map
+}
+
+proc Wbutton {widget args} \
+{
+ global W_object W_ok_cmd W_cancel_cmd
+ switch $widget {
+ warnOk { if [llength $W_ok_cmd] { send $W_object $W_ok_cmd }
+ }
+ warnCancel { if [llength $W_cancel_cmd] { send $W_object $W_cancel_cmd }
+ }
+ }
+ send warning unmap
+}
+send warnOk addCallback Wbutton
+send warnCancel addCallback Wbutton
+
+# The parameter "alert" is used to forward alerts from the client.
+proc setAlert {param old new} \
+{
+ Wexec client [lindex $new 0] [lindex $new 1]
+}; send alert addCallback setAlert
+
+
+
+################################################
+# Define some TCL debug procedures.
+################################################
+
+set tcl_up 0
+
+proc tclCommandClear {widget args} { send tclEntry set string "" }
+proc tclCommandExecute {widget args} { send server [send tclEntry {get string}]
+}
+proc tclCommand {widget mode command args} { send server $command }
+proc tclClose {widget args} { send tcl_panel unmap }
+proc tclOpen args \
+{
+ global tcl_up
+ send tcl_panel map
+ set tcl_up 1
+}
+
+proc tclPanel args \
+{
+ global tcl_up
+ if {$tcl_up} {
+ send tcl_panel unmap
+ set tcl_up 0
+ } else {
+ send tcl_panel map
+ set tcl_up 1
+ }
+}
+
+send tclClear addCallback tclCommandClear
+send tclExecute addCallback tclCommandExecute
+send tclEntry addCallback tclCommand
+send tclDismiss addCallback tclClose
+
+
+
+################################################
+# ISM Module support routines.
+################################################
+
+
+# Turn the ISM on or off.
+proc ismToggle { widget type state args } \
+{
+ global ism_enable ism_capable psize
+
+ set ism_enable $state
+
+ # Set the coord-panel header option availability.
+ if {$ism_enable == 1 && $ism_capable} {
+ send imageHeader setSensitive True
+ send woptBPM setSensitive True
+ catch { send client ism_start wcspix }
+ } else {
+ send imageHeader setSensitive False
+ send woptBPM set on False
+ send woptBPM setSensitive False
+ catch { send client ism_stop wcspix }
+ send hdr_panel unmap
+ }
+ setCoordPanelSensitivity
+
+} ; send ismToggle addCallback ismToggle
+
+
+
+# Handle messages from ISM clients and pass them on to the appropiate
+# callback.
+
+proc ism_msg { param old new } \
+{
+ global ism_enable
+
+ set cmd [lindex $new 0] ;# command name
+ set ism [lindex $new 1] ;# determine ISM name
+ set argv [lrange $new 2 end] ;# get args
+ set argc [llength $argv]
+
+ switch $cmd {
+ source { source [lindex $new 1] }
+ alert { Wexec client [lindex $new 1] }
+ deliver { ${ism}_msg $argc $argv }
+ info { ism_info $ism }
+ }
+} ; send ism_msg addCallback ism_msg
+
+
+
+# Log a client message to the info panel
+set ismInfoText " "
+
+proc ism_info { text } \
+{
+ global infoMode ismInfoText
+
+ set ismInfoText [format "%s\n%s" $ismInfoText $text]
+ if {$infoMode == "infoOptIsm"} {
+ send infoText set string $ismInfoText
+ }
+}
+
+# Initialize the text.
+proc ismInitInfoText args \
+{
+ global ismInfoText
+
+ set ismInfoText ""
+ ism_info "\t ISM Client Message Logs"
+ ism_info "\t -----------------------"
+ ism_info " "
+} ; ismInitInfoText
+
+
+
+################################################
+# WPIX module support routines.
+################################################
+
+set cur_objid 0
+set cur_regid 0
+set redraw_compass 0
+#set Compass(0) { 0.0 1 1 0 X Y }
+set Compass(0) { 0.0 0.0 1.0 -1.0 0.0 0 X Y }
+set Orient(0) { 1 1 1 }
+
+set wcspix_debug 0
+
+proc wcspix_msg { argc argv } \
+{
+ global wcspix_debug
+
+ set arg [string trimleft [ string trimright [lindex $argv 0] ] ]
+ set cmd [lindex $arg 0]
+
+ if {$wcspix_debug} { print "wcspix_msg: $cmd" }
+
+
+ switch $cmd {
+ startup { wcspix_startup }
+ shutdown { wcspix_shutdown }
+ disable { wcspix_disable }
+ capable { wcspix_capable }
+
+ cache { wcspix_cache [lrange $arg 1 end] }
+ uncache { wcspix_uncache [lrange $arg 1 end] }
+ wcstran { wcspix_wcstran [lrange $arg 1 end] }
+ wcslist { wcspix_wcslist [lrange $arg 1 end] }
+
+ imghdr { send hdrText \
+ setText [format "<pre>%s\n%s</pre>" \
+ [string trimright [send hdrText getText simple] "\n"]\
+ [lindex $arg 1] ]
+ }
+ wcshdr { send hdrKGText append [lindex $arg 1] }
+
+ wcsinfo { send hdrIGText append [lindex $arg 1]
+ send hdrText gotoId 0
+ send hdrKGText set insertPosition 0
+ }
+
+ compass { wcspix_compass [lrange $arg 1 end] ; drawCompass }
+ orient { wcspix_orient [lrange $arg 1 end] }
+ wcstype { wcspix_wcstype [lindex $arg 1] [lindex $arg 2] }
+ wcsfmt { set num [lindex $arg 2]
+ send fmtWcs$num set label [lindex $arg 1] }
+
+ wcspix_cmd { send wcsIsmCmd set string [lindex $arg 1] }
+
+ pixtab { set tab [lindex [lindex $arg 1] 0]
+ set col [lindex [lindex $arg 1] 1]
+ set row [lindex [lindex $arg 1] 2]
+ set stat [lindex [lindex $arg 1] 3]
+ wcspix_pixtab $tab $col $row $stat
+ }
+ }
+}
+
+
+# Startup and initialize the wcspix module with the GUI state.
+proc wcspix_startup args \
+{
+ global ism_enable frame
+ global up_todo psize pixtab_up frameCache
+
+ set ism_enable 1
+ send ismToggle set on True
+ send imageHeader setSensitive True
+ send woptBPM setSensitive True
+ setCoordPanelSensitivity
+ ismInitInfoText
+
+ if {$up_todo < 3} {
+ resizeCoordsBox $up_todo
+ }
+ updateCoordsBox
+ drawCompass
+
+ # Initialize the frame cache.
+ foreach c [array names frameCache] {
+ if {$c != "0"} { unset frameCache($c) }
+ }
+
+ catch {
+ if {$pixtab_up} { send wcspix set psize $psize }
+ for {set i 1} {$i <= 4} {incr i} {
+ send wcspix set wcs [send sysWcs$i get label] $i
+ send wcspix set format [send fmtWcs$i get label] $i
+ }
+ }
+
+ if { [send infoOptClients get on] } {
+ send client info clients
+ }
+}
+
+# Shutdown the WPIX module.
+proc wcspix_shutdown args \
+{
+ global ism_enable frame
+
+ set ism_enable 0
+ send ismToggle set on False
+ send imageHeader setSensitive False
+ send woptBPM set on False
+ send woptBPM setSensitive False
+ setCoordPanelSensitivity
+ setCoordPanelHeight
+
+ wcsFmtIValue "N/A"
+ wcsFmtBValue "0"
+
+ resizeCoordsBox 0
+ drawCompass
+
+ if { [send infoOptClients get on] } {
+ send client info clients
+ }
+}
+
+
+# Disable the WPIX module. We are only called when a display client has
+# indicated it doesn't use the new mapping facilities and having the WPIX
+# ISM visible will only confuse the user.
+
+proc wcspix_disable args \
+{
+ global ism_enable ism_capable rulerWCS
+
+ if {$ism_enable} {
+ send wcspix quit
+ }
+ set ism_capable 0
+ set rulerWCS 0
+ wcspix_shutdown
+ send ismToggle setSensitive False
+}
+
+
+# Client connected is capable of using the ISM, but don't necessarily turn
+# it on at this point.
+
+proc wcspix_capable args \
+{
+ global ism_capable
+
+ set ism_capable 1
+ wcsFmtIValue "0"
+ wcsFmtBValue "0"
+ send ismToggle setSensitive True
+}
+
+
+# Cache an image in the GUI.
+proc wcspix_cache { argv } \
+{
+ global frameCache redraw_compass cur_objid
+
+ set name [lindex $argv 0]
+ set frame [lindex $argv 1]
+ set id [lindex $argv 2]
+
+ # Store the image name and id in a local cache.
+ lappend frameCache($frame) $name $id
+ send hdrObjMenu set label $name
+
+ # Automatically get the header.
+ regsub -all {[\[]} $name "\\\[" image
+ catch { getHeader $image $id }
+
+ setHdrObjMenu $frame
+
+ set cur_objid $id
+ set redraw_compass 1
+}
+
+# Uncache an image in the GUI.
+proc wcspix_uncache { argv } \
+{
+ global frameCache Compass
+
+ set id [lindex $argv 0]
+ foreach c [array names frameCache] {
+ set i1 0
+ set i2 1
+ set new { }
+ while { $i2 < [llength $frameCache($c)] } {
+ if {[lindex $frameCache($c) $i2] != $id} {
+ lappend new [lindex $frameCache($c) $i1]
+ lappend new [lindex $frameCache($c) $i2]
+ }
+ incr i1 2
+ incr i2 2
+ }
+ set frameCache($c) $new
+ }
+ if [info exists Compass($id)] {
+ unset Compass($id)
+ }
+}
+
+# Format the results of the WCSTRAN method.
+proc wcspix_wcstran { argv } \
+{
+ global frameCache cur_objid cur_regid redraw_compass
+
+ set objid [ lindex [lindex $argv 0] 1]
+ set regid [ lindex [lindex $argv 1] 1]
+ set pixval [ lindex [lindex $argv 2] 1]
+ set bpmval [ lindex [lindex $argv 3] 1]
+
+ wcsFmtIValue $pixval
+ wcsFmtBValue $bpmval
+
+ set args [lrange $argv 4 end]
+ set nargs [llength $args]
+ for {set i 0} {$i < 4} {incr i} {
+ set coord [lindex $args $i]
+ set wcsname [lindex $coord 1]
+ set xval [lindex $coord 2]
+ set yval [lindex $coord 3]
+ set xunits [lindex $coord 4]
+ set yunits [lindex $coord 5]
+ wcsFmtWcs [expr ($i + 1)] $wcsname $xval $yval $xunits $yunits
+ }
+
+ set cur_objid $objid
+ set cur_regid $regid
+
+ if {$redraw_compass} \
+ drawCompass
+}
+
+# Save the object compass information.
+proc wcspix_compass { argv } \
+{
+ global Compass
+
+ set objid [lindex $argv 0]
+ set angle [lindex $argv 1]
+
+ #set xflip [lindex $argv 2]
+ #set yflip [lindex $argv 3]
+ #set transpose [lindex $argv 4]
+ #set xlab [lindex $argv 5]
+ #set ylab [lindex $argv 6]
+
+ set north_x [lindex $argv 2]
+ set north_y [lindex $argv 3]
+ set east_x [lindex $argv 4]
+ set east_y [lindex $argv 5]
+ set transpose [lindex $argv 6]
+ set xlab [lindex $argv 7]
+ set ylab [lindex $argv 8]
+
+ #lappend Compass($objid) $angle $xflip $yflip $transpose $xlab $ylab
+ #set Compass($objid) [list $angle $xflip $yflip $transpose $xlab $ylab]
+ set Compass($objid) [list $angle $north_x $north_y $east_x $east_y \
+ $transpose $xlab $ylab]
+ drawCompass
+}
+
+# Save the image display orientation information.
+proc wcspix_orient { argv } \
+{
+ global Orient
+
+ set objid [lindex $argv 0]
+ set frame [lindex $argv 1]
+ set xflip [lindex $argv 2]
+ set yflip [lindex $argv 3]
+
+ set Orient($objid) [list $frame $xflip $yflip]
+}
+
+
+# Handle the list of WCSs available for the current image.
+proc wcspix_wcslist { argv } \
+{
+ set wcslist [lindex $argv 0]
+
+ for {set i 1} {$i <= 4} {incr i} {
+ set items {}
+ foreach nam $wcslist {
+ if {[string tolower $nam] == "line"} {
+ lappend items "f.dblline"
+ } else {
+ lappend items "\"$nam\" f.exec \{setWcsSys $nam $i\}"
+ }
+ }
+ editMenu sysMenu$i sysWcs$i $items
+ }
+}
+
+# Set the type of the WCS.
+proc wcspix_wcstype { label num } \
+{
+ global up_todo
+
+ send sysWcs$num set label $label
+ if {[string tolower $label] == "none"} {
+ send wpWcs$num "set on False ; setSensitive False"
+ send wiWcs$num "set on False ; setSensitive False"
+ send fmtWcs$num setSensitive False
+ set hght 4
+ } else {
+ send wpWcs$num "set on True ; setSensitive True"
+ send wiWcs$num setSensitive True
+ send fmtWcs$num setSensitive True
+ set hght 17
+ }
+ send wtWcs$num set height $hght
+ setCoordPanelHeight
+
+ #resizeCoordsBox $up_todo
+ updateCoordsBox
+}
+
+# Display the pixel table.
+proc wcspix_pixtab { tab col row stat } \
+{
+ global psize
+
+ # Update the pixel table.
+ send pixtab setList [lindex $tab 1]
+ send pixtab highlight [expr int(($psize * $psize) / 2)]
+
+ # Update the table labels.
+ set c [ expr int($psize / 2) ]
+ send ptColLabs setList $col ; send ptColLabs highlight $c
+ send ptRowLabs setList $row ; send ptRowLabs highlight $c
+
+ # Update the pixtab stats.
+ send meanValue set label [ format "%10.2f" [lindex $stat 0] ]
+ send sigValue set label [ format "%10.4f" [lindex $stat 1] ]
+}
+
+
+
+
+################################################################################
+#
+# XIMTOOL-ALT -- Procedures and declarations for the ALT GUI.
+#
+################################################################################
+
+# Creat the bitmaps needed for the alternate optional bars.
+
+createBitmap tools 16 16 {
+ 0xff, 0xff, 0xff, 0xff, 0x03, 0xc0, 0xf3, 0xcf, 0xf3, 0xcf, 0xf3, 0xcf,
+ 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
+ 0x83, 0xc1, 0x03, 0xc0, 0xff, 0xff, 0xff, 0xff};
+
+createBitmap control 16 16 {
+ 0xff, 0xff, 0xff, 0xff, 0x03, 0xc0, 0xe3, 0xc7, 0xe3, 0xcf, 0x33, 0xcc,
+ 0x33, 0xc0, 0x1b, 0xc0, 0x1b, 0xc0, 0x1b, 0xc0, 0x33, 0xcc, 0xf3, 0xcf,
+ 0xe3, 0xc7, 0x03, 0xc0, 0xff, 0xff, 0xff, 0xff};
+
+createBitmap tile 16 16 {
+ 0xff, 0xff, 0xff, 0xff, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
+ 0x83, 0xc1, 0xff, 0xff, 0xff, 0xff, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
+ 0x83, 0xc1, 0x83, 0xc1, 0xff, 0xff, 0xff, 0xff};
+
+createBitmap compass 16 16 {
+ 0x00, 0x00, 0x00, 0x02, 0x00, 0x07, 0x80, 0x0f, 0xc0, 0x1f, 0x00, 0x07,
+ 0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0xfc, 0x07,
+ 0xfc, 0x07, 0xfc, 0x07, 0x00, 0x00, 0x00, 0x00}
+
+createBitmap plus 11 11 {
+ 0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0xfe, 0x03, 0xfe, 0x03,
+ 0xfe, 0x03, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x00, 0x00};
+
+createBitmap minus 11 11 {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x03, 0xfe, 0x03,
+ 0xfe, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
+
+createBitmap disk 16 16 {
+ 0xfe,0x1f,0x11,0x25,0x11,0x45,0x11,0x44,0xf1,0x47,0x01,0x40,0x01,0x40,0xf9,
+ 0x4f,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0xff,0x7f,
+ 0x00,0x00};
+
+createBitmap printer 32 16 {
+ 0x00, 0xfe, 0x07, 0x00, 0x00, 0x02, 0x0a, 0x00, 0x00, 0x02, 0x12, 0x00,
+ 0x00, 0x02, 0x22, 0x00, 0x00, 0x02, 0x3e, 0x00, 0x00, 0x02, 0x20, 0x00,
+ 0x00, 0x02, 0x20, 0x00, 0xe0, 0x03, 0xe0, 0x03, 0x10, 0x03, 0xe0, 0x06,
+ 0x08, 0xff, 0x7f, 0x09, 0x04, 0x00, 0x00, 0x10, 0xfc, 0xff, 0xff, 0x1f,
+ 0x04, 0x00, 0x00, 0x10, 0xfc, 0xff, 0xff, 0x1f, 0x08, 0x00, 0x00, 0x08,
+ 0xf8, 0xff, 0xff, 0x0f};
+
+
+send tbBlinkDec "set bitmap larrow" ;# Assign the bitmaps to the buttons.
+send tbBlinkInc "set bitmap rarrow"
+send tbZoomIn "set bitmap plus"
+send tbZoomOut "set bitmap minus"
+send tbTile "set bitmap tile"
+send tbCompass "set bitmap compass; addCallback toggleCompass"
+#send helpButton "set bitmap qmark; addCallback Help"
+send mXflipButton "set bitmap xflip; addCallback xflip"
+send mYflipButton "set bitmap yflip; addCallback yflip"
+send mNextButton "set bitmap rarrow; addCallback nextFrame"
+send mPrevButton "set bitmap larrow; addCallback prevFrame"
+
+
+# toolBox -- Toggle the toolbox and panelbar display.
+
+set toolbox_up [ true $showToolBar ]
+set panelbar_up [ true $showPanelBar ]
+
+proc toolBoxToggle args \
+{
+ global toolbox_up
+
+ set w [send display get width] ; set h [send display get height]
+ set iw [send imagewin get width] ; set ih [send imagewin get height]
+
+ if {$toolbox_up} {
+ send toolbar set height 0
+ send toolButton set state 0
+ send imagewin "set width $iw; set height $ih"
+ set nh [expr $h - 25]
+ send display "set width $w; set height $nh"
+ set toolbox_up 0
+ send mXflipButton map
+ send mYflipButton map
+ send mPrevButton map
+ send mFrameButton map
+ send mNextButton map
+ } else {
+ send toolbar set height 25
+ send toolButton set state 1
+ send imagewin "set width $iw; set height $ih"
+ set nh [expr $h + 25]
+ send display "set width $w ; set height $nh"
+ set toolbox_up 1
+ send mXflipButton unmap
+ send mYflipButton unmap
+ send mPrevButton unmap
+ send mFrameButton unmap
+ send mNextButton unmap
+ }
+}
+
+proc panelBarToggle args \
+{
+ global panelbar_up
+
+ set w [send display get width] ; set h [send display get height]
+ set iw [send imagewin get width] ; set ih [send imagewin get height]
+
+ if {$panelbar_up} {
+ send panelbar set height 0
+ send panelButton set state 0
+ send imagewin "set width $iw; set height $ih"
+ set nh [expr $h - 25]
+ send display "set width $w ; set height $nh"
+ set panelbar_up 0
+ } else {
+ send panelbar set height 25
+ send panelButton set state 1
+ send imagewin "set width $iw; set height $ih"
+ set nh [expr $h + 25]
+ send display "set width $w ; set height $nh"
+ set panelbar_up 1
+ }
+}
+
+
+
+# Initialize the bars to be displayed if the resource was set.
+
+send toolButton "set bitmap tools; addCallback toolBoxToggle"
+if { ! [ true $showToolBar ] } {
+ send display set height [expr [send display get height] - 25]
+ send toolbar set height 0
+ send toolButton set state 0
+} else {
+ send toolButton set state 1
+ send mXflipButton unmap
+ send mYflipButton unmap
+ send mPrevButton unmap
+ send mFrameButton unmap
+ send mNextButton unmap
+}
+
+send panelButton "deleteCallback panel"
+send panelButton "set bitmap control; addCallback panelBarToggle"
+
+if { ! [ true $showPanelBar ] } {
+ send display set height [expr [send display get height] - 25]
+ send panelbar set height 0
+ send panelButton set state 0
+} else {
+ send panelButton set state 1
+}
+
+
+##############################################
+# Panelbar callbacks.
+##############################################
+
+send pbQuit addCallback Quit
+send helpClose addCallback "send helpButton set state 0"
+
+
+# Control Panel.
+#------------------------------------------------------
+proc pbToggleControl {name element op} \
+{
+ upvar $name panel_up
+ send pbDisplayP set state [expr !($panel_up)]
+} ; #trace variable panel_up w pbToggleControl
+
+proc pbResetPanel {param old new} \
+{
+ global displayPanner displayMagnifier displayCoords
+ switch $new {
+ done { send pbPanM set state [true $displayPanner]
+ send pbMagM set state [true $displayMagnifier]
+ send pbWcsM set state [true $displayCoords]
+ }
+ }
+} ; send initialize addCallback pbResetPanel
+
+set WidgetToTab(pbDisplayP) display_panel
+set WidgetToTab(pbInfoP) info_panel
+set WidgetToTab(pbLoadP) load_panel
+set WidgetToTab(pbPrintP) print_panel
+set WidgetToTab(pbSaveP) save_panel
+set WidgetToTab(pbTileP) tile_panel
+set WidgetToTab(pbCoordP) wcs_panel
+
+set TabToWidget(display_panel) pbDisplayP
+set TabToWidget(print_panel) pbPrintP
+set TabToWidget(load_panel) pbLoadP
+set TabToWidget(save_panel) pbSaveP
+set TabToWidget(info_panel) pbInfoP
+set TabToWidget(tile_panel) pbTileP
+set TabToWidget(wcs_panel) pbCoordP
+
+set pbTabTop "pbDisplayP"
+
+proc pbPanelDismiss args \
+{
+ global tabTop TabToWidget WidgetToTab
+ set panel $TabToWidget($tabTop)
+ send $panel set state 0
+} ; send panelClose addCallback pbPanelDismiss
+
+proc pbResizeCB {widget event a b c d e args} \
+{
+ global pbTabTop TabToWidget WidgetToTab
+ if { $a == 0 && $b == 0 && $c == 0 && $d == 0 && $e == 0 } {
+ send $pbTabTop set state 0
+ set new $TabToWidget($widget)
+ send $new set state 1
+ set pbTabTop $new
+ }
+} ; foreach w $cpTabs {send $w addEventHandler pbResizeCB exposureMask}
+
+proc pbPanelTabs { widget type state args } \
+{
+ global pbTabTop tabTop panel_up
+ global TabToWidget WidgetToTab
+
+ set panel $WidgetToTab($widget)
+ if {$tabTop == $panel && $panel_up} {
+ send panelShell unmap
+ send $widget set state 0
+ set panel_up 0
+ return
+ }
+
+ send $TabToWidget($tabTop) set state 0
+ set tabTop $panel
+ set pbTabTop $TabToWidget($panel)
+ send panelTabs setTop $panel
+
+ # Now fire it up if it's not already open.
+ if {$panel_up == 0} {
+ send $widget set state 1
+ send panelShell map
+ set panel_up 1
+ }
+}
+foreach w { pbDisplayP pbInfoP pbLoadP pbPrintP pbSaveP pbTileP pbCoordP } {
+ send $w addCallback pbPanelTabs
+}
+
+
+
+# Load Panel. (Really need to clean this up.)
+#------------------------------------------------------
+proc pbDoLoadOptions { param old new } \
+{
+ set val [ join [lrange $new 1 end] " " ]
+ switch [lindex $new 0] {
+ newfile { send fnameText set string $val }
+ }
+} ; send loadOptions addCallback pbDoLoadOptions
+
+proc pbFileLoad { widget mode fname args } \
+{
+ set fpath [format "%s/%s" \
+ [string range [send dirLabel get label] 12 end] $fname ]
+ send imagewin setCursorType idle
+} ; send fnameText addCallback pbFileLoad
+
+proc pbflSelectPrint {widget cbtype selections args} \
+{
+ foreach selection $selections {
+ ;
+ }
+}; #send imageList addCallback pbflSelectPrint
+
+proc pbFileLoadB args \
+{
+ set fname [send fnameText get string]
+ if {$fname != ""} {
+ set fpath [format "%s/%s" \
+ [string range [send dirLabel get label] 12 end] $fname ]
+ }
+} ; send filesLoadButton addCallback pbFileLoadB
+
+
+# Panner Marker.
+#------------------------------------------------------
+proc pbTracePanner {name element op} \
+{
+ global last_compass
+
+ catch {
+ upvar $name panner_enable
+ send pbPanM set state $panner_enable
+
+ if { $panner_enable } {
+ send tbCompass "setSensitive True ; set state $last_compass"
+ drawCompass
+ } else {
+ send tbCompass "setSensitive False ; set state False"
+ eraseCompass
+ }
+ }
+} ; trace variable panner_enable w pbTracePanner
+
+proc pannerPanel args \
+{
+ global panner_enable displayPanner
+
+ setPanner [expr !$panner_enable]
+ send pannerButton set on [expr $panner_enable]
+}; send pbPanM addCallback pannerPanel
+
+
+# Magnifier Marker.
+#------------------------------------------------------
+proc pbTraceMagnifier {name element op} \
+{
+ upvar $name magnifier_enable
+ send pbMagM set state $magnifier_enable
+} ; trace variable magnifier_enable w pbTraceMagnifier
+
+proc magnifierPanel args \
+{
+ global magnifier_enable displayMagnifier
+ setMagnifier [expr !$magnifier_enable]
+ send magnifierButton set on [expr $magnifier_enable]
+}; send pbMagM addCallback magnifierPanel
+
+
+# CoordsBox Marker.
+#------------------------------------------------------
+proc pbTraceCoordsBox {name element op} \
+{
+ upvar $name track_enable
+ send pbWcsM set state $track_enable
+} ; trace variable track_enable w pbTraceCoordsBox
+
+proc wcsPanel args \
+{
+ global track_enable
+ setTrack [expr !$track_enable]
+}; send pbWcsM addCallback wcsPanel
+
+
+
+# WPIX ISM Callbacks.
+#------------------------------------------------------
+
+proc altIsmToggle { widget type state args } \
+{
+ ismToggle pbIsm junk $state
+} ; send pbIsm addCallback altIsmToggle
+
+proc pbTraceIsm {name element op} \
+{
+ upvar $name ism_enable
+ send pbIsm set state $ism_enable
+} ; trace variable ism_enable w pbTraceIsm
+
+
+proc altIsmMsgCB { param old new } \
+{
+ set cmd [lindex $new 0] ;# command name
+ set ism [lindex $new 1] ;# determine ISM name
+ set argv [lrange $new 2 end] ;# get args
+ set argc [llength $argv]
+
+ switch $cmd {
+ deliver { ${ism}_alt_msg $argc $argv }
+ }
+} ; send ism_msg addCallback altIsmMsgCB
+
+
+proc wcspix_alt_msg { argc argv } \
+{
+ set arg [string trimleft [ string trimright [lindex $argv 0] ] ]
+ set cmd [lindex $arg 0]
+ switch $cmd {
+ startup { }
+ shutdown { }
+ disable { send pbIsm "set state False ; setSensitive False" }
+ capable { send pbIsm "setSensitive True" }
+ }
+}
+
+
+
+##############################################
+# Toolbar callbacks.
+##############################################
+
+send tbNormalize addCallback normalize
+send tbInvert addCallback cpInvert
+send tbRegister addCallback cpRegisterFrames
+send tbMatchLUT addCallback cpMatchFrames
+
+
+# Frame Selection.
+#------------------
+createMenu mFrameMenu mFrameButton $frameMenuDescription
+
+proc altFrameChanged {param old new} \
+{
+ send mFrameButton set label $new
+} ; send frame addCallback altFrameChanged
+
+
+# Image Flipping.
+#------------------------------------------------------
+proc tbSetFlip {param old new} \
+{
+ if {$param == "xflip"} {
+ send mXflipButton set state [true $new]
+ } else {
+ send mYflipButton set state [true $new]
+ }
+}; foreach i {xflip yflip} { send $i addCallback tbSetFlip }
+
+
+# Zoom/Pan buttons.
+#------------------------------------------------------
+proc tbZoomAction { widget args } \
+{
+ global frameWidth frameHeight
+
+ switch $widget {
+ tbZoom0 { cpZoom 1 1 fixed }
+ tbZoomIn { cpZoom 2.0 2.0 relative }
+ tbZoomOut { cpZoom 0.5 0.5 relative }
+ tbCenter { send client pan [expr $frameWidth/2.0] [expr $frameHeight/2.0] }
+ }
+}
+foreach widget { tbCenter tbZoomIn tbZoom0 tbZoomOut } {
+ send $widget addCallback tbZoomAction
+}
+
+
+# Frame Blink.
+#------------------------------------------------------
+proc tbSetBlinkRate {w args} \
+{
+ if {$w == "tbBlinkInc"} {
+ cpSetBlinkRate BRincrease
+ } else {
+ cpSetBlinkRate BRdeccrease
+ }
+}
+foreach w {tbBlinkDec tbBlinkInc} { send $w addCallback tbSetBlinkRate }
+
+proc tbBlink { widget args } \
+{
+ global blinkRate blinkId
+
+ if {$blinkRate < 0.01} {
+ send tbBlink set state 0
+ } else {
+ if {$widget != "tbBlink"} {
+ if {($blinkId != 0) != [send $widget get on]} {
+ toggleBlink
+ }
+ } else {
+ if {($blinkId != 0) != [send $widget get state]} {
+ toggleBlink
+ }
+ }
+ }
+} ; send tbBlink addCallback tbBlink
+
+proc tbTraceBlink {name element op} \
+{
+ upvar $name blinkId
+ send tbBlink set state [expr $blinkId != 0]
+} ; trace variable blinkId w tbTraceBlink
+
+
+# Auto-register.
+#------------------------------------------------------
+proc tbAutoRegister { widget type state args } \
+{
+ send tbAutoReg set state $state
+}
+foreach w {autoregButton brAregButton tbAutoReg} {
+ send $w addCallback cpAutoRegister
+}
+
+proc tbToggleAutoReg args \
+{
+ global auto_reg
+ if {$auto_reg} {
+ cpAutoRegister autoregButton dummy 0
+ set auto_reg 0
+ send tbAutoReg set state 0
+ } else {
+ cpAutoRegister autoregButton dummy 1
+ set auto_reg 1
+ send tbAutoReg set state 1
+ }
+}
+
+
+# Frame Tiles.
+#------------------------------------------------------
+proc tbSetTileFrames args \
+{
+ global tileOpt
+
+ # Send the option to the client.
+ if {[send tbTile get state ]} {
+ if {$tileOpt == 0} {
+ # If mode is disabled, turn on the tile selection.
+ selectTileOrientation junk junk Best
+ } else {
+ # Otherwise, turn on in current mode.
+ selectTileOrientation junk junk [tileSelToLabel $tileOpt]
+ }
+ } else {
+ selectTileOrientation junk junk Disabled
+ }
+}; send tbTile addCallback tbSetTileFrames
+
+proc tbTrackTileFrames {param old new} \
+{
+ send tileFramesButton set on [true $new]
+ send tbTile set state $new
+}; send tileFrames addCallback tbTrackTileFrames
+
+proc tbTileFramesToggle args \
+{
+ set value [send tileFramesButton get on]
+ if {$value} { set not 0 } else { set not 1 }
+
+ send tileFramesButton set on $not
+ send tbTile set state $not
+ cpSetTileFrames tbTile junk $not
+}
+
+
+# Compass Indicator.
+#------------------------------------------------------
+proc tbToggleCompass { widget type state args } \
+{
+ global frame
+
+ if {$state} {
+ send compass set on True
+ send tbCompass set state 1
+ drawCompass
+ } else {
+ send compass set on False
+ send tbCompass set state 0
+ eraseCompass
+ }
+} ; foreach w {compass tbCompass} { send $w addCallback tbToggleCompass }
+
+
generated by cgit (git 2.34.1) at 2025-09-20 12:05:26 -0400