falkTX
/
Carla
mirror of https://github.com/falkTX/Carla
1
0
Fork 0
Code Releases 43 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.
516 Commits
17 Branches
546MB
Tree: c13a875acb
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'c13a875acb'
${ noResults }
Carla/source/backend/native/zynaddsubfx/UI/PADnoteUI.fl

1117 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 {294 392 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.             }

  507.             Fl_Dial hrpospar1 {

  508.               label Par1

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

  510. overtonepos->redraw();

  511. cbwidget->do_callback();}

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

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

  514.               class WidgetPDial

  515.             }

  516.             Fl_Dial hrpospar2 {

  517.               label Par2

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

  519. overtonepos->redraw();

  520. cbwidget->do_callback();}

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

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

  523.               class WidgetPDial

  524.             }

  525.             Fl_Dial hrpospar3 {

  526.               label ForceH

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

  528. overtonepos->redraw();

  529. cbwidget->do_callback();}

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

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

  532.               class WidgetPDial

  533.             }

  534.           }

  535.           Fl_Choice bwscale {

  536.             label {Bandwidth Scale}

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

  538. cbwidget->do_callback();}

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

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

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

  542.           } {

  543.             MenuItem {} {

  544.               label Normal

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

  546.             }

  547.             MenuItem {} {

  548.               label EqualHz

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

  550.             }

  551.             MenuItem {} {

  552.               label Quater

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

  554.             }

  555.             MenuItem {} {

  556.               label Half

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

  558.             }

  559.             MenuItem {} {

  560.               label {75%}

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

  562.             }

  563.             MenuItem {} {

  564.               label {150%}

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

  566.             }

  567.             MenuItem {} {

  568.               label Double

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

  570.             }

  571.             MenuItem {} {

  572.               label {Inv.Half}

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

  574.             }

  575.           }

  576.           Fl_Group overtonepos {

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

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

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

  580.           } {}

  581.           Fl_Choice qsamplesize {

  582.             label {Sample Size}

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

  584. cbwidget->do_callback();}

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

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

  587.           } {

  588.             MenuItem {} {

  589.               label {16k (Tiny)}

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

  591.             }

  592.             MenuItem {} {

  593.               label 32k

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

  595.             }

  596.             MenuItem {} {

  597.               label {64k (Small)}

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

  599.             }

  600.             MenuItem {} {

  601.               label 128k

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

  603.             }

  604.             MenuItem {} {

  605.               label {256k (Normal)}

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

  607.             }

  608.             MenuItem {} {

  609.               label 512k

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

  611.             }

  612.             MenuItem {} {

  613.               label {1M (Big)}

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

  615.             }

  616.           }

  617.           Fl_Choice qsmpoct {

  618.             label {smp/oct}

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

  620. cbwidget->do_callback();}

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

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

  623.           } {

  624.             MenuItem {} {

  625.               label {0.5}

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

  627.             }

  628.             MenuItem {} {

  629.               label 1

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

  631.             }

  632.             MenuItem {} {

  633.               label 2

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

  635.             }

  636.             MenuItem {} {

  637.               label 3

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

  639.             }

  640.             MenuItem {} {

  641.               label 4

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

  643.             }

  644.             MenuItem {} {

  645.               label 6

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

  647.             }

  648.             MenuItem {} {

  649.               label 12

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

  651.             }

  652.           }

  653.           Fl_Choice qoct {

  654.             label {no.oct}

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

  656. cbwidget->do_callback();}

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

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

  659.           } {

  660.             MenuItem {} {

  661.               label 1

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

  663.             }

  664.             MenuItem {} {

  665.               label 2

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

  667.             }

  668.             MenuItem {} {

  669.               label 3

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

  671.             }

  672.             MenuItem {} {

  673.               label 4

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

  675.             }

  676.             MenuItem {} {

  677.               label 5

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

  679.             }

  680.             MenuItem {} {

  681.               label 6

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

  683.             }

  684.             MenuItem {} {

  685.               label 7

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

  687.             }

  688.             MenuItem {} {

  689.               label 8

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

  691.             }

  692.           }

  693.           Fl_Choice qbasenote {

  694.             label base

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

  696. cbwidget->do_callback();}

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

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

  699.           } {

  700.             MenuItem {} {

  701.               label {C-2}

  702.               xywh {10 10 100 20} labelfont 1

  703.             }

  704.             MenuItem {} {

  705.               label {G-2}

  706.               xywh {20 20 100 20} labelfont 1

  707.             }

  708.             MenuItem {} {

  709.               label {C-3}

  710.               xywh {20 20 100 20} labelfont 1

  711.             }

  712.             MenuItem {} {

  713.               label {G-3}

  714.               xywh {30 30 100 20} labelfont 1

  715.             }

  716.             MenuItem {} {

  717.               label {C-4}

  718.               xywh {30 30 100 20} labelfont 1

  719.             }

  720.             MenuItem {} {

  721.               label {G-4}

  722.               xywh {40 40 100 20} labelfont 1

  723.             }

  724.             MenuItem {} {

  725.               label {C-5}

  726.               xywh {40 40 100 20} labelfont 1

  727.             }

  728.             MenuItem {} {

  729.               label {G-5}

  730.               xywh {50 50 100 20} labelfont 1

  731.             }

  732.             MenuItem {} {

  733.               label {G-6}

  734.               xywh {60 60 100 20} labelfont 1

  735.             }

  736.           }

  737.           Fl_Group hprofile {

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

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

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

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

  742.           } {}

  743.           Fl_Box {} {

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

  745.             xywh {160 25 315 20}

  746.           }

  747.           Fl_Choice spectrummode {

  748.             label {Spectrum Mode}

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

  750. 

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

  752.    bwprofilegroup->activate();

  753.    bwdial->activate();

  754.    bwcents->activate();

  755.    hprofile->activate();

  756.    hprofile->color(54);

  757.    bwscale->activate();

  758. } else {

  759.    bwprofilegroup->deactivate();

  760.    bwdial->deactivate();

  761.    bwcents->deactivate();

  762.    hprofile->deactivate();

  763.    hprofile->color(48);

  764.    bwscale->deactivate();

  765. };

  766. 

  767. cbwidget->do_callback();}

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

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

  770.           } {

  771.             MenuItem {} {

  772.               label Bandwidth

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

  774.             }

  775.             MenuItem {} {

  776.               label Discrete

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

  778.             }

  779.             MenuItem {} {

  780.               label Continous

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

  782.             }

  783.           }

  784.         }

  785.         Fl_Group {} {

  786.           label {Envelopes&LFOs} open

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

  788.         } {

  789.           Fl_Group {} {

  790.             label FREQUENCY

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

  792.           } {

  793.             Fl_Group freqenv {

  794.               label {PADSynth - Frequency Envelope} open

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

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

  797.               class EnvelopeUI

  798.             } {}

  799.             Fl_Counter octave {

  800.               label Octave

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

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

  803. pars->PCoarseDetune = k*1024+

  804.    pars->PCoarseDetune%1024;}

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

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

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

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

  809.             }

  810.             Fl_Counter coarsedet {

  811.               label {Coarse det.}

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

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

  814. pars->PCoarseDetune = k+

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

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

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

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

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

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

  821.             }

  822.             Fl_Group freqlfo {

  823.               label {Frequency LFO     } open

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

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

  826.               class LFOUI

  827.             } {}

  828.             Fl_Slider detune {

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

  830. detunevalueoutput->do_callback();}

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

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

  833.             }

  834.             Fl_Value_Output detunevalueoutput {

  835.               label Detune

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

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

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

  839.             }

  840.             Fl_Choice detunetype {

  841.               label {Detune Type}

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

  843. detunevalueoutput->do_callback();} open

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

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

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

  847.             } {}

  848.             Fl_Check_Button hz440 {

  849.               label 440Hz

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

  851. pars->Pfixedfreq=x;

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

  853.    else fixedfreqetdial->activate();}

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

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

  856.             }

  857.             Fl_Dial fixedfreqetdial {

  858.               label {Eq.T.}

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

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

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

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

  863.               class WidgetPDial

  864.             }

  865.           }

  866.           Fl_Group {} {

  867.             label AMPLITUDE

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

  869.           } {

  870.             Fl_Value_Slider volume {

  871.               label Vol

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

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

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

  875.             }

  876.             Fl_Value_Slider vsns {

  877.               label {V.Sns}

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

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

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

  881.             }

  882.             Fl_Dial pan {

  883.               label Pan

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

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

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

  887.               class WidgetPDial

  888.             }

  889.             Fl_Dial pstr {

  890.               label {P.Str.}

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

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

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

  894.               class WidgetPDial

  895.             }

  896.             Fl_Dial pt {

  897.               label {P.t.}

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

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

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

  901.               class WidgetPDial

  902.             }

  903.             Fl_Dial pstc {

  904.               label {P.Stc.}

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

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

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

  908.               class WidgetPDial

  909.             }

  910.             Fl_Dial pvel {

  911.               label {P.Vel.}

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

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

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

  915.               class WidgetPDial

  916.             }

  917.             Fl_Group ampenv {

  918.               label {PADSynth - Amplitude Envelope} open

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

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

  921.               class EnvelopeUI

  922.             } {}

  923.             Fl_Group amplfo {

  924.               label {Amplitude LFO     } open

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

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

  927.               class LFOUI

  928.             } {}

  929.             Fl_Check_Button stereo {

  930.               label Stereo

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

  932. hprofile->redraw();}

  933.               xywh {15 245 70 25} down_box DOWN_BOX

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

  935.             }

  936.           }

  937.           Fl_Group {} {

  938.             label FILTER

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

  940.           } {

  941.             Fl_Group filterenv {

  942.               label {PADSynth - Filter Envelope} open

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

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

  945.               class EnvelopeUI

  946.             } {}

  947.             Fl_Group filterlfo {

  948.               label {Filter LFO     } open

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

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

  951.               class LFOUI

  952.             } {}

  953.             Fl_Group filterui {

  954.               label {PADsynth - Filter} open

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

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

  957.               class FilterUI

  958.             } {}

  959.           }

  960.         }

  961.       }

  962.       Fl_Button applybutton {

  963.         label {Apply Changes}

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

  965. o->color(FL_GRAY);

  966. if (oscui!=NULL) {

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

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

  969. };

  970. if (resui!=NULL) {

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

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

  973. };}

  974.         xywh {300 400 135 30} box THIN_UP_BOX

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

  976.       }

  977.       Fl_Button {} {

  978.         label Close

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

  980.         xywh {440 400 90 30} box THIN_UP_BOX

  981.       }

  982.       Fl_Button {} {

  983.         label C

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

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

  986.       }

  987.       Fl_Button {} {

  988.         label P

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

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

  991.       }

  992.       Fl_Button {} {

  993.         label export

  994.         callback {char *filename;

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

  996. if (filename==NULL) return;

  997. fl_filename_setext(filename,"");

  998. 

  999. 

  1000. 

  1001. pars->export2wav(filename);}

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

  1003.       }

  1004.     }

  1005.   }

  1006.   Function {refresh()} {} {

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

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

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

  1010. 

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

  1012. 

  1013. 

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

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

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

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

  1018. 

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

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

  1021. 

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

  1023. octave->value(k);

  1024. 

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

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

  1027. coarsedet->value(k);

  1028. 

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

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

  1031. 

  1032. amplfo->refresh();

  1033. freqlfo->refresh();

  1034. filterlfo->refresh();

  1035. 

  1036. ampenv->refresh();

  1037. freqenv->refresh();

  1038. filterenv->refresh();

  1039. filterui->refresh();

  1040. 

  1041. 

  1042. /* harmonic structure parametrs */

  1043. 

  1044. resui->refresh();

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

  1046. 

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

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

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

  1050. 

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

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

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

  1054. 

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

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

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

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

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

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

  1061. 

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

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

  1064.    bwprofilegroup->activate();

  1065.    bwdial->activate();

  1066.    bwcents->activate();

  1067.    hprofile->activate();

  1068.    hprofile->color(54);

  1069.    bwscale->activate();

  1070. } else {

  1071.    bwprofilegroup->deactivate();

  1072.    bwdial->deactivate();

  1073.    bwcents->deactivate();

  1074.    hprofile->deactivate();

  1075.    hprofile->color(48);

  1076.    bwscale->activate();

  1077. };

  1078. 

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

  1080. 

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

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

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

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

  1085. 

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

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

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

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

  1090. 

  1091. hprofile->redraw();

  1092. overtonepos->redraw();

  1093. 

  1094. osc->redraw();

  1095. pars->applyparameters(true);

  1096. applybutton->color(FL_GRAY);

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

  1098.   }

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

  1100.     code {delete(oscui);

  1101. delete(resui);

  1102. 

  1103. padnotewindow->hide();

  1104. delete(padnotewindow);} {}

  1105.   }

  1106.   decl {PADnoteParameters *pars;} {public

  1107.   }

  1108.   decl {Master *master;} {public

  1109.   }

  1110.   decl {OscilEditor *oscui;} {public

  1111.   }

  1112.   decl {Oscilloscope *osc;} {public

  1113.   }

  1114.   decl {ResonanceUI *resui;} {public

  1115.   }

  1116. }