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.
168 Commits
16 Branches
14GB
Tree: d7ec8f7122
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd7ec8f7122'
${ noResults }
Carla/source/backend/native/zynaddsubfx/UI/OscilGenUI.fl

1151 lines
33KB
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 {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 

  6. 

  7. decl {//License: GNU GPL version 2 or later} {} 

  8. 

  9. decl {\#include "../Synth/OscilGen.h"} {public

  10. } 

  11. 

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

  13. } 

  14. 

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

  16. } 

  17. 

  18. decl {\#include "ResonanceUI.h"} {public

  19. } 

  20. 

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

  22. } 

  23. 

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

  25. } 

  26. 

  27. decl {\#include <FL/Fl_Slider.H>} {public

  28. } 

  29. 

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

  31. 

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

  33. 

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

  35. 

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

  37. 

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

  39. } 

  40. 

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

  42. } 

  43. 

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

  45. } 

  46. 

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

  48. } 

  49. 

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

  51. } 

  52. 

  53. decl {\#include <FL/fl_draw.H>} {public

  54. } 

  55. 

  56. class OscilSpectrum {: {public Fl_Box}

  57. } {

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

  59.     code {oscil=NULL;} {}

  60.   }

  61.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {

  62.     code {oscil=oscil_;

  63. oscbase=oscbase_;

  64. master=master_;} {}

  65.   }

  66.   Function {draw()} {} {

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

  68. const int maxdb=60;//must be multiple of 10

  69. int GX=2;

  70. int n=lx/GX-1;

  71. if (n>synth->oscilsize/2) n=synth->oscilsize/2;

  72. 

  73. float x;

  74. float* spc=new float[n];

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

  76. 

  77. pthread_mutex_lock(&master->mutex);

  78. if (oscbase==0) oscil->getspectrum(n,spc,0);

  79.     else oscil->getspectrum(n,spc,1);

  80. pthread_mutex_unlock(&master->mutex);

  81. 

  82. //normalize

  83. float max=0;

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

  85.    x=fabs(spc[i]);

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

  87. }

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

  89. max=max*1.05;

  90. 

  91. //draw

  92. 

  93. if (this->active_r()) fl_color(this->parent()->selection_color());

  94.     else fl_color(this->parent()->color());

  95. fl_line_style(FL_DOT);

  96. 

  97. for (i=1;i<maxdb/10;i++){

  98.   int ky=(int)((float)i*ly*10.0/maxdb)/2;

  99.   ky*=2;

  100.   fl_line(ox,oy+ky-1,ox+lx-2,oy+ky-1);

  101. };

  102. 

  103. for (i=2;i<n;i++){

  104.     int tmp=i*GX-2;

  105.     if (i%10==1) fl_line_style(0);

  106.        else fl_line_style(FL_DOT);

  107.     fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);

  108. }

  109. 

  110. if (this->active_r()) fl_color(this->parent()->labelcolor());

  111.     else fl_color(this->parent()->color());

  112. fl_line_style(0);

  113. 

  114. //draws the spectrum

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

  116.    int tmp=i*GX+2;

  117.    x=spc[i]/max;

  118.    

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

  120.        else x=0;

  121. 

  122.    int val=(int) ((ly-2)*x);

  123.    if (val>0) fl_line(ox+tmp,oy+ly-2-val,ox+tmp,oy+ly-2);

  124. }

  125. delete [] spc;} {}

  126.   }

  127.   decl {OscilGen *oscil;} {}

  128.   decl {int oscbase;} {}

  129.   decl {Master *master;} {}

  130. } 

  131. 

  132. class PSlider {: {public Fl_Slider}

  133. } {

  134.   Function {PSlider(int x,int y, int w, int h, const char *label=0):Fl_Slider(x,y,w,h,label)} {} {

  135.     code {;} {}

  136.   }

  137.   Function {handle(int event)} {return_type int

  138.   } {

  139.     code {int X=x(),Y=y(),W=w(),H=h();

  140. 

  141. if ((!Fl::event_buttons())|| (event==0)||(Fl::event_shift()==0)) return(Fl_Slider::handle(event));

  142. 

  143. if (!Fl::event_inside(X,Y,W,H)) {

  144. 	if (event==FL_DRAG){

  145. 		Fl_Slider::handle(FL_RELEASE);

  146. 		Fl_Slider::handle(FL_LEAVE);

  147. 		deactivate();

  148. 		activate();

  149. 		return(1);	

  150. 	}else{

  151. 		return(Fl_Slider::handle(event));

  152. 	};

  153. } else {

  154. 	//Fl_Slider::handle(FL_FOCUS);

  155. 	Fl_Slider::handle(FL_PUSH);

  156. };

  157. 

  158. return(1);} {}

  159.   }

  160. } 

  161. 

  162. class Oscilloscope {open : {public Fl_Box}

  163. } {

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

  165.   } {

  166.     code {oscil=NULL;

  167. phase=64;

  168. oscbase=0;

  169. box(FL_FLAT_BOX);} {}

  170.   }

  171.   Function {init(OscilGen *oscil_,Master *master_)} {} {

  172.     code {oscil=oscil_;

  173. master=master_;} {}

  174.   }

  175.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {

  176.     code {oscil=oscil_;

  177. oscbase=oscbase_;

  178. master=master_;} {}

  179.   }

  180.   Function {init(OscilGen *oscil_,int oscbase_,int phase_,Master *master_)} {} {

  181.     code {oscil=oscil_;

  182. oscbase=oscbase_;

  183. phase=phase_;

  184. master=master_;} {}

  185.   }

  186.   Function {draw()} {open

  187.   } {

  188.     code {int ox=x(),oy=y(),lx=w(),ly=h()-1,i;

  189. float smps[synth->oscilsize];

  190. pthread_mutex_lock(&master->mutex);

  191. if (oscbase==0) oscil->get(smps,-1.0);

  192.     else oscil->getcurrentbasefunction(smps);

  193. pthread_mutex_unlock(&master->mutex);

  194. 

  195. if (damage()!=1){

  196.  fl_color( fl_color_average( FL_BLACK, FL_BACKGROUND_COLOR, 0.5 ));

  197.  fl_rectf(ox,oy,lx,ly);

  198. };

  199. 

  200. //normalize

  201. float max=0;

  202. for (i=0;i<synth->oscilsize;i++)

  203.    if (max<fabs(smps[i])) max=fabs(smps[i]);

  204. //fprintf(stderr,"%.4f\\n",max);

  205. if (max<0.00001) max=1.0;

  206. max=-max*1.05;

  207. 

  208. //draw

  209. fl_line_style(FL_DASH);

  210. if (this->active_r()) fl_color(this->parent()->labelcolor());

  211.     else fl_color(this->parent()->color());

  212. int GX=16;if (lx<GX*3) GX=-1;

  213. for (i=1;i<GX;i++){

  214.    int tmp=(int)(lx/(float)GX*i);

  215.    fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);

  216. };

  217. int GY=8;if (ly<GY*3) GY=-1;

  218. for (i=1;i<GY;i++){

  219.    int tmp=(int)(ly/(float)GY*i);

  220.    fl_line(ox+2,oy+tmp,ox+lx-2,oy+tmp);

  221. };

  222. 

  223. //draw the function

  224. fl_line_style(0,1);

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

  226. if (this->active_r()) fl_color(this->parent()->selection_color());

  227.     else fl_color(this->parent()->labelcolor());

  228.     

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

  230. 

  231. int lw=2;

  232. //if ((lx<135)||(ly<135)) lw=1;

  233. fl_line_style(FL_SOLID,lw);

  234. fl_begin_line();

  235. double ph=((phase-64.0)/128.0*synth->oscilsize+synth->oscilsize);

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

  237.    int k2=(synth->oscilsize*i/lx)+ph;

  238.    double y2=smps[k2%synth->oscilsize]/max;

  239.    fl_vertex(i+ox,y2*ly/2.0+oy+ly/2);

  240. };

  241. fl_end_line();

  242. 

  243. fl_line_style(FL_SOLID,0);} {}

  244.   }

  245.   decl {OscilGen *oscil;} {}

  246.   decl {int oscbase;} {}

  247.   decl {int phase;} {public

  248.   }

  249.   decl {Master *master;} {}

  250. } 

  251. 

  252. class Oscilharmonic {: {public Fl_Group}

  253. } {

  254.   Function {make_window()} {open private

  255.   } {

  256.     Fl_Window harmonic {open

  257.       private xywh {338 259 100 225} type Double box NO_BOX

  258.       class Fl_Group visible

  259.     } {

  260.       Fl_Slider mag {

  261.         callback {int x=64;

  262. if (Fl::event_button3()) o->value(x);

  263.    else x=127-(int)o->value();

  264. if (x==64) o->selection_color(0);

  265.     else o->selection_color(222);

  266. 

  267. pthread_mutex_lock(&master->mutex);

  268.  oscil->Phmag[n]=x;

  269.  if (x==64) {

  270.     oscil->Phphase[n]=64;

  271.     phase->value(64);

  272.  };

  273.  oscil->prepare();

  274. pthread_mutex_unlock(&master->mutex);

  275. 

  276. display->redraw();

  277. oldosc->redraw();

  278. if (cbwidget!=NULL) {

  279. 	cbwidget->do_callback();

  280. 	applybutton->color(FL_RED);

  281. 	applybutton->redraw();

  282. };}

  283.         xywh {0 15 15 115} type {Vert Knob} box NO_BOX selection_color 222 maximum 127 step 1 value 64

  284.         code0 {o->value(127-oscil->Phmag[n]);}

  285.         code1 {if (oscil->Phmag[n]==64) o->selection_color(0);}

  286.         class PSlider

  287.       }

  288.       Fl_Slider phase {

  289.         callback {int x=64;

  290. if (Fl::event_button3()) o->value(x);

  291.    else x=(int)o->value();

  292. 

  293. pthread_mutex_lock(&master->mutex);

  294.  oscil->Phphase[n]=x;

  295.  oscil->prepare();

  296. pthread_mutex_unlock(&master->mutex);

  297. 

  298. display->redraw();

  299. oldosc->redraw();

  300. if (cbwidget!=NULL) {

  301. 	cbwidget->do_callback();

  302. 	applybutton->color(FL_RED);

  303. 	applybutton->redraw();

  304. };}

  305.         xywh {0 135 15 75} type {Vert Knob} box NO_BOX selection_color 222 maximum 127 step 1 value 64

  306.         code0 {o->value(oscil->Phphase[n]);}

  307.         class PSlider

  308.       }

  309.       Fl_Box {} {

  310.         xywh {15 70 5 5} box FLAT_BOX color 45

  311.       }

  312.       Fl_Box {} {

  313.         xywh {15 170 5 5} box FLAT_BOX color 45

  314.       }

  315.       Fl_Box {} {

  316.         label 01

  317.         xywh {0 210 20 15} labelfont 1 labelsize 9 align 20

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

  319.       }

  320.       Fl_Box {} {

  321.         label 01

  322.         xywh {0 0 20 15} labelfont 1 labelsize 9 align 20

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

  324.       }

  325.     }

  326.   }

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

  328.     code {n=0;

  329. oscil=NULL;

  330. display=NULL;

  331. applybutton=NULL;

  332. cbwidget=NULL;} {}

  333.   }

  334.   Function {init(OscilGen *oscil_,int n_,Fl_Group *display_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *applybutton_, Master *master_)} {} {

  335.     code {oscil=oscil_;

  336. n=n_;

  337. display=display_;

  338. master=master_;

  339. oldosc=oldosc_;

  340. cbwidget=cbwidget_;

  341. applybutton=applybutton_;

  342. make_window();

  343. end();

  344. harmonic->show();} {}

  345.   }

  346.   Function {refresh()} {} {

  347.     code {mag->value(127-oscil->Phmag[n]);

  348. phase->value(oscil->Phphase[n]);

  349. 

  350. if (oscil->Phmag[n]==64) mag->selection_color(0);

  351.     else mag->selection_color(222);} {}

  352.   }

  353.   Function {~Oscilharmonic()} {} {

  354.     code {harmonic->hide();

  355. //delete(harmonic);} {}

  356.   }

  357.   decl {OscilGen *oscil;} {}

  358.   decl {Fl_Group *display;} {}

  359.   decl {int n;} {}

  360.   decl {Fl_Widget *oldosc,*cbwidget,*applybutton;} {}

  361.   decl {Master *master;} {}

  362. } 

  363. 

  364. class OscilEditor {open : {public PresetsUI_}

  365. } {

  366.   Function {make_window()} {open

  367.   } {

  368.     Fl_Window osceditUI {

  369.       label {ADsynth Oscillator Editor} open

  370.       xywh {542 193 735 595} type Double

  371.       code0 {if (oscil->ADvsPAD) o->label("PADsynth Harmonic Content Editor");} visible

  372.     } {

  373.       Fl_Button applybutton {

  374.         label Apply

  375.         callback {applybutton->color(FL_GRAY);

  376. applybutton->redraw();

  377. if (cbapplywidget!=NULL) {

  378. 	cbapplywidget->do_callback();

  379. 	cbapplywidget->color(FL_GRAY);

  380. 	cbapplywidget->redraw();

  381. };}

  382.         xywh {300 280 60 20} box THIN_UP_BOX labelfont 1

  383.         code0 {if (!oscil->ADvsPAD) o->hide();}

  384.       }

  385.       Fl_Group oscildisplaygroup {

  386.         xywh {5 5 360 300} box UP_FRAME

  387.       } {

  388.         Fl_Group {} {open

  389.           xywh {10 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

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

  391.           code1 {osc->init(oscil,master);}

  392.         } {}

  393.         Fl_Box {} {

  394.           label Oscillator

  395.           xywh {120 10 110 20} labelfont 1

  396.         }

  397.         Fl_Value_Slider rndslider {

  398.           label rnd

  399.           callback {oscil->Prand=(int)o->value()+64;

  400. oscildisplaygroup->redraw();

  401. oldosc->redraw();}

  402.           tooltip {Oscilator Phase Randomness: smaller than 0 is "group", larger than 0 is for each harmonic} xywh {140 285 100 10} type {Horz Knob} box NO_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1

  403.           code0 {if (oscil->ADvsPAD) o->hide();}

  404.         }

  405.         Fl_Group {} {open

  406.           xywh {10 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63

  407.           code0 {OscilSpectrum *spc=new OscilSpectrum(o->x(),o->y(),o->w(),o->h(),"");}

  408.           code1 {spc->init(oscil,0,master);}

  409.         } {}

  410.         Fl_Group {} {

  411.           xywh {246 277 115 25} box UP_FRAME

  412.           code0 {if (oscil->ADvsPAD) o->hide();}

  413.         } {

  414.           Fl_Choice hrndtype {

  415.             label {H.rnd}

  416.             callback {oscil->Pamprandtype=(int) o->value();}

  417.             tooltip {Harmonic Amplitude Randomness} xywh {281 282 50 15} down_box BORDER_BOX labelsize 10 textsize 10

  418.           } {

  419.             MenuItem {} {

  420.               label None

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

  422.             }

  423.             MenuItem {} {

  424.               label Pow

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

  426.             }

  427.             MenuItem {} {

  428.               label Sin

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

  430.             }

  431.           }

  432.           Fl_Dial hrnddial {

  433.             callback {oscil->Pamprandpower=(int) o->value();}

  434.             tooltip {Oscillator's spectrum adjust parameter} xywh {338 280 18 18} maximum 127 step 1

  435.             class WidgetPDial

  436.           }

  437.         }

  438.       }

  439.       Fl_Group basefuncdisplaygroup {open selected

  440.         xywh {365 5 360 300} box UP_FRAME

  441.       } {

  442.         Fl_Group {} {

  443.           xywh {370 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

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

  445.           code1 {osc->init(oscil,1,master);}

  446.         } {}

  447.         Fl_Dial bfslider {

  448.           callback {oscil->Pbasefuncpar=(int)o->value()+64;

  449. basefuncdisplaygroup->redraw();

  450. bfparval->value(oscil->Pbasefuncpar-64);

  451. 

  452. redrawoscil();}

  453.           tooltip {Base Function Parameter} xywh {520 280 20 20} minimum -64 maximum 63 step 1

  454.           class WidgetPDial

  455.         }

  456.         Fl_Choice bftype {

  457.           label {Base.F..}

  458.           callback {oscil->Pcurrentbasefunc=(int) o->value();

  459. 

  460. basefuncdisplaygroup->redraw();

  461. redrawoscil();

  462. 

  463. if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();

  464.       else basefuncmodulation->activate();}

  465.           xywh {370 285 90 15} down_box BORDER_BOX labelsize 10 align 5 textsize 11

  466.         } {

  467.           MenuItem {} {

  468.             label Sine

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

  470.           }

  471.           MenuItem {} {

  472.             label Triangle

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

  474.           }

  475.           MenuItem {} {

  476.             label Pulse

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

  478.           }

  479.           MenuItem {} {

  480.             label Saw

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

  482.           }

  483.           MenuItem {} {

  484.             label Power

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

  486.           }

  487.           MenuItem {} {

  488.             label Gauss

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

  490.           }

  491.           MenuItem {} {

  492.             label Diode

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

  494.           }

  495.           MenuItem {} {

  496.             label AbsSine

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

  498.           }

  499.           MenuItem {} {

  500.             label PulseSine

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

  502.           }

  503.           MenuItem {} {

  504.             label StrchSine

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

  506.           }

  507.           MenuItem {} {

  508.             label Chirp

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

  510.           }

  511.           MenuItem {} {

  512.             label AbsStrSine

  513.             xywh {102 102 100 20} labelfont 1 labelsize 11

  514.           }

  515.           MenuItem {} {

  516.             label Chebyshev

  517.             xywh {112 112 100 20} labelfont 1 labelsize 11

  518.           }

  519.           MenuItem {} {

  520.             label Sqr

  521.             xywh {122 122 100 20} labelfont 1 labelsize 11

  522.           }

  523.           MenuItem {} {

  524.             label Spike

  525.             xywh {122 122 100 20} labelfont 1 labelsize 11

  526.           }

  527.           MenuItem {} {

  528.             label Circle

  529.             xywh {122 122 100 20} labelfont 1 labelsize 11

  530.           }

  531.         }

  532.         Fl_Box {} {

  533.           label {Base Func.}

  534.           xywh {480 10 110 20} labelfont 1

  535.         }

  536.         Fl_Group {} {open

  537.           xywh {370 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63

  538.           code0 {OscilSpectrum *spc=new OscilSpectrum (o->x(),o->y(),o->w(),o->h(),"");}

  539.           code1 {spc->init(oscil,1,master);}

  540.         } {}

  541.         Fl_Value_Output bfparval {

  542.           label {Par.}

  543.           xywh {490 285 25 15} labelsize 12 minimum -63 maximum 63 step 1

  544.         }

  545.         Fl_Group basefuncmodulation {

  546.           xywh {550 276 169 25} box UP_FRAME

  547.           code0 {if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();}

  548.         } {

  549.           Fl_Choice bfmodtype {

  550.             label {B.F.Mod.}

  551.             callback {oscil->Pbasefuncmodulation=(int) o->value();

  552. basefuncdisplaygroup->redraw();

  553. redrawoscil();}

  554.             tooltip {Base function modulation} xywh {599 281 50 15} down_box BORDER_BOX labelsize 10 textsize 10

  555.           } {

  556.             MenuItem {} {

  557.               label None

  558.               xywh {50 50 100 20} labelfont 1 labelsize 10

  559.             }

  560.             MenuItem {} {

  561.               label Rev

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

  563.             }

  564.             MenuItem {} {

  565.               label Sine

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

  567.             }

  568.             MenuItem {} {

  569.               label Pow

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

  571.             }

  572.           }

  573.           Fl_Dial bfmodpar1 {

  574.             callback {oscil->Pbasefuncmodulationpar1=(int)o->value();

  575. basefuncdisplaygroup->redraw();

  576. redrawoscil();}

  577.             tooltip {Oscillator's modulation parameter 1} xywh {659 281 15 15} maximum 127 step 1

  578.             class WidgetPDial

  579.           }

  580.           Fl_Dial bfmodpar2 {

  581.             callback {oscil->Pbasefuncmodulationpar2=(int)o->value();

  582. basefuncdisplaygroup->redraw();

  583. redrawoscil();}

  584.             tooltip {Oscillator's modulation parameter 2} xywh {679 281 15 15} maximum 127 step 1

  585.             class WidgetPDial

  586.           }

  587.           Fl_Dial bfmodpar3 {

  588.             callback {oscil->Pbasefuncmodulationpar3=(int)o->value();

  589. basefuncdisplaygroup->redraw();

  590. redrawoscil();}

  591.             tooltip {Oscillator's modulation parameter 3} xywh {699 281 15 15} maximum 127 step 1

  592.             class WidgetPDial

  593.           }

  594.         }

  595.       }

  596.       Fl_Choice magtype {

  597.         label {Mag.Type}

  598.         callback {oscil->Phmagtype=(int) o->value();

  599. basefuncdisplaygroup->redraw();

  600. 

  601. redrawoscil();}

  602.         xywh {70 280 65 20} down_box BORDER_BOX labelsize 11 textsize 11

  603.       } {

  604.         MenuItem {} {

  605.           label Linear

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

  607.         }

  608.         MenuItem {} {

  609.           label {-40dB}

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

  611.         }

  612.         MenuItem {} {

  613.           label {-60dB}

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

  615.         }

  616.         MenuItem {} {

  617.           label {-80dB}

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

  619.         }

  620.         MenuItem {} {

  621.           label {-100dB}

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

  623.         }

  624.       }

  625.       Fl_Button {} {

  626.         label {Use as base}

  627.         callback {oscil->useasbase();

  628. if (autoclearbutton->value()){

  629.    for (int i=0;i<MAX_AD_HARMONICS;i++){

  630.       h[i]->mag->value(64);

  631.       oscil->Phmag[i]=64;

  632.       h[i]->phase->value(64);

  633.       oscil->Phphase[i]=64;

  634.    };

  635.    oscil->Phmag[0]=127;

  636. 

  637.    oscil->Pharmonicshift=0;

  638.    harmonicshiftcounter->value(0);

  639. 

  640.    h[0]->mag->value(0);

  641.    wshbutton->value(0);

  642.    wshbutton->do_callback();

  643.    fltbutton->value(0);

  644.    fltbutton->do_callback();

  645.    sabutton->value(0);

  646.    sabutton->do_callback();

  647. };

  648. 

  649. pthread_mutex_lock(&master->mutex);

  650.  for (int i=0;i<MAX_AD_HARMONICS;i++){

  651.    if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);

  652.       else h[i]->mag->selection_color(222);

  653.  };

  654.  oscil->prepare();

  655. pthread_mutex_unlock(&master->mutex);

  656. 

  657. basefuncdisplaygroup->redraw();

  658. redrawoscil();}

  659.         tooltip {Use this Oscillator as base function} xywh {5 313 85 20} box THIN_UP_BOX labelfont 1 labelsize 11

  660.       }

  661.       Fl_Button {} {

  662.         label Close

  663.         callback {osceditUI->hide();}

  664.         xywh {668 565 62 25} box THIN_UP_BOX

  665.       }

  666.       Fl_Button {} {

  667.         label Clear

  668.         callback {if (!fl_choice("Clear the harmonics settings?","No","Yes",NULL)) return;

  669. 

  670. for (int i=0;i<MAX_AD_HARMONICS;i++){

  671.     h[i]->mag->value(64);

  672.     oscil->Phmag[i]=64;

  673.     h[i]->phase->value(64);

  674.     oscil->Phphase[i]=64;

  675. };

  676. oscil->Phmag[0]=127;

  677. h[0]->mag->value(0);

  678. 

  679. for (int i=0;i<MAX_AD_HARMONICS;i++){

  680.   if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);

  681.      else h[i]->mag->selection_color(222);

  682. };

  683. 

  684. //harmonics->redraw();

  685. 

  686. pthread_mutex_lock(&master->mutex);

  687.  oscil->prepare();

  688. pthread_mutex_unlock(&master->mutex);

  689. 

  690. redrawoscil();}

  691.         xywh {670 505 55 15} box THIN_UP_BOX labelfont 1 labelsize 11

  692.       }

  693.       Fl_Group {} {

  694.         xywh {135 308 150 30} box UP_FRAME

  695.       } {

  696.         Fl_Choice wshbutton {

  697.           label {Wsh.}

  698.           callback {oscil->Pwaveshapingfunction=(int) o->value();

  699. basefuncdisplaygroup->redraw();

  700. redrawoscil();} open

  701.           tooltip {Waveshaping function} xywh {165 313 55 20} down_box BORDER_BOX labelsize 10 textsize 10

  702.         } {

  703.           MenuItem {} {

  704.             label None

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

  706.           }

  707.           MenuItem {} {

  708.             label Atan

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

  710.           }

  711.           MenuItem {} {

  712.             label Asym1

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

  714.           }

  715.           MenuItem {} {

  716.             label Pow

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

  718.           }

  719.           MenuItem {} {

  720.             label Sine

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

  722.           }

  723.           MenuItem {} {

  724.             label Qnts

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

  726.           }

  727.           MenuItem {} {

  728.             label Zigzg

  729.             xywh {85 85 100 20} labelfont 1 labelsize 10

  730.           }

  731.           MenuItem {} {

  732.             label Lmt

  733.             xywh {95 95 100 20} labelfont 1 labelsize 10

  734.           }

  735.           MenuItem {} {

  736.             label LmtU

  737.             xywh {105 105 100 20} labelfont 1 labelsize 10

  738.           }

  739.           MenuItem {} {

  740.             label LmtL

  741.             xywh {115 115 100 20} labelfont 1 labelsize 10

  742.           }

  743.           MenuItem {} {

  744.             label ILmt

  745.             xywh {127 127 100 20} labelfont 1 labelsize 10

  746.           }

  747.           MenuItem {} {

  748.             label Clip

  749.             xywh {137 137 100 20} labelfont 1 labelsize 10

  750.           }

  751.           MenuItem {} {

  752.             label Asym2

  753.             xywh {85 85 100 20} labelfont 1 labelsize 10

  754.           }

  755.           MenuItem {} {

  756.             label Pow2

  757.             xywh {95 95 100 20} labelfont 1 labelsize 10

  758.           }

  759.           MenuItem {} {

  760.             label Sgm

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

  762.           }

  763.         }

  764.         Fl_Dial wshpar {

  765.           callback {oscil->Pwaveshaping=(int)o->value()+64;

  766. wsparval->value(oscil->Pwaveshaping-64);

  767. redrawoscil();}

  768.           tooltip {Waveshaping Parameter} xywh {260 313 20 20} minimum -64 maximum 63 step 1

  769.           class WidgetPDial

  770.         }

  771.         Fl_Value_Output wsparval {

  772.           xywh {228 316 25 15} labelsize 12 minimum -63 maximum 63 step 1

  773.         }

  774.       }

  775.       Fl_Light_Button autoclearbutton {

  776.         label {Clr.}

  777.         tooltip {Auto clear when using the oscillator as base function} xywh {95 313 35 20} box THIN_UP_BOX value 1 labelfont 1 labelsize 10

  778.       }

  779.       Fl_Group {} {

  780.         xywh {285 308 155 30} box UP_FRAME

  781.       } {

  782.         Fl_Choice fltbutton {

  783.           label Filter

  784.           callback {oscil->Pfiltertype=(int) o->value();

  785. 

  786. redrawoscil();}

  787.           tooltip {Oscillator's filter type} xywh {315 313 50 20} down_box BORDER_BOX labelsize 10 textsize 10

  788.         } {

  789.           MenuItem {} {

  790.             label None

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

  792.           }

  793.           MenuItem {} {

  794.             label LP1

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

  796.           }

  797.           MenuItem {} {

  798.             label HP1a

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

  800.           }

  801.           MenuItem {} {

  802.             label HP1b

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

  804.           }

  805.           MenuItem {} {

  806.             label BP1

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

  808.           }

  809.           MenuItem {} {

  810.             label BS1

  811.             xywh {85 85 100 20} labelfont 1 labelsize 10

  812.           }

  813.           MenuItem {} {

  814.             label LP2

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

  816.           }

  817.           MenuItem {} {

  818.             label HP2

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

  820.           }

  821.           MenuItem {} {

  822.             label BP2

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

  824.           }

  825.           MenuItem {} {

  826.             label BS2

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

  828.           }

  829.           MenuItem {} {

  830.             label Cos

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

  832.           }

  833.           MenuItem {} {

  834.             label Sin

  835.             xywh {85 85 100 20} labelfont 1 labelsize 10

  836.           }

  837.           MenuItem {} {

  838.             label LSh

  839.             xywh {95 95 100 20} labelfont 1 labelsize 10

  840.           }

  841.           MenuItem {} {

  842.             label S

  843.             xywh {105 105 100 20} labelfont 1 labelsize 10

  844.           }

  845.         }

  846.         Fl_Dial filtervalue1 {

  847.           callback {oscil->Pfilterpar1=(int)o->value();

  848. 

  849. redrawoscil();}

  850.           tooltip {Oscillator's filter parameter1} xywh {367 313 20 20} maximum 127 step 1

  851.           class WidgetPDial

  852.         }

  853.         Fl_Check_Button filterpref {

  854.           label p

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

  856. 

  857. redrawoscil();}

  858.           tooltip {Apply the filter before the waveshaping} xywh {415 313 20 20} down_box DOWN_BOX labelsize 10 align 24

  859.         }

  860.         Fl_Dial filtervalue2 {

  861.           callback {oscil->Pfilterpar2=(int)o->value();

  862. 

  863. redrawoscil();}

  864.           tooltip {Oscillator's filter parameter2} xywh {392 313 20 20} maximum 127 step 1

  865.           class WidgetPDial

  866.         }

  867.       }

  868.       Fl_Group {} {

  869.         xywh {590 308 135 30} box UP_FRAME

  870.       } {

  871.         Fl_Choice sabutton {

  872.           label {Sp.adj.}

  873.           callback {oscil->Psatype=(int) o->value();

  874. redrawoscil();}

  875.           tooltip {Oscillator's spectrum adjust} xywh {630 313 60 20} down_box BORDER_BOX labelsize 10 textsize 10

  876.         } {

  877.           MenuItem {} {

  878.             label None

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

  880.           }

  881.           MenuItem {} {

  882.             label Pow

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

  884.           }

  885.           MenuItem {} {

  886.             label ThrsD

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

  888.           }

  889.           MenuItem {} {

  890.             label ThrsU

  891.             xywh {85 85 100 20} labelfont 1 labelsize 10

  892.           }

  893.         }

  894.         Fl_Dial sadjpar {

  895.           callback {oscil->Psapar=(int)o->value();

  896. redrawoscil();}

  897.           tooltip {Oscillator's spectrum adjust parameter} xywh {695 313 20 20} maximum 127 step 1

  898.           class WidgetPDial

  899.         }

  900.       }

  901.       Fl_Group {} {

  902.         xywh {665 340 65 65} box UP_FRAME

  903.       } {

  904.         Fl_Counter harmonicshiftcounter {

  905.           label {Harmonic Shift}

  906.           callback {oscil->Pharmonicshift=(int)o->value();

  907. redrawoscil();}

  908.           xywh {670 365 55 15} type Simple labelsize 10 align 129 minimum -64 maximum 64 step 1 textfont 1 textsize 10

  909.         }

  910.         Fl_Check_Button harmonicshiftpre {

  911.           label preH

  912.           callback {oscil->Pharmonicshiftfirst=(int)o->value();

  913. redrawoscil();}

  914.           tooltip {Apply the harmonic shift before the waveshaping and filtering} xywh {690 385 34 15} down_box DOWN_BOX labelsize 10 align 24

  915.         }

  916.         Fl_Button {} {

  917.           label R

  918.           callback {oscil->Pharmonicshift=0;

  919. harmonicshiftcounter->value(0);

  920. redrawoscil();}

  921.           xywh {670 385 20 15} box THIN_UP_BOX labelfont 1 labelsize 10

  922.         }

  923.       }

  924.       Fl_Group {} {open

  925.         xywh {665 410 65 90} box UP_FRAME

  926.       } {

  927.         Fl_Choice adhrtype {

  928.           label {Adpt.Harm.}

  929.           callback {oscil->Padaptiveharmonics=(int) o->value();

  930. redrawoscil();}

  931.           tooltip {The type of the addaptive harmonics} xywh {670 425 55 15} down_box BORDER_BOX labelsize 10 align 129 when 6 textsize 10

  932.         } {

  933.           MenuItem {} {

  934.             label OFF

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

  936.           }

  937.           MenuItem {} {

  938.             label ON

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

  940.           }

  941.           MenuItem {} {

  942.             label Square

  943.             xywh {100 100 100 20} labelfont 1 labelsize 10

  944.           }

  945.           MenuItem {} {

  946.             label 2xSub

  947.             xywh {110 110 100 20} labelfont 1 labelsize 10

  948.           }

  949.           MenuItem {} {

  950.             label 2xAdd

  951.             xywh {120 120 100 20} labelfont 1 labelsize 10

  952.           }

  953.           MenuItem {} {

  954.             label 3xSub

  955.             xywh {120 120 100 20} labelfont 1 labelsize 10

  956.           }

  957.           MenuItem {} {

  958.             label 3xAdd

  959.             xywh {130 130 100 20} labelfont 1 labelsize 10

  960.           }

  961.           MenuItem {} {

  962.             label 4xSub

  963.             xywh {130 130 100 20} labelfont 1 labelsize 10

  964.           }

  965.           MenuItem {} {

  966.             label 4xAdd

  967.             xywh {140 140 100 20} labelfont 1 labelsize 10

  968.           }

  969.         }

  970.         Fl_Dial adhrpow {

  971.           label pow

  972.           callback {oscil->Padaptiveharmonicspower=(int)o->value();

  973. redrawoscil();}

  974.           tooltip {Adaptive harmonics power} xywh {700 460 25 25} labelsize 10 maximum 200 step 1

  975.           class WidgetPDial

  976.         }

  977.         Fl_Dial adhrbf {

  978.           label baseF

  979.           callback {oscil->Padaptiveharmonicsbasefreq=(int)o->value();

  980. redrawoscil();}

  981.           tooltip {Adaptive harmonics base frequency} xywh {670 460 25 25} labelsize 10 maximum 255 step 1

  982.           class WidgetPDial

  983.         }

  984.         Fl_Slider adhrpar {

  985.           callback {oscil->Padaptiveharmonicspar=(int)o->value();

  986. redrawoscil();}

  987.           xywh {670 445 55 10} type {Horz Knob} box NO_BOX maximum 100 step 1 value 50

  988.         }

  989.       }

  990.       Fl_Group {} {

  991.         xywh {440 308 150 30} box UP_FRAME

  992.       } {

  993.         Fl_Choice modtype {

  994.           label {Mod.}

  995.           callback {oscil->Pmodulation=(int) o->value();

  996. 

  997. redrawoscil();}

  998.           tooltip modulation xywh {470 315 50 15} down_box BORDER_BOX labelsize 10 textsize 10

  999.         } {

  1000.           MenuItem {} {

  1001.             label None

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

  1003.           }

  1004.           MenuItem {} {

  1005.             label Rev

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

  1007.           }

  1008.           MenuItem {} {

  1009.             label Sine

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

  1011.           }

  1012.           MenuItem {} {

  1013.             label Pow

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

  1015.           }

  1016.         }

  1017.         Fl_Dial modpar1 {

  1018.           callback {oscil->Pmodulationpar1=(int)o->value();

  1019. 

  1020. redrawoscil();}

  1021.           tooltip {Oscillator's modulation parameter 1} xywh {530 315 15 15} maximum 127 step 1

  1022.           class WidgetPDial

  1023.         }

  1024.         Fl_Dial modpar2 {

  1025.           callback {oscil->Pmodulationpar2=(int)o->value();

  1026. 

  1027. redrawoscil();}

  1028.           tooltip {Oscillator's modulation parameter 2} xywh {550 315 15 15} maximum 127 step 1

  1029.           class WidgetPDial

  1030.         }

  1031.         Fl_Dial modpar3 {

  1032.           callback {oscil->Pmodulationpar3=(int)o->value();

  1033. redrawoscil();}

  1034.           tooltip {Oscillator's modulation parameter 3} xywh {570 315 15 15} maximum 127 step 1

  1035.           class WidgetPDial

  1036.         }

  1037.       }

  1038.       Fl_Button {} {

  1039.         label Sine

  1040.         callback {if (!fl_choice("Convert to SINE?","No","Yes",NULL)) return;

  1041. 

  1042. pthread_mutex_lock(&master->mutex);

  1043.  oscil->convert2sine();

  1044. pthread_mutex_unlock(&master->mutex);

  1045. 

  1046. redrawoscil();

  1047. refresh();}

  1048.         xywh {670 525 55 15} box THIN_UP_BOX labelfont 1 labelsize 11

  1049.       }

  1050.       Fl_Button {} {

  1051.         label C

  1052.         callback {presetsui->copy(oscil);}

  1053.         xywh {670 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 7

  1054.       }

  1055.       Fl_Button {} {

  1056.         label P

  1057.         callback {presetsui->paste(oscil,this);}

  1058.         xywh {700 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 7

  1059.       }

  1060.       Fl_Scroll _this_has_to_be_the_last {

  1061.         xywh {5 340 660 250} type HORIZONTAL box FLAT_BOX

  1062.       } {

  1063.         Fl_Pack harmonics {open

  1064.           xywh {10 345 650 225} type HORIZONTAL

  1065.           code0 {for (int i=0;i<MAX_AD_HARMONICS;i++){h[i]=new Oscilharmonic(0,0,20,o->h(),"");h[i]->init(oscil,i,oscildisplaygroup,oldosc,cbwidget,applybutton,master);}}

  1066.         } {}

  1067.       }

  1068.     }

  1069.   }

  1070.   Function {OscilEditor(OscilGen *oscil_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *cbapplywidget_,Master *master_)} {} {

  1071.     code {oscil=oscil_;

  1072. oldosc=oldosc_;

  1073. cbwidget=cbwidget_;

  1074. cbapplywidget=cbapplywidget_;

  1075. master=master_;

  1076. 

  1077. make_window();

  1078. 

  1079. refresh();

  1080. osceditUI->show();} {}

  1081.   }

  1082.   Function {~OscilEditor()} {} {

  1083.     code {osceditUI->hide();

  1084. //for (int i=0;i<MAX_AD_HARMONICS;i++) delete (h[i]);

  1085. delete (osceditUI);} {}

  1086.   }

  1087.   Function {refresh()} {} {

  1088.     code {magtype->value(oscil->Phmagtype);

  1089. rndslider->value(oscil->Prand-64);

  1090. 

  1091. hrndtype->value(oscil->Pamprandtype);

  1092. hrnddial->value(oscil->Pamprandpower);

  1093. 

  1094. bftype->value(oscil->Pcurrentbasefunc);

  1095. bfparval->value(oscil->Pbasefuncpar-64);

  1096. bfslider->value(oscil->Pbasefuncpar-64);

  1097. 

  1098. bfmodtype->value(oscil->Pbasefuncmodulation);

  1099. bfmodpar1->value(oscil->Pbasefuncmodulationpar1);

  1100. bfmodpar2->value(oscil->Pbasefuncmodulationpar2);

  1101. bfmodpar3->value(oscil->Pbasefuncmodulationpar3);

  1102. 

  1103. wshbutton->value(oscil->Pwaveshapingfunction);

  1104. wsparval->value(oscil->Pwaveshaping-64);

  1105. wshpar->value(oscil->Pwaveshaping-64);

  1106. 

  1107. fltbutton->value(oscil->Pfiltertype);

  1108. filtervalue1->value(oscil->Pfilterpar1);

  1109. filtervalue2->value(oscil->Pfilterpar2);

  1110. filterpref->value(oscil->Pfilterbeforews);

  1111. 

  1112. modtype->value(oscil->Pmodulation);

  1113. modpar1->value(oscil->Pmodulationpar1);

  1114. modpar2->value(oscil->Pmodulationpar2);

  1115. modpar3->value(oscil->Pmodulationpar3);

  1116. 

  1117. sabutton->value(oscil->Psatype);

  1118. sadjpar->value(oscil->Psapar);

  1119. 

  1120. harmonicshiftcounter->value(oscil->Pharmonicshift);

  1121. harmonicshiftpre->value(oscil->Pharmonicshiftfirst);

  1122. 

  1123. adhrtype->value(oscil->Padaptiveharmonics);

  1124. adhrbf->value(oscil->Padaptiveharmonicsbasefreq);

  1125. adhrpow->value(oscil->Padaptiveharmonicspower);

  1126. adhrtype->value(oscil->Padaptiveharmonicspar);

  1127. 

  1128. for (int i=0;i<MAX_AD_HARMONICS;i++) h[i]->refresh();

  1129. 

  1130. pthread_mutex_lock(&master->mutex);

  1131.  oscil->prepare();

  1132. pthread_mutex_unlock(&master->mutex);

  1133. 

  1134. basefuncdisplaygroup->redraw();

  1135. redrawoscil();} {}

  1136.   }

  1137.   Function {redrawoscil()} {} {

  1138.     code {oscildisplaygroup->redraw();

  1139. oldosc->redraw();

  1140. if (cbwidget!=NULL) {

  1141.       cbwidget->do_callback();

  1142.       applybutton->color(FL_RED);

  1143.       applybutton->redraw();

  1144. };} {}

  1145.   }

  1146.   decl {OscilGen *oscil;} {}

  1147.   decl {Fl_Widget *oldosc,*cbwidget,*cbapplywidget;} {}

  1148.   decl {Oscilharmonic *h[MAX_AD_HARMONICS];} {}

  1149.   decl {Master *master;} {}

  1150. }