diff options
-rw-r--r-- | ds9/library/lex.fcl | 1 | ||||
-rw-r--r-- | ds9/library/parser.tac | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl index abfe4e0..fa820dd 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -60,6 +60,7 @@ E [Ee][+-]?{D}+ -raise {return $::RAISECMD_} -red {return $::REDCMD_} -rgb {return $::RGBCMD_} +-rotate {return $::ROTATECMD_} -scale {return $::SCALECMD_} -single {return $::SINGLECMD_} -sinh {return $::SINHCMD_} diff --git a/ds9/library/parser.tac b/ds9/library/parser.tac index 89843de..b639b76 100644 --- a/ds9/library/parser.tac +++ b/ds9/library/parser.tac @@ -63,6 +63,7 @@ set file(load) 0 %token RAISECMD_ %token REDCMD_ %token RGBCMD_ +%token ROTATECMD_ %token SCALECMD_ %token SINGLECMD_ %token SINHCMD_ @@ -330,6 +331,7 @@ command : 2MASSCMD_ {2MASSDialog} 2mass | RAISECMD_ {global ds9; raise $ds9(top)} | REDCMD_ {global current; set current(rgb) red; RGBChannel} | RGBCMD_ {RGBDialog} rgb + | ROTATECMD_ {ProcessRealizeDS9} rotate | SINGLECMD_ {global current; ProcessRealizeDS9; set current(display) single; DisplayMode} | SINHCMD_ {global scale; set scale(type) sinh; ChangeScale} | SLEEPCMD_ {UpdateDS9; RealizeDS9} sleep @@ -951,6 +953,12 @@ rgbView : RED_ yesno {global rgb; set rgb(red) $2; RGBView} | BLUE_ yesno {global rgb; set rgb(blue) $2; RGBView} ; +rotate : numeric {Rotate $1} + | OPEN_ {PanZoomDialog} + | CLOSE_ {PanZoomDestroyDialog} + | TO_ numeric {global current; set current(rotate) $2; ChangeRotate} + ; + scale : scaleScales {global scale; set scale(type) $1; ChangeScale} | LOG_ scaleLog | DATASEC_ yesno |