fabla.fl

# data file for the Fltk User Interface Designer (fluid)
version 1.0300 
header_name {.h} 
code_name {.cxx}
class FablaUI {open
} {
  Function {FablaUI()} {open
  } {
    code {setupUI();
w->show();} {}
  }
  Function {FablaUI(void* xParentWindow, Fabla* f)} {open
  } {
    code {setupUI();
fabla = f;

// embed drawn stuff into LV2 host provided area  
fl_embed( w, (Window)xParentWindow );} {}
  }
  Function {setupUI()} {open
  } {
    code {// In case FLTK hasn't set up yet
fl_open_display();

selectedPad = 0;} {}
    Fl_Window w {
      label Fabla
      callback {close_cb( o, 0 );} open
      xywh {1403 321 515 490} type Double box UP_BOX color 48 selection_color 0 labelcolor 88
      code0 {\#include "avtk.h"}
      code1 {using namespace Avtk;}
      code2 {\#include <FL/x.H>}
      code3 {\#include "lv2/lv2plug.in/ns/lv2core/lv2.h"} visible
    } {
      Fl_Box {} {
        label Source
        xywh {346 41 159 215} box UP_BOX
        class Background
      }
      Fl_Box adsr {
        xywh {351 66 150 84} box UP_BOX
        code0 {adsr->attack(0); adsr->decay(0.5);}
        code1 {adsr->sustain(1); adsr->release(0.5);}
        class ADSR
      }
      Fl_Box {} {
        label Master
        xywh {346 265 159 215} box UP_BOX
        class Background
      }
      Fl_Box compressor {
        label Compressor
        callback {if ( o->mouseRightClicked )
{
  float tmp = 0.0f;
  if ( o->active )
    tmp = 1.f;
  writeFunction(controller, COMP_ENABLE, sizeof(float), 0, (const void*) &tmp);
}
else
{
  float tmp = o->getMakeup();
  writeFunction(controller, COMP_MAKEUP, sizeof(float), 0, (const void*) &tmp);
}}
        xywh {352 290 97 84} box UP_BOX
        code0 {compressor->set_active( false );}
        class Compressor
      }
      Fl_Box compressorBox {
        xywh {351 379 97 97} box BORDER_BOX
        code0 {compressorBox->color( fl_rgb_color( 28,28,28 ));}
      }
      Fl_Box masterVol {
        label Vol
        callback {float tmp = o->value();
writeFunction(controller, MASTER_VOL, sizeof(float), 0, (const void*) &tmp);}
        xywh {453 290 48 186} box UP_BOX
        code0 {\#include "../dsp/ports.h"}
        code1 {\#include "lv2/lv2plug.in/ns/extensions/ui/ui.h"}
        code2 {\#include "../dsp/shared.h"}
        code3 {\#include "fabla.hxx"}
        class Volume
      }
      Fl_Box adsrBox {selected
        xywh {350 155 150 98} box BORDER_BOX
        code0 {adsrBox->color( fl_rgb_color( 28,28,28 ));}
      }
      Fl_Box compRelease {
        label Rel
        callback {float tmp = o->value();
//compressor->release( tmp );
writeFunction(controller, COMP_DECAY, sizeof(float), 0, (const void*) &tmp);}
        xywh {406 435 30 30} box UP_BOX color 48 labelcolor 54
        code0 {compRelease->defaultValue(0.3);}
        class Dial
      }
      Fl_Box {} {
        label Waveform
        xywh {9 41 330 132} box UP_BOX
        class Background
      }
      Fl_Box {} {
        label Pads
        xywh {9 180 330 300} box UP_BOX
        class Background
      }
      Fl_Box waveform {
        xywh {11 64 324 107} box UP_BOX
        class Waveform
      }
      Fl_Box image {
        label {header image}
        xywh {0 0 515 36} box UP_BOX
        code0 {\#include "header.c"}
        code1 {image->setPixbuf(header.pixel_data,4);}
        class Image
      }
      Fl_Box p13 {
        label 13
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {15 205 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p13->ID(12);}
        class Pad
      }
      Fl_Box p14 {
        label 14
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {97 205 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p14->ID(13);}
        class Pad
      }
      Fl_Box p15 {
        label 15
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {178 205 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p15->ID(14);}
        class Pad
      }
      Fl_Box p16 {
        label 16
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {259 205 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p16->ID(15);}
        class Pad
      }
      Fl_Box p9 {
        label 9
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {15 273 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p9->ID(8);}
        class Pad
      }
      Fl_Box p5 {
        label 5
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {15 341 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p5->ID(4);}
        class Pad
      }
      Fl_Box p1 {
        label 1
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {15 411 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p1->selected(true);}
        code1 {p1->ID(0);}
        code2 {\#include <FL/Fl_Native_File_Chooser.H>}
        class Pad
      }
      Fl_Box p10 {
        label 10
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {97 273 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p10->ID(9);}
        class Pad
      }
      Fl_Box p6 {
        label 6
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {97 341 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p6->ID(5);}
        class Pad
      }
      Fl_Box p2 {
        label 2
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {97 411 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p2->ID(1);}
        class Pad
      }
      Fl_Box p11 {
        label 11
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {178 273 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p11->ID(10);}
        class Pad
      }
      Fl_Box p7 {
        label 7
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {178 341 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p7->ID(6);}
        class Pad
      }
      Fl_Box p3 {
        label 3
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {178 411 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p3->ID(2);}
        class Pad
      }
      Fl_Box p12 {
        label 12
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {259 273 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p12->ID(11);}
        class Pad
      }
      Fl_Box p8 {
        label 8
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {259 341 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p8->ID(7);}
        class Pad
      }
      Fl_Box p4 {
        label 4
        callback {pad_click( o->ID(), o->mouseRightClicked );}
        xywh {259 411 75 64} box BORDER_BOX labelfont 1 labelcolor 54
        code0 {p4->ID(3);}
        class Pad
      }
      Fl_Box compAttack {
        label Atk
        callback {float tmp = o->value();
//compressor->attack( tmp );
writeFunction(controller, COMP_ATTACK, sizeof(float), 0, (const void*) &tmp);}
        xywh {365 435 30 30} box UP_BOX color 48 labelcolor 54
        code0 {compAttack->defaultValue(0.1);}
        class Dial
      }
      Fl_Box compThres {
        label Thres
        callback {float tmp = o->value();
compressor->threshold( tmp );
writeFunction(controller, COMP_THRES, sizeof(float), 0, (const void*) &tmp);}
        xywh {406 395 30 30} box UP_BOX color 48 labelcolor 54
        code0 {compThres->defaultValue(0.7);}
        class Dial
      }
      Fl_Box compRatio {
        label Ratio
        callback {float tmp = o->value();
compressor->ratio( tmp );
writeFunction(controller, COMP_RATIO, sizeof(float), 0, (const void*) &tmp);}
        xywh {365 395 30 30} box UP_BOX color 48 labelcolor 54
        code0 {compRatio->defaultValue(0.3);}
        class Dial
      }
      Fl_Box gain {
        label VOL
        callback {float tmp = o->value();
int port = int(PAD_GAIN) + selectedPad;
padData[selectedPad].gain = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
//printf("gain on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {357 210 38 38} box UP_BOX color 48 labelcolor 54
        code0 {gain->drawLabel(true);}
        code1 {gain->value( 0.5 );}
        code2 {gain->defaultValue(0.5);}
        class Dial
      }
      Fl_Box d {
        label D
        callback {adsr->decay( o->value() );

float tmp = o->value();
int port = int(PAD_DECAY) + selectedPad;
padData[selectedPad].d = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("decay on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {393 170 30 30} box UP_BOX color 48 labelfont 1 labelcolor 54
        code0 {d->defaultValue(0.5);}
        class Dial
      }
      Fl_Box speed {
        label SPD
        callback {float tmp = o->value();
int port = int(PAD_SPEED) + selectedPad;
padData[selectedPad].speed = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("speed on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {408 210 38 38} box UP_BOX color 48 labelcolor 54
        code0 {speed->drawLabel(true);}
        code1 {speed->value( 0.5 );}
        code2 {speed->defaultValue(0.5);}
        class Dial
      }
      Fl_Box a {
        label A
        callback {adsr->attack( o->value() );

float tmp = o->value();
int port = int(PAD_ATTACK) + selectedPad;
padData[selectedPad].a = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("attack on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {358 170 30 30} box UP_BOX color 48 labelfont 1 labelcolor 54
        code0 {a->defaultValue(0.0);}
        class Dial
      }
      Fl_Box r {
        label R
        callback {adsr->release( o->value() );

float tmp = o->value();
int port = int(PAD_RELEASE) + selectedPad;
padData[selectedPad].r = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("release on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {463 170 30 30} box UP_BOX color 48 labelfont 1 labelcolor 54
        code0 {r->defaultValue(0.5);}
        class Dial
      }
      Fl_Box s {
        label S
        callback {adsr->sustain( o->value() );

float tmp = o->value();
int port = int(PAD_SUSTAIN) + selectedPad;
padData[selectedPad].s = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("sustain on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {428 170 30 30} box UP_BOX color 48 labelfont 1 labelcolor 54
        code0 {extern void writeLoadSample(Fabla* self, int pad, const char* filename, size_t filename_len);}
        code1 {extern void writePadPlay(Fabla* self, int pad );}
        code2 {s->value(1.0);}
        code3 {s->defaultValue(1.f);}
        class Dial
      }
      Fl_Box pan {
        label PAN
        callback {float tmp = o->value();
int port = int(PAD_PAN) + selectedPad;
padData[selectedPad].pan = tmp;
writeFunction(controller, port, sizeof(float), 0, (const void*) &tmp);
printf("pan on pad\# %i, port\# %i, value %f\\n", selectedPad, port, tmp);}
        xywh {455 210 38 38} box UP_BOX color 48 labelcolor 54
        code0 {pan->drawLabel(true);}
        code1 {pan->value( 0.5 );}
        code2 {pan->defaultValue(0.5);}
        class Dial
      }
    }
  }
  decl {Fabla* fabla;} {public local
  }
  Function {idle()} {open
  } {
    code {// takes care of handling events
Fl::check();
Fl::flush();} {}
  }
  Function {select_pad(int p)} {open
  } {
    code {switch(selectedPad + 1)
{
  case 1:  p1->selected(false);  break;
  case 2:  p2->selected(false);  break;
  case 3:  p3->selected(false);  break;
  case 4:  p4->selected(false);  break;
  case 5:  p5->selected(false);  break;
  case 6:  p6->selected(false);  break;
  case 7:  p7->selected(false);  break;
  case 8:  p8->selected(false);  break;
  case 9:  p9->selected(false);  break;
  case 10: p10->selected(false); break;
  case 11: p11->selected(false); break;
  case 12: p12->selected(false); break;
  case 13: p13->selected(false); break;
  case 14: p14->selected(false); break;
  case 15: p15->selected(false); break;
  case 16: p16->selected(false); break;
  default: printf("unknown pad");
}

selectedPad = p;
switch(selectedPad+1)
{
  case 1:  p1->selected(true);  break;
  case 2:  p2->selected(true);  break;
  case 3:  p3->selected(true);  break;
  case 4:  p4->selected(true);  break;
  case 5:  p5->selected(true);  break;
  case 6:  p6->selected(true);  break;
  case 7:  p7->selected(true);  break;
  case 8:  p8->selected(true);  break;
  case 9:  p9->selected(true);  break;
  case 10: p10->selected(true); break;
  case 11: p11->selected(true); break;
  case 12: p12->selected(true); break;
  case 13: p13->selected(true); break;
  case 14: p14->selected(true); break;
  case 15: p15->selected(true); break;
  case 16: p16->selected(true); break;
  default: printf("unknown pad");
}

// set dial values
gain->value( padData[selectedPad].gain );
speed->value( padData[selectedPad].speed );
pan->value( padData[selectedPad].pan );

a->value( padData[selectedPad].a );
d->value( padData[selectedPad].d );
s->value( padData[selectedPad].s );
r->value( padData[selectedPad].r );

// set ADSR values
adsr->attack ( a->value() );
adsr->decay  ( d->value() );
adsr->sustain( s->value() );
adsr->release( r->value() );

// set Waveform to draw new data
if ( padData[selectedPad].loaded )
{
  waveform->setData( UI_WAVEFORM_PIXELS, padData[selectedPad].waveformLength, padData[selectedPad].waveform, padData[selectedPad].name );
}
else
{
  waveform->setData( 0, 0, 0, "" );
}} {}
  }
  decl {int selectedPad;} {public local
  }
  Function {pad_click(int id, int rclick)} {open
  } {
    code {//printf("pad %i clicked, right = %i\\n", id, rclick);

if ( rclick )
{
  // pop up "load sample" dialog, write Atom event to DSP
  
  /*
  Fl_File_Chooser* fnfc = new Fl_File_Chooser( getenv("HOME"),
  			"Wav\\t*.wav",
  			0, // single file select
  			"Load Sample" );
  
  fnfc->show();
  printf("shown");
  while( fnfc->shown() )
  {
    printf("waiting...");
    Fl::wait();
    printf("waiting 2");
  }
  printf("done");
  const char* filename = fnfc->value();
  char * filename = fl_file_chooser ("Load Sample", "Wav\\t*.wav", NULL, 0);
  
  if ( filename )
  {
    printf("Loading directory: %s\\n", filename);    
    writeLoadSample(fabla, id, filename, strlen(filename) );
    free( (void*)filename );
  }
  
  //delete fnfc;
  */
  
  // pop up "load sample" dialog, write Atom event to DSP
  
  Fl_Native_File_Chooser fnfc;
  fnfc.title("Load Sample");
  fnfc.type(Fl_Native_File_Chooser::BROWSE_FILE);
  fnfc.filter("Wav\\t*.wav");
  fnfc.directory( getenv("HOME") );
  
  switch ( fnfc.show() )
  {
    case -1: printf("ERROR: %s\\\\n", fnfc.errmsg());    break;  // ERROR
    case  1: printf("CANCEL\\\\n");                      break;  // CANCEL
    default: printf("Loading directory: %s\\\\n", fnfc.filename());    
    
    writeLoadSample(fabla, id, fnfc.filename(), strlen(fnfc.filename()));
    break;
 }
  
}
else
{
  // write pad play Atom to DSP
  writePadPlay( fabla, id );
  
  // update the UI showing the ADSR / waveform of this pad
  select_pad( id );
}} {}
  }
  decl {LV2UI_Controller controller;} {public local
  }
  decl {LV2UI_Write_Function writeFunction} {public local
  }
  decl {UIPadData padData[16];} {
    comment {holds all pad individual data} public local
  }
  Function {close_cb(Fl_Widget* o, void*)} {open
  } {
    code {if ((Fl::event() == FL_KEYDOWN || Fl::event() == FL_SHORTCUT) && Fl::event_key() == FL_Escape)
  {
    return; // ignore ESC
  }
  else
  {
    o->hide();
  }} {}
  }
}