cleanup ProcessCmd code

1 files changed, 4 insertions, 101 deletions

diff --git a/ds9/library/3d.tcl b/ds9/library/3d.tcl
index 6dd7fde..78a6c2a 100644
--- a/ds9/library/3d.tcl
+++ b/ds9/library/3d.tcl
@@ -465,107 +465,10 @@ proc Process3DCmd {varname iname} {
 
     3DDialog
 
-    global debug
-    if {$debug(tcl,parser)} {
-	threed::YY_FLUSH_BUFFER
-	threed::yy_scan_string [lrange $var $i end]
-	threed::yyparse
-	incr i [expr $threed::yycnt-1]
-    } else {
-
-    global threed
-    switch -- [string tolower [lindex $var $i]] {
-	open {}
-	close {3DDestroyDialog}
-	az {
-	    incr i
-	    set threed(az) [lindex $var $i]
-	    3DViewPoint
-	}
-	el {
-	    incr i
-	    set threed(el) [lindex $var $i]
-	    3DViewPoint
-	}
-	view -
-	vp {
-	    incr i
-	    set threed(az) [lindex $var $i]
-	    incr i
-	    set threed(el) [lindex $var $i]
-	    3DViewPoint
-	}
-	scale {
-	    incr i
-	    set threed(scale) [lindex $var $i]
-	    3DScale
-	}
-	method {
-	    incr i
-	    set threed(method) [lindex $var $i]
-	    3DRenderMethod
-	}
-	background {
-	    incr i
-	    set threed(background) [lindex $var $i]
-	    3DBackground
-	}
-	highlite {
-	    incr i
-	    switch [string tolower [lindex $var $i]] {
-		color {
-		    incr i
-		    set threed(highlite,color) [lindex $var $i]
-		    3DHighliteColor
-		}
-		default {
-		    set threed(highlite) [FromYesNo [lindex $var $i]]
-		    3DHighlite
-		}
-	    }
-	}
-	border {
-	    incr i
-	    switch [string tolower [lindex $var $i]] {
-		color {
-		    incr i
-		    set threed(border,color) [lindex $var $i]
-		    3DBorderColor
-		}
-		default {
-		    set threed(border) [FromYesNo [lindex $var $i]]
-		    3DBorder
-		}
-	    }
-	}
-	compass {
-	    incr i
-	    switch [string tolower [lindex $var $i]] {
-		color {
-		    incr i
-		    set threed(compass,color) [lindex $var $i]
-		    3DCompassColor
-		}
-		default {
-		    set threed(compass) [FromYesNo [lindex $var $i]]
-		    3DCompass
-		}
-	    }
-	}
-	match {Match3DCurrent}
-	lock {
-	    incr i
-	    if {!([string range [lindex $var $i] 0 0] == "-")} {
-		set threed(lock) [FromYesNo [lindex $var $i]]
-	    } else {
-		set threed(lock) 1
-		incr i -1
-	    }
-	    Lock3DCurrent
-	}
-	default {Create3DFrame; incr i -1}
-    }
-}
+    threed::YY_FLUSH_BUFFER
+    threed::yy_scan_string [lrange $var $i end]
+    threed::yyparse
+    incr i [expr $threed::yycnt-1]
 }
 
 proc ThreedCmdSet {which value {cmd {}}} {