Touchpad.cc

Go to the documentation of this file.

// This implementation is based on the reverse-engineering effort done
// by 'SD-snatcher'. See here:
//   http://www.msx.org/news/en/msx-touchpad-protocol-reverse-engineered
//   http://www.msx.org/wiki/Touchpad
// Also thanks to Manuel Bilderbeek for donating a Philips NMS-1150 that
// made this effort possible.

#include "Touchpad.hh"
#include "MSXEventDistributor.hh"
#include "StateChangeDistributor.hh"
#include "InputEvents.hh"
#include "StateChange.hh"
#include "Display.hh"
#include "OutputSurface.hh"
#include "CommandController.hh"
#include "CommandException.hh"
#include "Clock.hh"
#include "checked_cast.hh"
#include "serialize.hh"
#include "serialize_meta.hh"
#include <iostream>

using std::shared_ptr;
using namespace gl;

namespace openmsx {

class TouchpadState final : public StateChange
{
public:
        TouchpadState() = default; // for serialize
        TouchpadState(EmuTime::param time_,
                      byte x_, byte y_, bool touch_, bool button_)
                : StateChange(time_)
                , x(x_), y(y_), touch(touch_), button(button_) {}
        byte getX()      const { return x; }
        byte getY()      const { return y; }
        bool getTouch()  const { return touch; }
        bool getButton() const { return button; }

        template<typename Archive> void serialize(Archive& ar, unsigned /*version*/)
        {
                ar.template serializeBase<StateChange>(*this);
                ar.serialize("x",      x,
                             "y",      y,
                             "touch",  touch,
                             "button", button);
        }
private:
        byte x, y;
        bool touch, button;
};
REGISTER_POLYMORPHIC_CLASS(StateChange, TouchpadState, "TouchpadState");


Touchpad::Touchpad(MSXEventDistributor& eventDistributor_,
                   StateChangeDistributor& stateChangeDistributor_,
                   Display& display_,
                   CommandController& commandController)
        : eventDistributor(eventDistributor_)
        , stateChangeDistributor(stateChangeDistributor_)
        , display(display_)
        , transformSetting(commandController,
                "touchpad_transform_matrix",
                "2x3 matrix to transform host mouse coordinates to "
                "MSX touchpad coordinates, see manual for details",
                "{ 256 0 0 } { 0 256 0 }")
        , start(EmuTime::zero())
        , hostButtons(0)
        , x(0), y(0), touch(false), button(false)
        , shift(0), channel(0), last(0)
{
        auto& interp = commandController.getInterpreter();
        transformSetting.setChecker([this, &interp](TclObject& newValue) {
                try {
                        parseTransformMatrix(interp, newValue);
                } catch (CommandException& e) {
                        throw CommandException(
                                "Invalid transformation matrix: ", e.getMessage());
                }
        });
        try {
                parseTransformMatrix(interp, transformSetting.getValue());
        } catch (CommandException& e) {
                // should only happen when settings.xml was manually edited
                std::cerr << e.getMessage() << '\n';
                // fill in safe default values
                m[0][0] = 256.0f; m[1][0] =   0.0f; m[2][0] = 0.0f;
                m[0][1] =   0.0f; m[1][1] = 256.0f; m[2][1] = 0.0f;
        }
}

Touchpad::~Touchpad()
{
        if (isPluggedIn()) {
                Touchpad::unplugHelper(EmuTime::dummy());
        }
}

void Touchpad::parseTransformMatrix(Interpreter& interp, const TclObject& value)
{
        if (value.getListLength(interp) != 2) {
                throw CommandException("must have 2 rows");
        }
        for (int i = 0; i < 2; ++i) {
                TclObject row = value.getListIndex(interp, i);
                if (row.getListLength(interp) != 3) {
                        throw CommandException("each row must have 3 elements");
                }
                for (int j = 0; j < 3; ++j) {
                        m[j][i] = row.getListIndex(interp, j).getDouble(interp);
                }
        }
}

// Pluggable
const std::string& Touchpad::getName() const
{
        static const std::string name("touchpad");
        return name;
}

std::string_view Touchpad::getDescription() const
{
        return "MSX Touchpad";
}

void Touchpad::plugHelper(Connector& /*connector*/, EmuTime::param /*time*/)
{
        eventDistributor.registerEventListener(*this);
        stateChangeDistributor.registerListener(*this);
}

void Touchpad::unplugHelper(EmuTime::param /*time*/)
{
        stateChangeDistributor.unregisterListener(*this);
        eventDistributor.unregisterEventListener(*this);
}

// JoystickDevice
constexpr byte SENSE  = JoystickDevice::RD_PIN1;
constexpr byte EOC    = JoystickDevice::RD_PIN2;
constexpr byte SO     = JoystickDevice::RD_PIN3;
constexpr byte BUTTON = JoystickDevice::RD_PIN4;
constexpr byte SCK    = JoystickDevice::WR_PIN6;
constexpr byte SI     = JoystickDevice::WR_PIN7;
constexpr byte CS     = JoystickDevice::WR_PIN8;

byte Touchpad::read(EmuTime::param time)
{
        byte result = SENSE | BUTTON; // 1-bit means not pressed
        if (touch)  result &= ~SENSE;
        if (button) result &= ~BUTTON;

        // EOC remains zero for 56 cycles after CS 0->1
        // TODO at what clock frequency does the UPD7001 run?
        //    400kHz is only the recommended value from the UPD7001 datasheet.
        constexpr EmuDuration delta = Clock<400000>::duration(56);
        if ((time - start) > delta) {
                result |= EOC;
        }

        if (shift & 0x80) result |= SO;
        if (last & CS)    result |= SO;

        return result | 0x30;
}

void Touchpad::write(byte value, EmuTime::param time)
{
        byte diff = last ^ value;
        last = value;
        if (diff & CS) {
                if (value & CS) {
                        // CS 0->1
                        channel = shift & 3;
                        start = time; // to keep EOC=0 for 56 cycles
                } else {
                        // CS 1->0
                        // Tested by SD-Snatcher (see RFE #252):
                        //  When not touched X is always 0, and Y floats
                        //  between 147 and 149 (mostly 148).
                        shift = (channel == 0) ? (touch ? x :   0)
                              : (channel == 3) ? (touch ? y : 148)
                              : 0; // channel 1 and 2 return 0
                }
        }
        if (((value & (CS | SCK)) == SCK) && (diff & SCK)) {
                // SC=0 & SCK 0->1
                shift <<= 1;
                shift |= (value & SI) != 0;
        }
}

ivec2 Touchpad::transformCoords(ivec2 xy)
{
        if (auto* output = display.getOutputSurface()) {
                vec2 uv = vec2(xy) / vec2(output->getLogicalSize());
                xy = ivec2(m * vec3(uv, 1.0f));
        }
        return clamp(xy, 0, 255);
}

// MSXEventListener
void Touchpad::signalMSXEvent(const shared_ptr<const Event>& event,
                              EmuTime::param time)
{
        ivec2 pos = hostPos;
        int b = hostButtons;
        switch (event->getType()) {
        case OPENMSX_MOUSE_MOTION_EVENT: {
                auto& mev = checked_cast<const MouseMotionEvent&>(*event);
                pos = transformCoords(ivec2(mev.getAbsX(), mev.getAbsY()));
                break;
        }
        case OPENMSX_MOUSE_BUTTON_DOWN_EVENT: {
                auto& butEv = checked_cast<const MouseButtonEvent&>(*event);
                switch (butEv.getButton()) {
                case MouseButtonEvent::LEFT:
                        b |= 1;
                        break;
                case MouseButtonEvent::RIGHT:
                        b |= 2;
                        break;
                default:
                        // ignore other buttons
                        break;
                }
                break;
        }
        case OPENMSX_MOUSE_BUTTON_UP_EVENT: {
                auto& butEv = checked_cast<const MouseButtonEvent&>(*event);
                switch (butEv.getButton()) {
                case MouseButtonEvent::LEFT:
                        b &= ~1;
                        break;
                case MouseButtonEvent::RIGHT:
                        b &= ~2;
                        break;
                default:
                        // ignore other buttons
                        break;
                }
                break;
        }
        default:
                // ignore
                break;
        }
        if ((pos != hostPos) || (b != hostButtons)) {
                hostPos     = pos;
                hostButtons = b;
                createTouchpadStateChange(
                        time, pos[0], pos[1],
                        (hostButtons & 1) != 0,
                        (hostButtons & 2) != 0);
        }
}

void Touchpad::createTouchpadStateChange(
        EmuTime::param time, byte x_, byte y_, bool touch_, bool button_)
{
        stateChangeDistributor.distributeNew(std::make_shared<TouchpadState>(
                time, x_, y_, touch_, button_));
}

// StateChangeListener
void Touchpad::signalStateChange(const shared_ptr<StateChange>& event)
{
        if (auto* ts = dynamic_cast<TouchpadState*>(event.get())) {
                x      = ts->getX();
                y      = ts->getY();
                touch  = ts->getTouch();
                button = ts->getButton();
        }
}

void Touchpad::stopReplay(EmuTime::param time)
{
        // TODO Get actual mouse state. Is it worth the trouble?
        if (x || y || touch || button) {
                stateChangeDistributor.distributeNew(
                        std::make_shared<TouchpadState>(
                                time, 0, 0, false, false));
        }
}


template<typename Archive>
void Touchpad::serialize(Archive& ar, unsigned /*version*/)
{
        // no need to serialize hostX, hostY, hostButtons,
        //                      transformSetting, m[][]
        ar.serialize("start",   start,
                     "x",       x,
                     "y",       y,
                     "touch",   touch,
                     "button",  button,
                     "shift",   shift,
                     "channel", channel,
                     "last",    last);

        if (ar.isLoader() && isPluggedIn()) {
                plugHelper(*getConnector(), EmuTime::dummy());
        }
}
INSTANTIATE_SERIALIZE_METHODS(Touchpad);
REGISTER_POLYMORPHIC_INITIALIZER(Pluggable, Touchpad, "Touchpad");

} // namespace openmsx