falkTX
/
Carla
mirror of https://github.com/falkTX/Carla
1
0
Fork 0
Code Releases 43 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.
3177 Commits
17 Branches
546MB
Tree: 16a4dba89b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '16a4dba89b'
${ noResults }
Carla/source/native-plugins/zynaddsubfx/UI/ADnoteUI.fl

1164 lines
43KB
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 "Fl_Oscilloscope.h"} {public local

  56. } 

  57. 

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

  59. } 

  60. 

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

  62. } 

  63. 

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

  65. } 

  66. 

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

  68. } 

  69. 

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

  71. } 

  72. 

  73. class ADvoicelistitem {open : {public Fl_Osc_Group}

  74. } {

  75.   Function {make_window()} {open private

  76.   } {

  77.     Fl_Window ADnoteVoiceListItem {open

  78.       private xywh {346 881 615 100} type Double box UP_FRAME

  79.       class Fl_Osc_Group visible

  80.     } {

  81.       Fl_Box {} {

  82.         xywh {0 0 0 0}

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

  84.       }

  85.       Fl_Group voicelistitemgroup {open

  86.         private xywh {50 0 570 25}

  87.         class Fl_Osc_Group

  88.       } {

  89.         Fl_Value_Slider voicevolume {

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

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

  92.           class Fl_Osc_VSlider

  93.         }

  94.         Fl_Check_Button voiceresonanceenabled {

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

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

  97.           class Fl_Osc_Check

  98.         }

  99.         Fl_Value_Slider voicelfofreq {

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

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

  102.           class Fl_Osc_Slider

  103.         }

  104.         Fl_Dial voicepanning {

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

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

  107.           class Fl_Osc_Dial

  108.         }

  109.         Fl_Group voiceoscil {open

  110.           xywh {60 5 30 20} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

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

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

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

  114.           class Fl_Osc_Group

  115.         } {}

  116.         Fl_Value_Output detunevalueoutput {

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

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

  119.           class Fl_Osc_Output

  120.         }

  121.         Fl_Slider voicedetune {

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

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

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

  125.           class Fl_Osc_Slider

  126.         }

  127.         Fl_Box noiselabel {

  128.           label N

  129.           xywh {65 5 20 20} labelfont 1 labelsize 13 labelcolor 7

  130.         }

  131.         Fl_Check_Button noisehack {

  132.           callback {if (o->value()==0) {

  133.   noiselabel->hide();

  134.   voiceresonanceenabled->activate();

  135.   detunevalueoutput->activate();

  136.   voicedetune->activate();

  137.   voicelfofreq->activate();

  138.   voiceoscil->activate();

  139. } else {

  140.   noiselabel->show();

  141.   voiceresonanceenabled->deactivate();

  142.   detunevalueoutput->deactivate();

  143.   voicedetune->deactivate();

  144.   voicelfofreq->deactivate();

  145.   voiceoscil->deactivate();

  146. };}

  147.           xywh {0 0 0 0} down_box DOWN_BOX

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

  149.           class Fl_Osc_Check

  150.         }

  151.       }

  152.       Fl_Check_Button voiceenabled {

  153.         label 01

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

  155. else voicelistitemgroup->activate();

  156. o->redraw();}

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

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

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

  160.         class Fl_Osc_Check

  161.       }

  162.     }

  163.   }

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

  165.   } {

  166.     code {assert(osc);

  167.     nvoice=0;} {}

  168.   }

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

  170.   } {

  171.     code {assert(osc_);

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

  173. 

  174. nvoice=nvoice_;

  175. loc   = loc_;

  176. make_window();

  177. ADnoteVoiceListItem->show();

  178. end();} {}

  179.   }

  180.   Function {refreshlist()} {open

  181.   } {

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

  183.     else voicelistitemgroup->activate();

  184. detunevalueoutput->do_callback();

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

  186.   }

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

  188.     code {ADnoteVoiceListItem->hide();} {}

  189.   }

  190.   decl {int nvoice;} {private local

  191.   }

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

  193.   }

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

  195.   }

  196. } 

  197. 

  198. class ADvoiceUI {open : {public Fl_Group}

  199. } {

  200.   Function {make_window()} {open

  201.   } {

  202.     Fl_Window ADnoteVoiceParameters {

  203.       label Voice open

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

  205.       class Fl_Osc_Group visible

  206.     } {

  207.       Fl_Box {} {

  208.         label label

  209.         xywh {25 25 35 16}

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

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

  212.       }

  213.       Fl_Group voiceparametersgroup {open

  214.         xywh {0 0 770 590} color 48

  215.       } {

  216.         Fl_Group voicemodegroup {open

  217.           xywh {0 5 770 585} color 64

  218.         } {

  219.           Fl_Group voiceFMparametersgroup {

  220.             label MODULATOR open

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

  222.           } {

  223.             Fl_Group modfrequency {

  224.               label {Mod.FREQUENCY}

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

  226.             } {

  227.               Fl_Group voiceFMfreqenvgroup {

  228.                 label {ADSynth Modulator - Frequency Envelope}

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

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

  231.                 class EnvelopeUI

  232.               } {}

  233.               Fl_Check_Button {} {

  234.                 label On

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

  236. else voiceFMfreqenvgroup->activate();

  237. o->redraw();}

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

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

  240.                 class Fl_Osc_Check

  241.               }

  242.               Fl_Counter {} {

  243.                 label {Coarse Det.}

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

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

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

  247.                 class Fl_Osc_Counter

  248.               }

  249.               Fl_Counter {} {

  250.                 label Octave

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

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

  253.                 class Fl_Osc_Counter

  254.               }

  255.               Fl_Slider {} {

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

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

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

  259.                 class Fl_Osc_Slider

  260.               }

  261.               Fl_Value_Output fmdetunevalueoutput {

  262.                 label Detune

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

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

  265.                 class Fl_Osc_Output

  266.               }

  267.               Fl_Choice {} {

  268.                 label {Detune Type}

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

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

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

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

  273.                 class Fl_Osc_Choice

  274.               } {}

  275.             }

  276.             Fl_Group {} {

  277.               label {Mod.AMPLITUDE}

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

  279.             } {

  280.               Fl_Value_Slider {} {

  281.                 label Vol

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

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

  284.                 class Fl_Osc_Slider

  285.               }

  286.               Fl_Value_Slider {} {

  287.                 label {V.Sns}

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

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

  290.                 class Fl_Osc_VSlider

  291.               }

  292.               Fl_Group voiceFMampenvgroup {

  293.                 label {ADSynth Modulator - Amplitude Envelope} open

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

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

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

  297.                 class EnvelopeUI

  298.               } {}

  299.               Fl_Check_Button {} {

  300.                 label On

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

  302. else voiceFMampenvgroup->activate();

  303. o->redraw();}

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

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

  306.                 class Fl_Osc_Check

  307.               }

  308.               Fl_Value_Slider {} {

  309.                 label {F.Damp}

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

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

  312.                 class Fl_Osc_Slider

  313.               }

  314.             }

  315.             Fl_Group modoscil {open

  316.               xywh {535 365 220 220}

  317.             } {

  318.               Fl_Group fmoscil {open

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

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

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

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

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

  324.                 class Fl_Osc_Group

  325.               } {}

  326.               Fl_Box {} {

  327.                 label {Mod.Oscillator}

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

  329.               }

  330.               Fl_Button changeFMoscilbutton {

  331.                 label Change

  332.                 callback {if (oscedit!=NULL)

  333.     delete(oscedit);

  334. 

  335. //int nv=nvoice;

  336. //if (extFMoscil->value()>=0)

  337. //    nv=extFMoscil->value();

  338. 

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

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

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

  342.               }

  343.               Fl_Slider {} {

  344.                 label Phase

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

  346. fmoscil->redraw();}

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

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

  349.                 class Fl_Osc_Slider

  350.               }

  351.               Fl_Choice extFMoscil {

  352.                 label Use

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

  354.     oscFM->init(false);

  355.     changeFMoscilbutton->labelcolor(FL_BLUE);

  356. } else { 

  357.     oscFM->init(false);

  358.     changeFMoscilbutton->labelcolor(FL_BLACK);

  359. };

  360. voiceFMparametersgroup->redraw();} open

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

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

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

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

  365.                 class Fl_Osc_Choice

  366.               } {}

  367.             }

  368.             Fl_Choice {} {

  369.               label {External Mod.}

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

  371.     modoscil->deactivate();

  372.     modfrequency->deactivate();

  373. } else { 

  374.     modoscil->activate();

  375.     modfrequency->activate();

  376. };

  377. voiceFMparametersgroup->redraw();} open

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

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

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

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

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

  383.               class Fl_Osc_Choice

  384.             } {}

  385.           }

  386.           Fl_Choice {} {

  387.             label {Type:}

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

  389. else voiceFMparametersgroup->activate();

  390. o->redraw();}

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

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

  393.             class Fl_Osc_Choice

  394.           } {

  395.             MenuItem {} {

  396.               label OFF

  397.               xywh {40 40 100 20} labelfont 1

  398.             }

  399.             MenuItem {} {

  400.               label MORPH

  401.               xywh {50 50 100 20} labelfont 1

  402.             }

  403.             MenuItem {} {

  404.               label RING

  405.               xywh {60 60 100 20} labelfont 1

  406.             }

  407.             MenuItem {} {

  408.               label PM

  409.               xywh {70 70 100 20} labelfont 1

  410.             }

  411.             MenuItem {} {

  412.               label FM

  413.               xywh {80 80 100 20} labelfont 1

  414.             }

  415.             MenuItem {} {

  416.               label PITCH

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

  418.             }

  419.           }

  420.           Fl_Group {} {

  421.             label FREQUENCY open

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

  423.           } {

  424.             Fl_Group voicefreqenvgroup {

  425.               label {ADSynth Voice - Frequency Envelope} open

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

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

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

  429.               class EnvelopeUI

  430.             } {}

  431.             Fl_Check_Button {} {

  432.               label On

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

  434. else voicefreqenvgroup->activate();

  435. o->redraw();}

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

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

  438.               class Fl_Osc_Check

  439.             }

  440.             Fl_Group voicefreqlfogroup {

  441.               label {Frequency LFO     } open

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

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

  444.               class LFOUI

  445.             } {}

  446.             Fl_Check_Button {} {

  447.               label On

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

  449. else voicefreqlfogroup->activate();

  450. o->redraw();}

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

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

  453.               class Fl_Osc_Check

  454.             }

  455.             Fl_Counter {} {

  456.               label Octave

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

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

  459.               class Fl_Osc_Counter

  460.             }

  461.             Fl_Counter {} {

  462.               label {Coarse Det.}

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

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

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

  466.               class Fl_Osc_Counter

  467.             }

  468.             Fl_Slider {} {

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

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

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

  472.               class Fl_Osc_Slider

  473.             }

  474.             Fl_Value_Output detunevalueoutput {

  475.               label Detune

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

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

  478.               class Fl_Osc_Output

  479.             }

  480.             Fl_Check_Button {} {

  481.               label 440Hz

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

  483.     else fixedfreqetdial->activate();}

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

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

  486.               class Fl_Osc_Check

  487.             }

  488.             Fl_Dial fixedfreqetdial {

  489.               label {Eq.T.}

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

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

  492.               class Fl_Osc_Dial

  493.             }

  494.             Fl_Choice {} {

  495.               label {Detune Type}

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

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

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

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

  500.               class Fl_Osc_Choice

  501.             } {}

  502.           }

  503.           Fl_Group voiceoscil {

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

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

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

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

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

  509.             class Fl_Osc_Group

  510.           } {}

  511.           Fl_Button changevoiceoscilbutton {

  512.             label Change

  513.             callback {delete oscedit;

  514.                 //if(extoscil->value()>=0)

  515.                 //    nv=extoscil->value();

  516. 

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

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

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

  520.           }

  521.           Fl_Box {} {

  522.             label {Voice Oscillator}

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

  524.           }

  525.           Fl_Slider {} {

  526.             label Phase

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

  528. voiceoscil->redraw();}

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

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

  531.             class Fl_Osc_Slider

  532.           }

  533.           Fl_Check_Button {} {

  534.             label {R.}

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

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

  537.             class Fl_Osc_Check

  538.           }

  539.           Fl_Choice extoscil {

  540.             label {Use Oscil.}

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

  542.     osc->init(false);

  543.     changevoiceoscilbutton->labelcolor(FL_BLUE);

  544. } else { 

  545.     osc->init(false);

  546.     changevoiceoscilbutton->labelcolor(FL_BLACK);

  547. };

  548. 

  549. voiceparametersgroup->redraw();

  550. voiceonbutton->redraw();} open

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

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

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

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

  555.             class Fl_Osc_Choice

  556.           } {}

  557.           Fl_Group {} {open

  558.             xywh {5 540 520 50} box UP_FRAME

  559.           } {

  560.             Fl_Dial {} {

  561.               label Stereo

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

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

  564.               class Fl_Osc_Dial

  565.             }

  566.             Fl_Choice {} {

  567.               label Unison

  568.               tooltip {Unison size} xywh {10 560 75 20} down_box BORDER_BOX labelfont 1 align 5 textfont 1 textsize 10

  569.               code0 {o->add("OFF");char tmp[100];for (int i=1;ADnote_unison_sizes[i];i++){snprintf(tmp,100,"size %d",ADnote_unison_sizes[i]);o->add(tmp);};}

  570.               code1 {o->init("Unison_size");}

  571.               class Fl_Osc_Choice

  572.             } {}

  573.             Fl_Dial {} {

  574.               label Vibrato

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

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

  577.               class Fl_Osc_Dial

  578.             }

  579.             Fl_Choice {} {

  580.               label Invert

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

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

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

  584.               class Fl_Osc_Choice

  585.             } {}

  586.             Fl_Slider {} {

  587.               label {Frequency Spread}

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

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

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

  591.               class Fl_Osc_Slider

  592.             }

  593.             Fl_Value_Output unisonspreadoutput {

  594.               label {(cents)}

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

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

  597.               class Fl_Osc_Output

  598.             }

  599.             Fl_Dial {} {

  600.               label {V.speed}

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

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

  603.               class Fl_Osc_Dial

  604.             }

  605.             Fl_Dial {} {

  606.               label {Ph.rand}

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

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

  609.               class Fl_Osc_Dial

  610.             }

  611.           }

  612.         }

  613.         Fl_Group {} {

  614.           label AMPLITUDE open

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

  616.         } {

  617.           Fl_Value_Slider {} {

  618.             label Vol

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

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

  621.             class Fl_Osc_VSlider

  622.           }

  623.           Fl_Value_Slider {} {

  624.             label {V.Sns}

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

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

  627.             class Fl_Osc_VSlider

  628.           }

  629.           Fl_Group voiceampenvgroup {

  630.             label {ADSynth Voice - Amplitude Envelope} open

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

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

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

  634.             class EnvelopeUI

  635.           } {}

  636.           Fl_Dial {} {

  637.             label Pan

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

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

  640.             class Fl_Osc_Dial

  641.           }

  642.           Fl_Check_Button {} {

  643.             label On

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

  645. else voiceampenvgroup->activate();

  646. o->redraw();}

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

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

  649.             class Fl_Osc_Check

  650.           }

  651.           Fl_Group voiceamplfogroup {

  652.             label {Amplitude LFO     } open

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

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

  655.             class LFOUI

  656.           } {}

  657.           Fl_Check_Button {} {

  658.             label On

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

  660. else voiceamplfogroup->activate();

  661. o->redraw();}

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

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

  664.             class Fl_Osc_Check

  665.           }

  666.           Fl_Check_Button {} {

  667.             label Minus

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

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

  670.             class Fl_Osc_Check

  671.           }

  672.         }

  673.         Fl_Group voicefiltergroup {

  674.           label FILTER open

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

  676.         } {

  677.           Fl_Group {} {

  678.             label {ADsynth Voice - Filter} open

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

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

  681.             class FilterUI

  682.           } {}

  683.           Fl_Group voicefilterenvgroup {

  684.             label {ADSynth Voice - Filter Envelope} open

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

  686.             code0 {o->init(

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

  688.             class EnvelopeUI

  689.           } {}

  690.           Fl_Check_Button {} {

  691.             label On

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

  693. else voicefilterenvgroup->activate();

  694. o->redraw();}

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

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

  697.             class Fl_Osc_Check

  698.           }

  699.           Fl_Group voicefilterlfogroup {

  700.             label {Filter LFO     } open

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

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

  703.             class LFOUI

  704.           } {}

  705.           Fl_Check_Button {} {

  706.             label On

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

  708. else voicefilterlfogroup->activate();

  709. o->redraw();}

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

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

  712.             class Fl_Osc_Check

  713.           }

  714.         }

  715.         Fl_Group activeVoiceID {

  716.           label 01

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

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

  719.         } {}

  720.         Fl_Choice {} {

  721.           callback {if (o->value()==0){ voicemodegroup->activate(); noiselabel->hide();}

  722.   else{ voicemodegroup->deactivate(); noiselabel->show();}}

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

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

  725.           class Fl_Osc_Choice

  726.         } {

  727.           MenuItem {} {

  728.             label Sound

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

  730.           }

  731.           MenuItem {} {

  732.             label NOISE

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

  734.           }

  735.         }

  736.         Fl_Check_Button bypassfiltercheckbutton {

  737.           label {Bypass Global F.}

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

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

  740.           class Fl_Osc_Check

  741.         }

  742.         Fl_Group {} {open

  743.           xywh {115 5 95 35} box THIN_UP_BOX

  744.         } {

  745.           Fl_Value_Slider {} {

  746.             label Delay

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

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

  749.             class Fl_Osc_VSlider

  750.           }

  751.         }

  752.         Fl_Check_Button {} {

  753.           label On

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

  755. else voicefiltergroup->activate();

  756. o->redraw();

  757. bypassfiltercheckbutton->redraw();}

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

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

  760.           class Fl_Osc_Check

  761.         }

  762.         Fl_Box noiselabel {

  763.           label {White Noise}

  764.           xywh {150 430 300 65} labelfont 1 labelsize 50 labelcolor 53 hide

  765.         }

  766.       }

  767.       Fl_Check_Button voiceonbutton {

  768.         label On

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

  770. else voiceparametersgroup->activate();

  771. o->redraw();}

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

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

  774.         class Fl_Osc_Check

  775.       }

  776.     }

  777.   }

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

  779.     code {nvoice=0;

  780. oscedit=NULL;} {}

  781.   }

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

  783.   } {

  784.     code {assert(osc_);

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

  786. nvoice=nvoice_;

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

  788. base = loc_;

  789. osc_i=osc_;

  790. make_window();

  791. end();

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

  793.   }

  794.   Function {~ADvoiceUI()} {open

  795.   } {

  796.     code {ADnoteVoiceParameters->hide();

  797. hide();

  798. delete(oscedit);

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

  800.   }

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

  802.   } {

  803.     code {nvoice = nvoice_;

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

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

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

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

  808.     }

  809.   }

  810.   decl {int nvoice;} {private local

  811.   }

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

  813.   }

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

  815.   }

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

  817.   }

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

  819.   }

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

  821.   }

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

  823.   }

  824. } 

  825. 

  826. class ADnoteUI {open : {public PresetsUI_}

  827. } {

  828.   Function {make_window()} {open private

  829.   } {

  830.     Fl_Window ADnoteGlobalParameters {

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

  832.       xywh {688 551 540 430} type Double

  833.       class Fl_Osc_Window visible

  834.     } {

  835.       Fl_Box {} {

  836.         xywh {0 0 0 0}

  837.         code0 {ADnoteGlobalParameters->base = loc + "GlobalPar/"; ADnoteGlobalParameters->osc = osc;}

  838.       }

  839.       Fl_Group {} {

  840.         label FREQUENCY open

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

  842.       } {

  843.         Fl_Group freqenv {

  844.           label {ADSynth Global - Frequency Envelope} open

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

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

  847.           class EnvelopeUI

  848.         } {}

  849.         Fl_Counter octave {

  850.           label Octave

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

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

  853.           class Fl_Osc_Counter

  854.         }

  855.         Fl_Counter coarsedet {

  856.           label {Coarse det.}

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

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

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

  860.           class Fl_Osc_Counter

  861.         }

  862.         Fl_Group freqlfo {

  863.           label {Frequency LFO     } open

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

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

  866.           class LFOUI

  867.         } {}

  868.         Fl_Slider detune {

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

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

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

  872.           class Fl_Osc_Slider

  873.         }

  874.         Fl_Value_Output detunevalueoutput {

  875.           label Detune

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

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

  878.           class Fl_Osc_Output

  879.         }

  880.         Fl_Choice detunetype {

  881.           label {Detune Type}

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

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

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

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

  886.           class Fl_Osc_Choice

  887.         } {}

  888.         Fl_Dial {} {

  889.           label relBW

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

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

  892. };}

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

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

  895.           class Fl_Osc_Dial

  896.         }

  897.       }

  898.       Fl_Group {} {

  899.         label AMPLITUDE open

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

  901.       } {

  902.         Fl_Value_Slider volume {

  903.           label Vol

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

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

  906.           class Fl_Osc_VSlider

  907.         }

  908.         Fl_Value_Slider vsns {

  909.           label {V.Sns}

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

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

  912.           class Fl_Osc_VSlider

  913.         }

  914.         Fl_Dial pan {

  915.           label Pan

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

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

  918.           class Fl_Osc_Dial

  919.         }

  920.         Fl_Dial pstr {

  921.           label {P.Str.}

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

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

  924.           class Fl_Osc_Dial

  925.         }

  926.         Fl_Dial pt {

  927.           label {P.t.}

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

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

  930.           class Fl_Osc_Dial

  931.         }

  932.         Fl_Dial pstc {

  933.           label {P.Stc.}

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

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

  936.           class Fl_Osc_Dial

  937.         }

  938.         Fl_Dial pvel {

  939.           label {P.Vel.}

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

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

  942.           class Fl_Osc_Dial

  943.         }

  944.         Fl_Group ampenv {

  945.           label {ADSynth Global - Amplitude Envelope} open

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

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

  948.           class EnvelopeUI

  949.         } {}

  950.         Fl_Group amplfo {

  951.           label {Amplitude LFO          } open

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

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

  954.           class LFOUI

  955.         } {}

  956.         Fl_Check_Button rndgrp {

  957.           label {Rnd Grp}

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

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

  960.           class Fl_Osc_Check

  961.         }

  962.       }

  963.       Fl_Group {} {

  964.         label FILTER open

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

  966.       } {

  967.         Fl_Group filterenv {

  968.           label {ADSynth Global - Filter Envelope} open

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

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

  971.           class EnvelopeUI

  972.         } {}

  973.         Fl_Group filterlfo {

  974.           label {Filter LFO} open

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

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

  977.           class LFOUI

  978.         } {}

  979.         Fl_Group filterui {

  980.           label {ADsynth Global - Filter} open

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

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

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

  984.           class FilterUI

  985.         } {}

  986.       }

  987.       Fl_Check_Button stereo {

  988.         label Stereo

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

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

  991.         class Fl_Osc_Check

  992.       }

  993.       Fl_Button {} {

  994.         label {Show Voice List}

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

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

  997. }

  998. ADnoteVoiceList->show();}

  999.         xywh {180 400 125 25} labelsize 12

  1000.       }

  1001.       Fl_Button {} {

  1002.         label {Show Voice Parameters}

  1003.         callback {ADnoteVoice->show();}

  1004.         xywh {5 400 170 25} labelsize 12

  1005.       }

  1006.       Fl_Button {} {

  1007.         label Close

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

  1009.         xywh {475 400 60 25} box THIN_UP_BOX

  1010.       }

  1011.       Fl_Button {} {

  1012.         label Resonance

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

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

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

  1016.       }

  1017.       Fl_Button {} {

  1018.         label C

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

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

  1021.       }

  1022.       Fl_Button {} {

  1023.         label P

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

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

  1026.       }

  1027.     }

  1028.     Fl_Window ADnoteVoice {

  1029.       label {ADsynth Voice Parameters} open

  1030.       xywh {48 361 765 630} type Double

  1031.       class Fl_Osc_Window visible

  1032.     } {

  1033.       Fl_Box {} {

  1034.         xywh {0 0 0 0}

  1035.         code0 {ADnoteVoice->base = loc;}

  1036.         code1 {ADnoteVoice->osc       = osc;}

  1037.       }

  1038.       Fl_Group advoice {open

  1039.         xywh {0 0 765 595}

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

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

  1042.         class ADvoiceUI

  1043.       } {}

  1044.       Fl_Button {} {

  1045.         label {Close Window}

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

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

  1048.       }

  1049.       Fl_Counter currentvoicecounter {

  1050.         label {Current Voice}

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

  1052. advoice->change_voice(nvoice);}

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

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

  1055.       }

  1056.       Fl_Button {} {

  1057.         label C

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

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

  1060.       }

  1061.       Fl_Button {} {

  1062.         label P

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

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

  1065.       }

  1066.     }

  1067.     Fl_Window ADnoteVoiceList {

  1068.       label {ADsynth Voices list} open

  1069.       xywh {32 266 650 260} type Double hide

  1070.       class Fl_Osc_Window

  1071.     } {

  1072.       Fl_Box {} {

  1073.         xywh {0 0 0 0}

  1074.         code0 {ADnoteVoiceList->base = loc;}

  1075.         code1 {ADnoteVoiceList->osc  = osc;}

  1076.       }

  1077.       Fl_Text_Display {} {

  1078.         label {No.}

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

  1080.       }

  1081.       Fl_Text_Display {} {

  1082.         label Vol

  1083.         xywh {145 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1084.       }

  1085.       Fl_Text_Display {} {

  1086.         label Detune

  1087.         xywh {384 15 25 10} box NO_BOX labelfont 1 labelsize 11

  1088.       }

  1089.       Fl_Text_Display {} {

  1090.         label Pan

  1091.         xywh {210 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1092.       }

  1093.       Fl_Text_Display {} {

  1094.         label {Vib. Depth}

  1095.         xywh {560 15 30 10} box NO_BOX labelfont 1 labelsize 11

  1096.       }

  1097.       Fl_Text_Display {} {

  1098.         label {R.}

  1099.         xywh {245 15 25 10} box NO_BOX labelfont 1 labelsize 11

  1100.       }

  1101.       Fl_Button {} {

  1102.         label {Hide Voice List}

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

  1104.         xywh {255 237 125 20}

  1105.       }

  1106.       Fl_Scroll {} {open

  1107.         xywh {0 15 640 220} type VERTICAL box THIN_UP_BOX

  1108.       } {

  1109.         Fl_Pack {} {open

  1110.           xywh {0 20 620 210}

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

  1112.         } {}

  1113.       }

  1114.     }

  1115.   }

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

  1117.   } {

  1118.     code {assert(osc_);

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

  1120. 

  1121. nvoice=0;

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

  1123. loc=loc_;

  1124. osc=osc_;

  1125. make_window();} {}

  1126.   }

  1127.   Function {~ADnoteUI()} {open

  1128.   } {

  1129.     code {ADnoteVoiceList->hide();

  1130. ADnoteGlobalParameters->hide();

  1131. ADnoteVoice->hide();

  1132. delete ADnoteVoiceList;

  1133. delete ADnoteGlobalParameters;

  1134. delete ADnoteVoice;

  1135. delete resui;} {}

  1136.   }

  1137.   Function {refresh()} {open

  1138.   } {

  1139.     code {amplfo->refresh();

  1140. freqlfo->refresh();

  1141. filterlfo->refresh();

  1142. 

  1143. ampenv->refresh();

  1144. freqenv->refresh();

  1145. filterenv->refresh();

  1146. filterui->refresh();

  1147. 

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

  1149. 

  1150. resui->refresh();

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

  1152.   }

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

  1154.   }

  1155.   decl {int nvoice;} {private local

  1156.   }

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

  1158.   }

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

  1160.   }

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

  1162.   }

  1163. }