falkTX
/
Carla
mirror of https://github.com/falkTX/Carla
1
0
Fork 0
Code Releases 42 Activity
Audio plugin host https://kx.studio/carla
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3205 Commits
16 Branches
16GB
Tree: 6ca77fe2de
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '6ca77fe2de'
${ noResults }
Carla/source/native-plugins/zynaddsubfx/UI/ADnoteUI.fl

1322 lines
47KB
Raw Blame History 

  1. # data file for the Fltk User Interface Designer (fluid)

  2. version 1.0302 

  3. header_name {.h} 

  4. code_name {.cc}

  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {private local

  6. } 

  7. 

  8. decl {//License: GNU GPL version 2 or later} {private local

  9. } 

  10. 

  11. decl {\#include "../Params/ADnoteParameters.h"} {public local

  12. } 

  13. decl {\#include "ResonanceUI.h"} {public local

  14. } 

  15. 

  16. decl {\#include "Fl_Osc_Slider.H"} {public local

  17. } 

  18. 

  19. decl {\#include <FL/Fl_Box.H>} {public local

  20. } 

  21. 

  22. decl {\#include <FL/Fl_Group.H>} {public local

  23. } 

  24. 

  25. decl {\#include <cmath>} {private local

  26. } 

  27. 

  28. decl {\#include <cstdio>} {private local

  29. } 

  30. 

  31. decl {\#include <cstdlib>} {private local

  32. } 

  33. 

  34. decl {\#include <cstring>} {private local

  35. } 

  36. 

  37. decl {\#include "Fl_Osc_Pane.H"} {public local

  38. } 

  39. 

  40. decl {\#include "Fl_Osc_Dial.H"} {public local

  41. } 

  42. 

  43. decl {\#include "Fl_Osc_Check.H"} {public local

  44. } 

  45. 

  46. decl {\#include "Fl_Osc_Choice.H"} {public local

  47. } 

  48. 

  49. decl {\#include "Fl_Osc_Slider.H"} {public local

  50. } 

  51. 

  52. decl {\#include "Fl_Osc_VSlider.H"} {public local

  53. } 

  54. 

  55. decl {\#include "Osc_IntModel.h"} {private local

  56. }

  57. 

  58. decl {\#include "Fl_Oscilloscope.h"} {public local

  59. } 

  60. 

  61. decl {\#include "EnvelopeUI.h"} {public local

  62. } 

  63. 

  64. decl {\#include "LFOUI.h"} {public local

  65. } 

  66. 

  67. decl {\#include "FilterUI.h"} {public local

  68. } 

  69. 

  70. decl {\#include "OscilGenUI.h"} {public local

  71. } 

  72. 

  73. decl {\#include "PresetsUI.h"} {public local

  74. } 

  75. 

  76. decl {\#include "PartUI.h"} {private local

  77. } 

  78. 

  79. decl {\#include "MasterUI.h"} {private local

  80. } 

  81. 

  82. decl {extern class MasterUI *ui;} {private local

  83. } 

  84. 

  85. class PhaseSlider {: {public Fl_Osc_TSlider}

  86. } {

  87.   Function {PhaseSlider(int x,int y, int w, int h, const char *label=0)

  88.   :Fl_Osc_TSlider(x,y,w,h,label)} {open

  89.   } { code {

  90.   setRounding(1);

  91.   reset_value=0;

  92.   setTransform(180.0/64, 0);

  93.   } {}}

  94.   Function {set_scope(Fl_Oscilloscope *newscope)} {

  95.   } { code { oscope = newscope; } {} }

  96.    Function {OSC_value(int i)} {open return_type void

  97.    } { code {

  98.        value(64-i);

  99.        oscope->phase=i;

  100.        oscope->parent()->redraw();

  101.    } {} }

  102.   Function {cb(void)} {open return_type void

  103.   } { code {

  104.         oscWrite(ext, "i", (int)(64-Fl_Slider::value()));

  105.         if(cb_data.first)

  106.             cb_data.first(this, cb_data.second);

  107. } {} }

  108.    decl {Fl_Oscilloscope *oscope = NULL; } {private local}

  109. }

  110. 

  111. 

  112. class ADvoicelistitem {open : {public Fl_Osc_Group}

  113. } {

  114.   Function {make_window()} {open private

  115.   } {

  116.     Fl_Window ADnoteVoiceListItem {open

  117.       private xywh {117 90 670 100} type Double box NO_BOX

  118.       class Fl_Osc_Group visible

  119.     } {

  120.       Fl_Box {} {

  121.         xywh {0 0 0 0}

  122.         code0 {ADnoteVoiceListItem->base = loc;}

  123.       }

  124.       Fl_Group voicelistitemgroup {open

  125.         private xywh {0 0 670 25}

  126.         class Fl_Osc_Group

  127.       } {

  128.         Fl_Value_Slider voicevolume {

  129.           tooltip Volume xywh {132 5 115 20} type {Horz Knob} box NO_BOX labelsize 8 align 5 maximum 127 step 1

  130.           code1 {o->init("PVolume");}

  131.           class Fl_Osc_VSlider

  132.         }

  133.         Fl_Check_Button voiceresonanceenabled {

  134.           tooltip {Resonance On/Off} xywh {287 7 15 17} down_box DOWN_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 11 align 4

  135.           code0 {o->init("Presonance");}

  136.           class Fl_Osc_Check

  137.         }

  138.         Fl_Value_Slider voicelfofreq {

  139.           tooltip {Frequency LFO amount} xywh {542 5 115 20} type {Horz Knob} box NO_BOX labelsize 8 align 5 maximum 127 step 1

  140.           code0 {o->init("FreqLfo/Pintensity", 'i');}

  141.           class Fl_Osc_VSlider

  142.         }

  143.         Fl_Dial voicepanning {

  144.           tooltip {Panning (leftmost is Random)} xywh {257 5 20 20} box ROUND_UP_BOX labelsize 10 align 4 maximum 127 step 1

  145.           code0 {o->init("PPanning");}

  146.           class Fl_Osc_Dial

  147.         }

  148.         Fl_Group voiceoscil {open

  149.           xywh {102 5 30 20} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

  150.           code0 {voiceoscil->ext = "OscilSmp/";}

  151.           code1 {oscil=new Fl_Oscilloscope(o->x(),o->y()+1,o->w(),o->h(),"");}

  152.           code2 {oscil->init(false);}

  153.           class Fl_Osc_Group

  154.         } {}

  155.         Fl_Value_Output detunevalueoutput {

  156.           xywh {307 5 45 20} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10

  157.           code0 {o->init("detunevalue");}

  158.           class Fl_Osc_Output

  159.         }

  160.         Fl_Slider voicedetune {

  161.           callback {detunevalueoutput->update();}

  162.           tooltip {Fine Detune (cents)} xywh {357 5 185 20} type {Horz Knob} box NO_BOX minimum -8192 maximum 8191 step 1

  163.           code0 {o->init("PDetune",'i');}

  164.           class Fl_Osc_Slider

  165.         }

  166.         Fl_Box whitenoiselabel {

  167.           label N

  168.           xywh {107 5 20 20} labelfont 1 labelsize 13 labelcolor 54 hide

  169.         }

  170.         Fl_Box pinknoiselabel {

  171.           label N

  172.           xywh {107 5 20 20} labelfont 1 labelsize 13 labelcolor 212 hide

  173.         }

  174.       }

  175.       Fl_Check_Button voiceenabled {

  176.         label 01

  177.         callback {if (o->value()==0) voicelistitemgroup->deactivate();

  178. else voicelistitemgroup->activate();

  179. o->redraw();}

  180.         private xywh {30 5 20 20} down_box DOWN_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 4

  181.         code0 {char tmp[10];snprintf(tmp,10,"%d",nvoice+1);o->label(strdup(tmp));}

  182.         code1 {o->init("Enabled");}

  183.         class Fl_Osc_Check

  184.       }

  185.       Fl_Button {} {

  186.         label edit

  187.         callback {

  188. class ADnoteUI *adnoteui = ui->partui->adnoteui;

  189. adnoteui->ADnoteVoice->show();

  190. adnoteui->currentvoicecounter->value(nvoice+1);

  191. adnoteui->currentvoicecounter->do_callback();

  192. class ADvoiceUI *advoice = adnoteui->advoice;

  193. if (advoice->mod_type->value() == 0)

  194.     advoice->voiceFMparametersgroup->deactivate();

  195. else

  196.     advoice->voiceFMparametersgroup->activate();

  197. }

  198.         xywh {53 6 40 15} box THIN_UP_BOX labelsize 11

  199.       }

  200.     }

  201.   }

  202.   Function {ADvoicelistitem(int x,int y, int w, int h, const char *label=0):Fl_Osc_Group(x,y,w,h,label)} {open

  203.   } {

  204.     code {assert(osc);

  205.     voice_phase = new Osc_IntModel(osc);

  206.     voice_phase->callback=[this](int phase) {

  207.     oscil->phase=phase;

  208.     voiceoscil->redraw();

  209.     return;

  210. };

  211.     sound_type = new Osc_IntModel(osc);

  212.     sound_type->callback=[this](int voice_type) {

  213.     switch (voice_type) {

  214.         case 0:

  215. 	    whitenoiselabel->hide();

  216. 	    pinknoiselabel->hide();

  217. 	    voiceresonanceenabled->activate();

  218. 	    detunevalueoutput->activate();

  219. 	    voicedetune->activate();

  220. 	    voicelfofreq->activate();

  221. 	    voiceoscil->activate();

  222. 	    return;

  223. 	case 1:

  224.             whitenoiselabel->show();

  225.             pinknoiselabel->hide();

  226. 	    break;

  227. 	default:

  228.             pinknoiselabel->show();

  229.             whitenoiselabel->hide();

  230.     }

  231. 

  232.     voiceresonanceenabled->deactivate();

  233.     detunevalueoutput->deactivate();

  234.     voicedetune->deactivate();

  235.     voicelfofreq->deactivate();

  236.     voiceoscil->deactivate();

  237.     };

  238. 

  239.     ext_oscil = new Osc_IntModel(osc);

  240.     ext_oscil->callback = [this](int ext) {

  241.         if(ext == -1)

  242.             voiceoscil->reext("OscilSmp/");

  243.         else

  244.             voiceoscil->reext("../VoicePar"+to_s(ext)+"/OscilSmp/");

  245.     };

  246.     nvoice=0;} {}

  247.   }

  248.   Function {init(int nvoice_, std::string loc_, Fl_Osc_Interface *osc_)} {open

  249.   } {

  250.     code {assert(osc_);

  251. assert(!loc_.empty());

  252.     voice_phase->doUpdate(loc_ + "Poscilphase");

  253.     sound_type->doUpdate(loc_ + "Type");

  254.     ext_oscil->doUpdate(loc_ + "Pextoscil");

  255. 

  256. nvoice=nvoice_;

  257. loc   = loc_;

  258. make_window();

  259. ADnoteVoiceListItem->show();

  260. end();} {}

  261.   }

  262.   Function {refreshlist()} {open

  263.   } {

  264.     code {if (voiceenabled->value()==0) voicelistitemgroup->deactivate();

  265.     else voicelistitemgroup->activate();

  266. detunevalueoutput->do_callback();

  267. ADnoteVoiceListItem->redraw();} {}

  268.   }

  269.   Function {~ADvoicelistitem()} {} {

  270.     code {ADnoteVoiceListItem->hide();

  271.     delete voice_phase;

  272.     delete sound_type;

  273.     delete ext_oscil;

  274.     } {}

  275.   }

  276.   decl {int nvoice;} {private local

  277.   }

  278.   decl {class Osc_IntModel *voice_phase;} {private local

  279.   }

  280.   decl {class Osc_IntModel *sound_type;} {private local

  281.   }

  282.   decl {class Osc_IntModel *ext_oscil;} {private local

  283.   }

  284.   decl {Fl_Oscilloscope *oscil;} {private local

  285.   }

  286.   decl {std::string loc;} {private local

  287.   }

  288. } 

  289. 

  290. class ADvoiceUI {open : {public Fl_Group}

  291. } {

  292.   Function {make_window()} {open

  293.   } {

  294.     Fl_Window ADnoteVoiceParameters {

  295.       label Voice open

  296.       xywh {512 391 765 595} type Double box NO_BOX

  297.       class Fl_Osc_Group visible

  298.     } {

  299.       Fl_Box {} {

  300.         label label

  301.         xywh {25 25 35 16}

  302.         code0 {ADnoteVoiceParameters->base = base+"VoicePar"+to_s(nvoice)+"/";}

  303.         code1 {ADnoteVoiceParameters->osc = osc_i;}

  304.       }

  305.       Fl_Group voiceparametersgroup {open

  306.         xywh {0 0 770 590} color 48

  307.       } {

  308.         Fl_Group voicemodegroup {open

  309.           xywh {0 5 770 585} color 64

  310.         } {

  311.           Fl_Group voiceFMparametersgroup {

  312.             label MODULATOR open

  313.             xywh {530 5 230 580} box UP_FRAME color 48 labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  314.           } {

  315.             Fl_Group modfrequency {

  316.               label {Mod.FREQUENCY}

  317.               xywh {535 220 220 155} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  318.             } {

  319.               Fl_Group voiceFMfreqenvgroup {

  320.                 label {ADSynth Modulator - Frequency Envelope}

  321.                 xywh {540 300 210 70} box FLAT_BOX color 51 align 144

  322.                 code0 {o->init(ENV_ASR, osc_i, loc, "FMFreqEnvelope/");}

  323.                 class EnvelopeUI

  324.               } {}

  325.               Fl_Check_Button {} {

  326.                 label On

  327.                 callback {if (o->value()==0) voiceFMfreqenvgroup->deactivate();

  328. else voiceFMfreqenvgroup->activate();

  329. o->redraw();}

  330.                 tooltip {Forced Release} xywh {545 305 50 10} down_box DOWN_BOX labelfont 1 labelsize 11

  331.                 code0 {o->init("PFMFreqEnvelopeEnabled");}

  332.                 class Fl_Osc_Check

  333.               }

  334.               Fl_Counter {} {

  335.                 label {Coarse Det.}

  336.                 tooltip {Coarse Detune} xywh {685 280 60 15} labelsize 10 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 11

  337.                 code0 {o->init("FMcoarsedetune");}

  338.                 code3 {o->lstep(10);}

  339.                 class Fl_Osc_Counter

  340.               }

  341.               Fl_Counter {} {

  342.                 label Octave

  343.                 tooltip Octave xywh {625 280 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 11

  344.                 code0 {o->init("FMoctave");}

  345.                 class Fl_Osc_Counter

  346.               }

  347.               Fl_Slider {} {

  348.                 callback {fmdetunevalueoutput->update();}

  349.                 tooltip {Fine Detune (cents)} xywh {590 245 155 15} type {Horz Knob} box NO_BOX minimum -8192 maximum 8191 step 1

  350.                 code0 {o->init("PFMDetune", 'i');}

  351.                 class Fl_Osc_Slider

  352.               }

  353.               Fl_Value_Output fmdetunevalueoutput {

  354.                 label Detune

  355.                 xywh {540 245 45 18} labelsize 8 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 8

  356.                 code0 {o->init("FMdetunevalue");}

  357.                 class Fl_Osc_Output

  358.               }

  359.               Fl_Choice {} {

  360.                 label {Detune Type}

  361.                 callback {fmdetunevalueoutput->update();} open

  362.                 xywh {540 280 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

  363.                 code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}

  364.                 code1 {o->init("PFMDetuneType");}

  365.                 class Fl_Osc_Choice

  366.               } {}

  367.             }

  368.             Fl_Group {} {

  369.               label {Mod.AMPLITUDE}

  370.               xywh {535 60 220 160} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  371.             } {

  372.               Fl_Value_Slider {} {

  373.                 label Vol

  374.                 tooltip Volume xywh {540 80 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  375.                 code0 {o->init("PFMVolume", 'i');}

  376.                 class Fl_Osc_VSlider

  377.               }

  378.               Fl_Value_Slider {} {

  379.                 label {V.Sns}

  380.                 tooltip {Velocity Sensing Function (rightmost to disable)} xywh {540 100 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  381.                 code0 {o->init("PFMVelocityScaleFunction");}

  382.                 class Fl_Osc_VSlider

  383.               }

  384.               Fl_Group voiceFMampenvgroup {

  385.                 label {ADSynth Modulator - Amplitude Envelope} open

  386.                 xywh {540 145 205 70} box FLAT_BOX color 51 align 144

  387.                 code0 {o->init(//pars->VoicePar[nvoice].FMAmpEnvelope,

  388.                 ENV_ADSR, osc_i, loc, "FMAmpEnvelope/");}

  389.                 class EnvelopeUI

  390.               } {}

  391.               Fl_Check_Button {} {

  392.                 label On

  393.                 callback {if (o->value()==0) voiceFMampenvgroup->deactivate();

  394. else voiceFMampenvgroup->activate();

  395. o->redraw();}

  396.                 tooltip {Forced Release} xywh {545 150 50 10} down_box DOWN_BOX labelfont 1 labelsize 11

  397.                 code0 {o->init("PFMAmpEnvelopeEnabled");}

  398.                 class Fl_Osc_Check

  399.               }

  400.               Fl_Value_Slider {} {

  401.                 label {F.Damp}

  402.                 tooltip {Modulator Damp at Higher frequency} xywh {540 120 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 minimum -64 maximum 63 step 1

  403.                 code0 {o->init("PFMVolumeDamp",'i');}

  404.                 class Fl_Osc_VSlider

  405.               }

  406.             }

  407.             Fl_Group modoscil {open

  408.               xywh {535 365 220 220}

  409.             } {

  410.               Fl_Group fmoscil {open

  411.                 xywh {535 440 220 140} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

  412.                 code0 {fmoscil->base = loc; fmoscil->ext="FMSmp/";fmoscil->osc = osc_i;fmoscil->begin();}

  413.                 code1 {oscFM=new Fl_Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  414.                 code2 {//int nv=nvoice; if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;}

  415.                 code3 {oscFM->parent(fmoscil);oscFM->init(false);oscFM->update();fmoscil->end();}

  416.                 class Fl_Osc_Group

  417.               } {}

  418.               Fl_Box {} {

  419.                 label {Mod.Oscillator}

  420.                 xywh {535 375 155 20} labelfont 1 align 20

  421.               }

  422.               Fl_Button changeFMoscilbutton {

  423.                 label Change

  424.                 callback {if (oscedit!=NULL)

  425.     delete(oscedit);

  426. 

  427.                 if(extFMoscil->value() == 0)

  428.                     oscedit=new OscilEditor(true,loc+"FMSmp/", osc_i);

  429.                 else

  430.                     oscedit=new OscilEditor(true,loc+"../VoicePar"+to_s(extFMoscil->value()-1)+"/FMSmp/", osc_i);}

  431.                 xywh {700 380 55 15} box THIN_UP_BOX labelfont 1 labelsize 11

  432.                 code0 {(void)o;/*if (extFMoscil->value()>=0) o->labelcolor(FL_BLUE);*/}

  433.               }

  434.               Fl_Slider {} {

  435.                 label Phase

  436.                 xywh {645 415 105 15} type {Horz Knob} box NO_BOX labelsize 10 align 5 minimum -63 maximum 64 step 1

  437.                 code0 { o->init("PFMoscilphase", 'i'); o->set_scope(oscFM); }

  438.                 class PhaseSlider

  439.               }

  440.               Fl_Choice extFMoscil {

  441.                 label Use

  442.                 callback {if ((int) o->value() != 0) {

  443.     oscFM->init(false);

  444.     changeFMoscilbutton->labelcolor(FL_BLUE);

  445. } else { 

  446.     oscFM->init(false);

  447.     changeFMoscilbutton->labelcolor(FL_BLACK);

  448. };

  449. if(o->value() == 0)

  450. fmoscil->rebase(loc);

  451. else

  452. fmoscil->rebase(loc+"../VoicePar"+to_s(o->value()-1)+"/");

  453. voiceFMparametersgroup->redraw();} open

  454.                 xywh {560 410 75 20} down_box BORDER_BOX labelsize 10 textfont 1 textsize 10

  455.                 code0 {o->add("Internal");}

  456.                 code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtM.%2d",i+1);o->add(tmp);};}

  457.                 code3 {o->init("PextFMoscil",-1);}

  458.                 class Fl_Osc_Choice

  459.               } {}

  460.             }

  461.             Fl_Choice extMod {

  462.               label {External Mod.}

  463.               callback {if ((int) o->value() != 0) {

  464.     modoscil->deactivate();

  465.     modfrequency->deactivate();

  466. } else { 

  467.     modoscil->activate();

  468.     modfrequency->activate();

  469. };

  470. voiceFMparametersgroup->redraw();} open

  471.               xywh {635 40 85 20} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

  472.               code0 {o->add("OFF");}

  473.               code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtMod.%2d",i+1);o->add(tmp);};}

  474.               code2 {o->init("PFMVoice", -1);}

  475.               code3 {if ((int) o->value() != 0) {modoscil->deactivate();modfrequency->deactivate();}}

  476.               class Fl_Osc_Choice

  477.             } {}

  478.           }

  479.           Fl_Choice mod_type {

  480.             label {Type:}

  481.             callback {if (o->value()==0) voiceFMparametersgroup->deactivate();

  482. else voiceFMparametersgroup->activate();

  483. o->redraw();}

  484.             xywh {535 40 80 20} down_box BORDER_BOX align 5

  485.             code0 {o->init("PFMEnabled");}

  486.             class Fl_Osc_Choice

  487.           } {

  488.             MenuItem {} {

  489.               label OFF

  490.               xywh {40 40 100 20} labelfont 1

  491.             }

  492.             MenuItem {} {

  493.               label MORPH

  494.               xywh {50 50 100 20} labelfont 1

  495.             }

  496.             MenuItem {} {

  497.               label RING

  498.               xywh {60 60 100 20} labelfont 1

  499.             }

  500.             MenuItem {} {

  501.               label PM

  502.               xywh {70 70 100 20} labelfont 1

  503.             }

  504.             MenuItem {} {

  505.               label FM

  506.               xywh {80 80 100 20} labelfont 1

  507.             }

  508.             MenuItem {} {

  509.               label PITCH

  510.               xywh {90 90 100 20} labelfont 1 deactivate

  511.             }

  512.           }

  513.           Fl_Group {} {

  514.             label FREQUENCY open

  515.             xywh {5 265 525 120} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  516.           } {

  517.             Fl_Group voicefreqenvgroup {

  518.               label {ADSynth Voice - Frequency Envelope} open

  519.               xywh {10 305 205 70} box FLAT_BOX color 51 align 144

  520.               code0 {o->init(//pars->VoicePar[nvoice].FreqEnvelope,

  521.               ENV_ASR, osc_i, loc, "FreqEnvelope/");}

  522.               class EnvelopeUI

  523.             } {}

  524.             Fl_Check_Button {} {

  525.               label On

  526.               callback {if (o->value()==0) voicefreqenvgroup->deactivate();

  527. else voicefreqenvgroup->activate();

  528. o->redraw();}

  529.               tooltip {Forced Release} xywh {15 310 50 10} down_box DOWN_BOX labelfont 1 labelsize 11

  530.               code0 {o->init("PFreqEnvelopeEnabled");}

  531.               class Fl_Osc_Check

  532.             }

  533.             Fl_Group voicefreqlfogroup {

  534.               label {Frequency LFO     } open

  535.               xywh {220 305 230 70} box FLAT_BOX color 47 align 144

  536.               code0 {o->init(osc_i, loc,"FreqLfo/");}

  537.               class LFOUI

  538.             } {}

  539.             Fl_Check_Button {} {

  540.               label On

  541.               callback {if (o->value()==0) voicefreqlfogroup->deactivate();

  542. else voicefreqlfogroup->activate();

  543. o->redraw();}

  544.               tooltip {Forced Release} xywh {225 311 55 10} down_box DOWN_BOX labelfont 1 labelsize 11

  545.               code0 {o->init("PFreqLfoEnabled");}

  546.               class Fl_Osc_Check

  547.             }

  548.             Fl_Counter {} {

  549.               label Octave

  550.               tooltip Octave xywh {470 285 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 11

  551.               code0 {o->init("octave");}

  552.               class Fl_Osc_Counter

  553.             }

  554.             Fl_Counter {} {

  555.               label {Coarse Det.}

  556.               tooltip {Coarse Detune} xywh {455 355 60 20} labelsize 10 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 11

  557.               code0 {o->init("coarsedetune");}

  558.               code3 {o->lstep(10);}

  559.               class Fl_Osc_Counter

  560.             }

  561.             Fl_Slider {} {

  562.               callback {detunevalueoutput->update();}

  563.               tooltip {Fine Detune (cents)} xywh {58 287 392 13} type {Horz Knob} box NO_BOX minimum -8192 maximum 8191 step 1

  564.               code0 {o->init("PDetune", 'i');}

  565.               class Fl_Osc_Slider

  566.             }

  567.             Fl_Value_Output detunevalueoutput {

  568.               label Detune

  569.               code0 {o->init("detunevalue");}

  570.               xywh {10 287 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10

  571.               class Fl_Osc_Output

  572.             }

  573.             Fl_Check_Button {} {

  574.               label 440Hz

  575.               callback {if (o->value()==0) fixedfreqetdial->deactivate();

  576.     else fixedfreqetdial->activate();}

  577.               tooltip {Set the voice base frequency to 440Hz} xywh {345 268 55 15} down_box DOWN_BOX labelfont 1 labelsize 11

  578.               code0 {o->init("Pfixedfreq");}

  579.               class Fl_Osc_Check

  580.             }

  581.             Fl_Dial fixedfreqetdial {

  582.               label {Eq.T.}

  583.               tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {405 270 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1

  584.               code0 {o->init("PfixedfreqET");}

  585.               class Fl_Osc_Dial

  586.             }

  587.             Fl_Choice {} {

  588.               label {Detune Type}

  589.               callback {detunevalueoutput->update();} open

  590.               xywh {455 320 70 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

  591.               code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}

  592.               code1 {o->init("PDetuneType");}

  593.               class Fl_Osc_Choice

  594.             } {}

  595.           }

  596.           Fl_Group voiceoscil {

  597.             xywh {80 390 445 145} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

  598.             code0 {voiceoscil->base = loc;voiceoscil->ext="OscilSmp/";voiceoscil->begin();//int nv=nvoice; if (extoscil->value()>=0) nv=extoscil->value();}

  599.             code1 {osc=new Fl_Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  600.             code2 {voiceoscil->osc = osc_i;}

  601.             code3 {osc->parent(voiceoscil); osc->init(false);voiceoscil->end();}

  602.             class Fl_Osc_Group

  603.           } {}

  604.           Fl_Button changevoiceoscilbutton {

  605.             label Change

  606.             callback {delete oscedit;

  607.                 if(extoscil->value() == 0)

  608.                     oscedit=new OscilEditor(true,loc+"OscilSmp/", osc_i);

  609.                 else

  610.                     oscedit=new OscilEditor(true,loc+"../VoicePar"+to_s(extoscil->value()-1)+"/OscilSmp/", osc_i);}

  611.             xywh {5 490 65 20} box THIN_UP_BOX labelfont 1 labelsize 11

  612.           }

  613.           Fl_Box {} {

  614.             label {Voice Oscillator}

  615.             xywh {5 390 75 35} labelfont 1 labelsize 12 align 128

  616.           }

  617.           Fl_Slider {} {

  618.             label Phase

  619.             xywh {10 435 65 10} type {Horz Knob} box NO_BOX labelsize 10 align 5 minimum -63 maximum 64 step 1

  620.             code0 { o->init("Poscilphase", 'i'); o->set_scope(osc); }

  621.             class PhaseSlider

  622.           }

  623.           Fl_Check_Button {} {

  624.             label {R.}

  625.             tooltip {Resonance On/Off} xywh {210 5 35 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 11

  626.             code0 {o->init("Presonance");}

  627.             class Fl_Osc_Check

  628.           }

  629.           Fl_Choice extoscil {

  630.             label {Use Oscil.}

  631.             callback {if ((int) o->value() != 0) {

  632.     osc->init(false);

  633.     changevoiceoscilbutton->labelcolor(FL_BLUE);

  634. } else { 

  635.     osc->init(false);

  636.     changevoiceoscilbutton->labelcolor(FL_BLACK);

  637. };

  638. if(o->value() == 0)

  639. voiceoscil->rebase(loc);

  640. else

  641. voiceoscil->rebase(loc+"../VoicePar"+to_s(o->value()-1)+"/");

  642. 

  643. voiceparametersgroup->redraw();

  644. voiceonbutton->redraw();} open

  645.             xywh {5 470 65 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

  646.             code0 {o->add("Internal");}

  647.             code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"Ext.%2d",i+1);o->add(tmp);};}

  648.             code3 {o->init("Pextoscil",-1);}

  649.             class Fl_Osc_Choice

  650.           } {}

  651.           Fl_Group {} {open

  652.             xywh {5 540 520 50} box UP_FRAME

  653.           } {

  654.             Fl_Dial {} {

  655.               label Vibrato

  656.               tooltip Vibrato xywh {364 555 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  657.               code0 {o->init("Unison_vibratto");}

  658.               class Fl_Osc_Dial

  659.             }

  660.             Fl_Choice {} {

  661.               label Invert

  662.               tooltip {Phase Invert} xywh {445 560 65 15} down_box BORDER_BOX labelsize 11 align 5 textfont 1 textsize 10

  663.               code0 {o->add("None");o->add("Random");char tmp[100];for (int i=2;i<=5;i++){snprintf(tmp,100,"%d %%",100/i);o->add(tmp);};}

  664.               code1 {o->init("Unison_invert_phase");}

  665.               class Fl_Osc_Choice

  666.             } {}

  667.             Fl_Slider {} {

  668.               label {Frequency Spread}

  669.               callback {unisonspreadoutput->update();}

  670.               tooltip {Frequency Spread of the Unison} xywh {95 562 125 13} type {Horz Knob} box NO_BOX labelsize 12 align 1 maximum 127 step 1 value 64

  671.               code0 {o->init("Unison_frequency_spread", 'i');}

  672.               class Fl_Osc_Slider

  673.             }

  674.             Fl_Value_Output unisonspreadoutput {

  675.               label {(cents)}

  676.               xywh {225 560 40 15} labelsize 10 align 5 maximum 1000 step 0.1 textfont 1 textsize 10

  677.               code0 {o->init("unisonFrequencySpreadCents");//o->value(pars->getUnisonFrequencySpreadCents(nvoice));}

  678.               class Fl_Osc_Output

  679.             }

  680.             Fl_Dial {} {

  681.               label {V.speed}

  682.               tooltip {Vibrato Average Speed} xywh {406 555 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  683.               code0 {o->init("Unison_vibratto_speed");}

  684.               class Fl_Osc_Dial

  685.             }

  686.             Fl_Dial {} {

  687.               label {Ph.rand}

  688.               tooltip {Phase randomness} xywh {280 555 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  689.               code0 {o->init("Unison_phase_randomness");}

  690.               class Fl_Osc_Dial

  691.             }

  692.             Fl_Dial {} {

  693.               label Stereo

  694.               tooltip {Stereo Spread} xywh {322 555 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  695.               code0 {o->init("Unison_stereo_spread");}

  696.               class Fl_Osc_Dial

  697.             }

  698.           }

  699.         }

  700.         Fl_Group {} {

  701.           label AMPLITUDE open

  702.           xywh {5 40 240 220} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  703.         } {

  704.           Fl_Value_Slider {} {

  705.             label Vol

  706.             tooltip Volume xywh {10 60 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  707.             code0 {o->init("PVolume");}

  708.             class Fl_Osc_VSlider

  709.           }

  710.           Fl_Value_Slider {} {

  711.             label {V.Sns}

  712.             tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 80 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  713.             code0 {o->init("PAmpVelocityScaleFunction");}

  714.             class Fl_Osc_VSlider

  715.           }

  716.           Fl_Group voiceampenvgroup {

  717.             label {ADSynth Voice - Amplitude Envelope} open

  718.             xywh {10 105 205 70} box FLAT_BOX color 51 align 144

  719.             code0 {o->init(//pars->VoicePar[nvoice].AmpEnvelope,

  720.             ENV_ADSR, osc_i, loc, "AmpEnvelope/");}

  721.             class EnvelopeUI

  722.           } {}

  723.           Fl_Dial {} {

  724.             label Pan

  725.             tooltip {Panning (leftmost is Random)} xywh {212 65 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  726.             code0 {o->init("PPanning");}

  727.             class Fl_Osc_Dial

  728.           }

  729.           Fl_Check_Button {} {

  730.             label On

  731.             callback {if (o->value()==0) voiceampenvgroup->deactivate();

  732. else voiceampenvgroup->activate();

  733. o->redraw();}

  734.             tooltip {Forced Release} xywh {15 110 50 10} down_box DOWN_BOX labelfont 1 labelsize 11

  735.             code0 {o->init("PAmpEnvelopeEnabled");}

  736.             class Fl_Osc_Check

  737.           }

  738.           Fl_Group voiceamplfogroup {

  739.             label {Amplitude LFO     } open

  740.             xywh {10 180 230 75} box FLAT_BOX color 47 align 144

  741.             code0 {o->init(osc_i, loc, "AmpLfo/");}

  742.             class LFOUI

  743.           } {}

  744.           Fl_Check_Button {} {

  745.             label On

  746.             callback {if (o->value()==0) voiceamplfogroup->deactivate();

  747. else voiceamplfogroup->activate();

  748. o->redraw();}

  749.             tooltip {Forced Release} xywh {15 185 55 10} down_box DOWN_BOX labelfont 1 labelsize 11

  750.             code0 {o->init("PAmpLfoEnabled");}

  751.             class Fl_Osc_Check

  752.           }

  753.           Fl_Check_Button {} {

  754.             label Minus

  755.             xywh {10 45 50 10} down_box DOWN_BOX labelfont 1 labelsize 10

  756.             code0 {o->init("PVolumeminus");}

  757.             class Fl_Osc_Check

  758.           }

  759.         }

  760.         Fl_Group voicefiltergroup {

  761.           label FILTER open

  762.           xywh {245 5 285 260} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  763.         } {

  764.           Fl_Group {} {

  765.             label {ADsynth Voice - Filter} open

  766.             xywh {250 30 275 75} box FLAT_BOX color 50 align 144

  767.             code0 {o->init(loc + "PFilter", osc_i, loc, "VoiceFilter/");}

  768.             class FilterUI

  769.           } {}

  770.           Fl_Group voicefilterenvgroup {

  771.             label {ADSynth Voice - Filter Envelope} open

  772.             xywh {250 115 275 70} box FLAT_BOX color 51 align 144

  773.             code0 {o->init(

  774.             ENV_ADSR_FILTER, osc_i, loc, "FilterEnvelope/");}

  775.             class EnvelopeUI

  776.           } {}

  777.           Fl_Check_Button {} {

  778.             label On

  779.             callback {if (o->value()==0) voicefilterenvgroup->deactivate();

  780. else voicefilterenvgroup->activate();

  781. o->redraw();}

  782.             tooltip {Forced Release} xywh {255 119 55 10} down_box DOWN_BOX labelfont 1 labelsize 11

  783.             code0 {o->init("PFilterEnvelopeEnabled");}

  784.             class Fl_Osc_Check

  785.           }

  786.           Fl_Group voicefilterlfogroup {

  787.             label {Filter LFO     } open

  788.             xywh {250 190 230 70} box FLAT_BOX color 47 align 144

  789.             code0 {o->init(osc_i, loc, "FilterLfo/");}

  790.             class LFOUI

  791.           } {}

  792.           Fl_Check_Button {} {

  793.             label On

  794.             callback {if (o->value()==0) voicefilterlfogroup->deactivate();

  795. else voicefilterlfogroup->activate();

  796. o->redraw();}

  797.             tooltip {Forced Release} xywh {255 196 55 10} down_box DOWN_BOX labelfont 1 labelsize 11

  798.             code0 {o->init("PFilterLfoEnabled");}

  799.             class Fl_Osc_Check

  800.           }

  801.         }

  802.         Fl_Group activeVoiceID {

  803.           label 01

  804.           xywh {5 5 55 35} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 22 align 16

  805.           code0 {char tmp[10];snprintf(tmp,10,"%d",nvoice+1);o->label(strdup(tmp));}

  806.         } {}

  807.         Fl_Choice {} {

  808.           callback {switch (o->value()) {

  809.   case 0: voicemodegroup->activate(); whitenoiselabel->hide(); pinknoiselabel->hide(); break;

  810.   case 1: voicemodegroup->deactivate(); whitenoiselabel->show(); pinknoiselabel->hide(); break;

  811.   default: voicemodegroup->deactivate(); whitenoiselabel->hide(); pinknoiselabel->show(); break;

  812. }} open

  813.           tooltip {Oscillator Type (sound/noise)} xywh {5 515 65 20} down_box BORDER_BOX labelsize 10 textfont 1 textsize 10

  814.           code0 {o->init("Type");}

  815.           class Fl_Osc_Choice

  816.         } {

  817.           MenuItem {} {

  818.             label Sound

  819.             xywh {5 5 100 20} labelfont 1 labelsize 11

  820.           }

  821.           MenuItem {} {

  822.             label White

  823.             xywh {15 15 100 20} labelfont 1 labelsize 11 labelcolor 55

  824.           }

  825.           MenuItem {} {

  826.             label Pink

  827.             xywh {25 25 100 20} labelfont 1 labelsize 11 labelcolor 212

  828.           }

  829.         }

  830.         Fl_Check_Button bypassfiltercheckbutton {

  831.           label {Bypass Global F.}

  832.           xywh {425 10 100 20} down_box DOWN_BOX labelfont 1 labelsize 10 align 148

  833.           code0 {o->init("Pfilterbypass");}

  834.           class Fl_Osc_Check

  835.         }

  836.         Fl_Group {} {open

  837.           xywh {115 5 95 35} box THIN_UP_BOX

  838.         } {

  839.           Fl_Value_Slider {} {

  840.             label Delay

  841.             tooltip Volume xywh {120 21 84 12} type {Horz Knob} box NO_BOX labelsize 11 align 5 maximum 127 step 1

  842.             code0 {o->init("PDelay");}

  843.             class Fl_Osc_VSlider

  844.           }

  845.         }

  846.         Fl_Check_Button {} {

  847.           label On

  848.           callback {if (o->value()==0) voicefiltergroup->deactivate();

  849. else voicefiltergroup->activate();

  850. o->redraw();

  851. bypassfiltercheckbutton->redraw();}

  852.           tooltip {Enable Filter} xywh {250 15 60 15} down_box DOWN_BOX labelfont 1 labelsize 11

  853.           code0 {o->init("PFilterEnabled");}

  854.           class Fl_Osc_Check

  855.         }

  856.         Fl_Box whitenoiselabel {

  857.           label {White Noise}

  858.           xywh {150 430 300 65} labelfont 1 labelsize 50 labelcolor 54 hide

  859.         }

  860.         Fl_Box pinknoiselabel {

  861.           label {Pink Noise}

  862.           xywh {150 430 300 65} labelfont 1 labelsize 50 labelcolor 212 hide

  863.         }

  864.         Fl_Counter {} {

  865.           label Unison selected

  866.           tooltip {Unison size} xywh {20 568 65 18} labelfont 1 align 5 minimum 1 maximum 64 step 1 value 1 textfont 1 textsize 11

  867.           code0 {o->init("Unison_size", 1);}

  868.           code1 {o->lstep(5);}

  869.           class Fl_Osc_Counter

  870.         }

  871.       }

  872.       Fl_Check_Button voiceonbutton {

  873.         label On

  874.         callback {if (o->value()==0) voiceparametersgroup->deactivate();

  875. else voiceparametersgroup->activate();

  876. o->redraw();}

  877.         xywh {60 5 55 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 13

  878.         code0 {o->init("Enabled");}

  879.         class Fl_Osc_Check

  880.       }

  881.     }

  882.   }

  883.   Function {ADvoiceUI(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {

  884.     code {nvoice=0;

  885. oscedit=NULL;} {}

  886.   }

  887.   Function {init(int nvoice_, std::string loc_, Fl_Osc_Interface *osc_)} {open

  888.   } {

  889.     code {assert(osc_);

  890. assert(!loc_.empty());

  891. nvoice=nvoice_;

  892. loc=loc_+"VoicePar"+to_s(nvoice)+"/";

  893. base = loc_;

  894. osc_i=osc_;

  895. make_window();

  896. end();

  897. ADnoteVoiceParameters->show();} {}

  898.   }

  899.   Function {~ADvoiceUI()} {open

  900.   } {

  901.     code {ADnoteVoiceParameters->hide();

  902. hide();

  903. delete(oscedit);

  904. //delete (ADnoteVoiceParameters);} {}

  905.   }

  906.   Function {change_voice(int nvoice_)} {open

  907.   } {

  908.     code {nvoice = nvoice_;

  909.     loc = base+"VoicePar"+to_s(nvoice)+"/";

  910.     char tmp[50];snprintf(tmp,10,"%d",nvoice+1);

  911.     activeVoiceID->label(strdup(tmp));

  912.     extoscil->clear();

  913.     extoscil->add("Internal");

  914.     for (int i=0;i<nvoice;i++) {

  915.         sprintf(tmp,"Ext.%2d",i+1);

  916.         extoscil->add(tmp);

  917.     };

  918. 

  919.     extFMoscil->clear();

  920.     extFMoscil->add("Internal");

  921.     for (int i=0;i<nvoice;i++) {

  922.         sprintf(tmp,"ExtM.%2d",i+1);

  923.         extFMoscil->add(tmp);

  924.     }

  925.               

  926.     extMod->clear();

  927.     extMod->add("OFF");

  928.     for (int i=0;i<nvoice;i++) {

  929.         sprintf(tmp,"ExtMod.%2d",i+1);

  930.         extMod->add(tmp);

  931.     }

  932.     ADnoteVoiceParameters->rebase(base+"VoicePar"+to_s(nvoice)+"/");} {selected

  933.     }

  934.   }

  935.   decl {int nvoice;} {private local

  936.   }

  937.   decl {OscilEditor *oscedit;} {private local

  938.   }

  939.   decl {Fl_Oscilloscope *osc;} {private local

  940.   }

  941.   decl {Fl_Oscilloscope *oscFM;} {private local

  942.   }

  943.   decl {std::string loc;} {private local

  944.   }

  945.   decl {std::string base;} {private local

  946.   }

  947.   decl {Fl_Osc_Interface *osc_i;} {private local

  948.   }

  949. } 

  950. 

  951. class ADnoteUI {open : {public PresetsUI_}

  952. } {

  953.   Function {make_window()} {open private

  954.   } {

  955.     Fl_Window ADnoteGlobalParameters {

  956.       label {ADsynth Global Parameters of the Instrument} open

  957.       xywh {688 551 540 430} type Double

  958.       class Fl_Osc_Window visible

  959.     } {

  960.       Fl_Box {} {

  961.         xywh {0 0 0 0}

  962.         code0 {ADnoteGlobalParameters->init(osc, loc + "GlobalPar/");}

  963.       }

  964.       Fl_Group {} {

  965.         label FREQUENCY open

  966.         xywh {5 280 530 115} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  967.       } {

  968.         Fl_Group freqenv {

  969.           label {ADSynth Global - Frequency Envelope} open

  970.           xywh {10 320 205 70} box FLAT_BOX color 51 align 144

  971.           code0 {o->init(ENV_ASR, osc, loc, "GlobalPar/FreqEnvelope/");}

  972.           class EnvelopeUI

  973.         } {}

  974.         Fl_Counter octave {

  975.           label Octave

  976.           tooltip Octave xywh {455 300 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 11

  977.           code0 {o->init("octave");}

  978.           class Fl_Osc_Counter

  979.         }

  980.         Fl_Counter coarsedet {

  981.           label {Coarse det.}

  982.           tooltip {Coarse Detune} xywh {460 370 60 20} type Simple labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 11

  983.           code0 {o->init("coarsedetune");}

  984.           code3 {o->lstep(10);}

  985.           class Fl_Osc_Counter

  986.         }

  987.         Fl_Group freqlfo {

  988.           label {Frequency LFO     } open

  989.           xywh {220 320 230 70} box FLAT_BOX color 47 align 144

  990.           code0 {o->init(osc, loc, "GlobalPar/FreqLfo/");}

  991.           class LFOUI

  992.         } {}

  993.         Fl_Slider detune {

  994.           callback {detunevalueoutput->update();}

  995.           tooltip {Fine Detune (cents)} xywh {60 300 385 15} type {Horz Knob} box NO_BOX minimum -8192 maximum 8191 step 1

  996.           code0 {o->init("PDetune", 'i');}

  997.           class Fl_Osc_Slider

  998.         }

  999.         Fl_Value_Output detunevalueoutput {

  1000.           label Detune

  1001.           xywh {12 300 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10

  1002.           code0 {o->init("detunevalue");}

  1003.           class Fl_Osc_Output

  1004.         }

  1005.         Fl_Choice detunetype {

  1006.           label {Detune Type}

  1007.           callback {detunevalueoutput->update();

  1008. 	  ui->partui->adnoteui->advoice->detunevalueoutput->update();

  1009. 	  ui->partui->adnoteui->advoice->fmdetunevalueoutput->update();

  1010. 	  } open

  1011.           xywh {455 340 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

  1012.           code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}

  1013.           code1 {o->init("PDetuneType",1);}

  1014.           class Fl_Osc_Choice

  1015.         } {}

  1016.         Fl_Dial {} {

  1017.           label relBW

  1018.           callback {for (int i=0;i<NUM_VOICES;i++){

  1019.   voicelistitem[i]->refreshlist();

  1020. };}

  1021.           tooltip {Bandwidth - how the relative fine detune of the voice are changed} xywh {505 295 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  1022.           code0 {o->init("PBandwidth");}

  1023.           class Fl_Osc_Dial

  1024.         }

  1025.       }

  1026.       Fl_Group {} {

  1027.         label AMPLITUDE open

  1028.         xywh {5 5 240 260} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  1029.       } {

  1030.         Fl_Value_Slider volume {

  1031.           label Vol

  1032.           tooltip Volume xywh {10 30 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  1033.           code0 {o->init("PVolume");}

  1034.           class Fl_Osc_VSlider

  1035.         }

  1036.         Fl_Value_Slider vsns {

  1037.           label {V.Sns}

  1038.           tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 50 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

  1039.           code0 {o->init("PAmpVelocityScaleFunction");}

  1040.           class Fl_Osc_VSlider

  1041.         }

  1042.         Fl_Dial pan {

  1043.           label Pan

  1044.           tooltip {Panning (leftmost is Random)} xywh {210 25 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  1045.           code0 {o->init("PPanning");}

  1046.           class Fl_Osc_Dial

  1047.         }

  1048. 	  Fl_Dial {} {

  1049. 	    label De-pop selected

  1050.             tooltip {Pop suppression} xywh {208 228 20 20} type Float labelsize 10 maximum 127 step 1 textfont 1 textsize 11

  1051.             code0 {o->init("Fadein_adjustment");}

  1052. 	    class Fl_Osc_Dial

  1053.           }

  1054. 

  1055.         Fl_Dial pstr {

  1056.           label {P.Str.}

  1057.           tooltip {Punch Strength} xywh {78 237 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  1058.           code0 {o->init("PPunchStrength");}

  1059.           class Fl_Osc_Dial

  1060.         }

  1061.         Fl_Dial pt {

  1062.           label {P.t.}

  1063.           tooltip {Punch Time (duration)} xywh {108 237 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  1064.           code0 {o->init("PPunchTime");}

  1065.           class Fl_Osc_Dial

  1066.         }

  1067.         Fl_Dial pstc {

  1068.           label {P.Stc.}

  1069.           tooltip {Punch Stretch} xywh {138 237 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  1070.           code0 {o->init("PPunchStretch");}

  1071.           class Fl_Osc_Dial

  1072.         }

  1073.         Fl_Dial pvel {

  1074.           label {P.Vel.}

  1075.           tooltip {Punch Velocity Sensing} xywh {168 237 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  1076.           code0 {o->init("PPunchVelocitySensing");}

  1077.           class Fl_Osc_Dial

  1078.         }

  1079.         Fl_Group ampenv {

  1080.           label {ADSynth Global - Amplitude Envelope} open

  1081.           xywh {10 75 205 70} box FLAT_BOX color 51 align 144

  1082.           code0 {o->init(ENV_ADSR, osc, loc, "GlobalPar/AmpEnvelope/");}

  1083.           class EnvelopeUI

  1084.         } {}

  1085.         Fl_Group amplfo {

  1086.           label {Amplitude LFO          } open

  1087.           xywh {10 150 230 70} box FLAT_BOX color 47 align 144

  1088.           code0 {o->init(osc, loc, "GlobalPar/AmpLfo/");}

  1089.           class LFOUI

  1090.         } {}

  1091.         Fl_Check_Button rndgrp {

  1092.           label {Rnd Grp}

  1093.           tooltip {How the Harmonic Amplitude is applied to voices that use the same oscillator} xywh {7 241 65 18} down_box DOWN_BOX labelsize 11

  1094.           code0 {o->init("Hrandgrouping");}

  1095.           class Fl_Osc_Check

  1096.         }

  1097.       }

  1098.       Fl_Group {} {

  1099.         label FILTER open

  1100.         xywh {250 5 285 265} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  1101.       } {

  1102.         Fl_Group filterenv {

  1103.           label {ADSynth Global - Filter Envelope} open

  1104.           xywh {255 118 275 70} box FLAT_BOX color 51 align 144

  1105.           code0 {o->init(ENV_ADSR_FILTER, osc, loc, "GlobalPar/FilterEnvelope/");}

  1106.           class EnvelopeUI

  1107.         } {}

  1108.         Fl_Group filterlfo {

  1109.           label {Filter LFO} open

  1110.           xywh {255 195 230 70} box FLAT_BOX color 47 align 144

  1111.           code0 {o->init(osc, loc, "GlobalPar/FilterLfo/");}

  1112.           class LFOUI

  1113.         } {}

  1114.         Fl_Group filterui {

  1115.           label {ADsynth Global - Filter} open

  1116.           xywh {255 35 275 75} box FLAT_BOX color 50 align 144

  1117.           code0 {o->init(loc + "GlobalPar/PFilter",

  1118.           osc, loc, "GlobalPar/GlobalFilter/");}

  1119.           class FilterUI

  1120.         } {}

  1121.       }

  1122.       Fl_Check_Button stereo {

  1123.         label Stereo

  1124.         xywh {7 223 65 18} down_box DOWN_BOX labelsize 11

  1125.         code0 {o->init("PStereo");}

  1126.         class Fl_Osc_Check

  1127.       }

  1128.       Fl_Button {} {

  1129.         label {Show Voice List}

  1130.         callback {for (int i=0;i<NUM_VOICES;i++){

  1131.   voicelistitem[i]->refreshlist();

  1132. }

  1133. ADnoteVoiceList->show();}

  1134.         xywh {180 400 125 25} labelsize 12

  1135.       }

  1136.       Fl_Button {} {

  1137.         label {Show Voice Parameters}

  1138.         callback {

  1139.         if (advoice->mod_type->value() == 0)

  1140.             advoice->voiceFMparametersgroup->deactivate();

  1141.         else

  1142.             advoice->voiceFMparametersgroup->activate();

  1143.         ADnoteVoice->show();}

  1144.         xywh {5 400 170 25} labelsize 12

  1145.       }

  1146.       Fl_Button {} {

  1147.         label Close

  1148.         callback {ADnoteGlobalParameters->hide();}

  1149.         xywh {475 400 60 25} box THIN_UP_BOX

  1150.       }

  1151.       Fl_Button {} {

  1152.         label Resonance

  1153.         callback {resui->resonancewindow->redraw();

  1154. resui->resonancewindow->show();}

  1155.         tooltip Resonance xywh {309 400 86 25} box THIN_UP_BOX labelsize 12

  1156.       }

  1157.       Fl_Button {} {

  1158.         label C

  1159.         callback {presetsui->copy(loc);}

  1160.         xywh {405 405 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  1161.       }

  1162.       Fl_Button {} {

  1163.         label P

  1164.         callback {presetsui->paste(loc,this);}

  1165.         xywh {435 405 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  1166.       }

  1167.     }

  1168.     Fl_Window ADnoteVoice {

  1169.       label {ADsynth Voice Parameters} open

  1170.       xywh {48 361 765 630} type Double

  1171.       class Fl_Osc_Window visible

  1172.     } {

  1173.       Fl_Box {} {

  1174.         xywh {0 0 0 0}

  1175.         code0 {ADnoteVoice->init(osc,loc);}

  1176.       }

  1177.       Fl_Group advoice {open

  1178.         xywh {0 0 765 595}

  1179.         code0 {o->init(nvoice,loc, osc);}

  1180.         code1 {o->show();}

  1181.         class ADvoiceUI

  1182.       } {}

  1183.       Fl_Button {} {

  1184.         label {Close}

  1185.         callback {ADnoteVoice->hide();}

  1186.         xywh {700 601 60 25} box THIN_UP_BOX

  1187.       }

  1188.       Fl_Counter currentvoicecounter {

  1189.         label {Current Voice}

  1190.         callback {nvoice=(int)o->value()-1;

  1191. advoice->change_voice(nvoice);}

  1192.         xywh {10 601 130 25} type Simple labelfont 1 align 8 minimum 0 maximum 2 step 1 value 1 textfont 1 textsize 13

  1193.         code0 {o->bounds(1,NUM_VOICES);}

  1194.       }

  1195.       Fl_Button {} {

  1196.         label C

  1197.         callback {presetsui->copy(ADnoteVoice->loc(),nvoice);}

  1198.         xywh {630 609 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  1199.       }

  1200.       Fl_Button {} {

  1201.         label P

  1202.         callback {presetsui->paste(ADnoteVoice->loc(),this,nvoice);}

  1203.         xywh {660 609 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  1204.       }

  1205.       Fl_Button {} {

  1206.         label {Show ADsynth}

  1207.         callback {ADnoteGlobalParameters->show();}

  1208.         xywh {280 601 110 25} labelfont 0 labelsize 12

  1209.       }

  1210.       Fl_Button {} {

  1211.         label {Show Voice List}

  1212.         callback {

  1213. 	  for (int i=0;i<NUM_VOICES;i++){

  1214.                voicelistitem[i]->refreshlist();

  1215.           }

  1216.           ADnoteVoiceList->show();

  1217. 	}

  1218.         xywh {400 601 130 25} labelfont 0 labelsize 12

  1219.       }

  1220.     }

  1221.     Fl_Window ADnoteVoiceList {

  1222.       label {ADsynth Voices list} open

  1223.       xywh {6 263 670 260} type Double hide

  1224.       class Fl_Osc_Window

  1225.     } {

  1226.       Fl_Box {} {

  1227.         xywh {0 0 0 0}

  1228.         code0 {ADnoteVoiceList->init(osc, loc);}

  1229.       }

  1230.       Fl_Text_Display {} {

  1231.         label {No.}

  1232.         xywh {17 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1233.       }

  1234.       Fl_Text_Display {} {

  1235.         label Vol

  1236.         xywh {190 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1237.       }

  1238.       Fl_Text_Display {} {

  1239.         label Detune

  1240.         xywh {431 15 25 10} box NO_BOX labelfont 1 labelsize 11

  1241.       }

  1242.       Fl_Text_Display {} {

  1243.         label Pan

  1244.         xywh {253 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1245.       }

  1246.       Fl_Text_Display {} {

  1247.         label {Vib. Depth} selected

  1248.         xywh {600 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1249.       }

  1250.       Fl_Text_Display {} {

  1251.         label {R.}

  1252.         xywh {285 15 25 10} box NO_BOX labelfont 1 labelsize 11

  1253.       }

  1254.       Fl_Button {} {

  1255.         label {Close}

  1256.         callback {ADnoteVoiceList->hide();}

  1257.         xywh {271 237 80 20}

  1258.       }

  1259.       Fl_Scroll {} {open

  1260.         xywh {0 15 670 220} type VERTICAL box THIN_UP_BOX

  1261.       } {

  1262.         Fl_Pack {} {open

  1263.           xywh {0 20 670 210}

  1264.           code0 {o->begin();for (int i=0;i<NUM_VOICES;i++){voicelistitem[i]=new ADvoicelistitem(0,0,670,25,"");voicelistitem[i]->init(i,loc+"VoicePar"+to_s(i)+"/",osc);}o->end();}

  1265.         } {}

  1266.       }

  1267.       Fl_Button {} {

  1268.         label {Edit ADsynth}

  1269.         callback {ui->partui->adnoteui->ADnoteGlobalParameters->show();}

  1270.         xywh {5 237 106 20} labelsize 12

  1271.       }

  1272.     }

  1273.   }

  1274.   Function {ADnoteUI(std::string loc_, Fl_Osc_Interface *osc_)} {open

  1275.   } {

  1276.     code {assert(osc_);

  1277. assert(!loc_.empty());

  1278. 

  1279. nvoice=0;

  1280. resui=new ResonanceUI(osc_, loc_+"GlobalPar/Reson/");

  1281. loc=loc_;

  1282. osc=osc_;

  1283. make_window();} {}

  1284.   }

  1285.   Function {~ADnoteUI()} {open

  1286.   } {

  1287.     code {ADnoteVoiceList->hide();

  1288. ADnoteGlobalParameters->hide();

  1289. ADnoteVoice->hide();

  1290. delete ADnoteVoiceList;

  1291. delete ADnoteGlobalParameters;

  1292. delete ADnoteVoice;

  1293. delete resui;} {}

  1294.   }

  1295.   Function {refresh()} {open

  1296.   } {

  1297.     code {amplfo->refresh();

  1298. freqlfo->refresh();

  1299. filterlfo->refresh();

  1300. 

  1301. ampenv->refresh();

  1302. freqenv->refresh();

  1303. filterenv->refresh();

  1304. filterui->refresh();

  1305. 

  1306. for (int i=0;i<NUM_VOICES;i++) voicelistitem[i]->refreshlist();

  1307. 

  1308. resui->refresh();

  1309. currentvoicecounter->do_callback();} {}

  1310.   }

  1311.   decl {ResonanceUI *resui;} {private local

  1312.   }

  1313.   decl {int nvoice;} {private local

  1314.   }

  1315.   decl {ADvoicelistitem *voicelistitem[NUM_VOICES];} {private local

  1316.   }

  1317.   decl {std::string loc;} {private local

  1318.   }

  1319.   decl {Fl_Osc_Interface *osc;} {private local

  1320.   }

  1321. }