void anim_reactive_collision_interface(AnimProb * AnimProbPt) {
int NofCoef;
NofCoef = XYZ_ANIM.animation[0]->nof_coef;
ZANIM = AnimProbPt;
if (ARCI != NULL) {
fl_hide_form(ARCI);
fl_free_form(ARCI);
ARCI = NULL;
}
ARCI = fl_bgn_form(FL_UP_BOX, 200, 370);
ARCI_REAC_TIME = fl_add_valslider (FL_HOR_SLIDER, 10, 10, 180, 20, "Reaction Time");
fl_set_slider_bounds (ARCI_REAC_TIME, 0, 3);
fl_set_slider_value (ARCI_REAC_TIME, 1);
fl_set_slider_step (ARCI_REAC_TIME, 0.1);
ARCI_CONST_BLOCKS = fl_add_button(FL_NORMAL_BUTTON, 10, 50, 180, 20, "Constitute Blocks");
fl_set_object_callback(ARCI_CONST_BLOCKS, anim_arci_cb, 10);
ARCI_NOF_BLOCK = fl_add_text(FL_NORMAL_TEXT, 10, 80, 180, 20, "");
anim_udpate_nof_blocks();
ARCI_NOF_ATTEMPTS = fl_add_valslider (FL_HOR_SLIDER, 10, 110, 180, 20, "Number of Attempt for Solving Collisions");
fl_set_slider_bounds (ARCI_NOF_ATTEMPTS, 0, 1000);
fl_set_slider_value (ARCI_NOF_ATTEMPTS, 100);
fl_set_slider_step (ARCI_NOF_ATTEMPTS, 10);
ARCI_SOLVE_COL = fl_add_button(FL_NORMAL_BUTTON, 10, 150, 180, 20, "Solve Blocks");
fl_set_object_callback(ARCI_SOLVE_COL, anim_arci_cb, 11);
ARCI_SOLVED = fl_add_text(FL_NORMAL_TEXT, 10, 180, 180, 20, "");
anim_udpate_solved();
ARCI_SHOW_SOL = fl_add_button(FL_NORMAL_BUTTON, 10, 210, 180, 20, "Show Solution(s)");
fl_set_object_callback(ARCI_SHOW_SOL, anim_arci_cb, 12);
ARCI_OPTIM = fl_add_button(FL_NORMAL_BUTTON, 10, 240, 180, 20, "Optimize Solution(s)");
fl_set_object_callback(ARCI_OPTIM, anim_arci_cb, 13);
ARCI_OPTIMIZED = fl_add_text(FL_NORMAL_TEXT, 10, 270, 180, 20, "");
anim_udpate_optimized();
ARCI_SHOW_OPTIM = fl_add_button(FL_NORMAL_BUTTON, 10, 300, 180, 20, "Show Optimized Solution(s)");
fl_set_object_callback(ARCI_SHOW_OPTIM, anim_arci_cb, 14);
ARCI_CLOSE = fl_add_button(FL_NORMAL_BUTTON, 10, 330, 180, 20, "Close");
fl_set_object_callback(ARCI_CLOSE, anim_arci_cb, 15);
fl_end_form();
fl_show_form (ARCI, FL_PLACE_SIZE, FL_FULLBORDER, "Reactive collisions");
}
FD_options *create_form_options(void)
{
FL_OBJECT *obj;
FD_options *fdui = (FD_options *) fl_calloc(1, sizeof(*fdui));
fdui->options = fl_bgn_form(FL_NO_BOX, 470, 530);
obj = fl_add_box(FL_UP_BOX,0,0,470,530,"Options");
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP|FL_ALIGN_INSIDE);
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
obj = fl_add_frame(FL_EMBOSSED_FRAME,20,370,210,130,"");
obj = fl_add_frame(FL_EMBOSSED_FRAME,240,370,220,110,"");
obj = fl_add_frame(FL_EMBOSSED_FRAME,20,190,440,170,"");
fdui->prob_mutation = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,250,200,20,"Probabiliy of Mutation:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 3);
fl_set_slider_value(obj, 0.008);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 0.001);
fl_set_slider_increment(obj, 0.001, 0.001);
fdui->prob_crossover = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,250,250,200,20,"Probabiliy of Crossover:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 3);
fl_set_slider_value(obj, 0.002);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 0.001);
fl_set_slider_increment(obj, 0.001, 0.001);
fdui->max_pop = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,250,210,200,20,"Maximum Population:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 10000);
fl_set_slider_value(obj, 2000);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 1);
fl_set_slider_increment(obj, 10, 10);
fdui->maintain_min_pop = obj = fl_add_checkbutton(FL_PUSH_BUTTON,260,380,20,20,"Maintain a Minimum Population?");
fdui->age_factor = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,290,200,20,"Age Factor:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 15);
fl_set_slider_value(obj, 9);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 1);
fl_set_slider_increment(obj, 1, 1);
fdui->carcass_decay_rate = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,250,290,200,20,"Carcass Decay Rate:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 100000);
fl_set_slider_value(obj, 10000);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 100);
fl_set_slider_increment(obj, 100, 100);
fdui->save_sim = obj = fl_add_checkbutton(FL_PUSH_BUTTON,45,380,20,20,"Save Simulation Every N Steps?");
fdui->save_every = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,40,420,170,20,"Save Every N Steps:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 100000);
fl_set_slider_value(obj, 50000);
fl_set_slider_size(obj, 0.12);
fl_set_slider_step(obj, 100);
fl_set_slider_increment(obj, 100, 100);
fdui->file_name = obj = fl_add_input(FL_NORMAL_INPUT,40,465,170,20,"Default File Name:");
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fdui->ok = obj = fl_add_button(FL_RETURN_BUTTON,360,490,80,30,"OK");
fdui->initial_params_frame = obj = fl_add_frame(FL_ENGRAVED_FRAME,20,20,440,160,"Initial Parameters");
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
fdui->scale = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,210,200,20,"Display Scale Factor:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 1, 32);
fl_set_slider_value(obj, 5);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 1);
fl_set_slider_increment(obj, 1, 1);
fdui->min_pop = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,265,420,170,20,"Minimum Population:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 100);
fl_set_slider_value(obj, 5);
fl_set_slider_size(obj, 0.12);
fl_set_slider_step(obj, 1);
fl_set_slider_increment(obj, 1, 1);
fdui->use_survivor = obj = fl_add_checkbutton(FL_PUSH_BUTTON,280,450,20,20,"Use Survivor for Minimum?");
fdui->initial_parameters_group = fl_bgn_group();
fdui->terrain_size = obj = fl_add_choice(FL_NORMAL_CHOICE2,340,135,100,30,"Terrain Size (cells):");
fl_set_choice_entries(obj, fdchoice_terrain_size_0);
fl_set_choice(obj,4);
fdui->initial_pop = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,60,200,20,"Initial Population:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 2000);
fl_set_slider_value(obj, 200);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 1);
fl_set_slider_increment(obj, 10, 10);
fdui->initial_plant = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,100,200,20,"Number of Initial Plant Locations:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 10000);
fl_set_slider_value(obj, 1000);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 100);
fl_set_slider_increment(obj, 100, 100);
fdui->initial_flesh = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,250,100,200,20,"Number of Initial Flesh Locations:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 10000);
fl_set_slider_value(obj, 1000);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 100);
fl_set_slider_increment(obj, 100, 100);
fdui->give_head_start = obj = fl_add_checkbutton(FL_PUSH_BUTTON,290,55,20,20,"Give A Head Start?");
fl_set_button(obj, 1);
fdui->allow_asex = obj = fl_add_checkbutton(FL_PUSH_BUTTON,70,150,20,20,"Allow Asexual Reproduction?");
fl_set_button(obj, 1);
fdui->allow_sex = obj = fl_add_checkbutton(FL_PUSH_BUTTON,70,130,20,20,"Allow Sexual Reproduction?");
fl_set_button(obj, 1);
fl_end_group();
fdui->waste_decay_rate = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,35,330,200,20,"Waste Decay Rate:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 10000);
fl_set_slider_value(obj, 20);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 5);
fl_set_slider_increment(obj, 10, 10);
fdui->poison_decay_rate = obj = fl_add_valslider(FL_HOR_BROWSER_SLIDER,250,330,200,20,"Poison Decay Rate:");
fl_set_object_lsize(obj,FL_DEFAULT_SIZE);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_slider_precision(obj, 0);
fl_set_slider_bounds(obj, 0, 10000);
fl_set_slider_value(obj, 20);
fl_set_slider_size(obj, 0.10);
fl_set_slider_step(obj, 5);
fl_set_slider_increment(obj, 10, 10);
fl_end_form();
fdui->options->fdui = fdui;
return fdui;
}
