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

1121 lines
35KB
Raw Blame History 

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

  2. version 1.0110 

  3. header_name {.h} 

  4. code_name {.cc}

  5. decl {\#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 <FL/Fl_File_Chooser.H>} {public

  24. } 

  25. 

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

  27. 

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

  29. 

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

  31. 

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

  33. 

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

  35. } 

  36. 

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

  38. } 

  39. 

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

  41. } 

  42. 

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

  44. } 

  45. 

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

  47. } 

  48. 

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

  50. } 

  51. 

  52. class PADnoteHarmonicProfile {: {public Fl_Box}

  53. } {

  54.   Function {PADnoteHarmonicProfile(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {

  55.     code {pars=NULL;} {}

  56.   }

  57.   Function {init(PADnoteParameters *pars,Master *master_)} {} {

  58.     code {master=master_;

  59. this->pars=pars;} {}

  60.   }

  61.   Function {draw()} {} {

  62.     code {int ox=x(),oy=y(),lx=w(),ly=h();

  63. if (!visible()) return;

  64. float smps[lx];

  65. 

  66. float realbw=pars->getprofile(smps,lx);

  67. bool active=active_r();

  68. 

  69. //draw the equivalent bandwidth

  70. if (active) fl_color(220,220,220);

  71.  else fl_color(160,165,165);

  72. fl_line_style(FL_DASH);

  73. int rbw=(int)(realbw*(lx-1.0)/2.0);

  74. fl_begin_line();

  75. for (int i=lx/2-rbw;i<(lx/2+rbw);i++) { fl_vertex(ox+i,oy); }

  76. fl_end_line();

  77. 

  78. fl_line_style(FL_DASH);

  79. if (active) fl_color(200,200,200);

  80.  else  fl_color(160,160,160);

  81. for (int i=1;i<10;i++){

  82. 	int kx=(int)(lx/10.0*i);

  83. 	fl_line( ox + kx, oy, ox + kx, oy + ly - 1 );

  84. };

  85. for (int i=1;i<5;i++){

  86. 	int ky=(int)(ly/5.0*i);

  87. 	fl_line(ox,oy+ly-ky,ox+lx,oy+ly-ky-1);

  88. };

  89. 

  90. 

  91. fl_color(120,120,120);

  92. fl_line_style(FL_DASH);

  93. fl_line(ox+lx/2,oy,ox+lx/2,oy+ly);

  94. 

  95. //draw the graph

  96. fl_line_style(FL_SOLID);

  97.    if (active) fl_color(180,210,240);

  98.       else fl_color(150,150,155);

  99. 

  100. fl_color( fl_color_add_alpha( fl_color(), 127 ) );

  101. 

  102. fl_begin_polygon();

  103. fl_vertex( ox, oy + h() );

  104. for (int i=0;i<lx;i++){

  105.    int val=(int) ((ly-2)*smps[i]);

  106.  

  107. //   fl_vertex(ox+i,oy+ly-1);

  108.    fl_vertex(ox+i,oy+ly-1-val);

  109. 

  110.   // if (active) fl_color(0,0,100);

  111.   //     else fl_color(150,150,150);

  112. 

  113. //   if (i>0)

  114. //	{

  115. //	 fl_vertex(ox+i-1,oy+ly-2-old);

  116. //	fl_vertex(ox+i,oy+ly-2-val);

  117. //	}

  118. };

  119. fl_vertex( ox + w(), oy + h() );

  120. fl_end_polygon();

  121. 

  122. 

  123. fl_line_style(FL_DASH);

  124. if (active) fl_color(0,100,220);

  125.     else fl_color(150,160,170);

  126. fl_line(ox+lx/2-rbw,oy,ox+lx/2-rbw,oy+ly-1);

  127. fl_line(ox+lx/2+rbw,oy,ox+lx/2+rbw,oy+ly-1);

  128. 

  129. fl_line_style(0);} {}

  130.   }

  131.   decl {Master *master;} {}

  132.   decl {PADnoteParameters *pars;} {public

  133.   }

  134. } 

  135. 

  136. class PADnoteOvertonePosition {: {public Fl_Box}

  137. } {

  138.   Function {PADnoteOvertonePosition(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {

  139.     code {pars=NULL;} {}

  140.   }

  141.   Function {init(PADnoteParameters *pars,Master *master_)} {} {

  142.     code {master=master_;

  143. this->pars=pars;} {}

  144.   }

  145.   Function {draw()} {} {

  146.     code {if (!visible()) return;

  147. const int maxdb=60;

  148. 

  149. int ox=x(),oy=y(),lx=w(),ly=h();

  150. const int maxharmonic=64;

  151. 

  152. 

  153. for (int i=1;i<maxharmonic;i++){

  154. 	fl_color(100,100,100);

  155. 	fl_line_style(FL_DOT);

  156. 	if (i%5==0) fl_line_style(0);

  157. 	if (i%10==0) fl_color(120,120,120);

  158. 	int kx=(int)(lx/(float)maxharmonic*i);

  159. 	fl_line(ox+kx,oy,ox+kx,oy+ly);

  160. };

  161. 

  162. 

  163. 

  164. int n=synth->oscilsize/2;

  165. float spc[n];

  166. for (int i=0;i<n;i++) spc[i]=0.0;

  167. 

  168. pthread_mutex_lock(&master->mutex);

  169. pars->oscilgen->getspectrum(n,spc,0);

  170. pthread_mutex_unlock(&master->mutex);

  171. 

  172. 

  173. //normalize

  174. float max=0;

  175. for (int i=0;i<n;i++){

  176.    float x=fabs(spc[i]);

  177.    if (max<x) max=x;

  178. }

  179. if (max<0.000001) max=1.0;

  180. max=max*1.05;

  181. 

  182. float spectrum[lx];

  183. for (int i=0;i<lx;i++) spectrum[i]=0;

  184. 

  185. 

  186. for (int i=1;i<n;i++){

  187. 	float nhr=pars->getNhr(i);

  188. 	int kx=(int)(lx/(float)maxharmonic*nhr);

  189. 	if ((kx<0)||(kx>lx)) continue;

  190. 

  191.         spectrum[kx]=spc[i-1]/max+1e-9;

  192. 

  193. };

  194. 

  195. fl_color(180,0,0);

  196. fl_line_style(0);

  197. 

  198. if (pars->Pmode==2){

  199.    int old=0;

  200.    for (int i=1;i<lx;i++){

  201. 	if ((spectrum[i]>1e-10)||(i==(lx-1))){

  202. 		int delta=i-old;

  203. 		float val1=spectrum[old];

  204. 		float val2=spectrum[i];

  205. 

  206. 		float idelta=1.0/delta;

  207. 		for (int j=0;j<delta;j++){

  208. 			float x=idelta*j;

  209. 			spectrum[old+j]=val1*(1.0-x)+val2*x;

  210. 		};

  211. 		old=i;

  212. 	};

  213.       

  214.    };

  215. };

  216. 

  217. for (int i=0;i<lx;i++){

  218. 	float x=spectrum[i];

  219.         if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;

  220.              else continue;

  221.        	int yy=(int)(x*ly);

  222. 	fl_line(ox+i,oy+ly-1-yy,ox+i,oy+ly-1);

  223.       

  224. };} {}

  225.   }

  226.   decl {Master *master;} {}

  227.   decl {PADnoteParameters *pars;} {public

  228.   }

  229. } 

  230. 

  231. class PADnoteUI {open : {public PresetsUI_}

  232. } {

  233.   Function {PADnoteUI(PADnoteParameters *parameters,Master *master_)} {open

  234.   } {

  235.     code {pars=parameters;

  236. master=master_;

  237. oscui=NULL;

  238. resui=new ResonanceUI(pars->resonance);

  239. make_window();} {}

  240.   }

  241.   Function {make_window()} {open

  242.   } {

  243.     Fl_Window padnotewindow {

  244.       label {PAD synth Parameters} open

  245.       xywh {288 386 535 435} type Double visible

  246.     } {

  247.       Fl_Tabs {} {

  248.         callback {if (o->value()!=harmonicstructuregroup) applybutton->hide();

  249. 	else applybutton->show();} open

  250.         xywh {0 0 535 395} box UP_FRAME

  251.       } {

  252.         Fl_Group harmonicstructuregroup {

  253.           label {Harmonic Structure} open selected

  254.           xywh {0 20 535 375} box UP_FRAME

  255.         } {

  256.           Fl_Group bwprofilegroup {

  257.             xywh {5 30 90 260} box UP_FRAME

  258.             code0 {if (pars->Pmode!=0) o->deactivate();}

  259.           } {

  260.             Fl_Dial hpbasepar1 {

  261.               label Width

  262.               callback {pars->Php.base.par1=(int) o->value();

  263. hprofile->redraw();

  264. cbwidget->do_callback();}

  265.               xywh {20 75 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  266.               code0 {o->value(pars->Php.base.par1);}

  267.               class WidgetPDial

  268.             }

  269.             Fl_Choice hpbasetype {

  270.               label {Base Type}

  271.               callback {pars->Php.base.type=o->value();

  272. hprofile->redraw();

  273. cbwidget->do_callback();}

  274.               xywh {15 45 75 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10

  275.               code0 {o->value(pars->Php.base.type);}

  276.             } {

  277.               MenuItem {} {

  278.                 label Gauss

  279.                 xywh {15 15 100 20} labelfont 1 labelsize 10

  280.               }

  281.               MenuItem {} {

  282.                 label Square

  283.                 xywh {25 25 100 20} labelfont 1 labelsize 10

  284.               }

  285.               MenuItem {} {

  286.                 label DoubleExp

  287.                 xywh {35 35 100 20} labelfont 1 labelsize 10

  288.               }

  289.             }

  290.             Fl_Dial hpfreqmult {

  291.               label FreqMlt

  292.               callback {pars->Php.freqmult=(int) o->value();

  293. hprofile->redraw();

  294. cbwidget->do_callback();}

  295.               xywh {55 75 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  296.               code0 {o->value(pars->Php.freqmult);}

  297.               class WidgetPDial

  298.             }

  299.             Fl_Dial hpmpar1 {

  300.               label Str

  301.               callback {pars->Php.modulator.par1=(int) o->value();

  302. hprofile->redraw();

  303. cbwidget->do_callback();}

  304.               xywh {15 115 20 20} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  305.               code0 {o->value(pars->Php.modulator.par1);}

  306.               class WidgetPDial

  307.             }

  308.             Fl_Dial hpmfreq {

  309.               label SFreq

  310.               callback {pars->Php.modulator.freq=(int) o->value();

  311. hprofile->redraw();

  312. cbwidget->do_callback();}

  313.               xywh {40 115 20 20} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  314.               code0 {o->value(pars->Php.modulator.freq);}

  315.               class WidgetPDial

  316.             }

  317.             Fl_Group {} {

  318.               xywh {10 160 80 105} box BORDER_BOX

  319.             } {

  320.               Fl_Choice hpamptype {

  321.                 label AmpMultiplier

  322.                 callback {pars->Php.amp.type=o->value();

  323. hprofile->redraw();

  324. cbwidget->do_callback();}

  325.                 xywh {15 175 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10

  326.                 code0 {o->value(pars->Php.amp.type);}

  327.               } {

  328.                 MenuItem {} {

  329.                   label OFF

  330.                   xywh {45 45 100 20} labelfont 1 labelsize 10

  331.                 }

  332.                 MenuItem {} {

  333.                   label Gauss

  334.                   xywh {55 55 100 20} labelfont 1 labelsize 10

  335.                 }

  336.                 MenuItem {} {

  337.                   label Sine

  338.                   xywh {65 65 100 20} labelfont 1 labelsize 10

  339.                 }

  340.                 MenuItem {} {

  341.                   label Flat

  342.                   xywh {75 75 100 20} labelfont 1 labelsize 10

  343.                 }

  344.               }

  345.               Fl_Choice hpampmode {

  346.                 label AmpMode

  347.                 callback {pars->Php.amp.mode=o->value();

  348. hprofile->redraw();

  349. cbwidget->do_callback();}

  350.                 xywh {15 205 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10

  351.                 code0 {o->value(pars->Php.amp.mode);}

  352.               } {

  353.                 MenuItem {} {

  354.                   label Sum

  355.                   xywh {60 60 100 20} labelfont 1 labelsize 10

  356.                 }

  357.                 MenuItem {} {

  358.                   label Mult

  359.                   xywh {70 70 100 20} labelfont 1 labelsize 10

  360.                 }

  361.                 MenuItem {} {

  362.                   label Div1

  363.                   xywh {80 80 100 20} labelfont 1 labelsize 10

  364.                 }

  365.                 MenuItem {} {

  366.                   label Div2

  367.                   xywh {90 90 100 20} labelfont 1 labelsize 10

  368.                 }

  369.               }

  370.               Fl_Dial hpamppar1 {

  371.                 label Par1

  372.                 callback {pars->Php.amp.par1=(int) o->value();

  373. hprofile->redraw();

  374. cbwidget->do_callback();}

  375.                 xywh {15 235 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  376.                 code0 {o->value(pars->Php.amp.par1);}

  377.                 class WidgetPDial

  378.               }

  379.               Fl_Dial hpamppar2 {

  380.                 label Par2

  381.                 callback {pars->Php.amp.par2=(int) o->value();

  382. hprofile->redraw();

  383. cbwidget->do_callback();}

  384.                 xywh {55 235 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  385.                 code0 {o->value(pars->Php.amp.par2);}

  386.                 class WidgetPDial

  387.               }

  388.             }

  389.             Fl_Check_Button hpautoscale {

  390.               label autoscale

  391.               callback {pars->Php.autoscale=(int) o->value();

  392. hprofile->redraw();

  393. cbwidget->do_callback();}

  394.               xywh {10 270 60 15} down_box DOWN_BOX labelsize 10

  395.               code0 {o->value(pars->Php.autoscale);}

  396.             }

  397.             Fl_Choice hponehalf {

  398.               callback {pars->Php.onehalf=o->value();

  399. hprofile->redraw();

  400. cbwidget->do_callback();}

  401.               xywh {10 143 80 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10

  402.               code0 {o->value(pars->Php.onehalf);}

  403.             } {

  404.               MenuItem {} {

  405.                 label Full

  406.                 xywh {25 25 100 20} labelfont 1 labelsize 10

  407.               }

  408.               MenuItem {} {

  409.                 label {Upper Half}

  410.                 xywh {45 45 100 20} labelfont 1 labelsize 10

  411.               }

  412.               MenuItem {} {

  413.                 label {Lower Half}

  414.                 xywh {35 35 100 20} labelfont 1 labelsize 10

  415.               }

  416.             }

  417.             Fl_Dial hpwidth {

  418.               label Size

  419.               callback {pars->Php.width=(int) o->value();

  420. hprofile->redraw();

  421. cbwidget->do_callback();}

  422.               xywh {65 115 20 20} box ROUND_UP_BOX labelsize 10 align 1 maximum 127 step 1

  423.               code0 {o->value(pars->Php.width);}

  424.               class WidgetPDial

  425.             }

  426.           }

  427.           Fl_Group {} {

  428.             xywh {100 155 270 135} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179 align 6

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

  430.             code1 {osc->init(pars->oscilgen,master);}

  431.           } {}

  432.           Fl_Button {} {

  433.             label Change

  434.             callback {if (oscui!=NULL) delete (oscui);

  435. oscui=new OscilEditor(pars->oscilgen,osc,cbwidget,applybutton,master);}

  436.             xywh {375 270 60 20} box THIN_UP_BOX labelfont 1 labelsize 11

  437.           }

  438.           Fl_Box cbwidget {

  439.             label {Harmonic Content}

  440.             callback {overtonepos->redraw();

  441. applybutton->color(FL_RED);

  442. applybutton->redraw();}

  443.             xywh {125 135 205 20} align 16

  444.           }

  445.           Fl_Button {} {

  446.             label Resonance

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

  448. resui->resonancewindow->show();

  449. resui->setcbwidget(cbwidget,applybutton);}

  450.             xywh {375 225 80 20} box THIN_UP_BOX

  451.           }

  452.           Fl_Dial bwdial {

  453.             label BandWidth

  454.             callback {bwcents->value(pars->setPbandwidth((int) o->value()));

  455. cbwidget->do_callback();}

  456.             xywh {15 295 35 35} box ROUND_UP_BOX labelsize 10 maximum 1000 step 1

  457.             code0 {o->value(pars->Pbandwidth);}

  458.             code1 {if (pars->Pmode!=0) o->deactivate();}

  459.             class WidgetPDial

  460.           }

  461.           Fl_Value_Output bwcents {

  462.             label cents

  463.             xywh {55 305 55 15} labelsize 10 align 6 maximum 10000 step 0.1

  464.             code0 {o->value(pars->setPbandwidth(pars->Pbandwidth));}

  465.             code1 {if (pars->Pmode!=0) o->deactivate();}

  466.           }

  467.           Fl_Group {} {

  468.             xywh {315 295 215 45} box UP_FRAME

  469.           } {

  470.             Fl_Choice hrpostype {

  471.               label OvertonesPosition

  472.               callback {pars->Phrpos.type=o->value();

  473. overtonepos->redraw();

  474. cbwidget->do_callback();}

  475.               xywh {325 310 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 11

  476.               code0 {o->value(pars->Phrpos.type);}

  477.             } {

  478.               MenuItem {} {

  479.                 label Harmonic

  480.                 xywh {70 70 100 20} labelfont 1 labelsize 11

  481.               }

  482.               MenuItem {} {

  483.                 label ShiftU

  484.                 xywh {80 80 100 20} labelfont 1 labelsize 11

  485.               }

  486.               MenuItem {} {

  487.                 label ShiftL

  488.                 xywh {90 90 100 20} labelfont 1 labelsize 11

  489.               }

  490.               MenuItem {} {

  491.                 label PowerU

  492.                 xywh {90 90 100 20} labelfont 1 labelsize 11

  493.               }

  494.               MenuItem {} {

  495.                 label PowerL

  496.                 xywh {100 100 100 20} labelfont 1 labelsize 11

  497.               }

  498.               MenuItem {} {

  499.                 label Sine

  500.                 xywh {110 110 100 20} labelfont 1 labelsize 11

  501.               }

  502.               MenuItem {} {

  503.                 label Power

  504.                 xywh {120 120 100 20} labelfont 1 labelsize 11

  505.               }

  506.               MenuItem {} {

  507.                 label Shift selected

  508.                 xywh {130 130 100 20} labelfont 1 labelsize 11

  509.               }

  510.             }

  511.             Fl_Dial hrpospar1 {

  512.               label Par1

  513.               callback {pars->Phrpos.par1=(int) o->value();

  514. overtonepos->redraw();

  515. cbwidget->do_callback();}

  516.               xywh {425 310 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 255 step 1

  517.               code0 {o->value(pars->Phrpos.par1);}

  518.               class WidgetPDial

  519.             }

  520.             Fl_Dial hrpospar2 {

  521.               label Par2

  522.               callback {pars->Phrpos.par2=(int) o->value();

  523. overtonepos->redraw();

  524. cbwidget->do_callback();}

  525.               xywh {460 310 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 255 step 1

  526.               code0 {o->value(pars->Phrpos.par2);}

  527.               class WidgetPDial

  528.             }

  529.             Fl_Dial hrpospar3 {

  530.               label ForceH

  531.               callback {pars->Phrpos.par3=(int) o->value();

  532. overtonepos->redraw();

  533. cbwidget->do_callback();}

  534.               xywh {495 310 25 25} box ROUND_UP_BOX labelsize 10 align 1 maximum 255 step 1

  535.               code0 {o->value(pars->Phrpos.par3);}

  536.               class WidgetPDial

  537.             }

  538.           }

  539.           Fl_Choice bwscale {

  540.             label {Bandwidth Scale}

  541.             callback {pars->Pbwscale=(int) o->value();

  542. cbwidget->do_callback();}

  543.             xywh {120 305 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 11

  544.             code0 {o->value(pars->Pbwscale);}

  545.             code1 {if (pars->Pmode!=0) o->deactivate();}

  546.           } {

  547.             MenuItem {} {

  548.               label Normal

  549.               xywh {95 95 100 20} labelfont 1 labelsize 11

  550.             }

  551.             MenuItem {} {

  552.               label EqualHz

  553.               xywh {105 105 100 20} labelfont 1 labelsize 11

  554.             }

  555.             MenuItem {} {

  556.               label Quater

  557.               xywh {115 115 100 20} labelfont 1 labelsize 11

  558.             }

  559.             MenuItem {} {

  560.               label Half

  561.               xywh {125 125 100 20} labelfont 1 labelsize 11

  562.             }

  563.             MenuItem {} {

  564.               label {75%}

  565.               xywh {135 135 100 20} labelfont 1 labelsize 11

  566.             }

  567.             MenuItem {} {

  568.               label {150%}

  569.               xywh {145 145 100 20} labelfont 1 labelsize 11

  570.             }

  571.             MenuItem {} {

  572.               label Double

  573.               xywh {145 145 100 20} labelfont 1 labelsize 11

  574.             }

  575.             MenuItem {} {

  576.               label {Inv.Half}

  577.               xywh {155 155 100 20} labelfont 1 labelsize 11

  578.             }

  579.           }

  580.           Fl_Group overtonepos {

  581.             xywh {5 345 525 45} box FLAT_BOX color 51 selection_color 218 labelcolor 63

  582.             code0 {PADnoteOvertonePosition *opui=new PADnoteOvertonePosition(o->x(),o->y(),o->w(),o->h(),"");}

  583.             code1 {opui->init(pars,master);}

  584.           } {}

  585.           Fl_Choice qsamplesize {

  586.             label {Sample Size}

  587.             callback {pars->Pquality.samplesize=(int) o->value();

  588. cbwidget->do_callback();}

  589.             xywh {375 190 115 20} down_box BORDER_BOX labelsize 10 align 5 textsize 11

  590.             code0 {o->value(pars->Pquality.samplesize);}

  591.           } {

  592.             MenuItem {} {

  593.               label {16k (Tiny)}

  594.               xywh {155 155 100 20} labelfont 1 labelsize 11

  595.             }

  596.             MenuItem {} {

  597.               label 32k

  598.               xywh {165 165 100 20} labelfont 1 labelsize 11

  599.             }

  600.             MenuItem {} {

  601.               label {64k (Small)}

  602.               xywh {175 175 100 20} labelfont 1 labelsize 11

  603.             }

  604.             MenuItem {} {

  605.               label 128k

  606.               xywh {185 185 100 20} labelfont 1 labelsize 11

  607.             }

  608.             MenuItem {} {

  609.               label {256k (Normal)}

  610.               xywh {205 205 100 20} labelfont 1 labelsize 11

  611.             }

  612.             MenuItem {} {

  613.               label 512k

  614.               xywh {200 200 100 20} labelfont 1 labelsize 11

  615.             }

  616.             MenuItem {} {

  617.               label {1M (Big)}

  618.               xywh {205 205 100 20} labelfont 1 labelsize 11

  619.             }

  620.           }

  621.           Fl_Choice qsmpoct {

  622.             label {smp/oct}

  623.             callback {pars->Pquality.smpoct=(int) o->value();

  624. cbwidget->do_callback();}

  625.             xywh {430 155 45 20} down_box BORDER_BOX labelsize 11 align 5 textsize 11

  626.             code0 {o->value(pars->Pquality.smpoct);}

  627.           } {

  628.             MenuItem {} {

  629.               label {0.5}

  630.               xywh {10 10 100 20} labelfont 1 labelsize 11

  631.             }

  632.             MenuItem {} {

  633.               label 1

  634.               xywh {0 0 100 20} labelfont 1 labelsize 11

  635.             }

  636.             MenuItem {} {

  637.               label 2

  638.               xywh {10 10 100 20} labelfont 1 labelsize 11

  639.             }

  640.             MenuItem {} {

  641.               label 3

  642.               xywh {20 20 100 20} labelfont 1 labelsize 11

  643.             }

  644.             MenuItem {} {

  645.               label 4

  646.               xywh {30 30 100 20} labelfont 1 labelsize 11

  647.             }

  648.             MenuItem {} {

  649.               label 6

  650.               xywh {40 40 100 20} labelfont 1 labelsize 11

  651.             }

  652.             MenuItem {} {

  653.               label 12

  654.               xywh {50 50 100 20} labelfont 1 labelsize 11

  655.             }

  656.           }

  657.           Fl_Choice qoct {

  658.             label {no.oct}

  659.             callback {pars->Pquality.oct=(int) o->value();

  660. cbwidget->do_callback();}

  661.             xywh {480 155 45 20} down_box BORDER_BOX labelsize 11 align 5 textsize 11

  662.             code0 {o->value(pars->Pquality.oct);}

  663.           } {

  664.             MenuItem {} {

  665.               label 1

  666.               xywh {10 10 100 20} labelfont 1 labelsize 11

  667.             }

  668.             MenuItem {} {

  669.               label 2

  670.               xywh {20 20 100 20} labelfont 1 labelsize 11

  671.             }

  672.             MenuItem {} {

  673.               label 3

  674.               xywh {30 30 100 20} labelfont 1 labelsize 11

  675.             }

  676.             MenuItem {} {

  677.               label 4

  678.               xywh {40 40 100 20} labelfont 1 labelsize 11

  679.             }

  680.             MenuItem {} {

  681.               label 5

  682.               xywh {50 50 100 20} labelfont 1 labelsize 11

  683.             }

  684.             MenuItem {} {

  685.               label 6

  686.               xywh {60 60 100 20} labelfont 1 labelsize 11

  687.             }

  688.             MenuItem {} {

  689.               label 7

  690.               xywh {70 70 100 20} labelfont 1 labelsize 11

  691.             }

  692.             MenuItem {} {

  693.               label 8

  694.               xywh {80 80 100 20} labelfont 1 labelsize 11

  695.             }

  696.           }

  697.           Fl_Choice qbasenote {

  698.             label base

  699.             callback {pars->Pquality.basenote=(int) o->value();

  700. cbwidget->do_callback();}

  701.             xywh {375 155 50 20} down_box BORDER_BOX labelsize 11 align 5 textsize 11

  702.             code0 {o->value(pars->Pquality.basenote);}

  703.           } {

  704.             MenuItem {} {

  705.               label {C-2}

  706.               xywh {10 10 100 20} labelfont 1

  707.             }

  708.             MenuItem {} {

  709.               label {G-2}

  710.               xywh {20 20 100 20} labelfont 1

  711.             }

  712.             MenuItem {} {

  713.               label {C-3}

  714.               xywh {20 20 100 20} labelfont 1

  715.             }

  716.             MenuItem {} {

  717.               label {G-3}

  718.               xywh {30 30 100 20} labelfont 1

  719.             }

  720.             MenuItem {} {

  721.               label {C-4}

  722.               xywh {30 30 100 20} labelfont 1

  723.             }

  724.             MenuItem {} {

  725.               label {G-4}

  726.               xywh {40 40 100 20} labelfont 1

  727.             }

  728.             MenuItem {} {

  729.               label {C-5}

  730.               xywh {40 40 100 20} labelfont 1

  731.             }

  732.             MenuItem {} {

  733.               label {G-5}

  734.               xywh {50 50 100 20} labelfont 1

  735.             }

  736.             MenuItem {} {

  737.               label {G-6}

  738.               xywh {60 60 100 20} labelfont 1

  739.             }

  740.           }

  741.           Fl_Group hprofile {

  742.             xywh {100 45 430 90} box FLAT_BOX color 51 selection_color 218 labelcolor 63

  743.             code0 {PADnoteHarmonicProfile *hpui=new PADnoteHarmonicProfile(o->x(),o->y(),o->w(),o->h(),"");}

  744.             code1 {hpui->init(pars,master);}

  745.             code2 {if (pars->Pmode!=0) { o->deactivate(); o->color(48);};}

  746.           } {}

  747.           Fl_Box {} {

  748.             label {Profile of One Harmonic (Frequency Distribution)}

  749.             xywh {160 25 315 20}

  750.           }

  751.           Fl_Choice spectrummode {

  752.             label {Spectrum Mode}

  753.             callback {pars->Pmode=(int) o->value();

  754. 

  755. if (pars->Pmode==0){

  756.    bwprofilegroup->activate();

  757.    bwdial->activate();

  758.    bwcents->activate();

  759.    hprofile->activate();

  760.    hprofile->color(51);

  761.    bwscale->activate();

  762. } else {

  763.    bwprofilegroup->deactivate();

  764.    bwdial->deactivate();

  765.    bwcents->deactivate();

  766.    hprofile->deactivate();

  767.    hprofile->color(48);

  768.    bwscale->deactivate();

  769. };

  770. 

  771. cbwidget->do_callback();}

  772.             xywh {220 305 90 20} down_box BORDER_BOX labelfont 1 labelsize 10 align 5 textsize 11

  773.             code0 {o->value(pars->Pmode);}

  774.           } {

  775.             MenuItem {} {

  776.               label Bandwidth

  777.               xywh {105 105 100 20} labelfont 1 labelsize 11

  778.             }

  779.             MenuItem {} {

  780.               label Discrete

  781.               xywh {125 125 100 20} labelfont 1 labelsize 11

  782.             }

  783.             MenuItem {} {

  784.               label Continous

  785.               xywh {115 115 100 20} labelfont 1 labelsize 11

  786.             }

  787.           }

  788.         }

  789.         Fl_Group {} {

  790.           label {Envelopes&LFOs} open

  791.           xywh {0 20 535 375} box UP_FRAME hide

  792.         } {

  793.           Fl_Group {} {

  794.             label FREQUENCY

  795.             xywh {5 275 525 115} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  796.           } {

  797.             Fl_Group freqenv {

  798.               label {PADSynth - Frequency Envelope} open

  799.               xywh {10 315 205 70} box FLAT_BOX color 51 align 144

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

  801.               class EnvelopeUI

  802.             } {}

  803.             Fl_Counter octave {

  804.               label Octave

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

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

  807. pars->PCoarseDetune = k*1024+

  808.    pars->PCoarseDetune%1024;}

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

  810.               code0 {int k=pars->PCoarseDetune/1024;}

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

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

  813.             }

  814.             Fl_Counter coarsedet {

  815.               label {Coarse det.}

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

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

  818. pars->PCoarseDetune = k+

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

  820.               tooltip {Coarse Detune} xywh {455 365 70 20} type Simple labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 11

  821.               code0 {int k=pars->PCoarseDetune%1024;}

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

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

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

  825.             }

  826.             Fl_Group freqlfo {

  827.               label {Frequency LFO     } open

  828.               xywh {215 315 230 70} box FLAT_BOX color 47 align 144

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

  830.               class LFOUI

  831.             } {}

  832.             Fl_Slider detune {

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

  834. detunevalueoutput->do_callback();}

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

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

  837.             }

  838.             Fl_Value_Output detunevalueoutput {

  839.               label Detune

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

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

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

  843.             }

  844.             Fl_Choice detunetype {

  845.               label {Detune Type}

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

  847. detunevalueoutput->do_callback();} open

  848.               xywh {450 330 75 20} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10

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

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

  851.             } {}

  852.             Fl_Check_Button hz440 {

  853.               label 440Hz

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

  855. pars->Pfixedfreq=x;

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

  857.    else fixedfreqetdial->activate();}

  858.               tooltip {set the base frequency to 440Hz} xywh {365 295 50 15} down_box DOWN_BOX labelfont 1 labelsize 10

  859.               code0 {o->value(pars->Pfixedfreq);}

  860.             }

  861.             Fl_Dial fixedfreqetdial {

  862.               label {Eq.T.}

  863.               callback {pars->PfixedfreqET=(int) o->value();}

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

  865.               code0 {o->value(pars->PfixedfreqET);}

  866.               code1 {if (pars->Pfixedfreq==0) o->deactivate();}

  867.               class WidgetPDial

  868.             }

  869.           }

  870.           Fl_Group {} {

  871.             label AMPLITUDE

  872.             xywh {5 25 240 250} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  873.           } {

  874.             Fl_Value_Slider volume {

  875.               label Vol

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

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

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

  879.             }

  880.             Fl_Value_Slider vsns {

  881.               label {V.Sns}

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

  883.               tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 70 160 15} type {Horz Knob} box NO_BOX labelsize 11 align 8 maximum 127 step 1

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

  885.             }

  886.             Fl_Dial pan {

  887.               label Pan

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

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

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

  891.               class WidgetPDial

  892.             }

  893.             Fl_Dial pstr {

  894.               label {P.Str.}

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

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

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

  898.               class WidgetPDial

  899.             }

  900.             Fl_Dial pt {

  901.               label {P.t.}

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

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

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

  905.               class WidgetPDial

  906.             }

  907.             Fl_Dial pstc {

  908.               label {P.Stc.}

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

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

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

  912.               class WidgetPDial

  913.             }

  914.             Fl_Dial pvel {

  915.               label {P.Vel.}

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

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

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

  919.               class WidgetPDial

  920.             }

  921.             Fl_Group ampenv {

  922.               label {PADSynth - Amplitude Envelope} open

  923.               xywh {10 95 205 70} box FLAT_BOX color 51 align 144

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

  925.               class EnvelopeUI

  926.             } {}

  927.             Fl_Group amplfo {

  928.               label {Amplitude LFO     } open

  929.               xywh {10 165 230 70} box FLAT_BOX color 47 align 144

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

  931.               class LFOUI

  932.             } {}

  933.             Fl_Check_Button stereo {

  934.               label Stereo

  935.               callback {pars->PStereo=(int) o->value();

  936. hprofile->redraw();}

  937.               xywh {15 245 70 25} down_box DOWN_BOX

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

  939.             }

  940.           }

  941.           Fl_Group {} {

  942.             label FILTER

  943.             xywh {245 25 285 250} box UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 13 align 17

  944.           } {

  945.             Fl_Group filterenv {

  946.               label {PADSynth - Filter Envelope} open

  947.               xywh {250 130 275 70} box FLAT_BOX color 51 align 144

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

  949.               class EnvelopeUI

  950.             } {}

  951.             Fl_Group filterlfo {

  952.               label {Filter LFO     } open

  953.               xywh {250 200 230 70} box FLAT_BOX color 47 align 144

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

  955.               class LFOUI

  956.             } {}

  957.             Fl_Group filterui {

  958.               label {PADsynth - Filter} open

  959.               xywh {250 55 275 75} box FLAT_BOX color 50 align 144

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

  961.               class FilterUI

  962.             } {}

  963.           }

  964.         }

  965.       }

  966.       Fl_Button applybutton {

  967.         label {Apply Changes}

  968.         callback {pars->applyparameters(true);

  969. o->color(FL_GRAY);

  970. if (oscui!=NULL) {

  971. 	oscui->applybutton->color(FL_GRAY);

  972. 	oscui->applybutton->redraw();

  973. };

  974. if (resui!=NULL) {

  975. 	resui->applybutton->color(FL_GRAY);

  976. 	resui->applybutton->redraw();

  977. };}

  978.         xywh {300 400 135 30} box THIN_UP_BOX

  979.         code0 {o->color(FL_RED);}

  980.       }

  981.       Fl_Button {} {

  982.         label Close

  983.         callback {padnotewindow->hide();}

  984.         xywh {440 400 90 30} box THIN_UP_BOX

  985.       }

  986.       Fl_Button {} {

  987.         label C

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

  989.         xywh {65 400 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  990.       }

  991.       Fl_Button {} {

  992.         label P

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

  994.         xywh {95 400 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  995.       }

  996.       Fl_Button {} {

  997.         label export

  998.         callback {char *filename;

  999. filename=fl_file_chooser("Export samples:","(*.wav)",NULL,0);

  1000. if (filename==NULL) return;

  1001. fl_filename_setext(filename,"");

  1002. 

  1003. 

  1004. 

  1005. pars->export2wav(filename);}

  1006.         tooltip {export samples as wav file} xywh {5 400 55 30} box THIN_UP_BOX color 51 labelsize 11 align 128

  1007.       }

  1008.     }

  1009.   }

  1010.   Function {refresh()} {} {

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

  1012. vsns->value(pars->PAmpVelocityScaleFunction);

  1013. pan->value(pars->PPanning);

  1014. 

  1015. stereo->value(pars->PStereo);

  1016. 

  1017. 

  1018. pstr->value(pars->PPunchStrength);

  1019. pt->value(pars->PPunchTime);

  1020. pstc->value(pars->PPunchStretch);

  1021. pvel->value(pars->PPunchVelocitySensing);

  1022. 

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

  1024. detune->value(pars->PDetune-8192);

  1025. 

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

  1027. octave->value(k);

  1028. 

  1029. detunetype->value(pars->PDetuneType-1);

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

  1031. coarsedet->value(k);

  1032. 

  1033. hz440->value(pars->Pfixedfreq);

  1034. fixedfreqetdial->value(pars->PfixedfreqET);

  1035. 

  1036. amplfo->refresh();

  1037. freqlfo->refresh();

  1038. filterlfo->refresh();

  1039. 

  1040. ampenv->refresh();

  1041. freqenv->refresh();

  1042. filterenv->refresh();

  1043. filterui->refresh();

  1044. 

  1045. 

  1046. /* harmonic structure parametrs */

  1047. 

  1048. resui->refresh();

  1049. if (oscui!=NULL) oscui->refresh();

  1050. 

  1051. hpbasetype->value(pars->Php.base.type);

  1052. hpbasepar1->value(pars->Php.base.par1);

  1053. hpfreqmult->value(pars->Php.freqmult);

  1054. 

  1055. hpmpar1->value(pars->Php.modulator.par1);

  1056. hpmfreq->value(pars->Php.modulator.freq);

  1057. hpwidth->value(pars->Php.width);

  1058. 

  1059. hponehalf->value(pars->Php.onehalf);

  1060. hpamptype->value(pars->Php.amp.type);

  1061. hpampmode->value(pars->Php.amp.mode);

  1062. hpamppar1->value(pars->Php.amp.par1);

  1063. hpamppar2->value(pars->Php.amp.par2);

  1064. hpautoscale->value(pars->Php.autoscale);

  1065. 

  1066. bwdial->value(pars->Pbandwidth);

  1067. if (pars->Pmode==0){

  1068.    bwprofilegroup->activate();

  1069.    bwdial->activate();

  1070.    bwcents->activate();

  1071.    hprofile->activate();

  1072.    hprofile->color(51);

  1073.    bwscale->activate();

  1074. } else {

  1075.    bwprofilegroup->deactivate();

  1076.    bwdial->deactivate();

  1077.    bwcents->deactivate();

  1078.    hprofile->deactivate();

  1079.    hprofile->color(48);

  1080.    bwscale->activate();

  1081. };

  1082. 

  1083. spectrummode->value(pars->Pmode);

  1084. 

  1085. qbasenote->value(pars->Pquality.basenote);

  1086. qsmpoct->value(pars->Pquality.smpoct);

  1087. qoct->value(pars->Pquality.oct);

  1088. qsamplesize->value(pars->Pquality.samplesize);

  1089. 

  1090. hrpostype->value(pars->Phrpos.type);

  1091. hrpospar1->value(pars->Phrpos.par1);

  1092. hrpospar2->value(pars->Phrpos.par2);

  1093. hrpospar3->value(pars->Phrpos.par3);

  1094. 

  1095. hprofile->redraw();

  1096. overtonepos->redraw();

  1097. 

  1098. osc->redraw();

  1099. pars->applyparameters(true);

  1100. applybutton->color(FL_GRAY);

  1101. applybutton->parent()->redraw();} {}

  1102.   }

  1103.   Function {~PADnoteUI()} {} {

  1104.     code {delete(oscui);

  1105. delete(resui);

  1106. 

  1107. padnotewindow->hide();

  1108. delete(padnotewindow);} {}

  1109.   }

  1110.   decl {PADnoteParameters *pars;} {public

  1111.   }

  1112.   decl {Master *master;} {public

  1113.   }

  1114.   decl {OscilEditor *oscui;} {public

  1115.   }

  1116.   decl {Oscilloscope *osc;} {public

  1117.   }

  1118.   decl {ResonanceUI *resui;} {public

  1119.   }

  1120. }