/*
 * Created on May 1, 2006
 *
 * TODO To change the template for this generated file go to
 * Window - Preferences - Java - Code Style - Code Templates
 */
package org.reprap.geometry;

import java.io.IOException;
import javax.media.j3d.*;
import org.reprap.Printer;
import org.reprap.Preferences;
import org.reprap.ReprapException;
import org.reprap.geometry.polygons.*;

/**
 *
 */
class segmentSpeeds
{
	/**
	 * 
	 */
	public Rr2Point p1, p2, p3;
	
	/**
	 * 
	 */
	public double ca;
	
	/**
	 * 
	 */
	public boolean plotMiddle;
	
	/**
	 * 
	 */
	public boolean abandon;
	
	/**
	 * @param before
	 * @param now
	 * @param after
	 * @param fastLength
	 */
	public segmentSpeeds(Rr2Point before, Rr2Point now, Rr2Point after, double fastLength)
	{
		Rr2Point a = Rr2Point.sub(now, before);
		double amod = a.mod();
		abandon = amod == 0;
		if(abandon)
			return;
		Rr2Point b = Rr2Point.sub(after, now);
		if(b.mod() == 0)
			ca = 0;
		else
			ca = Rr2Point.mul(a.norm(), b.norm());
		plotMiddle = true;
		if(amod <= 2*fastLength)
		{
			fastLength = amod*0.5;
			plotMiddle = false;
		}
		a = a.norm();
		p1 = Rr2Point.add(before, Rr2Point.mul(a, fastLength));
		p2 = Rr2Point.add(p1, Rr2Point.mul(a, amod - 2*fastLength));
		p3 = Rr2Point.add(p2, Rr2Point.mul(a, fastLength));
	}
	
	int speed(int currentSpeed, double angFac)
	{
		return (int)Math.round((double)currentSpeed*(1 - 
				0.5*(1 + ca)*angFac));
	}
}

/**
 *
 */
public class LayerProducer {
	
	/**
	 * Identifier for movements without depositing
	 */
	private static int gapMaterial = 0;
	
	/**
	 * Identifier for the actual depositing material
	 */
	private static int solidMaterial = 1;
	
	/**
	 * @return the gap material identifier
	 */
	public static int gapMaterial() { return gapMaterial; }
	
	/**
	 * @return the filler material identifier
	 */
	public static int solidMaterial() { return solidMaterial; }

	/**
	 * The shape of the object built so far under the current layer
	 */
	private Shape3D lowerShell;

	/**
	 * 
	 */
	private Printer printer;
	
	/**
	 * 
	 */
	private RrPolygonList hatchedPolygons;
	
	/**
	 * 
	 */
	private RrPolygonList borderPolygons;
	
	/**
	 * 
	 */
	private RrCSGPolygon csg_p;
	
	/**
	 * 
	 */
	private double scale;
	
	/**
	 * 
	 */
	private double z;
	
	/**
	 * 
	 */
	private int baseSpeed;
	
	/**
	 * 
	 */
	private int infillSpeed;
	
	/**
	 * 
	 */
	private int outlineSpeed;
	
	/**
	 * 
	 */
	private int currentSpeed;
	
	/**
	 * 
	 */
	private Rr2Point p_0;
	
	/**
	 * 
	 */
	private Rr2Point pos;
		
	/**
	 * @param printer
	 * @param zValue
	 * @param csgPol
	 * @param ls
	 * @param hatchDirection
	 */
	public LayerProducer(Printer printer, double zValue, RrCSGPolygon csgPol, Shape3D ls, RrHalfPlane hatchDirection) {
		this.printer = printer;
		lowerShell = ls;
		baseSpeed = printer.getExtruder().getXYSpeed();
		outlineSpeed = (int)Math.round(baseSpeed*printer.getExtruder().getOutlineSpeed());
		infillSpeed = (int)Math.round(baseSpeed*printer.getExtruder().getInfillSpeed());
		currentSpeed= outlineSpeed; // Always start with an outline
		z = zValue;
		
		RrCSGPolygon offBorder = csgPol.offset(-0.5*printer.getExtruder().getExtrusionSize());
		RrCSGPolygon offHatch = csgPol.offset(-1.5*printer.getExtruder().getExtrusionSize());
		
		//csgPol.divide(Preferences.tiny(), 1.01);
		//RrGraphics g = new RrGraphics(csgPol, true);
		
		offBorder.divide(Preferences.tiny(), 1.01);
		offHatch.divide(Preferences.tiny(), 1.01);
		
		//RrGraphics g = new RrGraphics(offBorder, true);
		
		borderPolygons = offBorder.megList(solidMaterial, solidMaterial);
		
		hatchedPolygons = new RrPolygonList();
		hatchedPolygons.add(offHatch.hatch(hatchDirection, printer.getExtruder().getExtrusionInfillWidth(), 
				solidMaterial, gapMaterial));	
	
//		RrPolygonList pllist = new RrPolygonList();
//		pllist.add(borderPolygons);
//		pllist.add(hatchedPolygons);
//		RrGraphics g = new RrGraphics(pllist, false);

		csg_p = null;
		
		RrBox big = csgPol.box().scale(1.1);
		
		double width = big.x().length();
		double height = big.y().length();
	}
	
	/**
	 * @return current X and Y position of the printer
	 */
	private Rr2Point posNow()
	{
		return new Rr2Point(printer.getX(), printer.getY());
	}
	
	/**
	 * @param first First point, the start of the line segment to be plotted.
	 * @param second Second point, the end of the line segment to be plotted.
	 * @param turnOff True if the extruder should be turned off at the end of this segment.
	 * @throws ReprapException
	 * @throws IOException
	 */
	private void plot(Rr2Point first, Rr2Point second, boolean turnOff) throws ReprapException, IOException
	{
		if (printer.isCancelled()) return;
		
		double speedUpLength = printer.getExtruder().getAngleSpeedUpLength();
		if(speedUpLength > 0)
		{
			segmentSpeeds ss = new segmentSpeeds(posNow(), first, second, 
					speedUpLength);
			if(ss.abandon)
				return;

			printer.printTo(ss.p1.x(), ss.p1.y(), z, false);

			if(ss.plotMiddle)
			{
				int straightSpeed = (int)Math.round((double)currentSpeed*(1 - 
						printer.getExtruder().getAngleSpeedFactor()));
				printer.setSpeed(straightSpeed);
				printer.printTo(ss.p2.x(), ss.p2.y(), z, false);
			}

			printer.setSpeed(ss.speed(currentSpeed, printer.getExtruder().getAngleSpeedFactor()));
			printer.printTo(ss.p3.x(), ss.p3.y(), z, turnOff);
			pos = ss.p3;
		// Leave speed set for the start of the next line.
		} else
			printer.printTo(first.x(), first.y(), z, turnOff);
	}

	/**
	 * @param first
	 * @param second
	 * @param startUp
	 * @param endUp
	 * @throws ReprapException
	 * @throws IOException
	 */
	private void move(Rr2Point first, Rr2Point second, boolean startUp, boolean endUp) 
		throws ReprapException, IOException
	{
		if (printer.isCancelled()) return;
		
		if(startUp)
		{
			printer.setSpeed(printer.getFastSpeed());
			printer.moveTo(first.x(), first.y(), z, startUp, endUp);
			return;
		}
		
		double speedUpLength = printer.getExtruder().getAngleSpeedUpLength();
		if(speedUpLength > 0)
		{
			segmentSpeeds ss = new segmentSpeeds(posNow(), first, second, 
					speedUpLength);
			if(ss.abandon)
				return;

			printer.moveTo(ss.p1.x(), ss.p1.y(), z, startUp, startUp);

			if(ss.plotMiddle)
			{
				printer.setSpeed(currentSpeed);
				printer.moveTo(ss.p2.x(), ss.p2.y(), z, startUp, startUp);
			}

			printer.setSpeed(ss.speed(currentSpeed, printer.getExtruder().getAngleSpeedFactor()));
			printer.moveTo(ss.p3.x(), ss.p3.y(), z, startUp, endUp);
			pos = ss.p3;
			// Leave speed set for the start of the next movement.
		} else
			printer.moveTo(first.x(), first.y(), z, startUp, endUp);
	}


	/**
	 * Plot a polygon
	 * @throws IOException
	 * @throws ReprapException
	 */
	private void plot(RrPolygon p) throws ReprapException, IOException
	{
		if(p.size() <= 1)
			return;
		
		int stopExtruding = p.backStep(printer.getExtruder().getExtrusionOverRun());
		
		int leng = p.size();
		
		if (printer.isCancelled()) return;
		
		printer.setSpeed(printer.getFastSpeed());
		move(p.point(0), p.point(1), true, false);
		printer.setSpeed(outlineSpeed);
		plot(p.point(0), p.point(1), false);
		// Print any lead-in.
		printer.printStartDelay(printer.getExtruder().getExtrusionDelay());
		
		int f = p.flag(0);
		for(int j = 1; j <= leng; j++)
		{
			int i = j%leng;
			Rr2Point next = p.point((j+1)%leng);
			
			if (printer.isCancelled()) return;
			
			if(f != gapMaterial && j <= stopExtruding)
				plot(p.point(i), next, false);
			else
			{
				printer.stopExtruding();
				if(f == gapMaterial)
				{
					if(j == leng)
						return;
					else
						move(p.point(i), next, true, false);
				}else
					move(p.point(i), next, false, false);
			}

			f = p.flag(i);
		}
	}
		
	/**
	 * Master plot function - draw everything
	 * @throws IOException
	 * @throws ReprapException
	 */
	public void plot() throws ReprapException, IOException
	{
		int i;
		
		printer.setSpeed(outlineSpeed);
		currentSpeed = outlineSpeed;
		
		borderPolygons = borderPolygons.filterShorts(Preferences.machineResolution()*2);
		for(i = 0; i < borderPolygons.size(); i++) 
		{
			if (printer.isCancelled())
				break;
			plot(borderPolygons.polygon(i).randomStart());
		}
		
		printer.setSpeed(infillSpeed);
		currentSpeed = infillSpeed;
		
		hatchedPolygons = hatchedPolygons.filterShorts(Preferences.machineResolution()*2);
		for(i = 0; i < hatchedPolygons.size(); i++) 
		{
			if (printer.isCancelled())
				break;
			plot(hatchedPolygons.polygon(i));
		}
		
		printer.setSpeed(outlineSpeed);
		currentSpeed = outlineSpeed;
		// Uncomment the next line to replace lower layers with shell triangles.
		printer.setLowerShell(lowerShell);
	}		
	
}