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.
3183 Commits
16 Branches
546MB
Tree: 485f933920
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '485f933920'
${ noResults }
Carla/source/native-plugins/zynaddsubfx/UI/ADnoteUI.fl

1296 lines
46KB
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 {OSC_value(int i)} {open return_type void

  95.    } { code {

  96.        value(64-i);

  97.    } {} }

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

  99.   } {

  100.     code {

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

  102. 	if(cb_data.first)

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

  104. } {}

  105.    }

  106. }

  107. 

  108. 

  109. class ADvoicelistitem {open : {public Fl_Osc_Group}

  110. } {

  111.   Function {make_window()} {open private

  112.   } {

  113.     Fl_Window ADnoteVoiceListItem {open

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

  115.       class Fl_Osc_Group visible

  116.     } {

  117.       Fl_Box {} {

  118.         xywh {0 0 0 0}

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

  120.       }

  121.       Fl_Group voicelistitemgroup {open

  122.         private xywh {0 0 670 25}

  123.         class Fl_Osc_Group

  124.       } {

  125.         Fl_Value_Slider voicevolume {

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

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

  128.           class Fl_Osc_VSlider

  129.         }

  130.         Fl_Check_Button voiceresonanceenabled {

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

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

  133.           class Fl_Osc_Check

  134.         }

  135.         Fl_Value_Slider voicelfofreq {

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

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

  138.           class Fl_Osc_VSlider

  139.         }

  140.         Fl_Dial voicepanning {

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

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

  143.           class Fl_Osc_Dial

  144.         }

  145.         Fl_Group voiceoscil {open

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

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

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

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

  150.           class Fl_Osc_Group

  151.         } {}

  152.         Fl_Value_Output detunevalueoutput {

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

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

  155.           class Fl_Osc_Output

  156.         }

  157.         Fl_Slider voicedetune {

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

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

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

  161.           class Fl_Osc_Slider

  162.         }

  163.         Fl_Box whitenoiselabel {

  164.           label N

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

  166.         }

  167.         Fl_Box pinknoiselabel {

  168.           label N

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

  170.         }

  171.       }

  172.       Fl_Check_Button voiceenabled {

  173.         label 01

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

  175. else voicelistitemgroup->activate();

  176. o->redraw();}

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

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

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

  180.         class Fl_Osc_Check

  181.       }

  182.       Fl_Button {} {

  183.         label edit

  184.         callback {

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

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

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

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

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

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

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

  192. else

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

  194. }

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

  196.       }

  197.     }

  198.   }

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

  200.   } {

  201.     code {assert(osc);

  202.     voice_phase = new Osc_IntModel(osc);

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

  204.     oscil->phase=phase;

  205.     voiceoscil->redraw();

  206.     return;

  207. };

  208.     sound_type = new Osc_IntModel(osc);

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

  210.     switch (voice_type) {

  211.         case 0:

  212. 	    whitenoiselabel->hide();

  213. 	    pinknoiselabel->hide();

  214. 	    voiceresonanceenabled->activate();

  215. 	    detunevalueoutput->activate();

  216. 	    voicedetune->activate();

  217. 	    voicelfofreq->activate();

  218. 	    voiceoscil->activate();

  219. 	    return;

  220. 	case 1:

  221.             whitenoiselabel->show();

  222.             pinknoiselabel->hide();

  223. 	    break;

  224. 	default:

  225.             pinknoiselabel->show();

  226.             whitenoiselabel->hide();

  227.     }

  228. 

  229.     voiceresonanceenabled->deactivate();

  230.     detunevalueoutput->deactivate();

  231.     voicedetune->deactivate();

  232.     voicelfofreq->deactivate();

  233.     voiceoscil->deactivate();

  234.     };

  235. 

  236.     ext_oscil = new Osc_IntModel(osc);

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

  238.         if(ext == -1)

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

  240.         else

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

  242.     };

  243.     nvoice=0;} {}

  244.   }

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

  246.   } {

  247.     code {assert(osc_);

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

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

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

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

  252. 

  253. nvoice=nvoice_;

  254. loc   = loc_;

  255. make_window();

  256. ADnoteVoiceListItem->show();

  257. end();} {}

  258.   }

  259.   Function {refreshlist()} {open

  260.   } {

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

  262.     else voicelistitemgroup->activate();

  263. detunevalueoutput->do_callback();

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

  265.   }

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

  267.     code {ADnoteVoiceListItem->hide();

  268.     delete voice_phase;

  269.     delete sound_type;

  270.     delete ext_oscil;

  271.     } {}

  272.   }

  273.   decl {int nvoice;} {private local

  274.   }

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

  276.   }

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

  278.   }

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

  280.   }

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

  282.   }

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

  284.   }

  285. } 

  286. 

  287. class ADvoiceUI {open : {public Fl_Group}

  288. } {

  289.   Function {make_window()} {open

  290.   } {

  291.     Fl_Window ADnoteVoiceParameters {

  292.       label Voice open

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

  294.       class Fl_Osc_Group visible

  295.     } {

  296.       Fl_Box {} {

  297.         label label

  298.         xywh {25 25 35 16}

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

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

  301.       }

  302.       Fl_Group voiceparametersgroup {open

  303.         xywh {0 0 770 590} color 48

  304.       } {

  305.         Fl_Group voicemodegroup {open

  306.           xywh {0 5 770 585} color 64

  307.         } {

  308.           Fl_Group voiceFMparametersgroup {

  309.             label MODULATOR open

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

  311.           } {

  312.             Fl_Group modfrequency {

  313.               label {Mod.FREQUENCY}

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

  315.             } {

  316.               Fl_Group voiceFMfreqenvgroup {

  317.                 label {ADSynth Modulator - Frequency Envelope}

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

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

  320.                 class EnvelopeUI

  321.               } {}

  322.               Fl_Check_Button {} {

  323.                 label On

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

  325. else voiceFMfreqenvgroup->activate();

  326. o->redraw();}

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

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

  329.                 class Fl_Osc_Check

  330.               }

  331.               Fl_Counter {} {

  332.                 label {Coarse Det.}

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

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

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

  336.                 class Fl_Osc_Counter

  337.               }

  338.               Fl_Counter {} {

  339.                 label Octave

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

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

  342.                 class Fl_Osc_Counter

  343.               }

  344.               Fl_Slider {} {

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

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

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

  348.                 class Fl_Osc_Slider

  349.               }

  350.               Fl_Value_Output fmdetunevalueoutput {

  351.                 label Detune

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

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

  354.                 class Fl_Osc_Output

  355.               }

  356.               Fl_Choice {} {

  357.                 label {Detune Type}

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

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

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

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

  362.                 class Fl_Osc_Choice

  363.               } {}

  364.             }

  365.             Fl_Group {} {

  366.               label {Mod.AMPLITUDE}

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

  368.             } {

  369.               Fl_Value_Slider {} {

  370.                 label Vol

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

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

  373.                 class Fl_Osc_VSlider

  374.               }

  375.               Fl_Value_Slider {} {

  376.                 label {V.Sns}

  377.                 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

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

  379.                 class Fl_Osc_VSlider

  380.               }

  381.               Fl_Group voiceFMampenvgroup {

  382.                 label {ADSynth Modulator - Amplitude Envelope} open

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

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

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

  386.                 class EnvelopeUI

  387.               } {}

  388.               Fl_Check_Button {} {

  389.                 label On

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

  391. else voiceFMampenvgroup->activate();

  392. o->redraw();}

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

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

  395.                 class Fl_Osc_Check

  396.               }

  397.               Fl_Value_Slider {} {

  398.                 label {F.Damp}

  399.                 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

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

  401.                 class Fl_Osc_VSlider

  402.               }

  403.             }

  404.             Fl_Group modoscil {open

  405.               xywh {535 365 220 220}

  406.             } {

  407.               Fl_Group fmoscil {open

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

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

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

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

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

  413.                 class Fl_Osc_Group

  414.               } {}

  415.               Fl_Box {} {

  416.                 label {Mod.Oscillator}

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

  418.               }

  419.               Fl_Button changeFMoscilbutton {

  420.                 label Change

  421.                 callback {if (oscedit!=NULL)

  422.     delete(oscedit);

  423. 

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

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

  426.                 else

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

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

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

  430.               }

  431.               Fl_Slider {} {

  432.                 label Phase

  433.                 callback {oscFM->phase=64-(int)o->value();

  434. fmoscil->redraw();}

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

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

  437.                 class PhaseSlider

  438.               }

  439.               Fl_Choice extFMoscil {

  440.                 label Use

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

  442.     oscFM->init(false);

  443.     changeFMoscilbutton->labelcolor(FL_BLUE);

  444. } else { 

  445.     oscFM->init(false);

  446.     changeFMoscilbutton->labelcolor(FL_BLACK);

  447. };

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

  449. fmoscil->rebase(loc);

  450. else

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

  452. voiceFMparametersgroup->redraw();} open

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

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

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

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

  457.                 class Fl_Osc_Choice

  458.               } {}

  459.             }

  460.             Fl_Choice extMod {

  461.               label {External Mod.}

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

  463.     modoscil->deactivate();

  464.     modfrequency->deactivate();

  465. } else { 

  466.     modoscil->activate();

  467.     modfrequency->activate();

  468. };

  469. voiceFMparametersgroup->redraw();} open

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

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

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

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

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

  475.               class Fl_Osc_Choice

  476.             } {}

  477.           }

  478.           Fl_Choice mod_type {

  479.             label {Type:}

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

  481. else voiceFMparametersgroup->activate();

  482. o->redraw();}

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

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

  485.             class Fl_Osc_Choice

  486.           } {

  487.             MenuItem {} {

  488.               label OFF

  489.               xywh {40 40 100 20} labelfont 1

  490.             }

  491.             MenuItem {} {

  492.               label MORPH

  493.               xywh {50 50 100 20} labelfont 1

  494.             }

  495.             MenuItem {} {

  496.               label RING

  497.               xywh {60 60 100 20} labelfont 1

  498.             }

  499.             MenuItem {} {

  500.               label PM

  501.               xywh {70 70 100 20} labelfont 1

  502.             }

  503.             MenuItem {} {

  504.               label FM

  505.               xywh {80 80 100 20} labelfont 1

  506.             }

  507.             MenuItem {} {

  508.               label PITCH

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

  510.             }

  511.           }

  512.           Fl_Group {} {

  513.             label FREQUENCY open

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

  515.           } {

  516.             Fl_Group voicefreqenvgroup {

  517.               label {ADSynth Voice - Frequency Envelope} open

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

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

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

  521.               class EnvelopeUI

  522.             } {}

  523.             Fl_Check_Button {} {

  524.               label On

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

  526. else voicefreqenvgroup->activate();

  527. o->redraw();}

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

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

  530.               class Fl_Osc_Check

  531.             }

  532.             Fl_Group voicefreqlfogroup {

  533.               label {Frequency LFO     } open

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

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

  536.               class LFOUI

  537.             } {}

  538.             Fl_Check_Button {} {

  539.               label On

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

  541. else voicefreqlfogroup->activate();

  542. o->redraw();}

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

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

  545.               class Fl_Osc_Check

  546.             }

  547.             Fl_Counter {} {

  548.               label Octave

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

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

  551.               class Fl_Osc_Counter

  552.             }

  553.             Fl_Counter {} {

  554.               label {Coarse Det.}

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

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

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

  558.               class Fl_Osc_Counter

  559.             }

  560.             Fl_Slider {} {

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

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

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

  564.               class Fl_Osc_Slider

  565.             }

  566.             Fl_Value_Output detunevalueoutput {

  567.               label Detune

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

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

  570.               class Fl_Osc_Output

  571.             }

  572.             Fl_Check_Button {} {

  573.               label 440Hz

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

  575.     else fixedfreqetdial->activate();}

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

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

  578.               class Fl_Osc_Check

  579.             }

  580.             Fl_Dial fixedfreqetdial {

  581.               label {Eq.T.}

  582.               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

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

  584.               class Fl_Osc_Dial

  585.             }

  586.             Fl_Choice {} {

  587.               label {Detune Type}

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

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

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

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

  592.               class Fl_Osc_Choice

  593.             } {}

  594.           }

  595.           Fl_Group voiceoscil {

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

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

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

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

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

  601.             class Fl_Osc_Group

  602.           } {}

  603.           Fl_Button changevoiceoscilbutton {

  604.             label Change

  605.             callback {delete oscedit;

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

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

  608.                 else

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

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

  611.           }

  612.           Fl_Box {} {

  613.             label {Voice Oscillator}

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

  615.           }

  616.           Fl_Slider {} {

  617.             label Phase

  618.             callback {osc->phase=64-(int)o->value();

  619. voiceoscil->redraw();}

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

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

  622.             class PhaseSlider

  623.           }

  624.           Fl_Check_Button {} {

  625.             label {R.}

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

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

  628.             class Fl_Osc_Check

  629.           }

  630.           Fl_Choice extoscil {

  631.             label {Use Oscil.}

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

  633.     osc->init(false);

  634.     changevoiceoscilbutton->labelcolor(FL_BLUE);

  635. } else { 

  636.     osc->init(false);

  637.     changevoiceoscilbutton->labelcolor(FL_BLACK);

  638. };

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

  640. voiceoscil->rebase(loc);

  641. else

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

  643. 

  644. voiceparametersgroup->redraw();

  645. voiceonbutton->redraw();} open

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

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

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

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

  650.             class Fl_Osc_Choice

  651.           } {}

  652.           Fl_Group {} {open

  653.             xywh {5 540 520 50} box UP_FRAME

  654.           } {

  655.             Fl_Dial {} {

  656.               label Vibrato

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

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

  659.               class Fl_Osc_Dial

  660.             }

  661.             Fl_Choice {} {

  662.               label Invert

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

  664.               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);};}

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

  666.               class Fl_Osc_Choice

  667.             } {}

  668.             Fl_Slider {} {

  669.               label {Frequency Spread}

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

  671.               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

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

  673.               class Fl_Osc_Slider

  674.             }

  675.             Fl_Value_Output unisonspreadoutput {

  676.               label {(cents)}

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

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

  679.               class Fl_Osc_Output

  680.             }

  681.             Fl_Dial {} {

  682.               label {V.speed}

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

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

  685.               class Fl_Osc_Dial

  686.             }

  687.             Fl_Dial {} {

  688.               label {Ph.rand}

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

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

  691.               class Fl_Osc_Dial

  692.             }

  693.           }

  694.         }

  695.         Fl_Group {} {

  696.           label AMPLITUDE open

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

  698.         } {

  699.           Fl_Value_Slider {} {

  700.             label Vol

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

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

  703.             class Fl_Osc_VSlider

  704.           }

  705.           Fl_Value_Slider {} {

  706.             label {V.Sns}

  707.             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

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

  709.             class Fl_Osc_VSlider

  710.           }

  711.           Fl_Group voiceampenvgroup {

  712.             label {ADSynth Voice - Amplitude Envelope} open

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

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

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

  716.             class EnvelopeUI

  717.           } {}

  718.           Fl_Dial {} {

  719.             label Pan

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

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

  722.             class Fl_Osc_Dial

  723.           }

  724.           Fl_Check_Button {} {

  725.             label On

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

  727. else voiceampenvgroup->activate();

  728. o->redraw();}

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

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

  731.             class Fl_Osc_Check

  732.           }

  733.           Fl_Group voiceamplfogroup {

  734.             label {Amplitude LFO     } open

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

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

  737.             class LFOUI

  738.           } {}

  739.           Fl_Check_Button {} {

  740.             label On

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

  742. else voiceamplfogroup->activate();

  743. o->redraw();}

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

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

  746.             class Fl_Osc_Check

  747.           }

  748.           Fl_Check_Button {} {

  749.             label Minus

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

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

  752.             class Fl_Osc_Check

  753.           }

  754.         }

  755.         Fl_Group voicefiltergroup {

  756.           label FILTER open

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

  758.         } {

  759.           Fl_Group {} {

  760.             label {ADsynth Voice - Filter} open

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

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

  763.             class FilterUI

  764.           } {}

  765.           Fl_Group voicefilterenvgroup {

  766.             label {ADSynth Voice - Filter Envelope} open

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

  768.             code0 {o->init(

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

  770.             class EnvelopeUI

  771.           } {}

  772.           Fl_Check_Button {} {

  773.             label On

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

  775. else voicefilterenvgroup->activate();

  776. o->redraw();}

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

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

  779.             class Fl_Osc_Check

  780.           }

  781.           Fl_Group voicefilterlfogroup {

  782.             label {Filter LFO     } open

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

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

  785.             class LFOUI

  786.           } {}

  787.           Fl_Check_Button {} {

  788.             label On

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

  790. else voicefilterlfogroup->activate();

  791. o->redraw();}

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

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

  794.             class Fl_Osc_Check

  795.           }

  796.         }

  797.         Fl_Group activeVoiceID {

  798.           label 01

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

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

  801.         } {}

  802.         Fl_Choice {} {

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

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

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

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

  807. }} open

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

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

  810.           class Fl_Osc_Choice

  811.         } {

  812.           MenuItem {} {

  813.             label Sound

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

  815.           }

  816.           MenuItem {} {

  817.             label White

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

  819.           }

  820.           MenuItem {} {

  821.             label Pink

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

  823.           }

  824.         }

  825.         Fl_Check_Button bypassfiltercheckbutton {

  826.           label {Bypass Global F.}

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

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

  829.           class Fl_Osc_Check

  830.         }

  831.         Fl_Group {} {open

  832.           xywh {115 5 95 35} box THIN_UP_BOX

  833.         } {

  834.           Fl_Value_Slider {} {

  835.             label Delay

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

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

  838.             class Fl_Osc_VSlider

  839.           }

  840.         }

  841.         Fl_Check_Button {} {

  842.           label On

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

  844. else voicefiltergroup->activate();

  845. o->redraw();

  846. bypassfiltercheckbutton->redraw();}

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

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

  849.           class Fl_Osc_Check

  850.         }

  851.         Fl_Box whitenoiselabel {

  852.           label {White Noise}

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

  854.         }

  855.         Fl_Box pinknoiselabel {

  856.           label {Pink Noise}

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

  858.         }

  859.         Fl_Dial {} {

  860.           label Stereo

  861.           tooltip {Stereo Spread} xywh {327 560 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

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

  863.           class Fl_Osc_Dial

  864.         }

  865.         Fl_Counter {} {

  866.           label Unison selected

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

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

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

  870.           class Fl_Osc_Counter

  871.         }

  872.       }

  873.       Fl_Check_Button voiceonbutton {

  874.         label On

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

  876. else voiceparametersgroup->activate();

  877. o->redraw();}

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

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

  880.         class Fl_Osc_Check

  881.       }

  882.     }

  883.   }

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

  885.     code {nvoice=0;

  886. oscedit=NULL;} {}

  887.   }

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

  889.   } {

  890.     code {assert(osc_);

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

  892. nvoice=nvoice_;

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

  894. base = loc_;

  895. osc_i=osc_;

  896. make_window();

  897. end();

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

  899.   }

  900.   Function {~ADvoiceUI()} {open

  901.   } {

  902.     code {ADnoteVoiceParameters->hide();

  903. hide();

  904. delete(oscedit);

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

  906.   }

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

  908.   } {

  909.     code {nvoice = nvoice_;

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

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

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

  913.     extoscil->clear();

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

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

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

  917.         extoscil->add(tmp);

  918.     };

  919. 

  920.     extFMoscil->clear();

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

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

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

  924.         extFMoscil->add(tmp);

  925.     }

  926.               

  927.     extMod->clear();

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

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

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

  931.         extMod->add(tmp);

  932.     }

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

  934.     }

  935.   }

  936.   decl {int nvoice;} {private local

  937.   }

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

  939.   }

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

  941.   }

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

  943.   }

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

  945.   }

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

  947.   }

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

  949.   }

  950. } 

  951. 

  952. class ADnoteUI {open : {public PresetsUI_}

  953. } {

  954.   Function {make_window()} {open private

  955.   } {

  956.     Fl_Window ADnoteGlobalParameters {

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

  958.       xywh {688 551 540 430} type Double

  959.       class Fl_Osc_Window visible

  960.     } {

  961.       Fl_Box {} {

  962.         xywh {0 0 0 0}

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

  964.       }

  965.       Fl_Group {} {

  966.         label FREQUENCY open

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

  968.       } {

  969.         Fl_Group freqenv {

  970.           label {ADSynth Global - Frequency Envelope} open

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

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

  973.           class EnvelopeUI

  974.         } {}

  975.         Fl_Counter octave {

  976.           label Octave

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

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

  979.           class Fl_Osc_Counter

  980.         }

  981.         Fl_Counter coarsedet {

  982.           label {Coarse det.}

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

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

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

  986.           class Fl_Osc_Counter

  987.         }

  988.         Fl_Group freqlfo {

  989.           label {Frequency LFO     } open

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

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

  992.           class LFOUI

  993.         } {}

  994.         Fl_Slider detune {

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

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

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

  998.           class Fl_Osc_Slider

  999.         }

  1000.         Fl_Value_Output detunevalueoutput {

  1001.           label Detune

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

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

  1004.           class Fl_Osc_Output

  1005.         }

  1006.         Fl_Choice detunetype {

  1007.           label {Detune Type}

  1008.           callback {detunevalueoutput->update();

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

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

  1011. 	  } open

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

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

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

  1015.           class Fl_Osc_Choice

  1016.         } {}

  1017.         Fl_Dial {} {

  1018.           label relBW

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

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

  1021. };}

  1022.           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

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

  1024.           class Fl_Osc_Dial

  1025.         }

  1026.       }

  1027.       Fl_Group {} {

  1028.         label AMPLITUDE open

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

  1030.       } {

  1031.         Fl_Value_Slider volume {

  1032.           label Vol

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

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

  1035.           class Fl_Osc_VSlider

  1036.         }

  1037.         Fl_Value_Slider vsns {

  1038.           label {V.Sns}

  1039.           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

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

  1041.           class Fl_Osc_VSlider

  1042.         }

  1043.         Fl_Dial pan {

  1044.           label Pan

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

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

  1047.           class Fl_Osc_Dial

  1048.         }

  1049.         Fl_Dial pstr {

  1050.           label {P.Str.}

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

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

  1053.           class Fl_Osc_Dial

  1054.         }

  1055.         Fl_Dial pt {

  1056.           label {P.t.}

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

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

  1059.           class Fl_Osc_Dial

  1060.         }

  1061.         Fl_Dial pstc {

  1062.           label {P.Stc.}

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

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

  1065.           class Fl_Osc_Dial

  1066.         }

  1067.         Fl_Dial pvel {

  1068.           label {P.Vel.}

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

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

  1071.           class Fl_Osc_Dial

  1072.         }

  1073.         Fl_Group ampenv {

  1074.           label {ADSynth Global - Amplitude Envelope} open

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

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

  1077.           class EnvelopeUI

  1078.         } {}

  1079.         Fl_Group amplfo {

  1080.           label {Amplitude LFO          } open

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

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

  1083.           class LFOUI

  1084.         } {}

  1085.         Fl_Check_Button rndgrp {

  1086.           label {Rnd Grp}

  1087.           tooltip {How the Harmonic Amplitude is applied to voices that use the same oscillator} xywh {70 235 40 25} down_box DOWN_BOX labelsize 10 align 148

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

  1089.           class Fl_Osc_Check

  1090.         }

  1091.       }

  1092.       Fl_Group {} {

  1093.         label FILTER open

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

  1095.       } {

  1096.         Fl_Group filterenv {

  1097.           label {ADSynth Global - Filter Envelope} open

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

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

  1100.           class EnvelopeUI

  1101.         } {}

  1102.         Fl_Group filterlfo {

  1103.           label {Filter LFO} open

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

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

  1106.           class LFOUI

  1107.         } {}

  1108.         Fl_Group filterui {

  1109.           label {ADsynth Global - Filter} open

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

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

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

  1113.           class FilterUI

  1114.         } {}

  1115.       }

  1116.       Fl_Check_Button stereo {

  1117.         label Stereo

  1118.         xywh {5 230 65 35} down_box DOWN_BOX labelsize 11

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

  1120.         class Fl_Osc_Check

  1121.       }

  1122.       Fl_Button {} {

  1123.         label {Show Voice List}

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

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

  1126. }

  1127. ADnoteVoiceList->show();}

  1128.         xywh {180 400 125 25} labelsize 12

  1129.       }

  1130.       Fl_Button {} {

  1131.         label {Show Voice Parameters}

  1132.         callback {

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

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

  1135.         else

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

  1137.         ADnoteVoice->show();}

  1138.         xywh {5 400 170 25} labelsize 12

  1139.       }

  1140.       Fl_Button {} {

  1141.         label Close

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

  1143.         xywh {475 400 60 25} box THIN_UP_BOX

  1144.       }

  1145.       Fl_Button {} {

  1146.         label Resonance

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

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

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

  1150.       }

  1151.       Fl_Button {} {

  1152.         label C

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

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

  1155.       }

  1156.       Fl_Button {} {

  1157.         label P

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

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

  1160.       }

  1161.     }

  1162.     Fl_Window ADnoteVoice {

  1163.       label {ADsynth Voice Parameters} open

  1164.       xywh {48 361 765 630} type Double

  1165.       class Fl_Osc_Window visible

  1166.     } {

  1167.       Fl_Box {} {

  1168.         xywh {0 0 0 0}

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

  1170.       }

  1171.       Fl_Group advoice {open

  1172.         xywh {0 0 765 595}

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

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

  1175.         class ADvoiceUI

  1176.       } {}

  1177.       Fl_Button {} {

  1178.         label {Close Window}

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

  1180.         xywh {305 601 195 25} box THIN_UP_BOX labelfont 1

  1181.       }

  1182.       Fl_Counter currentvoicecounter {

  1183.         label {Current Voice}

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

  1185. advoice->change_voice(nvoice);}

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

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

  1188.       }

  1189.       Fl_Button {} {

  1190.         label C

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

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

  1193.       }

  1194.       Fl_Button {} {

  1195.         label P

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

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

  1198.       }

  1199.     }

  1200.     Fl_Window ADnoteVoiceList {

  1201.       label {ADsynth Voices list} open

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

  1203.       class Fl_Osc_Window

  1204.     } {

  1205.       Fl_Box {} {

  1206.         xywh {0 0 0 0}

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

  1208.       }

  1209.       Fl_Text_Display {} {

  1210.         label {No.}

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

  1212.       }

  1213.       Fl_Text_Display {} {

  1214.         label Vol

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

  1216.       }

  1217.       Fl_Text_Display {} {

  1218.         label Detune

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

  1220.       }

  1221.       Fl_Text_Display {} {

  1222.         label Pan

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

  1224.       }

  1225.       Fl_Text_Display {} {

  1226.         label {Vib. Depth} selected

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

  1228.       }

  1229.       Fl_Text_Display {} {

  1230.         label {R.}

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

  1232.       }

  1233.       Fl_Button {} {

  1234.         label {Hide Voice List}

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

  1236.         xywh {271 237 125 20}

  1237.       }

  1238.       Fl_Scroll {} {open

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

  1240.       } {

  1241.         Fl_Pack {} {open

  1242.           xywh {0 20 670 210}

  1243.           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();}

  1244.         } {}

  1245.       }

  1246.     }

  1247.   }

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

  1249.   } {

  1250.     code {assert(osc_);

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

  1252. 

  1253. nvoice=0;

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

  1255. loc=loc_;

  1256. osc=osc_;

  1257. make_window();} {}

  1258.   }

  1259.   Function {~ADnoteUI()} {open

  1260.   } {

  1261.     code {ADnoteVoiceList->hide();

  1262. ADnoteGlobalParameters->hide();

  1263. ADnoteVoice->hide();

  1264. delete ADnoteVoiceList;

  1265. delete ADnoteGlobalParameters;

  1266. delete ADnoteVoice;

  1267. delete resui;} {}

  1268.   }

  1269.   Function {refresh()} {open

  1270.   } {

  1271.     code {amplfo->refresh();

  1272. freqlfo->refresh();

  1273. filterlfo->refresh();

  1274. 

  1275. ampenv->refresh();

  1276. freqenv->refresh();

  1277. filterenv->refresh();

  1278. filterui->refresh();

  1279. 

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

  1281. 

  1282. resui->refresh();

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

  1284.   }

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

  1286.   }

  1287.   decl {int nvoice;} {private local

  1288.   }

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

  1290.   }

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

  1292.   }

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

  1294.   }

  1295. }