FD_landmin *create_form_landmin(void)
{
FL_OBJECT *obj;
FD_landmin *fdui = (FD_landmin *) fl_calloc(1, sizeof(*fdui));
fdui->landmin = fl_bgn_form(FL_NO_BOX, 330, 280);
obj = fl_add_box(FL_UP_BOX,0,0,330,280,"");
obj = fl_add_text(FL_NORMAL_TEXT,10,10,70,30,"Connect to :");
fl_set_object_lalign(obj,FL_ALIGN_LEFT|FL_ALIGN_INSIDE);
obj = fl_add_text(FL_NORMAL_TEXT,10,50,90,30,"Disconect from:");
fl_set_object_lalign(obj,FL_ALIGN_LEFT|FL_ALIGN_INSIDE);
obj = fl_add_button(FL_NORMAL_BUTTON,60,250,220,20,"Quit");
fl_set_object_callback(obj,cb_land_quitb,0);
obj = fl_add_clock(FL_DIGITAL_CLOCK,140,225,70,20,"");
fl_set_object_color(obj,FL_INACTIVE,FL_CYAN);
fdui->host_listOB = obj = fl_add_browser(FL_NORMAL_BROWSER,40,100,270,120,"Connected to:");
fl_set_object_color(obj,FL_WHITE,FL_YELLOW);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fl_set_object_callback(obj,cb_landseld_hst,0);
fdui->landnhOB = obj = fl_add_choice(FL_NORMAL_CHOICE2,110,10,200,30,"");
fl_set_object_callback(obj,cb_land_nh,0);
fl_set_choice_entries(obj, fdchoice_0);
fl_set_choice(obj,1);
fdui->landdhOB = obj = fl_add_choice(FL_NORMAL_CHOICE2,110,50,200,30,"");
fl_set_object_callback(obj,cb_land_dh,0);
fl_set_choice_entries(obj, fdchoice_1);
fl_set_choice(obj,1);
fl_end_form();
fdui->landmin->fdui = fdui;
return fdui;
}
FD_dialattrib *
create_form_dialattrib( void )
{
FL_OBJECT *obj;
FD_dialattrib *fdui = ( FD_dialattrib * ) fl_malloc( sizeof *fdui );
int old_bw = fl_get_border_width( );
fl_set_border_width( -1 );
fdui->vdata = fdui->cdata = NULL;
fdui->ldata = 0;
fdui->dialattrib = fl_bgn_form( FL_NO_BOX, 540, 280 );
fdui->background = obj = fl_add_box( FL_FLAT_BOX, 0, 0, 540, 280, "" );
fdui->returnsetting = obj = fl_add_menu( FL_PULLDOWN_MENU, 305, 90, 138, 24, "Return Setting" );
fl_set_object_boxtype( obj, FL_UP_BOX );
fl_set_object_callback( obj, dial_returnsetting_change, 0 );
fdui->minval = obj = fl_add_input( FL_FLOAT_INPUT, 195, 45, 92, 24, "Dial Min" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_minmax_change, 0 );
fdui->maxval = obj = fl_add_input( FL_FLOAT_INPUT, 195, 77, 92, 24, "DialMax" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_minmax_change, 0 );
fdui->initialval = obj = fl_add_input( FL_FLOAT_INPUT, 195, 109, 92, 24, "Initial Value" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_initialvalue_change, 0 );
fdui->step = obj = fl_add_input( FL_FLOAT_INPUT, 195, 141, 92, 24, "Dial Step" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_stepchange_cb, 0 );
fdui->thetai = obj = fl_add_input( FL_FLOAT_INPUT, 195, 173, 92, 24, "Min. Angle" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_thetachange_cb, 0 );
fdui->thetaf = obj = fl_add_input( FL_FLOAT_INPUT, 195, 205, 92, 24, "Max. Angle" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_callback( obj, dial_thetachange_cb, 1 );
fdui->dir = obj = fl_add_choice( FL_NORMAL_CHOICE2, 306, 155, 134, 25, "Direction" );
fl_set_object_lalign( obj, FL_ALIGN_TOP );
fl_set_object_callback( obj, dir_cb, 0 );
obj = fl_add_labelframe( FL_ENGRAVED_FRAME, 30, 15, 480, 240, "Dial Attributes" );
fl_set_object_lcolor( obj, FL_DARKVIOLET );
fl_set_object_lsize( obj, FL_MEDIUM_SIZE );
fl_set_object_lstyle( obj, FL_TIMESBOLD_STYLE + FL_EMBOSSED_STYLE );
fl_end_form( );
fdui->dialattrib->fdui = fdui;
fl_set_border_width( old_bw );
return fdui;
}
FD_xyplotattrib *
create_form_xyplotattrib( void )
{
FL_OBJECT *obj;
FD_xyplotattrib *fdui = ( FD_xyplotattrib * ) fl_malloc( sizeof *fdui );
int old_bw = fl_get_border_width( );
fl_set_border_width( -1 );
fdui->vdata = fdui->cdata = NULL;
fdui->ldata = 0;
fdui->xyplotattrib = fl_bgn_form( FL_NO_BOX, 520, 270 );
obj = fl_add_box( FL_FLAT_BOX, 0, 0, 520, 270, "" );
obj = fl_add_labelframe( FL_ENGRAVED_FRAME, 10, 20, 500, 240, "XYPlot Attributes" );
fl_set_object_lsize( obj, FL_NORMAL_SIZE );
fl_set_object_lstyle( obj, FL_BOLD_STYLE );
fdui->xgrid = obj = fl_add_choice( FL_NORMAL_CHOICE2, 70, 60, 85, 23, "XGrid" );
fl_set_object_callback( obj, grid_change_cb, 0 );
fdui->ygrid = obj = fl_add_choice( FL_NORMAL_CHOICE2, 70, 90, 85, 23, "YGrid" );
fl_set_object_callback( obj, grid_change_cb, 0 );
fdui->xscale = obj = fl_add_choice( FL_NORMAL_CHOICE2, 70, 170, 85, 23, "XScale" );
fl_set_object_callback( obj, xscale_change_cb, 0 );
fdui->yscale = obj = fl_add_choice( FL_NORMAL_CHOICE2, 70, 210, 85, 23, "YScale" );
fl_set_object_callback( obj, yscale_change_cb, 0 );
fdui->ymajor = obj = fl_add_counter( FL_NORMAL_COUNTER, 370, 160, 115, 20, "YMajor" );
fl_set_object_callback( obj, ymajorminor_change_cb, 0 );
fl_set_counter_precision( obj, 0 );
fl_set_counter_bounds( obj, -1, 20 );
fl_set_counter_value( obj, 1 );
fl_set_counter_step( obj, 1, 2 );
fdui->yminor = obj = fl_add_counter( FL_NORMAL_COUNTER, 370, 200, 115, 20, "YMinor" );
fl_set_object_callback( obj, ymajorminor_change_cb, 0 );
fl_set_counter_precision( obj, 0 );
fl_set_counter_bounds( obj, 0, 10 );
fl_set_counter_value( obj, 1 );
fl_set_counter_step( obj, 1, 2 );
fdui->xmajor = obj = fl_add_counter( FL_NORMAL_COUNTER, 370, 70, 115, 20, "XMajor" );
fl_set_object_callback( obj, xmajorminor_change_cb, 0 );
fl_set_counter_precision( obj, 0 );
fl_set_counter_bounds( obj, -1, 20 );
fl_set_counter_value( obj, 1 );
fl_set_counter_step( obj, 1, 2 );
fdui->xminor = obj = fl_add_counter( FL_NORMAL_COUNTER, 370, 110, 115, 20, "XMinor" );
fl_set_object_callback( obj, xmajorminor_change_cb, 0 );
fl_set_counter_precision( obj, 0 );
fl_set_counter_bounds( obj, 0, 10 );
fl_set_counter_value( obj, 1 );
fl_set_counter_step( obj, 1, 2 );
fdui->xbase = obj = fl_add_input( FL_FLOAT_INPUT, 160, 170, 39, 23, "xbase" );
fl_set_object_lalign( obj, FL_ALIGN_RIGHT );
fl_set_object_callback( obj, xscale_change_cb, 0 );
fdui->ybase = obj = fl_add_input( FL_FLOAT_INPUT, 158, 210, 39, 23, "ybase" );
fl_set_object_lalign( obj, FL_ALIGN_RIGHT );
fl_set_object_callback( obj, yscale_change_cb, 0 );
fdui->how_return = obj = fl_add_menu( FL_PULLDOWN_MENU, 193, 29, 150, 22, "Return Setting" );
fl_set_object_boxtype( obj, FL_UP_BOX );
fl_set_object_callback( obj, xyplot_returnsetting_change, 0 );
fdui->gridstyle = obj = fl_add_choice( FL_NORMAL_CHOICE2, 70, 120, 85, 23, "Style" );
fl_set_object_callback( obj, gridstyle_change_cb, 0 );
fdui->mark_active = obj = fl_add_checkbutton( FL_PUSH_BUTTON, 230, 80, 100, 25, "MarkActive" );
fl_set_object_callback( obj, markactive_change_cb, 0 );
fl_end_form( );
fdui->xyplotattrib->fdui = fdui;
fl_set_border_width( old_bw );
return fdui;
}
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;
}
