gp-form.c

Genetic Programing of music

/* Form definition file generated with fdesign. */

#include "forms.h"
#include "gp-form.h"

FD_Main *create_form_Main(void)
{
  FL_OBJECT *obj;
  FD_Main *fdui = (FD_Main *) fl_calloc(1, sizeof(FD_Main));

  fdui->Main = fl_bgn_form(FL_NO_BOX, 320, 230);
  obj = fl_add_box(FL_FLAT_BOX,0,0,320,230,"");
  obj = fl_add_box(FL_FRAME_BOX,10,50,300,60,"");
  fdui->Gen_Number = obj = fl_add_text(FL_NORMAL_TEXT,120,140,80,20,"0/0");
    fl_set_object_boxtype(obj,FL_FRAME_BOX);
  obj = fl_add_text(FL_NORMAL_TEXT,10,140,110,20,"Generation Number:");
    fl_set_object_boxtype(obj,FL_FRAME_BOX);
  fdui->Ind_Number = obj = fl_add_text(FL_NORMAL_TEXT,120,120,80,20,"0/0");
    fl_set_object_boxtype(obj,FL_FRAME_BOX);
  obj = fl_add_text(FL_NORMAL_TEXT,10,120,110,20,"Individual Number:");
    fl_set_object_boxtype(obj,FL_FRAME_BOX);
  obj = fl_add_text(FL_NORMAL_TEXT,10,170,300,50,"GP-Music");
    fl_set_object_boxtype(obj,FL_BORDER_BOX);
    fl_set_object_lsize(obj,FL_HUGE_SIZE);
    fl_set_object_lalign(obj,FL_ALIGN_CENTER);
    fl_set_object_lstyle(obj,FL_TIMESBOLD_STYLE+FL_EMBOSSED_STYLE);
    fl_set_object_gravity(obj, NorthGravity, NorthGravity);
  fdui->Ind_Rate_Slider = obj = fl_add_valslider(FL_HOR_FILL_SLIDER, \
						 20,60,280,20,"");
    fl_set_object_lalign(obj,FL_ALIGN_TOP);
    fl_set_slider_bounds(obj, 1, 100);
    fl_set_slider_value(obj, 1);
    fl_set_object_callback(obj,ind_rater,0);
  obj = fl_add_text(FL_NORMAL_TEXT,20,80,180,20,"Individual Rating:");
  fdui->Play_Button = obj = fl_add_button(FL_NORMAL_BUTTON,210,120,90,40, \
					  "Re-Play");
    fl_set_object_lsize(obj,FL_NORMAL_SIZE);
    fl_set_object_lstyle(obj,FL_BOLD_STYLE);
    fl_set_object_callback(obj,play_indiv,0);
  fdui->Next_Song_Button = obj = fl_add_button(FL_NORMAL_BUTTON,40,10, \
					       110,30,"Next Song");
    fl_set_object_lsize(obj,FL_NORMAL_SIZE);
    fl_set_object_lstyle(obj,FL_BOLD_STYLE);
  fdui->Exit_Button = obj = fl_add_button(FL_NORMAL_BUTTON,170,10, \
					  110,30,"Exit");
    fl_set_object_lsize(obj,FL_NORMAL_SIZE);
    fl_set_object_lstyle(obj,FL_BOLD_STYLE);
  fl_end_form();

  return fdui;
}
/*---------------------------------------*/