From 3f1ae1680574d28ef25414c21cde23d1ec78e4a3 Mon Sep 17 00:00:00 2001 From: William Joye Date: Tue, 12 Jun 2018 17:42:17 -0400 Subject: SIA: use cone search radius instead of width/height --- ds9/doc/ref/command.html | 57 ++++++++++++++++++++-- ds9/doc/ref/samp.html | 89 ++++++++++++++++++++++++++++++++-- ds9/doc/ref/xpa.html | 85 +++++++++++++++++++++++++++++++-- ds9/doc/release/r8.0.html | 1 + ds9/library/catdialog.tcl | 2 +- ds9/library/sia.tcl | 8 ++-- ds9/library/siadialog.tcl | 119 +++++++++++++++++++++++++++++++++++++--------- ds9/parsers/sialex.fcl | 1 + ds9/parsers/siaparser.tac | 5 +- 9 files changed, 329 insertions(+), 38 deletions(-) diff --git a/ds9/doc/ref/command.html b/ds9/doc/ref/command.html index 735507f..c8e42e5 100644 --- a/ds9/doc/ref/command.html +++ b/ds9/doc/ref/command.html @@ -527,6 +527,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -645,6 +646,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -745,6 +747,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -845,6 +848,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -945,6 +949,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1000,18 +1005,21 @@ + [symbol shape circle + point|box point|diamond point|cross + point|x point|arrow point|boxcircle point]
         [<ref>] [symbol add| [#] remove]
@@ -1118,6 +1126,7 @@ + [update]
        [<ref>] [x <col>]
@@ -1251,6 +1260,7 @@ + [match]
          [lock [yes|no]]
@@ -1519,6 +1529,7 @@ + [match <coordsys>]
           [lock <coordsys>|none]
@@ -1686,6 +1697,7 @@ + -envi foo.hdr foo.bsq

exit
@@ -2436,6 +2448,7 @@ + [pan]
            @@ -2579,6 +2592,7 @@ + [crosshair]
            @@ -2722,6 +2736,7 @@ + [open|close]
 
Example:
@@ -2969,6 +2984,7 @@ + [yes|open]
            [no|close]
@@ -3075,12 +3091,14 @@ + duplicate [#]]
   +    [[<plotname>] stats yes|no]
      [[<plotname>] @@ -3156,6 +3174,7 @@ + list yes|no]
      [[<plotname>] @@ -3230,6 +3249,7 @@ + loadconfig <filename>]
      [[<plotname>] saveconfig <filename>]
@@ -3336,6 +3356,7 @@ + legend yes|no]
      [[<plotname>] legend position right|left|top|bottom]
@@ -3421,6 +3442,7 @@ + barmode normal|stacked|aligned|overlap]

# configure current dataset
@@ -3498,6 +3520,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
      [[<plotname>] @@ -3573,6 +3596,7 @@ + shape fill yes|no]
      [[<plotname>] shape @@ -3582,6 +3606,7 @@ + [[<plotname>] @@ -3655,6 +3680,7 @@ + smooth step|linear|cubic|quadratic|catrom]
      @@ -3662,6 +3688,7 @@ + [[<plotname>] @@ -3735,6 +3762,7 @@ + color <value>]
      @@ -3742,6 +3770,7 @@ + [[<plotname>] @@ -3815,6 +3844,7 @@ + width <value>]
      @@ -3890,6 +3920,7 @@ + [[<plotname>] @@ -3963,6 +3994,7 @@ + dash yes|no]
      @@ -4038,6 +4070,7 @@ + [[<plotname>] @@ -4111,6 +4144,7 @@ + error yes|no]
      @@ -4186,6 +4220,7 @@ + [[<plotname>] @@ -4259,6 +4294,7 @@ + error color <value>]
      @@ -4335,6 +4371,7 @@ + [[<plotname>] @@ -4408,6 +4445,7 @@ + color <value>]
      @@ -4484,6 +4522,7 @@ + [[<plotname>] @@ -4557,6 +4596,7 @@ + error width <value>]
      @@ -4633,6 +4673,7 @@ + [[<plotname>] @@ -4706,6 +4747,7 @@ + name <string>]

@@ -4760,6 +4802,7 @@ + -plot title 'This is a Title'
$ds9 -plot title x 'X Axis'
$ds9 -plot title y 'Y Axis'
@@ -4831,6 +4874,7 @@ + <dms> <arcmin> <arcsec>

@@ -5234,6 +5278,7 @@ + <filename> [image|table|slice]
 
Example:
@@ -5355,8 +5400,8 @@      [<ref>] [retrieve]
     [<ref>] [save <filename>]
-      [<ref>] [size <width> - <height> degrees|arcmin|arcsec]
+      [<ref>] [radius <value> + degrees|arcmin|arcsec]
     [<ref>] [sky <skyframe>]
     [<ref>] [skyformat @@ -5377,7 +5422,7 @@ $ds9 -sia print
$ds9 -sia retrieve
 $ds9 -sia save foo.xml
- $ds9 -sia size 1 1 degrees
+ $ds9 -sia radius 1 degrees
$ds9 -sia sky fk5
$ds9 -sia skyformat degrees
$ds9 -sia system wcs
@@ -5482,6 +5527,7 @@ + [sigma <value>]
        @@ -5497,6 +5543,7 @@ + [sigmaminor <value>]
        @@ -5512,6 +5559,7 @@ + [angle <value>]
        @@ -5527,6 +5575,7 @@ + [match]
        [lock [yes|no]]
        @@ -5552,6 +5601,7 @@ + -smooth sigmaminor 2.0
$ds9 @@ -5567,6 +5617,7 @@ + -smooth angle 45
$ds9 -smooth match
diff --git a/ds9/doc/ref/samp.html b/ds9/doc/ref/samp.html index 30b2348..82c25c4 100644 --- a/ds9/doc/ref/samp.html +++ b/ds9/doc/ref/samp.html @@ -580,6 +580,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -696,6 +697,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -794,6 +796,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -892,6 +895,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -990,6 +994,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1044,18 +1049,21 @@ + [symbol shape circle + point|box point|diamond point|cross + point|x point|arrow point|boxcircle point]
        [<ref>] [symbol add| [#] remove]
@@ -1160,6 +1168,7 @@ + [update]
        [<ref>] [x <col>]
@@ -2228,6 +2237,7 @@ + Macros for more information.

Syntax:
iexam []
@@ -2351,6 +2361,7 @@ + quality (1-100)

Syntax:
jpeg [new|slice] [<filename>] [1-100]
@@ -2798,6 +2809,7 @@ + [new name <plotname> line|bar|scatter]

# load data into existing plot from @@ -2883,6 +2895,7 @@ + duplicate [#]]
     @@ -2958,6 +2971,7 @@ + [[<plotname>] stats yes|no]
     [[<plotname>] @@ -3032,6 +3046,7 @@ + list yes|no]
     [[<plotname>] @@ -3106,6 +3121,7 @@ + loadconfig <filename>]
     [[<plotname>] saveconfig <filename>]
@@ -3182,6 +3198,7 @@ + [[<plotname>] pagesetup orient portrait|landscape]
     [[<plotname>] pagesetup size letter|legal|tabloid|poster|a4]
@@ -3258,6 +3275,7 @@ + [[<plotname>] print]
     [[<plotname>] print destination printer|file]
@@ -3356,6 +3374,7 @@ + legend yes|no]
     [[<plotname>] legend position right|left|top|bottom]
@@ -3441,6 +3460,7 @@ + barmode normal|stacked|aligned|overlap]

 # configure current dataset
@@ -3518,6 +3538,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
     [[<plotname>] @@ -3593,6 +3614,7 @@ + shape fill yes|no]
     [[<plotname>] @@ -3671,6 +3693,7 @@ + [[<plotname>] @@ -3744,6 +3767,7 @@ + smooth step|linear|cubic|quadratic|catrom]
     @@ -3820,6 +3844,7 @@ + [[<plotname>] @@ -3893,6 +3918,7 @@ + color <value>]
     @@ -3969,6 +3995,7 @@ + [[<plotname>] @@ -4042,6 +4069,7 @@ + width <value>]
     @@ -4118,6 +4146,7 @@ + [[<plotname>] @@ -4191,6 +4220,7 @@ + dash yes|no]
     @@ -4266,6 +4296,7 @@ + [[<plotname>] @@ -4339,6 +4370,7 @@ + error yes|no]
     @@ -4414,6 +4446,7 @@ + [[<plotname>] @@ -4487,6 +4520,7 @@ + error color <value>]
     @@ -4563,6 +4597,7 @@ + [[<plotname>] @@ -4636,6 +4671,7 @@ + color <value>]
     @@ -4712,6 +4748,7 @@ + [[<plotname>] @@ -4785,6 +4822,7 @@ + error width <value>]
     @@ -4861,6 +4899,7 @@ + [[<plotname>] @@ -4934,6 +4973,7 @@ + name <string>]

@@ -5027,6 +5067,7 @@ + value = ds9.get(string cmd)
plot stats
@@ -5128,6 +5169,7 @@ + axis x auto
plot @@ -5197,6 +5239,7 @@ + axis x min
plot @@ -5266,6 +5309,7 @@ + axis x max
plot @@ -5335,6 +5379,7 @@ + axis x format
plot @@ -5404,6 +5449,7 @@ + legend
plot legend position
@@ -5481,6 +5527,7 @@ + font numbers size
plot @@ -5554,6 +5601,7 @@ + font numbers weight
plot @@ -5627,6 +5675,7 @@ + font numbers slant
plot @@ -5700,6 +5749,7 @@ + title
plot @@ -5773,6 +5823,7 @@ + title x
plot barmode
 @@ -5796,6 +5847,7 @@ + cmd)
plot legend yes
plot legend position left
@@ -5805,6 +5857,7 @@ + value = ds9.get(string cmd)
plot font numbers font
@@ -5813,24 +5866,28 @@ + font numbers size
plot + font numbers weight
plot + font numbers slant
ds9.set(string + cmd)
plot font numbers font times
plot font numbers size 12
@@ -5842,6 +5899,7 @@ + value = ds9.get(string cmd)
plot @@ -5849,24 +5907,28 @@ + title
plot + title xaxis
plot + title yaxis
ds9.set(string + cmd)
plot title "This is a Title"
plot title x "X Axis"
@@ -5878,6 +5940,7 @@ + value = ds9.get(string cmd)
@@ -5886,6 +5949,7 @@ + barmode
 ds9.set(string @@ -5893,6 +5957,7 @@ + cmd)
plot barmode aligned

@@ -5979,6 +6044,7 @@ + dash
plot @@ -6052,6 +6118,7 @@ + error
plot @@ -6125,6 +6192,7 @@ + error color
plot @@ -6198,6 +6266,7 @@ + error width
plot @@ -6271,6 +6340,7 @@ + name
ds9.set(string @@ -6344,6 +6414,7 @@ + cmd)
plot show yes
plot shape circle
@@ -6392,6 +6463,7 @@ + <dms> <arcmin> <arcsec>

@@ -7011,6 +7083,7 @@ + [crosshair]
        [<ref>] [export sb|tsv <filename>]
@@ -7021,8 +7094,8 @@ [retrieve]
        [<ref>] [save <filename>]
-         [<ref>] [size - <width> <height> degrees|arcmin|arcsec]
+         [<ref>] [radius + <value> degrees|arcmin|arcsec]
        [<ref>] [sky <skyframe>]
        [<ref>] @@ -7126,6 +7199,7 @@ + [update]
 
Example:
@@ -7144,7 +7218,7 @@ sia print
sia retrieve
sia save foo.xml
- sia size 1 1 degrees
+ sia radius 1degrees
sia sky fk5
sia skyformat degrees
sia system wcs
@@ -7247,6 +7321,7 @@ + [sigma <value>]
       @@ -7261,6 +7336,7 @@ + [sigmaminor <value>]
       @@ -7276,6 +7352,7 @@ + [angle <value>]
       @@ -7291,6 +7368,7 @@ + [match]
       [lock [yes|no]]
       [open|close]
@@ -7325,6 +7403,7 @@ + sigma 2.0
smooth @@ -7340,6 +7419,7 @@ + sigmaminor 2.0
smooth @@ -7355,6 +7435,7 @@ + angle 45
smooth @@ -7370,6 +7451,7 @@ + open
smooth close
smooth match
@@ -7494,6 +7576,7 @@ + compression method.

Syntax:
tiff [new|slice] [<filename>] [none|jpeg|packbits|deflate]
diff --git a/ds9/doc/ref/xpa.html b/ds9/doc/ref/xpa.html index e28ea2e..af2de5e 100644 --- a/ds9/doc/ref/xpa.html +++ b/ds9/doc/ref/xpa.html @@ -217,6 +217,7 @@ + -p ds9 3d match
$xpaset -p ds9 3d lock yes
@@ -233,6 +234,7 @@ + -p ds9 3d open
$xpaset -p ds9 3d close
 @@ -569,6 +571,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -690,6 +693,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -793,6 +797,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -896,6 +901,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -999,6 +1005,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1052,6 +1059,7 @@ + [symbol shape circle point|box point|diamond point|cross point|x point|arrow point|boxcircle point]
@@ -1163,6 +1171,7 @@ + [update]
        [<ref>] [x <col>]
@@ -1755,6 +1764,7 @@ + -p ds9 export envi foo.hdr foo.bsq little
$xpaset -p ds9 export tiff foo.tiff jpeg
@@ -2293,6 +2303,7 @@ + quality (1-100)

Syntax:
jpeg [new|slice] [<filename>] [1-100]
@@ -2715,6 +2726,7 @@ + [new name <plotname> line|bar|scatter]

# create new plot with data from stdin
@@ -2724,6 +2736,7 @@ + [new <title> <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]
@@ -2738,18 +2751,21 @@ + [new name + <plotname> <title> + <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]
     [new name @@ -2757,12 +2773,14 @@ + <plotname> line|bar|scatter + <title> <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]

@@ -2776,12 +2794,14 @@ + [line|bar|scatter] + stdin]
     @@ -2790,6 +2810,7 @@ + [new name <plotname> stdin]
     @@ -2799,6 +2820,7 @@ + stdin]

# load data into existing plot from @@ -2885,6 +2907,7 @@ + duplicate [#]]
     @@ -2961,6 +2984,7 @@ + [[<plotname>] stats yes|no]
     [[<plotname>] @@ -3036,6 +3060,7 @@ + list yes|no]
     [[<plotname>] @@ -3111,6 +3136,7 @@ + loadconfig <filename>]
     [[<plotname>] saveconfig <filename>]
@@ -3188,6 +3214,7 @@ + [[<plotname>] pagesetup orient portrait|landscape]
     [[<plotname>] pagesetup size letter|legal|tabloid|poster|a4]
@@ -3265,6 +3292,7 @@ + [[<plotname>] print]
     [[<plotname>] print destination printer|file]
@@ -3364,6 +3392,7 @@ + legend yes|no]
     [[<plotname>] legend position right|left|top|bottom]
@@ -3450,6 +3479,7 @@ + barmode normal|stacked|aligned|overlap]

 # configure current dataset
@@ -3528,6 +3558,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
     [[<plotname>] @@ -3604,6 +3635,7 @@ + shape fill yes|no]
     [[<plotname>] @@ -3683,6 +3715,7 @@ + [[<plotname>] @@ -3757,6 +3790,7 @@ + smooth step|linear|cubic|quadratic|catrom]
     @@ -3834,6 +3868,7 @@ + [[<plotname>] @@ -3908,6 +3943,7 @@ + color <value>]
     @@ -3985,6 +4021,7 @@ + [[<plotname>] @@ -4059,6 +4096,7 @@ + width <value>]
     @@ -4136,6 +4174,7 @@ + [[<plotname>] @@ -4210,6 +4249,7 @@ + dash yes|no]
     @@ -4286,6 +4326,7 @@ + [[<plotname>] @@ -4360,6 +4401,7 @@ + error yes|no]
     @@ -4436,6 +4478,7 @@ + [[<plotname>] @@ -4510,6 +4553,7 @@ + error color <value>]
     @@ -4587,6 +4631,7 @@ + [[<plotname>] @@ -4661,6 +4706,7 @@ + color <value>]
     @@ -4738,6 +4784,7 @@ + [[<plotname>] @@ -4812,6 +4859,7 @@ + error width <value>]
     @@ -4889,6 +4937,7 @@ + [[<plotname>] @@ -4963,6 +5012,7 @@ + name <string>]

@@ -5007,6 +5057,7 @@ + data into existing plot from stdin
$cat xy.dat | xpaset ds9 plot data xy
$cat xy.dat | xpaset ds9 plot foo data xy
@@ -5115,6 +5166,7 @@ + ds9 plot axis x min
$xpaget @@ -5190,6 +5242,7 @@ + ds9 plot axis x max
$xpaget ds9 plot axis x format
$xpaset @@ -5198,6 +5251,7 @@ + -p ds9 plot axis x grid yes
$xpaset -p ds9 plot axis x log yes
$xpaset -p ds9 plot axis x flip yes
@@ -5288,6 +5342,7 @@ + ds9 plot font numbers size
$xpaget @@ -5363,6 +5418,7 @@ + ds9 plot font numbers weight
$xpaget @@ -5438,6 +5494,7 @@ + ds9 plot font numbers slant
$xpaset @@ -5445,6 +5502,7 @@ + -p ds9 plot font numbers font times
$xpaset -p ds9 plot font numbers size 12
$xpaset -p ds9 plot font numbers weight bold
@@ -5525,6 +5583,7 @@ + ds9 plot title xaxis
$xpaget @@ -5600,6 +5659,7 @@ + ds9 plot title yaxis
$xpaset @@ -5607,6 +5667,7 @@ + -p ds9 plot title {This is a Title}
$xpaset -p ds9 plot title x {X Axis}
$xpaset -p ds9 plot title y {Y Axis}
@@ -5701,6 +5762,7 @@ + ds9 plot dash
$xpaget @@ -5776,6 +5838,7 @@ + ds9 plot error
$xpaget @@ -5851,6 +5914,7 @@ + ds9 plot error color
$xpaget @@ -5927,6 +5991,7 @@ + ds9 plot error width
$xpaget @@ -6003,6 +6068,7 @@ + ds9 plot name
$xpaset @@ -6078,6 +6144,7 @@ + -p ds9 plot show yes
$xpaset -p ds9 plot shape circle
$xpaset -p ds9 plot shape fill no
@@ -6124,6 +6191,7 @@ + <dms> <arcmin> <arcsec>

@@ -6620,6 +6688,7 @@ + method.

Syntax:
saveimage [fits|eps|gif|tiff|jpeg|png] <filename>
@@ -6729,8 +6798,8 @@     [<ref>] [retrieve]
    [<ref>] [save <filename>]
-     [<ref>] [size <width> - <height> degrees|arcmin|arcsec]
+     [<ref>] [radius <value> + degrees|arcmin|arcsec]
    [<ref>] [sky <skyframe>]
    [<ref>] [skyformat @@ -6753,7 +6822,7 @@ $xpaset -p ds9 sia print
$xpaset -p ds9 sia retrieve
$xpaset -p ds9 sia save foo.xml
- $xpaset -p ds9 sia size 1 1 degrees
+ $xpaset -p ds9 sia radius 1 degrees
$xpaset -p ds9 sia sky fk5
$xpaset -p ds9 sia skyformat degrees
$xpaset -p ds9 sia system wcs
@@ -6852,6 +6921,7 @@ + [sigma <value>]
       @@ -6868,6 +6938,7 @@ + [sigmaminor <value>]
       @@ -6884,6 +6955,7 @@ + [angle <value>]
    @@ -6900,6 +6972,7 @@ +    [match]
       [lock [yes|no]]
       [open|close]
@@ -6924,6 +6997,7 @@ + ds9 smooth sigmaminor
$xpaget ds9 smooth lock
@@ -6948,6 +7022,7 @@ + -p ds9 smooth sigma 2.0
$xpaset @@ -6964,6 +7039,7 @@ + -p ds9 smooth sigmaminor 2.0
$xpaset @@ -6980,6 +7056,7 @@ + -p ds9 smooth angle 45
$xpaset @@ -6996,6 +7073,7 @@ + -p ds9 smooth match
$xpaset -p ds9 smooth lock yes
$xpaset -p ds9 smooth open
@@ -7120,6 +7198,7 @@ + compression method.

Syntax:
tiff [new|slice] [<filename>] [none|jpeg|packbits|deflate]
diff --git a/ds9/doc/release/r8.0.html b/ds9/doc/release/r8.0.html index 24a310c..8b0bb87 100644 --- a/ds9/doc/release/r8.0.html +++ b/ds9/doc/release/r8.0.html @@ -16,6 +16,7 @@
  • 04.18.2018 GUI: fixed an issue with loading gzipped multiple extension fits files with the -multiframe option.
  • 05.25.2018 MMT: updated Binospec template.
  • 06.12.2018 CATALOG: GUI now uses a conesearch radius for query.
    • +
  • 06.12.2018 SIA: GUI now uses a conesearch radius for query.
  • xx.xx.2018 RELEASE version 8.0b1
    • diff --git a/ds9/library/catdialog.tcl b/ds9/library/catdialog.tcl index 3a7d585..6bb650a 100644 --- a/ds9/library/catdialog.tcl +++ b/ds9/library/catdialog.tcl @@ -960,7 +960,7 @@ proc CATServer {varname} { simbad {CATSIMBAD $varname} } } else { - ARError $varname [msgcat::mc {Please specify width, height, and either name or (ra,dec)}] + ARError $varname [msgcat::mc {Please specify radius and either name or (ra,dec)}] } } diff --git a/ds9/library/sia.tcl b/ds9/library/sia.tcl index bad13cc..05cf160 100644 --- a/ds9/library/sia.tcl +++ b/ds9/library/sia.tcl @@ -13,8 +13,7 @@ proc SIADef {} { set isia(sias) {} set isia(rformat) arcmin - set isia(width) 15 - set isia(height) 15 + set isia(radius) 15 set isia(minrows) 20 set isia(mincols) 10 @@ -432,12 +431,11 @@ proc SIACmdSave {fn writer} { } } -proc SIACmdSize {width height rformat} { +proc SIACmdSize {radius rformat} { global cvarname upvar #0 $cvarname cvar - set cvar(width) $width - set cvar(height) $height + set cvar(radius) $radius set cvar(rformat) $rformat set cvar(rformat,msg) $rformat } diff --git a/ds9/library/siadialog.tcl b/ds9/library/siadialog.tcl index 6821639..0571ae4 100644 --- a/ds9/library/siadialog.tcl +++ b/ds9/library/siadialog.tcl @@ -36,7 +36,7 @@ proc SIADialog {varname title url opts method action} { } # AR variables - ARInit $varname IMGSVRServer + ARInit $varname SIAServer # IMG variables set var(proc,done) SIADone @@ -52,8 +52,7 @@ proc SIADialog {varname title url opts method action} { set var(sky) $wcs(sky) set var(skyformat) $wcs(skyformat) set var(rformat) $isia(rformat) - set var(width) $isia(width) - set var(height) $isia(height) + set var(radius) $isia(radius) set var(save) $isia(save) set var(mode) $isia(mode) @@ -92,10 +91,10 @@ proc SIADialog {varname title url opts method action} { -command [list SIAOff $varname] $mb.file add separator $mb.file add command -label [msgcat::mc {Update from Current Frame}] \ - -command [list IMGSVRUpdate $varname] + -command [list SIAUpdate $varname] $mb.file add command \ -label [msgcat::mc {Update from Current Crosshair}] \ - -command [list IMGSVRCrosshair $varname] + -command [list SIACrosshair $varname] $mb.file add separator $mb.file add command -label "[msgcat::mc {Print}]..." \ -command [list CATPrint $varname] @@ -147,16 +146,14 @@ proc SIADialog {varname title url opts method action} { [list SIAWCSMenuUpdate $varname] CoordMenuEnable $f.coord.menu $varname system 0 sky skyformat - ttk::label $f.wtitle -text [msgcat::mc {Width}] - ttk::entry $f.w -textvariable ${varname}(width) -width 14 - ttk::label $f.htitle -text [msgcat::mc {Height}] - ttk::entry $f.h -textvariable ${varname}(height) -width 14 + ttk::label $f.rtitle -text [msgcat::mc {Radius}] + ttk::entry $f.r -textvariable ${varname}(radius) -width 14 ARRFormat $f.rformat $varname grid $f.nametitle $f.name - - - - -padx 2 -pady 2 -sticky w grid $f.xtitle $f.x $f.ytitle $f.y $f.coord -padx 2 -pady 2 -sticky w - grid $f.wtitle $f.w $f.htitle $f.h $f.rformat -padx 2 -pady 2 -sticky w + grid $f.rtitle $f.r $f.rformat -padx 2 -pady 2 -sticky w # Param set f [ttk::labelframe $w.param -text [msgcat::mc {Table}] -padding 2] @@ -237,7 +234,7 @@ proc SIADialog {varname title url opts method action} { pack $w.tbl -side top -fill both -expand true ARCoord $varname - IMGSVRUpdate $varname + SIAUpdate $varname SIADialogUpdate $varname ARStatus $varname {} @@ -273,7 +270,7 @@ proc SIAApply {varname sync} { NSVRServer $varname } else { - IMGSVRServer $varname + SIAServer $varname } } @@ -451,25 +448,19 @@ proc SIAVOT1 {varname} { } } - # size (degrees) + # radius (degrees) switch $var(rformat) { degrees { - set ww $var(width) - set hh $var(height) + set rr $var(radius) } arcmin { - set ww [expr $var(width)/60.] - set hh [expr $var(height)/60.] + set rr [expr $var(radius)/60.] } arcsec { - set ww [expr $var(width)/60./60.] - set hh [expr $var(height)/60./60.] + set rr [expr $var(radius)/60./60.] } } - # now to radius - set rr [expr ($ww+$hh)/2.] - # query set var(query2) "$var(opts)[http::formatQuery POS "$xx,$yy" SIZE $rr FORMAT image/fits]" @@ -487,3 +478,87 @@ proc SIAWCSMenuUpdate {varname} { CoordMenuButtonCmd $varname psystem psky {} } +proc SIAUpdate {varname} { + upvar #0 $varname var + global $varname + + global current + global wcs + + global debug + if {$debug(tcl,image)} { + puts stderr "SIAUpdate $varname" + } + + if {[winfo exists $var(top)]} { + set var(name) {} + if {$current(frame) != {} } { + if {[$current(frame) has wcs equatorial $wcs(system)]} { + set coord [$current(frame) get fits center \ + $wcs(system) $var(sky) $var(skyformat)] + set var(x) [lindex $coord 0] + set var(y) [lindex $coord 1] + + set size [$current(frame) get fits size \ + $wcs(system) $var(sky) $var(rformat)] + set ww [lindex $size 0] + set hh [lindex $size 1] + set var(radius) [expr ($ww+$hh)/4] + + return + } + } else { + set var(x) {} + set var(y) {} + set var(radius) {} + } + } +} + +proc SIACrosshair {varname} { + upvar #0 $varname var + global $varname + + global debug + if {$debug(tcl,image)} { + puts stderr "SIACrosshair $varname" + } + + global current + global wcs + + if {[winfo exists $var(top)]} { + set var(name) {} + if {$current(frame) != {} } { + if {[$current(frame) has wcs equatorial $wcs(system)]} { + set coord [$current(frame) get crosshair \ + $wcs(system) $var(sky) $var(skyformat)] + set var(x) [lindex $coord 0] + set var(y) [lindex $coord 1] + + return + } + } + set var(x) {} + set var(y) {} + } +} + +proc SIAServer {varname} { + upvar #0 $varname var + global $varname + global current + + global debug + if {$debug(tcl,image)} { + puts stderr "SIAServer $varname" + } + + if {($var(x) != {}) && ($var(y) != {}) && ($var(radius) != {})} { + + ARStatus $varname [msgcat::mc {Contacting Image Server}] + eval [list $var(proc,exec) $varname] + } else { + eval [list $var(proc,error) $varname [msgcat::mc {Please specify radius and either name or (ra,dec)}]] + } +} diff --git a/ds9/parsers/sialex.fcl b/ds9/parsers/sialex.fcl index 36295f1..e038871 100644 --- a/ds9/parsers/sialex.fcl +++ b/ds9/parsers/sialex.fcl @@ -15,6 +15,7 @@ crosshair {return $CROSSHAIR_} export {return $EXPORT_} name {return $NAME_} print {return $PRINT_} +radius {return $RADIUS_} retrieve {return $RETRIEVE_} save {return $SAVE_} size {return $SIZE_} diff --git a/ds9/parsers/siaparser.tac b/ds9/parsers/siaparser.tac index 0732fe2..d0e75a4 100644 --- a/ds9/parsers/siaparser.tac +++ b/ds9/parsers/siaparser.tac @@ -18,6 +18,7 @@ %token EXPORT_ %token NAME_ %token PRINT_ +%token RADIUS_ %token RETRIEVE_ %token SAVE_ %token SIZE_ @@ -69,7 +70,9 @@ siaCmd : CANCEL_ {global cvarname; ARCancel $cvarname} | NAME_ STRING_ {ProcessCmdCVAR name $2} | PRINT_ {global cvarname; CATPrint $cvarname} | RETRIEVE_ {global cvarname; SIAApply $cvarname 1} - | SIZE_ numeric numeric rformat {SIACmdSize $2 $3 $4} + | RADIUS_ numeric rformat {SIACmdSize $2 $3} +# backward compatibily + | SIZE_ numeric numeric rformat {SIACmdSize [expr ($2+$3)/2.] $4} | SKY_ skyframe {SIACmdSkyframe $2} | SKYFORMAT_ skyformat {ProcessCmdCVAR skyformat $2} | SYSTEM_ wcssys {SIACmdSystem $2} -- cgit v0.12