Laboratoire ICAR » Plateforme TXM

	protected void clearLastParameters(int parameterType) {

	/**

	 * Clears the parameters used for last computing.

	 * Dedicated to force a full recomputing.

	 * @throws Exception

	 */

	protected void clearLastComputingParameters() {

		this.clearLastParameters(Parameter.COMPUTING);

	}

			if(value != null)	{

				System.err.println("TXMResult.setParameter(): setting parameter " + key + " = " + value + " for " + this.getClass() + " (" + value.getClass() + ")");

			}

		// check that the charts engine used for the result matches the SWT components provider otherwise fin a suitable components provider

		ChartsEngine chartsEngine = ChartsEngine.getChartsEngine(this.getResult()); 

		if(chartsEngine != this.getSWTChartsComponentsProvider().getChartsEngine())	{

			this.getEditorInput().setSWTChartsComponentsProvider(SWTChartsComponentsProvider.getComponentsProvider(chartsEngine));

			this.getSWTChartsComponentsProvider().setChartsEngine(chartsEngine);

			System.err.println("ChartEditor.__updateEditorFromResult(): charts engine used to create the chart is not the current one. The SWT components provider has been changed to match it: " + this.getSWTChartsComponentsProvider() + ".");

			// recreating the chart composite

			Composite parent = this.chartComposite.getParent();

			this.chartComposite.dispose();

			this.chartComposite = this.getSWTChartsComponentsProvider().createComposite(this, parent);

			GridData gd = new GridData(GridData.FILL_BOTH);

//			gd.grabExcessVerticalSpace = true;

//			gd.grabExcessHorizontalSpace = true;

			//gd.horizontalSpan = 2; // 2 for match the command parameters toolbar AND the chart toolbar

			this.chartComposite.setLayoutData(gd);

			parent.layout();

		}

//		// check that the charts engine used for the result matches the SWT components provider otherwise fin a suitable components provider

//		ChartsEngine chartsEngine = ChartsEngine.getChartsEngine(result); 

//		if(chartsEngine != swtComponentsProvider.getChartsEngine())	{

//			this.swtChartsComponentsProvider = SWTChartsComponentsProvider.getComponentsProvider(chartsEngine);

//			System.err.println("ChartEditorInput.ChartEditorInput(): charts engine used to create the chart is not the current one. The SWT components provider has been changed to match it: " + this.swtChartsComponentsProvider + ".");

//		}

package org.txm.progression.core.chartsengine.jfreechart;

import java.awt.BasicStroke;

import java.awt.Color;

import java.util.ArrayList;

import java.util.List;

import org.jfree.chart.JFreeChart;

import org.jfree.chart.axis.NumberAxis;

import org.jfree.chart.plot.Marker;

import org.jfree.chart.plot.ValueMarker;

import org.jfree.data.xy.XYDataset;

import org.jfree.data.xy.XYSeries;

import org.jfree.data.xy.XYSeriesCollection;

import org.jfree.ui.RectangleAnchor;

import org.jfree.ui.TextAnchor;

import org.txm.chartsengine.core.ChartsEngine;

import org.txm.chartsengine.core.results.ChartResult;

import org.txm.chartsengine.jfreechart.core.JFCChartCreator;

import org.txm.chartsengine.jfreechart.core.renderers.MultipleItemsSelector;

import org.txm.chartsengine.jfreechart.core.renderers.interfaces.IRendererWithItemSelection;

import org.txm.chartsengine.jfreechart.core.themes.base.ExtendedNumberAxis;

import org.txm.progression.core.chartsengine.base.ProgressionChartCreator;

import org.txm.progression.core.chartsengine.base.Utils;

import org.txm.progression.core.chartsengine.jfreechart.themes.highcharts.renderers.ProgressionItemSelectionRenderer;

import org.txm.progression.core.functions.Progression;

import org.txm.progression.core.messages.ProgressionCoreMessages;

import org.txm.progression.core.preferences.ProgressionPreferences;

import org.txm.searchengine.cqp.corpus.query.Query;

/**

 * JFC progression chart creator.

 * 

 * @author sjacquot

 *

 */

public class JFCProgressionCumulativeChartCreator extends JFCChartCreator implements ProgressionChartCreator {

	@Override

	public JFreeChart createChart(ChartResult result) {

		Progression progression = (Progression) result;

		// parameters

		boolean cumulative = result.getBooleanParameterValue(ProgressionPreferences.CHART_CUMULATIVE);

		JFreeChart chart = null;

		// Creates the empty dataset

		XYSeriesCollection dataset = new XYSeriesCollection();

		// Y axis label

		String yAxisLabel;

		// Cumulative

		if(cumulative)	{

			// Create the chart

			yAxisLabel = ProgressionCoreMessages.ChartsEngine_PROGRESSION_Y_AXIS_CUMULATIVE_LABEL;

			chart = this.getChartsEngine().createXYStepChart(dataset, Utils.createProgressionChartTitle(progression, cumulative),

					ProgressionCoreMessages.bind(ProgressionCoreMessages.ChartsEngine_PROGRESSION_X_AXIS_LABEL, progression.getXmaxCorpus()), yAxisLabel, true, true, true, true, true);

			// Custom renderer

			chart.getXYPlot().setRenderer(new ProgressionItemSelectionRenderer());

		}

		// FIXME : Density, to implement when textometry R package will store the result in the Progression class

		// FIXME: put that in a new ChartCreator dedicated to the density progression chart

		else	{

			// FIXME : density not yet implemented

			System.err.println("JFCProgressionCumulativeChartCreator.createChart(): density mode not yet implemented.");

//			for(int i = 0; i < progression.getAllpositions().size(); i++) {

//				int[] liste = positions.get(i);

//				Query query = queries.get(i);

//				XYSeries series = new XYSeries(query.toString() + " " + liste.length);

//

//				for(int j = 0; j <  liste.length; j++) {

//

//					// FIXME : tests y

//					// y <- c( c(0), y , c(y[[length(x)]]) ) // R code

//					// FIXME : random Y value

//					double y = progression.getAllpositions().get(i)[j] * Math.random();

//	//				double y = progression.getAllpositions().get(i)[j];

//					series.add(liste[j], y);

//				}

//				dataset.addSeries(series);

//			}

//

//			// Create the chart

//			yAxisLabel =  ProgressionCoreMessages.ChartsEngine_PROGRESSION_Y_AXIS_NOT_CUMULATIVE_LABEL;

//			chart = this.getChartsEngine().createXYLineChart(dataset, Utils.createProgressionChartTitle(progression, cumulative),

//					ProgressionCoreMessages.bind(ProgressionCoreMessages.ChartsEngine_PROGRESSION_X_AXIS_LABEL, progression.getXmaxCorpus()), yAxisLabel,

//					true, true, true, false, true, false, true, null);

		}

        ((IRendererWithItemSelection) chart.getXYPlot().getRenderer()).setChartType(ChartsEngine.CHART_TYPE_PROGRESSION);

        ((IRendererWithItemSelection) chart.getXYPlot().getRenderer()).getItemsSelector().setResultData(progression);

		return chart;

	}

	@Override

	public void updateChart(ChartResult result) {

		Progression progression = (Progression) result;

		JFreeChart chart = (JFreeChart) result.getChart();

		// freeze rendering while computing

		chart.setNotify(false);

		// Fill the data set from the result

		if(progression.hasParameterChanged(ProgressionPreferences.QUERIES))	{

			XYSeriesCollection dataset = (XYSeriesCollection) chart.getXYPlot().getDataset();

			dataset.removeAllSeries();

			List<int[]> positions = progression.getAllPositions();

			List<Query> queries = progression.getQueries();

			for(int i = 0; i < positions.size(); i++) {

				int[] list = positions.get(i);

				Query query = queries.get(i);

				XYSeries series = new XYSeries(query.toString() + " " + list.length);

				int c = 1;

				for(int j = 0; j < list.length; j++) {

					// add a first point to draw a vertical line

					if(j == 0)	{

						series.add(list[j], 0);

					}

					series.add(list[j], c++);

				}

				// add a dummy point to draw horizontal line between last point and max X corpus

				series.add(progression.getXmaxCorpus(), --c);

				dataset.addSeries(series);

			}

			// Custom domain axis for ticks drawing options

			chart.getXYPlot().setDomainAxis(new ExtendedNumberAxis((NumberAxis) chart.getXYPlot().getDomainAxis(), true, true, progression.getXminCorpus(), progression.getXmaxCorpus()));

			// Custom range axis for ticks drawing options

			chart.getXYPlot().setRangeAxis(new ExtendedNumberAxis((NumberAxis) chart.getXYPlot().getRangeAxis(), false, true, 0, progression.getMaxY()));

			// Match the X-axis origin value to the min x corpus (for subcorpus case)

			chart.getXYPlot().getDomainAxis().setLowerBound(progression.getXminCorpus());

		}

		// removes all existing domain marker

		chart.getXYPlot().clearDomainMarkers();

		// Add the limit markers

		BasicStroke dashedStroke = new BasicStroke(0.5f, BasicStroke.CAP_ROUND, BasicStroke.JOIN_ROUND, 1f, new float[] {2f}, 0f);

		Marker marker = new ValueMarker(progression.getXminCorpus());

        marker.setPaint(Color.gray);

        marker.setStroke(dashedStroke);

        chart.getXYPlot().addDomainMarker(marker);

		marker = new ValueMarker(progression.getXmaxCorpus());

        marker.setPaint(Color.gray);

        marker.setStroke(dashedStroke);

        chart.getXYPlot().addDomainMarker(marker);

//        // FIXME : limit with annotations rather than markers (marker height is dynamically adapted to the real chart height.

        // Annotation have a fixed height)

//        XYLineAnnotation annotation = new XYLineAnnotation(0, 0, 0, dataset.getRangeUpperBound(true), dashedStroke, Color.gray);

//        chart.getXYPlot().addAnnotation(annotation, true);

		// Add the part markers

        String previousPartName = ""; //$NON-NLS-1$

		if(progression.getStructuralUnit() != null && progression.getStructurePositions().length > 0 && 

				(progression.hasParameterChanged(ProgressionPreferences.STRUCTURAL_UNIT) ||

						progression.hasParameterChanged(ProgressionPreferences.STRUCTURAL_UNIT_PROPERTY) ||

						progression.hasParameterChanged(ProgressionPreferences.REPEAT_SAME_VALUES) ||

						progression.hasParameterChanged(ProgressionPreferences.PROPERTY_REGEX)

						))	{

			for(int i = 0; i < progression.getStructurePositions().length; i++) {

				if(progression.getStructurePositions()[i] != 0)	{

					String currentPartName = progression.getStructureNames()[i];

					if(progression.isRepeatingValues() || !currentPartName.equals(previousPartName))	{

						marker = new ValueMarker(progression.getStructurePositions()[i]);

				        marker.setPaint(Color.black);

				        marker.setLabel(progression.getStructureNames()[i]);

				        marker.setLabelAnchor(RectangleAnchor.TOP_RIGHT);

				        marker.setLabelTextAnchor(TextAnchor.HALF_ASCENT_LEFT);

				        // FIXME: test of rotated annotations rather than using marker label. The problem with this is that the position of annotation is not adjusted when zooming/dezooming.

				        // FIXME: the best approach is to redefine the drawing method of

	////			        double start = marker.getStartValue();

	////			        double end = TempIntervalMarker.getEndValue();

	////			        double middle = (end - start)/2;

	//			        XYTextAnnotation updateLabel = new XYTextAnnotation("Update", progression.getStructurePositions()[i], 0);

	//			        updateLabel.setFont(new Font("Sans Serif", Font.BOLD, 10));

	//			        updateLabel.setRotationAnchor(TextAnchor.BASELINE_CENTER);

	//			        updateLabel.setTextAnchor(TextAnchor.BASELINE_CENTER);

	//			        updateLabel.setRotationAngle(3.14 / 2);

	//			        updateLabel.setPaint(Color.black);

	//			        chart.getXYPlot().addAnnotation(updateLabel);

				        chart.getXYPlot().addDomainMarker(marker);

					}

					previousPartName = currentPartName;

				}

			}

		}

		chart.setTitle(Utils.createProgressionChartTitle(progression, true));

		super.updateChart(result);

	}

	@Override

	public ArrayList<Integer> getSelectedPointPositions(Object chart) {

		MultipleItemsSelector selector = (MultipleItemsSelector) ((IRendererWithItemSelection)((JFreeChart) chart).getXYPlot().getRenderer()).getItemsSelector();

		ArrayList<Integer> pointPositionsInCorpora = new ArrayList<Integer>();

		// FIXME: returns all the point positions

		XYDataset dataset = ((JFreeChart) chart).getXYPlot().getDataset();

		for(int i = 0; i < selector.getSelectedSeries().length; i++) {

			int selectedSeries = selector.getSelectedSeries()[i];

			int[] selectedItemsInSeries = selector.getSelectedItems(selectedSeries) ;

			for(int j = 0; j < selectedItemsInSeries.length; j++) {

				// if it's the dummy last chart point, get the previous point position instead of ther last one

				if(selectedItemsInSeries[j] == dataset.getItemCount(selectedSeries) - 1)	{

					pointPositionsInCorpora.add((int) (dataset.getXValue(selectedSeries, selectedItemsInSeries[j] - 1)));

				}

				else	{

					pointPositionsInCorpora.add((int) (dataset.getXValue(selectedSeries, selectedItemsInSeries[j])));

				}

			}

		}

		// put the last selected point at the end of the list

		if(selector.getLastSelectedSeries() != -1 && selector.getLastSelectedItem() != -1)	{

			int item = selector.getLastSelectedItem();

			// if it's the dummy last chart point, get the previous point position instead of ther last one

			if(item == dataset.getItemCount(selector.getLastSelectedSeries()) - 1)	{

				item--;

			}

			Integer lastSelectedPointPosition = (int) (dataset.getXValue(selector.getLastSelectedSeries(), item));

			pointPositionsInCorpora.remove(lastSelectedPointPosition);

			pointPositionsInCorpora.add(lastSelectedPointPosition);

		}

		return pointPositionsInCorpora;

	}

	@Override

	public ArrayList<Integer> getSelectedPointNumbers(Object chart) {

		MultipleItemsSelector selector = (MultipleItemsSelector) ((IRendererWithItemSelection)((JFreeChart) chart).getXYPlot().getRenderer()).getItemsSelector();

		ArrayList<Integer> pointNumbers = new ArrayList<Integer>();

		XYDataset dataset = ((JFreeChart) chart).getXYPlot().getDataset();

		for(int i = 0; i < selector.getSelectedSeriesCount(); i++) {

			int series = selector.getSelectedSeries()[i];

			int[] items = selector.getSelectedItems(series);

			int lastDummyItem = dataset.getItemCount(series) - 1; 

			for(int j = 0; j < items.length; j++) {

				int item = items[j];

				// manage the first dummy point

				if(item == 0)	{

					item++;

				}

				// manage the last dummy point

				else if(item == lastDummyItem)	 {

					item--;

				}

				pointNumbers.add(item);

			}

		}

		return pointNumbers;

	}

	@Override

	public ArrayList<ArrayList<Integer>> getAllPointPositionsBySeries(Object chart) {

		ArrayList<ArrayList<Integer>> pointPositionsBySeries = new ArrayList<ArrayList<Integer>>();

		XYDataset dataset = ((JFreeChart) chart).getXYPlot().getDataset();

		for(int i = 0; i < dataset.getSeriesCount(); i++) {

			ArrayList<Integer> pointPositionsInCorpora = new ArrayList<Integer>();

			for(int j = 0; j < dataset.getItemCount(i) - 1; j++) { // -1 to skip the last dummy point of the step chart

				pointPositionsInCorpora.add((int) dataset.getXValue(i, j));

			}

			pointPositionsBySeries.add(pointPositionsInCorpora);

		}

		return pointPositionsBySeries;

	}

	@Override

	public ArrayList<Integer> getSelectedSeries(Object chart) {

		ArrayList<Integer> selectedSeries = new ArrayList<Integer>();

		MultipleItemsSelector selector = (MultipleItemsSelector) ((IRendererWithItemSelection)((JFreeChart) chart).getXYPlot().getRenderer()).getItemsSelector();

		Integer[] multipleSelectedSeries = selector.getSelectedSeries();

		for(int i = 0; i < multipleSelectedSeries.length; i++) {

			selectedSeries.add(multipleSelectedSeries[i]);

		}

		return selectedSeries;

	}

	@Override

	public int getLastSelectedSeries(Object chart) {

		return ((MultipleItemsSelector) ((IRendererWithItemSelection)((JFreeChart) chart).getXYPlot().getRenderer()).getItemsSelector()).getLastSelectedSeries();

	}

	@Override

	public Class getResultDataClass() {

		return Progression.class;

	}

}

package org.txm.progression.core.chartsengine.r;

import java.io.File;

import java.util.ArrayList;

import java.util.List;

import org.apache.commons.lang.StringEscapeUtils;

import org.txm.chartsengine.core.preferences.ChartsEnginePreferences;

import org.txm.chartsengine.core.results.ChartResult;

import org.txm.chartsengine.r.core.RChartCreator;

import org.txm.chartsengine.r.core.themes.DefaultTheme;

import org.txm.progression.core.chartsengine.base.ProgressionChartCreator;

import org.txm.progression.core.chartsengine.base.Utils;

import org.txm.progression.core.functions.Progression;

import org.txm.progression.core.preferences.ProgressionPreferences;

import org.txm.statsengine.r.core.RWorkspace;

import org.txm.statsengine.r.core.exceptions.RWorkspaceException;

import org.txm.utils.logger.Log;

/**

 * R progression chart creator.

 * @author mdecorde

 * @author sjacquot

 *

 */

public class RProgressionCumulativeChartCreator extends RChartCreator implements ProgressionChartCreator {

	@Override

	public File createChartFile(ChartResult result, File file) {

		try {

			Progression progression = (Progression) result;

			// parameters

			int renderingColorMode = progression.getRenderingColorsMode();

			boolean cumulative = progression.getBooleanParameterValue(ProgressionPreferences.CHART_CUMULATIVE);

			RWorkspace rw = RWorkspace.getRWorkspaceInstance();

			rw.eval("library(textometry)");

			// System.out.println("create list of positions");

			List<int[]> allPositions = progression.getAllPositions();

			String listString = "list("; //$NON-NLS-1$

			for(int i = 0; i < allPositions.size(); i++) {

				int[] positions = allPositions.get(i);

				// System.out.println("add vector "+i);

				rw.eval("rm(x" + i + ")"); //$NON-NLS-1$ //$NON-NLS-2$

				rw.addVectorToWorkspace("x" + i, positions); //$NON-NLS-1$

				listString += "x" + i + ","; //$NON-NLS-1$ //$NON-NLS-2$

			}

			listString = listString.substring(0, listString.length() - 1) + ")"; //$NON-NLS-1$

			// System.out.println("create positions");

			rw.eval("rm(positions)"); //$NON-NLS-1$

			rw.eval("positions <- " + listString); //$NON-NLS-1$

			rw.eval("rm(structurepositions)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("structurepositions", progression.getStructurePositions()); //$NON-NLS-1$

			rw.eval("rm(structurenames)"); //$NON-NLS-1$

			// if (structurenames != null) structurenames = new

			// String[structurepositions.length];

			for(int i = 0; i < progression.getStructureNames().length; i++) { // Fix empty attribute values

				if("".equals(progression.getStructureNames()[i]) || progression.getStructureNames()[i] == null) {  //$NON-NLS-1$

					progression.getStructureNames()[i] = "--"; //$NON-NLS-1$

				}

			}

			rw.addVectorToWorkspace("structurenames", progression.getStructureNames()); //$NON-NLS-1$

			// System.out.println("create list positions");

			// rw.getConnection().assign("positions",Rpositions);

			this.getChartsEngine().setColors(renderingColorMode, progression.getQueries().size());

//			if(monochrome) {

//				rw.addVectorToWorkspace("colors", DefaultTheme.monocolors); //$NON-NLS-1$

//			}

//			else {

//				if(progression.getQueries().size() <= 5) {

//					// System.out.println("uses colors5");

//					

//					

//					rw.addVectorToWorkspace("colors", this.getChartsEngine().getTheme().getColorPaletteAsHexFor(5));

//					

//					

//					//rw.addVectorToWorkspace("colors", DefaultTheme.colors5); //$NON-NLS-1$

//				}

//				else if(progression.getQueries().size() <= 10) {

//					// System.out.println("uses colors10");

//					rw.addVectorToWorkspace("colors", DefaultTheme.colors10); //$NON-NLS-1$

//				}

//				else {

//					// System.out.println("uses colors16");

//					rw.addVectorToWorkspace("colors", DefaultTheme.colors); //$NON-NLS-1$

//				}

//			}

			// System.out.println("create styles vector");

			rw.eval("rm(styles)"); //$NON-NLS-1$

			if(progression.isMultipleLineStrokes()) {

				rw.addVectorToWorkspace("styles", DefaultTheme.monostyles); //$NON-NLS-1$

			}

			else {

				rw.addVectorToWorkspace("styles", DefaultTheme.styles); //$NON-NLS-1$

			}

			// System.out.println("create styles vector");

			rw.eval("rm(widths)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("widths", DefaultTheme.monoWidths); //$NON-NLS-1$

			// System.out.println("create names vector");

			String[] queriesstring = new String[progression.getQueries().size()];

			for(int i = 0; i < progression.getQueries().size(); i++) {

				queriesstring[i] = progression.getQueries().get(i).getQueryString();

			}

			rw.eval("rm(names)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("names", queriesstring); //$NON-NLS-1$

			String name = progression.getCorpus().getName();

			// Create chart title

			String title = "";

			if(result.getBooleanParameterValue(ChartsEnginePreferences.SHOW_TITLE))	{

				title = Utils.createProgressionChartTitle(progression, cumulative);

			}

			// Escape title string

			title = StringEscapeUtils.escapeJava(title);

			// System.out.println("BANDE="+bande);

			String cmd = "progression(positions, names, colors, styles, widths, \"" + name + "\"," + progression.getXminCorpus() + "," + progression.getXmaxCorpus() + ",\"" + cumulative + "\",structurepositions,structurenames, \"" + title + "\", " + progression.getBande() + ");\n"; //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$ //$NON-NLS-4$ //$NON-NLS-5$ //$NON-NLS-6$ //$NON-NLS-7$

			// FIXME: the grid must be plotted behind the chart and it is not possible with the current R progression object code

			// Grid

			if(result.getBooleanParameterValue(ChartsEnginePreferences.SHOW_GRID))	{

				cmd += this.getChartsEngine().getGridPlotCmd();

			}

			this.getChartsEngine().plot(file, cmd);

			RWorkspace.getRWorkspaceInstance().eval(Progression.prefixR + Progression.norep + " <- list(positions=positions, names=names, xmin=" + progression.getXminCorpus() + ",xmax=" + progression.getXmaxCorpus() + ", structpositions=structurepositions, structnames=structurenames)"); //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$

			Progression.norep++;

		}

		catch(RWorkspaceException e) {

			// TODO Auto-generated catch block

			org.txm.utils.logger.Log.printStackTrace(e);

		}

		return file;

	}

	@Override

	public ArrayList<Integer> getSelectedPointPositions(Object chart) {

		// FIXME: not implemented

		Log.severe(this.getClass() + ".getProgressionChartSelectedPointPositions(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public ArrayList<Integer> getSelectedSeries(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartSelectedSeries(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public ArrayList<Integer> getSelectedPointNumbers(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartSelectedPointNumber(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public int getLastSelectedSeries(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartLastSelectedSeries(): Not yet implemented."); //$NON-NLS-1$

		return -1;

	}

	@Override

	public Class getResultDataClass() {

		return Progression.class;

	}

	@Override

	public ArrayList<ArrayList<Integer>> getAllPointPositionsBySeries(Object chart) {

		Log.severe(this.getClass() + ".getAllPointPositionsBySeries(): Not yet implemented."); //$NON-NLS-1$

		return null;

	}

}

package org.txm.progression.core.chartsengine.r;

import java.io.File;

import java.util.ArrayList;

import java.util.List;

import org.apache.commons.lang.StringEscapeUtils;

import org.txm.chartsengine.core.preferences.ChartsEnginePreferences;

import org.txm.chartsengine.core.results.ChartResult;

import org.txm.chartsengine.r.core.RChartCreator;

import org.txm.chartsengine.r.core.themes.DefaultTheme;

import org.txm.progression.core.chartsengine.base.ProgressionChartCreator;

import org.txm.progression.core.chartsengine.base.Utils;

import org.txm.progression.core.functions.Progression;

import org.txm.progression.core.preferences.ProgressionPreferences;

import org.txm.statsengine.r.core.RWorkspace;

import org.txm.statsengine.r.core.exceptions.RWorkspaceException;

import org.txm.utils.logger.Log;

/**

 * R progression chart creator.

 * @author mdecorde

 * @author sjacquot

 *

 */

public class RProgressionDensityChartCreator extends RChartCreator implements ProgressionChartCreator {

	@Override

	public File createChartFile(ChartResult result, File file) {

		try {

			Progression progression = (Progression) result;

			// parameters

			int renderingColorMode = progression.getRenderingColorsMode();

			//boolean cumulative = progression.getBooleanParameterValue(ProgressionPreferences.CHART_CUMULATIVE);

			RWorkspace rw = RWorkspace.getRWorkspaceInstance();

			rw.eval("library(textometry)");

			// System.out.println("create list of positions");

			List<int[]> allPositions = progression.getAllPositions();

			String listString = "list("; //$NON-NLS-1$

			for(int i = 0; i < allPositions.size(); i++) {

				int[] positions = allPositions.get(i);

				// System.out.println("add vector "+i);

				rw.eval("rm(x" + i + ")"); //$NON-NLS-1$ //$NON-NLS-2$

				rw.addVectorToWorkspace("x" + i, positions); //$NON-NLS-1$

				listString += "x" + i + ","; //$NON-NLS-1$ //$NON-NLS-2$

			}

			listString = listString.substring(0, listString.length() - 1) + ")"; //$NON-NLS-1$

			// System.out.println("create positions");

			rw.eval("rm(positions)"); //$NON-NLS-1$

			rw.eval("positions <- " + listString); //$NON-NLS-1$

			rw.eval("rm(structurepositions)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("structurepositions", progression.getStructurePositions()); //$NON-NLS-1$

			rw.eval("rm(structurenames)"); //$NON-NLS-1$

			// if (structurenames != null) structurenames = new

			// String[structurepositions.length];

			for(int i = 0; i < progression.getStructureNames().length; i++) { // Fix empty attribute values

				if("".equals(progression.getStructureNames()[i]) || progression.getStructureNames()[i] == null) {  //$NON-NLS-1$

					progression.getStructureNames()[i] = "--"; //$NON-NLS-1$

				}

			}

			rw.addVectorToWorkspace("structurenames", progression.getStructureNames()); //$NON-NLS-1$

			// System.out.println("create list positions");

			// rw.getConnection().assign("positions",Rpositions);

			this.getChartsEngine().setColors(renderingColorMode, progression.getQueries().size());

//			if(monochrome) {

//				rw.addVectorToWorkspace("colors", DefaultTheme.monocolors); //$NON-NLS-1$

//			}

//			else {

//				if(progression.getQueries().size() <= 5) {

//					// System.out.println("uses colors5");

//					

//					

//					rw.addVectorToWorkspace("colors", this.getChartsEngine().getTheme().getColorPaletteAsHexFor(5));

//					

//					

//					//rw.addVectorToWorkspace("colors", DefaultTheme.colors5); //$NON-NLS-1$

//				}

//				else if(progression.getQueries().size() <= 10) {

//					// System.out.println("uses colors10");

//					rw.addVectorToWorkspace("colors", DefaultTheme.colors10); //$NON-NLS-1$

//				}

//				else {

//					// System.out.println("uses colors16");

//					rw.addVectorToWorkspace("colors", DefaultTheme.colors); //$NON-NLS-1$

//				}

//			}

			// System.out.println("create styles vector");

			rw.eval("rm(styles)"); //$NON-NLS-1$

			if(!progression.isMultipleLineStrokes()) {

				rw.addVectorToWorkspace("styles", DefaultTheme.monostyles); //$NON-NLS-1$

			}

			else {

				rw.addVectorToWorkspace("styles", DefaultTheme.styles); //$NON-NLS-1$

			}

			// System.out.println("create styles vector");

			rw.eval("rm(widths)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("widths", DefaultTheme.monoWidths); //$NON-NLS-1$

			// System.out.println("create names vector");

			String[] queriesstring = new String[progression.getQueries().size()];

			for(int i = 0; i < progression.getQueries().size(); i++) {

				queriesstring[i] = progression.getQueries().get(i).getQueryString();

			}

			rw.eval("rm(names)"); //$NON-NLS-1$

			rw.addVectorToWorkspace("names", queriesstring); //$NON-NLS-1$

			String name = progression.getCorpus().getName();

			// Create chart title

			String title = "";

			if(result.getBooleanParameterValue(ChartsEnginePreferences.SHOW_TITLE))	{

				title = Utils.createProgressionChartTitle(progression, false);

			}

			// Escape title string

			title = StringEscapeUtils.escapeJava(title);

			// System.out.println("BANDE="+bande);

			String cmd = "progression(positions, names, colors, styles, widths, \"" + name + "\"," + progression.getXminCorpus() + "," + progression.getXmaxCorpus() + ",\"" + false + "\",structurepositions,structurenames, \"" + title + "\", " + progression.getBande() + ");\n"; //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$ //$NON-NLS-4$ //$NON-NLS-5$ //$NON-NLS-6$ //$NON-NLS-7$

			// FIXME: the grid must be plotted behind the chart and it is not possible with the current R progression object code

			// Grid

			if(result.getBooleanParameterValue(ChartsEnginePreferences.SHOW_GRID))	{

				cmd += this.getChartsEngine().getGridPlotCmd();

			}

			this.getChartsEngine().plot(file, cmd);

			RWorkspace.getRWorkspaceInstance().eval(Progression.prefixR + Progression.norep + " <- list(positions=positions, names=names, xmin=" + progression.getXminCorpus() + ",xmax=" + progression.getXmaxCorpus() + ", structpositions=structurepositions, structnames=structurenames)"); //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$

			Progression.norep++;

		}

		catch(RWorkspaceException e) {

			// TODO Auto-generated catch block

			org.txm.utils.logger.Log.printStackTrace(e);

		}

		return file;

	}

	@Override

	public ArrayList<Integer> getSelectedPointPositions(Object chart) {

		// FIXME: not implemented

		Log.severe(this.getClass() + ".getProgressionChartSelectedPointPositions(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public ArrayList<Integer> getSelectedSeries(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartSelectedSeries(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public ArrayList<Integer> getSelectedPointNumbers(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartSelectedPointNumber(): Not yet implemented."); //$NON-NLS-1$

		return new ArrayList<Integer>(0);

	}

	@Override

	public int getLastSelectedSeries(Object chart) {

		Log.severe(this.getClass() + ".getProgressionChartLastSelectedSeries(): Not yet implemented."); //$NON-NLS-1$

		return -1;

	}

	@Override

	public Class getResultDataClass() {

		return Progression.class;

	}

	@Override

	public ArrayList<ArrayList<Integer>> getAllPointPositionsBySeries(Object chart) {

		Log.severe(this.getClass() + ".getAllPointPositionsBySeries(): Not yet implemented."); //$NON-NLS-1$

		return null;

	}

}

            class="org.txm.progression.core.chartsengine.jfreechart.JFCProgressionCumulativeChartCreator"

            fileNamePrefix="progression_cumulative">

            class="org.txm.progression.core.chartsengine.r.RProgressionCumulativeChartCreator"

            fileNamePrefix="progression_cumulative">

      <ChartCreator

            chartType="density"

            class="org.txm.progression.core.chartsengine.r.RProgressionDensityChartCreator"

            fileNamePrefix="progression_density">

      </ChartCreator>

	Button cumulativeButton;

			cumulativeButton = new Button(paramPanel, SWT.RADIO);

			cumulativeButton.setText(ProgressionUIMessages.ProgressionDialog_2);

			cumulativeButton.setSelection(cumulative);

			// listeners

			cumulativeButton.addSelectionListener(new ComputeSelectionListener(this));

			cumulativeButton.addSelectionListener(new SelectionListener() {

					getResult().setDefaultChartType();

			// listener

					getResult().setChartType("density");