PEBLObjects Namespace Reference

Functions
void	MakeEnvironment (PEBLVideoMode mode, PEBLVideoDepth depth, bool windowed, bool resizeable, bool unicode)
	This function instantiates the namespace-viewable.
Variant	MakeWindow (Variant v)
Variant	ResizeWindow (Variant v)
Variant	MakeImage (Variant v)
Variant	MakeLabel (Variant v)
Variant	MakeColor (Variant v)
Variant	MakeColorRGB (Variant v)
Variant	MakeFont (Variant v)
Variant	MakeTextBox (Variant v)
Variant	MakeCanvas (Variant v)
Variant	AddObject (Variant v)
	This function adds a widget to a parent widget.
Variant	RemoveObject (Variant v)
	This removes a child widget from the parent widget.
Variant	SetCursorPosition (Variant v)
Variant	GetCursorPosition (Variant v)
Variant	GetParent (Variant v)
Variant	SetEditable (Variant v)
Variant	SetText (Variant v)
Variant	GetText (Variant v)
Variant	GetLineBreaks (Variant v)
Variant	SetPoint (Variant v)
Variant	GetPixelColor (Variant v)
Variant	SetFont (Variant v)
Variant	PrintProperties (Variant v)
Variant	GetPropertyList (Variant v)
Variant	SetProperty (Variant v)
Variant	GetProperty (Variant v)
Variant	PropertyExists (Variant v)
Variant	Show (Variant v)
Variant	Hide (Variant v)
Variant	Draw (Variant v)
Variant	Move (Variant v)
Variant	GetSize (Variant v)
Variant	DrawFor (Variant v)
Variant	LoadSound (Variant v)
Variant	PlayBackground (Variant v)
Variant	PlayForeground (Variant v)
Variant	Stop (Variant v)
Variant	SetPanning (Variant v)
Variant	SetPlayRepeats (Variant v)
Variant	MakeSineWave (Variant v)
Variant	MakeSquareWave (Variant v)
Variant	MakeSawtoothWave (Variant v)
Variant	MakeChirp (Variant v)
Variant	MakeAudioInputBuffer (Variant v)
Variant	SaveAudioToWaveFile (Variant v)
Variant	GetVocalResponseTime (Variant v)
Variant	RecordToBuffer (Variant v)
Variant	StartAudioMonitor (Variant v)
Variant	StopAudioMonitor (Variant v)
Variant	GetAudioStats (Variant v)
Variant	Line (Variant v)
Variant	ThickLine (Variant v)
Variant	Rectangle (Variant v)
Variant	Square (Variant v)
Variant	Ellipse (Variant v)
Variant	Circle (Variant v)
Variant	Polygon (Variant v)
Variant	Bezier (Variant v)
Variant	RotoZoom (Variant v)
Variant	LoadMovie (Variant v)
Variant	LoadAudioFile (Variant v)
Variant	StartPlayback (Variant v)
Variant	PausePlayback (Variant v)
Variant	MakeCustomObject (Variant v)
Variant	ConnectEyeTracker (Variant v)
Variant	GetEyeObject (Variant v)
Variant	SetEyeTrackerHandler (Variant v)

Variables
PEBL_Function_Type	FunctionTable []

Function Documentation

AddObject()

Variant PEBLObjects::AddObject

(

Variant

v

)

This function adds a widget to a parent widget.

Definition at line 505 of file PEBLObjects.cpp.

{
    //v[1] should have the child widget
    //v[2] should have the parent widget
 
    PList * plist = v.GetComplexData()->GetList();
 
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [AddObject(<child-widget>, <parent-widget>)]: ");
 
 
    PlatformWidget * child = dynamic_cast<PlatformWidget*>((v1.GetComplexData())->GetObject().get());
 
    Variant v2 = plist->Nth(2); //plist->PopFront();
    PError::AssertType(v2, PEAT_WIDGET, "Argument error in second parameter of function [AddObject(<child-widget>, <parent-widget>)]: ");
 
    PlatformWidget * parent = dynamic_cast<PlatformWidget*>((v2.GetComplexData())->GetObject().get());
 
 
    parent->AddSubWidget(child);
    child->SetProperty("PARENT",v2);
 
    return Variant(true);
}

References PlatformWidget::AddSubWidget(), PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_WIDGET, and PWidget::SetProperty().

Bezier()

Variant PEBLObjects::Bezier

(

Variant

v

)

Definition at line 1808 of file PEBLObjects.cpp.

{
 
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Bezier(<x>, <y>, <xpoints>, <ypoints>, <steps>, <color>)]: ");
    int x = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Bezier(<x>, <y>,<xpoints>, <ypoints>, <steps>, <color>)]: ");
    int y = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_LIST, "Argument error in third parameter of function  [Bezier(<x>, <y>, <xpoints>, <ypoints>, <steps>, <color>)]: ");
    Variant xpoints = plist->Nth(3); //plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_LIST, "Argument error in fourth parameter of function  [Bezier(<x>, <y>, <xpoints>, <ypoints>, <steps>, <color>)]: ");
    Variant ypoints = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_NUMBER, "Argument error in fifth parameter of function  [Bezier(<x>, <y>, <xpoints>, <ypoints>, <steps>, <color>)]: ");
    int steps = plist->Nth(5);// plist->PopFront();
 
    PError::AssertType(plist->Nth(6), PEAT_COLOR, "Argument error in sixth parameter of function  [Bezier(<x>, <y>, <xpoints>, <ypoints>, <steps>, <color>)]: ");
    Variant color = plist->Nth(6);// plist->PopFront();
 
 
    counted_ptr<PEBLObjectBase> myBezier = counted_ptr<PEBLObjectBase>(new PlatformBezier(x,y,xpoints,ypoints,steps,color));
    PComplexData *  pcd = new PComplexData(myBezier);
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, PEAT_LIST, and PEAT_NUMBER.

Circle()

Variant PEBLObjects::Circle

(

Variant

v

)

Definition at line 1733 of file PEBLObjects.cpp.

{
 
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Circle(<x>, <y>, <rx>,  <color>)]: ");
    int x = plist->First();// plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Circle(<x>, <y>, <rx>, <color>)]: ");
    int y = plist->Nth(2);// plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function  [Circle(<x>, <y>, <r>,, <color>)]: ");
    int r = plist->Nth(3);// plist->PopFront();
 
 
    PError::AssertType(plist->Nth(4), PEAT_COLOR, "Argument error in fourth parameter of function  [Circle(<x>, <y>, <rx>, <color>)]: ");
    Variant color = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_NUMBER, "Argument error in fifth parameter of function  [Circle(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int filled = plist->Nth(5);// plist->PopFront();
 
 
    counted_ptr<PEBLObjectBase> myCircle = counted_ptr<PEBLObjectBase>(new PlatformCircle(x,y,r,color,filled));
    PComplexData *  pcd = new PComplexData(myCircle);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

ConnectEyeTracker()

Variant PEBLObjects::ConnectEyeTracker

(

Variant

v

)

Definition at line 2068 of file PEBLObjects.cpp.

{
 
#ifdef PEBL_GAZELIB
    //this should offer setting the address and port (default is 127.0.0.1/6555)
    PEyeTracker * pet = new PEyeTracker();
 
    counted_ptr<PEBLObjectBase> tmpObject = counted_ptr<PEBLObjectBase>(pet);
 
    PComplexData *  pcd = new PComplexData(tmpObject);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
#else
    return Variant(0);
#endif
 
}

References NULL.

Draw()

Variant PEBLObjects::Draw

(

Variant

v

)

Definition at line 937 of file PEBLObjects.cpp.

{
    //v[1] should have the object.  If it is null,
    //redraw the entire environment.
 
    if(v.IsStackSignal())
        {
            myEnv->Draw();
        }
    else
        {
 
            PList * plist = v.GetComplexData()->GetList();
 
            Variant v2 = plist->First(); //plist->PopFront();
            PError::AssertType(v2, PEAT_WIDGET, "Argument error in function [Draw(<widget>)]: ");
 
            PlatformWidget * myWidget = dynamic_cast<PlatformWidget*>(v2.GetComplexData()->GetObject().get());
            myWidget->Draw();
        }
    return Variant(true);
}

References PError::AssertType(), PlatformEnvironment::Draw(), PlatformWidget::Draw(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), Variant::IsStackSignal(), myEnv, and PEAT_WIDGET.

DrawFor()

Variant PEBLObjects::DrawFor

(

Variant

v

)

This calls the Draw() routine a number of times equal to the the parameter. It returns a value that should approximate the presentation time fairly well. It should be given a window.

Definition at line 964 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [DrawFor(<widndow>, <count>)]: ");
 
    PlatformWindow * window = dynamic_cast<PlatformWindow*>(v1.GetComplexData()->GetObject().get());
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second parameter of function [DrawFor(<window>, <count>)]: ");
 
    int count =plist->Nth(2);
 
    long unsigned int time = window->DrawFor(count);
 
    return Variant(time);
 
}

References PError::AssertType(), count, PlatformWindow::DrawFor(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_INTEGER, and PEAT_WIDGET.

Ellipse()

Variant PEBLObjects::Ellipse

(

Variant

v

)

Definition at line 1693 of file PEBLObjects.cpp.

{
 
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int x = plist->First();// plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int y = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function  [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int rx = plist->Nth(3); //plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in fourth parameter of function  [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int ry = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_COLOR, "Argument error in fifth parameter of function  [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    Variant color = plist->Nth(5);// plist->PopFront();
 
    PError::AssertType(plist->Nth(6), PEAT_NUMBER, "Argument error in sixth parameter of function  [Ellipse(<x>, <y>, <rx>, <ry>, <color>, <filled>)]: ");
    int filled = plist->Nth(6);// plist->PopFront();
 
 
    counted_ptr<PEBLObjectBase> myEllipse = counted_ptr<PEBLObjectBase>(new PlatformEllipse(x,y,rx,ry,color,filled));
    PComplexData *  pcd = new PComplexData(myEllipse);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

GetAudioStats()

Variant PEBLObjects::GetAudioStats

(

Variant

v

)

Definition at line 1489 of file PEBLObjects.cpp.

{
#ifdef PEBL_AUDIOIN
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First();
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in first parameter of function [GetAudioStats(<monitor>, <window-ms>)]: ");
 
    PlatformAudioIn * myAudio = dynamic_cast<PlatformAudioIn*>(v1.GetComplexData()->GetObject().get());
    if(!myAudio) {
        PError::SignalFatalError("Invalid audio monitor object in GetAudioStats()");
        // Return [0, 0, 0]
        PList * result = new PList();
        result->PushBack(Variant(0.0));
        result->PushBack(Variant(0.0));
        result->PushBack(Variant(0.0));
        counted_ptr<PEBLObjectBase> baseresult = counted_ptr<PEBLObjectBase>(result);
        return Variant(new PComplexData(baseresult));
    }
 
    Variant v2 = plist->Nth(2);
    PError::AssertType(v2, PEAT_NUMBER, "Argument error in second parameter of function [GetAudioStats(<monitor>, <window-ms>)]: ");
 
    int windowMs = (int)v2;
 
    // Call the PlatformAudioIn method to get stats
    return myAudio->GetRecentAudioStats(windowMs);
 
#else
    PError::SignalFatalError("Audio Input not available on this version of PEBL.");
    // Return [0, 0, 0]
    PList * result = new PList();
    result->PushBack(Variant(0.0));
    result->PushBack(Variant(0.0));
    result->PushBack(Variant(0.0));
    counted_ptr<PEBLObjectBase> baseresult = counted_ptr<PEBLObjectBase>(result);
    return Variant(new PComplexData(baseresult));
#endif
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_NUMBER, PEAT_OBJECT, PList::PushBack(), and PError::SignalFatalError().

GetCursorPosition()

Variant PEBLObjects::GetCursorPosition

(

Variant

v

)

Definition at line 646 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in function [GetCursorPosition(<textbox>)]: ");
 
    counted_ptr<PEBLObjectBase> textbox = plist->First().GetComplexData()->GetObject(); //plist->PopFront();
    return Variant((dynamic_cast<PTextBox *>(textbox.get()))->GetCursorPosition());
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), and PEAT_TEXTBOX.

GetEyeObject()

Variant PEBLObjects::GetEyeObject

(

Variant

v

)

Definition at line 2093 of file PEBLObjects.cpp.

{
 
#ifdef PEBL_GAZELIB
    PList * plist = v.GetComplexData()->GetList();
    Variant obj  = plist->First();
 
    PEyeTracker * pet = dynamic_cast<PEyeTracker*>(obj.GetComplexData()->GetObject().get());
 
    gtl::GazeData * gd = pet->GetGazeFrame();
 
    Variant obj2 = ConvertGazeData(*gd);
    delete gd;
    gd = NULL;
 
    return obj2;
#else
    return Variant(0);
#endif
}

References PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), and NULL.

GetLineBreaks()

Variant PEBLObjects::GetLineBreaks

(

Variant

v

)

Definition at line 753 of file PEBLObjects.cpp.

{
      PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in function [GetLineBreaks(<textbox>)]: ");
 
    PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(plist->First().GetComplexData()->GetObject().get());
    return textbox->GetLineBreaks();
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PlatformTextBox::GetLineBreaks(), PComplexData::GetList(), PComplexData::GetObject(), and PEAT_TEXTBOX.

GetParent()

Variant PEBLObjects::GetParent

(

Variant

v

)

Definition at line 658 of file PEBLObjects.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v0 = plist->First();
    PError::AssertType(v0,PEAT_WIDGET,"Error in GetParent(<widget>): argument is not a widget");
 
 
 
    PlatformWidget * obj = dynamic_cast<PlatformWidget*>(v0.GetComplexData()->GetObject().get());
 
    PWidget * parent = obj->GetParent();
 
    if(parent)
        {
            counted_ptr<PEBLObjectBase> tmp2 = counted_ptr<PEBLObjectBase>(parent);
            PComplexData *  pcd = new PComplexData(tmp2);
            Variant tmp = Variant(pcd);
 
            return tmp;
        }else{
 
        return Variant(0);
    }
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PWidget::GetParent(), and PEAT_WIDGET.

GetPixelColor()

Variant PEBLObjects::GetPixelColor

(

Variant

v

)

Definition at line 599 of file PEBLObjects.cpp.

{
   PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [GetPixelColor(<widget>,<x>, <y>)]: ");
    PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
 
    int x = plist->Nth(2);// plist->PopFront();
    PError::AssertType(x, PEAT_NUMBER, "Argument error in second parameter of function [GetPixelColor(<widget>,<x>, <y>, <color>)]: ");
 
    int y = plist->Nth(3);// plist->PopFront();
    PError::AssertType(y, PEAT_NUMBER, "Argument error in third parameter of function [GetPixelColor(<widget>,<x>, <y>)]: ");
 
    PColor  c1 = (widget->GetPixel(x,y));
 
    PColor * tmpColor = new PColor(c1);
 
    counted_ptr<PEBLObjectBase> myColor = counted_ptr<PEBLObjectBase>(tmpColor);
    PComplexData *  pcd = new PComplexData(myColor);
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PlatformWidget::GetPixel(), PList::Nth(), NULL, PEAT_NUMBER, and PEAT_WIDGET.

GetProperty()

Variant PEBLObjects::GetProperty

(

Variant

v

)

Definition at line 855 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    //v[1] should be a list
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in first parameter of function [GetProperty(<object>, <property>)]:  ");
 
 
    Variant prop =PEBLUtility::ToUpper( plist->Nth(2));
 
    //v[2] should be a string
    PError::AssertType(prop, PEAT_STRING, "Argument error in second parameter of function [Nth(<object>, <property>)]: ");
    return v1.GetComplexData()->GetProperty(prop);
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetProperty(), PList::Nth(), PEAT_OBJECT, PEAT_STRING, and PEBLUtility::ToUpper().

GetPropertyList()

Variant PEBLObjects::GetPropertyList

(

Variant

v

)

Definition at line 813 of file PEBLObjects.cpp.

{
    //v[1] could be a widget, or an PEBLObject in general.
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();// plist->PopFront();
    //This should also work for PEBLObjectBase things.
    //It should also work for devices and the like;
    //it probably does not currently do so.
 
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in function [GetPropertyList(<object>)]: ");
 
    //PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
    PEBLObjectBase* obj = dynamic_cast<PEBLObjectBase*>(v1.GetComplexData()->GetObject().get());
 
    return obj->GetPropertyList();
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEBLObjectBase::GetPropertyList(), and PEAT_OBJECT.

GetSize()

Variant PEBLObjects::GetSize

(

Variant

v

)

Definition at line 1022 of file PEBLObjects.cpp.

{
 
    //v[1] should have the object
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in GetSize(<widget>). ");
 
 
    PWidget * widget = dynamic_cast<PWidget*>(v1.GetComplexData()->GetObject().get());
 
    Variant width = widget->GetWidth();
    Variant height = widget->GetHeight();
 
    PList * newlist = new PList();
 
    newlist->PushBack(height);
    newlist->PushBack(width);
 
    counted_ptr<PEBLObjectBase> newlist2 = counted_ptr<PEBLObjectBase>(newlist);
    PComplexData *   pcd = new PComplexData(newlist2);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PWidget::GetHeight(), PComplexData::GetList(), PComplexData::GetObject(), PWidget::GetWidth(), NULL, PEAT_WIDGET, and PList::PushBack().

GetText()

Variant PEBLObjects::GetText

(

Variant

v

)

Definition at line 740 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in function [GetText(<textbox>)]: ");
 
    PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(plist->First().GetComplexData()->GetObject().get());
    //    plist->PopFront();
 
    return Variant(textbox->GetText());
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PTextObject::GetText(), and PEAT_TEXTBOX.

GetVocalResponseTime()

Variant PEBLObjects::GetVocalResponseTime

(

Variant

v

)

Definition at line 1272 of file PEBLObjects.cpp.

{
#ifdef PEBL_AUDIOIN
 
        //
     PList * plist = v.GetComplexData()->GetList();
 
 
     Variant v1 = plist->First();// plist->PopFront();
//     PError::AssertType(v1, PEAT_NUMBER, "Argument error in first parameter of  function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
     Variant v2 = plist->Nth(2); //plist->PopFront();
//     PError::AssertType(v2, PEAT_INTEGER, "Argument error in second parameter of function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
     Variant v3 = plist->Nth(3); //plist->PopFront();
//     PError::AssertType(v3, PEAT_NUMBER, "Argument error in third parameter of function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
//     if((((pDouble)v3>1.0 )| ((pDouble)v3<-1.0)))
//         {
//             PError::SignalWarning("amplitude in MakeSineWave(<freq>,<length>,<amplitude> will produce clipping if greater than 1.0");
//         }
 
     //v1 should be a audiout object, which has our buffer.
 
     PlatformAudioOut * po = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
     counted_ptr<AudioInfo> tmp = po->GetAudioInfo();
 
     if(!tmp.get()) {
         PError::SignalFatalError("GetVocalResponseTime: Failed to get audio info from buffer");
         return Variant(false);
     }
 
     PlatformAudioIn * myAudio = new PlatformAudioIn();
     myAudio->UseBuffer(tmp);  // Pass counted_ptr to UseBuffer (increments reference count)
     myAudio->Initialize(1);
 
     Variant out = myAudio->VoiceKey((pDouble)v2,(int)v3);
 
     // Update the PlatformAudioOut's recorded position from the shared AudioInfo
     // This is critical for SaveAudioToWaveFile() to save the correct amount of data
     po->SetRecordPos(tmp->recordpos);
 
     delete myAudio;  // Clean up PlatformAudioIn (AudioInfo is reference counted)
 
     return out;
 
#else
     PError::SignalFatalError("Audio Input not available on this version of PEBL.");
     return false;
#endif
 
}

References PList::First(), counted_ptr< X >::get(), PlatformAudioOut::GetAudioInfo(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), pDouble, and PError::SignalFatalError().

Hide()

Variant PEBLObjects::Hide

(

Variant

v

)

Definition at line 917 of file PEBLObjects.cpp.

{
 
    //v[1] should have the  widget
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in function [Hide(<widget>)]: ");
    PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
    widget->Hide();
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PWidget::Hide(), and PEAT_WIDGET.

Line()

Variant PEBLObjects::Line

(

Variant

v

)

Definition at line 1552 of file PEBLObjects.cpp.

{
    // v[1] should be X, v[2] should be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Line(<x>, <y>, <dx>, <dy>, <color>)]: ");
    int x = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Line(<x>, <y>, <dx>, <dy>, <color>)]: ");
    int y = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function  [Line(<x>, <y>, <dx>, <dy>, <color>)]: ");
    int dx = plist->Nth(3);// plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in fourth parameter of function  [Line(<x>, <y>, <dx>, <dy>, <color>)]: ");
    int dy = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_COLOR, "Argument error in fifth parameter of function  [Line(<x>, <y>, <dx>, <dy>, <color>)]: ");
    Variant color = plist->Nth(5);// plist->PopFront();
 
    counted_ptr<PEBLObjectBase> myLine = counted_ptr<PEBLObjectBase>(new PlatformLine(x,y,dx,dy,color));
    PComplexData *  pcd = new PComplexData(myLine);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 }

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

LoadAudioFile()

Variant PEBLObjects::LoadAudioFile

(

Variant

v

)

Definition at line 1983 of file PEBLObjects.cpp.

{
#ifdef PEBL_MOVIES
    // v[1] should be name of movie
    // v[2] should be width; v[3] should be height.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function [LoadAudioFile(<filename>)]: ");
    Variant filename = plist->First();
 
 
    PlatformMovie* myMovie = new PlatformMovie();
    myMovie->LoadAudioFile(filename);
 
    //    myMovie->StartPlayback();
 
    counted_ptr<PEBLObjectBase> tmpMov = counted_ptr<PEBLObjectBase>(myMovie);
    PComplexData *  pcd = new PComplexData(tmpMov);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
#else
    return false;
#endif
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), NULL, and PEAT_STRING.

LoadMovie()

Variant PEBLObjects::LoadMovie

(

Variant

v

)

Definition at line 1936 of file PEBLObjects.cpp.

{
 
#ifdef PEBL_MOVIES
 
    // v[1] should be name of movie
    // v[2] should be width; v[3] should be height.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function [LoadMovie(<filename>,<window>,<width>, <height>)]: ");
    Variant filename = plist->First();
 
    Variant v2 = plist->Nth(2); //plist->PopFront();
    PError::AssertType(v2, PEAT_WIDGET, "Argument error in second parameter of function [LoadMovie(<filename>,<window>,<width>, <height>)]: ");
 
    PlatformWindow * window = dynamic_cast<PlatformWindow*>(v2.GetComplexData()->GetObject().get());
 
 
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in second parameter of function  [LoadMovie(<filename>,<window>,<width>, <height>)]: ");
    int width = plist->Nth(3);
 
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in second parameter of function  [LoadMovie(<filename>,<window>,<width>, <height>)]: ");
    int height = plist->Nth(4);
 
 
    PlatformMovie* myMovie = new PlatformMovie();
    myMovie->LoadMovie(filename,window,width,height);
 
    //    myMovie->StartPlayback();
 
    counted_ptr<PEBLObjectBase> tmpMov = counted_ptr<PEBLObjectBase>(myMovie);
    PComplexData *  pcd = new PComplexData(tmpMov);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
#else
    return Variant(false);
#endif
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), NULL, PEAT_NUMBER, PEAT_STRING, and PEAT_WIDGET.

LoadSound()

Variant PEBLObjects::LoadSound

(

Variant

v

)

This function loads a sound from a file. It also 'initializes' it when appropriate, so that it may be used by the play functions.

Definition at line 1054 of file PEBLObjects.cpp.

{
   //v[1] should have the filename
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_STRING, "Argument error in function [LoadSound(<filename>)]: ");
 
    PlatformAudioOut * myAudio = new PlatformAudioOut();
    myAudio->LoadSoundFile(v1);
    // myAudio->Initialize();
 
    counted_ptr<PEBLObjectBase> audio2 = counted_ptr<PEBLObjectBase>(myAudio);
    PComplexData *  pcd = new PComplexData(audio2);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformAudioOut::LoadSoundFile(), NULL, and PEAT_STRING.

MakeAudioInputBuffer()

Variant PEBLObjects::MakeAudioInputBuffer

(

Variant

v

)

Definition at line 1211 of file PEBLObjects.cpp.

{
 
 
#ifdef PEBL_AUDIOIN
    //
     PList * plist = v.GetComplexData()->GetList();
 
 
     Variant v1 = plist->First(); //plist->PopFront();
     PError::AssertType(v1, PEAT_NUMBER, "Argument error in first parameter of  function [MakeAudioInputBuffer(<duration>)]: ");
 
 
     PlatformAudioIn * myAudio = new PlatformAudioIn();
     myAudio->CreateBuffer(v1);
 
     counted_ptr<AudioInfo> tmp = myAudio->ReleaseAudioOutBuffer();
     delete myAudio;
 
     //Variant out = myAudio->VoiceKey(v,(pDouble)v1,(int)v2);
     PlatformAudioOut * myOut = new PlatformAudioOut();
     myOut->LoadSoundFromData((tmp->audio),tmp->audiolen,&(tmp->spec),tmp->recordpos);
     myOut->Initialize();
 
     counted_ptr<PEBLObjectBase> audio2 = counted_ptr<PEBLObjectBase>(myOut);
     PComplexData *  pcd = new PComplexData(audio2);
     Variant tmpv = Variant(pcd);
     //     delete pcd;
     pcd=NULL;
     return tmpv;
#else
     PError::SignalFatalError("Audio Input not available on this version of PEBL.");
     return false;
#endif
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformAudioOut::Initialize(), PlatformAudioOut::LoadSoundFromData(), NULL, PEAT_NUMBER, and PError::SignalFatalError().

MakeCanvas()

Variant PEBLObjects::MakeCanvas

(

Variant

v

)

Definition at line 375 of file PEBLObjects.cpp.

{
 
    //
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be the color (optional),
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [MakeCanvas(<x>, <y>, <color>)]: ");
    int width = plist->First();// plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function [MakeCanvas(<x>, <y>, <color>)]: ");
    int height = plist->Nth(2);// plist->PopFront();
 
    PlatformCanvas * pc =NULL;
    if(plist->Length()>2)
        {
            PError::AssertType(plist->Nth(3), PEAT_COLOR, "Argument error in third parameter of function  [MakeCanvas(<x>, <y>, <color>)]: ");
 
            Variant color = plist->Nth(3);// plist->PopFront();
            pc = new PlatformCanvas(width,height,color);
 
        }else  {
        pc = new PlatformCanvas(width,height);
    }
 
    counted_ptr<PEBLObjectBase> myCanvas = counted_ptr<PEBLObjectBase>(pc);
    PComplexData *  pcd = new PComplexData(myCanvas);
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Length(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

MakeChirp()

Variant PEBLObjects::MakeChirp

(

Variant

v

)

Definition at line 1544 of file PEBLObjects.cpp.

{
    PError::SignalFatalError("Function [MakeChirp] Not implemented.");
    return Variant(false);
}

References PError::SignalFatalError().

MakeColor()

Variant PEBLObjects::MakeColor

(

Variant

v

)

Definition at line 412 of file PEBLObjects.cpp.

{
    //v[1] should be a color name
    //Access for rgb and rgba colors should be provided.
 
 
    PList * plist = v.GetComplexData()->GetList();
 
    std::string name = plist->First();// plist->PopFront();
 
    counted_ptr<PEBLObjectBase> myColor = counted_ptr<PEBLObjectBase>(new PColor(name));
    PComplexData *  pcd = new PComplexData(myColor);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and NULL.

MakeColorRGB()

Variant PEBLObjects::MakeColorRGB

(

Variant

v

)

Definition at line 431 of file PEBLObjects.cpp.

{
    //v[1] [2] [3] should be RGB values between 0 and 255
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in first parameter of function [MakeColorRGB(<red>, <green>, <blue>)]: ");
    int red  = plist->First();// plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second parameter of function [MakeColorRGB(<red>, <green>, <blue>)]: ");
    int green  = plist->Nth(2);// plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_INTEGER, "Argument error in third parameter of function [MakeColorRGB(<red>, <green>, <blue>)]: ");
    int blue  = plist->Nth(3);// plist->PopFront();
 
    PColor * tmpColor = new PColor(red,green,blue, 255);
    counted_ptr<PEBLObjectBase> myColor = counted_ptr<PEBLObjectBase>(tmpColor);
    PComplexData *  pcd = new PComplexData(myColor);
 
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, and PEAT_INTEGER.

MakeCustomObject()

Variant PEBLObjects::MakeCustomObject

(

Variant

v

)

Definition at line 2050 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    std::string name = plist->First();// plist->PopFront();
 
    PCustomObject* myobj = new PCustomObject(name);
    counted_ptr<PEBLObjectBase> tmpObject = counted_ptr<PEBLObjectBase>(myobj);
    PComplexData *  pcd = new PComplexData(tmpObject);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and NULL.

MakeEnvironment()

void PEBLObjects::MakeEnvironment	(	PEBLVideoMode	mode,
		PEBLVideoDepth	depth,
		bool	windowed,
		bool	resizeable,
		bool	unicode
	)

This function instantiates the namespace-viewable.

stimuli. It is not used directly by functions, but by the program itself.

Definition at line 113 of file PEBLObjects.cpp.

{
 
    myEnv = new PlatformEnvironment(mode, depth, windowed,resizeable,unicode);
    myEnv->Initialize();
    //Initialize the event queue.
    gEventQueue = new PlatformEventQueue();
 
}

References gEventQueue, PlatformEnvironment::Initialize(), and myEnv.

Referenced by PEBLInterpret(), and PEBLInterpret().

MakeFont()

Variant PEBLObjects::MakeFont

(

Variant

v

)

Definition at line 459 of file PEBLObjects.cpp.

{
    //v[1-6] should be have font parameters in it.
    PList * plist = v.GetComplexData()->GetList();
 
    //First comes the filename of the font.
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
    std::string name = plist->First(); //plist->PopFront();
 
    //Next comes the style, an integerized code for normal, bold, italic, underline.
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
    int style = plist->Nth(2); //plist->PopFront();
 
    //Next is the point size.
    PError::AssertType(plist->Nth(3), PEAT_INTEGER, "Argument error in third parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
    int size = plist->Nth(3);// plist->PopFront();
 
    //The next parameter should be a PColor--foreground color
    Variant vfg = plist->Nth(4); //plist->PopFront();
    PError::AssertType(vfg, PEAT_COLOR, "Argument error in fourth parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
    PColor fgcolor = *((PColor*)(vfg.GetComplexData()->GetObject().get()));
 
 
    //The next parameter should be a PColor--background color
    Variant vbg = plist->Nth(5); //plist->PopFront();
    PError::AssertType(vbg, PEAT_COLOR, "Argument error in fifth parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
 
    PColor bgcolor = *((PColor*)(vbg.GetComplexData()->GetObject().get()));
    //Whether the font should be rendered with anti-aliasing against background.
 
    PError::AssertType(plist->Nth(6), PEAT_INTEGER, "Argument error in sixth parameter of function [MakeFont(<filename>, <style>, <size>, <fg>, <bg>, <aa>)]: ");
    bool aa = plist->Nth(6);// plist->PopFront();
 
    //Make the font and wrap it up in a Variant to return it.
    PlatformFont * tmpFont = new PlatformFont(name, style, size, fgcolor, bgcolor, aa);
    counted_ptr<PEBLObjectBase> myFont = counted_ptr<PEBLObjectBase>(tmpFont);
 
    // Directly pass new PComplexData to Variant constructor - it takes ownership
    // This avoids double allocation and memory leak
    return Variant(new PComplexData(myFont));
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_COLOR, PEAT_INTEGER, and PEAT_STRING.

MakeImage()

Variant PEBLObjects::MakeImage

(

Variant

v

)

Definition at line 255 of file PEBLObjects.cpp.

{
    //v[1] should be have a filename in it.
    PList * plist = v.GetComplexData()->GetList();
    Variant name = plist->First();
    PError::AssertType(name, PEAT_STRING, "Argument error in function [MakeImage(<filename>)]: ");
    PlatformImageBox * myImageBox = new PlatformImageBox();
 
    myImageBox->LoadImage(name);
 
 
    counted_ptr<PEBLObjectBase>tmp2 = counted_ptr<PEBLObjectBase>(myImageBox);
    PComplexData *  pcd = new PComplexData(tmp2);
    Variant tmp = Variant(pcd);
 
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformImageBox::LoadImage(), NULL, and PEAT_STRING.

MakeLabel()

Variant PEBLObjects::MakeLabel

(

Variant

v

)

Definition at line 277 of file PEBLObjects.cpp.

{
    //v[1] should have text in it,
    //v[2] should have a font in it.
 
    PList * plist = v.GetComplexData()->GetList();
 
 
    //Get the text
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function [MakeLabel(<text>, <font>)]: ");
    std::string  text = (plist->First()); //plist->PopFront();
 
    //Get the font
    Variant v2 = plist->Nth(2);// plist->PopFront();
    PError::AssertType(v2, PEAT_FONT, "Argument error in second parameter of function [MakeLabel(<text>, <font>)]: ");
 
    counted_ptr<PEBLObjectBase> tmpFont = v2.GetComplexData()->GetObject();
 
 
 
    //Create the 'label'
    PlatformLabel * tmpLabel = new PlatformLabel(text,tmpFont);
    //Place it by default at 0,0
 
    tmpLabel->SetPosition(0,0);
 
    counted_ptr<PEBLObjectBase> myLabel = counted_ptr<PEBLObjectBase>(tmpLabel);
 
 
    //Return a variant containing the label.
    PComplexData *  pcd =     new PComplexData(myLabel);
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), NULL, PEAT_FONT, PEAT_STRING, and PlatformLabel::SetPosition().

MakeSawtoothWave()

Variant PEBLObjects::MakeSawtoothWave

(

Variant

v

)

Definition at line 1538 of file PEBLObjects.cpp.

{
    PError::SignalFatalError("Function [MakeSawtoothWave] Not implemented.");
    return Variant(false);
}

References PError::SignalFatalError().

MakeSineWave()

Variant PEBLObjects::MakeSineWave

(

Variant

v

)

Definition at line 1176 of file PEBLObjects.cpp.

{
 
   //v[1] should have the filename
    PList * plist = v.GetComplexData()->GetList();
 
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_NUMBER, "Argument error in first parameter of  function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
    Variant v2 = plist->Nth(2); //plist->PopFront();
    PError::AssertType(v2, PEAT_INTEGER, "Argument error in second parameter of function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
    Variant v3 = plist->Nth(3);// plist->PopFront();
    PError::AssertType(v3, PEAT_NUMBER, "Argument error in third parameter of function [MakeSineWave(<freq>,<length>,<amplitude>)]: ");
 
    if((((pDouble)v3>1.0 )| ((pDouble)v3<-1.0)))
        {
            PError::SignalWarning("amplitude in MakeSineWave(<freq>,<length>,<amplitude> will produce clipping if greater than 1.0");
        }
 
    PlatformAudioOut * myAudio = new PlatformAudioOut();
    myAudio->CreateSineWave((pDouble)v1,(int)v2, (pDouble)v3);
    myAudio->Initialize();
 
    counted_ptr<PEBLObjectBase> audio2 = counted_ptr<PEBLObjectBase>(myAudio);
    PComplexData *  pcd = new PComplexData(audio2);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PError::AssertType(), PlatformAudioOut::CreateSineWave(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformAudioOut::Initialize(), PList::Nth(), NULL, pDouble, PEAT_INTEGER, PEAT_NUMBER, and PError::SignalWarning().

MakeSquareWave()

Variant PEBLObjects::MakeSquareWave

(

Variant

v

)

Definition at line 1530 of file PEBLObjects.cpp.

{
    PError::SignalFatalError("Function [MakeSquareWave] Not implemented.");
 
    return Variant(false);
}

References PError::SignalFatalError().

MakeTextBox()

Variant PEBLObjects::MakeTextBox

(

Variant

v

)

Definition at line 317 of file PEBLObjects.cpp.

{
    //v[1] should have text in it,
    //v[2] should have a font in it.
    //v[3] should have a width in it (in pixels)
    //v[4] should have a height in it (in pixels)
 
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_STRING,"Argument error in first parameter of function [MakeTextBox(<text>,<font>,<width>,<height>)]: ");
 
    //Get the text
    string  text = (plist->First()).GetString(); //plist->PopFront();
 
    //Get the font
    Variant v2 = plist->Nth(2);// plist->PopFront();
    PError::AssertType(v2, PEAT_FONT, "Argument error in second parameter of function [MakeTextBox(<text>,<font>,<width>,<height>)]: ");
 
    counted_ptr<PEBLObjectBase> myFont = v2.GetComplexData()->GetObject();
 
 
    //Get the width
    PError::AssertType(plist->Nth(3), PEAT_NUMBER,"Argument error in third parameter of function [MakeTextBox(<text>,<font>,<width>,<height>)]: ");
    int width = plist->Nth(3);// plist->PopFront();
 
    //Get the height
    PError::AssertType(plist->Nth(4), PEAT_NUMBER,"Argument error in fourth parameter of function [MakeTextBox(<text>,<font>,<width>,<height>)]: ");
 
    int height = plist->Nth(4);// plist->PopFront();
 
   //Create the text box
    PlatformTextBox * tmptb = new PlatformTextBox(text, myFont,width,height);
 
 
    //Place it by default at 0,0
    tmptb->SetPosition(0,0);
 
 
 
    Variant lang = PEBLUtility::ToUpper(myEval->gGlobalVariableMap.RetrieveValue("gLanguage"));
 
    if((lang=="HE") | (lang == "FA") | (lang == "AR"))
        {
            tmptb->SetProperty("JUSTIFY","RIGHT");
        }
    counted_ptr<PEBLObjectBase> myTextBox = counted_ptr<PEBLObjectBase>(tmptb);
 
    //Return a variant containing the label.
    PComplexData *   pcd = new PComplexData(myTextBox);
 
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), Evaluator::gGlobalVariableMap, myEval, PList::Nth(), NULL, PEAT_FONT, PEAT_NUMBER, PEAT_STRING, VariableMap::RetrieveValue(), PlatformTextBox::SetPosition(), PlatformTextBox::SetProperty(), and PEBLUtility::ToUpper().

MakeWindow()

Variant PEBLObjects::MakeWindow

(

Variant

v

)

This function makes a new root-level window and return a variant to access it.

Definition at line 128 of file PEBLObjects.cpp.

{
 
    //Get default window size:
    Variant width = myEval->gGlobalVariableMap.RetrieveValue("gVideoWidth");
    Variant height= myEval->gGlobalVariableMap.RetrieveValue("gVideoHeight");
 
 
 
    //If there is no argument, make the black grey.
    //If there is an argument, it should be the name of a color
    Variant color;
    PColor * pcolor = NULL;
    PList * plist = NULL;
 
    if(v.IsStackSignal())
        {
            pcolor = new PColor("black");
        }
    else
        {
 
            plist = v.GetComplexData()->GetList();
            color = plist->First();
 
            if(color.IsComplexData())
                {
                    if((color.GetComplexData())->IsColor())
                        {
                            pcolor = new PColor(*((PColor*)(color.GetComplexData()->GetObject().get())));
 
                        }
                    else
                        {
 
                           PError::SignalFatalError("Wanted color or colorname as first argument of MakeWindow()");
                        }
 
                } else {
 
                PError::AssertType(color, PEAT_STRING,"Argument error in [MakeWindow(<color>)]: ");
                    pcolor = new PColor(color.GetString());
                }
               //now, get the width/height if they are there.
 
            if(plist->Length()>=2)
                {
                    width = plist->Nth(2);
                }
 
            if(plist->Length()>=3)
                {
                    height = plist->Nth(3);
                }
        }
 
 
 
 
    //Create a new window, and reference it in a counted pointer.
    PlatformWindow *  myWindow = new  PlatformWindow(myEnv);
    myWindow->SetBackgroundColor(*pcolor);
    PEBLVideoMode mode = myEnv->GetVideoMode();
    PEBLVideoDepth depth = myEnv->GetVideoDepth();
    bool windowed = myEnv->GetWindowed();
    bool resizeable = myEnv->GetResizeable();
 
    myWindow->Initialize(mode, depth, windowed,resizeable,
                         (unsigned int)(int)(width),
                         (unsigned int)(int)(height));
 
    //Add the window to the environment
    myEnv->AddWindow(myWindow);
 
    counted_ptr<PEBLObjectBase> tmp2   =  counted_ptr<PEBLObjectBase> (myWindow);
 
    PComplexData *  pcd = new PComplexData(tmp2);
 
    Variant tmp = Variant(pcd);
 
#ifdef PEBL_EMSCRIPTEN
    // Debug: Use EM_ASM to ensure output isn't optimized away
    EM_ASM({
        console.log("=== C++ MakeWindow() CALLED ===");
    });
 
    std::string tmpStr = tmp.GetString();
    EM_ASM({
        console.log("C++ MakeWindow: Variant as string: [" + UTF8ToString($0) + "]");
    }, tmpStr.c_str());
 
    EM_ASM({
        console.log("C++ MakeWindow: tmp.IsComplexData() = " + $0);
    }, tmp.IsComplexData());
#endif
 
    delete pcd;
    delete pcolor;
    pcd=NULL;
    //cout << "Deleting PCD Window in PEBLOBjects::MakeWindow\n";
    return tmp;
}

References PEnvironment::AddWindow(), PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PlatformEnvironment::GetResizeable(), Variant::GetString(), PlatformEnvironment::GetVideoDepth(), PlatformEnvironment::GetVideoMode(), PlatformEnvironment::GetWindowed(), Evaluator::gGlobalVariableMap, PlatformWindow::Initialize(), Variant::IsComplexData(), Variant::IsStackSignal(), PList::Length(), myEnv, myEval, PList::Nth(), NULL, PEAT_STRING, VariableMap::RetrieveValue(), PlatformWindow::SetBackgroundColor(), and PError::SignalFatalError().

Move()

Variant PEBLObjects::Move

(

Variant

v

)

This function moves a widget to a new location. It moves the CENTER of the object to the specified location, which is probably the most common thing we want to do.. To move some other part, use the GetSize(object) function.

Definition at line 987 of file PEBLObjects.cpp.

{
   //v[1] should have the object, v[2] should be X, v[3] shoud be Y
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [Move(<widget>,<x>, <y>)]: ");
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function [Move(<widget>,<x>, <y>)]: ");
    int x = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function [Move(<widget>,<x>, <y>)]: ");
    int y = plist->Nth(3); //plist->PopFront();
 
 
 
    if(v1.GetComplexData()->IsThickLine() )
        {
 
            PlatformThickLine * tl = dynamic_cast<PlatformThickLine*>(v1.GetComplexData()->GetObject().get());
            tl->SetPosition(x,y);
        }
    else
        {
            //This uses the widget setposition, rather than the child classes overridden version.
            PWidget * widget = dynamic_cast<PWidget*>(v1.GetComplexData()->GetObject().get());
 
 
            widget->SetPosition(x , y);
        }
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PComplexData::IsThickLine(), PList::Nth(), PEAT_NUMBER, PEAT_WIDGET, PWidget::SetPosition(), and PlatformThickLine::SetPosition().

PausePlayback()

Variant PEBLObjects::PausePlayback

(

Variant

v

)

Definition at line 2029 of file PEBLObjects.cpp.

{
 
#ifdef PEBL_MOVIES
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_MOVIE, "Argument error in first parameter of function [PausePlayback(<movie>)]: ");
 
 
    Variant v1 = plist->First();
    PlatformMovie * myMovie = dynamic_cast<PlatformMovie*>(v1.GetComplexData()->GetObject().get());
    myMovie->PausePlayback();
    return Variant(true);
#else
    return false;
#endif
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), and PEAT_MOVIE.

PlayBackground()

Variant PEBLObjects::PlayBackground

(

Variant

v

)

Definition at line 1080 of file PEBLObjects.cpp.

{
   //v[1] should have the PlatformAudioOut object
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function PlayBackground(<audio-stream>)]: ");
 
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
    myAudio->Play();
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_AUDIOOUT, and PlatformAudioOut::Play().

PlayForeground()

Variant PEBLObjects::PlayForeground

(

Variant

v

)

Definition at line 1093 of file PEBLObjects.cpp.

{
   //v[1] should have the PlatformAudioOut object
    PList * plist = v.GetComplexData()->GetList();
 
 
    Variant v1 = plist->First();// plist->PopFront();
 
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function PlayForeground(<audio-stream>)]: ");
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
    myAudio->PlayForeground();
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_AUDIOOUT, and PlatformAudioOut::PlayForeground().

Polygon()

Variant PEBLObjects::Polygon

(

Variant

v

)

Definition at line 1768 of file PEBLObjects.cpp.

{
 
    // v[1] should be X, v[2] shoud be Y
    // v[3] list-of-x-points
    // v[4] list-of-y-points
    // v[5] should be should be color
    // v[6] should be whether filled
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Polygon(<x>, <y>, <xpoints>, <ypoints>, <color>, <filled>)]: ");
    int x = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Polygon(<x>, <y>,<xpoints>, <ypoints>, <color>, <filled>)]: ");
    int y = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_LIST, "Argument error in third parameter of function  [Polygon(<x>, <y>, <xpoints>, <ypoints>, <color>, <filled>)]: ");
    Variant xpoints = plist->Nth(3); //plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_LIST, "Argument error in fourth parameter of function  [Polygon(<x>, <y>, <xpoints>, <ypoints>, <color>, <filled>)]: ");
    Variant ypoints = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_COLOR, "Argument error in fifth parameter of function  [Polygon(<x>, <y>, <xpoints>, <ypoints>, <color>, <filled>)]: ");
    Variant color = plist->Nth(5);// plist->PopFront();
 
    PError::AssertType(plist->Nth(6), PEAT_NUMBER, "Argument error in sixth parameter of function  [Polygon(<x>, <y>, <xpoints>, <ypoints>, <color>, <filled>)]: ");
    int filled = plist->Nth(6);// plist->PopFront();
 
    counted_ptr<PEBLObjectBase> myPolygon = counted_ptr<PEBLObjectBase>(new PlatformPolygon(x,y,xpoints,ypoints,color,filled));
    PComplexData *  pcd = new PComplexData(myPolygon);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, PEAT_LIST, and PEAT_NUMBER.

PrintProperties()

Variant PEBLObjects::PrintProperties

(

Variant

v

)

Definition at line 794 of file PEBLObjects.cpp.

{
    //v[1] could be a widget, or an PEBLObject in general.
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();// plist->PopFront();
    //This should also work for PEBLObjectBase things.
    //It should also work for devices and the like;
    //it probably does not currently do so.
 
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in function [PrintProperties(<object>)]: ");
 
    //PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
    PEBLObjectBase* obj = dynamic_cast<PEBLObjectBase*>(v1.GetComplexData()->GetObject().get());
    obj->PrintProperties(std::cout);
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_OBJECT, and PEBLObjectBase::PrintProperties().

PropertyExists()

Variant PEBLObjects::PropertyExists

(

Variant

v

)

Definition at line 873 of file PEBLObjects.cpp.

{
 
 
    PList * plist = v.GetComplexData()->GetList();
 
 
    //v[1] should be a list
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in first parameter of function [PropertyExists(<object>, <property>)]:  ");
 
 
    Variant prop =PEBLUtility::ToUpper( plist->Nth(2));
 
 
    //v[2] should be a string
    PError::AssertType(prop, PEAT_STRING, "Argument error in second parameter of function [PropertyExists(<object>, <property>)]: ");
 
    return v1.GetComplexData()->PropertyExists(prop);
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_OBJECT, PEAT_STRING, PComplexData::PropertyExists(), and PEBLUtility::ToUpper().

RecordToBuffer()

Variant PEBLObjects::RecordToBuffer

(

Variant

v

)

Definition at line 1325 of file PEBLObjects.cpp.

{
#ifdef PEBL_AUDIOIN
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First();
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function [RecordToBuffer(<audio-buffer>, [<duration-ms>])]: ");
 
    // v1 should be an audioout object, which has our buffer
    PlatformAudioOut * po = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
    counted_ptr<AudioInfo> tmp = po->GetAudioInfo();
 
    if(!tmp.get()) {
        PError::SignalFatalError("RecordToBuffer: Failed to get audio info from buffer");
        return Variant(false);
    }
 
    std::cout << "====================================\n";
    std::cout << "RecordToBuffer() Debug Info:\n";
    std::cout << "Buffer address: " << (void*)tmp->audio << "\n";
    std::cout << "Buffer size: " << tmp->audiolen << " bytes\n";
    std::cout << "Sample rate: " << tmp->spec.freq << " Hz\n";
    std::cout << "Bytes per sample: " << tmp->bytesPerSample << "\n";
 
    // CRITICAL: Reset recordpos to 0 before recording!
    tmp->recordpos = 0;
 
    // Create audio input device and attach the buffer
    PlatformAudioIn * myAudio = new PlatformAudioIn();
    myAudio->UseBuffer(tmp);  // Pass counted_ptr to UseBuffer (increments reference count)
    myAudio->Initialize(1);  // Type 1 = fill callback
 
    // Start recording
    myAudio->RecordToBuffer();
 
    // Check if optional duration parameter was provided
    unsigned int durationMs;
    if(plist->Length() >= 2) {
        // Use provided duration
        Variant v2 = plist->Nth(2);
        PError::AssertType(v2, PEAT_NUMBER, "Argument error in second parameter of function [RecordToBuffer(<audio-buffer>, [<duration-ms>])]: ");
        durationMs = (unsigned int)(int)v2;
        std::cout << "Using specified duration: " << durationMs << " ms\n";
    } else {
        // Calculate duration based on buffer size and sample rate
        // audiolen is in bytes, bytesPerSample tells us bytes per sample
        // So total samples = audiolen / bytesPerSample
        // Time in ms = (samples / sampleRate) * 1000
        unsigned int totalSamples = tmp->audiolen / tmp->bytesPerSample;
        unsigned int sampleRate = tmp->spec.freq;
        durationMs = (totalSamples * 1000) / sampleRate;
        std::cout << "Using buffer-based duration: " << durationMs << " ms\n";
    }
 
    std::cout << "Total buffer samples: " << (tmp->audiolen / tmp->bytesPerSample) << "\n";
    std::cout << "Recording for: " << durationMs << " ms\n";
    std::cout << "Recording started...\n";
 
    // Wait for the specified/calculated duration
    PEBLEnvironment::myTimer.Sleep(durationMs);
 
    // Pause recording (device remains open until myAudio is deleted)
    myAudio->PauseAudioMonitor();
 
    std::cout << "Recording paused.\n";
    std::cout << "Buffer recordpos: " << tmp->recordpos << "\n";
 
    // Check if buffer actually contains data
    int nonZeroCount = 0;
    for(unsigned int i = 0; i < tmp->recordpos && i < 1000; i++) {
        if(tmp->audio[i] != 0) nonZeroCount++;
    }
    std::cout << "First 1000 bytes: " << nonZeroCount << " non-zero values\n";
 
    // Print first few samples as Sint16
    Sint16* samples = (Sint16*)tmp->audio;
    std::cout << "First 10 samples: ";
    for(int i = 0; i < 10; i++) {
        std::cout << samples[i] << " ";
    }
    std::cout << "\n";
 
    // CRITICAL: Update the PlatformAudioOut object with the actual recorded size
    // so that SaveBufferToWave() will save the correct amount
    po->SetRecordPos(tmp->recordpos);
 
    std::cout << "====================================\n";
 
    delete myAudio;  // Clean up PlatformAudioIn (AudioInfo is reference counted)
 
    return Variant(true);
 
#else
    PError::SignalFatalError("Audio Input not available on this version of PEBL.");
    return Variant(false);
#endif
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), PlatformAudioOut::GetAudioInfo(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Length(), PEBLEnvironment::myTimer, PList::Nth(), PEAT_AUDIOOUT, PEAT_NUMBER, PError::SignalFatalError(), and PlatformTimer::Sleep().

Rectangle()

Variant PEBLObjects::Rectangle

(

Variant

v

)

Definition at line 1621 of file PEBLObjects.cpp.

{
 
    //
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color, v[6] should be whether it is filled.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    int x = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    int y = plist->Nth(2);// plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function  [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    int dx = plist->Nth(3);// plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in fourth parameter of function  [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    int dy = plist->Nth(4); //plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_COLOR, "Argument error in fifth parameter of function  [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    Variant color = plist->Nth(5);// plist->PopFront();
 
    PError::AssertType(plist->Nth(6), PEAT_NUMBER, "Argument error in sixth parameter of function  [Rectangle(<x>, <y>, <dx>, <dy>, <color>, <filled>)]: ");
    int filled = plist->Nth(6); //plist->PopFront();
 
    counted_ptr<PEBLObjectBase> myRect = counted_ptr<PEBLObjectBase>(new PlatformRectangle(x,y,dx,dy,color,filled));
    PComplexData *  pcd = new PComplexData(myRect);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

RemoveObject()

Variant PEBLObjects::RemoveObject

(

Variant

v

)

This removes a child widget from the parent widget.

Definition at line 534 of file PEBLObjects.cpp.

{
    //v[1] should have the child widget
    //v[2] should have the parent widget
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [RemoveObject(<child-widget>, <parent-widget>)]: ");
 
 
    PlatformWidget * child = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
    Variant v2 = plist->Nth(2);//plist->PopFront();
    PError::AssertType(v2, PEAT_WIDGET, "Argument error in second parameter of function [RemoveObject(<child-widgett>, <parent-widget>)]: ");
 
 
    PlatformWidget * parent = dynamic_cast<PlatformWidget*>(v2.GetComplexData()->GetObject().get());
 
    //Removing subwidgets does not destroy the Variant, so we don't need to
    // worry about a memory leak here, even though we are using raw pointers.
    //however,we need to check whether the child is actually a member of the parent,
    //otherwise things could go bad.
 
    if(!child | !parent)
        {
            return Variant(false);
        }
 
    if(! child->IsParent(parent))
        {
            PError::SignalFatalError("Trying to remove object from another object that is not its parent\n");
        }
 
 
    parent->RemoveSubWidget(child);
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PWidget::IsParent(), PList::Nth(), PEAT_WIDGET, PlatformWidget::RemoveSubWidget(), and PError::SignalFatalError().

ResizeWindow()

Variant PEBLObjects::ResizeWindow

(

Variant

v

)

Definition at line 233 of file PEBLObjects.cpp.

{
 
       PList * plist = v.GetComplexData()->GetList();
 
       Variant v2 = plist->First(); //plist->PopFront();
       PError::AssertType(v2, PEAT_WINDOW, "Argument error in first argument of function [ResizeWindow(<window>,<w>,<h>)]: ");
       PlatformWindow * myWindow = dynamic_cast<PlatformWindow*>(v2.GetComplexData()->GetObject().get());
 
       Variant w = plist->Nth(2);
 
       Variant h = plist->Nth(3);
       PError::AssertType(w, PEAT_NUMBER, "Argument error in second argument of function [ResizeWindow(<window>,<w>,<h>)]: ");
       PError::AssertType(h, PEAT_NUMBER, "Argument error in third argument of function [ResizeWindow(<window>,<w>,<h>)]: ");
 
 
       myWindow->Resize(w,h);
       return Variant(1);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_NUMBER, PEAT_WINDOW, and PlatformWindow::Resize().

RotoZoom()

Variant PEBLObjects::RotoZoom

(

Variant

v

)

Definition at line 1850 of file PEBLObjects.cpp.

{
 
    // v[1] should be an object,
    // v[2] shoud be rotation
    // v[3] should be xzoom, v[4] should be yzoom
    // v[5] should be whether to anti-alias.
 
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_WIDGET, "Argument error in first parameter of function [ROTOZOOM(<widget>,<rotation>,<xzoom>, <yzoom>, <smooth>)]: ");
    Variant v1 = plist->First(); //plist->PopFront();
    PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
 
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function [ROTOZOOM(<widget>,<rotation>,<xzoom>, <yzoom>, <smooth>)]: ");
    Variant r = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function [ROTOZOOM(<widget>,<rotation>,<xzoom>, <yzoom>, <smooth>)]: ");
    Variant x = plist->Nth(3); //plist->PopFront();
 
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in fourth parameter of function [ROTOZOOM(<widget>,<rotation>,<xzoom>, <yzoom>, <smooth>)]: ");
    Variant y = plist->Nth(4); //plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_NUMBER, "Argument error in fifth parameter of function [ROTOZOOM(<widget>,<rotation>,<xzoom>, <yzoom>, <smooth>)]: ");
    int smooth = plist->Nth(5);// plist->PopFront();
 
    bool result = widget->RotoZoom((pDouble)r,(pDouble)x,(pDouble)y,smooth);
 
 
    if(!result)PError::SignalFatalError("Rotozoom failed.");
 
    return v1.GetComplexData();
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), pDouble, PEAT_NUMBER, PEAT_WIDGET, PlatformWidget::RotoZoom(), and PError::SignalFatalError().

SaveAudioToWaveFile()

Variant PEBLObjects::SaveAudioToWaveFile

(

Variant

v

)

Definition at line 1249 of file PEBLObjects.cpp.

{
 
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_STRING, "Argument error in first parameter of function [SaveAudioToWaveFile(<filename>,<audio-buffer>)]: ");
 
 
    Variant v2 = plist->Nth(2);// plist->PopFront();
    PError::AssertType(v2, PEAT_AUDIOOUT, "Argument error second parameter of function [SaveAudioToWaveFile(<filename>,<audio-buffer>)]: ");
 
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v2.GetComplexData()->GetObject().get());
    myAudio->SaveBufferToWave(v1);
    return Variant(true);
 
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_AUDIOOUT, PEAT_STRING, and PlatformAudioOut::SaveBufferToWave().

SetCursorPosition()

Variant PEBLObjects::SetCursorPosition

(

Variant

v

)

Definition at line 628 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in first argument of function [SetCursorPosition(<textbox>, <position>)]: ");
 
 
    counted_ptr<PEBLObjectBase> textbox = plist->First().GetComplexData()->GetObject(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second argument of function [SetCursorPosition(<textbox>, <position>)]: ");
    Variant v1 = plist->Nth(2);// plist->PopFront();
 
    (dynamic_cast<PTextBox *>(textbox.get()))->SetCursorPosition(v1.GetInteger());
 
    return Variant(1);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), Variant::GetInteger(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_NUMBER, and PEAT_TEXTBOX.

SetEditable()

Variant PEBLObjects::SetEditable

(

Variant

v

)

Definition at line 684 of file PEBLObjects.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in first argument of function [SetEditable(<textbox>, <boolean>)]: ");
 
    PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(plist->Nth(1).GetComplexData()->GetObject().get()); //plist->PopFront();
 
    Variant v1 = plist->Nth(2); //plist->PopFront();
 
    if(bool(v1))
        {
            textbox->SetEditable(true);
            return Variant(true);
        }
    else
        {
            textbox->SetEditable(false);
            return Variant(false);
        }
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_TEXTBOX, and PlatformTextBox::SetEditable().

SetEyeTrackerHandler()

Variant PEBLObjects::SetEyeTrackerHandler

(

Variant

v

)

Definition at line 2114 of file PEBLObjects.cpp.

{
 
 
#ifdef PEBL_GAZELIB
 
 
    PList * plist = v.GetComplexData()->GetList();
    Variant obj  = plist->First();
 
    PEyeTracker * pet = dynamic_cast<PEyeTracker*>(obj.GetComplexData()->GetObject().get());
    Variant fname = plist->Nth(2);
 
    PEBLGaze * pg = new PEBLGaze(fname);
#endif
 
    return Variant(1);
 
}

References PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), and PList::Nth().

SetFont()

Variant PEBLObjects::SetFont

(

Variant

v

)

Definition at line 763 of file PEBLObjects.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
 
    //This can be used on either a textbox or a label.
    Variant v1 = plist->First();// plist->PopFront();
    PError::AssertType(v1, PEAT_TEXTOBJECT, "Argument error in first argument of function [SetFont(<object>, <font>)]: ");
    //Get the text to change it to.
    Variant v2 = plist->Nth(2);//First(); plist->PopFront();
    PError::AssertType(v2, PEAT_FONT, "Argument error in second argument of function [SetFont(<object>, <font>)]: ");
 
 
    //Make the change.
    if(v1.GetComplexData()->IsLabel() )
        {
            PlatformLabel * label = dynamic_cast<PlatformLabel*>(v1.GetComplexData()->GetObject().get());
 
            counted_ptr<PEBLObjectBase>tmpFont = v2.GetComplexData()->GetObject();
            label->SetFont(tmpFont);
        }
    else
        {
            PlatformTextBox * textbox =dynamic_cast<PlatformTextBox*>(v1.GetComplexData()->GetObject().get());
            counted_ptr<PEBLObjectBase> tmpFont = v2.GetComplexData()->GetObject();
            textbox->SetFont(tmpFont);
        }
 
    return Variant(1);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PComplexData::IsLabel(), PList::Nth(), PEAT_FONT, PEAT_TEXTOBJECT, PlatformLabel::SetFont(), and PlatformTextBox::SetFont().

SetPanning()

Variant PEBLObjects::SetPanning

(

Variant

v

)

Definition at line 1124 of file PEBLObjects.cpp.

{
 
    //v[1] should have the PlatformAudioOut object.
     PList * plist = v.GetComplexData()->GetList();
     Variant v1 = plist->First(); //plist->PopFront();
 
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function SetPanning(<audio-stream>,<left>,<right>)]: ");
 
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
 
 
#ifdef PEBL_MIXER
 
    Variant left = (plist->Nth(2));
    Variant right = (plist->Nth(3));
 
    PError::AssertType(left,PEAT_NUMBER,"In SetPanning, <left> must be a number between 0 and 1");
    PError::AssertType(right,PEAT_NUMBER,"In SetPanning, <right> must be a number between 0 and 1");
 
    myAudio->SetPanning((pDouble)(left),
                        (pDouble)(right));
#endif
 
    return Variant(true);
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), pDouble, PEAT_AUDIOOUT, PEAT_NUMBER, and PAudioOut::SetPanning().

SetPlayRepeats()

Variant PEBLObjects::SetPlayRepeats

(

Variant

v

)

Definition at line 1153 of file PEBLObjects.cpp.

{
    //v[1] should have the PlatformAudioOut object.
     PList * plist = v.GetComplexData()->GetList();
     Variant v1 = plist->First(); //plist->PopFront();
 
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function SetPlayRepeats(<audio-stream>,<repeats>)]: ");
 
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
 
 
    Variant repeats = (plist->Nth(2));
 
 
    PError::AssertType(repeats,PEAT_INTEGER,"In SetPlayRepeats, <times> must be an integer");
#ifdef PEBL_MIXER
    myAudio->SetRepeats(repeats);
#endif
    return Variant(true);
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_AUDIOOUT, and PEAT_INTEGER.

SetPoint()

Variant PEBLObjects::SetPoint

(

Variant

v

)

Definition at line 573 of file PEBLObjects.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in first parameter of function [SetPoint(<widget>,<x>, <y>, <color>)]: ");
    PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
 
    int x = plist->Nth(2);// plist->PopFront();
    PError::AssertType(x, PEAT_NUMBER, "Argument error in second parameter of function [SetPoint(<widget>,<x>, <y>, <color>)]: ");
 
    int y = plist->Nth(3);// plist->PopFront();
    PError::AssertType(y, PEAT_NUMBER, "Argument error in third parameter of function [SetPoint(<widget>,<x>, <y>, <color>)]: ");
 
    Variant color = plist->Nth(4);// plist->PopFront();
    PError::AssertType(color, PEAT_COLOR, "Argument error in fourth parameter of function  [SetPoint(<widget>,<x>, <y>, <color>)]: ");
 
 
    PColor pcolor = *((PColor*)(color.GetComplexData()->GetObject().get()));
    widget->SetPoint(x,y,pcolor);
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_COLOR, PEAT_NUMBER, PEAT_WIDGET, and PlatformWidget::SetPoint().

SetProperty()

Variant PEBLObjects::SetProperty

(

Variant

v

)

Definition at line 831 of file PEBLObjects.cpp.

{
 
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in first parameter of function [SetProperty(<object>,<property>,<value>)]:  ");
 
 
    Variant v2 = plist->Nth(2);
    PError::AssertType(v2, PEAT_STRING, "Argument error in second parameter of function [SetProperty(<object>,<property>,<value>)]:  ");
 
 
 
 
    Variant v3 = plist->Nth(3);
    //No need to check v3 for type.
 
    v1.GetComplexData()->SetProperty(PEBLUtility::ToUpper(v2),v3);
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_OBJECT, PEAT_STRING, PComplexData::SetProperty(), and PEBLUtility::ToUpper().

SetText()

Variant PEBLObjects::SetText

(

Variant

v

)

Definition at line 709 of file PEBLObjects.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
 
 
    //This can be used on either a textbox or a label.
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_TEXTOBJECT, "Argument error in first argument of function [SetText(<object>, <text>)]: ");
    //Get the text to change it to.
    Variant v2 = plist->Nth(2);//First(); plist->PopFront();
    PError::AssertType(v2, PEAT_STRING, "Argument error in second argument of function [SetText(<object>, <text>)]: ");
 
 
    //Make the change.
    if(v1.GetComplexData()->IsLabel() )
        {
            PlatformLabel * label = dynamic_cast<PlatformLabel*>(v1.GetComplexData()->GetObject().get());
            label->SetText(v2.GetString());
        }
    else
        {
            PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(v1.GetComplexData()->GetObject().get());
            textbox->SetText(v2.GetString());
 
        }
 
    return Variant(1);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), Variant::GetString(), PComplexData::IsLabel(), PList::Nth(), PEAT_STRING, PEAT_TEXTOBJECT, PlatformLabel::SetText(), and PlatformTextBox::SetText().

Show()

Variant PEBLObjects::Show

(

Variant

v

)

Definition at line 897 of file PEBLObjects.cpp.

{
 
    //v[1] should have the  widget
    PList * plist = v.GetComplexData()->GetList();
 
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_WIDGET, "Argument error in function [Show(<widget>)]: ");
 
 
    PlatformWidget * widget = dynamic_cast<PlatformWidget*>(v1.GetComplexData()->GetObject().get());
 
    widget->Show();
 
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_WIDGET, and PWidget::Show().

Square()

Variant PEBLObjects::Square

(

Variant

v

)

Definition at line 1661 of file PEBLObjects.cpp.

{
    // v[1] should be X, v[2] shoud be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color, v[6] should be whether it is filled.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [Square(<x>, <y>, <size>, <color>, <filled>)]: ");
    int x = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function  [Square(<x>, <y>, <size>, <color>, <filled>)]: ");
    int y = plist->Nth(2);// plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function  [Square(<x>, <y>, <size>, <color>, <filled>)]: ");
    int size = plist->Nth(3); //plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_COLOR, "Argument error in fourth parameter of function  [Square(<x>, <y>, <size>, <color>, <filled>)]: ");
 
    Variant color = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_NUMBER, "Argument error in fifth parameter of function  [Square(<x>, <y>, <size>, <color>, <filled>)]: ");
    int filled = plist->Nth(5);// plist->PopFront();
 
    counted_ptr<PEBLObjectBase> mySquare = counted_ptr<PEBLObjectBase>(new PlatformSquare(x,y,size,color,filled));
    PComplexData *  pcd = new PComplexData(mySquare);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

StartAudioMonitor()

Variant PEBLObjects::StartAudioMonitor

(

Variant

v

)

Definition at line 1426 of file PEBLObjects.cpp.

{
#ifdef PEBL_AUDIOIN
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();
    PError::AssertType(v1, PEAT_NUMBER, "Argument error in function [StartAudioMonitor(<buffer-size-ms>)]: ");
 
    int bufferSizeMs = (int)v1;
 
    // Create audio input device with ring buffer
    PlatformAudioIn * myAudio = new PlatformAudioIn();
    myAudio->CreateBuffer(bufferSizeMs);
    myAudio->Initialize(2);  // Type 2 = ring buffer callback (AudioInCallbackLoop)
    myAudio->RecordToBuffer();  // Start recording
 
    std::cout << "Audio monitor started with " << bufferSizeMs << "ms ring buffer\n";
 
    // Wrap in counted_ptr and return as PEBL object
    counted_ptr<PEBLObjectBase> audio2 = counted_ptr<PEBLObjectBase>(myAudio);
    PComplexData * pcd = new PComplexData(audio2);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 
#else
    PError::SignalFatalError("Audio Input not available on this version of PEBL.");
    return Variant(false);
#endif
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), NULL, PEAT_NUMBER, and PError::SignalFatalError().

StartPlayback()

Variant PEBLObjects::StartPlayback

(

Variant

v

)

Definition at line 2012 of file PEBLObjects.cpp.

{
#ifdef PEBL_MOVIES
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_MOVIE, "Argument error in first parameter of function [StartPlayback(<movie>)]: ");
 
    Variant v1 = plist->First();
    PlatformMovie * myMovie = dynamic_cast<PlatformMovie*>(v1.GetComplexData()->GetObject().get());
    myMovie->StartPlayback();
    return Variant(true);
#else
    return false;
#endif
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), and PEAT_MOVIE.

Stop()

Variant PEBLObjects::Stop

(

Variant

v

)

Definition at line 1108 of file PEBLObjects.cpp.

{
    //v[1] should have the PlatformAudioOut object.
     PList * plist = v.GetComplexData()->GetList();
 
     Variant v1 = plist->First(); //plist->PopFront();
 
    PError::AssertType(v1, PEAT_AUDIOOUT, "Argument error in function Stop(<audio-stream>)]: ");
 
    PlatformAudioOut * myAudio = dynamic_cast<PlatformAudioOut*>(v1.GetComplexData()->GetObject().get());
 
    myAudio->Stop();
    return Variant(true);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_AUDIOOUT, and PlatformAudioOut::Stop().

StopAudioMonitor()

Variant PEBLObjects::StopAudioMonitor

(

Variant

v

)

Definition at line 1459 of file PEBLObjects.cpp.

{
#ifdef PEBL_AUDIOIN
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();
    // Note: We can't use PEAT_AUDIOIN type check since PlatformAudioIn doesn't have that type
    // Instead check for generic object type
    PError::AssertType(v1, PEAT_OBJECT, "Argument error in function [StopAudioMonitor(<monitor>)]: ");
 
    PlatformAudioIn * myAudio = dynamic_cast<PlatformAudioIn*>(v1.GetComplexData()->GetObject().get());
    if(!myAudio) {
        PError::SignalFatalError("Invalid audio monitor object in StopAudioMonitor()");
        return Variant(false);
    }
 
    // CloseAudio() does full cleanup: pause + close SDL device + clear globals
    // This is critical to free the audio hardware for subsequent GetVocalResponseTime() calls
    myAudio->CloseAudio();
    std::cout << "Audio monitor stopped and closed\n";
    return Variant(true);
 
#else
    PError::SignalFatalError("Audio Input not available on this version of PEBL.");
    return Variant(false);
#endif
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PEAT_OBJECT, and PError::SignalFatalError().

ThickLine()

Variant PEBLObjects::ThickLine

(

Variant

v

)

Definition at line 1584 of file PEBLObjects.cpp.

{
    // v[1] should be X, v[2] should be Y
    // v[3] should be dx, v[4] should be dy
    // v[5] should be the color.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    int x1 = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    int y1 = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in third parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    int x2 = plist->Nth(3);// plist->PopFront();
 
    PError::AssertType(plist->Nth(4), PEAT_NUMBER, "Argument error in fourth parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    int y2 = plist->Nth(4);// plist->PopFront();
 
    PError::AssertType(plist->Nth(5), PEAT_NUMBER, "Argument error in fifth parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    int thickness = plist->Nth(5);// plist->PopFront();
 
 
    PError::AssertType(plist->Nth(6), PEAT_COLOR, "Argument error in sixth parameter of function [ThickLine(<x1>, <y1>, <x2>, <y2>, <thickness>,<color>)]: ");
    Variant color = plist->Nth(6);// plist->PopFront();
 
    counted_ptr<PEBLObjectBase> myLine = counted_ptr<PEBLObjectBase>(new PlatformThickLine(x1,y1,x2,y2,thickness,color));
    PComplexData *  pcd = new PComplexData(myLine);
    Variant tmp = Variant(pcd);
    delete pcd;
    pcd=NULL;
    return tmp;
 }

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), NULL, PEAT_COLOR, and PEAT_NUMBER.

Variable Documentation

FunctionTable

PEBL_Function_Type PEBLObjects::FunctionTable[]

Definition at line 207 of file Functions.h.

        {
 
            {(char*)"MAKEWINDOW",        MakeWindow, 0, 3},
            {(char*)"RESIZEWINDOW",      ResizeWindow, 3, 3},
            {(char*)"MAKEIMAGE",         MakeImage,  1, 1},
            {(char*)"MAKETEXTBOX",       MakeTextBox, 4, 4},
            {(char*)"MAKECANVAS",        MakeCanvas, 2,3},
            {(char*)"MAKECOLOR",         MakeColor,  1, 1},
            {(char*)"MAKECOLORRGB",      MakeColorRGB, 3, 3},
            {(char*)"MAKEFONT",          MakeFont,   6, 6},
            {(char*)"MAKELABEL",         MakeLabel,  2, 2},
            {(char*)"MOVE",              Move,       3, 3},
            {(char*)"GETSIZE",           GetSize,    1, 1},
            {(char*)"ADDOBJECT",         AddObject,  2, 2},
            {(char*)"REMOVEOBJECT",      RemoveObject,  2, 2},
            {(char*)"SETPOINT",          SetPoint, 4,4},
            {(char*)"GETPIXELCOLOR",     GetPixelColor,3,3},
            {(char*)"SETCURSORPOSITION", SetCursorPosition, 2,2},
            {(char*)"GETCURSORPOSITION", GetCursorPosition, 1,1},
            {(char*)"GETPARENT",         GetParent,1,1},
            {(char*)"SETEDITABLE",       SetEditable,  2,2},
            {(char*)"SETTEXT",           SetText,      2,2},
            {(char*)"GETTEXT",           GetText,      1,1},
            {(char*)"GETLINEBREAKS",     GetLineBreaks, 1,1},
            {(char*)"SETFONT",           SetFont,      2,2},
            {(char*)"SHOW",              Show,       1, 1},
 
            {(char*)"PRINTPROPERTIES",   PrintProperties,  1, 1},
            {(char*)"GETPROPERTYLIST",   GetPropertyList,  1, 1},
            {(char*)"SETPROPERTY",       SetProperty,  3, 3},
            {(char*)"GETPROPERTY",       GetProperty,  2, 2},
            {(char*)"PROPERTYEXISTS",    PropertyExists,  2, 2},
 
            {(char*)"HIDE",              Hide,       1, 1},
            {(char*)"DRAW",              Draw,       0, 1},
            {(char*)"DRAWFOR",           DrawFor,    2, 2},
 
            {(char*)"SETPIXEL",          SetPoint, 4,4},
            {(char*)"LOADSOUND",         LoadSound,        1, 1},
            {(char*)"PLAYBACKGROUND",    PlayBackground,   1, 1},
            {(char*)"PLAYFOREGROUND",    PlayForeground,   1, 1},
            {(char*)"STOP",              Stop,             1, 1},
            {(char*)"SETPANNING",        SetPanning,       3, 3},
            {(char*)"SETPLAYREPEATS",    SetPlayRepeats,   2, 2},
            {(char*)"MAKESINEWAVE",      MakeSineWave,     3, 3},
 
            {(char*)"MAKESQUAREWAVE",    MakeSquareWave,   2, 2},
            {(char*)"MAKESAWTOOTHWAVE",  MakeSawtoothWave, 2, 2},
            {(char*)"MAKECHIRP",         MakeChirp,        3, 3},
 
 
            {(char*)"MAKEAUDIOINPUTBUFFER", MakeAudioInputBuffer, 1,1},
            {(char*)"SAVEAUDIOTOWAVEFILE",   SaveAudioToWaveFile, 2,2},
            {(char*)"GETVOCALRESPONSETIME", GetVocalResponseTime, 3,3},
            {(char*)"RECORDTOBUFFER",       RecordToBuffer,      1,2},
            {(char*)"STARTAUDIOMONITOR",    StartAudioMonitor,   1,1},
            {(char*)"STOPAUDIOMONITOR",     StopAudioMonitor,    1,1},
            {(char*)"GETAUDIOSTATS",        GetAudioStats,       2,2},
 
            {(char*)"LINE",              Line,            5, 5},
            {(char*)"THICKLINE",         ThickLine,       6, 6},
 
            {(char*)"RECTANGLE",         Rectangle,       6, 6},
            {(char*)"SQUARE",            Square,          5, 5},
 
            {(char*)"ELLIPSE",           Ellipse,      6, 6},
            {(char*)"CIRCLE",            Circle,       5, 5},
            {(char*)"POLYGON",           Polygon,      6, 6},
            {(char*)"BEZIER",           Bezier,      6, 6},
 
            {(char*)"ROTOZOOM",          RotoZoom,     5,5},
 
            {(char*)"LOADMOVIE",      LoadMovie,     4,4},
            {(char*)"LOADAUDIOFILE",  LoadAudioFile, 1,1},
            {(char*)"STARTPLAYBACK",   StartPlayback,  1,1},
            {(char*)"PAUSEPLAYBACK",   PausePlayback,  1,1},
 
            {(char*)"MAKECUSTOMOBJECT",   MakeCustomObject,  1,1},
            {(char*)"CONNECTEYETRACKER",   ConnectEyeTracker,  0,0},
            {(char*)"GETEYEOBJECT",        GetEyeObject,  1,1},
            {(char*)"SETEYETRACKERHANDLER", SetEyeTrackerHandler, 2,2},
 
            {0,            0,  0, 0}
        };

Referenced by Loader::LoadLibraryFunctions().