Changeset 830

Timestamp:

09/29/07 01:06:56 (11 months ago)

Author:

mankoff

Message:

• AUTO_TRANSPARENCY defaults to on but can be explicitely set to 0 to save mem/time
  
• Moved checkboxes (iso,volume,image,etc.) to left side and compacted by removing 'Show'
  
• Added UI checkboxes to turn on/off planes individually, but no functionality
  

Files:

• misc/clouds/xyztn.pro (modified) (6 diffs)

misc/clouds/xyztn.pro

@@ -828 +828 @@
   ;; Image controls
   wRow = WIDGET_BASE(wFrameBase,/ROW)
+  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
+  wImgShow = WIDGET_BUTTON(wRowB,VALUE='Image',UVAL='IMG_SHOW')
   wIVolSel = WIDGET_DROPLIST(wRow,VALUE=dnames, $
-                             FRAME=frame,TITLE='Image',UVAL='IMG_VOLSEL')
-  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
-  wImgShow = WIDGET_BUTTON(wRowB,VALUE='Show',UVAL='IMG_SHOW')
+                             FRAME=frame,UVAL='IMG_VOLSEL')
   WIDGET_CONTROL,wImgShow,/SET_BUTTON
   
   ;; Contour
   wRow = WIDGET_BASE(wFrameBase,/ROW)
+  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
+  wContShow = WIDGET_BUTTON(wRowB,VALUE='Contour',UVAL='CONT_SHOW')
   wIVolSel = WIDGET_DROPLIST(wRow,VALUE=dnames, $
-                             FRAME=frame,TITLE='Contour',UVAL='CONT_VOLSEL')
-  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
-  wContShow = WIDGET_BUTTON(wRowB,VALUE='Show',UVAL='CONT_SHOW')
+                             FRAME=frame,UVAL='CONT_VOLSEL')
   
   ;; Possible vector
@@ -862 +862 @@
   ;; Planes for image/contour/vectors
   wRow = WIDGET_BASE(wFrameBase,/ROW)
-  wText = WIDGET_LABEL(wRow, VALUE='X:' )
+  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
+  wXPlaneShow = WIDGET_BUTTON(wRowB,VALUE='X:',UVAL='SHOW_XPLANE' )
+  WIDGET_CONTROL, wXPlaneShow, /SET_BUTTON
   wXSlider = WIDGET_SLIDER(wRow, MAXIMUM=xMax, UVALUE='X_VALUE', $
                            VALUE=xMax*0.75, /SUPPRESS_VALUE, /DRAG)
@@ -870 +872 @@
 
   wRow = WIDGET_BASE(wFrameBase,/ROW)
-  wText = WIDGET_LABEL(wRow, VALUE='Y:' )
+  ;wText = WIDGET_LABEL(wRow, VALUE='Y:' )
+  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
+  wYPlaneShow = WIDGET_BUTTON(wRowB,VALUE='Y:',UVAL='SHOW_YPLANE' )
+  WIDGET_CONTROL, wYPlaneShow, /SET_BUTTON
   wYSlider = WIDGET_SLIDER(wRow, MAXIMUM=yMax, UVALUE='Y_VALUE', $
                            value=yMax*0.50, /SUPPRESS_VALUE, /DRAG )
@@ -878 +883 @@
 
   wRow = WIDGET_BASE(wFrameBase,/ROW)
-  wText = WIDGET_LABEL(wRow, VALUE='Z:' )
+  ;wText = WIDGET_LABEL(wRow, VALUE='Z:' )
+  wRowB = WIDGET_BASE(wRow,/ROW,/NONEXCLUSIVE)
+  wZPlaneShow = WIDGET_BUTTON(wRowB,VALUE='Z:',UVAL='SHOW_ZPLANE' )
+  WIDGET_CONTROL, wZPlaneShow, /SET_BUTTON
   wZSlider = WIDGET_SLIDER(wRow, MAXIMUM=zMax, UVALUE='Z_VALUE', $
                            VALUE=zMax*0.10, /SUPPRESS_VALUE, /DRAG)
@@ -904 +912 @@
   wSpace = WIDGET_LABEL(wFrameBase,VALUE='Image Transparency')
   ;; Calculate the transparency value = mode+1
-  ;; Mode requires sorting which is computationally expensive. Make it optional
+  ;; Mode requires sorting which is computationally expensive.Make it optional
+  ;; default to on
+  if n_elements( AUTO_TRANSPARENCY ) eq 0 then AUTO_TRANSPARENCY=1
   if keyword_set(AUTO_TRANSPARENCY) then begin
      transparencyMin = KDM_RANGE(mode(data.(0)), $
@@ -928 +938 @@
   ;; Volume
   wRow0 = WIDGET_BASE(wFrameBase,/ROW)
+  wRow1 = WIDGET_BASE(wRow0,/ROW,/NONEXCLUSIVE)
+  wVRender = WIDGET_BUTTON(wRow1, VALUE='Volume', $
+                           UVALUE='VREND_SHOW', UNAME='XYZTN:volrendr')
   wVVolSel = WIDGET_DROPLIST(wRow0,VALUE=dnames, $
-                             FRAME=frame, TITLE='Volume', $
-                             UVAL='VREND_VOLSEL')
-  wRow1 = WIDGET_BASE(wRow0,/ROW,/NONEXCLUSIVE)
-  wVRender = WIDGET_BUTTON(wRow1, VALUE='Show', $
-                           UVALUE='VREND_SHOW', UNAME='XYZTN:volrendr')
+                             FRAME=frame, UVAL='VREND_VOLSEL')
 
   ;; Isosurface
   wRow0 = WIDGET_BASE(wFrameBase,/ROW)
+  wRow1 = WIDGET_BASE(wRow0,/ROW,/NONEXCLUSIVE)
+  wIsotoggle = WIDGET_BUTTON(wRow1,VALUE='Iso',UVALUE='ISO_SHOW')
   wSVolSel = WIDGET_DROPLIST(wRow0,VALUE=dnames, $
-                             FRAME=frame, TITLE='Iso',UVAL='ISO_VOLSEL')
-  wRow1 = WIDGET_BASE(wRow0,/ROW,/NONEXCLUSIVE)
-  wIsotoggle = WIDGET_BUTTON(wRow1,VALUE='Show',UVALUE='ISO_SHOW')
+                             FRAME=frame, UVAL='ISO_VOLSEL')
   
   wRow2 = WIDGET_BASE(wFrameBase,/ROW)