home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Complet / ZynAddFX / Setup_ZynAddSubFX-2.1.1.exe / ADnoteUI.fl < prev    next >
Encoding:
FLTK User Interface Designer  |  2004-09-27  |  45.1 KB  |  1,094 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0104 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2004 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  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 {: {public Fl_Group}
  54. } {
  55.   Function {make_window()} {private
  56.   } {
  57.     Fl_Window ADnoteVoiceListItem {
  58.       private xywh {335 489 615 30} type Double hide
  59.       class Fl_Group
  60.     } {
  61.       Fl_Group voicelistitemgroup {
  62.         private xywh {50 0 570 25} box FLAT_BOX
  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 FLAT_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 12 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 FLAT_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 11 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));}
  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));}
  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 FLAT_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 16 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();} selected
  130.         private xywh {30 5 20 20} down_box DOWN_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 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 {: {public Fl_Group}
  176. } {
  177.   Function {make_window()} {} {
  178.     Fl_Window ADnoteVoiceParameters {
  179.       label Voice
  180.       xywh {231 132 765 525} type Double hide
  181.       class Fl_Group
  182.     } {
  183.       Fl_Group voiceparametersgroup {
  184.         xywh {0 0 765 525} box THIN_UP_BOX color 48
  185.         code0 {if (pars->VoicePar[nvoice].Enabled==0) o->deactivate();}
  186.       } {
  187.         Fl_Group voicemodegroup {
  188.           xywh {0 5 760 515}
  189.         } {
  190.           Fl_Group voiceFMparametersgroup {
  191.             label MODULATOR
  192.             xywh {530 5 230 515} box THIN_UP_FRAME color 48 labeltype EMBOSSED_LABEL labelfont 1 labelsize 18 align 17
  193.             code0 {if (pars->VoicePar[nvoice].PFMEnabled==0) o->deactivate();}
  194.           } {
  195.             Fl_Group modfrequency {
  196.               label {Mod.FREQUENCY}
  197.               xywh {535 220 220 145} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  198.             } {
  199.               Fl_Group voiceFMfreqenvgroup {
  200.                 label {ADSynth Modulator - Frequency Envelope}
  201.                 xywh {540 290 205 70} box FLAT_BOX color 51 align 144
  202.                 code0 {o->init(pars->VoicePar[nvoice].FMFreqEnvelope);}
  203.                 code1 {if (pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled==0) o->deactivate();}
  204.                 class EnvelopeUI
  205.               } {}
  206.               Fl_Check_Button {} {
  207.                 label Enable
  208.                 callback {pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled=(int)o->value();
  209. if (o->value()==0) voiceFMfreqenvgroup->deactivate();
  210. else voiceFMfreqenvgroup->activate();
  211. o->redraw();}
  212.                 tooltip {Forced Relase} xywh {545 295 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  213.                 code0 {o->value(pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled);}
  214.               }
  215.               Fl_Counter {} {
  216.                 label {Coarse Det.}
  217.                 callback {int k=(int) o->value();
  218. if (k<0) k+=1024;
  219. pars->VoicePar[nvoice].PFMCoarseDetune = k+
  220.    (pars->VoicePar[nvoice].PFMCoarseDetune/1024)*1024;}
  221.                 tooltip {Coarse Detune} xywh {685 270 60 15} labelsize 11 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  222.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune%1024;}
  223.                 code1 {if (k>=512) k-=1024;}
  224.                 code2 {o->value(k);}
  225.                 code3 {o->lstep(10);}
  226.               }
  227.               Fl_Counter {} {
  228.                 label Octave
  229.                 callback {int k=(int) o->value();
  230. if (k<0) k+=16;
  231. pars->VoicePar[nvoice].PFMCoarseDetune = k*1024+
  232.    pars->VoicePar[nvoice].PFMCoarseDetune%1024;}
  233.                 tooltip Octave xywh {625 270 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  234.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune/1024;}
  235.                 code1 {if (k>=8) k-=16;}
  236.                 code2 {o->value(k);}
  237.               }
  238.               Fl_Slider {} {
  239.                 callback {pars->VoicePar[nvoice].PFMDetune=(int)o->value()+8192;
  240. fmdetunevalueoutput->do_callback();}
  241.                 tooltip {Fine Detune (cents)} xywh {590 245 160 10} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  242.                 code0 {o->value(pars->VoicePar[nvoice].PFMDetune-8192);}
  243.               }
  244.               Fl_Value_Output fmdetunevalueoutput {
  245.                 label Detune
  246.                 callback {o->value(getdetune((pars->VoicePar[nvoice].PFMDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PFMDetuneType),0,pars->VoicePar[nvoice].PFMDetune));}
  247.                 xywh {540 245 45 13} labelsize 8 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 8
  248.                 code0 {o->value(getdetune(pars->VoicePar[nvoice].PFMDetuneType,0,pars->VoicePar[nvoice].PFMDetune));}
  249.               }
  250.               Fl_Choice {} {
  251.                 label {Detune Type}
  252.                 callback {pars->VoicePar[nvoice].PFMDetuneType=(int) o->value();
  253. fmdetunevalueoutput->do_callback();} open
  254.                 xywh {540 270 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  255.                 code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  256.                 code1 {o->value(pars->VoicePar[nvoice].PFMDetuneType);}
  257.               } {}
  258.             }
  259.             Fl_Group {} {
  260.               label {Mod.AMPLITUDE}
  261.               xywh {535 60 220 160} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  262.             } {
  263.               Fl_Value_Slider {} {
  264.                 label Vol
  265.                 callback {pars->VoicePar[nvoice].PFMVolume=(int)o->value();}
  266.                 tooltip Volume xywh {540 80 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  267.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolume);}
  268.               }
  269.               Fl_Value_Slider {} {
  270.                 label {V.Sns}
  271.                 callback {pars->VoicePar[nvoice].PFMVelocityScaleFunction=(int) o->value();}
  272.                 tooltip {Velocity Sensing Function (rightmost to disable)} xywh {540 100 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  273.                 code0 {o->value(pars->VoicePar[nvoice].PFMVelocityScaleFunction);}
  274.               }
  275.               Fl_Group voiceFMampenvgroup {
  276.                 label {ADSynth Modulator - Amplitude Envelope} open
  277.                 xywh {540 145 205 70} box FLAT_BOX color 51 align 144
  278.                 code0 {o->init(pars->VoicePar[nvoice].FMAmpEnvelope);}
  279.                 code1 {if (pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled==0) o->deactivate();}
  280.                 class EnvelopeUI
  281.               } {}
  282.               Fl_Check_Button {} {
  283.                 label Enable
  284.                 callback {pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled=(int)o->value();
  285. if (o->value()==0) voiceFMampenvgroup->deactivate();
  286. else voiceFMampenvgroup->activate();
  287. o->redraw();}
  288.                 tooltip {Forced Relase} xywh {545 150 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  289.                 code0 {o->value(pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled);}
  290.               }
  291.               Fl_Value_Slider {} {
  292.                 label {F.Damp}
  293.                 callback {pars->VoicePar[nvoice].PFMVolumeDamp=(int) o->value()+64;}
  294.                 tooltip {Modulator Damp at Higher frequency} xywh {540 120 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 minimum -64 maximum 63 step 1
  295.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolumeDamp-64);}
  296.               }
  297.             }
  298.             Fl_Group modoscil {
  299.               xywh {535 365 220 150}
  300.             } {
  301.               Fl_Group fmoscil {open
  302.                 xywh {535 405 220 110} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  303.                 code0 {oscFM=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  304.                 code1 {int nv=nvoice; if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;}
  305.                 code2 {oscFM->init(pars->VoicePar[nv].FMSmp,0,pars->VoicePar[nvoice].PFMoscilphase,master);}
  306.               } {}
  307.               Fl_Box {} {
  308.                 label {Mod.Oscillator}
  309.                 xywh {535 365 155 20} labelfont 1 align 20
  310.               }
  311.               Fl_Button changeFMoscilbutton {
  312.                 label Change
  313.                 callback {if (oscedit!=NULL) delete(oscedit);
  314.  
  315. int nv=nvoice;
  316. if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;
  317.  
  318. oscedit=new OscilEditor(pars->VoicePar[nv].FMSmp,fmoscil,NULL,master);}
  319.                 xywh {700 370 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
  320.                 code0 {if (pars->VoicePar[nvoice].PextFMoscil>=0) o->labelcolor(FL_BLUE);}
  321.               }
  322.               Fl_Slider {} {
  323.                 label Phase
  324.                 callback {pars->VoicePar[nvoice].PFMoscilphase=64-(int)o->value();
  325. oscFM->phase=64-(int) o->value();
  326. fmoscil->redraw();}
  327.                 xywh {665 395 65 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  328.                 code0 {o->value(64-pars->VoicePar[nvoice].PFMoscilphase);}
  329.               }
  330.               Fl_Choice {} {
  331.                 label Use
  332.                 callback {pars->VoicePar[nvoice].PextFMoscil=(int)o->value()-1;
  333. if ((int) o->value() != 0) {
  334.     oscFM->init(pars->VoicePar[(int) o->value()-1].FMSmp,master);
  335.     changeFMoscilbutton->labelcolor(FL_BLUE);
  336. } else { 
  337.     oscFM->init(pars->VoicePar[nvoice].FMSmp,master);
  338.     changeFMoscilbutton->labelcolor(FL_BLACK);
  339. };
  340. voiceFMparametersgroup->redraw();} open
  341.                 xywh {560 390 75 15} down_box BORDER_BOX labelsize 10 textfont 1 textsize 10
  342.                 code0 {o->add("Internal");}
  343.                 code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtM.%2d",i+1);o->add(tmp);};}
  344.                 code3 {o->value(pars->VoicePar[nvoice].PextFMoscil+1);}
  345.               } {}
  346.             }
  347.             Fl_Choice {} {
  348.               label {External Mod.}
  349.               callback {pars->VoicePar[nvoice].PFMVoice=(int)o->value()-1;
  350. if ((int) o->value() != 0) {
  351.     modoscil->deactivate();
  352.     modfrequency->deactivate();
  353. } else { 
  354.     modoscil->activate();
  355.     modfrequency->activate();
  356. };
  357. voiceFMparametersgroup->redraw();} open
  358.               xywh {635 40 85 20} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  359.               code0 {o->add("OFF");}
  360.               code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtMod.%2d",i+1);o->add(tmp);};}
  361.               code2 {o->value(pars->VoicePar[nvoice].PFMVoice+1);}
  362.               code3 {if ((int) o->value() != 0) {modoscil->deactivate();modfrequency->deactivate();}}
  363.             } {}
  364.           }
  365.           Fl_Choice {} {
  366.             label {Type:}
  367.             callback {pars->VoicePar[nvoice].PFMEnabled=(int)o->value();
  368. if (o->value()==0) voiceFMparametersgroup->deactivate();
  369. else voiceFMparametersgroup->activate();
  370. o->redraw();}
  371.             xywh {535 40 80 20} down_box BORDER_BOX align 5
  372.             code0 {o->value(pars->VoicePar[nvoice].PFMEnabled);}
  373.           } {
  374.             menuitem {} {
  375.               label OFF
  376.               xywh {40 40 100 20} labelfont 1
  377.             }
  378.             menuitem {} {
  379.               label MORPH
  380.               xywh {50 50 100 20} labelfont 1
  381.             }
  382.             menuitem {} {
  383.               label RING
  384.               xywh {60 60 100 20} labelfont 1
  385.             }
  386.             menuitem {} {
  387.               label PM
  388.               xywh {70 70 100 20} labelfont 1
  389.             }
  390.             menuitem {} {
  391.               label FM
  392.               xywh {80 80 100 20} labelfont 1
  393.             }
  394.             menuitem {} {
  395.               label PITCH
  396.               xywh {90 90 100 20} labelfont 1 deactivate
  397.             }
  398.           }
  399.           Fl_Group {} {
  400.             label FREQUENCY
  401.             xywh {5 250 525 120} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  402.           } {
  403.             Fl_Group voicefreqenvgroup {
  404.               label {ADSynth Voice - Frequency Envelope} open
  405.               xywh {10 290 205 70} box FLAT_BOX color 51 align 144
  406.               code0 {o->init(pars->VoicePar[nvoice].FreqEnvelope);}
  407.               code1 {if (pars->VoicePar[nvoice].PFreqEnvelopeEnabled==0) o->deactivate();}
  408.               class EnvelopeUI
  409.             } {}
  410.             Fl_Check_Button {} {
  411.               label Enable
  412.               callback {pars->VoicePar[nvoice].PFreqEnvelopeEnabled=(int)o->value();
  413. if (o->value()==0) voicefreqenvgroup->deactivate();
  414. else voicefreqenvgroup->activate();
  415. o->redraw();}
  416.               tooltip {Forced Relase} xywh {15 295 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  417.               code0 {o->value(pars->VoicePar[nvoice].PFreqEnvelopeEnabled);}
  418.             }
  419.             Fl_Group voicefreqlfogroup {
  420.               label {Frequency LFO     } open
  421.               xywh {215 290 230 70} box FLAT_BOX color 47 align 144
  422.               code0 {o->init(pars->VoicePar[nvoice].FreqLfo);}
  423.               code1 {if (pars->VoicePar[nvoice].PFreqLfoEnabled==0) o->deactivate();}
  424.               class LFOUI
  425.             } {}
  426.             Fl_Check_Button {} {
  427.               label Enable
  428.               callback {pars->VoicePar[nvoice].PFreqLfoEnabled=(int)o->value();
  429. if (o->value()==0) voicefreqlfogroup->deactivate();
  430. else voicefreqlfogroup->activate();
  431. o->redraw();}
  432.               tooltip {Forced Relase} xywh {220 295 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  433.               code0 {o->value(pars->VoicePar[nvoice].PFreqLfoEnabled);}
  434.             }
  435.             Fl_Counter {} {
  436.               label Octave
  437.               callback {int k=(int) o->value();
  438. if (k<0) k+=16;
  439. pars->VoicePar[nvoice].PCoarseDetune = k*1024+
  440.    pars->VoicePar[nvoice].PCoarseDetune%1024;}
  441.               tooltip Octave xywh {470 270 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  442.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune/1024;}
  443.               code1 {if (k>=8) k-=16;}
  444.               code2 {o->value(k);}
  445.             }
  446.             Fl_Counter {} {
  447.               label {Coarse Det.}
  448.               callback {int k=(int) o->value();
  449. if (k<0) k+=1024;
  450. pars->VoicePar[nvoice].PCoarseDetune = k+
  451.    (pars->VoicePar[nvoice].PCoarseDetune/1024)*1024;}
  452.               tooltip {Coarse Detune} xywh {455 340 60 20} labelsize 11 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  453.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune%1024;}
  454.               code1 {if (k>=512) k-=1024;}
  455.               code2 {o->value(k);}
  456.               code3 {o->lstep(10);}
  457.             }
  458.             Fl_Slider {} {
  459.               callback {pars->VoicePar[nvoice].PDetune=(int)o->value()+8192;
  460. detunevalueoutput->do_callback();}
  461.               tooltip {Fine Detune (cents)} xywh {58 272 392 13} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  462.               code0 {o->value(pars->VoicePar[nvoice].PDetune-8192);}
  463.             }
  464.             Fl_Value_Output detunevalueoutput {
  465.               label Detune
  466.               callback {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune));}
  467.               xywh {10 272 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  468.               code0 {o->value(getdetune(pars->VoicePar[nvoice].PDetuneType,0,pars->VoicePar[nvoice].PDetune));}
  469.             }
  470.             Fl_Check_Button {} {
  471.               label 440Hz
  472.               callback {int x=(int) o->value();
  473. pars->VoicePar[nvoice].Pfixedfreq=x;
  474. if (x==0) fixedfreqetdial->deactivate();
  475.     else fixedfreqetdial->activate();}
  476.               tooltip {Set the voice base frequency to 440Hz} xywh {345 253 55 15} down_box DOWN_BOX labelfont 1 labelsize 12
  477.               code0 {o->value(pars->VoicePar[nvoice].Pfixedfreq);}
  478.             }
  479.             Fl_Dial fixedfreqetdial {
  480.               label {Eq.T.}
  481.               callback {pars->VoicePar[nvoice].PfixedfreqET=(int) o->value();}
  482.               tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {405 255 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1
  483.               code0 {o->value(pars->VoicePar[nvoice].PfixedfreqET);}
  484.               code1 {if (pars->VoicePar[nvoice].Pfixedfreq==0) o->deactivate();}
  485.               class WidgetPDial
  486.             }
  487.             Fl_Choice {} {
  488.               label {Detune Type}
  489.               callback {pars->VoicePar[nvoice].PDetuneType=(int) o->value();
  490. detunevalueoutput->do_callback();} open
  491.               xywh {450 305 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  492.               code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  493.               code1 {o->value(pars->VoicePar[nvoice].PDetuneType);}
  494.             } {}
  495.           }
  496.           Fl_Group voiceoscil {
  497.             xywh {80 375 445 145} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  498.             code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  499.             code1 {int nv=nvoice; if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;}
  500.             code2 {osc->init(pars->VoicePar[nv].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);}
  501.           } {}
  502.           Fl_Button changevoiceoscilbutton {
  503.             label Change
  504.             callback {if (oscedit!=NULL) delete(oscedit);
  505.  
  506. int nv=nvoice;
  507. if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;
  508.  
  509. oscedit=new OscilEditor(pars->VoicePar[nv].OscilSmp,voiceoscil,NULL,master);}
  510.             xywh {5 475 65 20} box THIN_UP_BOX labelfont 1 labelsize 12
  511.             code0 {if (pars->VoicePar[nvoice].Pextoscil>=0) o->labelcolor(FL_BLUE);}
  512.           }
  513.           Fl_Box {} {
  514.             label {Voice Oscillator}
  515.             xywh {5 375 75 35} labelfont 1 align 128
  516.           }
  517.           Fl_Slider {} {
  518.             label Phase
  519.             callback {pars->VoicePar[nvoice].Poscilphase=64-(int)o->value();
  520. osc->phase=64-(int) o->value();
  521. voiceoscil->redraw();}
  522.             xywh {10 420 65 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  523.             code0 {o->value(64-pars->VoicePar[nvoice].Poscilphase);}
  524.           }
  525.           Fl_Check_Button {} {
  526.             label {R.}
  527.             callback {pars->VoicePar[nvoice].Presonance=(int) o->value();}
  528.             tooltip {Resonance On/Off} xywh {210 5 35 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 12
  529.             code0 {o->value(pars->VoicePar[nvoice].Presonance);}
  530.           }
  531.           Fl_Choice {} {
  532.             label {Use Oscil.}
  533.             callback {pars->VoicePar[nvoice].Pextoscil=(int)o->value()-1;
  534. if ((int) o->value() != 0) {
  535.     osc->init(pars->VoicePar[(int) o->value()-1].OscilSmp,master);
  536.     changevoiceoscilbutton->labelcolor(FL_BLUE);
  537. } else { 
  538.     osc->init(pars->VoicePar[nvoice].OscilSmp,master);
  539.     changevoiceoscilbutton->labelcolor(FL_BLACK);
  540. };
  541.  
  542. voiceparametersgroup->redraw();
  543. voiceonbutton->redraw();} open
  544.             xywh {5 455 65 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  545.             code0 {o->add("Internal");}
  546.             code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"Ext.%2d",i+1);o->add(tmp);};}
  547.             code3 {o->value(pars->VoicePar[nvoice].Pextoscil+1);}
  548.           } {}
  549.         }
  550.         Fl_Group {} {
  551.           label AMPLITUDE
  552.           xywh {5 40 240 210} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  553.         } {
  554.           Fl_Value_Slider {} {
  555.             label Vol
  556.             callback {pars->VoicePar[nvoice].PVolume=(int)o->value();}
  557.             tooltip Volume xywh {10 60 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  558.             code0 {o->value(pars->VoicePar[nvoice].PVolume);}
  559.           }
  560.           Fl_Value_Slider {} {
  561.             label {V.Sns}
  562.             callback {pars->VoicePar[nvoice].PAmpVelocityScaleFunction=(int) o->value();}
  563.             tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 80 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  564.             code0 {o->value(pars->VoicePar[nvoice].PAmpVelocityScaleFunction);}
  565.           }
  566.           Fl_Group voiceampenvgroup {
  567.             label {ADSynth Voice - Amplitude Envelope} open
  568.             xywh {10 105 205 70} box FLAT_BOX color 51 align 144
  569.             code0 {o->init(pars->VoicePar[nvoice].AmpEnvelope);}
  570.             code1 {if (pars->VoicePar[nvoice].PAmpEnvelopeEnabled==0) o->deactivate();}
  571.             class EnvelopeUI
  572.           } {}
  573.           Fl_Dial {} {
  574.             label Pan
  575.             callback {pars->VoicePar[nvoice].PPanning=(int) o->value();}
  576.             tooltip {Panning (leftmost is Random)} xywh {210 60 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  577.             code0 {o->value(pars->VoicePar[nvoice].PPanning);}
  578.             class WidgetPDial
  579.           }
  580.           Fl_Check_Button {} {
  581.             label Enable
  582.             callback {pars->VoicePar[nvoice].PAmpEnvelopeEnabled=(int)o->value();
  583. if (o->value()==0) voiceampenvgroup->deactivate();
  584. else voiceampenvgroup->activate();
  585. o->redraw();}
  586.             tooltip {Forced Relase} xywh {15 110 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  587.             code0 {o->value(pars->VoicePar[nvoice].PAmpEnvelopeEnabled);}
  588.           }
  589.           Fl_Group voiceamplfogroup {
  590.             label {Amplitude LFO     } open
  591.             xywh {10 175 230 70} box FLAT_BOX color 47 align 144
  592.             code0 {o->init(pars->VoicePar[nvoice].AmpLfo);}
  593.             code1 {if (pars->VoicePar[nvoice].PAmpLfoEnabled==0) o->deactivate();}
  594.             class LFOUI
  595.           } {}
  596.           Fl_Check_Button {} {
  597.             label Enable
  598.             callback {pars->VoicePar[nvoice].PAmpLfoEnabled=(int)o->value();
  599. if (o->value()==0) voiceamplfogroup->deactivate();
  600. else voiceamplfogroup->activate();
  601. o->redraw();}
  602.             tooltip {Forced Relase} xywh {15 180 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  603.             code0 {o->value(pars->VoicePar[nvoice].PAmpLfoEnabled);}
  604.           }
  605.           Fl_Check_Button {} {
  606.             label Minus
  607.             callback {pars->VoicePar[nvoice].PVolumeminus=(int)o->value();}
  608.             xywh {10 45 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  609.             code0 {o->value(pars->VoicePar[nvoice].PVolumeminus);}
  610.           }
  611.         }
  612.         Fl_Group voicefiltergroup {
  613.           label FILTER
  614.           xywh {245 5 285 245} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  615.           code0 {if (pars->VoicePar[nvoice].PFilterEnabled==0) o->deactivate();}
  616.         } {
  617.           Fl_Group {} {
  618.             label {ADsynth Voice - Filter} open
  619.             xywh {250 30 275 75} box FLAT_BOX color 50 align 144
  620.             code0 {o->init(pars->VoicePar[nvoice].VoiceFilter,NULL,NULL);}
  621.             class FilterUI
  622.           } {}
  623.           Fl_Group voicefilterenvgroup {
  624.             label {ADSynth Voice - Filter Envelope} open
  625.             xywh {250 105 275 70} box FLAT_BOX color 51 align 144
  626.             code0 {o->init(pars->VoicePar[nvoice].FilterEnvelope);}
  627.             code1 {if (pars->VoicePar[nvoice].PFilterEnvelopeEnabled==0) o->deactivate();}
  628.             class EnvelopeUI
  629.           } {}
  630.           Fl_Check_Button {} {
  631.             label Enable
  632.             callback {pars->VoicePar[nvoice].PFilterEnvelopeEnabled=(int)o->value();
  633. if (o->value()==0) voicefilterenvgroup->deactivate();
  634. else voicefilterenvgroup->activate();
  635. o->redraw();}
  636.             tooltip {Forced Relase} xywh {255 110 55 10} down_box DOWN_BOX labelfont 1 labelsize 10
  637.             code0 {o->value(pars->VoicePar[nvoice].PFilterEnvelopeEnabled);}
  638.           }
  639.           Fl_Group voicefilterlfogroup {
  640.             label {Filter LFO     } open
  641.             xywh {250 175 230 70} box FLAT_BOX color 47 align 144
  642.             code0 {o->init(pars->VoicePar[nvoice].FilterLfo);}
  643.             code1 {if (pars->VoicePar[nvoice].PFilterLfoEnabled==0) o->deactivate();}
  644.             class LFOUI
  645.           } {}
  646.           Fl_Check_Button {} {
  647.             label Enable
  648.             callback {pars->VoicePar[nvoice].PFilterLfoEnabled=(int)o->value();
  649. if (o->value()==0) voicefilterlfogroup->deactivate();
  650. else voicefilterlfogroup->activate();
  651. o->redraw();}
  652.             tooltip {Forced Relase} xywh {255 180 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  653.             code0 {o->value(pars->VoicePar[nvoice].PFilterLfoEnabled);}
  654.           }
  655.         }
  656.         Fl_Group {} {
  657.           label 01
  658.           xywh {5 5 55 35} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 30 align 16
  659.           code0 {char tmp[10];snprintf(tmp,10,"%d",nvoice+1);o->label(strdup(tmp));}
  660.         } {}
  661.         Fl_Choice {} {
  662.           callback {int x=(int) o->value();
  663. pars->VoicePar[nvoice].Type=x;
  664. if (x==0) voicemodegroup->activate();
  665.   else voicemodegroup->deactivate();
  666. noiselabel->do_callback();}
  667.           tooltip {Oscillator Type (sound/noise)} xywh {5 500 65 20} down_box BORDER_BOX labelsize 11 textfont 1 textsize 11
  668.           code0 {o->value(pars->VoicePar[nvoice].Type);}
  669.           code1 {if (pars->VoicePar[nvoice].Type!=0) voicemodegroup->deactivate();}
  670.         } {
  671.           menuitem {} {
  672.             label Sound
  673.             xywh {5 5 100 20} labelfont 1 labelsize 13
  674.           }
  675.           menuitem {} {
  676.             label NOISE
  677.             xywh {15 15 100 20} labelfont 1 labelsize 13 labelcolor 1
  678.           }
  679.         }
  680.         Fl_Check_Button bypassfiltercheckbutton {
  681.           label {Bypass Global F.}
  682.           callback {pars->VoicePar[nvoice].Pfilterbypass=(int)o->value();}
  683.           xywh {425 10 100 20} down_box DOWN_BOX labelfont 1 labelsize 10 align 148
  684.           code0 {o->value(pars->VoicePar[nvoice].Pfilterbypass);}
  685.         }
  686.         Fl_Group {} {
  687.           xywh {115 5 95 35} box THIN_UP_BOX
  688.         } {
  689.           Fl_Value_Slider {} {
  690.             label Delay
  691.             callback {pars->VoicePar[nvoice].PDelay=(int)o->value();}
  692.             tooltip Volume xywh {120 21 84 12} type {Horz Knob} box FLAT_BOX labelsize 12 align 5 maximum 127 step 1
  693.             code0 {o->value(pars->VoicePar[nvoice].PDelay);}
  694.           }
  695.         }
  696.         Fl_Check_Button {} {
  697.           label Enable
  698.           callback {pars->VoicePar[nvoice].PFilterEnabled=(int)o->value();
  699. if (o->value()==0) voicefiltergroup->deactivate();
  700. else voicefiltergroup->activate();
  701. o->redraw();
  702. bypassfiltercheckbutton->redraw();}
  703.           tooltip {Enable Filter} xywh {250 15 60 15} down_box DOWN_BOX labelfont 1 labelsize 12
  704.           code0 {o->value(pars->VoicePar[nvoice].PFilterEnabled);}
  705.         }
  706.         Fl_Box noiselabel {
  707.           label {White Noise}
  708.           callback {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}
  709.           xywh {150 415 300 65} labelfont 1 labelsize 50 labelcolor 7
  710.           code0 {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}
  711.         }
  712.       }
  713.       Fl_Check_Button voiceonbutton {
  714.         label On
  715.         callback {pars->VoicePar[nvoice].Enabled=(int)o->value();
  716. if (o->value()==0) voiceparametersgroup->deactivate();
  717. else voiceparametersgroup->activate();
  718. o->redraw();}
  719.         xywh {60 5 55 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 16
  720.         code0 {o->value(pars->VoicePar[nvoice].Enabled);}
  721.       }
  722.     }
  723.   }
  724.   Function {ADvoiceUI(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  725.     code {nvoice=0;
  726. pars=NULL;
  727. oscedit=NULL;} {}
  728.   }
  729.   Function {init(ADnoteParameters *parameters,int nvoice_,Master *master_)} {} {
  730.     code {pars=parameters;
  731. nvoice=nvoice_;
  732. master=master_;
  733. make_window();
  734. end();
  735. ADnoteVoiceParameters->show();} {}
  736.   }
  737.   Function {~ADvoiceUI()} {} {
  738.     code {ADnoteVoiceParameters->hide();
  739. hide();
  740. if (oscedit!=NULL) {
  741.     delete(oscedit);
  742. };
  743. //delete (ADnoteVoiceParameters);} {}
  744.   }
  745.   decl {int nvoice;} {}
  746.   decl {ADnoteParameters *pars;} {}
  747.   decl {OscilEditor *oscedit;} {}
  748.   decl {Oscilloscope *osc;} {}
  749.   decl {Oscilloscope *oscFM;} {}
  750.   decl {Master *master;} {}
  751. } 
  752.  
  753. class ADnoteUI {: {public PresetsUI_}
  754. } {
  755.   Function {make_window()} {private
  756.   } {
  757.     Fl_Window ADnoteGlobalParameters {
  758.       label {ADsynth Global Parameters of the Instrument}
  759.       xywh {66 187 535 405} type Double hide
  760.     } {
  761.       Fl_Group {} {
  762.         label FREQUENCY
  763.         xywh {5 255 525 115} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  764.       } {
  765.         Fl_Group freqenv {
  766.           label {ADSynth Global - Frequency Envelope} open
  767.           xywh {10 295 205 70} box FLAT_BOX color 51 align 144
  768.           code0 {o->init(pars->GlobalPar.FreqEnvelope);}
  769.           class EnvelopeUI
  770.         } {}
  771.         Fl_Counter octave {
  772.           label Octave
  773.           callback {int k=(int) o->value();
  774. if (k<0) k+=16;
  775. pars->GlobalPar.PCoarseDetune = k*1024+
  776.    pars->GlobalPar.PCoarseDetune%1024;}
  777.           tooltip Octave xywh {470 275 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  778.           code0 {int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;}
  779.           code2 {o->value(k);}
  780.         }
  781.         Fl_Counter coarsedet {
  782.           label {Coarse det.}
  783.           callback {int k=(int) o->value();
  784. if (k<0) k+=1024;
  785. pars->GlobalPar.PCoarseDetune = k+
  786.    (pars->GlobalPar.PCoarseDetune/1024)*1024;}
  787.           tooltip {Coarse Detune} xywh {455 345 60 20} labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  788.           code0 {int k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;}
  789.           code2 {o->value(k);}
  790.           code3 {o->lstep(10);}
  791.         }
  792.         Fl_Group freqlfo {
  793.           label {Frequency LFO     } open
  794.           xywh {215 295 230 70} box FLAT_BOX color 47 align 144
  795.           code0 {o->init(pars->GlobalPar.FreqLfo);}
  796.           class LFOUI
  797.         } {}
  798.         Fl_Slider freq {
  799.           callback {pars->GlobalPar.PDetune=(int)o->value()+8192;
  800. detunevalueoutput->do_callback();}
  801.           tooltip {Fine Detune (cents)} xywh {60 275 390 15} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  802.           code0 {o->value(pars->GlobalPar.PDetune-8192);}
  803.         }
  804.         Fl_Value_Output detunevalueoutput {
  805.           label Detune
  806.           callback {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}
  807.           xywh {12 275 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  808.           code0 {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}
  809.         }
  810.         Fl_Choice detunetype {
  811.           label {Detune Type}
  812.           callback {pars->GlobalPar.PDetuneType=(int) o->value()+1;
  813. detunevalueoutput->do_callback();} open
  814.           xywh {450 315 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  815.           code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  816.           code1 {o->value(pars->GlobalPar.PDetuneType-1);}
  817.         } {}
  818.       }
  819.       Fl_Group {} {
  820.         label AMPLITUDE
  821.         xywh {5 5 240 250} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  822.       } {
  823.         Fl_Value_Slider volume {
  824.           label Vol
  825.           callback {pars->GlobalPar.PVolume=(int)o->value();}
  826.           tooltip Volume xywh {10 30 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  827.           code0 {o->value(pars->GlobalPar.PVolume);}
  828.         }
  829.         Fl_Value_Slider vsns {
  830.           label {V.Sns}
  831.           callback {pars->GlobalPar.PAmpVelocityScaleFunction=(int) o->value();}
  832.           tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 50 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  833.           code0 {o->value(pars->GlobalPar.PAmpVelocityScaleFunction);}
  834.         }
  835.         Fl_Dial pan {
  836.           label Pan
  837.           callback {pars->GlobalPar.PPanning=(int) o->value();}
  838.           tooltip {Panning (leftmost is Random)} xywh {210 25 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  839.           code0 {o->value(pars->GlobalPar.PPanning);}
  840.           class WidgetPDial
  841.         }
  842.         Fl_Dial pstr {
  843.           label {P.Str.}
  844.           callback {pars->GlobalPar.PPunchStrength=(int) o->value();}
  845.           tooltip {Punch Strength} xywh {125 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  846.           code0 {o->value(pars->GlobalPar.PPunchStrength);}
  847.           class WidgetPDial
  848.         }
  849.         Fl_Dial pt {
  850.           label {P.t.}
  851.           callback {pars->GlobalPar.PPunchTime=(int) o->value();}
  852.           tooltip {Punch Time (duration)} xywh {155 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  853.           code0 {o->value(pars->GlobalPar.PPunchTime);}
  854.           class WidgetPDial
  855.         }
  856.         Fl_Dial pstc {
  857.           label {P.Stc.}
  858.           callback {pars->GlobalPar.PPunchStretch=(int) o->value();}
  859.           tooltip {Punch Stretch} xywh {185 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  860.           code0 {o->value(pars->GlobalPar.PPunchStretch);}
  861.           class WidgetPDial
  862.         }
  863.         Fl_Dial pvel {
  864.           label {P.Vel.}
  865.           callback {pars->GlobalPar.PPunchVelocitySensing=(int) o->value();}
  866.           tooltip {Punch Velocity Sensing} xywh {215 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  867.           code0 {o->value(pars->GlobalPar.PPunchVelocitySensing);}
  868.           class WidgetPDial
  869.         }
  870.         Fl_Group ampenv {
  871.           label {ADSynth Global - Amplitude Envelope} open
  872.           xywh {10 75 205 70} box FLAT_BOX color 51 align 144
  873.           code0 {o->init(pars->GlobalPar.AmpEnvelope);}
  874.           class EnvelopeUI
  875.         } {}
  876.         Fl_Group amplfo {
  877.           label {Amplitude LFO          } open
  878.           xywh {10 145 230 70} box FLAT_BOX color 47 align 144
  879.           code0 {o->init(pars->GlobalPar.AmpLfo);}
  880.           class LFOUI
  881.         } {}
  882.         Fl_Check_Button rndgrp {
  883.           label {Rnd Grp}
  884.           callback {pars->GlobalPar.Hrandgrouping=(int) o->value();}
  885.           tooltip {How the Harmonic Amplitude is applied to voices that use the same oscillator} xywh {70 225 40 25} down_box DOWN_BOX labelsize 10 align 148
  886.           code0 {o->value(pars->GlobalPar.Hrandgrouping);}
  887.         }
  888.       }
  889.       Fl_Group {} {
  890.         label FILTER
  891.         xywh {245 5 285 250} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  892.       } {
  893.         Fl_Group filterenv {
  894.           label {ADSynth Global - Filter Envelope} open
  895.           xywh {250 110 275 70} box FLAT_BOX color 51 align 144
  896.           code0 {o->init(pars->GlobalPar.FilterEnvelope);}
  897.           class EnvelopeUI
  898.         } {}
  899.         Fl_Group filterlfo {
  900.           label {Filter LFO} open
  901.           xywh {250 180 230 70} box FLAT_BOX color 47 align 144
  902.           code0 {o->init(pars->GlobalPar.FilterLfo);}
  903.           class LFOUI
  904.         } {}
  905.         Fl_Group filterui {
  906.           label {ADsynth Global - Filter} open
  907.           xywh {250 35 275 75} box FLAT_BOX color 50 align 144
  908.           code0 {o->init(pars->GlobalPar.GlobalFilter,&pars->GlobalPar.PFilterVelocityScale,&pars->GlobalPar.PFilterVelocityScaleFunction);}
  909.           class FilterUI
  910.         } {}
  911.       }
  912.       Fl_Check_Button stereo {
  913.         label Stereo
  914.         callback {pars->GlobalPar.PStereo=(int) o->value();}
  915.         xywh {5 220 65 35} box ENGRAVED_BOX down_box DOWN_BOX labelfont 1 labelsize 12
  916.         code0 {o->value(pars->GlobalPar.PStereo);}
  917.       }
  918.       Fl_Button {} {
  919.         label {Show Voice List}
  920.         callback {for (int i=0;i<NUM_VOICES;i++){
  921.   voicelistitem[i]->refreshlist();
  922. }
  923. ADnoteVoiceList->show();}
  924.         xywh {180 375 125 25}
  925.       }
  926.       Fl_Button {} {
  927.         label {Show Voice Parameters}
  928.         callback {ADnoteVoice->show();}
  929.         xywh {5 375 170 25} labelfont 1
  930.       }
  931.       Fl_Button {} {
  932.         label Close
  933.         callback {ADnoteGlobalParameters->hide();}
  934.         xywh {470 375 60 25} box THIN_UP_BOX
  935.       }
  936.       Fl_Button {} {
  937.         label Resonance
  938.         callback {resui->resonancewindow->redraw();
  939. resui->resonancewindow->show();}
  940.         tooltip Resonance xywh {309 375 86 25} box THIN_UP_BOX
  941.       }
  942.       Fl_Button {} {
  943.         label C
  944.         callback {presetsui->copy(pars);}
  945.         xywh {405 380 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  946.       }
  947.       Fl_Button {} {
  948.         label P
  949.         callback {presetsui->paste(pars,this);}
  950.         xywh {435 380 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  951.       }
  952.     }
  953.     Fl_Window ADnoteVoice {
  954.       label {ADsynth Voice Parameters}
  955.       xywh {53 58 765 560} type Double hide
  956.     } {
  957.       Fl_Group advoice {
  958.         xywh {0 0 760 525} box BORDER_BOX
  959.         code0 {o->init(pars,nvoice,master);}
  960.         code1 {o->show();}
  961.         class ADvoiceUI
  962.       } {}
  963.       Fl_Button {} {
  964.         label {Close Window}
  965.         callback {ADnoteVoice->hide();}
  966.         xywh {300 530 195 25} box THIN_UP_BOX labelfont 1
  967.       }
  968.       Fl_Counter currentvoicecounter {
  969.         label {Current Voice}
  970.         callback {nvoice=(int)o->value()-1;
  971. advoice->hide();
  972. ADnoteVoice->remove(advoice);
  973. delete advoice;
  974. advoice=new ADvoiceUI(0,0,765,525);
  975. ADnoteVoice->add(advoice);
  976. advoice->init(pars,nvoice,master);
  977. advoice->show();
  978. ADnoteVoice->redraw();}
  979.         xywh {5 530 130 25} type Simple labelfont 1 align 8 minimum 0 maximum 2 step 1 value 1 textfont 1 textsize 18
  980.         code0 {o->bounds(1,NUM_VOICES);}
  981.       }
  982.       Fl_Button {} {
  983.         label C
  984.         callback {presetsui->copy(pars,nvoice);}
  985.         xywh {700 535 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  986.       }
  987.       Fl_Button {} {
  988.         label P
  989.         callback {presetsui->paste(pars,this,nvoice);}
  990.         xywh {730 535 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  991.       }
  992.     }
  993.     Fl_Window ADnoteVoiceList {
  994.       label {ADsynth Voices list}
  995.       xywh {32 266 650 260} type Double hide
  996.     } {
  997.       Fl_Text_Display {} {
  998.         label {No.}
  999.         xywh {10 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1000.       }
  1001.       Fl_Text_Display {} {
  1002.         label Vol
  1003.         xywh {145 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1004.       }
  1005.       Fl_Text_Display {} {
  1006.         label Detune
  1007.         xywh {384 15 25 10} box NO_BOX labelfont 1 labelsize 13
  1008.       }
  1009.       Fl_Text_Display {} {
  1010.         label Pan
  1011.         xywh {210 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1012.       }
  1013.       Fl_Text_Display {} {
  1014.         label {Vib. Depth}
  1015.         xywh {560 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1016.       }
  1017.       Fl_Text_Display {} {
  1018.         label {R.}
  1019.         xywh {245 15 25 10} box NO_BOX labelfont 1 labelsize 13
  1020.       }
  1021.       Fl_Button {} {
  1022.         label {Hide Voice List}
  1023.         callback {ADnoteVoiceList->hide();}
  1024.         xywh {255 237 125 20}
  1025.       }
  1026.       Fl_Scroll {} {open
  1027.         xywh {0 15 640 220} type VERTICAL box THIN_UP_BOX
  1028.       } {
  1029.         Fl_Pack {} {open
  1030.           xywh {0 20 620 210}
  1031.           code0 {for (int i=0;i<NUM_VOICES;i++){voicelistitem[i]=new ADvoicelistitem(0,0,620,25,"");voicelistitem[i]->init(pars,i,master);}}
  1032.         } {}
  1033.       }
  1034.     }
  1035.   }
  1036.   Function {ADnoteUI(ADnoteParameters *parameters,Master *master_)} {} {
  1037.     code {pars=parameters;
  1038. master=master_;
  1039. nvoice=0;
  1040. resui=new ResonanceUI(pars->GlobalPar.Reson);
  1041. make_window();} {}
  1042.   }
  1043.   Function {~ADnoteUI()} {} {
  1044.     code {ADnoteVoiceList->hide();
  1045. ADnoteGlobalParameters->hide();
  1046. ADnoteVoice->hide();
  1047. delete(ADnoteVoiceList);
  1048. delete(ADnoteGlobalParameters);
  1049. delete(ADnoteVoice);
  1050. delete(resui);} {}
  1051.   }
  1052.   Function {refresh()} {} {
  1053.     code {volume->value(pars->GlobalPar.PVolume);
  1054. vsns->value(pars->GlobalPar.PAmpVelocityScaleFunction);
  1055. pan->value(pars->GlobalPar.PPanning);
  1056.  
  1057. stereo->value(pars->GlobalPar.PStereo);
  1058. rndgrp->value(pars->GlobalPar.Hrandgrouping);
  1059.  
  1060. pstr->value(pars->GlobalPar.PPunchStrength);
  1061. pt->value(pars->GlobalPar.PPunchTime);
  1062. pstc->value(pars->GlobalPar.PPunchStretch);
  1063. pvel->value(pars->GlobalPar.PPunchVelocitySensing);
  1064.  
  1065. detunevalueoutput->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));
  1066. freq->value(pars->GlobalPar.PDetune-8192);
  1067.  
  1068. int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;
  1069. octave->value(k);
  1070.  
  1071. detunetype->value(pars->GlobalPar.PDetuneType-1);
  1072. k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;
  1073. coarsedet->value(k);
  1074. amplfo->refresh();
  1075. freqlfo->refresh();
  1076. filterlfo->refresh();
  1077.  
  1078. ampenv->refresh();
  1079. freqenv->refresh();
  1080. filterenv->refresh();
  1081. filterui->refresh();
  1082.  
  1083. for (int i=0;i<NUM_VOICES;i++) voicelistitem[i]->refreshlist();
  1084.  
  1085. resui->refresh();
  1086. currentvoicecounter->do_callback();} {}
  1087.   }
  1088.   decl {ADnoteParameters *pars;} {}
  1089.   decl {ResonanceUI *resui;} {}
  1090.   decl {Master *master;} {}
  1091.   decl {int nvoice;} {}
  1092.   decl {ADvoicelistitem *voicelistitem[NUM_VOICES];} {}
  1093. } 
  1094.