home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Complet / ZynAddFX / Setup_ZynAddSubFX-2.1.1.exe / OscilGenUI.fl < prev    next >
Encoding:
FLTK User Interface Designer  |  2004-08-15  |  31.1 KB  |  1,074 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0105 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2004 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  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. class OscilSpectrum {: {public Fl_Box}
  54. } {
  55.   Function {OscilSpectrum(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  56.     code {oscil=NULL;} {}
  57.   }
  58.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
  59.     code {oscil=oscil_;
  60. oscbase=oscbase_;
  61. master=master_;} {}
  62.   }
  63.   Function {draw()} {} {
  64.     code {int ox=x(),oy=y(),lx=w(),ly=h(),i;
  65. const int maxdb=60;//must be multiple of 10
  66. int GX=2;
  67. int n=lx/GX-1;
  68. if (n>OSCIL_SIZE/2) n=OSCIL_SIZE/2;
  69.  
  70. REALTYPE x;
  71. REALTYPE spc[n];
  72. for (i=0;i<n;i++) spc[i]=0.0;
  73.  
  74. pthread_mutex_lock(&master->mutex);
  75. if (oscbase==0) oscil->getspectrum(n,spc,0);
  76.     else oscil->getspectrum(n,spc,1);
  77. pthread_mutex_unlock(&master->mutex);
  78.  
  79. //normalize
  80. REALTYPE max=0;
  81. for (i=0;i<n;i++){
  82.    x=fabs(spc[i]);
  83.    if (max<x) max=x;
  84. }
  85. if (max<0.000001) max=1.0;
  86. max=max*1.05;
  87.  
  88. //draw
  89.  
  90. if (this->active_r()) fl_color(this->parent()->selection_color());
  91.     else fl_color(this->parent()->color());
  92. if ((ANTI_ALIAS==0)&&(oscbase==0)) fl_color(this->parent()->color());
  93. fl_line_style(FL_DOT);
  94.  
  95. for (i=1;i<maxdb/10;i++){
  96.   int ky=(int)((REALTYPE)i*ly*10.0/maxdb)/2;
  97.   ky*=2;
  98.   fl_line(ox,oy+ky-1,ox+lx-2,oy+ky-1);
  99. };
  100.  
  101. for (i=2;i<n;i++){
  102.     int tmp=i*GX-2;
  103.     if (i%10==1) fl_line_style(0);
  104.        else fl_line_style(FL_DOT);
  105.     fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
  106. }
  107.  
  108. if (this->active_r()) fl_color(this->parent()->labelcolor());
  109.     else fl_color(this->parent()->color());
  110. fl_line_style(0);
  111.  
  112. //draws the spectrum
  113. for (i=0;i<n;i++){
  114.    int tmp=i*GX+2;
  115.    x=spc[i]/max;
  116.    
  117.    if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;
  118.        else x=0;
  119.  
  120.    int val=(int) ((ly-2)*x);
  121.    if (val>0) fl_line(ox+tmp,oy+ly-2-val,ox+tmp,oy+ly-2);
  122. };} {}
  123.   }
  124.   decl {OscilGen *oscil;} {}
  125.   decl {int oscbase;} {}
  126.   decl {Master *master;} {}
  127. } 
  128.  
  129. class PSlider {: {public Fl_Slider}
  130. } {
  131.   Function {PSlider(int x,int y, int w, int h, const char *label=0):Fl_Slider(x,y,w,h,label)} {} {}
  132.   Function {handle(int event)} {return_type int
  133.   } {
  134.     code {int X=x(),Y=y(),W=w(),H=h();
  135.  
  136. if ((!Fl::event_buttons())|| (event==0)||(Fl::event_shift()==0)) return(Fl_Slider::handle(event));
  137.  
  138. if (!Fl::event_inside(X,Y,W,H)) {
  139.     if (event==FL_DRAG){
  140.         Fl_Slider::handle(FL_RELEASE);
  141.         Fl_Slider::handle(FL_LEAVE);
  142.         deactivate();
  143.         activate();
  144.         return(1);    
  145.     }else{
  146.         return(Fl_Slider::handle(event));
  147.     };
  148. } else {
  149.     //Fl_Slider::handle(FL_FOCUS);
  150.     Fl_Slider::handle(FL_PUSH);
  151. };
  152.  
  153. return(1);} {}
  154.   }
  155. } 
  156.  
  157. class Oscilloscope {: {public Fl_Box}
  158. } {
  159.   Function {Oscilloscope(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  160.     code {oscil=NULL;
  161. phase=64;
  162. oscbase=0;} {}
  163.   }
  164.   Function {init(OscilGen *oscil_,Master *master_)} {} {
  165.     code {oscil=oscil_;
  166. master=master_;} {}
  167.   }
  168.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
  169.     code {oscil=oscil_;
  170. oscbase=oscbase_;
  171. master=master_;} {}
  172.   }
  173.   Function {init(OscilGen *oscil_,int oscbase_,int phase_,Master *master_)} {} {
  174.     code {oscil=oscil_;
  175. oscbase=oscbase_;
  176. phase=phase_;
  177. master=master_;} {}
  178.   }
  179.   Function {draw()} {} {
  180.     code {int ox=x(),oy=y(),lx=w(),ly=h()-1,i;
  181. REALTYPE smps[OSCIL_SIZE];
  182. pthread_mutex_lock(&master->mutex);
  183. if (oscbase==0) oscil->get(smps,-1.0);
  184.     else oscil->getcurrentbasefunction(smps);
  185. pthread_mutex_unlock(&master->mutex);
  186.  
  187. if (damage()!=1){
  188.  fl_color(0,0,0);
  189.  fl_rectf(ox,oy,lx,ly);
  190. };
  191.  
  192. //normalize
  193. REALTYPE max=0;
  194. for (i=0;i<OSCIL_SIZE;i++)
  195.    if (max<fabs(smps[i])) max=fabs(smps[i]);
  196. //fprintf(stderr,"%.4f\\n",max);
  197. if (max<0.00001) max=1.0;
  198. max=-max*1.05;
  199.  
  200. //draw
  201. fl_line_style(FL_DASH);
  202. if (this->active_r()) fl_color(this->parent()->labelcolor());
  203.     else fl_color(this->parent()->color());
  204. int GX=16;if (lx<GX*3) GX=-1;
  205. for (i=1;i<GX;i++){
  206.    int tmp=(int)(lx/(REALTYPE)GX*i);
  207.    fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
  208. };
  209. int GY=8;if (ly<GY*3) GY=-1;
  210. for (i=1;i<GY;i++){
  211.    int tmp=(int)(ly/(REALTYPE)GY*i);
  212.    fl_line(ox+2,oy+tmp,ox+lx-2,oy+tmp);
  213. };
  214.  
  215. //draw the function
  216. fl_line_style(0,1);
  217. fl_line(ox+2,oy+ly/2,ox+lx-2,oy+ly/2);
  218. if (this->active_r()) fl_color(this->parent()->selection_color());
  219.     else fl_color(this->parent()->labelcolor());
  220. int lw=1;
  221. //if ((lx<135)||(ly<135)) lw=1;
  222. fl_line_style(0,lw);
  223. int ph=(int)((phase-64.0)/128.0*OSCIL_SIZE+OSCIL_SIZE);
  224. for (i=1;i<lx;i++){
  225.    int k1=(int)((REALTYPE)OSCIL_SIZE*(i-1)/lx)+ph;
  226.    int k2=(int)((REALTYPE)OSCIL_SIZE*i/lx)+ph;
  227.    REALTYPE y1=smps[k1%OSCIL_SIZE]/max;
  228.    REALTYPE y2=smps[k2%OSCIL_SIZE]/max;
  229.    fl_line(i-1+ox,(int)(y1*ly/2.0)+oy+ly/2,i+ox,(int)(y2*ly/2.0)+oy+ly/2);
  230. };} {}
  231.   }
  232.   decl {OscilGen *oscil;} {}
  233.   decl {int oscbase;} {}
  234.   decl {int phase;} {public
  235.   }
  236.   decl {Master *master;} {}
  237. } 
  238.  
  239. class Oscilharmonic {: {public Fl_Group}
  240. } {
  241.   Function {make_window()} {private
  242.   } {
  243.     Fl_Window harmonic {
  244.       private xywh {421 154 90 225} type Double hide
  245.       class Fl_Group
  246.     } {
  247.       Fl_Slider mag {
  248.         callback {int x=64;
  249. if (Fl::event_button3()) o->value(x);
  250.    else x=127-(int)o->value();
  251. if (x==64) o->selection_color(0);
  252.     else o->selection_color(222);
  253.  
  254. pthread_mutex_lock(&master->mutex);
  255.  oscil->Phmag[n]=x;
  256.  if (x==64) {
  257.     oscil->Phphase[n]=64;
  258.     phase->value(64);
  259.  };
  260.  oscil->prepare();
  261. pthread_mutex_unlock(&master->mutex);
  262.  
  263. display->redraw();
  264. oldosc->redraw();
  265. if (cbwidget!=NULL) cbwidget->do_callback();}
  266.         xywh {0 15 15 115} type {Vert Knob} box FLAT_BOX selection_color 222 labelcolor 0 maximum 127 step 1 value 64
  267.         code0 {o->value(127-oscil->Phmag[n]);}
  268.         code1 {if (oscil->Phmag[n]==64) o->selection_color(0);}
  269.         class PSlider
  270.       }
  271.       Fl_Slider phase {
  272.         callback {int x=64;
  273. if (Fl::event_button3()) o->value(x);
  274.    else x=(int)o->value();
  275.  
  276. pthread_mutex_lock(&master->mutex);
  277.  oscil->Phphase[n]=x;
  278.  oscil->prepare();
  279. pthread_mutex_unlock(&master->mutex);
  280.  
  281. display->redraw();
  282. oldosc->redraw();
  283. if (cbwidget!=NULL) cbwidget->do_callback();}
  284.         xywh {0 135 15 75} type {Vert Knob} box FLAT_BOX selection_color 222 maximum 127 step 1 value 64
  285.         code0 {o->value(oscil->Phphase[n]);}
  286.         class PSlider
  287.       }
  288.       Fl_Box {} {
  289.         xywh {15 70 5 5} box FLAT_BOX color 45
  290.       }
  291.       Fl_Box {} {
  292.         xywh {15 170 5 5} box FLAT_BOX color 45
  293.       }
  294.       Fl_Box {} {
  295.         label 01
  296.         xywh {0 210 20 15} labelfont 1 labelsize 9 align 20
  297.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  298.       }
  299.       Fl_Box {} {
  300.         label 01
  301.         xywh {0 0 20 15} labelfont 1 labelsize 9 align 20
  302.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  303.       }
  304.     }
  305.   }
  306.   Function {Oscilharmonic(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  307.     code {n=0;
  308. oscil=NULL;
  309. display=NULL;} {}
  310.   }
  311.   Function {init(OscilGen *oscil_,int n_,Fl_Group *display_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_, Master *master_)} {} {
  312.     code {oscil=oscil_;
  313. n=n_;
  314. display=display_;
  315. master=master_;
  316. oldosc=oldosc_;
  317. cbwidget=cbwidget_;
  318. make_window();
  319. end();
  320. harmonic->show();} {}
  321.   }
  322.   Function {refresh()} {} {
  323.     code {mag->value(127-oscil->Phmag[n]);
  324. phase->value(oscil->Phphase[n]);
  325.  
  326. if (oscil->Phmag[n]==64) mag->selection_color(0);
  327.     else mag->selection_color(222);} {}
  328.   }
  329.   Function {~Oscilharmonic()} {} {
  330.     code {harmonic->hide();
  331. //delete(harmonic);} {}
  332.   }
  333.   decl {OscilGen *oscil;} {}
  334.   decl {Fl_Group *display;} {}
  335.   decl {int n;} {}
  336.   decl {Fl_Widget *oldosc,*cbwidget;} {}
  337.   decl {Master *master;} {}
  338. } 
  339.  
  340. class OscilEditor {: {public PresetsUI_}
  341. } {
  342.   Function {make_window()} {} {
  343.     Fl_Window osceditUI {
  344.       label {ADsynth Oscillator Editor}
  345.       xywh {4 91 745 600} type Double hide
  346.       code0 {if (oscil->ADvsPAD) o->label("PADsynth Harmonic Content Editor");}
  347.     } {
  348.       Fl_Group oscildisplaygroup {
  349.         xywh {15 5 360 300} box ENGRAVED_FRAME
  350.       } {
  351.         Fl_Group {} {open
  352.           xywh {20 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  353.           code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  354.           code1 {osc->init(oscil,master);}
  355.         } {}
  356.         Fl_Box {} {
  357.           label Oscillator
  358.           xywh {130 10 110 20} box FLAT_BOX labelfont 1
  359.         }
  360.         Fl_Value_Slider rndslider {
  361.           label rnd
  362.           callback {oscil->Prand=(int)o->value()+64;
  363. oscildisplaygroup->redraw();
  364. oldosc->redraw();}
  365.           tooltip {Oscilator Phase Randomness: smaller than 0 is "group", larger than 0 is for each harmonic} xywh {150 285 100 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  366.           code0 {if (oscil->ADvsPAD) o->hide();}
  367.         }
  368.         Fl_Group {} {open
  369.           xywh {20 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
  370.           code0 {OscilSpectrum *spc=new OscilSpectrum(o->x(),o->y(),o->w(),o->h(),"");}
  371.           code1 {spc->init(oscil,0,master);}
  372.         } {}
  373.         Fl_Group {} {
  374.           xywh {256 277 115 25} box ENGRAVED_BOX
  375.           code0 {if (oscil->ADvsPAD) o->hide();}
  376.         } {
  377.           Fl_Choice hrndtype {
  378.             label {H.rnd}
  379.             callback {oscil->Pamprandtype=(int) o->value();}
  380.             tooltip {Harmonic Amplitude Randomness} xywh {291 282 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  381.           } {
  382.             menuitem {} {
  383.               label None
  384.               xywh {60 60 100 20} labelfont 1 labelsize 10
  385.             }
  386.             menuitem {} {
  387.               label Pow
  388.               xywh {70 70 100 20} labelfont 1 labelsize 10
  389.             }
  390.             menuitem {} {
  391.               label Sin
  392.               xywh {80 80 100 20} labelfont 1 labelsize 10
  393.             }
  394.           }
  395.           Fl_Dial hrnddial {
  396.             callback {oscil->Pamprandpower=(int) o->value();}
  397.             tooltip {Oscillator's spectrum adjust parameter} xywh {348 280 18 18} maximum 127 step 1
  398.             class WidgetPDial
  399.           }
  400.         }
  401.       }
  402.       Fl_Box {} {
  403.         label {Base Func.}
  404.         xywh {505 15 110 20} box FLAT_BOX labelfont 1
  405.       }
  406.       Fl_Group basefuncdisplaygroup {
  407.         xywh {375 5 360 300} box ENGRAVED_FRAME
  408.       } {
  409.         Fl_Group {} {
  410.           xywh {380 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  411.           code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  412.           code1 {osc->init(oscil,1,master);}
  413.         } {}
  414.         Fl_Dial bfslider {
  415.           callback {oscil->Pbasefuncpar=(int)o->value()+64;
  416. basefuncdisplaygroup->redraw();
  417. bfparval->value(oscil->Pbasefuncpar-64);
  418.  
  419. redrawoscil();}
  420.           tooltip {Base Function Parameter} xywh {530 280 20 20} minimum -64 maximum 63 step 1
  421.           class WidgetPDial
  422.         }
  423.         Fl_Choice bftype {
  424.           label {Base.F..}
  425.           callback {oscil->Pcurrentbasefunc=(int) o->value();
  426.  
  427. basefuncdisplaygroup->redraw();
  428. redrawoscil();
  429.  
  430. if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();
  431.       else basefuncmodulation->activate();}
  432.           xywh {380 285 90 15} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  433.         } {
  434.           menuitem {} {
  435.             label Sine
  436.             xywh {10 10 100 20} labelfont 1 labelsize 12
  437.           }
  438.           menuitem {} {
  439.             label Triangle
  440.             xywh {20 20 100 20} labelfont 1 labelsize 12
  441.           }
  442.           menuitem {} {
  443.             label Pulse
  444.             xywh {30 30 100 20} labelfont 1 labelsize 12
  445.           }
  446.           menuitem {} {
  447.             label Saw
  448.             xywh {40 40 100 20} labelfont 1 labelsize 12
  449.           }
  450.           menuitem {} {
  451.             label Power
  452.             xywh {50 50 100 20} labelfont 1 labelsize 12
  453.           }
  454.           menuitem {} {
  455.             label Gauss
  456.             xywh {50 50 100 20} labelfont 1 labelsize 12
  457.           }
  458.           menuitem {} {
  459.             label Diode
  460.             xywh {60 60 100 20} labelfont 1 labelsize 12
  461.           }
  462.           menuitem {} {
  463.             label AbsSine
  464.             xywh {70 70 100 20} labelfont 1 labelsize 12
  465.           }
  466.           menuitem {} {
  467.             label PulseSine
  468.             xywh {80 80 100 20} labelfont 1 labelsize 12
  469.           }
  470.           menuitem {} {
  471.             label StrchSine
  472.             xywh {90 90 100 20} labelfont 1 labelsize 12
  473.           }
  474.           menuitem {} {
  475.             label Chirp
  476.             xywh {100 100 100 20} labelfont 1 labelsize 12
  477.           }
  478.           menuitem {} {
  479.             label AbsStrSine
  480.             xywh {102 102 100 20} labelfont 1 labelsize 12
  481.           }
  482.           menuitem {} {
  483.             label Chebyshev
  484.             xywh {112 112 100 20} labelfont 1 labelsize 12
  485.           }
  486.           menuitem {} {
  487.             label Sqr
  488.             xywh {122 122 100 20} labelfont 1 labelsize 12
  489.           }
  490.         }
  491.         Fl_Box {} {
  492.           label {Base Func.}
  493.           xywh {490 10 110 20} box FLAT_BOX labelfont 1
  494.         }
  495.         Fl_Group {} {open
  496.           xywh {380 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
  497.           code0 {OscilSpectrum *spc=new OscilSpectrum (o->x(),o->y(),o->w(),o->h(),"");}
  498.           code1 {spc->init(oscil,1,master);}
  499.         } {}
  500.         Fl_Value_Output bfparval {
  501.           label {Par.}
  502.           xywh {500 285 25 15} labelsize 13 minimum -63 maximum 63 step 1
  503.         }
  504.         Fl_Group basefuncmodulation {
  505.           xywh {560 276 169 25} box ENGRAVED_BOX
  506.           code0 {if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();}
  507.         } {
  508.           Fl_Choice bfmodtype {
  509.             label {B.F.Mod.}
  510.             callback {oscil->Pbasefuncmodulation=(int) o->value();
  511. basefuncdisplaygroup->redraw();
  512. redrawoscil();}
  513.             tooltip {Base function modulation} xywh {609 281 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  514.           } {
  515.             menuitem {} {
  516.               label None
  517.               xywh {50 50 100 20} labelfont 1 labelsize 10
  518.             }
  519.             menuitem {} {
  520.               label Rev
  521.               xywh {60 60 100 20} labelfont 1 labelsize 10
  522.             }
  523.             menuitem {} {
  524.               label Sine
  525.               xywh {70 70 100 20} labelfont 1 labelsize 10
  526.             }
  527.             menuitem {} {
  528.               label Pow
  529.               xywh {80 80 100 20} labelfont 1 labelsize 10
  530.             }
  531.           }
  532.           Fl_Dial bfmodpar1 {
  533.             callback {oscil->Pbasefuncmodulationpar1=(int)o->value();
  534. basefuncdisplaygroup->redraw();
  535. redrawoscil();}
  536.             tooltip {Oscillator's modulation parameter 1} xywh {669 281 15 15} maximum 127 step 1
  537.             class WidgetPDial
  538.           }
  539.           Fl_Dial bfmodpar2 {
  540.             callback {oscil->Pbasefuncmodulationpar2=(int)o->value();
  541. basefuncdisplaygroup->redraw();
  542. redrawoscil();}
  543.             tooltip {Oscillator's modulation parameter 2} xywh {689 281 15 15} maximum 127 step 1
  544.             class WidgetPDial
  545.           }
  546.           Fl_Dial bfmodpar3 {
  547.             callback {oscil->Pbasefuncmodulationpar3=(int)o->value();
  548. basefuncdisplaygroup->redraw();
  549. redrawoscil();}
  550.             tooltip {Oscillator's modulation parameter 3} xywh {709 281 15 15} maximum 127 step 1
  551.             class WidgetPDial
  552.           }
  553.         }
  554.       }
  555.       Fl_Choice magtype {
  556.         label {Mag.Type}
  557.         callback {oscil->Phmagtype=(int) o->value();
  558. basefuncdisplaygroup->redraw();
  559.  
  560. redrawoscil();}
  561.         xywh {80 280 65 20} down_box BORDER_BOX labelsize 12 textsize 12
  562.       } {
  563.         menuitem {} {
  564.           label Linear
  565.           xywh {0 0 100 20} labelfont 1 labelsize 12
  566.         }
  567.         menuitem {} {
  568.           label {-40dB}
  569.           xywh {10 10 100 20} labelfont 1 labelsize 12
  570.         }
  571.         menuitem {} {
  572.           label {-60dB}
  573.           xywh {20 20 100 20} labelfont 1 labelsize 12
  574.         }
  575.         menuitem {} {
  576.           label {-80dB}
  577.           xywh {30 30 100 20} labelfont 1 labelsize 12
  578.         }
  579.         menuitem {} {
  580.           label {-100dB}
  581.           xywh {40 40 100 20} labelfont 1 labelsize 12
  582.         }
  583.       }
  584.       Fl_Button {} {
  585.         label {Use as base}
  586.         callback {oscil->useasbase();
  587. if (autoclearbutton->value()){
  588.    for (int i=0;i<MAX_AD_HARMONICS;i++){
  589.       h[i]->mag->value(64);
  590.       oscil->Phmag[i]=64;
  591.       h[i]->phase->value(64);
  592.       oscil->Phphase[i]=64;
  593.    };
  594.    oscil->Phmag[0]=127;
  595.  
  596.    oscil->Pharmonicshift=0;
  597.    harmonicshiftcounter->value(0);
  598.  
  599.    h[0]->mag->value(0);
  600.    wshbutton->value(0);
  601.    wshbutton->do_callback();
  602.    fltbutton->value(0);
  603.    fltbutton->do_callback();
  604.    sabutton->value(0);
  605.    sabutton->do_callback();
  606. };
  607.  
  608. pthread_mutex_lock(&master->mutex);
  609.  for (int i=0;i<MAX_AD_HARMONICS;i++){
  610.    if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
  611.       else h[i]->mag->selection_color(222);
  612.  };
  613.  oscil->prepare();
  614. pthread_mutex_unlock(&master->mutex);
  615.  
  616. basefuncdisplaygroup->redraw();
  617. redrawoscil();}
  618.         tooltip {Use this Oscillator as base function} xywh {15 313 85 20} box THIN_UP_BOX labelfont 1 labelsize 12
  619.       }
  620.       Fl_Button {} {
  621.         label Close
  622.         callback {osceditUI->hide();}
  623.         xywh {678 565 62 25} box THIN_UP_BOX
  624.       }
  625.       Fl_Button {} {
  626.         label Clear
  627.         callback {if (!fl_ask("Clear the harmonics settings?")) return;
  628.  
  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. h[0]->mag->value(0);
  637.  
  638. for (int i=0;i<MAX_AD_HARMONICS;i++){
  639.   if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
  640.      else h[i]->mag->selection_color(222);
  641. };
  642.  
  643. //harmonics->redraw();
  644.  
  645. pthread_mutex_lock(&master->mutex);
  646.  oscil->prepare();
  647. pthread_mutex_unlock(&master->mutex);
  648.  
  649. redrawoscil();}
  650.         xywh {680 500 55 20} box THIN_UP_BOX labelfont 1 labelsize 12
  651.       }
  652.       Fl_Group {} {
  653.         xywh {145 308 150 30} box ENGRAVED_BOX
  654.       } {
  655.         Fl_Choice wshbutton {
  656.           label {Wsh.}
  657.           callback {oscil->Pwaveshapingfunction=(int) o->value();
  658. basefuncdisplaygroup->redraw();
  659. redrawoscil();} open
  660.           tooltip {Waveshaping function} xywh {175 313 55 20} down_box BORDER_BOX labelsize 10 textsize 10
  661.         } {
  662.           menuitem {} {
  663.             label None
  664.             xywh {25 25 100 20} labelfont 1 labelsize 10
  665.           }
  666.           menuitem {} {
  667.             label Atan
  668.             xywh {35 35 100 20} labelfont 1 labelsize 10
  669.           }
  670.           menuitem {} {
  671.             label Asym1
  672.             xywh {45 45 100 20} labelfont 1 labelsize 10
  673.           }
  674.           menuitem {} {
  675.             label Pow
  676.             xywh {55 55 100 20} labelfont 1 labelsize 10
  677.           }
  678.           menuitem {} {
  679.             label Sine
  680.             xywh {65 65 100 20} labelfont 1 labelsize 10
  681.           }
  682.           menuitem {} {
  683.             label Qnts
  684.             xywh {75 75 100 20} labelfont 1 labelsize 10
  685.           }
  686.           menuitem {} {
  687.             label Zigzg
  688.             xywh {85 85 100 20} labelfont 1 labelsize 10
  689.           }
  690.           menuitem {} {
  691.             label Lmt
  692.             xywh {95 95 100 20} labelfont 1 labelsize 10
  693.           }
  694.           menuitem {} {
  695.             label LmtU
  696.             xywh {105 105 100 20} labelfont 1 labelsize 10
  697.           }
  698.           menuitem {} {
  699.             label LmtL
  700.             xywh {115 115 100 20} labelfont 1 labelsize 10
  701.           }
  702.           menuitem {} {
  703.             label ILmt
  704.             xywh {127 127 100 20} labelfont 1 labelsize 10
  705.           }
  706.           menuitem {} {
  707.             label Clip
  708.             xywh {137 137 100 20} labelfont 1 labelsize 10
  709.           }
  710.           menuitem {} {
  711.             label Asym2
  712.             xywh {85 85 100 20} labelfont 1 labelsize 10
  713.           }
  714.           menuitem {} {
  715.             label Pow2
  716.             xywh {95 95 100 20} labelfont 1 labelsize 10
  717.           }
  718.           menuitem {} {
  719.             label Sgm
  720.             xywh {90 90 100 20} labelfont 1 labelsize 10
  721.           }
  722.         }
  723.         Fl_Dial wshpar {
  724.           callback {oscil->Pwaveshaping=(int)o->value()+64;
  725. wsparval->value(oscil->Pwaveshaping-64);
  726. redrawoscil();}
  727.           tooltip {Waveshaping Parameter} xywh {270 313 20 20} minimum -64 maximum 63 step 1
  728.           class WidgetPDial
  729.         }
  730.         Fl_Value_Output wsparval {
  731.           xywh {238 316 25 15} labelsize 13 minimum -63 maximum 63 step 1
  732.         }
  733.       }
  734.       Fl_Light_Button autoclearbutton {
  735.         label {Clr.}
  736.         tooltip {Auto clear when using the oscillator as base function} xywh {105 313 35 20} box THIN_UP_BOX value 1 labelfont 1 labelsize 10
  737.       }
  738.       Fl_Group {} {
  739.         xywh {295 308 155 30} box ENGRAVED_BOX
  740.       } {
  741.         Fl_Choice fltbutton {
  742.           label Filter
  743.           callback {oscil->Pfiltertype=(int) o->value();
  744.  
  745. redrawoscil();}
  746.           tooltip {Oscillator's filter type} xywh {325 313 50 20} down_box BORDER_BOX labelsize 10 textsize 10
  747.         } {
  748.           menuitem {} {
  749.             label None
  750.             xywh {35 35 100 20} labelfont 1 labelsize 10
  751.           }
  752.           menuitem {} {
  753.             label LP1
  754.             xywh {45 45 100 20} labelfont 1 labelsize 10
  755.           }
  756.           menuitem {} {
  757.             label HP1a
  758.             xywh {55 55 100 20} labelfont 1 labelsize 10
  759.           }
  760.           menuitem {} {
  761.             label HP1b
  762.             xywh {65 65 100 20} labelfont 1 labelsize 10
  763.           }
  764.           menuitem {} {
  765.             label BP1
  766.             xywh {75 75 100 20} labelfont 1 labelsize 10
  767.           }
  768.           menuitem {} {
  769.             label BS1
  770.             xywh {85 85 100 20} labelfont 1 labelsize 10
  771.           }
  772.           menuitem {} {
  773.             label LP2
  774.             xywh {55 55 100 20} labelfont 1 labelsize 10
  775.           }
  776.           menuitem {} {
  777.             label HP2
  778.             xywh {65 65 100 20} labelfont 1 labelsize 10
  779.           }
  780.           menuitem {} {
  781.             label BP2
  782.             xywh {65 65 100 20} labelfont 1 labelsize 10
  783.           }
  784.           menuitem {} {
  785.             label BS2
  786.             xywh {75 75 100 20} labelfont 1 labelsize 10
  787.           }
  788.           menuitem {} {
  789.             label Cos
  790.             xywh {75 75 100 20} labelfont 1 labelsize 10
  791.           }
  792.           menuitem {} {
  793.             label Sin
  794.             xywh {85 85 100 20} labelfont 1 labelsize 10
  795.           }
  796.           menuitem {} {
  797.             label LSh
  798.             xywh {95 95 100 20} labelfont 1 labelsize 10
  799.           }
  800.           menuitem {} {
  801.             label S
  802.             xywh {105 105 100 20} labelfont 1 labelsize 10
  803.           }
  804.         }
  805.         Fl_Dial filtervalue1 {
  806.           callback {oscil->Pfilterpar1=(int)o->value();
  807.  
  808. redrawoscil();}
  809.           tooltip {Oscillator's filter parameter1} xywh {377 313 20 20} maximum 127 step 1
  810.           class WidgetPDial
  811.         }
  812.         Fl_Check_Button filterpref {
  813.           label p
  814.           callback {oscil->Pfilterbeforews=(int)o->value();
  815.  
  816. redrawoscil();}
  817.           tooltip {Apply the filter before the waveshaping} xywh {425 313 20 20} down_box DOWN_BOX labelsize 10 align 24
  818.         }
  819.         Fl_Dial filtervalue2 {
  820.           callback {oscil->Pfilterpar2=(int)o->value();
  821.  
  822. redrawoscil();}
  823.           tooltip {Oscillator's filter parameter2} xywh {402 313 20 20} maximum 127 step 1
  824.           class WidgetPDial
  825.         }
  826.       }
  827.       Fl_Scroll _this_has_to_be_the_last {
  828.         xywh {15 340 660 250} type HORIZONTAL box ENGRAVED_BOX
  829.       } {
  830.         Fl_Pack harmonics {open
  831.           xywh {20 345 650 225} type HORIZONTAL
  832.           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,master);}}
  833.         } {}
  834.       }
  835.       Fl_Group {} {
  836.         xywh {600 308 135 30} box ENGRAVED_BOX
  837.       } {
  838.         Fl_Choice sabutton {
  839.           label {Sp.adj.}
  840.           callback {oscil->Psatype=(int) o->value();
  841. redrawoscil();}
  842.           tooltip {Oscillator's spectrum adjust} xywh {640 313 60 20} down_box BORDER_BOX labelsize 10 textsize 10
  843.         } {
  844.           menuitem {} {
  845.             label None
  846.             xywh {55 55 100 20} labelfont 1 labelsize 10
  847.           }
  848.           menuitem {} {
  849.             label Pow
  850.             xywh {65 65 100 20} labelfont 1 labelsize 10
  851.           }
  852.           menuitem {} {
  853.             label ThrsD
  854.             xywh {75 75 100 20} labelfont 1 labelsize 10
  855.           }
  856.           menuitem {} {
  857.             label ThrsU
  858.             xywh {85 85 100 20} labelfont 1 labelsize 10
  859.           }
  860.         }
  861.         Fl_Dial sadjpar {
  862.           callback {oscil->Psapar=(int)o->value();
  863. redrawoscil();}
  864.           tooltip {Oscillator's spectrum adjust parameter} xywh {705 313 20 20} maximum 127 step 1
  865.           class WidgetPDial
  866.         }
  867.       }
  868.       Fl_Group {} {
  869.         xywh {675 340 65 65} box ENGRAVED_BOX
  870.       } {
  871.         Fl_Counter harmonicshiftcounter {
  872.           label {Harmonic Shift}
  873.           callback {oscil->Pharmonicshift=(int)o->value();
  874. redrawoscil();}
  875.           xywh {680 365 55 15} type Simple labelsize 10 align 129 minimum -64 maximum 64 step 1 textfont 1 textsize 10
  876.         }
  877.         Fl_Check_Button harmonicshiftpre {
  878.           label preH
  879.           callback {oscil->Pharmonicshiftfirst=(int)o->value();
  880. redrawoscil();}
  881.           tooltip {Apply the harmonic shift before the waveshaping and filtering} xywh {700 385 34 15} down_box DOWN_BOX labelsize 10 align 24
  882.         }
  883.         Fl_Button {} {
  884.           label R
  885.           callback {oscil->Pharmonicshift=0;
  886. harmonicshiftcounter->value(0);
  887. redrawoscil();}
  888.           xywh {680 385 20 15} box THIN_UP_BOX labelfont 1 labelsize 10
  889.         }
  890.       }
  891.       Fl_Group {} {
  892.         xywh {675 405 65 90} box ENGRAVED_FRAME
  893.       } {
  894.         Fl_Box {} {
  895.           label {Adaptive Harmonics}
  896.           xywh {678 410 60 25} labelsize 10 align 144
  897.         }
  898.         Fl_Choice adhrtype {
  899.           callback {oscil->Padaptiveharmonics=(int) o->value();
  900. redrawoscil();} open
  901.           tooltip {The type of the addaptive harmonics} xywh {680 435 55 15} down_box BORDER_BOX labelsize 10 when 6 textsize 10
  902.         } {
  903.           menuitem {} {
  904.             label OFF
  905.             xywh {80 80 100 20} labelfont 1 labelsize 10
  906.           }
  907.           menuitem {} {
  908.             label On
  909.             xywh {90 90 100 20} labelfont 1 labelsize 10
  910.           }
  911.         }
  912.         Fl_Dial adhrpow {
  913.           label pow
  914.           callback {oscil->Padaptiveharmonicspower=(int)o->value();
  915. redrawoscil();}
  916.           tooltip {Adaptive harmonics power} xywh {710 455 25 25} labelsize 10 maximum 100 step 1
  917.           class WidgetPDial
  918.         }
  919.         Fl_Dial adhrbf {
  920.           label baseF
  921.           callback {oscil->Padaptiveharmonicsbasefreq=(int)o->value();
  922. redrawoscil();}
  923.           tooltip {Adaptive harmonics base frequency} xywh {680 455 25 25} labelsize 10 maximum 255 step 1
  924.           class WidgetPDial
  925.         }
  926.       }
  927.       Fl_Group {} {
  928.         xywh {450 308 150 30} box ENGRAVED_BOX
  929.       } {
  930.         Fl_Choice modtype {
  931.           label {Mod.}
  932.           callback {oscil->Pmodulation=(int) o->value();
  933.  
  934. redrawoscil();}
  935.           tooltip modulation xywh {480 315 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  936.         } {
  937.           menuitem {} {
  938.             label None
  939.             xywh {60 60 100 20} labelfont 1 labelsize 10
  940.           }
  941.           menuitem {} {
  942.             label Rev
  943.             xywh {70 70 100 20} labelfont 1 labelsize 10
  944.           }
  945.           menuitem {} {
  946.             label Sine
  947.             xywh {80 80 100 20} labelfont 1 labelsize 10
  948.           }
  949.           menuitem {} {
  950.             label Pow
  951.             xywh {90 90 100 20} labelfont 1 labelsize 10
  952.           }
  953.         }
  954.         Fl_Dial modpar1 {
  955.           callback {oscil->Pmodulationpar1=(int)o->value();
  956.  
  957. redrawoscil();}
  958.           tooltip {Oscillator's modulation parameter 1} xywh {540 315 15 15} maximum 127 step 1
  959.           class WidgetPDial
  960.         }
  961.         Fl_Dial modpar2 {
  962.           callback {oscil->Pmodulationpar2=(int)o->value();
  963.  
  964. redrawoscil();}
  965.           tooltip {Oscillator's modulation parameter 2} xywh {560 315 15 15} maximum 127 step 1
  966.           class WidgetPDial
  967.         }
  968.         Fl_Dial modpar3 {
  969.           callback {oscil->Pmodulationpar3=(int)o->value();
  970. redrawoscil();}
  971.           tooltip {Oscillator's modulation parameter 3} xywh {580 315 15 15} maximum 127 step 1
  972.           class WidgetPDial
  973.         }
  974.       }
  975.       Fl_Button {} {
  976.         label Sine
  977.         callback {if (!fl_ask("Convert to SINE?")) return;
  978.  
  979. pthread_mutex_lock(&master->mutex);
  980.  oscil->convert2sine(0);
  981. pthread_mutex_unlock(&master->mutex);
  982.  
  983. redrawoscil();
  984. refresh();}
  985.         xywh {680 520 55 20} box THIN_UP_BOX labelfont 1 labelsize 12
  986.       }
  987.       Fl_Button {} {
  988.         label C
  989.         callback {presetsui->copy(oscil);} selected
  990.         xywh {680 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  991.       }
  992.       Fl_Button {} {
  993.         label P
  994.         callback {presetsui->paste(oscil,this);} selected
  995.         xywh {710 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  996.       }
  997.     }
  998.   }
  999.   Function {OscilEditor(OscilGen *oscil_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Master *master_)} {} {
  1000.     code {oscil=oscil_;
  1001. oldosc=oldosc_;
  1002. cbwidget=cbwidget_;
  1003. master=master_;
  1004.  
  1005. make_window();
  1006.  
  1007. refresh();
  1008. osceditUI->show();} {}
  1009.   }
  1010.   Function {~OscilEditor()} {} {
  1011.     code {osceditUI->hide();
  1012. //for (int i=0;i<MAX_AD_HARMONICS;i++) delete (h[i]);
  1013. delete (osceditUI);} {}
  1014.   }
  1015.   Function {refresh()} {} {
  1016.     code {magtype->value(oscil->Phmagtype);
  1017. rndslider->value(oscil->Prand-64);
  1018.  
  1019. hrndtype->value(oscil->Pamprandtype);
  1020. hrnddial->value(oscil->Pamprandpower);
  1021.  
  1022. bftype->value(oscil->Pcurrentbasefunc);
  1023. bfparval->value(oscil->Pbasefuncpar-64);
  1024. bfslider->value(oscil->Pbasefuncpar-64);
  1025.  
  1026. bfmodtype->value(oscil->Pbasefuncmodulation);
  1027. bfmodpar1->value(oscil->Pbasefuncmodulationpar1);
  1028. bfmodpar2->value(oscil->Pbasefuncmodulationpar2);
  1029. bfmodpar3->value(oscil->Pbasefuncmodulationpar3);
  1030.  
  1031. wshbutton->value(oscil->Pwaveshapingfunction);
  1032. wsparval->value(oscil->Pwaveshaping-64);
  1033. wshpar->value(oscil->Pwaveshaping-64);
  1034.  
  1035. fltbutton->value(oscil->Pfiltertype);
  1036. filtervalue1->value(oscil->Pfilterpar1);
  1037. filtervalue2->value(oscil->Pfilterpar2);
  1038. filterpref->value(oscil->Pfilterbeforews);
  1039.  
  1040. modtype->value(oscil->Pmodulation);
  1041. modpar1->value(oscil->Pmodulationpar1);
  1042. modpar2->value(oscil->Pmodulationpar2);
  1043. modpar3->value(oscil->Pmodulationpar3);
  1044.  
  1045. sabutton->value(oscil->Psatype);
  1046. sadjpar->value(oscil->Psapar);
  1047.  
  1048. harmonicshiftcounter->value(oscil->Pharmonicshift);
  1049. harmonicshiftpre->value(oscil->Pharmonicshiftfirst);
  1050.  
  1051. adhrtype->value(oscil->Padaptiveharmonics);
  1052. adhrbf->value(oscil->Padaptiveharmonicsbasefreq);
  1053. adhrpow->value(oscil->Padaptiveharmonicspower);
  1054.  
  1055. for (int i=0;i<MAX_AD_HARMONICS;i++) h[i]->refresh();
  1056.  
  1057. pthread_mutex_lock(&master->mutex);
  1058.  oscil->prepare();
  1059. pthread_mutex_unlock(&master->mutex);
  1060.  
  1061. basefuncdisplaygroup->redraw();
  1062. redrawoscil();} {}
  1063.   }
  1064.   Function {redrawoscil()} {} {
  1065.     code {oscildisplaygroup->redraw();
  1066. oldosc->redraw();
  1067. if (cbwidget!=NULL) cbwidget->do_callback();} {}
  1068.   }
  1069.   decl {OscilGen *oscil;} {}
  1070.   decl {Fl_Widget *oldosc,*cbwidget;} {}
  1071.   decl {Oscilharmonic *h[MAX_AD_HARMONICS];} {}
  1072.   decl {Master *master;} {}
  1073. } 
  1074.