mirror of
https://github.com/libretro/scummvm.git
synced 2025-01-10 11:51:52 +00:00
DIRECTOR: XOBJ: Add QTVR stubs
This commit is contained in:
Scott Percival
Eugene Sandulenko
parent
2009f27712
commit
a439d0c790
148
engines/director/lingo/xlibs/qtvr.cpp
Normal file
148
engines/director/lingo/xlibs/qtvr.cpp
Normal file
@ -0,0 +1,148 @@
|
||||
/* ScummVM - Graphic Adventure Engine
|
||||
*
|
||||
* ScummVM is the legal property of its developers, whose names
|
||||
* are too numerous to list here. Please refer to the COPYRIGHT
|
||||
* file distributed with this source distribution.
|
||||
*
|
||||
* 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, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* 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. If not, see <http://www.gnu.org/licenses/>.
|
||||
*
|
||||
*/
|
||||
|
||||
/**********************************************
|
||||
*
|
||||
* USED IN:
|
||||
* Star Trek TNG Interactive Technial Manual
|
||||
*
|
||||
**********************************************/
|
||||
|
||||
/*
|
||||
* -- QTVRW External Factory. 14Oct94 GRB
|
||||
* QTVRW
|
||||
* X mDispose
|
||||
* S mGetHPanAngle
|
||||
* S mGetMovieRect
|
||||
* I mGetNodeID
|
||||
* I mGetQuality
|
||||
* S mGetVPanAngle
|
||||
* S mGetZoomAngle
|
||||
* S mMouseOver
|
||||
* S mName
|
||||
* IS mNew, type
|
||||
* ISII mOpenMovie filename, x, y
|
||||
* II mSetActive mode
|
||||
* XS mSetHPanAngle angle
|
||||
* II mSetNodeID node
|
||||
* II mSetQuality qual
|
||||
* XOS mSetRolloverCallback factory, method
|
||||
* IS mSetTransitionMode mode
|
||||
* II mSetTransitionSpeed speed
|
||||
* XS mSetVPanAngle angle
|
||||
* XS mSetZoomAngle angle
|
||||
* I mUpdate
|
||||
*/
|
||||
|
||||
#include "director/director.h"
|
||||
#include "director/lingo/lingo.h"
|
||||
#include "director/lingo/lingo-object.h"
|
||||
#include "director/lingo/lingo-utils.h"
|
||||
#include "director/lingo/xlibs/qtvr.h"
|
||||
|
||||
|
||||
namespace Director {
|
||||
|
||||
const char *QTVR::xlibName = "QTVRW";
|
||||
const char *QTVR::fileNames[] = {
|
||||
"QTVR",
|
||||
"QTVR.QTC",
|
||||
nullptr
|
||||
};
|
||||
|
||||
static MethodProto xlibMethods[] = {
|
||||
{ "new", QTVR::m_new, 1, 1, 400 }, // D4
|
||||
{ "dispose", QTVR::m_dispose, 1, 1, 400 }, // D4
|
||||
{ "getHPanAngle", QTVR::m_getHPanAngle, 0, 0, 400 }, // D4
|
||||
{ "getMovieRect", QTVR::m_getMovieRect, 0, 0, 400 }, // D4
|
||||
{ "getNodeID", QTVR::m_getNodeID, 0, 0, 400 }, // D4
|
||||
{ "getQuality", QTVR::m_getQuality, 0, 0, 400 }, // D4
|
||||
{ "getVPanAngle", QTVR::m_getVPanAngle, 0, 0, 400 }, // D4
|
||||
{ "getZoomAngle", QTVR::m_getZoomAngle, 0, 0, 400 }, // D4
|
||||
{ "mouseOver", QTVR::m_mouseOver, 0, 0, 400 }, // D4
|
||||
{ "name", QTVR::m_name, 0, 0, 400 }, // D4
|
||||
{ "openMovie", QTVR::m_openMovie, 3, 3, 400 }, // D4
|
||||
{ "setActive", QTVR::m_setActive, 1, 1, 400 }, // D4
|
||||
{ "setHPanAngle", QTVR::m_setHPanAngle, 1, 1, 400 }, // D4
|
||||
{ "setNodeID", QTVR::m_setNodeID, 1, 1, 400 }, // D4
|
||||
{ "setQuality", QTVR::m_setQuality, 1, 1, 400 }, // D4
|
||||
{ "setRolloverCallback", QTVR::m_setQuality, 2, 2, 400 }, // D4
|
||||
{ "setTransitionMode", QTVR::m_setTransitionMode, 1, 1, 400 }, // D4
|
||||
{ "setTransitionSpeed", QTVR::m_setTransitionSpeed, 1, 1, 400 }, // D4
|
||||
{ "setVPanAngle", QTVR::m_setVPanAngle, 1, 1, 400 }, // D4
|
||||
{ "setZoomAngle", QTVR::m_setZoomAngle, 1, 1, 400 }, // D4
|
||||
{ "update", QTVR::m_update, 0, 0, 400 }, // D4
|
||||
};
|
||||
|
||||
QTVRXObject::QTVRXObject(ObjectType ObjectType) :Object<QTVRXObject>("QTVR") {
|
||||
_objType = ObjectType;
|
||||
}
|
||||
|
||||
void QTVR::open(int type) {
|
||||
if (type == kXObj) {
|
||||
QTVRXObject::initMethods(xlibMethods);
|
||||
QTVRXObject *xobj = new QTVRXObject(kXObj);
|
||||
g_lingo->exposeXObject(xlibName, xobj);
|
||||
} else if (type == kXtraObj) {
|
||||
// TODO - Implement Xtra
|
||||
}
|
||||
}
|
||||
|
||||
void QTVR::close(int type) {
|
||||
if (type == kXObj) {
|
||||
QTVRXObject::cleanupMethods();
|
||||
g_lingo->_globalvars[xlibName] = Datum();
|
||||
} else if (type == kXtraObj) {
|
||||
// TODO - Implement Xtra
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void QTVR::m_new(int nargs) {
|
||||
if (nargs != 0) {
|
||||
warning("QTVR::m_new: expected 0 arguments");
|
||||
g_lingo->dropStack(nargs);
|
||||
}
|
||||
g_lingo->push(g_lingo->_state->me);
|
||||
}
|
||||
|
||||
XOBJSTUBNR(QTVR::m_dispose);
|
||||
XOBJSTUB(QTVR::m_getHPanAngle, "");
|
||||
XOBJSTUB(QTVR::m_getMovieRect, "");
|
||||
XOBJSTUB(QTVR::m_getNodeID, 0);
|
||||
XOBJSTUB(QTVR::m_getQuality, 0);
|
||||
XOBJSTUB(QTVR::m_getVPanAngle, "");
|
||||
XOBJSTUB(QTVR::m_getZoomAngle, "");
|
||||
XOBJSTUB(QTVR::m_mouseOver, "");
|
||||
XOBJSTUB(QTVR::m_name, "");
|
||||
XOBJSTUB(QTVR::m_openMovie, 0);
|
||||
XOBJSTUB(QTVR::m_setActive, 0);
|
||||
XOBJSTUBNR(QTVR::m_setHPanAngle);
|
||||
XOBJSTUB(QTVR::m_setNodeID, 0);
|
||||
XOBJSTUB(QTVR::m_setQuality, 0);
|
||||
XOBJSTUBNR(QTVR::m_setRolloverCallback);
|
||||
XOBJSTUB(QTVR::m_setTransitionMode, 0);
|
||||
XOBJSTUB(QTVR::m_setTransitionSpeed, 0);
|
||||
XOBJSTUBNR(QTVR::m_setVPanAngle);
|
||||
XOBJSTUBNR(QTVR::m_setZoomAngle);
|
||||
XOBJSTUB(QTVR::m_update, 0);
|
||||
|
||||
} // End of namespace Director
|
||||
66
engines/director/lingo/xlibs/qtvr.h
Normal file
66
engines/director/lingo/xlibs/qtvr.h
Normal file
@ -0,0 +1,66 @@
|
||||
/* ScummVM - Graphic Adventure Engine
|
||||
*
|
||||
* ScummVM is the legal property of its developers, whose names
|
||||
* are too numerous to list here. Please refer to the COPYRIGHT
|
||||
* file distributed with this source distribution.
|
||||
*
|
||||
* 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, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* 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. If not, see <http://www.gnu.org/licenses/>.
|
||||
*
|
||||
*/
|
||||
|
||||
#ifndef DIRECTOR_LINGO_XLIBS_QTVR_H
|
||||
#define DIRECTOR_LINGO_XLIBS_QTVR_H
|
||||
|
||||
namespace Director {
|
||||
|
||||
namespace QTVR {
|
||||
|
||||
extern const char *xlibName;
|
||||
extern const char *fileNames[];
|
||||
|
||||
void open(int type);
|
||||
void close(int type);
|
||||
|
||||
void m_new(int nargs);
|
||||
void m_dispose(int nargs);
|
||||
void m_getHPanAngle(int nargs);
|
||||
void m_getMovieRect(int nargs);
|
||||
void m_getNodeID(int nargs);
|
||||
void m_getQuality(int nargs);
|
||||
void m_getVPanAngle(int nargs);
|
||||
void m_getZoomAngle(int nargs);
|
||||
void m_mouseOver(int nargs);
|
||||
void m_name(int nargs);
|
||||
void m_openMovie(int nargs);
|
||||
void m_setActive(int nargs);
|
||||
void m_setHPanAngle(int nargs);
|
||||
void m_setNodeID(int nargs);
|
||||
void m_setQuality(int nargs);
|
||||
void m_setRolloverCallback(int nargs);
|
||||
void m_setTransitionMode(int nargs);
|
||||
void m_setTransitionSpeed(int nargs);
|
||||
void m_setVPanAngle(int nargs);
|
||||
void m_setZoomAngle(int nargs);
|
||||
void m_update(int nargs);
|
||||
|
||||
} // End of namespace QTVR
|
||||
|
||||
class QTVRXObject : public Object<QTVRXObject> {
|
||||
public:
|
||||
QTVRXObject(ObjectType objType);
|
||||
};
|
||||
|
||||
} // End of namespace Director
|
||||
|
||||
#endif
|
||||
@ -93,6 +93,7 @@ MODULE_OBJS = \
|
||||
lingo/xlibs/prefpath.o \
|
||||
lingo/xlibs/printomatic.o \
|
||||
lingo/xlibs/qtmovie.o \
|
||||
lingo/xlibs/qtvr.o \
|
||||
lingo/xlibs/registercomponent.o \
|
||||
lingo/xlibs/serialportxobj.o \
|
||||
lingo/xlibs/soundjam.o \
|
||||
|
||||
Loading…
Reference in New Issue
Block a user