/*

 * Quoridor server and related libraries

 * Copyright (C) 2009-2010 Jaroslav Tulach <jaroslav.tulach@apidesign.org>

 *

 * This program is free software: you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation, either version 3 of the License.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program. Look for COPYING file in the top folder.

 * If not, see http://www.gnu.org/licenses/.

 */

package cz.xelfi.quoridor.visidor;

import cz.xelfi.quoridor.Board;

import cz.xelfi.quoridor.Fence;

import cz.xelfi.quoridor.Fence.Orientation;

import cz.xelfi.quoridor.IllegalPositionException;

import cz.xelfi.quoridor.Move;

import cz.xelfi.quoridor.Player;

import java.awt.Color;

import java.awt.Dimension;

import java.awt.EventQueue;

import java.awt.Font;

import java.awt.Graphics;

import java.awt.Graphics2D;

import java.awt.Rectangle;

import java.awt.event.MouseEvent;

import java.awt.event.MouseListener;

import java.awt.event.MouseMotionListener;

import java.awt.image.BufferedImage;

import javax.swing.JFrame;

import javax.swing.JPanel;

/**

 *

 * @author Jaroslav Tulach <jtulach@netbeans.org>

 */

final class Viewer extends JPanel implements MouseMotionListener, MouseListener {

    private Board board;

    private int fieldSize;

    private int xdelta;

    private int ydelta;

    private Orientation lastOrientation;

    private BoardPane pane;

    public Viewer() {

        this(Board.empty());

    }

    private Viewer(Board b) {

        this.board = b;

    }

    /**

     * @param args the command line arguments

     */

    public static void main(String[] args) throws IllegalPositionException {

        JFrame f = new JFrame();

        f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        final BoardPane bp = new BoardPane();

        class ApplyMove implements BoardListener {

            public void boardChanged(BoardEvent ev) {

                Move m = ev.getMove();

                if (m != null) {

                    try {

                        bp.setBoard(bp.getBoard().apply(m));

                    } catch (IllegalPositionException ex) {

                        // no new move

                    }

                }

            }

        }

        bp.addBoardListener(new ApplyMove());

        bp.setEditable(true);

        f.add(bp);

        f.pack();

        f.setVisible(true);

    }

    @Override

    public Dimension getPreferredSize() {

        return new Dimension(450, 450);

    }

    @Override

    protected void paintComponent(Graphics gg) {

        assert EventQueue.isDispatchThread();

        fieldSize = Math.min(getSize().width, getSize().height) / 9;

        int fifth = fieldSize / 10;

        Graphics2D g = (Graphics2D) gg;

        xdelta = (getSize().width - fieldSize * 9) / 2;

        ydelta = (getSize().height - fieldSize * 9) / 2;

        g.translate(xdelta, ydelta);

        g.setColor(Color.lightGray);

        for (int i = 0; i < 9; i++) {

            for (int j = 0; j < 9; j++) {

                final Rectangle r = new Rectangle(i * fieldSize, j * fieldSize, fieldSize, fieldSize);

                g.fillRect(r.x + fifth, r.y + fifth, r.width - fifth * 2, r.height - fifth * 2);

            }

        }

        g.setColor(Color.BLACK);

        for (Fence f : board.getFences()) {

            int column = (f.getColumn() - 'A') + 1;

            int row = 9 - f.getRow();

            Orientation orient = f.getOrientation();

            drawFence(orient, column, row, g, true);

        }

        int cnt = 0;

        Color[] colors = { Color.WHITE, Color.BLACK, Color.ORANGE, Color.MAGENTA };

        for (Player p : board.getPlayers()) {

            int column = p.getColumn();

            int row = 8 - p.getRow();

            final boolean isCurrent = p == board.getCurrentPlayer();

            final Color currentColor = colors[cnt];

            drawPlayer(g, column, row, currentColor, isCurrent, false);

            cnt++;

        }

        g.setColor(Color.BLACK);

        final Font f = new Font("Monospace", Font.BOLD, fifth * 2);

        g.setFont(f);

        for (int i = 0; i < 8; i++) {

            final char ch = (char) ('A' + i);

            g.drawString(Character.toString(ch), i * fieldSize + fieldSize - fifth, fifth + f.getSize() - f.getBaselineFor(ch));

        }

        for (int i = 0; i < 8; i++) {

            String s = "" + (8 - i);

            g.drawString(s, fifth, i * fieldSize + fieldSize - fifth + f.getSize() - f.getBaselineFor(s.charAt(0)));

        }

    }

    private void drawPlayer(Graphics2D g, int column, int row, final Color currentColor, final boolean isCurrent, boolean allowedMove) {

        int fifth = fieldSize / 10;

        int diametr = fieldSize - fifth * 4;

        final Rectangle r = new Rectangle(

            column * fieldSize + 2 * fifth,

            row * fieldSize + 2 * fifth,

            diametr,

            diametr

        );

        if (currentColor == null) {

            if (allowedMove) {

                g.setColor(Color.BLACK);

                g.drawOval(r.x, r.y, r.width, r.height);

            } else {

                g.drawLine(r.x, r.y, r.x + r.width, r.y + r.height);

                g.drawLine(r.x, r.y + r.height, r.x + r.width, r.y);

            }

        } else {

            g.setColor(currentColor);

            g.fillOval(r.x, r.y, r.width, r.height);

            if (isCurrent) {

                g.setColor(Color.lightGray);

                g.fillOval(r.x + r.width / 3, r.y + r.height / 3, r.width / 3, r.height / 3);

            }

        }

    }

    private void drawFence(Orientation orient, int column, int row, Graphics2D g, boolean fill) throws IllegalStateException {

        int fifth = fieldSize / 10;

        int w, h;

        switch (orient) {

            case HORIZONTAL: w = fieldSize - fifth; h = fifth; break;

            case VERTICAL: w = fifth; h = fieldSize - fifth; break;

            default: throw new IllegalStateException();

        }

        Rectangle r = new Rectangle(

            column * fieldSize - w,

            row * fieldSize - h,

            2 * w,

            2 * h

        );

        if (fill) {

            g.fill(r);

        } else {

            g.draw(r);

        }

    }

    public void mouseDragged(MouseEvent e) {

    }

    public void mouseMoved(MouseEvent e) {

        redrawCurrentMove(e);

    }

    private Move redrawCurrentMove(MouseEvent e) {

        int x = Math.round(((float)(e.getX() - xdelta)) / fieldSize);

        int y = Math.round(((float)(e.getY() - ydelta)) / fieldSize);

        if (x <= 0 || x >= 9) {

            return null;

        }

        if (y <= 0 || y >= 9) {

            return null;

        }

        BufferedImage img = new BufferedImage(getWidth(), getHeight(), BufferedImage.TYPE_INT_ARGB);

        final Graphics2D d2 = img.createGraphics();

        d2.setBackground(getBackground());

        d2.clearRect(0, 0, getWidth(), getHeight());

        paintComponent(d2);

        int dx = (e.getX() - xdelta) % fieldSize;

        int dy = (e.getY() - ydelta) % fieldSize;

        int fifth = fieldSize / 10;

        boolean outOfX = dx > fifth && dx < fieldSize - fifth;

        boolean outOfY = dy > fifth && dy < fieldSize - fifth;

        if (outOfX && outOfY) {

            x = (e.getX() - xdelta) / fieldSize;

            y = (e.getY() - ydelta) / fieldSize;

            Move m = board.findMove(board.getCurrentPlayer(), x, 8 - y);

            if (m == null) {

                drawPlayer(d2, x, y, null, false, false);

            } else {

                drawPlayer(d2, x, y, null, false, true);

            }

            getGraphics().drawImage(img, 0, 0, null);

            return m;

        }

        if (!outOfX && !outOfY) {

            if (lastOrientation == null) {

                return null;

            }

        } else {

            if (outOfX) {

                lastOrientation = Orientation.HORIZONTAL;

            } else {

                lastOrientation = Orientation.VERTICAL;

            }

        }

        Move m;

        try {

            m = Move.fence((char)('A' + x - 1), 9 - y, lastOrientation);

            Board newBoard = board.apply(m);

            drawFence(lastOrientation, x, y, d2, true);

        } catch (IllegalPositionException ex) {

            // can't place fence

            drawFence(lastOrientation, x, y, d2, false);

            m = null;

        }

        getGraphics().drawImage(img, 0, 0, null);

        return m;

    }

    public void mouseClicked(MouseEvent e) {

    }

    public void mousePressed(MouseEvent e) {

        Move m = redrawCurrentMove(e);

        BoardPane bp = pane;

        if (bp != null) {

            bp.moveHappened(m);

        }

    }

    public void mouseReleased(MouseEvent e) {

    }

    public void mouseEntered(MouseEvent e) {

    }

    public void mouseExited(MouseEvent e) {

    }

    final void setBoard(Board b) {

        board = b;

        if (isShowing()) {

            repaint();

        }

    }

    final Board getBoard() {

        return board;

    }

    final void enableListeners(boolean editable) {

        if (editable) {

            addMouseMotionListener(this);

            addMouseListener(this);

        } else {

            removeMouseListener(this);

            removeMouseMotionListener(this);

        }

    }

    final void moveListener(BoardPane pane) {

        this.pane = pane;

    }

}