moved old qt4 branch

1 files changed, 1131 insertions, 0 deletions

diff --git a/muse_qt4_evolution/synti/zynaddsubfx/UI/OscilGenUI.fl b/muse_qt4_evolution/synti/zynaddsubfx/UI/OscilGenUI.fl
new file mode 100644
index 00000000..0bd394ec
--- /dev/null
+++ b/muse_qt4_evolution/synti/zynaddsubfx/UI/OscilGenUI.fl
@@ -0,0 +1,1131 @@
+# data file for the Fltk User Interface Designer (fluid)
+version 1.0106 
+header_name {.h} 
+code_name {.cc}
+decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
+
+decl {//License: GNU GPL version 2} {} 
+
+decl {\#include "../Synth/OscilGen.h"} {public
+} 
+
+decl {\#include "../Misc/Util.h"} {public
+} 
+
+decl {\#include "../Misc/Master.h"} {public
+} 
+
+decl {\#include "ResonanceUI.h"} {public
+} 
+
+decl {\#include <FL/Fl_Box.H>} {public
+} 
+
+decl {\#include <FL/Fl_Group.H>} {public
+} 
+
+decl {\#include <FL/Fl_Slider.H>} {public
+} 
+
+decl {\#include <math.h>} {} 
+
+decl {\#include <stdio.h>} {} 
+
+decl {\#include <stdlib.h>} {} 
+
+decl {\#include <string.h>} {} 
+
+decl {\#include "WidgetPDial.h"} {public
+} 
+
+decl {\#include "EnvelopeUI.h"} {public
+} 
+
+decl {\#include "LFOUI.h"} {public
+} 
+
+decl {\#include "FilterUI.h"} {public
+} 
+
+decl {\#include "PresetsUI.h"} {public
+} 
+
+class OscilSpectrum {: {public Fl_Box}
+} {
+  Function {OscilSpectrum(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
+    code {oscil=NULL;} {}
+  }
+  Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
+    code {oscil=oscil_;
+oscbase=oscbase_;
+master=master_;} {}
+  }
+  Function {draw()} {} {
+    code {int ox=x(),oy=y(),lx=w(),ly=h(),i;
+const int maxdb=60;//must be multiple of 10
+int GX=2;
+int n=lx/GX-1;
+if (n>OSCIL_SIZE/2) n=OSCIL_SIZE/2;
+
+REALTYPE x;
+REALTYPE spc[n];
+for (i=0;i<n;i++) spc[i]=0.0;
+
+master->lock();
+if (oscbase==0) oscil->getspectrum(n,spc,0);
+    else oscil->getspectrum(n,spc,1);
+master->unlock();
+
+//normalize
+REALTYPE max=0;
+for (i=0;i<n;i++){
+   x=fabs(spc[i]);
+   if (max<x) max=x;
+}
+if (max<0.000001) max=1.0;
+max=max*1.05;
+
+//draw
+
+if (this->active_r()) fl_color(this->parent()->selection_color());
+    else fl_color(this->parent()->color());
+fl_line_style(FL_DOT);
+
+for (i=1;i<maxdb/10;i++){
+  int ky=(int)((REALTYPE)i*ly*10.0/maxdb)/2;
+  ky*=2;
+  fl_line(ox,oy+ky-1,ox+lx-2,oy+ky-1);
+};
+
+for (i=2;i<n;i++){
+    int tmp=i*GX-2;
+    if (i%10==1) fl_line_style(0);
+       else fl_line_style(FL_DOT);
+    fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
+}
+
+if (this->active_r()) fl_color(this->parent()->labelcolor());
+    else fl_color(this->parent()->color());
+fl_line_style(0);
+
+//draws the spectrum
+for (i=0;i<n;i++){
+   int tmp=i*GX+2;
+   x=spc[i]/max;
+   
+   if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;
+       else x=0;
+
+   int val=(int) ((ly-2)*x);
+   if (val>0) fl_line(ox+tmp,oy+ly-2-val,ox+tmp,oy+ly-2);
+};} {}
+  }
+  decl {OscilGen *oscil;} {}
+  decl {int oscbase;} {}
+  decl {Master *master;} {}
+} 
+
+class PSlider {: {public Fl_Slider}
+} {
+  Function {PSlider(int x,int y, int w, int h, const char *label=0):Fl_Slider(x,y,w,h,label)} {} {}
+  Function {handle(int event)} {return_type int
+  } {
+    code {int X=x(),Y=y(),W=w(),H=h();
+
+if ((!Fl::event_buttons())|| (event==0)||(Fl::event_shift()==0)) return(Fl_Slider::handle(event));
+
+if (!Fl::event_inside(X,Y,W,H)) {
+	if (event==FL_DRAG){
+		Fl_Slider::handle(FL_RELEASE);
+		Fl_Slider::handle(FL_LEAVE);
+		deactivate();
+		activate();
+		return(1);	
+	}else{
+		return(Fl_Slider::handle(event));
+	};
+} else {
+	//Fl_Slider::handle(FL_FOCUS);
+	Fl_Slider::handle(FL_PUSH);
+};
+
+return(1);} {}
+  }
+} 
+
+class Oscilloscope {: {public Fl_Box}
+} {
+  Function {Oscilloscope(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
+    code {oscil=NULL;
+phase=64;
+oscbase=0;} {}
+  }
+  Function {init(OscilGen *oscil_,Master *master_)} {} {
+    code {oscil=oscil_;
+master=master_;} {}
+  }
+  Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
+    code {oscil=oscil_;
+oscbase=oscbase_;
+master=master_;} {}
+  }
+  Function {init(OscilGen *oscil_,int oscbase_,int phase_,Master *master_)} {} {
+    code {oscil=oscil_;
+oscbase=oscbase_;
+phase=phase_;
+master=master_;} {}
+  }
+  Function {draw()} {} {
+    code {int ox=x(),oy=y(),lx=w(),ly=h()-1,i;
+REALTYPE smps[OSCIL_SIZE];
+master->lock();
+if (oscbase==0) oscil->get(smps,-1.0);
+    else oscil->getcurrentbasefunction(smps);
+master->unlock();
+
+if (damage()!=1){
+ fl_color(0,0,0);
+ fl_rectf(ox,oy,lx,ly);
+};
+
+//normalize
+REALTYPE max=0;
+for (i=0;i<OSCIL_SIZE;i++)
+   if (max<fabs(smps[i])) max=fabs(smps[i]);
+//fprintf(stderr,"%.4f\\n",max);
+if (max<0.00001) max=1.0;
+max=-max*1.05;
+
+//draw
+fl_line_style(FL_DASH);
+if (this->active_r()) fl_color(this->parent()->labelcolor());
+    else fl_color(this->parent()->color());
+int GX=16;if (lx<GX*3) GX=-1;
+for (i=1;i<GX;i++){
+   int tmp=(int)(lx/(REALTYPE)GX*i);
+   fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
+};
+int GY=8;if (ly<GY*3) GY=-1;
+for (i=1;i<GY;i++){
+   int tmp=(int)(ly/(REALTYPE)GY*i);
+   fl_line(ox+2,oy+tmp,ox+lx-2,oy+tmp);
+};
+
+//draw the function
+fl_line_style(0,1);
+fl_line(ox+2,oy+ly/2,ox+lx-2,oy+ly/2);
+if (this->active_r()) fl_color(this->parent()->selection_color());
+    else fl_color(this->parent()->labelcolor());
+int lw=1;
+//if ((lx<135)||(ly<135)) lw=1;
+fl_line_style(0,lw);
+int ph=(int)((phase-64.0)/128.0*OSCIL_SIZE+OSCIL_SIZE);
+for (i=1;i<lx;i++){
+   int k1=(int)((REALTYPE)OSCIL_SIZE*(i-1)/lx)+ph;
+   int k2=(int)((REALTYPE)OSCIL_SIZE*i/lx)+ph;
+   REALTYPE y1=smps[k1%OSCIL_SIZE]/max;
+   REALTYPE y2=smps[k2%OSCIL_SIZE]/max;
+   fl_line(i-1+ox,(int)(y1*ly/2.0)+oy+ly/2,i+ox,(int)(y2*ly/2.0)+oy+ly/2);
+};} {}
+  }
+  decl {OscilGen *oscil;} {}
+  decl {int oscbase;} {}
+  decl {int phase;} {public
+  }
+  decl {Master *master;} {}
+} 
+
+class Oscilharmonic {: {public Fl_Group}
+} {
+  Function {make_window()} {private
+  } {
+    Fl_Window harmonic {
+      private xywh {328 166 90 225} type Double hide
+      class Fl_Group
+    } {
+      Fl_Slider mag {
+        callback {int x=64;
+if (Fl::event_button3()) o->value(x);
+   else x=127-(int)o->value();
+if (x==64) o->selection_color(0);
+    else o->selection_color(222);
+
+master->lock();
+ oscil->Phmag[n]=x;
+ if (x==64) {
+    oscil->Phphase[n]=64;
+    phase->value(64);
+ };
+ oscil->prepare();
+master->unlock();
+
+display->redraw();
+oldosc->redraw();
+if (cbwidget!=NULL) {
+	cbwidget->do_callback();
+	applybutton->color(FL_RED);
+	applybutton->redraw();
+};}
+        xywh {0 15 15 115} type {Vert Knob} box FLAT_BOX selection_color 222 labelcolor 0 maximum 127 step 1 value 64
+        code0 {o->value(127-oscil->Phmag[n]);}
+        code1 {if (oscil->Phmag[n]==64) o->selection_color(0);}
+        class PSlider
+      }
+      Fl_Slider phase {
+        callback {int x=64;
+if (Fl::event_button3()) o->value(x);
+   else x=(int)o->value();
+
+master->lock();
+ oscil->Phphase[n]=x;
+ oscil->prepare();
+master->unlock();
+
+display->redraw();
+oldosc->redraw();
+if (cbwidget!=NULL) {
+	cbwidget->do_callback();
+	applybutton->color(FL_RED);
+	applybutton->redraw();
+};}
+        xywh {0 135 15 75} type {Vert Knob} box FLAT_BOX selection_color 222 maximum 127 step 1 value 64
+        code0 {o->value(oscil->Phphase[n]);}
+        class PSlider
+      }
+      Fl_Box {} {
+        xywh {15 70 5 5} box FLAT_BOX color 45
+      }
+      Fl_Box {} {
+        xywh {15 170 5 5} box FLAT_BOX color 45
+      }
+      Fl_Box {} {
+        label 01
+        xywh {0 210 20 15} labelfont 1 labelsize 9 align 20
+        code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
+      }
+      Fl_Box {} {
+        label 01
+        xywh {0 0 20 15} labelfont 1 labelsize 9 align 20
+        code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
+      }
+    }
+  }
+  Function {Oscilharmonic(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
+    code {n=0;
+oscil=NULL;
+display=NULL;
+applybutton=NULL;
+cbwidget=NULL;} {}
+  }
+  Function {init(OscilGen *oscil_,int n_,Fl_Group *display_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *applybutton_, Master *master_)} {} {
+    code {oscil=oscil_;
+n=n_;
+display=display_;
+master=master_;
+oldosc=oldosc_;
+cbwidget=cbwidget_;
+applybutton=applybutton_;
+make_window();
+end();
+harmonic->show();} {}
+  }
+  Function {refresh()} {} {
+    code {mag->value(127-oscil->Phmag[n]);
+phase->value(oscil->Phphase[n]);
+
+if (oscil->Phmag[n]==64) mag->selection_color(0);
+    else mag->selection_color(222);} {}
+  }
+  Function {~Oscilharmonic()} {} {
+    code {harmonic->hide();
+//delete(harmonic);} {}
+  }
+  decl {OscilGen *oscil;} {}
+  decl {Fl_Group *display;} {}
+  decl {int n;} {}
+  decl {Fl_Widget *oldosc,*cbwidget,*applybutton;} {}
+  decl {Master *master;} {}
+} 
+
+class OscilEditor {: {public PresetsUI_}
+} {
+  Function {make_window()} {} {
+    Fl_Window osceditUI {
+      label {ADsynth Oscillator Editor}
+      xywh {131 90 735 595} type Double hide
+      code0 {if (oscil->ADvsPAD) o->label("PADsynth Harmonic Content Editor");}
+    } {
+      Fl_Button applybutton {
+        label Apply
+        callback {applybutton->color(FL_GRAY);
+applybutton->redraw();
+if (cbapplywidget!=NULL) {
+	cbapplywidget->do_callback();
+	cbapplywidget->color(FL_GRAY);
+	cbapplywidget->redraw();
+};} selected
+        xywh {300 280 60 20} box THIN_UP_BOX labelfont 1
+        code0 {if (!oscil->ADvsPAD) o->hide();}
+      }
+      Fl_Group oscildisplaygroup {
+        xywh {5 5 360 300} box ENGRAVED_FRAME
+      } {
+        Fl_Group {} {open
+          xywh {10 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
+          code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
+          code1 {osc->init(oscil,master);}
+        } {}
+        Fl_Box {} {
+          label Oscillator
+          xywh {120 10 110 20} box FLAT_BOX labelfont 1
+        }
+        Fl_Value_Slider rndslider {
+          label rnd
+          callback {oscil->Prand=(int)o->value()+64;
+oscildisplaygroup->redraw();
+oldosc->redraw();}
+          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 FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
+          code0 {if (oscil->ADvsPAD) o->hide();}
+        }
+        Fl_Group {} {open
+          xywh {10 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
+          code0 {OscilSpectrum *spc=new OscilSpectrum(o->x(),o->y(),o->w(),o->h(),"");}
+          code1 {spc->init(oscil,0,master);}
+        } {}
+        Fl_Group {} {
+          xywh {246 277 115 25} box ENGRAVED_BOX
+          code0 {if (oscil->ADvsPAD) o->hide();}
+        } {
+          Fl_Choice hrndtype {
+            label {H.rnd}
+            callback {oscil->Pamprandtype=(int) o->value();}
+            tooltip {Harmonic Amplitude Randomness} xywh {281 282 50 15} down_box BORDER_BOX labelsize 10 textsize 10
+          } {
+            menuitem {} {
+              label None
+              xywh {60 60 100 20} labelfont 1 labelsize 10
+            }
+            menuitem {} {
+              label Pow
+              xywh {70 70 100 20} labelfont 1 labelsize 10
+            }
+            menuitem {} {
+              label Sin
+              xywh {80 80 100 20} labelfont 1 labelsize 10
+            }
+          }
+          Fl_Dial hrnddial {
+            callback {oscil->Pamprandpower=(int) o->value();}
+            tooltip {Oscillator's spectrum adjust parameter} xywh {338 280 18 18} maximum 127 step 1
+            class WidgetPDial
+          }
+        }
+      }
+      Fl_Box {} {
+        label {Base Func.}
+        xywh {495 15 110 20} box FLAT_BOX labelfont 1
+      }
+      Fl_Group basefuncdisplaygroup {
+        xywh {365 5 360 300} box ENGRAVED_FRAME
+      } {
+        Fl_Group {} {
+          xywh {370 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
+          code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
+          code1 {osc->init(oscil,1,master);}
+        } {}
+        Fl_Dial bfslider {
+          callback {oscil->Pbasefuncpar=(int)o->value()+64;
+basefuncdisplaygroup->redraw();
+bfparval->value(oscil->Pbasefuncpar-64);
+
+redrawoscil();}
+          tooltip {Base Function Parameter} xywh {520 280 20 20} minimum -64 maximum 63 step 1
+          class WidgetPDial
+        }
+        Fl_Choice bftype {
+          label {Base.F..}
+          callback {oscil->Pcurrentbasefunc=(int) o->value();
+
+basefuncdisplaygroup->redraw();
+redrawoscil();
+
+if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();
+      else basefuncmodulation->activate();}
+          xywh {370 285 90 15} down_box BORDER_BOX labelsize 10 align 5 textsize 12
+        } {
+          menuitem {} {
+            label Sine
+            xywh {10 10 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Triangle
+            xywh {20 20 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Pulse
+            xywh {30 30 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Saw
+            xywh {40 40 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Power
+            xywh {50 50 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Gauss
+            xywh {50 50 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Diode
+            xywh {60 60 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label AbsSine
+            xywh {70 70 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label PulseSine
+            xywh {80 80 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label StrchSine
+            xywh {90 90 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Chirp
+            xywh {100 100 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label AbsStrSine
+            xywh {102 102 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Chebyshev
+            xywh {112 112 100 20} labelfont 1 labelsize 12
+          }
+          menuitem {} {
+            label Sqr
+            xywh {122 122 100 20} labelfont 1 labelsize 12
+          }
+        }
+        Fl_Box {} {
+          label {Base Func.}
+          xywh {480 10 110 20} box FLAT_BOX labelfont 1
+        }
+        Fl_Group {} {open
+          xywh {370 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
+          code0 {OscilSpectrum *spc=new OscilSpectrum (o->x(),o->y(),o->w(),o->h(),"");}
+          code1 {spc->init(oscil,1,master);}
+        } {}
+        Fl_Value_Output bfparval {
+          label {Par.}
+          xywh {490 285 25 15} labelsize 13 minimum -63 maximum 63 step 1
+        }
+        Fl_Group basefuncmodulation {
+          xywh {550 276 169 25} box ENGRAVED_BOX
+          code0 {if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();}
+        } {
+          Fl_Choice bfmodtype {
+            label {B.F.Mod.}
+            callback {oscil->Pbasefuncmodulation=(int) o->value();
+basefuncdisplaygroup->redraw();
+redrawoscil();}
+            tooltip {Base function modulation} xywh {599 281 50 15} down_box BORDER_BOX labelsize 10 textsize 10
+          } {
+            menuitem {} {
+              label None
+              xywh {50 50 100 20} labelfont 1 labelsize 10
+            }
+            menuitem {} {
+              label Rev
+              xywh {60 60 100 20} labelfont 1 labelsize 10
+            }
+            menuitem {} {
+              label Sine
+              xywh {70 70 100 20} labelfont 1 labelsize 10
+            }
+            menuitem {} {
+              label Pow
+              xywh {80 80 100 20} labelfont 1 labelsize 10
+            }
+          }
+          Fl_Dial bfmodpar1 {
+            callback {oscil->Pbasefuncmodulationpar1=(int)o->value();
+basefuncdisplaygroup->redraw();
+redrawoscil();}
+            tooltip {Oscillator's modulation parameter 1} xywh {659 281 15 15} maximum 127 step 1
+            class WidgetPDial
+          }
+          Fl_Dial bfmodpar2 {
+            callback {oscil->Pbasefuncmodulationpar2=(int)o->value();
+basefuncdisplaygroup->redraw();
+redrawoscil();}
+            tooltip {Oscillator's modulation parameter 2} xywh {679 281 15 15} maximum 127 step 1
+            class WidgetPDial
+          }
+          Fl_Dial bfmodpar3 {
+            callback {oscil->Pbasefuncmodulationpar3=(int)o->value();
+basefuncdisplaygroup->redraw();
+redrawoscil();}
+            tooltip {Oscillator's modulation parameter 3} xywh {699 281 15 15} maximum 127 step 1
+            class WidgetPDial
+          }
+        }
+      }
+      Fl_Choice magtype {
+        label {Mag.Type}
+        callback {oscil->Phmagtype=(int) o->value();
+basefuncdisplaygroup->redraw();
+
+redrawoscil();}
+        xywh {70 280 65 20} down_box BORDER_BOX labelsize 12 textsize 12
+      } {
+        menuitem {} {
+          label Linear
+          xywh {0 0 100 20} labelfont 1 labelsize 12
+        }
+        menuitem {} {
+          label {-40dB}
+          xywh {10 10 100 20} labelfont 1 labelsize 12
+        }
+        menuitem {} {
+          label {-60dB}
+          xywh {20 20 100 20} labelfont 1 labelsize 12
+        }
+        menuitem {} {
+          label {-80dB}
+          xywh {30 30 100 20} labelfont 1 labelsize 12
+        }
+        menuitem {} {
+          label {-100dB}
+          xywh {40 40 100 20} labelfont 1 labelsize 12
+        }
+      }
+      Fl_Button {} {
+        label {Use as base}
+        callback {oscil->useasbase();
+if (autoclearbutton->value()){
+   for (int i=0;i<MAX_AD_HARMONICS;i++){
+      h[i]->mag->value(64);
+      oscil->Phmag[i]=64;
+      h[i]->phase->value(64);
+      oscil->Phphase[i]=64;
+   };
+   oscil->Phmag[0]=127;
+
+   oscil->Pharmonicshift=0;
+   harmonicshiftcounter->value(0);
+
+   h[0]->mag->value(0);
+   wshbutton->value(0);
+   wshbutton->do_callback();
+   fltbutton->value(0);
+   fltbutton->do_callback();
+   sabutton->value(0);
+   sabutton->do_callback();
+};
+
+master->lock();
+ for (int i=0;i<MAX_AD_HARMONICS;i++){
+   if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
+      else h[i]->mag->selection_color(222);
+ };
+ oscil->prepare();
+master->unlock();
+
+basefuncdisplaygroup->redraw();
+redrawoscil();}
+        tooltip {Use this Oscillator as base function} xywh {5 313 85 20} box THIN_UP_BOX labelfont 1 labelsize 12
+      }
+      Fl_Button {} {
+        label Close
+        callback {osceditUI->hide();}
+        xywh {668 565 62 25} box THIN_UP_BOX
+      }
+      Fl_Button {} {
+        label Clear
+        callback {if (!fl_ask("Clear the harmonics settings?")) return;
+
+for (int i=0;i<MAX_AD_HARMONICS;i++){
+    h[i]->mag->value(64);
+    oscil->Phmag[i]=64;
+    h[i]->phase->value(64);
+    oscil->Phphase[i]=64;
+};
+oscil->Phmag[0]=127;
+h[0]->mag->value(0);
+
+for (int i=0;i<MAX_AD_HARMONICS;i++){
+  if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
+     else h[i]->mag->selection_color(222);
+};
+
+//harmonics->redraw();
+
+master->lock();
+ oscil->prepare();
+master->unlock();
+
+redrawoscil();}
+        xywh {670 505 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
+      }
+      Fl_Group {} {
+        xywh {135 308 150 30} box ENGRAVED_BOX
+      } {
+        Fl_Choice wshbutton {
+          label {Wsh.}
+          callback {oscil->Pwaveshapingfunction=(int) o->value();
+basefuncdisplaygroup->redraw();
+redrawoscil();} open
+          tooltip {Waveshaping function} xywh {165 313 55 20} down_box BORDER_BOX labelsize 10 textsize 10
+        } {
+          menuitem {} {
+            label None
+            xywh {25 25 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Atan
+            xywh {35 35 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Asym1
+            xywh {45 45 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Pow
+            xywh {55 55 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Sine
+            xywh {65 65 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Qnts
+            xywh {75 75 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Zigzg
+            xywh {85 85 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Lmt
+            xywh {95 95 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label LmtU
+            xywh {105 105 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label LmtL
+            xywh {115 115 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label ILmt
+            xywh {127 127 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Clip
+            xywh {137 137 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Asym2
+            xywh {85 85 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Pow2
+            xywh {95 95 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Sgm
+            xywh {90 90 100 20} labelfont 1 labelsize 10
+          }
+        }
+        Fl_Dial wshpar {
+          callback {oscil->Pwaveshaping=(int)o->value()+64;
+wsparval->value(oscil->Pwaveshaping-64);
+redrawoscil();}
+          tooltip {Waveshaping Parameter} xywh {260 313 20 20} minimum -64 maximum 63 step 1
+          class WidgetPDial
+        }
+        Fl_Value_Output wsparval {
+          xywh {228 316 25 15} labelsize 13 minimum -63 maximum 63 step 1
+        }
+      }
+      Fl_Light_Button autoclearbutton {
+        label {Clr.}
+        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
+      }
+      Fl_Group {} {
+        xywh {285 308 155 30} box ENGRAVED_BOX
+      } {
+        Fl_Choice fltbutton {
+          label Filter
+          callback {oscil->Pfiltertype=(int) o->value();
+
+redrawoscil();}
+          tooltip {Oscillator's filter type} xywh {315 313 50 20} down_box BORDER_BOX labelsize 10 textsize 10
+        } {
+          menuitem {} {
+            label None
+            xywh {35 35 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label LP1
+            xywh {45 45 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label HP1a
+            xywh {55 55 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label HP1b
+            xywh {65 65 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label BP1
+            xywh {75 75 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label BS1
+            xywh {85 85 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label LP2
+            xywh {55 55 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label HP2
+            xywh {65 65 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label BP2
+            xywh {65 65 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label BS2
+            xywh {75 75 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Cos
+            xywh {75 75 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Sin
+            xywh {85 85 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label LSh
+            xywh {95 95 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label S
+            xywh {105 105 100 20} labelfont 1 labelsize 10
+          }
+        }
+        Fl_Dial filtervalue1 {
+          callback {oscil->Pfilterpar1=(int)o->value();
+
+redrawoscil();}
+          tooltip {Oscillator's filter parameter1} xywh {367 313 20 20} maximum 127 step 1
+          class WidgetPDial
+        }
+        Fl_Check_Button filterpref {
+          label p
+          callback {oscil->Pfilterbeforews=(int)o->value();
+
+redrawoscil();}
+          tooltip {Apply the filter before the waveshaping} xywh {415 313 20 20} down_box DOWN_BOX labelsize 10 align 24
+        }
+        Fl_Dial filtervalue2 {
+          callback {oscil->Pfilterpar2=(int)o->value();
+
+redrawoscil();}
+          tooltip {Oscillator's filter parameter2} xywh {392 313 20 20} maximum 127 step 1
+          class WidgetPDial
+        }
+      }
+      Fl_Group {} {
+        xywh {590 308 135 30} box ENGRAVED_BOX
+      } {
+        Fl_Choice sabutton {
+          label {Sp.adj.}
+          callback {oscil->Psatype=(int) o->value();
+redrawoscil();}
+          tooltip {Oscillator's spectrum adjust} xywh {630 313 60 20} down_box BORDER_BOX labelsize 10 textsize 10
+        } {
+          menuitem {} {
+            label None
+            xywh {55 55 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Pow
+            xywh {65 65 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label ThrsD
+            xywh {75 75 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label ThrsU
+            xywh {85 85 100 20} labelfont 1 labelsize 10
+          }
+        }
+        Fl_Dial sadjpar {
+          callback {oscil->Psapar=(int)o->value();
+redrawoscil();}
+          tooltip {Oscillator's spectrum adjust parameter} xywh {695 313 20 20} maximum 127 step 1
+          class WidgetPDial
+        }
+      }
+      Fl_Group {} {
+        xywh {665 340 65 65} box ENGRAVED_BOX
+      } {
+        Fl_Counter harmonicshiftcounter {
+          label {Harmonic Shift}
+          callback {oscil->Pharmonicshift=(int)o->value();
+redrawoscil();}
+          xywh {670 365 55 15} type Simple labelsize 10 align 129 minimum -64 maximum 64 step 1 textfont 1 textsize 10
+        }
+        Fl_Check_Button harmonicshiftpre {
+          label preH
+          callback {oscil->Pharmonicshiftfirst=(int)o->value();
+redrawoscil();}
+          tooltip {Apply the harmonic shift before the waveshaping and filtering} xywh {690 385 34 15} down_box DOWN_BOX labelsize 10 align 24
+        }
+        Fl_Button {} {
+          label R
+          callback {oscil->Pharmonicshift=0;
+harmonicshiftcounter->value(0);
+redrawoscil();}
+          xywh {670 385 20 15} box THIN_UP_BOX labelfont 1 labelsize 10
+        }
+      }
+      Fl_Group {} {
+        xywh {665 410 65 90} box ENGRAVED_FRAME
+      } {
+        Fl_Choice adhrtype {
+          label {Adpt.Harm.}
+          callback {oscil->Padaptiveharmonics=(int) o->value();
+redrawoscil();}
+          tooltip {The type of the addaptive harmonics} xywh {670 425 55 15} down_box BORDER_BOX labelsize 10 align 129 when 6 textsize 10
+        } {
+          menuitem {} {
+            label OFF
+            xywh {80 80 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label ON
+            xywh {90 90 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Square
+            xywh {100 100 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 2xSub
+            xywh {110 110 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 2xAdd
+            xywh {120 120 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 3xSub
+            xywh {120 120 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 3xAdd
+            xywh {130 130 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 4xSub
+            xywh {130 130 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label 4xAdd
+            xywh {140 140 100 20} labelfont 1 labelsize 10
+          }
+        }
+        Fl_Dial adhrpow {
+          label pow
+          callback {oscil->Padaptiveharmonicspower=(int)o->value();
+redrawoscil();}
+          tooltip {Adaptive harmonics power} xywh {700 460 25 25} labelsize 10 maximum 200 step 1
+          class WidgetPDial
+        }
+        Fl_Dial adhrbf {
+          label baseF
+          callback {oscil->Padaptiveharmonicsbasefreq=(int)o->value();
+redrawoscil();}
+          tooltip {Adaptive harmonics base frequency} xywh {670 460 25 25} labelsize 10 maximum 255 step 1
+          class WidgetPDial
+        }
+        Fl_Slider adhrpar {
+          callback {oscil->Padaptiveharmonicspar=(int)o->value();
+redrawoscil();}
+          xywh {670 445 55 10} type {Horz Knob} box FLAT_BOX maximum 100 step 1 value 50
+        }
+      }
+      Fl_Group {} {
+        xywh {440 308 150 30} box ENGRAVED_BOX
+      } {
+        Fl_Choice modtype {
+          label {Mod.}
+          callback {oscil->Pmodulation=(int) o->value();
+
+redrawoscil();}
+          tooltip modulation xywh {470 315 50 15} down_box BORDER_BOX labelsize 10 textsize 10
+        } {
+          menuitem {} {
+            label None
+            xywh {60 60 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Rev
+            xywh {70 70 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Sine
+            xywh {80 80 100 20} labelfont 1 labelsize 10
+          }
+          menuitem {} {
+            label Pow
+            xywh {90 90 100 20} labelfont 1 labelsize 10
+          }
+        }
+        Fl_Dial modpar1 {
+          callback {oscil->Pmodulationpar1=(int)o->value();
+
+redrawoscil();}
+          tooltip {Oscillator's modulation parameter 1} xywh {530 315 15 15} maximum 127 step 1
+          class WidgetPDial
+        }
+        Fl_Dial modpar2 {
+          callback {oscil->Pmodulationpar2=(int)o->value();
+
+redrawoscil();}
+          tooltip {Oscillator's modulation parameter 2} xywh {550 315 15 15} maximum 127 step 1
+          class WidgetPDial
+        }
+        Fl_Dial modpar3 {
+          callback {oscil->Pmodulationpar3=(int)o->value();
+redrawoscil();}
+          tooltip {Oscillator's modulation parameter 3} xywh {570 315 15 15} maximum 127 step 1
+          class WidgetPDial
+        }
+      }
+      Fl_Button {} {
+        label Sine
+        callback {if (!fl_ask("Convert to SINE?")) return;
+
+master->lock();
+ oscil->convert2sine(0);
+master->unlock();
+
+redrawoscil();
+refresh();}
+        xywh {670 525 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
+      }
+      Fl_Button {} {
+        label C
+        callback {presetsui->copy(oscil);}
+        xywh {670 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
+      }
+      Fl_Button {} {
+        label P
+        callback {presetsui->paste(oscil,this);}
+        xywh {700 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
+      }
+      Fl_Scroll _this_has_to_be_the_last {
+        xywh {5 340 660 250} type HORIZONTAL box ENGRAVED_BOX
+      } {
+        Fl_Pack harmonics {open
+          xywh {10 345 650 225} type HORIZONTAL
+          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);}}
+        } {}
+      }
+    }
+  }
+  Function {OscilEditor(OscilGen *oscil_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *cbapplywidget_,Master *master_)} {} {
+    code {oscil=oscil_;
+oldosc=oldosc_;
+cbwidget=cbwidget_;
+cbapplywidget=cbapplywidget_;
+master=master_;
+
+make_window();
+
+refresh();
+osceditUI->show();} {}
+  }
+  Function {~OscilEditor()} {} {
+    code {osceditUI->hide();
+//for (int i=0;i<MAX_AD_HARMONICS;i++) delete (h[i]);
+delete (osceditUI);} {}
+  }
+  Function {refresh()} {} {
+    code {magtype->value(oscil->Phmagtype);
+rndslider->value(oscil->Prand-64);
+
+hrndtype->value(oscil->Pamprandtype);
+hrnddial->value(oscil->Pamprandpower);
+
+bftype->value(oscil->Pcurrentbasefunc);
+bfparval->value(oscil->Pbasefuncpar-64);
+bfslider->value(oscil->Pbasefuncpar-64);
+
+bfmodtype->value(oscil->Pbasefuncmodulation);
+bfmodpar1->value(oscil->Pbasefuncmodulationpar1);
+bfmodpar2->value(oscil->Pbasefuncmodulationpar2);
+bfmodpar3->value(oscil->Pbasefuncmodulationpar3);
+
+wshbutton->value(oscil->Pwaveshapingfunction);
+wsparval->value(oscil->Pwaveshaping-64);
+wshpar->value(oscil->Pwaveshaping-64);
+
+fltbutton->value(oscil->Pfiltertype);
+filtervalue1->value(oscil->Pfilterpar1);
+filtervalue2->value(oscil->Pfilterpar2);
+filterpref->value(oscil->Pfilterbeforews);
+
+modtype->value(oscil->Pmodulation);
+modpar1->value(oscil->Pmodulationpar1);
+modpar2->value(oscil->Pmodulationpar2);
+modpar3->value(oscil->Pmodulationpar3);
+
+sabutton->value(oscil->Psatype);
+sadjpar->value(oscil->Psapar);
+
+harmonicshiftcounter->value(oscil->Pharmonicshift);
+harmonicshiftpre->value(oscil->Pharmonicshiftfirst);
+
+adhrtype->value(oscil->Padaptiveharmonics);
+adhrbf->value(oscil->Padaptiveharmonicsbasefreq);
+adhrpow->value(oscil->Padaptiveharmonicspower);
+adhrtype->value(oscil->Padaptiveharmonicspar);
+
+for (int i=0;i<MAX_AD_HARMONICS;i++) h[i]->refresh();
+
+master->lock();
+ oscil->prepare();
+master->unlock();
+
+basefuncdisplaygroup->redraw();
+redrawoscil();} {}
+  }
+  Function {redrawoscil()} {} {
+    code {oscildisplaygroup->redraw();
+oldosc->redraw();
+if (cbwidget!=NULL) {
+      cbwidget->do_callback();
+      applybutton->color(FL_RED);
+      applybutton->redraw();
+};} {}
+  }
+  decl {OscilGen *oscil;} {}
+  decl {Fl_Widget *oldosc,*cbwidget,*cbapplywidget;} {}
+  decl {Oscilharmonic *h[MAX_AD_HARMONICS];} {}
+  decl {Master *master;} {}
+}