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.
2900 Commits
17 Branches
263MB
Tree: e6dc9c7310
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e6dc9c7310'
${ noResults }
Carla/source/native-plugins/zynaddsubfx/UI/ADnoteUI.fl

1170 lines
49KB
Raw Blame History 

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

  2. version 1.0110 

  3. header_name {.h} 

  4. code_name {.cc}

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

  6. 

  7. decl {//License: GNU GPL version 2 or later} {} 

  8. 

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

  10. } 

  11. 

  12. decl {\#include "../Misc/Util.h"} {public

  13. } 

  14. 

  15. decl {\#include "../Misc/Master.h"} {public

  16. } 

  17. 

  18. decl {\#include "ResonanceUI.h"} {public

  19. } 

  20. 

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

  22. } 

  23. 

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

  25. } 

  26. 

  27. decl {\#include <math.h>} {} 

  28. 

  29. decl {\#include <stdio.h>} {} 

  30. 

  31. decl {\#include <stdlib.h>} {} 

  32. 

  33. decl {\#include <string.h>} {} 

  34. 

  35. decl {\#include "WidgetPDial.h"} {public

  36. } 

  37. 

  38. decl {\#include "EnvelopeUI.h"} {public

  39. } 

  40. 

  41. decl {\#include "LFOUI.h"} {public

  42. } 

  43. 

  44. decl {\#include "FilterUI.h"} {public

  45. } 

  46. 

  47. decl {\#include "OscilGenUI.h"} {public

  48. } 

  49. 

  50. decl {\#include "PresetsUI.h"} {public

  51. } 

  52. 

  53. class ADvoicelistitem {open : {public Fl_Group}

  54. } {

  55.   Function {make_window()} {open private

  56.   } {

  57.     Fl_Window ADnoteVoiceListItem {open

  58.       private xywh {262 736 615 100} type Double box UP_FRAME

  59.       class Fl_Group visible

  60.     } {

  61.       Fl_Group voicelistitemgroup {

  62.         private xywh {50 0 570 25}

  63.         code0 {if (pars->VoicePar[nvoice].Enabled==0) o->deactivate();}

  64.       } {

  65.         Fl_Value_Slider voicevolume {

  66.           callback {pars->VoicePar[nvoice].PVolume=(int)o->value();}

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

  68.           code0 {o->value(pars->VoicePar[nvoice].PVolume);}

  69.         }

  70.         Fl_Check_Button voiceresonanceenabled {

  71.           callback {pars->VoicePar[nvoice].Presonance=(int)o->value();}

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

  73.           code0 {o->value(pars->VoicePar[nvoice].Presonance);}

  74.         }

  75.         Fl_Value_Slider voicelfofreq {

  76.           callback {pars->VoicePar[nvoice].FreqLfo->Pintensity=(int)o->value();}

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

  78.           code0 {o->value(pars->VoicePar[nvoice].FreqLfo->Pintensity);}

  79.         }

  80.         Fl_Dial voicepanning {

  81.           callback {pars->VoicePar[nvoice].PPanning=(int) o->value();}

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

  83.           code0 {o->value(pars->VoicePar[nvoice].PPanning);}

  84.           class WidgetPDial

  85.         }

  86.         Fl_Group voiceoscil {open

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

  88.           code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  89.           code1 {osc->init(pars->VoicePar[nvoice].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);}

  90.           code2 {if (pars->VoicePar[nvoice].Pextoscil != -1) {osc->init(pars->VoicePar[pars->VoicePar[nvoice].Pextoscil].OscilSmp,master);}}

  91.         } {}

  92.         Fl_Value_Output detunevalueoutput {

  93.           callback {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}

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

  95.           code0 {o->value(getdetune(pars->VoicePar[nvoice].PDetuneType,0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}

  96.         }

  97.         Fl_Slider voicedetune {

  98.           callback {pars->VoicePar[nvoice].PDetune=(int)o->value()+8192;

  99. detunevalueoutput->do_callback();}

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

  101.           code0 {o->value(pars->VoicePar[nvoice].PDetune-8192);}

  102.         }

  103.         Fl_Box noiselabel {

  104.           label N

  105.           callback {if (pars->VoicePar[nvoice].Type==0) {

  106.   o->hide();

  107.   voiceresonanceenabled->activate();

  108.   detunevalueoutput->activate();

  109.   voicedetune->activate();

  110.   voicelfofreq->activate();

  111.   voiceoscil->activate();

  112. } else {

  113.   o->show();

  114.   voiceresonanceenabled->deactivate();

  115.   detunevalueoutput->deactivate();

  116.   voicedetune->deactivate();

  117.   voicelfofreq->deactivate();

  118.   voiceoscil->deactivate();

  119. };}

  120.           xywh {65 5 20 20} labelfont 1 labelsize 13 labelcolor 53

  121.           code0 {if (pars->VoicePar[nvoice].Type==0) o->hide();}

  122.         }

  123.       }

  124.       Fl_Check_Button voiceenabled {

  125.         label 01

  126.         callback {pars->VoicePar[nvoice].Enabled=(int)o->value();

  127. if (o->value()==0) voicelistitemgroup->deactivate();

  128. else voicelistitemgroup->activate();

  129. o->redraw();}

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

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

  132.         code1 {o->value(pars->VoicePar[nvoice].Enabled);}

  133.       }

  134.     }

  135.   }

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

  137.     code {nvoice=0;

  138. pars=NULL;} {}

  139.   }

  140.   Function {init(ADnoteParameters *parameters,int nvoice_,Master *master_)} {} {

  141.     code {pars=parameters;

  142. nvoice=nvoice_;

  143. master=master_;

  144. make_window();

  145. ADnoteVoiceListItem->show();

  146. end();} {}

  147.   }

  148.   Function {refreshlist()} {} {

  149.     code {voiceenabled->value(pars->VoicePar[nvoice].Enabled);

  150. voiceresonanceenabled->value(pars->VoicePar[nvoice].Presonance);

  151. voicevolume->value(pars->VoicePar[nvoice].PVolume);

  152. voicedetune->value(pars->VoicePar[nvoice].PDetune-8192);

  153. voicepanning->value(pars->VoicePar[nvoice].PPanning);

  154. voicelfofreq->value(pars->VoicePar[nvoice].FreqLfo->Pintensity);

  155. if (pars->VoicePar[nvoice].Pextoscil != -1) {

  156.   osc->init(pars->VoicePar[pars->VoicePar[nvoice].Pextoscil].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);

  157. } else 

  158.   osc->init(pars->VoicePar[nvoice].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);

  159. if (pars->VoicePar[nvoice].Enabled==0) voicelistitemgroup->deactivate();

  160.     else voicelistitemgroup->activate();

  161. detunevalueoutput->do_callback();

  162. noiselabel->do_callback();

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

  164.   }

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

  166.     code {ADnoteVoiceListItem->hide();

  167. //delete(ADnoteVoiceListItem);} {}

  168.   }

  169.   decl {ADnoteParameters *pars;} {}

  170.   decl {int nvoice;} {}

  171.   decl {Oscilloscope *osc;} {}

  172.   decl {Master *master;} {}

  173. } 

  174. 

  175. class ADvoiceUI {open : {public Fl_Group}

  176. } {

  177.   Function {make_window()} {open

  178.   } {

  179.     Fl_Window ADnoteVoiceParameters {

  180.       label Voice open

  181.       xywh {863 89 765 595} type Double box NO_BOX

  182.       class Fl_Group visible

  183.     } {

  184.       Fl_Group voiceparametersgroup {open

  185.         xywh {0 0 770 590} color 48

  186.         code0 {if (pars->VoicePar[nvoice].Enabled==0) o->deactivate();}

  187.       } {

  188.         Fl_Group voicemodegroup {open

  189.           xywh {0 5 770 585} color 64

  190.         } {

  191.           Fl_Group voiceFMparametersgroup {

  192.             label MODULATOR open

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

  194.             code0 {if (pars->VoicePar[nvoice].PFMEnabled==0) o->deactivate();}

  195.           } {

  196.             Fl_Group modfrequency {

  197.               label {Mod.FREQUENCY}

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

  199.             } {

  200.               Fl_Group voiceFMfreqenvgroup {

  201.                 label {ADSynth Modulator - Frequency Envelope}

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

  203.                 code0 {o->init(pars->VoicePar[nvoice].FMFreqEnvelope);}

  204.                 code1 {if (pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled==0) o->deactivate();}

  205.                 class EnvelopeUI

  206.               } {}

  207.               Fl_Check_Button {} {

  208.                 label On

  209.                 callback {pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled=(int)o->value();

  210. if (o->value()==0) voiceFMfreqenvgroup->deactivate();

  211. else voiceFMfreqenvgroup->activate();

  212. o->redraw();}

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

  214.                 code0 {o->value(pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled);}

  215.               }

  216.               Fl_Counter {} {

  217.                 label {Coarse Det.}

  218.                 callback {int k=(int) o->value();

  219. if (k<0) k+=1024;

  220. pars->VoicePar[nvoice].PFMCoarseDetune = k+

  221.    (pars->VoicePar[nvoice].PFMCoarseDetune/1024)*1024;}

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

  223.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune%1024;}

  224.                 code1 {if (k>=512) k-=1024;}

  225.                 code2 {o->value(k);}

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

  227.               }

  228.               Fl_Counter {} {

  229.                 label Octave

  230.                 callback {int k=(int) o->value();

  231. if (k<0) k+=16;

  232. pars->VoicePar[nvoice].PFMCoarseDetune = k*1024+

  233.    pars->VoicePar[nvoice].PFMCoarseDetune%1024;}

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

  235.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune/1024;}

  236.                 code1 {if (k>=8) k-=16;}

  237.                 code2 {o->value(k);}

  238.               }

  239.               Fl_Slider {} {

  240.                 callback {pars->VoicePar[nvoice].PFMDetune=(int)o->value()+8192;

  241. fmdetunevalueoutput->do_callback();}

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

  243.                 code0 {o->value(pars->VoicePar[nvoice].PFMDetune-8192);}

  244.               }

  245.               Fl_Value_Output fmdetunevalueoutput {

  246.                 label Detune

  247.                 callback {o->value(getdetune((pars->VoicePar[nvoice].PFMDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PFMDetuneType),0,pars->VoicePar[nvoice].PFMDetune));}

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

  249.                 code0 {o->value(getdetune((pars->VoicePar[nvoice].PFMDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PFMDetuneType),0,pars->VoicePar[nvoice].PFMDetune));}

  250.                 code1 {//o->value(getdetune(pars->VoicePar[nvoice].PFMDetuneType,0,pars->VoicePar[nvoice].PFMDetune));}

  251.               }

  252.               Fl_Choice {} {

  253.                 label {Detune Type}

  254.                 callback {pars->VoicePar[nvoice].PFMDetuneType=(int) o->value();

  255. fmdetunevalueoutput->do_callback();} open

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

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

  258.                 code1 {o->value(pars->VoicePar[nvoice].PFMDetuneType);}

  259.               } {}

  260.             }

  261.             Fl_Group {} {

  262.               label {Mod.AMPLITUDE}

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

  264.             } {

  265.               Fl_Value_Slider {} {

  266.                 label Vol

  267.                 callback {pars->VoicePar[nvoice].PFMVolume=(int)o->value();}

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

  269.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolume);}

  270.               }

  271.               Fl_Value_Slider {} {

  272.                 label {V.Sns}

  273.                 callback {pars->VoicePar[nvoice].PFMVelocityScaleFunction=(int) o->value();}

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

  275.                 code0 {o->value(pars->VoicePar[nvoice].PFMVelocityScaleFunction);}

  276.               }

  277.               Fl_Group voiceFMampenvgroup {

  278.                 label {ADSynth Modulator - Amplitude Envelope} open

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

  280.                 code0 {o->init(pars->VoicePar[nvoice].FMAmpEnvelope);}

  281.                 code1 {if (pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled==0) o->deactivate();}

  282.                 class EnvelopeUI

  283.               } {}

  284.               Fl_Check_Button {} {

  285.                 label On

  286.                 callback {pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled=(int)o->value();

  287. if (o->value()==0) voiceFMampenvgroup->deactivate();

  288. else voiceFMampenvgroup->activate();

  289. o->redraw();}

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

  291.                 code0 {o->value(pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled);}

  292.               }

  293.               Fl_Value_Slider {} {

  294.                 label {F.Damp}

  295.                 callback {pars->VoicePar[nvoice].PFMVolumeDamp=(int) o->value()+64;}

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

  297.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolumeDamp-64);}

  298.               }

  299.             }

  300.             Fl_Group modoscil {open

  301.               xywh {535 365 220 220}

  302.             } {

  303.               Fl_Group fmoscil {open

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

  305.                 code0 {oscFM=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  306.                 code1 {int nv=nvoice; if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;}

  307.                 code2 {oscFM->init(pars->VoicePar[nv].FMSmp,0,pars->VoicePar[nvoice].PFMoscilphase,master);}

  308.               } {}

  309.               Fl_Box {} {

  310.                 label {Mod.Oscillator}

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

  312.               }

  313.               Fl_Button changeFMoscilbutton {

  314.                 label Change

  315.                 callback {if (oscedit!=NULL) delete(oscedit);

  316. 

  317. int nv=nvoice;

  318. if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;

  319. 

  320. oscedit=new OscilEditor(pars->VoicePar[nv].FMSmp,fmoscil,NULL,NULL,master);}

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

  322.                 code0 {if (pars->VoicePar[nvoice].PextFMoscil>=0) o->labelcolor(FL_BLUE);}

  323.               }

  324.               Fl_Slider {} {

  325.                 label Phase

  326.                 callback {pars->VoicePar[nvoice].PFMoscilphase=64-(int)o->value();

  327. oscFM->phase=64-(int) o->value();

  328. fmoscil->redraw();}

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

  330.                 code0 {o->value(64-pars->VoicePar[nvoice].PFMoscilphase);}

  331.               }

  332.               Fl_Choice {} {

  333.                 label Use

  334.                 callback {pars->VoicePar[nvoice].PextFMoscil=(int)o->value()-1;

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

  336.     oscFM->init(pars->VoicePar[(int) o->value()-1].FMSmp,master);

  337.     changeFMoscilbutton->labelcolor(FL_BLUE);

  338. } else { 

  339.     oscFM->init(pars->VoicePar[nvoice].FMSmp,master);

  340.     changeFMoscilbutton->labelcolor(FL_BLACK);

  341. };

  342. voiceFMparametersgroup->redraw();} open

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

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

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

  346.                 code3 {o->value(pars->VoicePar[nvoice].PextFMoscil+1);}

  347.               } {}

  348.             }

  349.             Fl_Choice {} {

  350.               label {External Mod.}

  351.               callback {pars->VoicePar[nvoice].PFMVoice=(int)o->value()-1;

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

  353.     modoscil->deactivate();

  354.     modfrequency->deactivate();

  355. } else { 

  356.     modoscil->activate();

  357.     modfrequency->activate();

  358. };

  359. voiceFMparametersgroup->redraw();} open

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

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

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

  363.               code2 {o->value(pars->VoicePar[nvoice].PFMVoice+1);}

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

  365.             } {}

  366.           }

  367.           Fl_Choice {} {

  368.             label {Type:}

  369.             callback {pars->VoicePar[nvoice].PFMEnabled=(int)o->value();

  370. if (o->value()==0) voiceFMparametersgroup->deactivate();

  371. else voiceFMparametersgroup->activate();

  372. o->redraw();}

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

  374.             code0 {o->value(pars->VoicePar[nvoice].PFMEnabled);}

  375.           } {

  376.             MenuItem {} {

  377.               label OFF

  378.               xywh {40 40 100 20} labelfont 1

  379.             }

  380.             MenuItem {} {

  381.               label MORPH

  382.               xywh {50 50 100 20} labelfont 1

  383.             }

  384.             MenuItem {} {

  385.               label RING

  386.               xywh {60 60 100 20} labelfont 1

  387.             }

  388.             MenuItem {} {

  389.               label PM

  390.               xywh {70 70 100 20} labelfont 1

  391.             }

  392.             MenuItem {} {

  393.               label FM

  394.               xywh {80 80 100 20} labelfont 1

  395.             }

  396.             MenuItem {} {

  397.               label PITCH

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

  399.             }

  400.           }

  401.           Fl_Group {} {

  402.             label FREQUENCY

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

  404.           } {

  405.             Fl_Group voicefreqenvgroup {

  406.               label {ADSynth Voice - Frequency Envelope} open

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

  408.               code0 {o->init(pars->VoicePar[nvoice].FreqEnvelope);}

  409.               code1 {if (pars->VoicePar[nvoice].PFreqEnvelopeEnabled==0) o->deactivate();}

  410.               class EnvelopeUI

  411.             } {}

  412.             Fl_Check_Button {} {

  413.               label On

  414.               callback {pars->VoicePar[nvoice].PFreqEnvelopeEnabled=(int)o->value();

  415. if (o->value()==0) voicefreqenvgroup->deactivate();

  416. else voicefreqenvgroup->activate();

  417. o->redraw();}

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

  419.               code0 {o->value(pars->VoicePar[nvoice].PFreqEnvelopeEnabled);}

  420.             }

  421.             Fl_Group voicefreqlfogroup {

  422.               label {Frequency LFO     } open

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

  424.               code0 {o->init(pars->VoicePar[nvoice].FreqLfo);}

  425.               code1 {if (pars->VoicePar[nvoice].PFreqLfoEnabled==0) o->deactivate();}

  426.               class LFOUI

  427.             } {}

  428.             Fl_Check_Button {} {

  429.               label On

  430.               callback {pars->VoicePar[nvoice].PFreqLfoEnabled=(int)o->value();

  431. if (o->value()==0) voicefreqlfogroup->deactivate();

  432. else voicefreqlfogroup->activate();

  433. o->redraw();}

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

  435.               code0 {o->value(pars->VoicePar[nvoice].PFreqLfoEnabled);}

  436.             }

  437.             Fl_Counter {} {

  438.               label Octave

  439.               callback {int k=(int) o->value();

  440. if (k<0) k+=16;

  441. pars->VoicePar[nvoice].PCoarseDetune = k*1024+

  442.    pars->VoicePar[nvoice].PCoarseDetune%1024;}

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

  444.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune/1024;}

  445.               code1 {if (k>=8) k-=16;}

  446.               code2 {o->value(k);}

  447.             }

  448.             Fl_Counter {} {

  449.               label {Coarse Det.}

  450.               callback {int k=(int) o->value();

  451. if (k<0) k+=1024;

  452. pars->VoicePar[nvoice].PCoarseDetune = k+

  453.    (pars->VoicePar[nvoice].PCoarseDetune/1024)*1024;}

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

  455.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune%1024;}

  456.               code1 {if (k>=512) k-=1024;}

  457.               code2 {o->value(k);}

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

  459.             }

  460.             Fl_Slider {} {

  461.               callback {pars->VoicePar[nvoice].PDetune=(int)o->value()+8192;

  462. detunevalueoutput->do_callback();}

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

  464.               code0 {o->value(pars->VoicePar[nvoice].PDetune-8192);}

  465.             }

  466.             Fl_Value_Output detunevalueoutput {

  467.               label Detune

  468.               callback {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}

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

  470.               code0 {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}

  471.             }

  472.             Fl_Check_Button {} {

  473.               label 440Hz

  474.               callback {int x=(int) o->value();

  475. pars->VoicePar[nvoice].Pfixedfreq=x;

  476. if (x==0) fixedfreqetdial->deactivate();

  477.     else fixedfreqetdial->activate();}

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

  479.               code0 {o->value(pars->VoicePar[nvoice].Pfixedfreq);}

  480.             }

  481.             Fl_Dial fixedfreqetdial {

  482.               label {Eq.T.}

  483.               callback {pars->VoicePar[nvoice].PfixedfreqET=(int) o->value();}

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

  485.               code0 {o->value(pars->VoicePar[nvoice].PfixedfreqET);}

  486.               code1 {if (pars->VoicePar[nvoice].Pfixedfreq==0) o->deactivate();}

  487.               class WidgetPDial

  488.             }

  489.             Fl_Choice {} {

  490.               label {Detune Type}

  491.               callback {pars->VoicePar[nvoice].PDetuneType=(int) o->value();

  492. detunevalueoutput->do_callback();} open

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

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

  495.               code1 {o->value(pars->VoicePar[nvoice].PDetuneType);}

  496.             } {}

  497.           }

  498.           Fl_Group voiceoscil {

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

  500.             code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  501.             code1 {int nv=nvoice; if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;}

  502.             code2 {osc->init(pars->VoicePar[nv].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);}

  503.           } {}

  504.           Fl_Button changevoiceoscilbutton {

  505.             label Change

  506.             callback {if (oscedit!=NULL) delete(oscedit);

  507. 

  508. int nv=nvoice;

  509. if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;

  510. 

  511. oscedit=new OscilEditor(pars->VoicePar[nv].OscilSmp,voiceoscil,NULL,NULL,master);}

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

  513.             code0 {if (pars->VoicePar[nvoice].Pextoscil>=0) o->labelcolor(FL_BLUE);}

  514.           }

  515.           Fl_Box {} {

  516.             label {Voice Oscillator}

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

  518.           }

  519.           Fl_Slider {} {

  520.             label Phase

  521.             callback {pars->VoicePar[nvoice].Poscilphase=64-(int)o->value();

  522. osc->phase=64-(int) o->value();

  523. voiceoscil->redraw();}

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

  525.             code0 {o->value(64-pars->VoicePar[nvoice].Poscilphase);}

  526.           }

  527.           Fl_Check_Button {} {

  528.             label {R.}

  529.             callback {pars->VoicePar[nvoice].Presonance=(int) o->value();}

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

  531.             code0 {o->value(pars->VoicePar[nvoice].Presonance);}

  532.           }

  533.           Fl_Choice {} {

  534.             label {Use Oscil.}

  535.             callback {pars->VoicePar[nvoice].Pextoscil=(int)o->value()-1;

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

  537.     osc->init(pars->VoicePar[(int) o->value()-1].OscilSmp,master);

  538.     changevoiceoscilbutton->labelcolor(FL_BLUE);

  539. } else { 

  540.     osc->init(pars->VoicePar[nvoice].OscilSmp,master);

  541.     changevoiceoscilbutton->labelcolor(FL_BLACK);

  542. };

  543. 

  544. voiceparametersgroup->redraw();

  545. voiceonbutton->redraw();} open

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

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

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

  549.             code3 {o->value(pars->VoicePar[nvoice].Pextoscil+1);}

  550.           } {}

  551.           Fl_Group {} {open

  552.             xywh {5 540 520 50} box UP_FRAME

  553.           } {

  554.             Fl_Dial {} {

  555.               label Stereo

  556.               callback {pars->VoicePar[nvoice].Unison_stereo_spread=(int)o->value();}

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

  558.               code0 {o->value(pars->VoicePar[nvoice].Unison_stereo_spread);}

  559.               class WidgetPDial

  560.             }

  561.             Fl_Choice {} {

  562.               label Unison

  563.               callback {pars->set_unison_size_index(nvoice,(int) o->value());} open

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

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

  566.               code1 {o->value(pars->get_unison_size_index(nvoice));}

  567.             } {}

  568.             Fl_Dial {} {

  569.               label Vibrato

  570.               callback {pars->VoicePar[nvoice].Unison_vibratto=(int)o->value();}

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

  572.               code0 {o->value(pars->VoicePar[nvoice].Unison_vibratto);}

  573.               class WidgetPDial

  574.             }

  575.             Fl_Choice {} {

  576.               label Invert

  577.               callback {pars->VoicePar[nvoice].Unison_invert_phase=(int) o->value();} open

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

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

  580.               code1 {o->value(pars->VoicePar[nvoice].Unison_invert_phase);}

  581.             } {}

  582.             Fl_Slider {} {

  583.               label {Frequency Spread}

  584.               callback {pars->VoicePar[nvoice].Unison_frequency_spread=(int)o->value();

  585. unisonspreadoutput->do_callback();}

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

  587.               code0 {o->value(pars->VoicePar[nvoice].Unison_frequency_spread);}

  588.             }

  589.             Fl_Value_Output unisonspreadoutput {

  590.               label {(cents)}

  591.               callback {o->value(pars->getUnisonFrequencySpreadCents(nvoice));}

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

  593.               code0 {o->value(pars->getUnisonFrequencySpreadCents(nvoice));}

  594.             }

  595.             Fl_Dial {} {

  596.               label {V.speed}

  597.               callback {pars->VoicePar[nvoice].Unison_vibratto_speed=(int)o->value();} selected

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

  599.               code0 {o->value(pars->VoicePar[nvoice].Unison_vibratto_speed);}

  600.               class WidgetPDial

  601.             }

  602.             Fl_Dial {} {

  603.               label {Ph.rand}

  604.               callback {pars->VoicePar[nvoice].Unison_phase_randomness=(int)o->value();}

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

  606.               code0 {o->value(pars->VoicePar[nvoice].Unison_phase_randomness);}

  607.               class WidgetPDial

  608.             }

  609.           }

  610.         }

  611.         Fl_Group {} {

  612.           label AMPLITUDE open

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

  614.         } {

  615.           Fl_Value_Slider {} {

  616.             label Vol

  617.             callback {pars->VoicePar[nvoice].PVolume=(int)o->value();}

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

  619.             code0 {o->value(pars->VoicePar[nvoice].PVolume);}

  620.           }

  621.           Fl_Value_Slider {} {

  622.             label {V.Sns}

  623.             callback {pars->VoicePar[nvoice].PAmpVelocityScaleFunction=(int) o->value();}

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

  625.             code0 {o->value(pars->VoicePar[nvoice].PAmpVelocityScaleFunction);}

  626.           }

  627.           Fl_Group voiceampenvgroup {

  628.             label {ADSynth Voice - Amplitude Envelope} open

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

  630.             code0 {o->init(pars->VoicePar[nvoice].AmpEnvelope);}

  631.             code1 {if (pars->VoicePar[nvoice].PAmpEnvelopeEnabled==0) o->deactivate();}

  632.             class EnvelopeUI

  633.           } {}

  634.           Fl_Dial {} {

  635.             label Pan

  636.             callback {pars->VoicePar[nvoice].PPanning=(int) o->value();}

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

  638.             code0 {o->value(pars->VoicePar[nvoice].PPanning);}

  639.             class WidgetPDial

  640.           }

  641.           Fl_Check_Button {} {

  642.             label On

  643.             callback {pars->VoicePar[nvoice].PAmpEnvelopeEnabled=(int)o->value();

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

  645. else voiceampenvgroup->activate();

  646. o->redraw();}

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

  648.             code0 {o->value(pars->VoicePar[nvoice].PAmpEnvelopeEnabled);}

  649.           }

  650.           Fl_Group voiceamplfogroup {

  651.             label {Amplitude LFO     } open

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

  653.             code0 {o->init(pars->VoicePar[nvoice].AmpLfo);}

  654.             code1 {if (pars->VoicePar[nvoice].PAmpLfoEnabled==0) o->deactivate();}

  655.             class LFOUI

  656.           } {}

  657.           Fl_Check_Button {} {

  658.             label On

  659.             callback {pars->VoicePar[nvoice].PAmpLfoEnabled=(int)o->value();

  660. if (o->value()==0) voiceamplfogroup->deactivate();

  661. else voiceamplfogroup->activate();

  662. o->redraw();}

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

  664.             code0 {o->value(pars->VoicePar[nvoice].PAmpLfoEnabled);}

  665.           }

  666.           Fl_Check_Button {} {

  667.             label Minus

  668.             callback {pars->VoicePar[nvoice].PVolumeminus=(int)o->value();}

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

  670.             code0 {o->value(pars->VoicePar[nvoice].PVolumeminus);}

  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.           code0 {if (pars->VoicePar[nvoice].PFilterEnabled==0) o->deactivate();}

  677.         } {

  678.           Fl_Group {} {

  679.             label {ADsynth Voice - Filter} open

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

  681.             code0 {o->init(pars->VoicePar[nvoice].VoiceFilter,NULL,NULL);}

  682.             class FilterUI

  683.           } {}

  684.           Fl_Group voicefilterenvgroup {

  685.             label {ADSynth Voice - Filter Envelope} open

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

  687.             code0 {o->init(pars->VoicePar[nvoice].FilterEnvelope);}

  688.             code1 {if (pars->VoicePar[nvoice].PFilterEnvelopeEnabled==0) o->deactivate();}

  689.             class EnvelopeUI

  690.           } {}

  691.           Fl_Check_Button {} {

  692.             label On

  693.             callback {pars->VoicePar[nvoice].PFilterEnvelopeEnabled=(int)o->value();

  694. if (o->value()==0) voicefilterenvgroup->deactivate();

  695. else voicefilterenvgroup->activate();

  696. o->redraw();}

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

  698.             code0 {o->value(pars->VoicePar[nvoice].PFilterEnvelopeEnabled);}

  699.           }

  700.           Fl_Group voicefilterlfogroup {

  701.             label {Filter LFO     } open

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

  703.             code0 {o->init(pars->VoicePar[nvoice].FilterLfo);}

  704.             code1 {if (pars->VoicePar[nvoice].PFilterLfoEnabled==0) o->deactivate();}

  705.             class LFOUI

  706.           } {}

  707.           Fl_Check_Button {} {

  708.             label On

  709.             callback {pars->VoicePar[nvoice].PFilterLfoEnabled=(int)o->value();

  710. if (o->value()==0) voicefilterlfogroup->deactivate();

  711. else voicefilterlfogroup->activate();

  712. o->redraw();}

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

  714.             code0 {o->value(pars->VoicePar[nvoice].PFilterLfoEnabled);}

  715.           }

  716.         }

  717.         Fl_Group {} {

  718.           label 01

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

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

  721.         } {}

  722.         Fl_Choice {} {

  723.           callback {int x=(int) o->value();

  724. pars->VoicePar[nvoice].Type=x;

  725. if (x==0) voicemodegroup->activate();

  726.   else voicemodegroup->deactivate();

  727. noiselabel->do_callback();}

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

  729.           code0 {o->value(pars->VoicePar[nvoice].Type);}

  730.           code1 {if (pars->VoicePar[nvoice].Type!=0) voicemodegroup->deactivate();}

  731.         } {

  732.           MenuItem {} {

  733.             label Sound

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

  735.           }

  736.           MenuItem {} {

  737.             label NOISE

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

  739.           }

  740.         }

  741.         Fl_Check_Button bypassfiltercheckbutton {

  742.           label {Bypass Global F.}

  743.           callback {pars->VoicePar[nvoice].Pfilterbypass=(int)o->value();}

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

  745.           code0 {o->value(pars->VoicePar[nvoice].Pfilterbypass);}

  746.         }

  747.         Fl_Group {} {open

  748.           xywh {115 5 95 35} box THIN_UP_BOX

  749.         } {

  750.           Fl_Value_Slider {} {

  751.             label Delay

  752.             callback {pars->VoicePar[nvoice].PDelay=(int)o->value();}

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

  754.             code0 {o->value(pars->VoicePar[nvoice].PDelay);}

  755.           }

  756.         }

  757.         Fl_Check_Button {} {

  758.           label On

  759.           callback {pars->VoicePar[nvoice].PFilterEnabled=(int)o->value();

  760. if (o->value()==0) voicefiltergroup->deactivate();

  761. else voicefiltergroup->activate();

  762. o->redraw();

  763. bypassfiltercheckbutton->redraw();}

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

  765.           code0 {o->value(pars->VoicePar[nvoice].PFilterEnabled);}

  766.         }

  767.         Fl_Box noiselabel {

  768.           label {White Noise}

  769.           callback {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}

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

  771.           code0 {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}

  772.         }

  773.       }

  774.       Fl_Check_Button voiceonbutton {

  775.         label On

  776.         callback {pars->VoicePar[nvoice].Enabled=(int)o->value();

  777. if (o->value()==0) voiceparametersgroup->deactivate();

  778. else voiceparametersgroup->activate();

  779. o->redraw();}

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

  781.         code0 {o->value(pars->VoicePar[nvoice].Enabled);}

  782.       }

  783.     }

  784.   }

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

  786.     code {nvoice=0;

  787. pars=NULL;

  788. oscedit=NULL;} {}

  789.   }

  790.   Function {init(ADnoteParameters *parameters,int nvoice_,Master *master_)} {open

  791.   } {

  792.     code {pars=parameters;

  793. nvoice=nvoice_;

  794. master=master_;

  795. make_window();

  796. end();

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

  798.   }

  799.   Function {~ADvoiceUI()} {open

  800.   } {

  801.     code {ADnoteVoiceParameters->hide();

  802. hide();

  803. if (oscedit!=NULL) {

  804.     delete(oscedit);

  805. };

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

  807.   }

  808.   decl {int nvoice;} {}

  809.   decl {ADnoteParameters *pars;} {}

  810.   decl {OscilEditor *oscedit;} {}

  811.   decl {Oscilloscope *osc;} {}

  812.   decl {Oscilloscope *oscFM;} {}

  813.   decl {Master *master;} {}

  814. } 

  815. 

  816. class ADnoteUI {open : {public PresetsUI_}

  817. } {

  818.   Function {make_window()} {open private

  819.   } {

  820.     Fl_Window ADnoteGlobalParameters {

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

  822.       xywh {457 319 540 430} type Double visible

  823.     } {

  824.       Fl_Group {} {

  825.         label FREQUENCY open

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

  827.       } {

  828.         Fl_Group freqenv {

  829.           label {ADSynth Global - Frequency Envelope} open

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

  831.           code0 {o->init(pars->GlobalPar.FreqEnvelope);}

  832.           class EnvelopeUI

  833.         } {}

  834.         Fl_Counter octave {

  835.           label Octave

  836.           callback {int k=(int) o->value();

  837. if (k<0) k+=16;

  838. pars->GlobalPar.PCoarseDetune = k*1024+

  839.    pars->GlobalPar.PCoarseDetune%1024;}

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

  841.           code0 {int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;}

  842.           code2 {o->value(k);}

  843.         }

  844.         Fl_Counter coarsedet {

  845.           label {Coarse det.}

  846.           callback {int k=(int) o->value();

  847. if (k<0) k+=1024;

  848. pars->GlobalPar.PCoarseDetune = k+

  849.    (pars->GlobalPar.PCoarseDetune/1024)*1024;}

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

  851.           code0 {int k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;}

  852.           code2 {o->value(k);}

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

  854.         }

  855.         Fl_Group freqlfo {

  856.           label {Frequency LFO     } open

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

  858.           code0 {o->init(pars->GlobalPar.FreqLfo);}

  859.           class LFOUI

  860.         } {}

  861.         Fl_Slider freq {

  862.           callback {pars->GlobalPar.PDetune=(int)o->value()+8192;

  863. detunevalueoutput->do_callback();}

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

  865.           code0 {o->value(pars->GlobalPar.PDetune-8192);}

  866.         }

  867.         Fl_Value_Output detunevalueoutput {

  868.           label Detune

  869.           callback {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}

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

  871.           code0 {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}

  872.         }

  873.         Fl_Choice detunetype {

  874.           label {Detune Type}

  875.           callback {pars->GlobalPar.PDetuneType=(int) o->value()+1;

  876. detunevalueoutput->do_callback();} open

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

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

  879.           code1 {o->value(pars->GlobalPar.PDetuneType-1);}

  880.         } {}

  881.         Fl_Dial {} {

  882.           label relBW

  883.           callback {pars->GlobalPar.PBandwidth=(int) o->value();

  884. 

  885. pars->getBandwidthDetuneMultiplier();

  886. 

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

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

  889. };}

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

  891.           code0 {o->value(pars->GlobalPar.PBandwidth);}

  892.           class WidgetPDial

  893.         }

  894.       }

  895.       Fl_Group {} {

  896.         label AMPLITUDE

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

  898.       } {

  899.         Fl_Value_Slider volume {

  900.           label Vol

  901.           callback {pars->GlobalPar.PVolume=(int)o->value();}

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

  903.           code0 {o->value(pars->GlobalPar.PVolume);}

  904.         }

  905.         Fl_Value_Slider vsns {

  906.           label {V.Sns}

  907.           callback {pars->GlobalPar.PAmpVelocityScaleFunction=(int) o->value();}

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

  909.           code0 {o->value(pars->GlobalPar.PAmpVelocityScaleFunction);}

  910.         }

  911.         Fl_Dial pan {

  912.           label Pan

  913.           callback {pars->GlobalPar.PPanning=(int) o->value();}

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

  915.           code0 {o->value(pars->GlobalPar.PPanning);}

  916.           class WidgetPDial

  917.         }

  918.         Fl_Dial pstr {

  919.           label {P.Str.}

  920.           callback {pars->GlobalPar.PPunchStrength=(int) o->value();}

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

  922.           code0 {o->value(pars->GlobalPar.PPunchStrength);}

  923.           class WidgetPDial

  924.         }

  925.         Fl_Dial pt {

  926.           label {P.t.}

  927.           callback {pars->GlobalPar.PPunchTime=(int) o->value();}

  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->value(pars->GlobalPar.PPunchTime);}

  930.           class WidgetPDial

  931.         }

  932.         Fl_Dial pstc {

  933.           label {P.Stc.}

  934.           callback {pars->GlobalPar.PPunchStretch=(int) o->value();}

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

  936.           code0 {o->value(pars->GlobalPar.PPunchStretch);}

  937.           class WidgetPDial

  938.         }

  939.         Fl_Dial pvel {

  940.           label {P.Vel.}

  941.           callback {pars->GlobalPar.PPunchVelocitySensing=(int) o->value();}

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

  943.           code0 {o->value(pars->GlobalPar.PPunchVelocitySensing);}

  944.           class WidgetPDial

  945.         }

  946.         Fl_Group ampenv {

  947.           label {ADSynth Global - Amplitude Envelope} open

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

  949.           code0 {o->init(pars->GlobalPar.AmpEnvelope);}

  950.           class EnvelopeUI

  951.         } {}

  952.         Fl_Group amplfo {

  953.           label {Amplitude LFO          } open

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

  955.           code0 {o->init(pars->GlobalPar.AmpLfo);}

  956.           class LFOUI

  957.         } {}

  958.         Fl_Check_Button rndgrp {

  959.           label {Rnd Grp}

  960.           callback {pars->GlobalPar.Hrandgrouping=(int) o->value();}

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

  962.           code0 {o->value(pars->GlobalPar.Hrandgrouping);}

  963.         }

  964.       }

  965.       Fl_Group {} {

  966.         label FILTER open selected

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

  968.       } {

  969.         Fl_Group filterenv {

  970.           label {ADSynth Global - Filter Envelope} open

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

  972.           code0 {o->init(pars->GlobalPar.FilterEnvelope);}

  973.           class EnvelopeUI

  974.         } {}

  975.         Fl_Group filterlfo {

  976.           label {Filter LFO} open

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

  978.           code0 {o->init(pars->GlobalPar.FilterLfo);}

  979.           class LFOUI

  980.         } {}

  981.         Fl_Group filterui {

  982.           label {ADsynth Global - Filter} open

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

  984.           code0 {o->init(pars->GlobalPar.GlobalFilter,&pars->GlobalPar.PFilterVelocityScale,&pars->GlobalPar.PFilterVelocityScaleFunction);}

  985.           class FilterUI

  986.         } {}

  987.       }

  988.       Fl_Check_Button stereo {

  989.         label Stereo

  990.         callback {pars->GlobalPar.PStereo=(int) o->value();}

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

  992.         code0 {o->value(pars->GlobalPar.PStereo);}

  993.       }

  994.       Fl_Button {} {

  995.         label {Show Voice List}

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

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

  998. }

  999. ADnoteVoiceList->show();}

  1000.         xywh {180 400 125 25} labelsize 12

  1001.       }

  1002.       Fl_Button {} {

  1003.         label {Show Voice Parameters}

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

  1005.         xywh {5 400 170 25} labelsize 12

  1006.       }

  1007.       Fl_Button {} {

  1008.         label Close

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

  1010.         xywh {475 400 60 25} box THIN_UP_BOX

  1011.       }

  1012.       Fl_Button {} {

  1013.         label Resonance

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

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

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

  1017.       }

  1018.       Fl_Button {} {

  1019.         label C

  1020.         callback {presetsui->copyArray(pars);}

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

  1022.       }

  1023.       Fl_Button {} {

  1024.         label P

  1025.         callback {presetsui->pasteArray(pars,this);}

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

  1027.       }

  1028.     }

  1029.     Fl_Window ADnoteVoice {

  1030.       label {ADsynth Voice Parameters} open

  1031.       xywh {1142 229 765 630} type Double visible

  1032.     } {

  1033.       Fl_Group advoice {open

  1034.         xywh {0 0 765 595}

  1035.         code0 {o->init(pars,nvoice,master);}

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

  1037.         class ADvoiceUI

  1038.       } {}

  1039.       Fl_Button {} {

  1040.         label {Close Window}

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

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

  1043.       }

  1044.       Fl_Counter currentvoicecounter {

  1045.         label {Current Voice}

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

  1047. advoice->hide();

  1048. ADnoteVoice->remove(advoice);

  1049. delete advoice;

  1050. advoice=new ADvoiceUI(0,0,765,590);

  1051. ADnoteVoice->add(advoice);

  1052. advoice->init(pars,nvoice,master);

  1053. advoice->show();

  1054. ADnoteVoice->redraw();}

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

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

  1057.       }

  1058.       Fl_Button {} {

  1059.         label C

  1060.         callback {presetsui->copy(pars,nvoice);}

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

  1062.       }

  1063.       Fl_Button {} {

  1064.         label P

  1065.         callback {presetsui->paste(pars,this,nvoice);}

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

  1067.       }

  1068.     }

  1069.     Fl_Window ADnoteVoiceList {

  1070.       label {ADsynth Voices list}

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

  1072.     } {

  1073.       Fl_Text_Display {} {

  1074.         label {No.}

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

  1076.       }

  1077.       Fl_Text_Display {} {

  1078.         label Vol

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

  1080.       }

  1081.       Fl_Text_Display {} {

  1082.         label Detune

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

  1084.       }

  1085.       Fl_Text_Display {} {

  1086.         label Pan

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

  1088.       }

  1089.       Fl_Text_Display {} {

  1090.         label {Vib. Depth}

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

  1092.       }

  1093.       Fl_Text_Display {} {

  1094.         label {R.}

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

  1096.       }

  1097.       Fl_Button {} {

  1098.         label {Hide Voice List}

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

  1100.         xywh {255 237 125 20}

  1101.       }

  1102.       Fl_Scroll {} {open

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

  1104.       } {

  1105.         Fl_Pack {} {open

  1106.           xywh {0 20 620 210}

  1107.           code0 {for (int i=0;i<NUM_VOICES;i++){voicelistitem[i]=new ADvoicelistitem(0,0,620,25,"");voicelistitem[i]->init(pars,i,master);}}

  1108.         } {}

  1109.       }

  1110.     }

  1111.   }

  1112.   Function {ADnoteUI(ADnoteParameters *parameters,Master *master_)} {} {

  1113.     code {pars=parameters;

  1114. master=master_;

  1115. nvoice=0;

  1116. resui=new ResonanceUI(pars->GlobalPar.Reson);

  1117. make_window();} {}

  1118.   }

  1119.   Function {~ADnoteUI()} {} {

  1120.     code {ADnoteVoiceList->hide();

  1121. ADnoteGlobalParameters->hide();

  1122. ADnoteVoice->hide();

  1123. delete(ADnoteVoiceList);

  1124. delete(ADnoteGlobalParameters);

  1125. delete(ADnoteVoice);

  1126. delete(resui);} {}

  1127.   }

  1128.   Function {refresh()} {} {

  1129.     code {volume->value(pars->GlobalPar.PVolume);

  1130. vsns->value(pars->GlobalPar.PAmpVelocityScaleFunction);

  1131. pan->value(pars->GlobalPar.PPanning);

  1132. 

  1133. stereo->value(pars->GlobalPar.PStereo);

  1134. rndgrp->value(pars->GlobalPar.Hrandgrouping);

  1135. 

  1136. pstr->value(pars->GlobalPar.PPunchStrength);

  1137. pt->value(pars->GlobalPar.PPunchTime);

  1138. pstc->value(pars->GlobalPar.PPunchStretch);

  1139. pvel->value(pars->GlobalPar.PPunchVelocitySensing);

  1140. 

  1141. detunevalueoutput->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));

  1142. freq->value(pars->GlobalPar.PDetune-8192);

  1143. 

  1144. int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;

  1145. octave->value(k);

  1146. 

  1147. detunetype->value(pars->GlobalPar.PDetuneType-1);

  1148. k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;

  1149. coarsedet->value(k);

  1150. amplfo->refresh();

  1151. freqlfo->refresh();

  1152. filterlfo->refresh();

  1153. 

  1154. ampenv->refresh();

  1155. freqenv->refresh();

  1156. filterenv->refresh();

  1157. filterui->refresh();

  1158. 

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

  1160. 

  1161. resui->refresh();

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

  1163.   }

  1164.   decl {ADnoteParameters *pars;} {}

  1165.   decl {ResonanceUI *resui;} {}

  1166.   decl {Master *master;} {}

  1167.   decl {int nvoice;} {}

  1168.   decl {ADvoicelistitem *voicelistitem[NUM_VOICES];} {}

  1169. }