diff options
Diffstat (limited to 'engines/director/lingo/lingo-builtins.cpp')
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp index e9c173bce6..78c751641d 100644 --- a/engines/director/lingo/lingo-builtins.cpp +++ b/engines/director/lingo/lingo-builtins.cpp @@ -49,6 +49,8 @@ static struct BuiltinProto { { "string", Lingo::b_string, 1}, // Misc { "dontpassevent", Lingo::b_dontpassevent, -1 }, + // point + { "point", Lingo::b_point, 2}, { 0, 0, 0 } }; @@ -216,4 +218,25 @@ void Lingo::b_dontpassevent() { warning("STUB: b_dontpassevent"); } +/////////////////// +// Point +/////////////////// +void Lingo::b_point() { + Datum y = g_lingo->pop(); + Datum x = g_lingo->pop(); + Datum d; + + x.toFloat(); + y.toFloat(); + + d.u.arr = new FloatArray; + + d.u.arr->push_back(x.u.f); + d.u.arr->push_back(y.u.f); + d.type = POINT; + + g_lingo->push(d); +} + + } // End of namespace Director |