madcow/scummvm-cursorfix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Leon Krieg
2026-02-02 04:50:13 +01:00
commit 5b11698731
22592 changed files with 7677434 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

160
engines/director/lingo/xlibs/d/draw.cpp Normal file
View File

@@ -0,0 +1,160 @@
/* 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:
* מיץ פטל (Mitz Petel)
*
*************************************/
/* -- Draw XObject version 1.0 beta
* Draw
* -- (c) 1995 - Daniele Russo
* -- New York University - Center for Digital Multimedia
* I mNew --Creates a new instance of the XObject.
* --
* I mDispose --Disposes of an XObject instance.
* --
* IIIII mLine --Draws a line.
* --
* IIIII mLineBrush --Draws a line using a pen.
* --
* IIIIII mLineBrushTrans --Draws a line using a transparent, multicolored pen.
* --
* IIIIIII mLineBrushCol --Draws a line using a transparent pen.
* --
* III mFilterBMP --Gets a picture containing all the pixels in an
* -- image excluding those which are of a particular color.
* -- The image to filter must be on the clipboard (as a BITMAP).
* --
* III mFilterDIB --As above, but the image must be a DIB.
* --
* III mFilterBMP128 --Gets a picture containing all the pixels in an
* -- image whose color is within the lower/upper
* -- 128. The image to filter must be on the clipboard
* -- (as a BITMAP).
* --
* III mFilterDIB128 --As above, but the image must be a DIB.
* --
* III mFilterBMPMakeGhostImage
* -- Gets a picture which has all the pixels that don't
* -- have the background color changed to a given color,
* -- specified by the caller. The image to filter must be
* -- on the clipboard (as a BITMAP).
* --
* III mFilterDIBMakeGhostImage
* -- As above, but the image must be a DIB.
* --
* I mEmptyClipboard --Empties the clipboard. This method MUST be called
* -- after using the result of mFilterBMP and mFilterBMP128.
* --
* IIII mFill --Fills an area starting at a specified pixel
* -- and defined by all the adjacent pixels with
* -- the same color.
* --
* III mGetColor --Gets the color of a pixel on the stage. The
* -- result is the index of the color in Director's
* -- palette.
* --
* IIIIII mDrawRect -- Draws a rectangle of a specified color.
* --
* IIIIII mDrawFrame -- Draws a frame using a dotted pen.
*/
#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/d/draw.h"
namespace Director {
const char *const DrawXObj::xlibName = "Draw";
const XlibFileDesc DrawXObj::fileNames[] = {
{ "DRAW", nullptr },
{ nullptr, nullptr },
};
static const MethodProto xlibMethods[] = {
{ "New", DrawXObj::m_new, 0, 0, 400 }, // D4
{ "Dispose", DrawXObj::m_dispose, 0, 0, 400 }, // D4
{ "Line", DrawXObj::m_line, 4, 4, 400 }, // D4
{ "LineBrush", DrawXObj::m_lineBrush, 4, 4, 400 }, // D4
{ "LineBrushTrans", DrawXObj::m_lineBrushTrans, 5, 5, 400 }, // D4
{ "LineBrushCol", DrawXObj::m_lineBrushCol, 6, 6, 400 }, // D4
{ "FilterBMP", DrawXObj::m_filterBMP, 2, 2, 400 }, // D4
{ "FilterDIB", DrawXObj::m_filterDIB, 2, 2, 400 }, // D4
{ "FilterBMP128", DrawXObj::m_filterBMP128, 2, 2, 400 }, // D4
{ "FilterDIB128", DrawXObj::m_filterDIB128, 2, 2, 400 }, // D4
{ "FilterBMPMakeGhostImage", DrawXObj::m_filterBMPMakeGhostImage, 2, 2, 400 }, // D4
{ "FilterDIBMakeGhostImage", DrawXObj::m_filterDIBMakeGhostImage, 2, 2, 400 }, // D4
{ "EmptyClipboard", DrawXObj::m_emptyClipboard, 0, 0, 400 }, // D4
{ "Fill", DrawXObj::m_fill, 3, 3, 400 }, // D4
{ "GetColor", DrawXObj::m_getColor, 2, 2, 400 }, // D4
{ "DrawRect", DrawXObj::m_drawRect, 5, 5, 400 }, // D4
{ "DrawFrame", DrawXObj::m_drawFrame, 5, 5, 400 }, // D4
{ nullptr, nullptr, 0, 0, 0 }
};
void DrawXObj::open(ObjectType type, const Common::Path &path) {
if (type == kXObj) {
DrawXObject::initMethods(xlibMethods);
DrawXObject *xobj = new DrawXObject(kXObj);
g_lingo->exposeXObject(xlibName, xobj);
}
}
void DrawXObj::close(ObjectType type) {
if (type == kXObj) {
DrawXObject::cleanupMethods();
g_lingo->_globalvars[xlibName] = Datum();
}
}
DrawXObject::DrawXObject(ObjectType ObjectType) :Object<DrawXObject>("Draw") {
_objType = ObjectType;
}
void DrawXObj::m_new(int nargs) {
g_lingo->push(g_lingo->_state->me);
}
XOBJSTUB(DrawXObj::m_dispose, 0)
XOBJSTUB(DrawXObj::m_line, 0)
XOBJSTUB(DrawXObj::m_lineBrush, 0)
XOBJSTUB(DrawXObj::m_lineBrushTrans, 0)
XOBJSTUB(DrawXObj::m_lineBrushCol, 0)
XOBJSTUB(DrawXObj::m_filterBMP, 0)
XOBJSTUB(DrawXObj::m_filterDIB, 0)
XOBJSTUB(DrawXObj::m_filterBMP128, 0)
XOBJSTUB(DrawXObj::m_filterDIB128, 0)
XOBJSTUB(DrawXObj::m_filterBMPMakeGhostImage, 0)
XOBJSTUB(DrawXObj::m_filterDIBMakeGhostImage, 0)
XOBJSTUB(DrawXObj::m_emptyClipboard, 0)
XOBJSTUB(DrawXObj::m_fill, 0)
XOBJSTUB(DrawXObj::m_getColor, 0)
XOBJSTUB(DrawXObj::m_drawRect, 0)
XOBJSTUB(DrawXObj::m_drawFrame, 0)
} // End of namespace Director