/*

   Android Touch Pointer view

   Copyright 2013 Thincast Technologies GmbH, Author: Martin Fleisz

   This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. 

   If a copy of the MPL was not distributed with this file, You can obtain one at http://mozilla.org/MPL/2.0/.

*/

package com.freerdp.freerdpcore.presentation;

import android.content.Context;

import android.graphics.Matrix;

import android.graphics.RectF;

import android.os.Handler;

import android.os.Message;

import android.util.AttributeSet;

import android.view.MotionEvent;

import android.widget.ImageView;

import com.freerdp.freerdpcore.R;

import com.freerdp.freerdpcore.utils.GestureDetector;

public class TouchPointerView extends ImageView {

    private static final int POINTER_ACTION_CURSOR = 0;

    private static final int POINTER_ACTION_CLOSE = 3;

    // the touch pointer consists of 9 quadrants with the following functionality:

    //

    // -------------

    // | 0 | 1 | 2 |

    // -------------

    // | 3 | 4 | 5 |

    // -------------

    // | 6 | 7 | 8 |

    // -------------

    //

    // 0 ... contains the actual pointer (the tip must be centered in the quadrant)

    // 1 ... is left empty

    // 2, 3, 5, 6, 7, 8 ... function quadrants that issue a callback

    // 4 ... pointer center used for left clicks and to drag the pointer

    private static final int POINTER_ACTION_RCLICK = 2;

    private static final int POINTER_ACTION_LCLICK = 4;

    private static final int POINTER_ACTION_MOVE = 4;

    private static final int POINTER_ACTION_SCROLL = 5;

    private static final int POINTER_ACTION_RESET = 6;

    private static final int POINTER_ACTION_KEYBOARD = 7;

    private static final int POINTER_ACTION_EXTKEYBOARD = 8;

    private static final float SCROLL_DELTA = 10.0f;

    private static final int DEFAULT_TOUCH_POINTER_RESTORE_DELAY = 150;

    private RectF pointerRect;

    private RectF pointerAreaRects[] = new RectF[9];

    private Matrix translationMatrix;

    private boolean pointerMoving = false;

    private boolean pointerScrolling = false;

    private TouchPointerListener listener = null;

    private UIHandler uiHandler = new UIHandler();

    // gesture detection

    private GestureDetector gestureDetector;

    public TouchPointerView(Context context) {

        super(context);

        initTouchPointer(context);

    }

    public TouchPointerView(Context context, AttributeSet attrs) {

        super(context, attrs);

        initTouchPointer(context);

    }

    public TouchPointerView(Context context, AttributeSet attrs, int defStyle) {

        super(context, attrs, defStyle);

        initTouchPointer(context);

    }

    private void initTouchPointer(Context context) {

        gestureDetector = new GestureDetector(context, new TouchPointerGestureListener(), null, true);

        gestureDetector.setLongPressTimeout(500);

        translationMatrix = new Matrix();

        setScaleType(ScaleType.MATRIX);

        setImageMatrix(translationMatrix);

        // init rects

        final float rectSizeWidth = (float) getDrawable().getIntrinsicWidth() / 3.0f;

        final float rectSizeHeight = (float) getDrawable().getIntrinsicWidth() / 3.0f;

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

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

                int left = (int) (j * rectSizeWidth);

                int top = (int) (i * rectSizeHeight);

                int right = left + (int) rectSizeWidth;

                int bottom = top + (int) rectSizeHeight;

                pointerAreaRects[i * 3 + j] = new RectF(left, top, right, bottom);

            }

        }

        pointerRect = new RectF(0, 0, getDrawable().getIntrinsicWidth(), getDrawable().getIntrinsicHeight());

    }

    public void setTouchPointerListener(TouchPointerListener listener) {

        this.listener = listener;

    }

    public int getPointerWidth() {

        return getDrawable().getIntrinsicWidth();

    }

    public int getPointerHeight() {

        return getDrawable().getIntrinsicHeight();

    }

    public float[] getPointerPosition() {

        float[] curPos = new float[2];

        translationMatrix.mapPoints(curPos);

        return curPos;

    }

    private void movePointer(float deltaX, float deltaY) {

        translationMatrix.postTranslate(deltaX, deltaY);

        setImageMatrix(translationMatrix);

    }

    private void ensureVisibility(int screen_width, int screen_height) {

        float[] curPos = new float[2];

        translationMatrix.mapPoints(curPos);

        if (curPos[0] > (screen_width - pointerRect.width()))

            curPos[0] = screen_width - pointerRect.width();

        if (curPos[0] < 0)

            curPos[0] = 0;

        if (curPos[1] > (screen_height - pointerRect.height()))

            curPos[1] = screen_height - pointerRect.height();

        if (curPos[1] < 0)

            curPos[1] = 0;

        translationMatrix.setTranslate(curPos[0], curPos[1]);

        setImageMatrix(translationMatrix);

    }

    private void displayPointerImageAction(int resId) {

        setPointerImage(resId);

        uiHandler.sendEmptyMessageDelayed(0, DEFAULT_TOUCH_POINTER_RESTORE_DELAY);

    }

    private void setPointerImage(int resId) {

        setImageResource(resId);

    }

    // returns the pointer area with the current translation matrix applied

    private RectF getCurrentPointerArea(int area) {

        RectF transRect = new RectF(pointerAreaRects[area]);

        translationMatrix.mapRect(transRect);

        return transRect;

    }

    private boolean pointerAreaTouched(MotionEvent event, int area) {

        RectF transRect = new RectF(pointerAreaRects[area]);

        translationMatrix.mapRect(transRect);

        if (transRect.contains(event.getX(), event.getY()))

            return true;

        return false;

    }

    private boolean pointerTouched(MotionEvent event) {

        RectF transRect = new RectF(pointerRect);

        translationMatrix.mapRect(transRect);

        if (transRect.contains(event.getX(), event.getY()))

            return true;

        return false;

    }

    @Override

    public boolean onTouchEvent(MotionEvent event) {

        // check if pointer is being moved or if we are in scroll mode or if the pointer is touched

        if (!pointerMoving && !pointerScrolling && !pointerTouched(event))

            return false;

        return gestureDetector.onTouchEvent(event);

    }

    @Override

    protected void onLayout(boolean changed, int left, int top, int right, int bottom) {

        // ensure touch pointer is visible

        if (changed)

            ensureVisibility(right - left, bottom - top);

    }

    // touch pointer listener - is triggered if an action field is

    public interface TouchPointerListener {

        abstract void onTouchPointerClose();

        abstract void onTouchPointerLeftClick(int x, int y, boolean down);

        abstract void onTouchPointerRightClick(int x, int y, boolean down);

        abstract void onTouchPointerMove(int x, int y);

        abstract void onTouchPointerScroll(boolean down);

        abstract void onTouchPointerToggleKeyboard();

        abstract void onTouchPointerToggleExtKeyboard();

        abstract void onTouchPointerResetScrollZoom();

    }

    private class UIHandler extends Handler {

        UIHandler() {

            super();

        }

        @Override

        public void handleMessage(Message msg) {

            setPointerImage(R.drawable.touch_pointer_default);

        }

    }

    private class TouchPointerGestureListener extends GestureDetector.SimpleOnGestureListener {

        private MotionEvent prevEvent = null;

        public boolean onDown(MotionEvent e) {

            if (pointerAreaTouched(e, POINTER_ACTION_MOVE)) {

                prevEvent = MotionEvent.obtain(e);

                pointerMoving = true;

            } else if (pointerAreaTouched(e, POINTER_ACTION_SCROLL)) {

                prevEvent = MotionEvent.obtain(e);

                pointerScrolling = true;

                setPointerImage(R.drawable.touch_pointer_scroll);

            }

            return true;

        }

        public boolean onUp(MotionEvent e) {

            if (prevEvent != null) {

                prevEvent.recycle();

                prevEvent = null;

            }

            if (pointerScrolling)

                setPointerImage(R.drawable.touch_pointer_default);

            pointerMoving = false;

            pointerScrolling = false;

            return true;

        }

        public void onLongPress(MotionEvent e) {

            if (pointerAreaTouched(e, POINTER_ACTION_LCLICK)) {

                setPointerImage(R.drawable.touch_pointer_active);

                pointerMoving = true;

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), true);

            }

        }

        public void onLongPressUp(MotionEvent e) {

            if (pointerMoving) {

                setPointerImage(R.drawable.touch_pointer_default);

                pointerMoving = false;

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), false);

            }

        }

        public boolean onScroll(MotionEvent e1, MotionEvent e2, float distanceX, float distanceY) {

            if (pointerMoving) {

                // move pointer graphics

                movePointer((int) (e2.getX() - prevEvent.getX()), (int) (e2.getY() - prevEvent.getY()));

                prevEvent.recycle();

                prevEvent = MotionEvent.obtain(e2);

                // send move notification

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerMove((int) rect.centerX(), (int) rect.centerY());

                return true;

            } else if (pointerScrolling) {

                // calc if user scrolled up or down (or if any scrolling happened at all)

                float deltaY = e2.getY() - prevEvent.getY();

                if (deltaY > SCROLL_DELTA) {

                    listener.onTouchPointerScroll(true);

                    prevEvent.recycle();

                    prevEvent = MotionEvent.obtain(e2);

                } else if (deltaY < -SCROLL_DELTA) {

                    listener.onTouchPointerScroll(false);

                    prevEvent.recycle();

                    prevEvent = MotionEvent.obtain(e2);

                }

                return true;

            }

            return false;

        }

        public boolean onSingleTapUp(MotionEvent e) {

            // look what area got touched and fire actions accordingly

            if (pointerAreaTouched(e, POINTER_ACTION_CLOSE))

                listener.onTouchPointerClose();

            else if (pointerAreaTouched(e, POINTER_ACTION_LCLICK)) {

                displayPointerImageAction(R.drawable.touch_pointer_lclick);

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), true);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), false);

            } else if (pointerAreaTouched(e, POINTER_ACTION_RCLICK)) {

                displayPointerImageAction(R.drawable.touch_pointer_rclick);

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerRightClick((int) rect.centerX(), (int) rect.centerY(), true);

                listener.onTouchPointerRightClick((int) rect.centerX(), (int) rect.centerY(), false);

            } else if (pointerAreaTouched(e, POINTER_ACTION_KEYBOARD)) {

                displayPointerImageAction(R.drawable.touch_pointer_keyboard);

                listener.onTouchPointerToggleKeyboard();

            } else if (pointerAreaTouched(e, POINTER_ACTION_EXTKEYBOARD)) {

                displayPointerImageAction(R.drawable.touch_pointer_extkeyboard);

                listener.onTouchPointerToggleExtKeyboard();

            } else if (pointerAreaTouched(e, POINTER_ACTION_RESET)) {

                displayPointerImageAction(R.drawable.touch_pointer_reset);

                listener.onTouchPointerResetScrollZoom();

            }

            return true;

        }

        public boolean onDoubleTap(MotionEvent e) {

            // issue a double click notification if performed in center quadrant

            if (pointerAreaTouched(e, POINTER_ACTION_LCLICK)) {

                RectF rect = getCurrentPointerArea(POINTER_ACTION_CURSOR);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), true);

                listener.onTouchPointerLeftClick((int) rect.centerX(), (int) rect.centerY(), false);

            }

            return true;

        }

    }

}