home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Complet / ZynAddFX / Setup_ZynAddSubFX-2.1.1.exe / PADnoteUI.fl < prev    next >
Encoding:
FLTK User Interface Designer  |  2004-08-17  |  34.1 KB  |  1,065 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0105 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {\#include "../Params/PADnoteParameters.h"} {public
  6. } 
  7.  
  8. decl {\#include "../Misc/Util.h"} {public
  9. } 
  10.  
  11. decl {\#include "../Misc/Master.h"} {public
  12. } 
  13.  
  14. decl {\#include "ResonanceUI.h"} {public
  15. } 
  16.  
  17. decl {\#include <FL/Fl_Box.H>} {public
  18. } 
  19.  
  20. decl {\#include <FL/Fl_Group.H>} {public
  21. } 
  22.  
  23. decl {\#include <math.h>} {} 
  24.  
  25. decl {\#include <stdio.h>} {} 
  26.  
  27. decl {\#include <stdlib.h>} {} 
  28.  
  29. decl {\#include <string.h>} {} 
  30.  
  31. decl {\#include "WidgetPDial.h"} {public
  32. } 
  33.  
  34. decl {\#include "EnvelopeUI.h"} {public
  35. } 
  36.  
  37. decl {\#include "LFOUI.h"} {public
  38. } 
  39.  
  40. decl {\#include "FilterUI.h"} {public
  41. } 
  42.  
  43. decl {\#include "OscilGenUI.h"} {public
  44. } 
  45.  
  46. decl {\#include "PresetsUI.h"} {public
  47. } 
  48.  
  49. class PADnoteHarmonicProfile {: {public Fl_Box}
  50. } {
  51.   Function {PADnoteHarmonicProfile(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  52.     code {pars=NULL;} {}
  53.   }
  54.   Function {init(PADnoteParameters *pars,Master *master_)} {} {
  55.     code {master=master_;
  56. this->pars=pars;} {}
  57.   }
  58.   Function {draw()} {} {
  59.     code {int ox=x(),oy=y(),lx=w(),ly=h();
  60. if (!visible()) return;
  61. REALTYPE smps[lx];
  62.  
  63. REALTYPE realbw=pars->getprofile(smps,lx);
  64. bool active=active_r();
  65.  
  66. //draw the equivalent bandwidth
  67. if (active) fl_color(220,220,220);
  68.  else fl_color(160,165,165);
  69. fl_line_style(0);
  70. int rbw=(int)(realbw*(lx-1.0)/2.0);
  71. for (int i=lx/2-rbw;i<(lx/2+rbw);i++) fl_line(ox+i,oy,ox+i,oy+ly-1);
  72.  
  73. fl_line_style(0);
  74. if (active) fl_color(200,200,200);
  75.  else  fl_color(160,160,160);
  76. for (int i=1;i<10;i++){
  77.     int kx=(int)(lx/10.0*i);
  78.     fl_line(ox+kx,oy,ox+kx,oy+ly-1);
  79. };
  80. for (int i=1;i<5;i++){
  81.     int ky=(int)(ly/5.0*i);
  82.     fl_line(ox,oy+ly-ky,ox+lx,oy+ly-ky-1);
  83. };
  84.  
  85.  
  86. fl_color(120,120,120);
  87. fl_line_style(FL_DOT);
  88. fl_line(ox+lx/2,oy,ox+lx/2,oy+ly);
  89.  
  90. //draw the graph
  91. fl_line_style(0);
  92. int old=0;
  93. for (int i=0;i<lx;i++){
  94.    int val=(int) ((ly-2)*smps[i]);
  95.    if (active) fl_color(180,210,240);
  96.       else fl_color(150,150,155);
  97.    fl_line(ox+i,oy+ly-1,ox+i,oy+ly-1-val);
  98.    if (active) fl_color(0,0,100);
  99.        else fl_color(150,150,150);
  100.    if (i>0) fl_line(ox+i-1,oy+ly-2-old,ox+i,oy+ly-2-val);
  101.    old=val;   
  102. };
  103.  
  104.  
  105. fl_line_style(FL_DASH);
  106. if (active) fl_color(0,100,220);
  107.     else fl_color(150,160,170);
  108. fl_line(ox+lx/2-rbw,oy,ox+lx/2-rbw,oy+ly-1);
  109. fl_line(ox+lx/2+rbw,oy,ox+lx/2+rbw,oy+ly-1);
  110.  
  111. fl_line_style(0);} {}
  112.   }
  113.   decl {Master *master;} {}
  114.   decl {PADnoteParameters *pars;} {public
  115.   }
  116. } 
  117.  
  118. class PADnoteOvertonePosition {: {public Fl_Box}
  119. } {
  120.   Function {PADnoteOvertonePosition(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  121.     code {pars=NULL;} {}
  122.   }
  123.   Function {init(PADnoteParameters *pars,Master *master_)} {} {
  124.     code {master=master_;
  125. this->pars=pars;} {}
  126.   }
  127.   Function {draw()} {} {
  128.     code {if (!visible()) return;
  129. const int maxdb=60;
  130.  
  131. int ox=x(),oy=y(),lx=w(),ly=h();
  132. const int maxharmonic=64;
  133.  
  134.  
  135. for (int i=1;i<maxharmonic;i++){
  136.     fl_color(200,200,200);
  137.     fl_line_style(FL_DOT);
  138.     if (i%5==0) fl_line_style(0);
  139.     if (i%10==0) fl_color(160,160,160);
  140.     int kx=(int)(lx/(REALTYPE)maxharmonic*i);
  141.     fl_line(ox+kx,oy,ox+kx,oy+ly);
  142. };
  143.  
  144.  
  145.  
  146. int n=OSCIL_SIZE/2;
  147. REALTYPE spc[n];
  148. for (int i=0;i<n;i++) spc[i]=0.0;
  149.  
  150. pthread_mutex_lock(&master->mutex);
  151. pars->oscilgen->getspectrum(n,spc,0);
  152. pthread_mutex_unlock(&master->mutex);
  153.  
  154.  
  155. //normalize
  156. REALTYPE max=0;
  157. for (int i=0;i<n;i++){
  158.    REALTYPE x=fabs(spc[i]);
  159.    if (max<x) max=x;
  160. }
  161. if (max<0.000001) max=1.0;
  162. max=max*1.05;
  163.  
  164. REALTYPE spectrum[lx];
  165. for (int i=0;i<lx;i++) spectrum[i]=0;
  166.  
  167.  
  168. for (int i=1;i<n;i++){
  169.     REALTYPE nhr=pars->getNhr(i);
  170.     int kx=(int)(lx/(REALTYPE)maxharmonic*nhr);
  171.     if ((kx<0)||(kx>lx)) continue;
  172.  
  173.         spectrum[kx]=spc[i-1]/max+1e-9;
  174.  
  175. };
  176.  
  177. fl_color(180,0,0);
  178. fl_line_style(0);
  179.  
  180. if (pars->Pmode==2){
  181.    int old=0;
  182.    for (int i=1;i<lx;i++){
  183.     if ((spectrum[i]>1e-10)||(i==(lx-1))){
  184.         int delta=i-old;
  185.         REALTYPE val1=spectrum[old];
  186.         REALTYPE val2=spectrum[i];
  187.  
  188.         REALTYPE idelta=1.0/delta;
  189.         for (int j=0;j<delta;j++){
  190.             REALTYPE x=idelta*j;
  191.             spectrum[old+j]=val1*(1.0-x)+val2*x;
  192.         };
  193.         old=i;
  194.     };
  195.       
  196.    };
  197. };
  198.  
  199. for (int i=0;i<lx;i++){
  200.     REALTYPE x=spectrum[i];
  201.         if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;
  202.              else continue;
  203.            int yy=(int)(x*ly);
  204.     fl_line(ox+i,oy+ly-1-yy,ox+i,oy+ly-1);
  205.       
  206. };} {}
  207.   }
  208.   decl {Master *master;} {}
  209.   decl {PADnoteParameters *pars;} {public
  210.   }
  211. } 
  212.  
  213. class PADnoteUI {: {public PresetsUI_}
  214. } {
  215.   Function {make_window()} {} {
  216.     Fl_Window padnotewindow {
  217.       label {PAD synth Parameters}
  218.       xywh {76 165 535 450} type Double hide
  219.     } {
  220.       Fl_Tabs {} {
  221.         callback {if (o->value()!=harmonicstructuregroup) applybutton->hide();
  222.     else applybutton->show();}
  223.         xywh {0 0 535 395}
  224.       } {
  225.         Fl_Group harmonicstructuregroup {
  226.           label {Harmonic Structure} selected
  227.           xywh {0 20 535 375} box ENGRAVED_BOX
  228.         } {
  229.           Fl_Group bwprofilegroup {
  230.             xywh {5 30 90 260} box ENGRAVED_BOX
  231.             code0 {if (pars->Pmode!=0) o->deactivate();}
  232.           } {
  233.             Fl_Dial hpbasepar1 {
  234.               label Width
  235.               callback {pars->Php.base.par1=(int) o->value();
  236. hprofile->redraw();
  237. cbwidget->do_callback();}
  238.               xywh {20 75 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  239.               code0 {o->value(pars->Php.base.par1);}
  240.               class WidgetPDial
  241.             }
  242.             Fl_Choice hpbasetype {
  243.               label {Base Type}
  244.               callback {pars->Php.base.type=o->value();
  245. hprofile->redraw();
  246. cbwidget->do_callback();}
  247.               xywh {15 45 75 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  248.               code0 {o->value(pars->Php.base.type);}
  249.             } {
  250.               menuitem {} {
  251.                 label Gauss
  252.                 xywh {15 15 100 20} labelfont 1 labelsize 10
  253.               }
  254.               menuitem {} {
  255.                 label Square
  256.                 xywh {25 25 100 20} labelfont 1 labelsize 10
  257.               }
  258.               menuitem {} {
  259.                 label DoubleExp
  260.                 xywh {35 35 100 20} labelfont 1 labelsize 10
  261.               }
  262.             }
  263.             Fl_Dial hpfreqmult {
  264.               label FreqMlt
  265.               callback {pars->Php.freqmult=(int) o->value();
  266. hprofile->redraw();
  267. cbwidget->do_callback();}
  268.               xywh {55 75 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  269.               code0 {o->value(pars->Php.freqmult);}
  270.               class WidgetPDial
  271.             }
  272.             Fl_Dial hpmpar1 {
  273.               label Str
  274.               callback {pars->Php.modulator.par1=(int) o->value();
  275. hprofile->redraw();
  276. cbwidget->do_callback();}
  277.               xywh {15 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  278.               code0 {o->value(pars->Php.modulator.par1);}
  279.               class WidgetPDial
  280.             }
  281.             Fl_Dial hpmfreq {
  282.               label SFreq
  283.               callback {pars->Php.modulator.freq=(int) o->value();
  284. hprofile->redraw();
  285. cbwidget->do_callback();}
  286.               xywh {40 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  287.               code0 {o->value(pars->Php.modulator.freq);}
  288.               class WidgetPDial
  289.             }
  290.             Fl_Group {} {
  291.               xywh {10 160 80 105} box BORDER_BOX
  292.             } {
  293.               Fl_Choice hpamptype {
  294.                 label AmpMultiplier
  295.                 callback {pars->Php.amp.type=o->value();
  296. hprofile->redraw();
  297. cbwidget->do_callback();}
  298.                 xywh {15 175 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  299.                 code0 {o->value(pars->Php.amp.type);}
  300.               } {
  301.                 menuitem {} {
  302.                   label OFF
  303.                   xywh {45 45 100 20} labelfont 1 labelsize 10
  304.                 }
  305.                 menuitem {} {
  306.                   label Gauss
  307.                   xywh {55 55 100 20} labelfont 1 labelsize 10
  308.                 }
  309.                 menuitem {} {
  310.                   label Sine
  311.                   xywh {65 65 100 20} labelfont 1 labelsize 10
  312.                 }
  313.                 menuitem {} {
  314.                   label Flat
  315.                   xywh {75 75 100 20} labelfont 1 labelsize 10
  316.                 }
  317.               }
  318.               Fl_Choice hpampmode {
  319.                 label AmpMode
  320.                 callback {pars->Php.amp.mode=o->value();
  321. hprofile->redraw();
  322. cbwidget->do_callback();}
  323.                 xywh {15 205 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  324.                 code0 {o->value(pars->Php.amp.mode);}
  325.               } {
  326.                 menuitem {} {
  327.                   label Sum
  328.                   xywh {60 60 100 20} labelfont 1 labelsize 10
  329.                 }
  330.                 menuitem {} {
  331.                   label Mult
  332.                   xywh {70 70 100 20} labelfont 1 labelsize 10
  333.                 }
  334.                 menuitem {} {
  335.                   label Div1
  336.                   xywh {80 80 100 20} labelfont 1 labelsize 10
  337.                 }
  338.                 menuitem {} {
  339.                   label Div2
  340.                   xywh {90 90 100 20} labelfont 1 labelsize 10
  341.                 }
  342.               }
  343.               Fl_Dial hpamppar1 {
  344.                 label Par1
  345.                 callback {pars->Php.amp.par1=(int) o->value();
  346. hprofile->redraw();
  347. cbwidget->do_callback();}
  348.                 xywh {15 235 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  349.                 code0 {o->value(pars->Php.amp.par1);}
  350.                 class WidgetPDial
  351.               }
  352.               Fl_Dial hpamppar2 {
  353.                 label Par2
  354.                 callback {pars->Php.amp.par2=(int) o->value();
  355. hprofile->redraw();
  356. cbwidget->do_callback();}
  357.                 xywh {55 235 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  358.                 code0 {o->value(pars->Php.amp.par2);}
  359.                 class WidgetPDial
  360.               }
  361.             }
  362.             Fl_Check_Button hpautoscale {
  363.               label autoscale
  364.               callback {pars->Php.autoscale=(int) o->value();
  365. hprofile->redraw();
  366. cbwidget->do_callback();}
  367.               xywh {10 270 60 15} down_box DOWN_BOX labelsize 10
  368.               code0 {o->value(pars->Php.autoscale);}
  369.             }
  370.             Fl_Choice hponehalf {
  371.               callback {pars->Php.onehalf=o->value();
  372. hprofile->redraw();
  373. cbwidget->do_callback();}
  374.               xywh {10 143 80 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  375.               code0 {o->value(pars->Php.onehalf);}
  376.             } {
  377.               menuitem {} {
  378.                 label Full
  379.                 xywh {25 25 100 20} labelfont 1 labelsize 10
  380.               }
  381.               menuitem {} {
  382.                 label {Upper Half}
  383.                 xywh {45 45 100 20} labelfont 1 labelsize 10
  384.               }
  385.               menuitem {} {
  386.                 label {Lower Half}
  387.                 xywh {35 35 100 20} labelfont 1 labelsize 10
  388.               }
  389.             }
  390.             Fl_Dial hpwidth {
  391.               label Size
  392.               callback {pars->Php.width=(int) o->value();
  393. hprofile->redraw();
  394. cbwidget->do_callback();}
  395.               xywh {65 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  396.               code0 {o->value(pars->Php.width);}
  397.               class WidgetPDial
  398.             }
  399.           }
  400.           Fl_Group {} {
  401.             xywh {100 155 270 135} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179 align 6
  402.             code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  403.             code1 {osc->init(pars->oscilgen,master);}
  404.           } {}
  405.           Fl_Button {} {
  406.             label Change
  407.             callback {if (oscui!=NULL) delete (oscui);
  408. oscui=new OscilEditor(pars->oscilgen,osc,cbwidget,master);}
  409.             xywh {375 270 60 20} box THIN_UP_BOX labelfont 1 labelsize 12
  410.           }
  411.           Fl_Box cbwidget {
  412.             label {Harmonic Content}
  413.             callback {overtonepos->redraw();
  414. applybutton->color(FL_RED);
  415. applybutton->redraw();}
  416.             xywh {125 135 205 20} align 16
  417.           }
  418.           Fl_Button {} {
  419.             label Resonance
  420.             callback {resui->resonancewindow->redraw();
  421. resui->resonancewindow->show();
  422. resui->setcbwidget(cbwidget);}
  423.             xywh {375 225 80 20} box THIN_UP_BOX
  424.           }
  425.           Fl_Dial bwdial {
  426.             label BandWidth
  427.             callback {bwcents->value(pars->setPbandwidth((int) o->value()));
  428. cbwidget->do_callback();}
  429.             xywh {15 295 35 35} box ROUND_UP_BOX labelsize 11 maximum 1000 step 1
  430.             code0 {o->value(pars->Pbandwidth);}
  431.             code1 {if (pars->Pmode!=0) o->deactivate();}
  432.             class WidgetPDial
  433.           }
  434.           Fl_Value_Output bwcents {
  435.             label cents
  436.             xywh {55 305 55 15} labelsize 10 align 6 maximum 10000 step 0.1
  437.             code0 {o->value(pars->setPbandwidth(pars->Pbandwidth));}
  438.             code1 {if (pars->Pmode!=0) o->deactivate();}
  439.           }
  440.           Fl_Group {} {
  441.             xywh {315 295 215 45} box ENGRAVED_BOX
  442.           } {
  443.             Fl_Choice hrpostype {
  444.               label OvertonesPosition
  445.               callback {pars->Phrpos.type=o->value();
  446. overtonepos->redraw();
  447. cbwidget->do_callback();}
  448.               xywh {325 310 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  449.               code0 {o->value(pars->Phrpos.type);}
  450.             } {
  451.               menuitem {} {
  452.                 label Harmonic
  453.                 xywh {70 70 100 20} labelfont 1 labelsize 12
  454.               }
  455.               menuitem {} {
  456.                 label ShiftU
  457.                 xywh {80 80 100 20} labelfont 1 labelsize 12
  458.               }
  459.               menuitem {} {
  460.                 label ShiftL
  461.                 xywh {90 90 100 20} labelfont 1 labelsize 12
  462.               }
  463.               menuitem {} {
  464.                 label PowerU
  465.                 xywh {90 90 100 20} labelfont 1 labelsize 12
  466.               }
  467.               menuitem {} {
  468.                 label PowerL
  469.                 xywh {100 100 100 20} labelfont 1 labelsize 12
  470.               }
  471.               menuitem {} {
  472.                 label Sine
  473.                 xywh {110 110 100 20} labelfont 1 labelsize 12
  474.               }
  475.               menuitem {} {
  476.                 label Power
  477.                 xywh {120 120 100 20} labelfont 1 labelsize 12
  478.               }
  479.             }
  480.             Fl_Dial hrpospar1 {
  481.               label Par1
  482.               callback {pars->Phrpos.par1=(int) o->value();
  483. overtonepos->redraw();
  484. cbwidget->do_callback();}
  485.               xywh {425 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  486.               code0 {o->value(pars->Phrpos.par1);}
  487.               class WidgetPDial
  488.             }
  489.             Fl_Dial hrpospar2 {
  490.               label Par2
  491.               callback {pars->Phrpos.par2=(int) o->value();
  492. overtonepos->redraw();
  493. cbwidget->do_callback();}
  494.               xywh {460 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  495.               code0 {o->value(pars->Phrpos.par2);}
  496.               class WidgetPDial
  497.             }
  498.             Fl_Dial hrpospar3 {
  499.               label ForceH
  500.               callback {pars->Phrpos.par3=(int) o->value();
  501. overtonepos->redraw();
  502. cbwidget->do_callback();}
  503.               xywh {495 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  504.               code0 {o->value(pars->Phrpos.par3);}
  505.               class WidgetPDial
  506.             }
  507.           }
  508.           Fl_Choice bwscale {
  509.             label {Bandwidth Scale}
  510.             callback {pars->Pbwscale=(int) o->value();
  511. cbwidget->do_callback();}
  512.             xywh {120 305 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  513.             code0 {o->value(pars->Pbwscale);}
  514.             code1 {if (pars->Pmode!=0) o->deactivate();}
  515.           } {
  516.             menuitem {} {
  517.               label Normal
  518.               xywh {95 95 100 20} labelfont 1 labelsize 12
  519.             }
  520.             menuitem {} {
  521.               label EqualHz
  522.               xywh {105 105 100 20} labelfont 1 labelsize 12
  523.             }
  524.             menuitem {} {
  525.               label Quater
  526.               xywh {115 115 100 20} labelfont 1 labelsize 12
  527.             }
  528.             menuitem {} {
  529.               label Half
  530.               xywh {125 125 100 20} labelfont 1 labelsize 12
  531.             }
  532.             menuitem {} {
  533.               label {75%}
  534.               xywh {135 135 100 20} labelfont 1 labelsize 12
  535.             }
  536.             menuitem {} {
  537.               label {150%}
  538.               xywh {145 145 100 20} labelfont 1 labelsize 12
  539.             }
  540.             menuitem {} {
  541.               label Double
  542.               xywh {145 145 100 20} labelfont 1 labelsize 12
  543.             }
  544.             menuitem {} {
  545.               label {Inv.Half}
  546.               xywh {155 155 100 20} labelfont 1 labelsize 12
  547.             }
  548.           }
  549.           Fl_Group overtonepos {
  550.             xywh {5 345 525 45} box FLAT_BOX color 54 selection_color 218 labelcolor 63
  551.             code0 {PADnoteOvertonePosition *opui=new PADnoteOvertonePosition(o->x(),o->y(),o->w(),o->h(),"");}
  552.             code1 {opui->init(pars,master);}
  553.           } {}
  554.           Fl_Choice qsamplesize {
  555.             label {Sample Size}
  556.             callback {pars->Pquality.samplesize=(int) o->value();
  557. cbwidget->do_callback();}
  558.             xywh {375 190 115 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  559.             code0 {o->value(pars->Pquality.samplesize);}
  560.           } {
  561.             menuitem {} {
  562.               label {16k (Tiny)}
  563.               xywh {155 155 100 20} labelfont 1 labelsize 12
  564.             }
  565.             menuitem {} {
  566.               label 32k
  567.               xywh {165 165 100 20} labelfont 1 labelsize 12
  568.             }
  569.             menuitem {} {
  570.               label {64k (Small)}
  571.               xywh {175 175 100 20} labelfont 1 labelsize 12
  572.             }
  573.             menuitem {} {
  574.               label 128k
  575.               xywh {185 185 100 20} labelfont 1 labelsize 12
  576.             }
  577.             menuitem {} {
  578.               label {256k (Normal)}
  579.               xywh {205 205 100 20} labelfont 1 labelsize 12
  580.             }
  581.             menuitem {} {
  582.               label 512k
  583.               xywh {200 200 100 20} labelfont 1 labelsize 12
  584.             }
  585.             menuitem {} {
  586.               label {1M (Big)}
  587.               xywh {205 205 100 20} labelfont 1 labelsize 12
  588.             }
  589.           }
  590.           Fl_Choice qsmpoct {
  591.             label {smp/oct}
  592.             callback {pars->Pquality.smpoct=(int) o->value();
  593. cbwidget->do_callback();}
  594.             xywh {430 155 45 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  595.             code0 {o->value(pars->Pquality.smpoct);}
  596.           } {
  597.             menuitem {} {
  598.               label {0.5}
  599.               xywh {10 10 100 20} labelfont 1 labelsize 12
  600.             }
  601.             menuitem {} {
  602.               label 1
  603.               xywh {0 0 100 20} labelfont 1 labelsize 12
  604.             }
  605.             menuitem {} {
  606.               label 2
  607.               xywh {10 10 100 20} labelfont 1 labelsize 12
  608.             }
  609.             menuitem {} {
  610.               label 3
  611.               xywh {20 20 100 20} labelfont 1 labelsize 12
  612.             }
  613.             menuitem {} {
  614.               label 4
  615.               xywh {30 30 100 20} labelfont 1 labelsize 12
  616.             }
  617.             menuitem {} {
  618.               label 6
  619.               xywh {40 40 100 20} labelfont 1 labelsize 12
  620.             }
  621.             menuitem {} {
  622.               label 12
  623.               xywh {50 50 100 20} labelfont 1 labelsize 12
  624.             }
  625.           }
  626.           Fl_Choice qoct {
  627.             label {no.oct}
  628.             callback {pars->Pquality.oct=(int) o->value();
  629. cbwidget->do_callback();}
  630.             xywh {480 155 45 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  631.             code0 {o->value(pars->Pquality.oct);}
  632.           } {
  633.             menuitem {} {
  634.               label 1
  635.               xywh {10 10 100 20} labelfont 1 labelsize 12
  636.             }
  637.             menuitem {} {
  638.               label 2
  639.               xywh {20 20 100 20} labelfont 1 labelsize 12
  640.             }
  641.             menuitem {} {
  642.               label 3
  643.               xywh {30 30 100 20} labelfont 1 labelsize 12
  644.             }
  645.             menuitem {} {
  646.               label 4
  647.               xywh {40 40 100 20} labelfont 1 labelsize 12
  648.             }
  649.             menuitem {} {
  650.               label 5
  651.               xywh {50 50 100 20} labelfont 1 labelsize 12
  652.             }
  653.           }
  654.           Fl_Choice qbasenote {
  655.             label base
  656.             callback {pars->Pquality.basenote=(int) o->value();
  657. cbwidget->do_callback();}
  658.             xywh {375 155 50 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  659.             code0 {o->value(pars->Pquality.basenote);}
  660.           } {
  661.             menuitem {} {
  662.               label {C-2}
  663.               xywh {10 10 100 20} labelfont 1
  664.             }
  665.             menuitem {} {
  666.               label {G-2}
  667.               xywh {20 20 100 20} labelfont 1
  668.             }
  669.             menuitem {} {
  670.               label {C-3}
  671.               xywh {20 20 100 20} labelfont 1
  672.             }
  673.             menuitem {} {
  674.               label {G-3}
  675.               xywh {30 30 100 20} labelfont 1
  676.             }
  677.             menuitem {} {
  678.               label {C-4}
  679.               xywh {30 30 100 20} labelfont 1
  680.             }
  681.             menuitem {} {
  682.               label {G-4}
  683.               xywh {40 40 100 20} labelfont 1
  684.             }
  685.             menuitem {} {
  686.               label {C-5}
  687.               xywh {40 40 100 20} labelfont 1
  688.             }
  689.             menuitem {} {
  690.               label {G-5}
  691.               xywh {50 50 100 20} labelfont 1
  692.             }
  693.             menuitem {} {
  694.               label {G-6}
  695.               xywh {60 60 100 20} labelfont 1
  696.             }
  697.           }
  698.           Fl_Group hprofile {
  699.             xywh {100 45 430 90} box FLAT_BOX color 54 selection_color 218 labelcolor 63
  700.             code0 {PADnoteHarmonicProfile *hpui=new PADnoteHarmonicProfile(o->x(),o->y(),o->w(),o->h(),"");}
  701.             code1 {hpui->init(pars,master);}
  702.             code2 {if (pars->Pmode!=0) { o->deactivate(); o->color(48);};}
  703.           } {}
  704.           Fl_Box {} {
  705.             label {Profile of One Harmonic (Frequency Distribution)}
  706.             xywh {160 25 315 20}
  707.           }
  708.           Fl_Choice spectrummode {
  709.             label {Spectrum Mode}
  710.             callback {pars->Pmode=(int) o->value();
  711.  
  712. if (pars->Pmode==0){
  713.    bwprofilegroup->activate();
  714.    bwdial->activate();
  715.    bwcents->activate();
  716.    hprofile->activate();
  717.    hprofile->color(54);
  718.    bwscale->activate();
  719. } else {
  720.    bwprofilegroup->deactivate();
  721.    bwdial->deactivate();
  722.    bwcents->deactivate();
  723.    hprofile->deactivate();
  724.    hprofile->color(48);
  725.    bwscale->activate();
  726. };
  727.  
  728. cbwidget->do_callback();}
  729.             xywh {220 305 90 20} down_box BORDER_BOX labelfont 1 labelsize 10 labelcolor 0 align 5 textsize 12
  730.             code0 {o->value(pars->Pmode);}
  731.           } {
  732.             menuitem {} {
  733.               label Bandwidth
  734.               xywh {105 105 100 20} labelfont 1 labelsize 12
  735.             }
  736.             menuitem {} {
  737.               label Discrete
  738.               xywh {125 125 100 20} labelfont 1 labelsize 12 labelcolor 0
  739.             }
  740.             menuitem {} {
  741.               label Continous
  742.               xywh {115 115 100 20} labelfont 1 labelsize 12 labelcolor 0
  743.             }
  744.           }
  745.         }
  746.         Fl_Group {} {
  747.           label {Envelopes&LFOs}
  748.           xywh {0 20 535 375} box ENGRAVED_BOX hide
  749.         } {
  750.           Fl_Group {} {
  751.             label FREQUENCY
  752.             xywh {5 275 525 115} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  753.           } {
  754.             Fl_Group freqenv {
  755.               label {PADSynth - Frequency Envelope} open
  756.               xywh {10 315 205 70} box FLAT_BOX color 51 align 144
  757.               code0 {o->init(pars->FreqEnvelope);}
  758.               class EnvelopeUI
  759.             } {}
  760.             Fl_Counter octave {
  761.               label Octave
  762.               callback {int k=(int) o->value();
  763. if (k<0) k+=16;
  764. pars->PCoarseDetune = k*1024+
  765.    pars->PCoarseDetune%1024;}
  766.               tooltip Octave xywh {470 295 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  767.               code0 {int k=pars->PCoarseDetune/1024;}
  768.               code1 {if (k>=8) k-=16;}
  769.               code2 {o->value(k);}
  770.             }
  771.             Fl_Counter coarsedet {
  772.               label {Coarse det.}
  773.               callback {int k=(int) o->value();
  774. if (k<0) k+=1024;
  775. pars->PCoarseDetune = k+
  776.    (pars->PCoarseDetune/1024)*1024;}
  777.               tooltip {Coarse Detune} xywh {455 365 60 20} labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  778.               code0 {int k=pars->PCoarseDetune%1024;}
  779.               code1 {if (k>=512) k-=1024;}
  780.               code2 {o->value(k);}
  781.               code3 {o->lstep(10);}
  782.             }
  783.             Fl_Group freqlfo {
  784.               label {Frequency LFO     } open
  785.               xywh {215 315 230 70} box FLAT_BOX color 47 align 144
  786.               code0 {o->init(pars->FreqLfo);}
  787.               class LFOUI
  788.             } {}
  789.             Fl_Slider detune {
  790.               callback {pars->PDetune=(int)o->value()+8192;
  791. detunevalueoutput->do_callback();}
  792.               tooltip {Fine Detune (cents)} xywh {60 295 295 15} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  793.               code0 {o->value(pars->PDetune-8192);}
  794.             }
  795.             Fl_Value_Output detunevalueoutput {
  796.               label Detune
  797.               callback {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  798.               xywh {12 295 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  799.               code0 {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  800.             }
  801.             Fl_Choice detunetype {
  802.               label {Detune Type}
  803.               callback {pars->PDetuneType=(int) o->value()+1;
  804. detunevalueoutput->do_callback();} open
  805.               xywh {450 335 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  806.               code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  807.               code1 {o->value(pars->PDetuneType-1);}
  808.             } {}
  809.             Fl_Check_Button hz440 {
  810.               label 440Hz
  811.               callback {int x=(int) o->value();
  812. pars->Pfixedfreq=x;
  813. if (x==0) fixedfreqetdial->deactivate();
  814.    else fixedfreqetdial->activate();}
  815.               tooltip {set the base frequency to 440Hz} xywh {365 295 50 15} down_box DOWN_BOX labelfont 1 labelsize 11
  816.               code0 {o->value(pars->Pfixedfreq);}
  817.             }
  818.             Fl_Dial fixedfreqetdial {
  819.               label {Eq.T.}
  820.               callback {pars->PfixedfreqET=(int) o->value();}
  821.               tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {420 295 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1
  822.               code0 {o->value(pars->PfixedfreqET);}
  823.               code1 {if (pars->Pfixedfreq==0) o->deactivate();}
  824.               class WidgetPDial
  825.             }
  826.           }
  827.           Fl_Group {} {
  828.             label AMPLITUDE
  829.             xywh {5 25 240 250} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  830.           } {
  831.             Fl_Value_Slider volume {
  832.               label Vol
  833.               callback {pars->PVolume=(int)o->value();}
  834.               tooltip Volume xywh {10 50 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  835.               code0 {o->value(pars->PVolume);}
  836.             }
  837.             Fl_Value_Slider vsns {
  838.               label {V.Sns}
  839.               callback {pars->PAmpVelocityScaleFunction=(int) o->value();}
  840.               tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 70 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  841.               code0 {o->value(pars->PAmpVelocityScaleFunction);}
  842.             }
  843.             Fl_Dial pan {
  844.               label Pan
  845.               callback {pars->PPanning=(int) o->value();}
  846.               tooltip {Panning (leftmost is Random)} xywh {210 45 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  847.               code0 {o->value(pars->PPanning);}
  848.               class WidgetPDial
  849.             }
  850.             Fl_Dial pstr {
  851.               label {P.Str.}
  852.               callback {pars->PPunchStrength=(int) o->value();}
  853.               tooltip {Punch Strength} xywh {125 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  854.               code0 {o->value(pars->PPunchStrength);}
  855.               class WidgetPDial
  856.             }
  857.             Fl_Dial pt {
  858.               label {P.t.}
  859.               callback {pars->PPunchTime=(int) o->value();}
  860.               tooltip {Punch Time (duration)} xywh {155 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  861.               code0 {o->value(pars->PPunchTime);}
  862.               class WidgetPDial
  863.             }
  864.             Fl_Dial pstc {
  865.               label {P.Stc.}
  866.               callback {pars->PPunchStretch=(int) o->value();}
  867.               tooltip {Punch Stretch} xywh {185 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  868.               code0 {o->value(pars->PPunchStretch);}
  869.               class WidgetPDial
  870.             }
  871.             Fl_Dial pvel {
  872.               label {P.Vel.}
  873.               callback {pars->PPunchVelocitySensing=(int) o->value();}
  874.               tooltip {Punch Velocity Sensing} xywh {215 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  875.               code0 {o->value(pars->PPunchVelocitySensing);}
  876.               class WidgetPDial
  877.             }
  878.             Fl_Group ampenv {
  879.               label {PADSynth - Amplitude Envelope} open
  880.               xywh {10 95 205 70} box FLAT_BOX color 51 align 144
  881.               code0 {o->init(pars->AmpEnvelope);}
  882.               class EnvelopeUI
  883.             } {}
  884.             Fl_Group amplfo {
  885.               label {Amplitude LFO     } open
  886.               xywh {10 165 230 70} box FLAT_BOX color 47 align 144
  887.               code0 {o->init(pars->AmpLfo);}
  888.               class LFOUI
  889.             } {}
  890.             Fl_Check_Button stereo {
  891.               label Stereo
  892.               callback {pars->PStereo=(int) o->value();
  893. hprofile->redraw();}
  894.               xywh {15 245 70 25} down_box DOWN_BOX
  895.               code0 {o->value(pars->PStereo);}
  896.             }
  897.           }
  898.           Fl_Group {} {
  899.             label FILTER
  900.             xywh {245 25 285 250} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  901.           } {
  902.             Fl_Group filterenv {
  903.               label {PADSynth - Filter Envelope} open
  904.               xywh {250 130 275 70} box FLAT_BOX color 51 align 144
  905.               code0 {o->init(pars->FilterEnvelope);}
  906.               class EnvelopeUI
  907.             } {}
  908.             Fl_Group filterlfo {
  909.               label {Filter LFO     } open
  910.               xywh {250 200 230 70} box FLAT_BOX color 47 align 144
  911.               code0 {o->init(pars->FilterLfo);}
  912.               class LFOUI
  913.             } {}
  914.             Fl_Group filterui {
  915.               label {PADsynth - Filter} open
  916.               xywh {250 55 275 75} box FLAT_BOX color 50 align 144
  917.               code0 {o->init(pars->GlobalFilter,&pars->PFilterVelocityScale,&pars->PFilterVelocityScaleFunction);}
  918.               class FilterUI
  919.             } {}
  920.           }
  921.         }
  922.       }
  923.       Fl_Button applybutton {
  924.         label {Apply Changes}
  925.         callback {pars->applyparameters(true);
  926. o->color(FL_GRAY);}
  927.         xywh {45 405 185 40} box THIN_UP_BOX labelfont 1 labelsize 23
  928.         code0 {o->color(FL_RED);}
  929.       }
  930.       Fl_Button {} {
  931.         label Close
  932.         callback {padnotewindow->hide();}
  933.         xywh {320 405 175 40} box THIN_UP_BOX labelsize 20
  934.       }
  935.       Fl_Button {} {
  936.         label C
  937.         callback {presetsui->copy(pars);}
  938.         xywh {240 430 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  939.       }
  940.       Fl_Button {} {
  941.         label P
  942.         callback {presetsui->paste(pars,this);}
  943.         xywh {270 430 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  944.       }
  945.     }
  946.   }
  947.   Function {PADnoteUI(PADnoteParameters *parameters,Master *master_)} {} {
  948.     code {pars=parameters;
  949. master=master_;
  950. oscui=NULL;
  951. resui=new ResonanceUI(pars->resonance);
  952. make_window();} {}
  953.   }
  954.   Function {refresh()} {} {
  955.     code {volume->value(pars->PVolume);
  956. vsns->value(pars->PAmpVelocityScaleFunction);
  957. pan->value(pars->PPanning);
  958.  
  959. stereo->value(pars->PStereo);
  960.  
  961.  
  962. pstr->value(pars->PPunchStrength);
  963. pt->value(pars->PPunchTime);
  964. pstc->value(pars->PPunchStretch);
  965. pvel->value(pars->PPunchVelocitySensing);
  966.  
  967. detunevalueoutput->value(getdetune(pars->PDetuneType,0,pars->PDetune));
  968. detune->value(pars->PDetune-8192);
  969.  
  970. int k=pars->PCoarseDetune/1024;if (k>=8) k-=16;
  971. octave->value(k);
  972.  
  973. detunetype->value(pars->PDetuneType-1);
  974. k=pars->PCoarseDetune%1024;if (k>=512) k-=1024;
  975. coarsedet->value(k);
  976.  
  977. hz440->value(pars->Pfixedfreq);
  978. fixedfreqetdial->value(pars->PfixedfreqET);
  979.  
  980. amplfo->refresh();
  981. freqlfo->refresh();
  982. filterlfo->refresh();
  983.  
  984. ampenv->refresh();
  985. freqenv->refresh();
  986. filterenv->refresh();
  987. filterui->refresh();
  988.  
  989.  
  990. /* harmonic structure parametrs */
  991.  
  992. resui->refresh();
  993. if (oscui!=NULL) oscui->refresh();
  994.  
  995. hpbasetype->value(pars->Php.base.type);
  996. hpbasepar1->value(pars->Php.base.par1);
  997. hpfreqmult->value(pars->Php.freqmult);
  998.  
  999. hpmpar1->value(pars->Php.modulator.par1);
  1000. hpmfreq->value(pars->Php.modulator.freq);
  1001. hpwidth->value(pars->Php.width);
  1002.  
  1003. hponehalf->value(pars->Php.onehalf);
  1004. hpamptype->value(pars->Php.amp.type);
  1005. hpampmode->value(pars->Php.amp.mode);
  1006. hpamppar1->value(pars->Php.amp.par1);
  1007. hpamppar2->value(pars->Php.amp.par2);
  1008. hpautoscale->value(pars->Php.autoscale);
  1009.  
  1010. bwdial->value(pars->Pbandwidth);
  1011. if (pars->Pmode==0){
  1012.    bwprofilegroup->activate();
  1013.    bwdial->activate();
  1014.    bwcents->activate();
  1015.    hprofile->activate();
  1016.    hprofile->color(54);
  1017.    bwscale->activate();
  1018. } else {
  1019.    bwprofilegroup->deactivate();
  1020.    bwdial->deactivate();
  1021.    bwcents->deactivate();
  1022.    hprofile->deactivate();
  1023.    hprofile->color(48);
  1024.    bwscale->activate();
  1025. };
  1026.  
  1027. spectrummode->value(pars->Pmode);
  1028.  
  1029. qbasenote->value(pars->Pquality.basenote);
  1030. qsmpoct->value(pars->Pquality.smpoct);
  1031. qoct->value(pars->Pquality.oct);
  1032. qsamplesize->value(pars->Pquality.samplesize);
  1033.  
  1034. hrpostype->value(pars->Phrpos.type);
  1035. hrpospar1->value(pars->Phrpos.par1);
  1036. hrpospar2->value(pars->Phrpos.par2);
  1037. hrpospar3->value(pars->Phrpos.par3);
  1038.  
  1039. hprofile->redraw();
  1040. overtonepos->redraw();
  1041.  
  1042. osc->redraw();
  1043. pars->applyparameters(true);
  1044. applybutton->color(FL_GRAY);
  1045. applybutton->parent()->redraw();} {}
  1046.   }
  1047.   Function {~PADnoteUI()} {} {
  1048.     code {delete(oscui);
  1049. delete(resui);
  1050.  
  1051. padnotewindow->hide();
  1052. delete(padnotewindow);} {}
  1053.   }
  1054.   decl {PADnoteParameters *pars;} {public
  1055.   }
  1056.   decl {Master *master;} {public
  1057.   }
  1058.   decl {OscilEditor *oscui;} {public
  1059.   }
  1060.   decl {Oscilloscope *osc;} {public
  1061.   }
  1062.   decl {ResonanceUI *resui;} {public
  1063.   }
  1064. } 
  1065.