falkTX
/
Cadence
mirror of https://github.com/falkTX/Cadence
1
0
Fork 0
Code Releases 3 Activity
Collection of tools useful for audio production
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.
639 Commits
2 Branches
32MB
Tree: e8783f4db4
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e8783f4db4'
${ noResults }
Cadence/c++/carla-backend/plugins/zynaddsubfx/UI/ADnoteUI.fl

1184 lines
49KB
Raw Blame History 

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

  2. version 1.0300 

  3. header_name {.h} 

  4. code_name {.cc}

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

  6. } 

  7. 

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

  9. } 

  10. 

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

  12. } 

  13. 

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

  15. } 

  16. 

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

  18. } 

  19. 

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

  21. } 

  22. 

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

  24. } 

  25. 

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

  27. } 

  28. 

  29. decl {\#include <math.h>} {private local

  30. } 

  31. 

  32. decl {\#include <stdio.h>} {private local

  33. } 

  34. 

  35. decl {\#include <stdlib.h>} {private local

  36. } 

  37. 

  38. decl {\#include <string.h>} {private local

  39. } 

  40. 

  41. decl {\#include "WidgetPDial.h"} {public local

  42. } 

  43. 

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

  45. } 

  46. 

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

  48. } 

  49. 

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

  51. } 

  52. 

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

  54. } 

  55. 

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

  57. } 

  58. 

  59. class ADvoicelistitem {open : {public Fl_Group}

  60. } {

  61.   Function {make_window()} {open private

  62.   } {

  63.     Fl_Window ADnoteVoiceListItem {open

  64.       private xywh {259 713 615 100} type Double box UP_FRAME

  65.       class Fl_Group visible

  66.     } {

  67.       Fl_Group voicelistitemgroup {

  68.         private xywh {50 0 570 25}

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

  70.       } {

  71.         Fl_Value_Slider voicevolume {

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

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

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

  75.         }

  76.         Fl_Check_Button voiceresonanceenabled {

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

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

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

  80.         }

  81.         Fl_Value_Slider voicelfofreq {

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

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

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

  85.         }

  86.         Fl_Dial voicepanning {

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

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

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

  90.           class WidgetPDial

  91.         }

  92.         Fl_Group voiceoscil {open

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

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

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

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

  97.         } {}

  98.         Fl_Value_Output detunevalueoutput {

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

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

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

  102.         }

  103.         Fl_Slider voicedetune {

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

  105. detunevalueoutput->do_callback();}

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

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

  108.         }

  109.         Fl_Box noiselabel {

  110.           label N

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

  112.   o->hide();

  113.   voiceresonanceenabled->activate();

  114.   detunevalueoutput->activate();

  115.   voicedetune->activate();

  116.   voicelfofreq->activate();

  117.   voiceoscil->activate();

  118. } else {

  119.   o->show();

  120.   voiceresonanceenabled->deactivate();

  121.   detunevalueoutput->deactivate();

  122.   voicedetune->deactivate();

  123.   voicelfofreq->deactivate();

  124.   voiceoscil->deactivate();

  125. };}

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

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

  128.         }

  129.       }

  130.       Fl_Check_Button voiceenabled {

  131.         label 01

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

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

  134. else voicelistitemgroup->activate();

  135. o->redraw();}

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

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

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

  139.       }

  140.     }

  141.   }

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

  143.     code {nvoice=0;

  144. pars=NULL;} {}

  145.   }

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

  147.     code {pars=parameters;

  148. nvoice=nvoice_;

  149. master=master_;

  150. make_window();

  151. ADnoteVoiceListItem->show();

  152. end();} {}

  153.   }

  154.   Function {refreshlist()} {} {

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

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

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

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

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

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

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

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

  163. } else 

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

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

  166.     else voicelistitemgroup->activate();

  167. detunevalueoutput->do_callback();

  168. noiselabel->do_callback();

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

  170.   }

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

  172.     code {ADnoteVoiceListItem->hide();

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

  174.   }

  175.   decl {ADnoteParameters *pars;} {private local

  176.   }

  177.   decl {int nvoice;} {private local

  178.   }

  179.   decl {Oscilloscope *osc;} {private local

  180.   }

  181.   decl {Master *master;} {private local

  182.   }

  183. } 

  184. 

  185. class ADvoiceUI {open : {public Fl_Group}

  186. } {

  187.   Function {make_window()} {open

  188.   } {

  189.     Fl_Window ADnoteVoiceParameters {

  190.       label Voice open

  191.       xywh {81 282 765 590} type Double box NO_BOX

  192.       class Fl_Group visible

  193.     } {

  194.       Fl_Group voiceparametersgroup {open

  195.         xywh {0 0 765 595} color 48

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

  197.       } {

  198.         Fl_Group voicemodegroup {open

  199.           xywh {0 5 765 590} color 64

  200.         } {

  201.           Fl_Group voiceFMparametersgroup {

  202.             label MODULATOR open

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

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

  205.           } {

  206.             Fl_Group modfrequency {

  207.               label {Mod.FREQUENCY}

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

  209.             } {

  210.               Fl_Group voiceFMfreqenvgroup {

  211.                 label {ADSynth Modulator - Frequency Envelope}

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

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

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

  215.                 class EnvelopeUI

  216.               } {}

  217.               Fl_Check_Button {} {

  218.                 label On

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

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

  221. else voiceFMfreqenvgroup->activate();

  222. o->redraw();}

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

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

  225.               }

  226.               Fl_Counter {} {

  227.                 label {Coarse Det.}

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

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

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

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

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

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

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

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

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

  237.               }

  238.               Fl_Counter {} {

  239.                 label Octave

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

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

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

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

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

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

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

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

  248.               }

  249.               Fl_Slider {} {

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

  251. fmdetunevalueoutput->do_callback();}

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

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

  254.               }

  255.               Fl_Value_Output fmdetunevalueoutput {

  256.                 label Detune

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

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

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

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

  261.               }

  262.               Fl_Choice {} {

  263.                 label {Detune Type}

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

  265. fmdetunevalueoutput->do_callback();} open

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

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

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

  269.               } {}

  270.             }

  271.             Fl_Group {} {

  272.               label {Mod.AMPLITUDE}

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

  274.             } {

  275.               Fl_Value_Slider {} {

  276.                 label Vol

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

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

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

  280.               }

  281.               Fl_Value_Slider {} {

  282.                 label {V.Sns}

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

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

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

  286.               }

  287.               Fl_Group voiceFMampenvgroup {

  288.                 label {ADSynth Modulator - Amplitude Envelope} open

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

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

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

  292.                 class EnvelopeUI

  293.               } {}

  294.               Fl_Check_Button {} {

  295.                 label On

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

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

  298. else voiceFMampenvgroup->activate();

  299. o->redraw();}

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

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

  302.               }

  303.               Fl_Value_Slider {} {

  304.                 label {F.Damp}

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

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

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

  308.               }

  309.             }

  310.             Fl_Group modoscil {open

  311.               xywh {535 365 220 220}

  312.             } {

  313.               Fl_Group fmoscil {open

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

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

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

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

  318.               } {}

  319.               Fl_Box {} {

  320.                 label {Mod.Oscillator}

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

  322.               }

  323.               Fl_Button changeFMoscilbutton {

  324.                 label Change

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

  326. 

  327. int nv=nvoice;

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

  329. 

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

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

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

  333.               }

  334.               Fl_Slider {} {

  335.                 label Phase

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

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

  338. fmoscil->redraw();}

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

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

  341.               }

  342.               Fl_Choice {} {

  343.                 label Use

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

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

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

  347.     changeFMoscilbutton->labelcolor(FL_BLUE);

  348. } else { 

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

  350.     changeFMoscilbutton->labelcolor(FL_BLACK);

  351. };

  352. voiceFMparametersgroup->redraw();} open

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

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

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

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

  357.               } {}

  358.             }

  359.             Fl_Choice {} {

  360.               label {External Mod.}

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

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

  363.     modoscil->deactivate();

  364.     modfrequency->deactivate();

  365. } else { 

  366.     modoscil->activate();

  367.     modfrequency->activate();

  368. };

  369. voiceFMparametersgroup->redraw();} open

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

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

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

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

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

  375.             } {}

  376.           }

  377.           Fl_Choice {} {

  378.             label {Type:}

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

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

  381. else voiceFMparametersgroup->activate();

  382. o->redraw();}

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

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

  385.           } {

  386.             MenuItem {} {

  387.               label OFF

  388.               xywh {40 40 100 20} labelfont 1

  389.             }

  390.             MenuItem {} {

  391.               label MORPH

  392.               xywh {50 50 100 20} labelfont 1

  393.             }

  394.             MenuItem {} {

  395.               label RING

  396.               xywh {60 60 100 20} labelfont 1

  397.             }

  398.             MenuItem {} {

  399.               label PM

  400.               xywh {70 70 100 20} labelfont 1

  401.             }

  402.             MenuItem {} {

  403.               label FM

  404.               xywh {80 80 100 20} labelfont 1

  405.             }

  406.             MenuItem {} {

  407.               label PITCH

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

  409.             }

  410.           }

  411.           Fl_Group {} {

  412.             label FREQUENCY

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

  414.           } {

  415.             Fl_Group voicefreqenvgroup {

  416.               label {ADSynth Voice - Frequency Envelope} open

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

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

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

  420.               class EnvelopeUI

  421.             } {}

  422.             Fl_Check_Button {} {

  423.               label On

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

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

  426. else voicefreqenvgroup->activate();

  427. o->redraw();}

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

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

  430.             }

  431.             Fl_Group voicefreqlfogroup {

  432.               label {Frequency LFO     } open

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

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

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

  436.               class LFOUI

  437.             } {}

  438.             Fl_Check_Button {} {

  439.               label On

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

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

  442. else voicefreqlfogroup->activate();

  443. o->redraw();}

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

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

  446.             }

  447.             Fl_Counter {} {

  448.               label Octave

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

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

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

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

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

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

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

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

  457.             }

  458.             Fl_Counter {} {

  459.               label {Coarse Det.}

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

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

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

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

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

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

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

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

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

  469.             }

  470.             Fl_Slider {} {

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

  472. detunevalueoutput->do_callback();}

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

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

  475.             }

  476.             Fl_Value_Output detunevalueoutput {

  477.               label Detune

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

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

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

  481.             }

  482.             Fl_Check_Button {} {

  483.               label 440Hz

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

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

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

  487.     else fixedfreqetdial->activate();}

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

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

  490.             }

  491.             Fl_Dial fixedfreqetdial {

  492.               label {Eq.T.}

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

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

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

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

  497.               class WidgetPDial

  498.             }

  499.             Fl_Choice {} {

  500.               label {Detune Type}

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

  502. detunevalueoutput->do_callback();} open

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

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

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

  506.             } {}

  507.           }

  508.           Fl_Group voiceoscil {

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

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

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

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

  513.           } {}

  514.           Fl_Button changevoiceoscilbutton {

  515.             label Change

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

  517. 

  518. int nv=nvoice;

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

  520. 

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

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

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

  524.           }

  525.           Fl_Box {} {

  526.             label {Voice Oscillator}

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

  528.           }

  529.           Fl_Slider {} {

  530.             label Phase

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

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

  533. voiceoscil->redraw();}

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

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

  536.           }

  537.           Fl_Check_Button {} {

  538.             label {R.}

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

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

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

  542.           }

  543.           Fl_Choice {} {

  544.             label {Use Oscil.}

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

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

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

  548.     changevoiceoscilbutton->labelcolor(FL_BLUE);

  549. } else { 

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

  551.     changevoiceoscilbutton->labelcolor(FL_BLACK);

  552. };

  553. 

  554. voiceparametersgroup->redraw();

  555. voiceonbutton->redraw();} open

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

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

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

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

  560.           } {}

  561.           Fl_Group {} {open

  562.             xywh {5 540 515 45} box UP_FRAME

  563.           } {

  564.             Fl_Dial {} {

  565.               label Stereo

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

  567.               tooltip {Stereo Spread} xywh {285 555 25 30} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

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

  569.               class WidgetPDial

  570.             }

  571.             Fl_Choice {} {

  572.               label Unison

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

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

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

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

  577.             } {}

  578.             Fl_Dial {} {

  579.               label Vibratto

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

  581.               tooltip Vibratto xywh {340 555 25 30} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

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

  583.               class WidgetPDial

  584.             }

  585.             Fl_Choice {} {

  586.               label Invert

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

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

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

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

  591.             } {}

  592.             Fl_Slider {} {

  593.               label {Frequency Spread}

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

  595. unisonspreadoutput->do_callback();}

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

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

  598.             }

  599.             Fl_Value_Output unisonspreadoutput {

  600.               label {(cents)}

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

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

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

  604.             }

  605.             Fl_Dial {} {

  606.               label {Vib.speed}

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

  608.               tooltip {Vibratto Average Speed} xywh {390 555 25 30} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

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

  610.               class WidgetPDial

  611.             }

  612.           }

  613.         }

  614.         Fl_Group {} {

  615.           label AMPLITUDE open

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

  617.         } {

  618.           Fl_Value_Slider {} {

  619.             label Vol

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

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

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

  623.           }

  624.           Fl_Value_Slider {} {

  625.             label {V.Sns}

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

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

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

  629.           }

  630.           Fl_Group voiceampenvgroup {

  631.             label {ADSynth Voice - Amplitude Envelope} open

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

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

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

  635.             class EnvelopeUI

  636.           } {}

  637.           Fl_Dial {} {

  638.             label Pan

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

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

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

  642.             class WidgetPDial

  643.           }

  644.           Fl_Check_Button {} {

  645.             label On

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

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

  648. else voiceampenvgroup->activate();

  649. o->redraw();}

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

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

  652.           }

  653.           Fl_Group voiceamplfogroup {

  654.             label {Amplitude LFO     } open

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

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

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

  658.             class LFOUI

  659.           } {}

  660.           Fl_Check_Button {} {

  661.             label On

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

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

  664. else voiceamplfogroup->activate();

  665. o->redraw();}

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

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

  668.           }

  669.           Fl_Check_Button {} {

  670.             label Minus

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

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

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

  674.           }

  675.         }

  676.         Fl_Group voicefiltergroup {

  677.           label FILTER open

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

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

  680.         } {

  681.           Fl_Group {} {

  682.             label {ADsynth Voice - Filter} open

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

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

  685.             class FilterUI

  686.           } {}

  687.           Fl_Group voicefilterenvgroup {

  688.             label {ADSynth Voice - Filter Envelope} open

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

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

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

  692.             class EnvelopeUI

  693.           } {}

  694.           Fl_Check_Button {} {

  695.             label On

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

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

  698. else voicefilterenvgroup->activate();

  699. o->redraw();}

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

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

  702.           }

  703.           Fl_Group voicefilterlfogroup {

  704.             label {Filter LFO     } open

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

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

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

  708.             class LFOUI

  709.           } {}

  710.           Fl_Check_Button {} {

  711.             label On

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

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

  714. else voicefilterlfogroup->activate();

  715. o->redraw();}

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

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

  718.           }

  719.         }

  720.         Fl_Group {} {

  721.           label 01

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

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

  724.         } {}

  725.         Fl_Choice {} {

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

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

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

  729.   else voicemodegroup->deactivate();

  730. noiselabel->do_callback();}

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

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

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

  734.         } {

  735.           MenuItem {} {

  736.             label Sound

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

  738.           }

  739.           MenuItem {} {

  740.             label NOISE

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

  742.           }

  743.         }

  744.         Fl_Check_Button bypassfiltercheckbutton {

  745.           label {Bypass Global F.}

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

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

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

  749.         }

  750.         Fl_Group {} {open

  751.           xywh {115 5 95 35} box THIN_UP_BOX

  752.         } {

  753.           Fl_Value_Slider {} {

  754.             label Delay

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

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

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

  758.           }

  759.         }

  760.         Fl_Check_Button {} {

  761.           label On

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

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

  764. else voicefiltergroup->activate();

  765. o->redraw();

  766. bypassfiltercheckbutton->redraw();}

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

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

  769.         }

  770.         Fl_Box noiselabel {

  771.           label {White Noise}

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

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

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

  775.         }

  776.       }

  777.       Fl_Check_Button voiceonbutton {

  778.         label On

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

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

  781. else voiceparametersgroup->activate();

  782. o->redraw();}

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

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

  785.       }

  786.     }

  787.   }

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

  789.     code {nvoice=0;

  790. pars=NULL;

  791. oscedit=NULL;} {}

  792.   }

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

  794.   } {

  795.     code {pars=parameters;

  796. nvoice=nvoice_;

  797. master=master_;

  798. make_window();

  799. end();

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

  801.   }

  802.   Function {~ADvoiceUI()} {open

  803.   } {

  804.     code {ADnoteVoiceParameters->hide();

  805. hide();

  806. if (oscedit!=NULL) {

  807.     delete(oscedit);

  808. };

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

  810.   }

  811.   decl {int nvoice;} {private local

  812.   }

  813.   decl {ADnoteParameters *pars;} {private local

  814.   }

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

  816.   }

  817.   decl {Oscilloscope *osc;} {private local

  818.   }

  819.   decl {Oscilloscope *oscFM;} {private local

  820.   }

  821.   decl {Master *master;} {private local

  822.   }

  823. } 

  824. 

  825. class ADnoteUI {open : {public PresetsUI_}

  826. } {

  827.   Function {make_window()} {open private

  828.   } {

  829.     Fl_Window ADnoteGlobalParameters {

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

  831.       xywh {454 296 540 430} type Double visible

  832.     } {

  833.       Fl_Group {} {

  834.         label FREQUENCY open

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

  836.       } {

  837.         Fl_Group freqenv {

  838.           label {ADSynth Global - Frequency Envelope} open

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

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

  841.           class EnvelopeUI

  842.         } {}

  843.         Fl_Counter octave {

  844.           label Octave

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

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

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

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

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

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

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

  852.         }

  853.         Fl_Counter coarsedet {

  854.           label {Coarse det.}

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

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

  857. pars->GlobalPar.PCoarseDetune = k+

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

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

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

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

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

  863.         }

  864.         Fl_Group freqlfo {

  865.           label {Frequency LFO     } open

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

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

  868.           class LFOUI

  869.         } {}

  870.         Fl_Slider freq {

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

  872. detunevalueoutput->do_callback();}

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

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

  875.         }

  876.         Fl_Value_Output detunevalueoutput {

  877.           label Detune

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

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

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

  881.         }

  882.         Fl_Choice detunetype {

  883.           label {Detune Type}

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

  885. detunevalueoutput->do_callback();} open

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

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

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

  889.         } {}

  890.         Fl_Dial {} {

  891.           label relBW

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

  893. 

  894. pars->getBandwidthDetuneMultiplier();

  895. 

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

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

  898. };}

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

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

  901.           class WidgetPDial

  902.         }

  903.       }

  904.       Fl_Group {} {

  905.         label AMPLITUDE

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

  907.       } {

  908.         Fl_Value_Slider volume {

  909.           label Vol

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

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

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

  913.         }

  914.         Fl_Value_Slider vsns {

  915.           label {V.Sns}

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

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

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

  919.         }

  920.         Fl_Dial pan {

  921.           label Pan

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

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

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

  925.           class WidgetPDial

  926.         }

  927.         Fl_Dial pstr {

  928.           label {P.Str.}

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

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

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

  932.           class WidgetPDial

  933.         }

  934.         Fl_Dial pt {

  935.           label {P.t.}

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

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

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

  939.           class WidgetPDial

  940.         }

  941.         Fl_Dial pstc {

  942.           label {P.Stc.}

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

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

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

  946.           class WidgetPDial

  947.         }

  948.         Fl_Dial pvel {

  949.           label {P.Vel.}

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

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

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

  953.           class WidgetPDial

  954.         }

  955.         Fl_Group ampenv {

  956.           label {ADSynth Global - Amplitude Envelope} open

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

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

  959.           class EnvelopeUI

  960.         } {}

  961.         Fl_Group amplfo {

  962.           label {Amplitude LFO          } open

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

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

  965.           class LFOUI

  966.         } {}

  967.         Fl_Check_Button rndgrp {

  968.           label {Rnd Grp}

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

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

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

  972.         }

  973.       }

  974.       Fl_Group {} {

  975.         label FILTER open selected

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

  977.       } {

  978.         Fl_Group filterenv {

  979.           label {ADSynth Global - Filter Envelope} open

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

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

  982.           class EnvelopeUI

  983.         } {}

  984.         Fl_Group filterlfo {

  985.           label {Filter LFO} open

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

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

  988.           class LFOUI

  989.         } {}

  990.         Fl_Group filterui {

  991.           label {ADsynth Global - Filter} open

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

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

  994.           class FilterUI

  995.         } {}

  996.       }

  997.       Fl_Check_Button stereo {

  998.         label Stereo

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

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

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

  1002.       }

  1003.       Fl_Button {} {

  1004.         label {Show Voice List}

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

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

  1007. }

  1008. ADnoteVoiceList->show();}

  1009.         xywh {180 400 125 25} labelsize 12

  1010.       }

  1011.       Fl_Button {} {

  1012.         label {Show Voice Parameters}

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

  1014.         xywh {5 400 170 25} labelsize 12

  1015.       }

  1016.       Fl_Button {} {

  1017.         label Close

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

  1019.         xywh {475 400 60 25} box THIN_UP_BOX

  1020.       }

  1021.       Fl_Button {} {

  1022.         label Resonance

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

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

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

  1026.       }

  1027.       Fl_Button {} {

  1028.         label C

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

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

  1031.       }

  1032.       Fl_Button {} {

  1033.         label P

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

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

  1036.       }

  1037.     }

  1038.     Fl_Window ADnoteVoice {

  1039.       label {ADsynth Voice Parameters} open

  1040.       xywh {907 477 765 620} type Double visible

  1041.     } {

  1042.       Fl_Group advoice {

  1043.         xywh {0 0 765 585}

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

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

  1046.         class ADvoiceUI

  1047.       } {}

  1048.       Fl_Button {} {

  1049.         label {Close Window}

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

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

  1052.       }

  1053.       Fl_Counter currentvoicecounter {

  1054.         label {Current Voice}

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

  1056. advoice->hide();

  1057. ADnoteVoice->remove(advoice);

  1058. delete advoice;

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

  1060. ADnoteVoice->add(advoice);

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

  1062. advoice->show();

  1063. ADnoteVoice->redraw();}

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

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

  1066.       }

  1067.       Fl_Button {} {

  1068.         label C

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

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

  1071.       }

  1072.       Fl_Button {} {

  1073.         label P

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

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

  1076.       }

  1077.     }

  1078.     Fl_Window ADnoteVoiceList {

  1079.       label {ADsynth Voices list}

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

  1081.     } {

  1082.       Fl_Text_Display {} {

  1083.         label {No.}

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

  1085.       }

  1086.       Fl_Text_Display {} {

  1087.         label Vol

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

  1089.       }

  1090.       Fl_Text_Display {} {

  1091.         label Detune

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

  1093.       }

  1094.       Fl_Text_Display {} {

  1095.         label Pan

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

  1097.       }

  1098.       Fl_Text_Display {} {

  1099.         label {Vib. Depth}

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

  1101.       }

  1102.       Fl_Text_Display {} {

  1103.         label {R.}

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

  1105.       }

  1106.       Fl_Button {} {

  1107.         label {Hide Voice List}

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

  1109.         xywh {255 237 125 20}

  1110.       }

  1111.       Fl_Scroll {} {open

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

  1113.       } {

  1114.         Fl_Pack {} {open

  1115.           xywh {0 20 620 210}

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

  1117.         } {}

  1118.       }

  1119.     }

  1120.   }

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

  1122.     code {pars=parameters;

  1123. master=master_;

  1124. nvoice=0;

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

  1126. make_window();} {}

  1127.   }

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

  1129.     code {ADnoteVoiceList->hide();

  1130. ADnoteGlobalParameters->hide();

  1131. ADnoteVoice->hide();

  1132. delete(ADnoteVoiceList);

  1133. delete(ADnoteGlobalParameters);

  1134. delete(ADnoteVoice);

  1135. delete(resui);} {}

  1136.   }

  1137.   Function {refresh()} {} {

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

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

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

  1141. 

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

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

  1144. 

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

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

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

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

  1149. 

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

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

  1152. 

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

  1154. octave->value(k);

  1155. 

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

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

  1158. coarsedet->value(k);

  1159. amplfo->refresh();

  1160. freqlfo->refresh();

  1161. filterlfo->refresh();

  1162. 

  1163. ampenv->refresh();

  1164. freqenv->refresh();

  1165. filterenv->refresh();

  1166. filterui->refresh();

  1167. 

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

  1169. 

  1170. resui->refresh();

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

  1172.   }

  1173.   decl {ADnoteParameters *pars;} {private local

  1174.   }

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

  1176.   }

  1177.   decl {Master *master;} {private local

  1178.   }

  1179.   decl {int nvoice;} {private local

  1180.   }

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

  1182.   }

  1183. }