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

1163 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 7

  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 {84 305 765 590} type Double box NO_BOX

  182.       class Fl_Group visible

  183.     } {

  184.       Fl_Group voiceparametersgroup {open

  185.         xywh {0 0 765 595} color 48

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

  187.       } {

  188.         Fl_Group voicemodegroup {open

  189.           xywh {0 5 765 590} 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 515 45} 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 {285 555 25 30} 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 Vibratto

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

  571.               tooltip Vibratto xywh {340 555 25 30} 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 {Vib.speed}

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

  598.               tooltip {Vibratto Average Speed} xywh {390 555 25 30} 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.           }

  603.         }

  604.         Fl_Group {} {

  605.           label AMPLITUDE open

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

  607.         } {

  608.           Fl_Value_Slider {} {

  609.             label Vol

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

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

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

  613.           }

  614.           Fl_Value_Slider {} {

  615.             label {V.Sns}

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

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

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

  619.           }

  620.           Fl_Group voiceampenvgroup {

  621.             label {ADSynth Voice - Amplitude Envelope} open

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

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

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

  625.             class EnvelopeUI

  626.           } {}

  627.           Fl_Dial {} {

  628.             label Pan

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

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

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

  632.             class WidgetPDial

  633.           }

  634.           Fl_Check_Button {} {

  635.             label On

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

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

  638. else voiceampenvgroup->activate();

  639. o->redraw();}

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

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

  642.           }

  643.           Fl_Group voiceamplfogroup {

  644.             label {Amplitude LFO     } open

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

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

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

  648.             class LFOUI

  649.           } {}

  650.           Fl_Check_Button {} {

  651.             label On

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

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

  654. else voiceamplfogroup->activate();

  655. o->redraw();}

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

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

  658.           }

  659.           Fl_Check_Button {} {

  660.             label Minus

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

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

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

  664.           }

  665.         }

  666.         Fl_Group voicefiltergroup {

  667.           label FILTER open

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

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

  670.         } {

  671.           Fl_Group {} {

  672.             label {ADsynth Voice - Filter} open

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

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

  675.             class FilterUI

  676.           } {}

  677.           Fl_Group voicefilterenvgroup {

  678.             label {ADSynth Voice - Filter Envelope} open

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

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

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

  682.             class EnvelopeUI

  683.           } {}

  684.           Fl_Check_Button {} {

  685.             label On

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

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

  688. else voicefilterenvgroup->activate();

  689. o->redraw();}

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

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

  692.           }

  693.           Fl_Group voicefilterlfogroup {

  694.             label {Filter LFO     } open

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

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

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

  698.             class LFOUI

  699.           } {}

  700.           Fl_Check_Button {} {

  701.             label On

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

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

  704. else voicefilterlfogroup->activate();

  705. o->redraw();}

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

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

  708.           }

  709.         }

  710.         Fl_Group {} {

  711.           label 01

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

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

  714.         } {}

  715.         Fl_Choice {} {

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

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

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

  719.   else voicemodegroup->deactivate();

  720. noiselabel->do_callback();}

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

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

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

  724.         } {

  725.           MenuItem {} {

  726.             label Sound

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

  728.           }

  729.           MenuItem {} {

  730.             label NOISE

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

  732.           }

  733.         }

  734.         Fl_Check_Button bypassfiltercheckbutton {

  735.           label {Bypass Global F.}

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

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

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

  739.         }

  740.         Fl_Group {} {open

  741.           xywh {115 5 95 35} box THIN_UP_BOX

  742.         } {

  743.           Fl_Value_Slider {} {

  744.             label Delay

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

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

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

  748.           }

  749.         }

  750.         Fl_Check_Button {} {

  751.           label On

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

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

  754. else voicefiltergroup->activate();

  755. o->redraw();

  756. bypassfiltercheckbutton->redraw();}

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

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

  759.         }

  760.         Fl_Box noiselabel {

  761.           label {White Noise}

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

  763.           xywh {150 430 300 65} labelfont 1 labelsize 50 labelcolor 7

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

  765.         }

  766.       }

  767.       Fl_Check_Button voiceonbutton {

  768.         label On

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

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

  771. else voiceparametersgroup->activate();

  772. o->redraw();}

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

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

  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. pars=NULL;

  781. oscedit=NULL;} {}

  782.   }

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

  784.   } {

  785.     code {pars=parameters;

  786. nvoice=nvoice_;

  787. master=master_;

  788. make_window();

  789. end();

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

  791.   }

  792.   Function {~ADvoiceUI()} {open

  793.   } {

  794.     code {ADnoteVoiceParameters->hide();

  795. hide();

  796. if (oscedit!=NULL) {

  797.     delete(oscedit);

  798. };

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

  800.   }

  801.   decl {int nvoice;} {}

  802.   decl {ADnoteParameters *pars;} {}

  803.   decl {OscilEditor *oscedit;} {}

  804.   decl {Oscilloscope *osc;} {}

  805.   decl {Oscilloscope *oscFM;} {}

  806.   decl {Master *master;} {}

  807. } 

  808. 

  809. class ADnoteUI {open : {public PresetsUI_}

  810. } {

  811.   Function {make_window()} {open private

  812.   } {

  813.     Fl_Window ADnoteGlobalParameters {

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

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

  816.     } {

  817.       Fl_Group {} {

  818.         label FREQUENCY open

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

  820.       } {

  821.         Fl_Group freqenv {

  822.           label {ADSynth Global - Frequency Envelope} open

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

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

  825.           class EnvelopeUI

  826.         } {}

  827.         Fl_Counter octave {

  828.           label Octave

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

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

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

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

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

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

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

  836.         }

  837.         Fl_Counter coarsedet {

  838.           label {Coarse det.}

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

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

  841. pars->GlobalPar.PCoarseDetune = k+

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

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

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

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

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

  847.         }

  848.         Fl_Group freqlfo {

  849.           label {Frequency LFO     } open

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

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

  852.           class LFOUI

  853.         } {}

  854.         Fl_Slider freq {

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

  856. detunevalueoutput->do_callback();}

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

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

  859.         }

  860.         Fl_Value_Output detunevalueoutput {

  861.           label Detune

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

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

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

  865.         }

  866.         Fl_Choice detunetype {

  867.           label {Detune Type}

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

  869. detunevalueoutput->do_callback();} open

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

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

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

  873.         } {}

  874.         Fl_Dial {} {

  875.           label relBW

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

  877. 

  878. pars->getBandwidthDetuneMultiplier();

  879. 

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

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

  882. };}

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

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

  885.           class WidgetPDial

  886.         }

  887.       }

  888.       Fl_Group {} {

  889.         label AMPLITUDE

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

  891.       } {

  892.         Fl_Value_Slider volume {

  893.           label Vol

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

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

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

  897.         }

  898.         Fl_Value_Slider vsns {

  899.           label {V.Sns}

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

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

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

  903.         }

  904.         Fl_Dial pan {

  905.           label Pan

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

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

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

  909.           class WidgetPDial

  910.         }

  911.         Fl_Dial pstr {

  912.           label {P.Str.}

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

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

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

  916.           class WidgetPDial

  917.         }

  918.         Fl_Dial pt {

  919.           label {P.t.}

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

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

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

  923.           class WidgetPDial

  924.         }

  925.         Fl_Dial pstc {

  926.           label {P.Stc.}

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

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

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

  930.           class WidgetPDial

  931.         }

  932.         Fl_Dial pvel {

  933.           label {P.Vel.}

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

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

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

  937.           class WidgetPDial

  938.         }

  939.         Fl_Group ampenv {

  940.           label {ADSynth Global - Amplitude Envelope} open

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

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

  943.           class EnvelopeUI

  944.         } {}

  945.         Fl_Group amplfo {

  946.           label {Amplitude LFO          } open

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

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

  949.           class LFOUI

  950.         } {}

  951.         Fl_Check_Button rndgrp {

  952.           label {Rnd Grp}

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

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

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

  956.         }

  957.       }

  958.       Fl_Group {} {

  959.         label FILTER open selected

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

  961.       } {

  962.         Fl_Group filterenv {

  963.           label {ADSynth Global - Filter Envelope} open

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

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

  966.           class EnvelopeUI

  967.         } {}

  968.         Fl_Group filterlfo {

  969.           label {Filter LFO} open

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

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

  972.           class LFOUI

  973.         } {}

  974.         Fl_Group filterui {

  975.           label {ADsynth Global - Filter} open

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

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

  978.           class FilterUI

  979.         } {}

  980.       }

  981.       Fl_Check_Button stereo {

  982.         label Stereo

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

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

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

  986.       }

  987.       Fl_Button {} {

  988.         label {Show Voice List}

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

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

  991. }

  992. ADnoteVoiceList->show();}

  993.         xywh {180 400 125 25} labelsize 12

  994.       }

  995.       Fl_Button {} {

  996.         label {Show Voice Parameters}

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

  998.         xywh {5 400 170 25} labelsize 12

  999.       }

  1000.       Fl_Button {} {

  1001.         label Close

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

  1003.         xywh {475 400 60 25} box THIN_UP_BOX

  1004.       }

  1005.       Fl_Button {} {

  1006.         label Resonance

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

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

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

  1010.       }

  1011.       Fl_Button {} {

  1012.         label C

  1013.         callback {presetsui->copy(pars);}

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

  1015.       }

  1016.       Fl_Button {} {

  1017.         label P

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

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

  1020.       }

  1021.     }

  1022.     Fl_Window ADnoteVoice {

  1023.       label {ADsynth Voice Parameters} open

  1024.       xywh {512 361 765 620} type Double visible

  1025.     } {

  1026.       Fl_Group advoice {

  1027.         xywh {0 0 765 585}

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

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

  1030.         class ADvoiceUI

  1031.       } {}

  1032.       Fl_Button {} {

  1033.         label {Close Window}

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

  1035.         xywh {305 590 195 25} box THIN_UP_BOX labelfont 1

  1036.       }

  1037.       Fl_Counter currentvoicecounter {

  1038.         label {Current Voice}

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

  1040. advoice->hide();

  1041. ADnoteVoice->remove(advoice);

  1042. delete advoice;

  1043. advoice=new ADvoiceUI(0,0,765,585);

  1044. ADnoteVoice->add(advoice);

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

  1046. advoice->show();

  1047. ADnoteVoice->redraw();}

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

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

  1050.       }

  1051.       Fl_Button {} {

  1052.         label C

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

  1054.         xywh {705 595 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 7

  1055.       }

  1056.       Fl_Button {} {

  1057.         label P

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

  1059.         xywh {735 595 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 7

  1060.       }

  1061.     }

  1062.     Fl_Window ADnoteVoiceList {

  1063.       label {ADsynth Voices list}

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

  1065.     } {

  1066.       Fl_Text_Display {} {

  1067.         label {No.}

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

  1069.       }

  1070.       Fl_Text_Display {} {

  1071.         label Vol

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

  1073.       }

  1074.       Fl_Text_Display {} {

  1075.         label Detune

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

  1077.       }

  1078.       Fl_Text_Display {} {

  1079.         label Pan

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

  1081.       }

  1082.       Fl_Text_Display {} {

  1083.         label {Vib. Depth}

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

  1085.       }

  1086.       Fl_Text_Display {} {

  1087.         label {R.}

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

  1089.       }

  1090.       Fl_Button {} {

  1091.         label {Hide Voice List}

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

  1093.         xywh {255 237 125 20}

  1094.       }

  1095.       Fl_Scroll {} {open

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

  1097.       } {

  1098.         Fl_Pack {} {open

  1099.           xywh {0 20 620 210}

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

  1101.         } {}

  1102.       }

  1103.     }

  1104.   }

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

  1106.     code {pars=parameters;

  1107. master=master_;

  1108. nvoice=0;

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

  1110. make_window();} {}

  1111.   }

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

  1113.     code {ADnoteVoiceList->hide();

  1114. ADnoteGlobalParameters->hide();

  1115. ADnoteVoice->hide();

  1116. delete(ADnoteVoiceList);

  1117. delete(ADnoteGlobalParameters);

  1118. delete(ADnoteVoice);

  1119. delete(resui);} {}

  1120.   }

  1121.   Function {refresh()} {} {

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

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

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

  1125. 

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

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

  1128. 

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

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

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

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

  1133. 

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

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

  1136. 

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

  1138. octave->value(k);

  1139. 

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

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

  1142. coarsedet->value(k);

  1143. amplfo->refresh();

  1144. freqlfo->refresh();

  1145. filterlfo->refresh();

  1146. 

  1147. ampenv->refresh();

  1148. freqenv->refresh();

  1149. filterenv->refresh();

  1150. filterui->refresh();

  1151. 

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

  1153. 

  1154. resui->refresh();

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

  1156.   }

  1157.   decl {ADnoteParameters *pars;} {}

  1158.   decl {ResonanceUI *resui;} {}

  1159.   decl {Master *master;} {}

  1160.   decl {int nvoice;} {}

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

  1162. }