package uk.ac.starlink.topcat.plot2;

import java.awt.BorderLayout;
import java.awt.Component;
import java.awt.Dimension;
import java.awt.GridLayout;
import java.awt.Insets;
import java.awt.Point;
import java.awt.Rectangle;
import java.awt.Shape;
import java.awt.Window;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import java.awt.event.KeyEvent;
import java.awt.event.MouseAdapter;
import java.awt.event.MouseEvent;
import java.awt.event.MouseMotionAdapter;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;
import java.beans.PropertyChangeEvent;
import java.beans.PropertyChangeListener;
import java.io.IOException;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.BitSet;
import java.util.Collection;
import java.util.HashMap;
import java.util.Iterator;
import java.util.LinkedHashMap;
import java.util.List;
import java.util.Map;
import java.util.TreeMap;
import java.util.function.Supplier;
import java.util.logging.Level;
import java.util.logging.Logger;
import javax.swing.AbstractAction;
import javax.swing.Action;
import javax.swing.BorderFactory;
import javax.swing.Box;
import javax.swing.BoxLayout;
import javax.swing.Icon;
import javax.swing.JButton;
import javax.swing.JComponent;
import javax.swing.JLabel;
import javax.swing.JMenu;
import javax.swing.JMenuBar;
import javax.swing.JMenuItem;
import javax.swing.JPanel;
import javax.swing.JToolBar;
import javax.swing.ListModel;
import javax.swing.OverlayLayout;
import javax.swing.SwingUtilities;
import javax.swing.event.ChangeEvent;
import javax.swing.event.ChangeListener;
import uk.ac.starlink.table.RowRunner;
import uk.ac.starlink.table.StarTable;
import uk.ac.starlink.table.TableSource;
import uk.ac.starlink.table.Tables;
import uk.ac.starlink.topcat.AuxWindow;
import uk.ac.starlink.topcat.BasicAction;
import uk.ac.starlink.topcat.ControlWindow;
import uk.ac.starlink.topcat.HelpAction;
import uk.ac.starlink.topcat.LineBox;
import uk.ac.starlink.topcat.MultiSubsetQueryWindow;
import uk.ac.starlink.topcat.ResourceIcon;
import uk.ac.starlink.topcat.RowSubset;
import uk.ac.starlink.topcat.SubsetConsumer;
import uk.ac.starlink.topcat.ToggleButtonModel;
import uk.ac.starlink.topcat.TopcatEvent;
import uk.ac.starlink.topcat.TopcatJELUtils;
import uk.ac.starlink.topcat.TopcatListener;
import uk.ac.starlink.topcat.TopcatModel;
import uk.ac.starlink.topcat.TopcatUtils;
import uk.ac.starlink.topcat.WindowToggle;
import uk.ac.starlink.ttools.plot2.AuxScale;
import uk.ac.starlink.ttools.plot2.DataGeom;
import uk.ac.starlink.ttools.plot2.Decoration;
import uk.ac.starlink.ttools.plot2.Gang;
import uk.ac.starlink.ttools.plot2.Ganger;
import uk.ac.starlink.ttools.plot2.Gesture;
import uk.ac.starlink.ttools.plot2.IndicatedRow;
import uk.ac.starlink.ttools.plot2.LegendEntry;
import uk.ac.starlink.ttools.plot2.LegendIcon;
import uk.ac.starlink.ttools.plot2.Navigator;
import uk.ac.starlink.ttools.plot2.Padding;
import uk.ac.starlink.ttools.plot2.PlotLayer;
import uk.ac.starlink.ttools.plot2.PlotMetric;
import uk.ac.starlink.ttools.plot2.PlotType;
import uk.ac.starlink.ttools.plot2.PlotUtil;
import uk.ac.starlink.ttools.plot2.Plotter;
import uk.ac.starlink.ttools.plot2.ReportKey;
import uk.ac.starlink.ttools.plot2.ReportMap;
import uk.ac.starlink.ttools.plot2.ReportMeta;
import uk.ac.starlink.ttools.plot2.ShadeAxisFactory;
import uk.ac.starlink.ttools.plot2.Slow;
import uk.ac.starlink.ttools.plot2.Span;
import uk.ac.starlink.ttools.plot2.SubCloud;
import uk.ac.starlink.ttools.plot2.Subrange;
import uk.ac.starlink.ttools.plot2.Surface;
import uk.ac.starlink.ttools.plot2.SurfaceFactory;
import uk.ac.starlink.ttools.plot2.config.ConfigMap;
import uk.ac.starlink.ttools.plot2.config.Specifier;
import uk.ac.starlink.ttools.plot2.data.CachedDataStoreFactory;
import uk.ac.starlink.ttools.plot2.data.CoordGroup;
import uk.ac.starlink.ttools.plot2.data.DataSpec;
import uk.ac.starlink.ttools.plot2.data.DataStore;
import uk.ac.starlink.ttools.plot2.data.DataStoreFactory;
import uk.ac.starlink.ttools.plot2.data.MemoryColumnFactory;
import uk.ac.starlink.ttools.plot2.data.SmartColumnFactory;
import uk.ac.starlink.ttools.plot2.data.TupleRunner;
import uk.ac.starlink.ttools.plot2.data.TupleSequence;
import uk.ac.starlink.ttools.plot2.paper.Compositor;
import uk.ac.starlink.util.SplitCollector;

/**
 * Window for all plots.
 * This is generic and currently not expected to have much behaviour
 * implemented by subclasses; plot-type-specific behaviour is
 * defined by supplied PlotType and PlotTypeGui objects.
 * It uses a PlotPanel to do the actual plotting work; this class
 * handles placing the PlotPanel, gathering and supplying user configuration
 * information to it, invoking replots at appropriate times, and
 * managing other user interactions.
 *
 * @author    Mark Taylor
 * @since     12 Mar 2013
 */
public class StackPlotWindow<P,A> extends AuxWindow {

    private final PlotType<P,A> plotType_;
    private final PlotTypeGui<P,A> plotTypeGui_;
    private final ZoneFactory zoneFact_;
    private final SurfaceFactory<P,A> surfFact_;
    private final PlotPanel<P,A> plotPanel_;
    private final ControlStack stack_;
    private final ControlStackModel stackModel_;
    private final ControlStackPanel stackPanel_;
    private final ControlManager controlManager_;
    private final MultiAxisController<P,A> multiAxisController_;
    private final MultiController<ShaderControl> multiShaderControl_;
    private final MultiConfigger[] zoneConfiggers_;
    private final ToggleButtonModel showProgressModel_;
    private final LegendControl legendControl_;
    private final FrameControl frameControl_;
    private final JLabel posLabel_;
    private final JLabel countLabel_;
    private final NavigationHelpPanel navPanel_;
    private final BlobPanel2 blobPanel_;
    private final FigurePanel figurePanel_;
    private final Action blobAction_;
    private final Action figureAction_;
    private final Action fromVisibleAction_;
    private final Action fromVisibleJelAction_;
    private final Action resizeAction_;
    private final boolean canSelectPoints_;
    private final JMenu exportMenu_;
    private final JMenu layerDataImportMenu_;
    private final JMenu layerDataSaveMenu_;
    private final ToggleButtonModel sketchModel_;
    private final ToggleButtonModel axisLockModel_;
    private final ToggleButtonModel auxLockModel_;
    private final ToggleButtonModel parallelCacheModel_;
    private final ZoneId dfltZone_;
    private DataStoreFactory storeFact_;
    private boolean hasShader_;
    private static final String[] XYZ = new String[] { "x", "y", "z" };
    private static final Level REPORT_LEVEL = Level.INFO;
    private static final Logger logger_ =
        Logger.getLogger( "uk.ac.starlink.ttools.plot2" );

    /**
     * Constructor.
     *
     * @param  name  window name
     * @param  parent  parent component
     * @param  plotType   defines basic plot type characteristics
     * @param  plotTypeGui  defines graphical user interface specifics
     *                      for plot type
     * @param  tablesModel  list of available tables
     */
    public StackPlotWindow( String name, Component parent,
                            PlotType<P,A> plotType,
                            PlotTypeGui<P,A> plotTypeGui,
                            ListModel<TopcatModel> tablesModel ) {
        super( name, parent );
        plotType_ = plotType;
        plotTypeGui_ = plotTypeGui;
        zoneFact_ = plotTypeGui_.createZoneFactory();
        canSelectPoints_ = plotTypeGui.hasPositions();
        final CartesianRanger cartRanger = plotTypeGui.getCartesianRanger();
        dfltZone_ = zoneFact_.getDefaultZone();

        /* Use a compositor with a fixed boost.  Maybe make the compositor
         * implementation controllable from the GUI at some point, but
         * the replot machinery currently assumes that PaperType is fixed
         * (does not check whether it's changed between replot requests)
         * so a bit of re-engineering would be required. */
        final Compositor compositor = new Compositor.BoostCompositor( 0.05f );

        /* Set up various user interface components in the window that can
         * gather all the information required to perform (re-)plots. */
        Factory<PlotPosition> posFact = new Factory<PlotPosition>() {
            public PlotPosition getItem() {
                return frameControl_.getPlotPosition();
            }
        };
        axisLockModel_ =
            new ToggleButtonModel( "Lock Axes", ResourceIcon.AXIS_LOCK,
                                   "Do not auto-rescale axes" );
        auxLockModel_ =
            new ToggleButtonModel( "Lock Aux Range", ResourceIcon.AUX_LOCK,
                                   "Do not auto-rescale aux scales" );
        surfFact_ = plotType_.getSurfaceFactory();
        DataStoreFactory storeFact = new DataStoreFactory() {
            public DataStore readDataStore( DataSpec[] specs,
                                            DataStore prevStore )
                    throws IOException, InterruptedException {
                return storeFact_.readDataStore( specs, prevStore );
            }
        };
        sketchModel_ =
            new ToggleButtonModel( "Sketch Frames", ResourceIcon.SKETCH,
                                   "Draw intermediate frames from subsampled "
                                 + "data when navigating very large plots" );
        sketchModel_.setSelected( true );
        showProgressModel_ =
            new ToggleButtonModel( "Show Plot Progress", ResourceIcon.PROGRESS,
                                   "Report progress for slow plots in the "
                                 + "progress bar at the bottom of the window" );
        showProgressModel_.setSelected( true );
        final ToggleButtonModel navdecModel =
            new ToggleButtonModel( "Show Navigation Graphics",
                                   ResourceIcon.NAV_DEC,
                                   "Give visual feedback for plot navigation "
                                 + "gestures" );
        navdecModel.setSelected( true );
        Factory<Ganger<P,A>> gangerFact = new Factory<Ganger<P,A>>() {
            public Ganger<P,A> getItem() {
                return getGanger();
            }
        };
        Factory<List<ZoneDef<P,A>>> zonesFact =
                new Factory<List<ZoneDef<P,A>>>() {
            public List<ZoneDef<P,A>> getItem() {
                return getZoneDefs();
            }
        };

        /* Provide an option for preparing the cache in parallel.
         * This is experimental; in particular cancelling it doesn't
         * work properly, so keep this option out of the way. */
        parallelCacheModel_ =
            new ToggleButtonModel( "Parallel Caching", ResourceIcon.DO_WHAT,
                                   "Prepare data for plot in parallel" );
        parallelCacheModel_.addChangeListener( evt -> {
            updateDataStoreFactory();
        } );
        updateDataStoreFactory();

        /* Set up fixed configuration controls. */
        MultiConfigger configger = new MultiConfigger();
        frameControl_ = new FrameControl();
        multiShaderControl_ =
            new MultiShaderController( zoneFact_, configger, auxLockModel_ );
        legendControl_ = new LegendControl( configger );

        /* Prepare the panel containing the user controls.  This may appear
         * either at the bottom of the plot window or floated into a
         * separate window. */
        stack_ = new ControlStack();
        stackModel_ = stack_.getStackModel();
        JToolBar stackToolbar = new JToolBar();
        stackPanel_ = new ControlStackPanel( stack_, stackToolbar );

        /* Populate it with the fixed controls. */
        stackPanel_.addFixedControl( frameControl_ );
        stackPanel_.addFixedControl( legendControl_ );
        multiAxisController_ =
            new MultiAxisController<P,A>( plotTypeGui_, surfFact_, zoneFact_,
                                          configger );
        for ( Control c : multiAxisController_.getStackControls() ) {
            stackPanel_.addFixedControl( c );
        }

        /* Set up a plot panel with the objects it needs to gather plot
         * requirements from the GUI.  This does the actual plotting. */
        plotPanel_ =
            new PlotPanel<P,A>( plotType_, storeFact, surfFact_,
                                gangerFact, zonesFact, posFact,
                                plotType.getPaperTypeSelector(),
                                compositor, sketchModel_,
                                placeProgressBar().getModel(),
                                showProgressModel_, axisLockModel_,
                                auxLockModel_ );

        zoneConfiggers_ = new MultiConfigger[] {
            configger, 
            multiAxisController_.getConfigger(),
            multiShaderControl_.getConfigger(),
        };

        /* Prepare options to display the text of a STILTS command
         * corresponding to the current plot. */
        final boolean isMultiZone =
            plotTypeGui_.getGangerFactory().isMultiZone();
        ToggleButtonModel stiltsWindowToggle =
                 new WindowToggle( "STILTS Command Window", ResourceIcon.STILTS,
                                   "Display this information "
                                 + "in a separate window" ) {
            protected Window createWindow() {
                return new StiltsDialog( StackPlotWindow.this, plotPanel_,
                                         isMultiZone );
            }
        };
        Control stiltsControl =
            new StiltsControl( plotPanel_, isMultiZone, stiltsWindowToggle );
        stackPanel_.addFixedControl( stiltsControl );

        /* Ensure that the plot panel is messaged when a GUI action occurs
         * that might change the plot appearance.  Each of these controls
         * is forwarding actions from all of its constituent controls. */
        stackModel_.addPlotActionListener( new ActionListener() {
            public void actionPerformed( ActionEvent evt ) {
                updateGuiForStack();
                plotPanel_.actionPerformed( evt );
            }
        } );
        frameControl_.addActionListener( plotPanel_ );
        legendControl_.addActionListener( plotPanel_ );
        navdecModel.addActionListener( plotPanel_ );
        auxLockModel_.addActionListener( plotPanel_ );
        for ( Control c : multiShaderControl_.getStackControls() ) {
            c.addActionListener( plotPanel_ );
        }
        for ( Control c : multiAxisController_.getStackControls() ) {
            c.addActionListener( plotPanel_ );
        }

        /* Arrange for user navigation actions to adjust the view. */
        new GuiNavigationListener<A>( plotPanel_ ) {
            protected Navigator<A> getExistingNavigator( int isurf ) {
                return getAxisController( isurf ).getNavigator();
            }
            public void setAspect( int isurf, A aspect ) {
                multiAxisController_.setAspect( getGanger(),
                                                plotPanel_.getZoneId( isurf ),
                                                aspect );
                plotPanel_.replot();
            }
            public void setDecoration( Decoration navDec ) {
                if ( navdecModel.isSelected() ) {
                    plotPanel_.setNavDecoration( navDec );
                }
            }
        }.addListeners( plotPanel_ );

        /* Arrange for user clicks to identify points. */
        if ( canSelectPoints_ ) {
            plotPanel_.addMouseListener( new IdentifyListener() );
        }

        /* Prepare a panel that reports current cursor position. */
        posLabel_ = new JLabel();
        JComponent posLine = new LineBox( "Position", posLabel_ );
        posLine.setBorder( BorderFactory.createEtchedBorder() );
        plotPanel_.addMouseListener( new MouseAdapter() {
            public void mouseEntered( MouseEvent evt ) {
                updatePositionDisplay( evt.getPoint() );
            }
            public void mouseExited( MouseEvent evt ) {
                updatePositionDisplay( null );
            }
        } );
        plotPanel_.addMouseMotionListener( new MouseMotionAdapter() {
            public void mouseMoved( MouseEvent evt ) {
                updatePositionDisplay( evt.getPoint() );
            }
        } );

        /* Prepare a panel that reports visible point count. */
        countLabel_ = new JLabel();
        JComponent countLine = new LineBox( "Count", countLabel_ );
        countLine.setBorder( BorderFactory.createEtchedBorder() );
        plotPanel_.addChangeListener( new ChangeListener() {
            public void stateChanged( ChangeEvent evt ) {
                plotChanged();
            }
        }, false );

        /* Prepare the actions that allow the user to select the currently
         * visible points. */
        fromVisibleAction_ =
                new BasicAction( "Subset from visible",
                                 ResourceIcon.VISIBLE_SUBSET,
                                 "Define a new row subset containing only "
                               + "currently visible points" ) {
            public void actionPerformed( ActionEvent evt ) {
                addMaskSubsets( getBoundsInclusions( true ), null );
            }
        };
        if ( cartRanger != null ) {
            fromVisibleJelAction_ =
                    new BasicAction( "Algebraic subset from visible",
                                     ResourceIcon.JEL_VISIBLE_SUBSET,
                                     "Define a new row subset "
                                   + "by algebraic expression containing only "
                                   + "currently visible points" ) {
                public void actionPerformed( ActionEvent evt ) {
                    addVisibleJelSubsets( cartRanger );
                }
            };
        }
        else {
            fromVisibleJelAction_ = null;
        }

        /* Prepare the action that allows the user to select points by
         * hand-drawn region. */
        blobPanel_ = new BlobPanel2() {
            protected void blobCompleted( Shape blob ) {
                setListening( false );
                final BlobPanel2 panel = this;
                addMaskSubsets( getBlobInclusions( blob ), new Runnable() {
                    public void run() {
                        panel.setActive( false );
                    }
                } );
            }
        };
        blobAction_ = blobPanel_.getBlobAction();
        blobAction_.addPropertyChangeListener( new PropertyChangeListener() {
            public void propertyChange( PropertyChangeEvent evt ) {
                String pname = evt.getPropertyName();
                if ( "enabled".equals( pname ) ||
                     BlobPanel2.PROP_ACTIVE.equals( pname ) ) {
                    updateSubsetActions();
                }
            }
        } );

        /* Prepare the action that allows the user to select points by
         * hand-placed vertices. */
        FigureMode[] figureModes = plotTypeGui_.getFigureModes();
        if ( figureModes != null && figureModes.length > 0 ) {
            figurePanel_ = new FigurePanel( plotPanel_, figureModes, true ) {
                protected void figureCompleted( Figure fig, int iz ) {
                    setListening( false );
                    final FigurePanel panel = this;
                    Runnable tidier = new Runnable() {
                        public void run() {
                            panel.setActive( false );
                        }
                    };
                    Surface surf = plotPanel_.getLatestSurface( iz );
                    PlotLayer[] layers = plotPanel_.getPlotLayers( iz );
                    if ( layers.length > 0 ) {
                        addFigureSubsets( fig, surf, layers, tidier );
                    }
                    else {
                        tidier.run();
                    }
                }
            };
            figureAction_ = figurePanel_.getBasicFigureAction();
            figureAction_.addPropertyChangeListener(
                    new PropertyChangeListener() {
                public void propertyChange( PropertyChangeEvent evt ) {
                    String pname = evt.getPropertyName();
                    if ( "enabled".equals( pname ) ||
                         FigurePanel.PROP_ACTIVE.equals( pname ) ) {
                        updateSubsetActions();
                    }
                }
            } );
        }
        else {
            figurePanel_ = null;
            figureAction_ = null;
        }

        /* Prepare the distance measurement action. */
        PlotMetric metric = surfFact_.getPlotMetric();
        MeasurePanel measurePanel = metric == null
                                  ? null
                                  : new MeasurePanel( metric, plotPanel_ );
        ToggleButtonModel measureModel = measurePanel == null
                                       ? null
                                       : measurePanel.getModel();

        /* Prepare the plot export action. */
        final PlotExporter plotExporter = PlotExporter.getInstance();
        final PlotExporter.IconFactory ifact = new PlotExporter.IconFactory() {
            public Icon getExportIcon( boolean forceBitmap ) {
                return plotPanel_.createExportIcon( forceBitmap );
            }
        };
        Action exportAction =
                new BasicAction( "Export plot to file", ResourceIcon.IMAGE,
                                 "Save the plot to a file"
                               + " in one of several graphics formats" ) {
            public void actionPerformed( ActionEvent evt ) {
                plotExporter.exportPlot( StackPlotWindow.this, ifact );
            }
        };

        /* Prepare the plot rescale action. */
        resizeAction_ =
                new BasicAction( "Rescale", ResourceIcon.RESIZE,
                                 "Rescale plot to view all plotted data" ) {
            public void actionPerformed( ActionEvent evt ) {
                multiAxisController_.resetAspects();
                plotPanel_.replot();
            }
        };

        /* Prepare the replot action. */
        Action replotAction =
                new BasicAction( "Replot", ResourceIcon.REDO,
                                 "Redraw the plot" ) {
            public void actionPerformed( ActionEvent evt ) {
                plotPanel_.clearData();
                plotPanel_.replot();
            }
        };

        /* Prepare the actions that allow the user to populate the plot
         * with data layers appropriate to this window's plot type. */
        TopcatListener tcListener = new TopcatListener() {
            public void modelChanged( TopcatEvent evt ) {
                if ( evt.getCode() == TopcatEvent.ROW ) {
                    highlightRow( evt.getModel(),
                                  ((Long) evt.getDatum()).longValue() );
                }
            }
        };
        controlManager_ =
            new GroupControlManager<P,A>( stack_, plotType, plotTypeGui,
                                          tablesModel, zoneFact_,
                                          configger, tcListener );

        /* Prepare actions for adding and removing stack controls. */
        Action[] stackActions = controlManager_.getStackActions();
        Action removeAction =
            stack_.createRemoveAction( "Remove Current Control",
                                       "Delete the current layer control"
                                     + " from the stack" );

        /* Prepare the panel that holds the plot itself.  Blob drawing
         * is superimposed using an OverlayLayout. */
        JPanel displayPanel = new JPanel();
        displayPanel.setLayout( new OverlayLayout( displayPanel ) );
        displayPanel.add( blobPanel_ );
        if ( figurePanel_ != null ) {
            displayPanel.add( figurePanel_ );
        }
        if ( measurePanel != null ) {
            displayPanel.add( measurePanel );
        }
        displayPanel.add( plotPanel_ );

        /* Place position and count status panels at the bottom of the
         * window. */
        JComponent cpanel = getControlPanel();
        cpanel.setLayout( new BoxLayout( cpanel, BoxLayout.Y_AXIS ) );
        JComponent statusLine = new JPanel( new GridLayout( 1, 2, 5, 0 ) );
        statusLine.setBorder( BorderFactory.createEmptyBorder( 4, 0, 0, 0 ) );
        statusLine.add( posLine );
        statusLine.add( countLine );
        cpanel.add( statusLine );

        /* Get action to provide plot-specific navigation help. */
        String navHelpId = plotTypeGui_.getNavigatorHelpId();
        Action navHelpAction =
              navHelpId != null && HelpAction.helpIdExists( navHelpId )
            ? new HelpAction( navHelpId, this )
            : null;

        /* Place mouse hints panel at the bottom of the window, with
         * actions to hide it. */
        final JComponent navhelpHolder = Box.createVerticalBox();
        navPanel_ = new NavigationHelpPanel();
        navPanel_.setBorder( BorderFactory.createEmptyBorder( 2, 0, 0, 0 ) );
        final JComponent navhelpLine = Box.createHorizontalBox();
        final ToggleButtonModel navhelpModel =
            new ToggleButtonModel( "Show Navigation Help",
                                   ResourceIcon.NAV_HELP,
                                   "Display mouse action hints"
                                 + " at the bottom of the window" );
        navhelpModel.addChangeListener( new ChangeListener() {
            public void stateChanged( ChangeEvent evt ) {
                if ( navhelpModel.isSelected() ) {
                    navhelpHolder.add( navhelpLine );
                }
                else {
                    navhelpHolder.remove( navhelpLine );
                }
                navhelpHolder.revalidate();
            }
        } );
        navPanel_.setAlignmentY( 0.5f );
        JButton hideNavButt = new JButton( null, ResourceIcon.SMALL_CLOSE );
        hideNavButt.setMargin( new Insets( 0, 0, 0, 0 ) );
        hideNavButt.setModel( navhelpModel );
        hideNavButt.setAlignmentY( 0.5f );
        navhelpLine.add( hideNavButt );
        navhelpLine.add( Box.createHorizontalStrut( 5 ) );
        if ( navHelpAction != null ) {
            JButton helpNavButt = new JButton( null, ResourceIcon.SMALL_HELP );
            helpNavButt.setMargin( new Insets( 0, 0, 0, 0 ) );
            helpNavButt.addActionListener( navHelpAction );
            helpNavButt.setAlignmentY( 0.5f );
            navhelpLine.add( helpNavButt );
            navhelpLine.add( Box.createHorizontalStrut( 5 ) );
        }
        navhelpLine.add( navPanel_ );
        navhelpHolder.add( navhelpLine );
        cpanel.add( navhelpHolder );
        navhelpModel.setSelected( true );
        updatePositionDisplay( null );

        /* Prepare management of floating the control stack into a separate
         * window. */
        FloatManager floater =
            FloatManager
           .createFloatManager( getMainArea(), displayPanel, stackPanel_ );
        ToggleButtonModel floatModel = floater.getFloatToggle();
     
        /* Add actions etc to the toolbars. */
        if ( floatModel != null ) {
            getToolBar().add( floatModel.createToolbarButton() );
            getToolBar().addSeparator();
            stackToolbar.add( floatModel.createToolbarButton() );
            stackToolbar.addSeparator();
        }
        if ( figureAction_ != null ) {
            getToolBar().add( figureAction_ );
        }
        if ( canSelectPoints_ ) {
            getToolBar().add( blobAction_ );
        }
        getToolBar().add( fromVisibleAction_ );
        getToolBar().add( replotAction );
        getToolBar().add( resizeAction_ );
        if ( measureModel != null ) {
            getToolBar().add( measureModel.createToolbarButton() );
        }
        if ( axisLockModel_ != null ) {
            getToolBar().add( axisLockModel_.createToolbarButton() );
        }
        getToolBar().add( auxLockModel_.createToolbarButton() );
        getToolBar().add( sketchModel_.createToolbarButton() );
        getToolBar().add( showProgressModel_.createToolbarButton() );
        getToolBar().add( exportAction );
        for ( int i = 0; i < stackActions.length; i++ ) {
            stackToolbar.add( stackActions[ i ] );
        }
        stackToolbar.addSeparator();
        stackToolbar.add( removeAction );

        /* Add actions etc to menus. */
        getWindowMenu().insert( navhelpModel.createMenuItem(), 1 );
        if ( floatModel != null ) {
            getWindowMenu().insert( floatModel.createMenuItem(), 1 );
        }
        JMenu layerMenu = new JMenu( "Layers" );
        layerMenu.setMnemonic( KeyEvent.VK_L );
        for ( int i = 0; i < stackActions.length; i++ ) {
            layerMenu.add( stackActions[ i ] );
        }
        layerMenu.add( removeAction );
        getJMenuBar().add( layerMenu );
        JMenu subsetMenu = new JMenu( "Subsets" );
        subsetMenu.setMnemonic( KeyEvent.VK_S );
        if ( canSelectPoints_ ) {
            subsetMenu.add( blobAction_ );
        }
        if ( figurePanel_ != null ) {
            subsetMenu.add( figureAction_ );
            subsetMenu.add( figurePanel_.getModeFigureMenu() );
        }
        subsetMenu.add( fromVisibleAction_ );
        if ( fromVisibleJelAction_ != null ) {
            subsetMenu.add( fromVisibleJelAction_ );
        }
        getJMenuBar().add( subsetMenu );
        JMenu plotMenu = new JMenu( "Plot" );
        plotMenu.setMnemonic( KeyEvent.VK_P );
        plotMenu.add( replotAction );
        plotMenu.add( resizeAction_ );
        if ( measureModel != null ) {
            plotMenu.add( measureModel.createMenuItem() );
        }
        if ( axisLockModel_ != null ) {
            plotMenu.add( axisLockModel_.createMenuItem() );
        }
        plotMenu.add( auxLockModel_.createMenuItem() );
        plotMenu.add( sketchModel_.createMenuItem() );
        plotMenu.add( showProgressModel_.createMenuItem() );
        plotMenu.add( navdecModel.createMenuItem() );
        plotMenu.add( parallelCacheModel_.createMenuItem() );
        getJMenuBar().add( plotMenu );
        exportMenu_ = new JMenu( "Export" );
        exportMenu_.setMnemonic( KeyEvent.VK_E );
        exportMenu_.add( exportAction );
        exportMenu_.add( stiltsWindowToggle.createMenuItem() );
        layerDataImportMenu_ = new JMenu( "Layer Data Import" );
        layerDataImportMenu_.setIcon( ResourceIcon.IMPORT );
        layerDataImportMenu_.setToolTipText( "Options to import table into "
                                           + "application data resulting "
                                           + "from plot operations" );
        layerDataSaveMenu_ = new JMenu( "Layer Data Save" );
        layerDataSaveMenu_.setToolTipText( "Options to export to saved table "
                                         + "data resulting from "
                                         + "plot operations" );
        layerDataSaveMenu_.setIcon( ResourceIcon.SAVE );
        exportMenu_.add( layerDataImportMenu_ );
        exportMenu_.add( layerDataSaveMenu_ );
        getJMenuBar().add( exportMenu_ );

        /* Set default component dimensions. */
        displayPanel.setMinimumSize( new Dimension( 150, 150 ) );
        displayPanel.setPreferredSize( new Dimension( 500, 400 ) );
        stackPanel_.setMinimumSize( new Dimension( 200, 100 ) );
        stackPanel_.setPreferredSize( new Dimension( 500, 240 ) );
        getBodyPanel().setBorder( BorderFactory
                                 .createEmptyBorder( 10, 10, 2, 10 ) );

        /* Place the plot and control components. */
        getMainArea().setLayout( new BorderLayout() );
        floater.init();
        updateGuiForStack();
    }

    /**
     * Returns the plot type used by this window.
     *
     * @return  GUI plot type
     */
    public PlotTypeGui<P,A> getPlotTypeGui() {
        return plotTypeGui_;
    }

    /**
     * Returns the stack containing controls which define what this
     * window is displaying.
     *
     * @return   control stack
     */
    public ControlStack getControlStack() {
        return stack_;
    }

    /**
     * Returns the manager object that controls this window's stack.
     *
     * @return   control manager
     */
    public ControlManager getControlManager() {
        return controlManager_;
    }

    /**
     * Returns the ganger that controls how multi-zone plots are laid out.
     *
     * @return  currently specified ganger
     */
    private Ganger<P,A> getGanger() {
        Padding padding = frameControl_.getPlotPosition().getPadding();
        return plotTypeGui_.getGangerFactory().createGanger( padding );
    }

    /**
     * Returns this window's PlotPanel.
     *
     * @return  plot panel
     */
    public PlotPanel<P,A> getPlotPanel() {
        return plotPanel_;
    }

    /**
     * Returns the AxisController for a given zone.
     *
     * @param   iz  zone index
     * @return  axis controller
     */
    public AxisController<P,A> getAxisController( int iz ) {
        return multiAxisController_.getController( plotPanel_.getZoneId( iz ) );
    }

    /**
     * Returns this window's Export menu.
     *
     * @return  export menu
     */
    public JMenu getExportMenu() {
        return exportMenu_;
    }

    /**
     * Returns the button model controlling whether intermediate plots are
     * shown while assembling large/slow plots.
     *
     * @return  sketch button model
     */
    public ToggleButtonModel getSketchModel() {
        return sketchModel_;
    }

    /**
     * Adds an action that is logically associated with rescaling the plot.
     * This takes the given action and inserts it into the toolbar and
     * menus in appropriate places.
     *
     * @param  act  action to add
     */
    public void insertRescaleAction( Action act ) {

        /* Insert into the toolbar.  Try to put it after the existing
         * Resize action, but if for some reason that doesn't exist,
         * the new one will just get appended at the end. */
        JToolBar toolbar = getToolBar();
        JButton actButton = toolbar.add( act );
        List<Component> comps =
            new ArrayList<Component>( Arrays
                                     .asList( toolbar.getComponents() ) );
        int iresize = -1;
        for ( int i = 0; i < comps.size() && iresize < 0; i++ ) {
            Component comp = comps.get( i );
            if ( comp instanceof JButton &&
                 isResizeAction( ((JButton) comp).getAction() ) ) {
                iresize = i;
            }
        }
        if ( iresize >= 0 ) {
            comps.remove( actButton );
            comps.add( iresize + 1, actButton );
            toolbar.removeAll();
            for ( Component c : comps ) {
                toolbar.add( c );
            }
        }

        /* Insert into menus as appropriate.  Any place the resize action
         * is found, place the new one after it. */
        JMenuBar menuBar = getJMenuBar();
        for ( int im = 0; im < menuBar.getMenuCount(); im++ ) {
            JMenu menu = menuBar.getMenu( im );
            for ( int ii = 0; ii < menu.getItemCount(); ii++ ) {
                JMenuItem item = menu.getItem( ii );
                if ( item != null && isResizeAction( item.getAction() ) ) {
                    menu.insert( act, ii + 1 );
                }
            }
        }
    }

    /**
     * Tests whether a given action corresponds to the Resize action.
     *
     * @return   true iff act is the Resize action
     */
    private boolean isResizeAction( Action act ) {
        return act == resizeAction_;
    }

    @Override
    public void dispose() {
        super.dispose();

        /* Ensure that the plot panel is not hanging on to expensive resources.
         * The plot panel, rather than this class, is where those things
         * are managed.
         * This is a hack: at time of writing, there is a memory leak 
         * preventing garbage collection of this window when it is disposed.
         * It applies to most or all of the topcat windows.  I think this is
         * through listeners to the application-wide lists of tables,
         * columns and subsets, possibly other things too.
         * It would be better to fix those leaks.
         * But in the mean time, clearing up here takes care of the
         * potentially large arrays etc. */
        plotPanel_.clearData();
    }

    /**
     * Acquires the list of requested plot layers from the GUI.
     *
     * @param  activeOnly   if true, return only layers from active controls
     *                      (those which will actually be plotted)
     *                      if false, return even inactive ones
     * @return  plot layer list
     */
    private PlotLayer[] readPlotLayers( boolean activeOnly ) {
        List<PlotLayer> layerList = new ArrayList<PlotLayer>();
        LayerControl[] controls = stackModel_.getLayerControls( activeOnly );
        for ( int ic = 0; ic < controls.length; ic++ ) {
            for ( TopcatLayer tcLayer : controls[ ic ].getLayers() ) {
                layerList.add( tcLayer.getPlotLayer() );
            }
        }
        return layerList.toArray( new PlotLayer[ 0 ] );
    }

    /**
     * Make sure that the DataStoreFactory is configured according to
     * the current state.  That means that data reads either will
     * or will not run in parallel.  The parallel option doesn't work
     * perfectly.
     */
    private void updateDataStoreFactory() {
        RowRunner rowRunner = parallelCacheModel_.isSelected()
                            ? ControlWindow.getInstance().getRowRunner()
                            : null;
        storeFact_ = new CachedDataStoreFactory(
                         new SmartColumnFactory( new MemoryColumnFactory() ),
                         TupleRunner.DEFAULT, rowRunner ) {};
        if ( plotPanel_ != null ) {
            plotPanel_.replot();
        }
    }

    /**
     * Returns a map of layer controls keyed by their ZoneId.
     * The returned map always contains at least one entry.
     * In the case of a single-zone plot, it will contain exactly one entry.
     *
     * @return   ordered map of layer controls by zone
     */
    private Map<ZoneId,LayerControl[]> getLayerControlsByZone() {

        /* Prepare a map of LayerControl lists keyed by the zone ID in which
         * their plots will appear. */
        Map<ZoneId,List<LayerControl>> zoneMap =
            new TreeMap<ZoneId,List<LayerControl>>( zoneFact_.getComparator() );
        for ( LayerControl control : stackModel_.getLayerControls( true ) ) {
            Specifier<ZoneId> zsel = control.getZoneSpecifier();
            ZoneId zid = zsel == null ? dfltZone_ : zsel.getSpecifiedValue();
            if ( ! zoneMap.containsKey( zid ) ) {
                zoneMap.put( zid, new ArrayList<LayerControl>() );
            }
            zoneMap.get( zid ).add( control );
        }

        /* Make sure there is always at least one zone. */
        if ( zoneMap.size() == 0 ) {
            zoneMap.put( dfltZone_, new ArrayList<LayerControl>() );
        }

        /* Retype and return. */
        Map<ZoneId,LayerControl[]> amap =
            new LinkedHashMap<ZoneId,LayerControl[]>();
        for ( Map.Entry<ZoneId,List<LayerControl>> entry :
              zoneMap.entrySet() ) {
            amap.put( entry.getKey(),
                      entry.getValue().toArray( new LayerControl[ 0 ] ) );
        }
        return amap;
    }

    /**
     * Gathers state information from the GUI to feed to the PlotPanel.
     * This information is returned in the form of an array of zone
     * definition objects.  For a single-zone plot, this array will have
     * exactly one element.  The result will always have at least one element.
     *
     * @return  zone definition array
     */
    private List<ZoneDef<P,A>> getZoneDefs() {
        List<ZoneDef<P,A>> zdefs = new ArrayList<ZoneDef<P,A>>();
        for ( Map.Entry<ZoneId,LayerControl[]> entry :
              getLayerControlsByZone().entrySet() ) {
            final ZoneId zid = entry.getKey();
            LayerControl[] controls = entry.getValue();
            List<TopcatLayer> layerList = new ArrayList<TopcatLayer>();
            List<LegendEntry> legList = new ArrayList<LegendEntry>();
            for ( LayerControl control : controls ) {
                layerList.addAll( Arrays.asList( control.getLayers() ) );
                legList.addAll( Arrays.asList( control.getLegendEntries() ) );
            }
            final TopcatLayer[] layers =
                layerList.toArray( new TopcatLayer[ 0 ] );
            final LegendIcon legend =
                legendControl_
               .createLegendIcon( legList.toArray( new LegendEntry[ 0 ] ),
                                  zid );
            final AxisController<P,A> axisController =
                multiAxisController_.getController( zid );
            final float[] legpos = legendControl_.getLegendPosition();
            final String title = frameControl_.getPlotTitle();
            ShaderControl shaderControl =
                multiShaderControl_.getController( zid );
            final ShadeAxisFactory shadeFact =
                shaderControl.createShadeAxisFactory( controls, zid );
            final Span shadeFixSpan = shaderControl.getFixSpan();
            final Subrange shadeSubrange = shaderControl.getSubrange();
            final boolean isShadeLog = shaderControl.isLog();
            final ConfigMap config = new ConfigMap();
            for ( MultiConfigger zc : zoneConfiggers_ ) {
                config.putAll( zc.getZoneConfig( zid ) );
            }
            zdefs.add( new ZoneDef<P,A>() {
                public ZoneId getZoneId() {
                    return zid;
                }
                public AxisController<P,A> getAxisController() {
                    return axisController;
                }
                public TopcatLayer[] getLayers() {
                    return layers;
                }
                public LegendIcon getLegend() {
                    return legend;
                }
                public float[] getLegendPosition() {
                    return legpos;
                }
                public String getTitle() {
                    return title;
                }
                public ShadeAxisFactory getShadeAxisFactory() {
                    return shadeFact;
                }
                public Span getShadeFixSpan() {
                    return shadeFixSpan;
                }
                public Subrange getShadeSubrange() {
                    return shadeSubrange;
                }
                public boolean isShadeLog() {
                    return isShadeLog;
                }
                public ConfigMap getConfig() {
                    return config;
                }
            } );
        }
        return zdefs;
    }

    /**
     * Perform GUI updates related to a material change in the control stack.
     */
    private void updateGuiForStack() {

        /* If the blob drawing is active, kill it. */
        blobPanel_.setActive( false );
        if ( figurePanel_ != null ) {
            figurePanel_.setActive( false );
        }

        /* The shader control is only visible in the stack when one of the
         * layers is making use of it. */
        boolean requiresShader = hasShadedLayers( readPlotLayers( false ) );
        if ( hasShader_ ^ requiresShader ) {
            for ( Control c : multiShaderControl_.getStackControls() ) {
                if ( requiresShader ) {
                    stackPanel_.addFixedControl( c );
                }
                else {
                    stackPanel_.removeFixedControl( c );
                }
                hasShader_ = requiresShader;
            }
        }

        /* Update the multi-zone controls for currently active zones. */
        Map<ZoneId,LayerControl[]> zoneMap = getLayerControlsByZone();
        ZoneId[] zones = zoneMap.keySet().toArray( new ZoneId[ 0 ] );
        Arrays.sort( zones, zoneFact_.getComparator() );
        Gang gang = getGanger().createApproxGang( getBounds(), zones.length );
        multiAxisController_.setZones( zones, gang );
        multiShaderControl_.setZones( zones, gang );
        for ( Map.Entry<ZoneId,LayerControl[]> entry : zoneMap.entrySet() ) {
            ZoneId zid = entry.getKey();
            LayerControl[] layerCtrls = entry.getValue();
            multiAxisController_.getController( zid )
                                .configureForLayers( layerCtrls );
            multiShaderControl_.getController( zid )
                               .configureForLayers( layerCtrls );
        }
    }

    /**
     * Returns layer data exporter objects associated with a set of
     * returned plot reports.
     *
     * @param  reports  structured information returned from plotting
     *                  operations
     * @return  array of objects that can yield layer data export actions
     */
    private LayerDataExporter[]
            createLayerDataExporters( Map<LayerId,ReportMap> reports ) {
        List<LayerDataExporter> exporters = new ArrayList<LayerDataExporter>();
        for ( Map.Entry<LayerId,ReportMap> entry : reports.entrySet() ) {
            LayerId lid = entry.getKey();
            ReportMap report = entry.getValue();
            if ( report != null ) {
                for ( ReportKey<?> rkey : report.keySet() ) {
                    if ( rkey.isGeneralInterest() &&
                         StarTable.class
                                  .isAssignableFrom( rkey.getValueClass() ) ) {
                        StarTable table = (StarTable) report.get( rkey );
                        if ( table != null ) {
                            LayerDataExporter exp =
                                new LayerDataExporter( this, rkey.getMeta(),
                                                       lid, table );
                            exporters.add( exp );
                        }
                    }
                }
            }
        }
        return exporters.toArray( new LayerDataExporter[ 0 ] );
    }

    /**
     * Object that can generate Actions for exporting data generated
     * during a plot.
     */
    private static class LayerDataExporter {
        final Action importAct_;
        final Action saveAct_;

        /**
         * Constructor.
         *
         * @param  window  parent window
         * @param  rmeta   report key metadata for exportable data
         * @param  lid     layer identifier object
         * @param  table   table to export
         */
        LayerDataExporter( AuxWindow window, ReportMeta rmeta, LayerId lid,
                           final StarTable table ) {
            TableSource tsrc = new TableSource() {
                public StarTable getStarTable() {
                    return table;
                }
            };
            Plotter<?> plotter = lid.getPlotter();
            String dtype = rmeta.getLongName();
            String label = plotter.getPlotterName();
            importAct_ = window.createImportTableAction( dtype, tsrc, label );
            saveAct_ = window.createSaveTableAction( dtype, tsrc );
            importAct_.putValue( Action.NAME,
                                 "Import " + dtype + " as Table" );
            saveAct_.putValue( Action.NAME,
                               "Save " + dtype + " as Table" );
            Icon picon = plotter.getPlotterIcon();
            if ( picon != null ) {
                importAct_.putValue( Action.SMALL_ICON,
                                     ResourceIcon.toImportIcon( picon ) );
                saveAct_.putValue( Action.SMALL_ICON,
                                   ResourceIcon.toSaveIcon( picon ) );
            }
        }
    }

    /**
     * Highlights table points corresponding to a given graphics position.
     *
     * @param  point  reference graphics position, presumably indicated by user
     */
    private void identifyPoint( final Point point ) {
        final Factory<Map<TopcatModel,Long>> finder =
            createPointFinder( point );
        if ( finder != null ) {
            plotPanel_.submitPlotAnnotator( new Runnable() {
                public void run() {
                    final Map<TopcatModel,Long> indexMap = finder.getItem();
                    if ( indexMap != null ) {
                        SwingUtilities.invokeLater( new Runnable() {
                            public void run() {
                                applyHighlights( indexMap );
                            }
                        } );
                    }
                }
            } );
        }
    }

    /**
     * Returns an object that can identify table row indices close to
     * a given screen position.
     *
     * @param  pos  screen position to query
     * @return  factory that returns a map of topcat models to row indices
     *          giving rows whose markers are close to the point;
     *          the returned factory may be null if there are known to be none
     */
    private Factory<Map<TopcatModel,Long>>
            createPointFinder( final Point pos ) {
        final int iz = plotPanel_.getZoneIndex( pos );
        if ( iz >= 0 ) {
            final Surface surface = plotPanel_.getSurface( iz );
            final GuiPointCloud pointCloud =
                plotPanel_.createGuiPointCloud( iz );
            return new Factory<Map<TopcatModel,Long>>() {
                @Slow
                public Map<TopcatModel,Long> getItem() {
                    return findPoints( surface, pointCloud, pos );
                }
            };
        }
        else {
            return null;
        }
    }

    /**
     * Iterates over the points in a given cloud to find out whether any
     * are near to a given screen position.
     *
     * @param  surface  plot surface
     * @param  pointCloud   point cloud
     * @param  pos   query position in graphics coordinates
     * @return  map of topcat models to row indices giving rows whose markers
     *          are close to pos; or null in case of interruption
     */
    private static Map<TopcatModel,Long> findPoints( Surface surface,
                                                     GuiPointCloud pointCloud,
                                                     Point pos ) {

        /* Prepare a datastore which will watch for interruptions
         * and possibly log progress. */
        DataStore dataStore = pointCloud.createGuiDataStore();

        /* Prepare for iteration. */
        TableCloud[] tclouds = pointCloud.getTableClouds();
        Map<TopcatModel,Double> closeMap = new HashMap<TopcatModel,Double>();
        Map<TopcatModel,Long> indexMap = new HashMap<TopcatModel,Long>();

        /* Iterate over each sub point cloud distinct positions. */
        for ( int ic = 0; ic < tclouds.length; ic++ ) {
            TableCloud tcloud = tclouds[ ic ];
            DataGeom geom = tcloud.getDataGeom();
            int iPosCoord = tcloud.getPosCoordIndex();
            Supplier<TupleSequence> tupleSupplier =
                () -> tcloud.createTupleSequence( dataStore );
            IndicatedRow indicated =
                PlotUtil
               .getClosestRow( surface, geom, iPosCoord, tupleSupplier,
                               dataStore.getTupleRunner(), pos );
            if ( indicated != null ) {
                long index = indicated.getIndex();
                double distance = indicated.getDistance();
                if ( distance <= PlotUtil.NEAR_PIXELS ) {
                    TopcatModel tcModel = tcloud.getTopcatModel();
                    Double closest = closeMap.get( tcModel );
                    if ( closest == null || distance < closest ) {
                        closeMap.put( tcModel, distance );
                        indexMap.put( tcModel, index );
                    }
                }
            }
            if ( Thread.currentThread().isInterrupted() ) {
                return null;
            }
        }

        /* Return a map of the closest row to the reference position
         * for each visible table (only populated for each table if the
         * point is within a given threshold, NEAR_PIXELS. */
        return indexMap;
    }

    /**
     * Takes a map indicating a row to highlight for zero or more tables,
     * and highlights the relevant rows.
     *
     * @param  indexMap  map from topcat models to row indices
     */
    private void applyHighlights( Map<TopcatModel,Long> indexMap ) {

        /* Message each the topcat model to highlight the relevant row.
         * This will in turn cause the plot panel to visually identify
         * these points (perhaps amongst other "activation" actions
         * unrelated to this plot). */
        int nHigh = 0;
        for ( Map.Entry<TopcatModel,Long> entry : indexMap.entrySet() ) {
            TopcatModel tcModel = entry.getKey();
            long irow = entry.getValue().longValue();
            assert tcModel != null;
            if ( tcModel != null ) {
                tcModel.highlightRow( irow );
                nHigh++;
            }
        }

        /* If no points were identified, clear the highlight list
         * for this plot. */
        if ( nHigh == 0 ) {
            plotPanel_.setHighlights( new HashMap<SubCloud,double[]>() );
        }
    }

    /**
     * Highlights a given row for a given table in the currently displayed plot.
     * This method is called as a consequence of the TopcatEvent.ROW event.
     *
     * @param   tcModel   topcat model
     * @param   irow   row index
     */
    private void highlightRow( TopcatModel tcModel, long irow ) {
        Map<SubCloud,double[]> highMap = new LinkedHashMap<SubCloud,double[]>();
        DataStore dataStore = plotPanel_.getDataStore();
        int nz = plotPanel_.getZoneCount();
        for ( int iz = 0; iz < nz; iz++ ) {
            for ( SubCloud subCloud :
                  SubCloud.createSubClouds( plotPanel_.getPlotLayers( iz ),
                                            true ) ) {
                if ( getTopcatModel( subCloud.getDataSpec() ) == tcModel ) {
                    double[] dpos = getDataPos( subCloud, irow, dataStore );
                    if ( dpos != null ) {
                        highMap.put( subCloud, dpos );
                    }
                }
            }
        }

        /* Note at present each call to this method wipes out any previous
         * highlights.  Is that desired behaviour?  You might want it to
         * retain highlights for tables other than the one that is currently
         * being updated. */
        plotPanel_.setHighlights( highMap );
    }

    /**
     * Returns the TopcatModel associated with a given DataSpec.
     *
     * @param  dataSpec   data spec
     * @return   topcat model supplying its table data
     */
    private static TopcatModel getTopcatModel( DataSpec dataSpec ) {
        return GuiDataSpec.getTopcatModel( dataSpec );
    }

    /**
     * Returns the data position for a given table row in a point cloud.
     *
     * @param  subCloud  point subcloud
     * @param  irow   row index
     * @param  dataStore  data storage object
     * @return   data position if visible, else null
     */
    private static double[] getDataPos( SubCloud subCloud, long irow,
                                        DataStore dataStore ) {
        DataGeom geom = subCloud.getDataGeom();
        int iPosCoord = subCloud.getPosCoordIndex();
        if ( geom == null ) {
            return null;
        }
        double[] dpos = new double[ geom.getDataDimCount() ];
        TupleSequence tseq =
            dataStore.getTupleSequence( subCloud.getDataSpec() );

        /* Iterates over all rows, since random access is not defined for
         * tuple sequence.  Typical TupleSequence implementation means this
         * should be pretty fast though.  I think. */
        while ( tseq.next() ) {
            long ir = tseq.getRowIndex();
            if ( ir == irow && geom.readDataPos( tseq, iPosCoord, dpos ) ) {
                return dpos;
            }
        }
        return null;
    }

    /**
     * Returns a list of inclusion objects that describes all the points
     * currently visible in the plots.  Visibility means that they appear
     * within the data bounds of plotted surfaces.
     *
     * <p>Normal data positions within the bounds of the plotting surface
     * are always included.  But the result may also optinally include
     * "partial" positions within the bounds;
     * these partial positions are things like histogram data,
     * which have an X graphics position but not a Y graphics position.
     * In the partial case, either X or Y position within the plot
     * bounds counts as visibility.
     *
     * @param   includePartial   true for full and partial positions,
     *                           false for full positions only
     * @return   inclusion list
     */
    private Inclusion[] getBoundsInclusions( boolean includePartial ) {
        List<Inclusion> list = new ArrayList<Inclusion>();
        int nz = plotPanel_.getZoneCount();
        for ( int iz = 0; iz < nz; iz++ ) {
            final Surface surface = plotPanel_.getSurface( iz );
            if ( surface != null ) {
                GuiPointCloud fullCloud = plotPanel_.createGuiPointCloud( iz );
                if ( fullCloud.getTableClouds().length > 0 ) {
                    list.add( new Inclusion( fullCloud ) {
                        public PositionCriterion createCriterion() {
                            return PositionCriterion
                                  .createBoundsCriterion( surface );
                        }
                    } );
                }
                if ( includePartial ) {
                    GuiPointCloud partialCloud =
                        plotPanel_.createPartialGuiPointCloud( iz );
                    if ( partialCloud.getTableClouds().length > 0 ) {
                        list.add( new Inclusion( partialCloud ) {
                            public PositionCriterion createCriterion() {
                                return PositionCriterion
                                      .createPartialBoundsCriterion( surface );
                            }
                        } );
                    }
                }
            }
        }
        return list.toArray( new Inclusion[ 0 ] );
    }

    /**
     * Returns a list of point inclusion objects corresponding to a
     * supplied shape in graphics coordinates. 
     * The returned inclusions correspond to "full" positions only,
     * "partial" positions are ignored.
     * 
     * @param   blob  graphical region of interest
     * @return  array of inclusion objects describing points within blob
     */
    private Inclusion[] getBlobInclusions( final Shape blob ) {
        int nz = plotPanel_.getZoneCount();
        List<Inclusion> inclusions = new ArrayList<Inclusion>();
        for ( int iz = 0; iz < nz; iz++ ) {
            final Surface surface = plotPanel_.getSurface( iz );
            if ( surface != null &&
                 blob.intersects( surface.getPlotBounds() ) ) {
                inclusions.add( new Inclusion( plotPanel_
                                              .createGuiPointCloud( iz ) ) {
                    public PositionCriterion createCriterion() {
                        return PositionCriterion
                              .createBlobCriterion( surface, blob );
                    }
                } );
            }
        }
        return inclusions.toArray( new Inclusion[ 0 ] );
    }

    /**
     * Scans through points in a point cloud, and updates a supplied
     * table->row_inclusion_mask map to indicate which rows in the tables
     * are included.
     *
     * @param   maskMap  map to update; will be populated with blank entries
     *                   as required
     * @param   inclusion  describes point data to include
     */
    @Slow
    private static void updateMasks( Map<TopcatModel,BitSet> maskMap,
                                     Inclusion inclusion ) {
        GuiPointCloud pointCloud = inclusion.pointCloud_;
        TableCloud[] tclouds = pointCloud.getTableClouds();
        DataStore dataStore = pointCloud.createGuiDataStore();
        int nc = tclouds.length;
        for ( int ic = 0;
              ic < nc && ! Thread.currentThread().isInterrupted();
              ic++ ) {
            TableCloud tcloud = tclouds[ ic ];
            TopcatModel tcModel = tcloud.getTopcatModel();
            int nr =
                Tables.checkedLongToInt( tcModel.getDataModel().getRowCount() );
            BitSet cloudMask =
                dataStore.getTupleRunner()
               .collectPool( new InclusionMasker( tcloud, inclusion, nr ),
                             () -> tcloud.createTupleSequence( dataStore ) );
            if ( maskMap.containsKey( tcModel ) ) {
                maskMap.get( tcModel ).or( cloudMask );
            }
            else {
                maskMap.put( tcModel, cloudMask );
            }
        }
    }

    /**
     * Returns an object which can count the number of points visible in
     * the current plot.
     *
     * <p>The actual count may be slow for large data sets, so although this
     * method may be called on the event dispatch thread, the returned
     * factory's getItem method should not be.
     *
     * <p>The count is implicitly determined while making the plots,
     * since the various layers have to see which points are in bounds
     * to work out whether to plot them.  But the count information is not
     * recorded or passed back to this window.  A future improvement 
     * might do that somehow, in which case it wouldn't be necessary to
     * re-do the count here.  It wouldn't be straightforward though,
     * because you need to worry about double counting of points that
     * appear in multiple plots.
     *
     * @return  factory for deferred calculation of formatted point count
     */
    private Factory<String> createCounter() {
        final Inclusion[] inclusions = getBoundsInclusions( true );
        final DataStore dataStore = plotPanel_.getDataStore();
        return new Factory<String>() {
            @Slow
            public String getItem() {
                long count = 0;
                long total = 0;
                long start = System.currentTimeMillis();
                for ( Inclusion inclusion : inclusions ) {
                    long[] pc = countPoints( inclusion, dataStore );
                    count += pc[ 0 ];
                    total += pc[ 1 ];
                    if ( Thread.currentThread().isInterrupted() ) {
                        return null;
                    }
                }
                PlotUtil.logTimeFromStart( logger_, "Count", start );
                return TopcatUtils.formatLong( count ) + " / "
                     + TopcatUtils.formatLong( total );
            }
        };
    }

    /**
     * Counts the actual and potential number of points in a point cloud.
     * The potential number is the sum of the row counts of all the
     * tables contributing to the cloud.  The actual number is determined
     * by applying a supplied position criterion to each of the positions
     * in the cloud.
     *
     * @param   inclusion   defines data points to be included
     * @param   dataStore   data storage object
     * @return  2-element array giving (actual,potential) counts
     */
    @Slow
    private static long[] countPoints( Inclusion inclusion,
                                       DataStore dataStore ) {
        TableCloud[] tclouds = inclusion.pointCloud_.getTableClouds();
        PositionCriterion criterion = inclusion.createCriterion();
        long count = 0;
        long total = 0;
        for ( int ic = 0; ic < tclouds.length; ic++ ) {
            TableCloud tcloud = tclouds[ ic ];
            long[] acc =
                dataStore.getTupleRunner()
               .collect( new InclusionCounter( tcloud, inclusion ),
                         () -> tcloud.createTupleSequence( dataStore ) );
            count += acc[ 0 ];
            total += tcloud.getTopcatModel().getDataModel().getRowCount();
        }
        return new long[] { count, total };
    }

    /**
     * Takes a list of inclusion objects describing a selection of points,
     * and does what's required to add them as Row Subsets in their
     * respective TopcatModels.
     * This method dispatches a request to identifies the row masks
     * asynchronously, and when it's done, adds whatever subsets it finds,
     * with user interaction as required, on the Event Dispatch Thread.
     * A hook is provided to perform an optional callback on the EDT
     * when it's all done.
     *
     * @param   inclusions  sets of points to include
     * @param   completionCallback  runnable which will be executed
     *                              unconditionally on the
     *                              Event Dispatch Thread after the
     *                              asynchronous operation has completed
     */
    private void addMaskSubsets( final Inclusion[] inclusions,
                                 final Runnable completionCallback ) {
        plotPanel_.submitPlotAnnotator( new Runnable() {
            public void run() {
                try {
                    final Map<TopcatModel,BitSet> maskMap = getMaskMap();
                    if ( maskMap != null ) {
                        SwingUtilities.invokeLater( new Runnable() {
                            public void run() {
                                applyMasks( maskMap );
                            }
                        } );
                    }
                }
                finally {
                    if ( completionCallback != null ) {
                        SwingUtilities.invokeLater( completionCallback );
                    }
                }
            }
            @Slow
            private Map<TopcatModel,BitSet> getMaskMap() {
                Map<TopcatModel,BitSet> maskMap =
                    new LinkedHashMap<TopcatModel,BitSet>();
                long start = System.currentTimeMillis();
                for ( Inclusion inclusion : inclusions ) {
                    updateMasks( maskMap, inclusion );
                    if ( Thread.currentThread().isInterrupted() ) {
                        return null;
                    }
                }
                PlotUtil.logTimeFromStart( logger_, "Subset", start );
                return maskMap;
            }
        } );
    }

    /**
     * Takes a map from tables to new subset masks, presumably derived
     * from this plot, and passes them to the application.
     *
     * @param  maskMap   map from tables to associated row subset bitmasks
     */
    private void applyMasks( Map<TopcatModel,BitSet> maskMap ) {

        /* Purge empty masks. */
        for ( Iterator<BitSet> it = maskMap.values().iterator();
              it.hasNext(); ) {
            BitSet mask = it.next();
            if ( mask.cardinality() == 0 ) {
                it.remove();
            }
        }
        if ( maskMap.isEmpty() ) {
            return;
        }

        /* Pass masks to topcat models to incorporate. */
        TopcatModel tcModel0 = maskMap.keySet().iterator().next();
        SubsetConsumer subsetConsumer =
            tcModel0.enquireNewSubsetConsumer( this );
        if ( subsetConsumer == null ) {
            return;
        }
        for ( Map.Entry<TopcatModel,BitSet> entry : maskMap.entrySet() ) {
            TopcatModel tcModel = entry.getKey();
            BitSet mask = entry.getValue();
            assert tcModel != null;
            if ( tcModel != null ) {
                subsetConsumer.consumeSubset( tcModel, mask );
            }
        }
    }

    /**
     * Takes a set of points and a figure inclusion mode and does
     * what's required to create and install corresponding RowSubsets
     * for the TopcatModels in the currently visible plot layers.
     *
     * @param  points  figure vertices
     * @param  figmode   figure shape mode
     * @param  surf    plot surface
     * @param  layer   layers for which to create subsets
     * @param  completionCallback  runnable which will be executed
     *                             unconditionally on the
     *                             Event Dispatch Thread after the
     *                             asynchronous operation has completed
     */
    private void addFigureSubsets( Figure fig, Surface surf, PlotLayer[] layers,
                                   final Runnable completionCallback ) {
        TableCloud[] clouds =
            TableCloud.createTableClouds( SubCloud
                                         .createSubClouds( layers, true ) );
        List<MultiSubsetQueryWindow.Entry> entlist =
            new ArrayList<MultiSubsetQueryWindow.Entry>();
        for ( TableCloud cloud : clouds ) {
            TopcatModel tcModel = cloud.getTopcatModel();
            RowSubset[] rsets = cloud.getRowSubsets();
            String expr = fig.createExpression( cloud );
            if ( expr != null ) {
                expr = TopcatJELUtils
                      .combineSubsetsExpression( tcModel, expr, rsets );
                entlist.add( new MultiSubsetQueryWindow.Entry( tcModel,
                                                               expr ) );
            }
        }
        if ( entlist.size() > 0 ) {
            MultiSubsetQueryWindow.Entry[] entries =
                entlist.toArray( new MultiSubsetQueryWindow.Entry[ 0 ] );
            MultiSubsetQueryWindow qw =
                new MultiSubsetQueryWindow( "Add Figure Subset(s)",
                                            this, entries, fig.getExpression(),
                                            fig.getAdql() );
            if ( completionCallback != null ) {
                qw.addWindowListener( new WindowAdapter() {
                    @Override
                    public void windowClosed( WindowEvent evt ) {
                        completionCallback.run();
                    }
                } );
            }
            qw.setVisible( true );
        }
        else {
            if ( completionCallback != null ) {
                completionCallback.run();
            }
        }
    }

    /**
     * Creates and installs synthetic RowSubsets corresponding to all the
     * points currently visible in the currently plotted layers,
     * by constructing JEL expressions based on the coordinate limits
     * for the N-dimensional hypercube corresponding to the current plot view.
     *
     * @param  ranger   object that can characterise this window's
     *                  plot surfaces as hypercubes in data coordinates
     */
    private void addVisibleJelSubsets( CartesianRanger ranger ) {
        List<MultiSubsetQueryWindow.Entry> entList =
            new ArrayList<MultiSubsetQueryWindow.Entry>();
        int nz = plotPanel_.getZoneCount();
        String jelExpr = null;
        String adqlExpr = null;
        for ( int iz = 0; iz < nz; iz++ ) {
            Surface surf = plotPanel_.getLatestSurface( iz );
            RangeDescriber describer = new RangeDescriber( ranger, surf );
            PlotLayer[] layers = plotPanel_.getPlotLayers( iz );
            if ( layers.length > 0 ) {
                int ndim = ranger.getDimCount();
                TableCloud[] clouds =
                    TableCloud
                   .createTableClouds( SubCloud
                                      .createSubClouds( layers, true ) );
                for ( TableCloud cloud : clouds ) {
                    TopcatModel tcModel = cloud.getTopcatModel();
                    RowSubset[] rsets = cloud.getRowSubsets();
                    String[] jelVars = new String[ ndim ];
                    boolean isBlank = false;
                    for ( int idim = 0; idim < ndim; idim++ ) {
                        GuiCoordContent content =
                            cloud.getGuiCoordContent( idim );
                        jelVars[ idim ] =
                            TopcatJELUtils
                           .getDataExpression( tcModel, content );
                        isBlank = isBlank || jelVars[ idim ] == null;
                    }
                    if ( ! isBlank ) {
                        jelExpr = describer.createJelExpression( XYZ );
                        adqlExpr = describer.createAdqlExpression( XYZ );
                        String rangeExpr =
                            describer.createJelExpression( jelVars );
                        String expr =
                            TopcatJELUtils
                           .combineSubsetsExpression( tcModel, rangeExpr,
                                                      rsets );
                        entList.add( new MultiSubsetQueryWindow
                                        .Entry( tcModel, expr ) );
                    }
                }
            }
        }
        if ( entList.size() > 0 ) {
            MultiSubsetQueryWindow.Entry[] entries =
                entList.toArray( new MultiSubsetQueryWindow.Entry[ 0 ] );
            new MultiSubsetQueryWindow( "Add Visible Subset(s)",
                                        this, entries, jelExpr, adqlExpr )
               .setVisible( true );
        }
    }

    /**
     * Invoked when the plot changes.  Status panels are updated.
     */
    private void plotChanged() {

        /* Update position immediately. */
        updatePositionDisplay( plotPanel_.getMousePosition() );

        /* Update status of actions associated with subset definition. */
        updateSubsetActions();

        /* Update plot reports. */
        Map<LayerId,ReportMap> reportsMap = new HashMap<LayerId,ReportMap>();
        int nz = plotPanel_.getZoneCount();
        for ( int iz = 0; iz < nz; iz++ ) {
            PlotLayer[] layers = plotPanel_.getPlotLayers( iz );
            ReportMap[] reports = plotPanel_.getReports( iz );
            Map<LayerId,ReportMap> rmap = new HashMap<LayerId,ReportMap>();
            int nl = layers.length;
            assert nl == reports.length;
            for ( int il = 0; il < nl; il++ ) {
                ReportMap report = reports[ il ];
                rmap.put( LayerId.createLayerId( layers[ il ] ), report );
                if ( report != null && logger_.isLoggable( REPORT_LEVEL ) ) {
                    String rtxt = report.toString( false );
                    if ( rtxt.length() > 0 ) {
                        String msg = new StringBuffer()
                            .append( nz > 1 ? "Zone " + iz + ", " : "" )
                            .append( "Layer " )
                            .append( il )
                            .append( ": " )
                            .append( rtxt )
                            .toString();
                        logger_.log( REPORT_LEVEL, msg );
                    }
                }
            }
            getAxisController( iz ).submitReports( rmap );
            reportsMap.putAll( rmap );
        }
        for ( LayerControl control : stackModel_.getLayerControls( false ) ) {
            control.submitReports( reportsMap );
        }

        /* Provide menu items for exporting generated table data. */
        LayerDataExporter[] exps = createLayerDataExporters( reportsMap );
        if ( exps.length > 0 || layerDataImportMenu_.getItemCount() > 0
                             || layerDataSaveMenu_.getItemCount() > 0 ) {
            layerDataImportMenu_.removeAll();
            layerDataSaveMenu_.removeAll();
            for ( LayerDataExporter exp : exps ) {
                layerDataImportMenu_.add( new JMenuItem( exp.importAct_ ) );
                layerDataSaveMenu_.add( new JMenuItem( exp.saveAct_ ) );
            }
        }
        boolean hasLayerData = exps.length > 0;
        layerDataImportMenu_.setEnabled( hasLayerData );
        layerDataSaveMenu_.setEnabled( hasLayerData );

        /* Initiate updating point count, which may be slow. */
        final Factory<String> counter = createCounter();
        plotPanel_.submitExtraAnnotator( new Runnable() {
            public void run() {
                final String txt = counter.getItem();
                if ( txt != null ) {
                    SwingUtilities.invokeLater( new Runnable() {
                        public void run() {
                            countLabel_.setText( txt );
                        }
                    } );
                }
            }
        } );
    }

    /**
     * Makes sure that the enabledness of the subset definition actions
     * is correct.  Should be invoked whenever anything that could affect the
     * enablednesses might have changed.
     */
    private void updateSubsetActions() {
        boolean hasAnyPoints = getBoundsInclusions( true ).length > 0;
        fromVisibleAction_.setEnabled( hasAnyPoints );
        if ( fromVisibleJelAction_ != null ) {
            fromVisibleJelAction_.setEnabled( hasAnyPoints );
        }

        boolean hasFullPoints = hasAnyPoints &&
                                getBoundsInclusions( false ).length > 0;
        boolean useFigure = figurePanel_ != null;
        blobAction_.setEnabled( hasFullPoints &&
                                ! ( useFigure && figurePanel_.isActive() ) );
        if ( useFigure ) {
            figureAction_.setEnabled( ! blobPanel_.isActive() );
        }
    }

    /**
     * This method is called when the mouse position changes in the plot panel.
     *
     *
     * @param  pos  current (new) mouse position, or null if the mouse
     *              is positioned outside the bounds of the PlotPanel
     */
    private void updatePositionDisplay( Point pos ) {
        displayPosition( pos );
        displayNavHelp( pos );
    }

    /**
     * Displays the formatted position at a given point in the status panel.
     *
     * @param  point  cursor position
     */
    private void displayPosition( Point point ) {
        String pos = null;
        if ( point != null ) {
            int iz = plotPanel_.getZoneIndex( point );
            if ( iz >= 0 ) {
                Surface surface = plotPanel_.getSurface( iz );
                double[] dataPos = surface.graphicsToData( point, null );
                if ( dataPos != null ) {
                    pos = surface.formatPosition( dataPos );
                }
            }
        }
        posLabel_.setText( pos );
    }

    /**
     * Ensures that navigation help is displayed correctly for the current
     * cursor position.
     *
     * @param  pos  cursor position, or null if outside the plot panel
     */
    private void displayNavHelp( Point pos ) {
        final Map<Gesture,String> navOpts;
        final boolean active;
        int iz = pos == null
               ? -1
               : plotPanel_.getGang().getNavigationZoneIndex( pos );
        if ( iz >= 0 ) {
            Surface surface = plotPanel_.getSurface( iz );
            Navigator<A> navigator = getAxisController( iz ).getNavigator();

            /* Get a notional position for the navigation help to refer to.
             * If the reported position is within the plot panel, use that.
             * If it's outside the component altogether, use a position which
             * is within the actual bounds of the plot (inside the axes).
             * Navigation options may be different outside the plot bounds
             * (e.g. below the X axis or left of the Y axis). */
            boolean inBounds = pos != null
                            && plotPanel_.getBounds().contains( pos );
            final Point pos1;
            if ( inBounds ) {
                pos1 = pos;
            }
            else {
                Point origin = surface.getPlotBounds().getLocation();
                pos1 = new Point( origin.x + 1, origin.y + 1 );
            }
            active = inBounds;

            /* Add an item referring to the point selection provided by the
             * mouse listener added by this window. */
            navOpts = new LinkedHashMap<Gesture,String>();
            if ( canSelectPoints_ ) {
                navOpts.put( Gesture.CLICK_1, "Select" );
            }
            navOpts.putAll( navigator.getNavOptions( surface, pos1 ) );
        }
        else {
            active = false;

            /* Add at least one option in case of no surface.
             * This is just to make sure that the component has its nominal
             * size on initial window view, otherwise it gets resized as
             * soon as the surface shows up which is slightly visually
             * annoying. */
            navOpts = new HashMap<Gesture,String>();
            navOpts.put( Gesture.CLICK_1, "Select" );
        }

        /* Update the panel. */
        navPanel_.setOptions( navOpts );
        navPanel_.setEnabled( active );
    }

    /**
     * Indicates whether any of the submitted list of plot layers
     * makes use of a colour scale.
     *
     * @param  layers  plot layers
     * @return   true iff any uses an aux colour shader
     */
    public static boolean hasShadedLayers( PlotLayer[] layers ) {
        for ( int il = 0; il < layers.length; il++ ) {
            if ( layers[ il ].getAuxRangers().keySet()
                                             .contains( AuxScale.COLOR ) ) {
                return true;
            }
        }
        return false;
    }

    /**
     * Utility class to produce textual descriptions based on CartesianRanger
     * objects.
     */
    private static class RangeDescriber {
        final int ndim_;
        final double[][] dlims_;
        final boolean[] logFlags_;
        final int[] npixs_;

        /**
         * Constructor.
         *
         * @param  ranger  ranger
         * @param  surf    plot surface
         */
        RangeDescriber( CartesianRanger ranger, Surface surf ) {
            ndim_ = ranger.getDimCount();
            dlims_ = ranger.getDataLimits( surf );
            logFlags_ = ranger.getLogFlags( surf );
            npixs_ = ranger.getPixelDims( surf );
        }

        /**
         * Returns a JEL expression describing this range.
         *
         * @param  varNames   ndim-element arrray giving JEL-friendly names
         *                    for the Cartesian variables
         * @return  JEL expression
         */
        String createJelExpression( String[] varNames ) {
            StringBuffer sbuf = new StringBuffer();
            for ( int idim = 0; idim < ndim_; idim++ ) {
                if ( idim > 0 ) {
                    sbuf.append( " && " );
                }
                sbuf.append( TopcatJELUtils
                            .betweenExpression( varNames[ idim ],
                                                dlims_[ idim ][ 0 ],
                                                dlims_[ idim ][ 1 ],
                                                logFlags_[ idim ],
                                                npixs_[ idim ] ) );
            }
            return sbuf.toString();
        }

        /**
         * Returns an ADQL expression describing this range.
         *
         * @param  varNames   ndim-element arrray giving ADQL-friendly names
         *                    for the Cartesian variables
         * @return  ADQL expression
         */
        String createAdqlExpression( String[] varNames ) {
            StringBuffer sbuf = new StringBuffer();
            for ( int idim = 0; idim < ndim_; idim++ ) {
                if ( idim > 0 ) {
                    sbuf.append( " AND " );
                }
                String[] limits =
                    PlotUtil.formatAxisRangeLimits( dlims_[ idim ][ 0 ],
                                                    dlims_[ idim ][ 1 ],
                                                    logFlags_[ idim ],
                                                    npixs_[ idim ] );
                sbuf.append( varNames[ idim ] )
                    .append( " BETWEEN " )
                    .append( limits[ 0 ] )
                    .append( " AND " )
                    .append( limits[ 1 ] );
            }
            return sbuf.toString();
        }
    }

    /**
     * SplitCollector implementation that counts tuples in a given
     * inclusion.  The accumulator is a one-element array whose
     * single element gives the inclusion count.
     */
    private static class InclusionCounter
            implements SplitCollector<TupleSequence,long[]> {
        private final TableCloud tcloud_;
        private final Inclusion inclusion_;

        /**
         * Constructor.
         *
         * @param  tcloud  point cloud to count
         * @param  inclusion   inclusion criterion
         */
        InclusionCounter( TableCloud tcloud, Inclusion inclusion ) {
            tcloud_ = tcloud;
            inclusion_ = inclusion;
        }

        public long[] createAccumulator() {
            return new long[] { 0 };
        }

        public void accumulate( TupleSequence tseq, long[] acc ) {
            DataGeom geom = tcloud_.getDataGeom();
            int iPosCoord = tcloud_.getPosCoordIndex();
            double[] dpos = new double[ geom.getDataDimCount() ];
            PositionCriterion criterion = inclusion_.createCriterion();
            long count = 0;
            while ( tseq.next() ) {
                if ( geom.readDataPos( tseq, iPosCoord, dpos ) &&
                     criterion.isIncluded( dpos ) ) {
                    count++;
                }
            }
            acc[ 0 ] += count;
        }

        public long[] combine( long[] acc1, long[] acc2 ) {
            return new long[] { acc1[ 0 ] + acc2[ 0 ] };
        }
    }

    /**
     * SplitCollector that populates a row index mask with those points
     * within a given inclusion.
     */
    private static class InclusionMasker
            implements SplitCollector<TupleSequence,BitSet> {

        private final TableCloud tcloud_;
        private final Inclusion inclusion_;
        private final int nrow_;

        /**
         * Constructor.
         *
         * @param  tcloud  table cloud
         * @param  inclusion  inclusion criterion
         * @param  nrow   size of complete BitSet
         */
        InclusionMasker( TableCloud tcloud, Inclusion inclusion, int nrow ) {
            tcloud_ = tcloud;
            inclusion_ = inclusion;
            nrow_ = nrow;
        }

        public BitSet createAccumulator() {
            return new BitSet( nrow_ );
        }

        public void accumulate( TupleSequence tseq, BitSet mask ) {
            DataGeom geom = tcloud_.getDataGeom();
            int iPosCoord = tcloud_.getPosCoordIndex();
            double[] dpos = new double[ geom.getDataDimCount() ];
            PositionCriterion criterion = inclusion_.createCriterion();
            while ( tseq.next() ) {
                if ( geom.readDataPos( tseq, iPosCoord, dpos ) &&
                     criterion.isIncluded( dpos ) ) {
                    long ix = tseq.getRowIndex();
                    mask.set( Tables.checkedLongToInt( ix ) );
                }
            }
        }

        public BitSet combine( BitSet mask1, BitSet mask2 ) {
            mask1.or( mask2 );
            return mask1;
        }
    }

    /**
     * Characterises a set of included points within a plot zone,
     * by aggregating a description of the set of points, and a
     * factory for the criterion of whether a point is included in the set.
     */
    private static abstract class Inclusion {
        final GuiPointCloud pointCloud_;

        /**
         * Constructor.
         *
         * @param  pointCloud  set of data points
         */
        Inclusion( GuiPointCloud pointCloud ) {
            pointCloud_ = pointCloud;
        }

        /**
         * Returns an instance of the inclusion criterion for this object.
         * Each instance may be used from a single thread.
         *
         * @return  inclusion criterion
         */
        abstract PositionCriterion createCriterion();
    }

    /**
     * Mouse listener which listens for click events that identify a point.
     */
    private class IdentifyListener extends MouseAdapter {
        @Override
        public void mouseClicked( MouseEvent evt ) {
            if ( PlotUtil.getButtonChangedIndex( evt ) == 1 ) {
                identifyPoint( evt.getPoint() );
            }
        }
    }
}
