Scheme_Object*
spark_fltk_tile::fl_tile(int argc, Scheme_Object** argv)
{
DEFAULT_RET_INIT;
int x = 0; int y = 0; int w = 0; int h = 0;
spark::Utils::int_from_scheme_long(argv[0], x);
spark::Utils::int_from_scheme_long(argv[1], y);
spark::Utils::int_from_scheme_long(argv[2], w);
spark::Utils::int_from_scheme_long(argv[3], h);
std::string title;
if (argv[4] != scheme_null)
{
Scheme_Object* str = scheme_char_string_to_byte_string(argv[4]);
title = SCHEME_BYTE_STR_VAL(str);
}
Fl_Tile* tile = new Fl_Tile(x, y, w, h);
if (title.length() > 0)
tile->copy_label(title.c_str());
Fltk_tag t = FL_WIDGET_TAG;
spark_fltk::Widget* widget = new spark_fltk::Widget;
tile->argument(reinterpret_cast<long>(widget));
{
Scheme_Object* tag = 0;
MZ_GC_DECL_REG(1);
MZ_GC_VAR_IN_REG(0, tag);
MZ_GC_REG();
tag = scheme_make_integer(t);
MZ_GC_UNREG();
_ret_ = scheme_make_cptr(tile, tag);
}
DEFAULT_RET_FINISH;
}
Scheme_Object*
spark_fltk_tile::resizable(int argc, Scheme_Object** argv)
{
DEFAULT_RET_INIT;
Fl_Tile* tile = _get_fl_tile(argc, argv, 0);
if (tile)
{
Fl_Widget* w = _get_widget(argc, argv, 1);
if (w)
{
tile->resizable(w);
_ret_ = scheme_true;
}
}
DEFAULT_RET_FINISH;
}
Scheme_Object*
spark_fltk_tile::position(int argc, Scheme_Object** argv)
{
DEFAULT_RET_INIT;
Fl_Tile* tile = _get_fl_tile(argc, argv, 0);
if (tile)
{
int from_x = 0;
int from_y = 0;
int to_x = 0;
int to_y = 0;
spark::Utils::int_from_scheme_long(argv[1], from_x);
spark::Utils::int_from_scheme_long(argv[2], from_y);
spark::Utils::int_from_scheme_long(argv[3], to_x);
spark::Utils::int_from_scheme_long(argv[4], to_y);
tile->position(from_x, from_y, to_x, to_y);
_ret_ = scheme_true;
}
DEFAULT_RET_FINISH;
}
ModelerUserInterface::ModelerUserInterface() {
// Make this instance the current one
instance = this;
// Initialize pointers to NULL
m_nativeChooser = NULL;
model = NULL;
currentGroup = NULL;
// Set appearance to GTK+ for a nice look
Fl::scheme("gtk+");
// Set the animation speed to 24 frames/second
framesPerSecond = 24;
// We're not animating yet.
animating = false;
// Set the color scheme
Fl::set_color(FL_BACKGROUND_COLOR, 240, 240, 240);
Fl::set_color(FL_BACKGROUND2_COLOR, 255, 255, 255);
Fl::set_color(FL_FOREGROUND_COLOR, 0, 0, 0);
Fl::set_color(FL_INACTIVE_COLOR, 128, 128, 128);
Fl::set_color(FL_SELECTION_COLOR, 51, 153, 255);
// Create all of the UI elements
// (autogenerated by FLUID, the FLTK UI Designer)
Fl_Double_Window* w;
//const char* title = "CSEP457 Modeler";
const char* title = "CSEP557 Modeler";
{ Fl_Double_Window* o = m_controlsWindow = new Fl_Double_Window(800, 625, title);
w = o;
o->callback((Fl_Callback*)cb_m_controlsWindow, (void*)(this));
o->when(FL_WHEN_NEVER);
{ Fl_Menu_Bar* o = m_controlsMenuBar = new Fl_Menu_Bar(0, 0, 800, 25);
o->menu(menu_m_controlsMenuBar);
}
// Contains the controls on the left
{ leftPane = new Fl_Group(0, 25, 250, 600);
int tabSpace = -25, controlSpace = 0;
{ Fl_Tile* o = m_controlSplitPane = new Fl_Tile(0, 50 + tabSpace, 250, 575 - tabSpace);
o->box(FL_FLAT_BOX);
{ Fl_Tree* o = m_controlsTree = new Fl_Tree(0, 50 + tabSpace, 250, 100);
o->when(FL_WHEN_CHANGED);
o->callback((Fl_Callback*)TreeCallback);
o->marginleft(-5);
o->end();
}
{ Fl_Scroll* o = m_controlsScroll =
new Fl_Scroll(0, 150 + tabSpace, 250, 475 - tabSpace - controlSpace);
o->type(Fl_Scroll::VERTICAL);
o->when(FL_WHEN_CHANGED);
{ Fl_Pack* o = m_controlsPack =
new Fl_Pack(10, 150 + tabSpace, 215, 475 - tabSpace - controlSpace);
Fl_Group::current()->resizable(o);
o->spacing(2);
o->end();
}
o->end();
}
o->end();
} // end Modeler group/tab
leftPane->end();
} // left pane
{ // TODO: remove this extra brace!
{ Fl_Group* o = m_viewPane = new Fl_Group(250, 25, 550, 600);
o->box(FL_NO_BOX);
o->color(FL_BACKGROUND_COLOR);
m_modelerView = new ModelerView(250, 25, 550, 600, "");
w->resizable(m_modelerView);
o->end();
Fl_Group::current()->resizable(o);
}
}
o->end();
}
}
ModelerUserInterface::ModelerUserInterface() {
// Make this instance the current one
instance = this;
// Initialize pointers to NULL
m_nativeChooser = NULL;
model = NULL;
currentGroup = NULL;
renderGroup = NULL;
defaultCam = NULL;
ps = NULL;
movieWidth = 720;
movieHeight = 480;
// Set appearance to GTK+ for a nice look
Fl::scheme("gtk+");
// Set the animation speed to 24 frames/second
framesPerSecond = 24;
// We're not animating yet.
animating = false;
simulating = false;
rendering = false;
drawing = false;
// Set the color scheme
Fl::set_color(FL_BACKGROUND_COLOR, 240, 240, 240);
Fl::set_color(FL_BACKGROUND2_COLOR, 255, 255, 255);
Fl::set_color(FL_FOREGROUND_COLOR, 0, 0, 0);
Fl::set_color(FL_INACTIVE_COLOR, 128, 128, 128);
Fl::set_color(FL_SELECTION_COLOR, 51, 153, 255);
// Create all of the UI elements
// (autogenerated by FLUID, the FLTK UI Designer)
Fl_Double_Window* w;
const char* title = "Animator";
{ Fl_Double_Window* o = m_controlsWindow = new Fl_Double_Window(800, 625, title);
w = o;
o->callback((Fl_Callback*)cb_m_controlsWindow, (void*)(this));
o->when(FL_WHEN_NEVER);
{ Fl_Menu_Bar* o = m_controlsMenuBar = new Fl_Menu_Bar(0, 0, 800, 25);
o->menu(menu_m_controlsMenuBar);
}
// Contains the controls on the left
{ leftPane = new Fl_Group(0, 25, 250, 600);
int tabSpace = 0, controlSpace = 0;
int controlTop = 25 + 600 - controlSpace;
// Modeler and Curves tabs
{ Fl_Tabs* t = new Fl_Tabs(0, 25, 250, 600 - controlSpace);
// Make the tab area stretch.
leftPane->resizable(t);
t->when(FL_WHEN_CHANGED);
t->callback((Fl_Callback*)TabsCallback, this);
// Curves tab
{ Fl_Group* o = new Fl_Group(0, 50, 250, 575 - controlSpace, "Curves");
o->box(FL_FLAT_BOX);
o->color(FL_BACKGROUND_COLOR);
{ Fl_Tree* o = curvesTree = new Fl_Tree(0, 50, 250, 575 - controlSpace);
o->when(FL_WHEN_CHANGED);
o->callback((Fl_Callback*)CurveTreeCallback);
o->marginleft(-5);
o->end();
}
o->end();
}
// Modeler tab
{ Fl_Tile* o = m_controlSplitPane =
new Fl_Tile(0, 50 + tabSpace, 250, 575 + tabSpace - controlSpace, "Modeler");
// Make only the content area of the tabs resize.
t->resizable(o);
o->box(FL_FLAT_BOX);
{ Fl_Tree* o = m_controlsTree = new Fl_Tree(0, 50 + tabSpace, 250, 100);
o->when(FL_WHEN_CHANGED);
o->callback((Fl_Callback*)TreeCallback);
o->marginleft(-5);
o->end();
}
{ Fl_Scroll* o = m_controlsScroll =
new Fl_Scroll(0, 150 + tabSpace, 250, 475 - tabSpace - controlSpace);
o->type(Fl_Scroll::VERTICAL);
o->when(FL_WHEN_CHANGED);
{ Fl_Pack* o = m_controlsPack =
new Fl_Pack(10, 150 + tabSpace, 215, 475 - tabSpace - controlSpace);
Fl_Group::current()->resizable(o);
o->spacing(2);
o->end();
}
o->end();
}
o->end();
} // end Modeler group/tab
t->end();
} // end tabs
leftPane->end();
} // left pane
{ // TODO: remove this extra brace!
{ Fl_Group* o = m_viewPane = new Special_Tile(250, 25, 550, 600);
o->box(FL_NO_BOX);
o->color(FL_BACKGROUND_COLOR);
// show a smaller modeler view
m_modelerView = new ModelerView(250, 25, 550, 350, "");
m_modelerView->resizable();
// show a curve window with animation controls underneath
{ curvePane = new Fl_Group(250, 375, 550, 250);
// Row containing the curve options
{ Fl_Group* o = new Fl_Group(255, 380, 540, 20, "Curve Editor");
// Put particle system label inside
o->align(FL_ALIGN_LEFT | FL_ALIGN_INSIDE);
o->labelfont(FL_HELVETICA_BOLD);
// Curve type chooser
chooserCurveType = new Fl_Choice(445, 380, 120, 20, "Curve Type: ");
chooserCurveType->menu(curveTypeMenu);
chooserCurveType->callback((Fl_Callback*)chooserCurveTypeCallback, this);
chooserCurveType->deactivate();
// Wrap checkbox
checkboxWrap = new Fl_Check_Button(570, 380, 60, 20, "Wrap");
checkboxWrap->callback((Fl_Callback*)checkboxWrapCallback, this);
checkboxWrap->deactivate();
// Zoom All button
buttonZoomAll = new Fl_Button(640, 380, 80, 20, "Zoom All");
buttonZoomAll->callback((Fl_Callback*)buttonZoomAllCallback, this);
buttonZoomAll->deactivate();
// No resizing
o->resizable(NULL);
o->end();
}
// The graph widget
graph = new GraphWidget(255, 405, 540, 140);
graph->callback((Fl_Callback*)graphCallback, this);
curvePane->resizable(graph); // stretch the graph on resize
// Camera buttons
{ cameraPane = new Fl_Group(255, 550, 540, 20, "Camera");
// Put camera label inside
cameraPane->align(FL_ALIGN_LEFT | FL_ALIGN_INSIDE);
cameraPane->labelfont(FL_HELVETICA_BOLD);
// Prevent internal widgets from resizing when the group is resized.
cameraPane->resizable(NULL);
// Use Camera button
checkboxUseCamera = new Fl_Check_Button(315, 550, 165, 20, "Look Through Camera");
checkboxUseCamera->callback((Fl_Callback*)checkboxUseCameraCallback);
// Plot Camera checkbox
Fl_Button* buttonPlotCamera = new Fl_Button(485, 550, 120, 20, "Plot Keyframe");
buttonPlotCamera->callback((Fl_Callback*)buttonPlotCameraCallback);
// Clear Plot button
Fl_Button* buttonClearPlot = new Fl_Button(610, 550, 120, 20, "Clear Keyframe");
buttonClearPlot->callback((Fl_Callback*)buttonClearCameraCallback);
// End this group
cameraPane->end();
}
// Particle system buttons
{ particlePane = new Fl_Group(255, 575, 540, 20, "Particle System");
// Put particle system label inside
particlePane->align(FL_ALIGN_LEFT | FL_ALIGN_INSIDE);
particlePane->labelfont(FL_HELVETICA_BOLD);
// Simulate button
checkboxSimulate = new Fl_Check_Button(375, 575, 75, 20, "Simulate");
checkboxSimulate->callback((Fl_Callback*)checkboxSimulateCallback);
// Clear Particles button
buttonClearParticles = new Fl_Button(455, 575, 50, 20, "Clear");
buttonClearParticles->callback((Fl_Callback*)buttonClearParticlesCallback);
// Particle "bake" indicator
particleBakeIndicator = new IndicatorWindow(510, 575, 285, 20);
// TODO: fix this:
particleBakeIndicator->range(0, 20);
particleBakeIndicator->deactivate();
particlePane->resizable(particleBakeIndicator);
// End this group
particlePane->end();
}
// The playback controls
{ Fl_Group* o = new Fl_Group(255, 600, 540, 20, "Playback");
// Put particle system label inside
o->align(FL_ALIGN_LEFT | FL_ALIGN_INSIDE);
o->labelfont(FL_HELVETICA_BOLD);
// Rewind button
Fl_Button* rewind = new Fl_Button(335, 600, 20, 20, "@|<");
rewind->labeltype(FL_SYMBOL_LABEL);
rewind->callback((Fl_Callback*)buttonRewindCallback, this);
// Play button
buttonPlay = new Fl_Button(360, 600, 20, 20, "@>");
buttonPlay->labeltype(FL_SYMBOL_LABEL);
buttonPlay->callback((Fl_Callback*)buttonPlayCallback, this);
buttonPlay->labelcolor(FL_GREEN);
// Fast Forward button
Fl_Button* fastForward = new Fl_Button(385, 600, 20, 20, "@>|");
fastForward->labeltype(FL_SYMBOL_LABEL);
fastForward->callback((Fl_Callback*)buttonFastForwardCallback, this);
// Time slider
sliderTime = new Fl_Value_Slider(455, 600, 340, 20, "Time:");
sliderTime->type(FL_HORIZONTAL);
sliderTime->align(FL_ALIGN_LEFT);
sliderTime->callback((Fl_Callback*)sliderTimeCallback, this);
sliderTime->bounds(0, 20);
// Stretch the time slider on resize
o->resizable(sliderTime);
o->end();
}
curvePane->end();
}
w->resizable(m_modelerView);
o->end();
Fl_Group::current()->resizable(o);
}
}
o->end();
}
}
