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

1007 lines
31KB
Raw Blame History 

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

  2. version 1.0300 

  3. header_name {.h} 

  4. code_name {.cc}

  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {private local

  6. } 

  7. 

  8. decl {//License: GNU GPL version 2 or later} {private local

  9. } 

  10. 

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

  12. } 

  13. 

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

  15. } 

  16. 

  17. decl {\#include "ResonanceUI.h"} {public local

  18. } 

  19. 

  20. decl {\#include "Fl_Oscilloscope.h"} {public local

  21. } 

  22. 

  23. decl {\#include "Fl_OscilSpectrum.h"} {public local

  24. } 

  25. 

  26. decl {\#include "Fl_Osc_Interface.h"} {public local

  27. } 

  28. 

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

  30. } 

  31. 

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

  33. } 

  34. 

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

  36. } 

  37. 

  38. decl {\#include <math.h>} {private local

  39. } 

  40. 

  41. decl {\#include <stdio.h>} {private local

  42. } 

  43. 

  44. decl {\#include <stdlib.h>} {private local

  45. } 

  46. 

  47. decl {\#include <string.h>} {private local

  48. } 

  49. 

  50. decl {\#include "Fl_Osc_Pane.H"} {public local

  51. } 

  52. 

  53. decl {\#include "Fl_Osc_Dial.H"} {public local

  54. } 

  55. 

  56. decl {\#include "Fl_Osc_Choice.H"} {public local

  57. } 

  58. 

  59. decl {\#include "Fl_Osc_Counter.H"} {public local

  60. } 

  61. 

  62. decl {\#include "Fl_Osc_Slider.H"} {public local

  63. } 

  64. 

  65. decl {\#include "PresetsUI.h"} {public local

  66. } 

  67. 

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

  69. } 

  70. 

  71. class PSlider {: {public Fl_Slider, public Fl_Osc_Widget}

  72. } {

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

  74.   } {

  75.     code {phase=false;} {}

  76.   }

  77.   Function {handle(int event)} {open return_type int

  78.   } {

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

  80. 

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

  82. 

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

  84. 	if (event==FL_DRAG){

  85. 		Fl_Slider::handle(FL_RELEASE);

  86. 		Fl_Slider::handle(FL_LEAVE);

  87. 		deactivate();

  88. 		activate();

  89. 		return(1);	

  90. 	}else{

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

  92. 	};

  93. } else {

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

  95. 	Fl_Slider::handle(FL_PUSH);

  96. };

  97. 

  98. return(1);} {}

  99.   }

  100.   Function {OSC_value(char c)} {open return_type void

  101.   } {

  102.     code {if(phase)

  103.     value(c);

  104. else

  105.     value(127-c);} {}

  106.   }

  107.   decl {bool phase;} {public local

  108.   }

  109. } 

  110. 

  111. class Oscilharmonic {: {public Fl_Group}

  112. } {

  113.   Function {make_window()} {open private

  114.   } {

  115.     Fl_Window harmonic {open

  116.       private xywh {467 756 100 225} type Double box NO_BOX

  117.       class Fl_Osc_Group visible

  118.     } {

  119.       Fl_Slider mag {

  120.         callback {int x=64;

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

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

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

  124.     else o->selection_color(222);

  125. 

  126.  o->osc->writeValue(o->loc+"magnitude"+to_s(n), (char)x);

  127.  if (x==64) {

  128.     o->osc->writeValue(o->loc+"phase"+to_s(n), (char)64);

  129.     phase->value(64);

  130.  }

  131.  o->osc->requestValue(o->loc+"prepare");

  132.  o->osc->requestValue(o->loc+"spectrum");

  133.  o->osc->requestValue(o->loc+"waveform");

  134. 

  135. display->redraw();}

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

  137.         code0 {o->phase=false;//o->value(127-oscil->Phmag[n]);}

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

  139.         class PSlider

  140.       }

  141.       Fl_Slider phase {

  142.         callback {int x=64;

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

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

  145. 

  146. o->osc->writeValue(o->loc+"phase"+to_s(n), (char) x);

  147. o->osc->requestValue(o->loc+"prepare");

  148. o->osc->requestValue(o->loc+"spectrum");

  149. o->osc->requestValue(o->loc+"waveform");

  150. 

  151. display->redraw();}

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

  153.         code0 {o->phase=true;//o->value(oscil->Phphase[n]);}

  154.         class PSlider

  155.       }

  156.       Fl_Box {} {

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

  158.       }

  159.       Fl_Box {} {

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

  161.       }

  162.       Fl_Box {} {

  163.         label 01

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

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

  166.       }

  167.       Fl_Box {} {

  168.         label 01

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

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

  171.       }

  172.     }

  173.   }

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

  175.     code {n=0;

  176. display=NULL;} {}

  177.   }

  178.   Function {init(int n_,Fl_Group *display_, std::string loc_, Fl_Osc_Interface *osc_)} {open

  179.   } {

  180.     code {assert(osc_);

  181. assert(!loc_.empty());

  182. 

  183. n=n_;

  184. display=display_;

  185. osc = osc_;

  186. loc = loc_;

  187. make_window();

  188. mag->osc = osc;

  189. mag->loc = loc;

  190. phase->osc = osc;

  191. phase->loc = loc;

  192. 

  193. osc->createLink(loc+"magnitude"+to_s(n), mag);

  194. osc->createLink(loc+"phase"+to_s(n), phase);

  195. osc->requestValue(loc+"magnitude"+to_s(n));

  196. osc->requestValue(loc+"phase"+to_s(n));

  197. end();

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

  199.   }

  200.   Function {refresh()} {open

  201.   } {

  202.     code {osc->requestValue(loc+"magnitude"+to_s(n));//mag->value(127-oscil->Phmag[n]);

  203. osc->requestValue(loc+"phase"+to_s(n));//phase->value(oscil->Phphase[n]);

  204. 

  205. if (mag->value()==64)

  206.     mag->selection_color(0);

  207. else

  208.     mag->selection_color(222);} {}

  209.   }

  210.   Function {~Oscilharmonic()} {open

  211.   } {

  212.     code {osc->removeLink(loc+"magnitude"+to_s(n), mag);

  213. osc->removeLink(loc+"phase"+to_s(n), phase);

  214. 

  215. harmonic->hide();

  216. delete harmonic;} {}

  217.   }

  218.   decl {Fl_Group *display;} {private local

  219.   }

  220.   decl {int n;} {private local

  221.   }

  222.   decl {Fl_Osc_Interface *osc;} {private local

  223.   }

  224.   decl {std::string loc;} {private local

  225.   }

  226. } 

  227. class OscilEditor {open : {public PresetsUI_}

  228. } {

  229.   Function {make_window()} {open

  230.   } {

  231.     Fl_Window osceditUI {

  232.       label {ADsynth Oscillator Editor} open

  233.       xywh {52 100 735 595} type Double

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

  235.     } {

  236.       Fl_Group dummy {open

  237.         xywh {0 0 735 595} box FLAT_BOX

  238.         class Fl_Osc_Group

  239.       } {

  240.         Fl_Button applybutton {

  241.           label Apply

  242.           callback {//applybutton->color(FL_GRAY);

  243. //applybutton->redraw();

  244. //if (cbapplywidget!=NULL) {

  245. //	cbapplywidget->do_callback();

  246. //	cbapplywidget->color(FL_GRAY);

  247. //	cbapplywidget->redraw();

  248. //};}

  249.           xywh {305 285 60 20} box THIN_UP_BOX labelfont 1

  250.           code0 {if(adnotep) o->hide();}

  251.           code1 {dummy->base = loc;}

  252.           code2 {dummy->osc = osc;}

  253.         }

  254.         Fl_Group oscildisplaygroup {open

  255.           xywh {10 10 360 300} box UP_FRAME

  256.         } {

  257.           Fl_Group {} {open

  258.             xywh {15 90 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

  259.             code0 {oscilo=new Fl_Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  260.             code1 {oscilo->parent(o);oscilo->init(false);}

  261.           } {}

  262.           Fl_Box {} {

  263.             label Oscillator

  264.             xywh {125 15 110 20} labelfont 1

  265.           }

  266.           Fl_Value_Slider rndslider {

  267.             label rnd

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

  269. oscildisplaygroup->redraw();}

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

  271.             code0 {(void)o;//if (oscil->ADvsPAD) o->hide();}

  272.           }

  273.           Fl_Group {} {open

  274.             xywh {15 35 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63

  275.             code0 {oscils=new Fl_OscilSpectrum(o->x(),o->y(),o->w(),o->h(),"");}

  276.             code1 {oscils->parent(o);oscils->init(false);}

  277.           } {}

  278.           Fl_Group {} {open

  279.             xywh {251 282 115 25} box UP_FRAME

  280.             code0 {if (!adnotep) o->hide();}

  281.           } {

  282.             Fl_Choice hrndtype {

  283.               label {H.rnd}

  284.               tooltip {Harmonic Amplitude Randomness} xywh {286 287 50 15} down_box BORDER_BOX labelsize 10 textsize 10

  285.               code0 {o->init("Pamprandtype");}

  286.               class Fl_Osc_Choice

  287.             } {

  288.               MenuItem {} {

  289.                 label None

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

  291.               }

  292.               MenuItem {} {

  293.                 label Pow

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

  295.               }

  296.               MenuItem {} {

  297.                 label Sin

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

  299.               }

  300.             }

  301.             Fl_Dial hrnddial {

  302.               tooltip {Oscillator's spectrum adjust parameter} xywh {345 285 18 18} maximum 127 step 1

  303.               code0 {o->init("Pamprandpower");}

  304.               class Fl_Osc_Dial

  305.             }

  306.           }

  307.           Fl_Choice magtype {

  308.             label {Mag.Type}

  309.             callback {redrawoscil();}

  310.             xywh {75 285 65 20} down_box BORDER_BOX labelsize 11 when 1 textsize 11

  311.             code0 {o->init("Phmagtype");}

  312.             class Fl_Osc_Choice

  313.           } {

  314.             MenuItem {} {

  315.               label Linear

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

  317.             }

  318.             MenuItem {} {

  319.               label {-40dB}

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

  321.             }

  322.             MenuItem {} {

  323.               label {-60dB}

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

  325.             }

  326.             MenuItem {} {

  327.               label {-80dB}

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

  329.             }

  330.             MenuItem {} {

  331.               label {-100dB}

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

  333.             }

  334.           }

  335.         }

  336.         Fl_Group basefuncdisplaygroup {open

  337.           xywh {370 10 360 300} box UP_FRAME

  338.           code0 {o->base = loc;}

  339.           code1 {o->osc = osc;}

  340.           code2 {assert(osc);}

  341.           class Fl_Osc_Group

  342.         } {

  343.           Fl_Group {} {

  344.             xywh {375 90 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179

  345.             code0 {oscilo_base=new Fl_Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}

  346.             code1 {oscilo_base->parent(o);oscilo_base->init(true);}

  347.           } {}

  348.           Fl_Dial bfslider {

  349.             callback {redrawoscil(); bfparval->value(o->value());}

  350.             tooltip {Base Function Parameter} xywh {525 285 20 20} minimum -64 maximum 63 step 1

  351.             code0 {o->init("Pbasefuncpar");}

  352.             class Fl_Osc_Dial

  353.           }

  354.           Fl_Choice bftype {

  355.             label {Base.F..}

  356.             callback {basefuncdisplaygroup->redraw();

  357. redrawoscil();

  358. 

  359. if(!basefuncmodulation)

  360. return;

  361. if(o->value()==0||o->value()==127) basefuncmodulation->deactivate();

  362. else basefuncmodulation->activate();}

  363.             xywh {375 290 90 15} down_box BORDER_BOX labelsize 10 align 5 when 1 textsize 11

  364.             class Fl_Osc_Choice

  365.           } {

  366.             MenuItem {} {

  367.               label Sine

  368.               xywh {15 15 100 20} labelfont 1 labelsize 11

  369.             }

  370.             MenuItem {} {

  371.               label Triangle

  372.               xywh {25 25 100 20} labelfont 1 labelsize 11

  373.             }

  374.             MenuItem {} {

  375.               label Pulse

  376.               xywh {35 35 100 20} labelfont 1 labelsize 11

  377.             }

  378.             MenuItem {} {

  379.               label Saw

  380.               xywh {45 45 100 20} labelfont 1 labelsize 11

  381.             }

  382.             MenuItem {} {

  383.               label Power

  384.               xywh {55 55 100 20} labelfont 1 labelsize 11

  385.             }

  386.             MenuItem {} {

  387.               label Gauss

  388.               xywh {55 55 100 20} labelfont 1 labelsize 11

  389.             }

  390.             MenuItem {} {

  391.               label Diode

  392.               xywh {65 65 100 20} labelfont 1 labelsize 11

  393.             }

  394.             MenuItem {} {

  395.               label AbsSine

  396.               xywh {75 75 100 20} labelfont 1 labelsize 11

  397.             }

  398.             MenuItem {} {

  399.               label PulseSine

  400.               xywh {85 85 100 20} labelfont 1 labelsize 11

  401.             }

  402.             MenuItem {} {

  403.               label StrchSine

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

  405.             }

  406.             MenuItem {} {

  407.               label Chirp

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

  409.             }

  410.             MenuItem {} {

  411.               label AbsStrSine

  412.               xywh {107 107 100 20} labelfont 1 labelsize 11

  413.             }

  414.             MenuItem {} {

  415.               label Chebyshev

  416.               xywh {117 117 100 20} labelfont 1 labelsize 11

  417.             }

  418.             MenuItem {} {

  419.               label Sqr

  420.               xywh {127 127 100 20} labelfont 1 labelsize 11

  421.             }

  422.             MenuItem {} {

  423.               label Spike

  424.               xywh {127 127 100 20} labelfont 1 labelsize 11

  425.             }

  426.             MenuItem {} {

  427.               label Circle

  428.               xywh {127 127 100 20} labelfont 1 labelsize 11

  429.             }

  430.           }

  431.           Fl_Box {} {

  432.             label {Base Func.}

  433.             xywh {485 15 110 20} labelfont 1

  434.           }

  435.           Fl_Group {} {open

  436.             xywh {375 35 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63

  437.             code0 {oscils_base=new Fl_OscilSpectrum (o->x(),o->y(),o->w(),o->h(),"");}

  438.             code1 {oscils_base->parent(o);oscils_base->init(true);}

  439.           } {}

  440.           Fl_Value_Output bfparval {

  441.             label {Par.}

  442.             xywh {495 290 25 15} labelsize 12 minimum -63 maximum 63 step 1

  443.           }

  444.           Fl_Group basefuncmodulation {open

  445.             xywh {555 281 169 25} box UP_FRAME

  446.             code0 {}

  447.             } {

  448.             Fl_Choice bfmodtype {

  449.               label {B.F.Mod.}

  450.               callback {basefuncdisplaygroup->redraw();

  451. redrawoscil();}

  452.               tooltip {Base function modulation} xywh {604 286 50 15} down_box BORDER_BOX labelsize 10 when 1 textsize 10

  453.               code0 {o->init("Pbasefuncmodulation");}

  454.               class Fl_Osc_Choice

  455.             } {

  456.               MenuItem {} {

  457.                 label None

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

  459.               }

  460.               MenuItem {} {

  461.                 label Rev

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

  463.               }

  464.               MenuItem {} {

  465.                 label Sine

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

  467.               }

  468.               MenuItem {} {

  469.                 label Pow

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

  471.               }

  472.             }

  473.             Fl_Dial bfmodpar1 {

  474.               callback {redrawoscil();}

  475.               tooltip {Oscillator's modulation parameter 1} xywh {664 286 15 15} maximum 127 step 1

  476.               code0 {o->init("Pbasefuncmodulationpar1");}

  477.               class Fl_Osc_Dial

  478.             }

  479.             Fl_Dial bfmodpar2 {

  480.               callback {redrawoscil();}

  481.               tooltip {Oscillator's modulation parameter 2} xywh {684 286 15 15} maximum 127 step 1

  482.               code0 {o->init("Pbasefuncmodulationpar2");}

  483.               class Fl_Osc_Dial

  484.             }

  485.             Fl_Dial bfmodpar3 {

  486.               callback {redrawoscil();} selected

  487.               tooltip {Oscillator's modulation parameter 3} xywh {704 286 15 15} maximum 127 step 1

  488.               code0 {o->init("Pbasefuncmodulationpar3");}

  489.               class Fl_Osc_Dial

  490.             }

  491.           }

  492.         }

  493.         Fl_Button {} {

  494.           label {Use as base}

  495.           callback {osc->requestValue(loc+"use-as-base");

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

  497.    for (int i=0;i<(MAX_AD_HARMONICS - 1);i++){

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

  499.       h[i]->mag->do_callback();

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

  501.       h[i]->phase->do_callback();

  502.    };

  503. 

  504.    harmonicshiftcounter->value(0);

  505. 

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

  507.    h[0]->mag->do_callback();

  508.    wshbutton->value(0);

  509.    wshbutton->do_callback();

  510.    fltbutton->value(0);

  511.    fltbutton->do_callback();

  512.    sabutton->value(0);

  513.    sabutton->do_callback();

  514. };

  515. 

  516.  osc->requestValue(loc+"prepare");

  517. 

  518. basefuncdisplaygroup->redraw();

  519. redrawoscil();}

  520.           tooltip {Use this Oscillator as base function} xywh {10 318 85 20} box THIN_UP_BOX labelfont 1 labelsize 11

  521.         }

  522.         Fl_Button {} {

  523.           label Close

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

  525.           xywh {673 570 62 25} box THIN_UP_BOX

  526.         }

  527.         Fl_Button {} {

  528.           label Clear

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

  530. 

  531. for (int i=0;i<(MAX_AD_HARMONICS - 1);i++){

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

  533.     h[i]->mag->do_callback();

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

  535.     h[i]->phase->do_callback();

  536. };

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

  538. h[0]->mag->do_callback();

  539. 

  540. //for (int i=0;i<(MAX_AD_HARMONICS - 1);i++){

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

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

  543. //};

  544. 

  545. //harmonics->redraw();

  546. osc->requestValue(loc+"prepare");

  547. redrawoscil();}

  548.           xywh {675 510 55 15} box THIN_UP_BOX labelfont 1 labelsize 11

  549.         }

  550.         Fl_Group {} {

  551.           xywh {140 313 150 30} box UP_FRAME

  552.         } {

  553.           Fl_Choice wshbutton {

  554.             label {Wsh.}

  555.             callback {basefuncdisplaygroup->redraw();

  556. redrawoscil();}

  557.             tooltip {Waveshaping function} xywh {170 320 55 20} down_box BORDER_BOX labelsize 10 when 1 textsize 10

  558.             code0 {o->init("Pwaveshapingfunction");}

  559.             class Fl_Osc_Choice

  560.           } {

  561.             MenuItem {} {

  562.               label None

  563.               xywh {30 30 100 20} labelfont 1 labelsize 10

  564.             }

  565.             MenuItem {} {

  566.               label Atan

  567.               xywh {40 40 100 20} labelfont 1 labelsize 10

  568.             }

  569.             MenuItem {} {

  570.               label Asym1

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

  572.             }

  573.             MenuItem {} {

  574.               label Pow

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

  576.             }

  577.             MenuItem {} {

  578.               label Sine

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

  580.             }

  581.             MenuItem {} {

  582.               label Qnts

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

  584.             }

  585.             MenuItem {} {

  586.               label Zigzg

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

  588.             }

  589.             MenuItem {} {

  590.               label Lmt

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

  592.             }

  593.             MenuItem {} {

  594.               label LmtU

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

  596.             }

  597.             MenuItem {} {

  598.               label LmtL

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

  600.             }

  601.             MenuItem {} {

  602.               label ILmt

  603.               xywh {132 132 100 20} labelfont 1 labelsize 10

  604.             }

  605.             MenuItem {} {

  606.               label Clip

  607.               xywh {142 142 100 20} labelfont 1 labelsize 10

  608.             }

  609.             MenuItem {} {

  610.               label Asym2

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

  612.             }

  613.             MenuItem {} {

  614.               label Pow2

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

  616.             }

  617.             MenuItem {} {

  618.               label Sgm

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

  620.             }

  621.           }

  622.           Fl_Dial wshpar {

  623.             callback {redrawoscil(); wsparval->value(o->value());}

  624.             tooltip {Waveshaping Parameter} xywh {265 318 20 20} minimum -64 maximum 63 step 1

  625.             code0 {o->init("Pwaveshaping");}

  626.             class Fl_Osc_Dial

  627.           }

  628.           Fl_Value_Output wsparval {

  629.             xywh {233 321 25 15} labelsize 12 minimum -63 maximum 63 step 1

  630.           }

  631.         }

  632.         Fl_Light_Button autoclearbutton {

  633.           label {Clr.}

  634.           tooltip {Auto clear when using the oscillator as base function} xywh {100 318 35 20} box THIN_UP_BOX value 1 labelfont 1 labelsize 10

  635.         }

  636.         Fl_Group {} {

  637.           xywh {290 313 155 30} box UP_FRAME

  638.         } {

  639.           Fl_Choice fltbutton {

  640.             label Filter

  641.             callback {redrawoscil();}

  642.             tooltip {Oscillator's filter type} xywh {320 318 50 20} down_box BORDER_BOX labelsize 10 when 1 textsize 10

  643.             code0 {o->init("Pfiltertype");}

  644.             class Fl_Osc_Choice

  645.           } {

  646.             MenuItem {} {

  647.               label None

  648.               xywh {40 40 100 20} labelfont 1 labelsize 10

  649.             }

  650.             MenuItem {} {

  651.               label LP1

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

  653.             }

  654.             MenuItem {} {

  655.               label HP1a

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

  657.             }

  658.             MenuItem {} {

  659.               label HP1b

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

  661.             }

  662.             MenuItem {} {

  663.               label BP1

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

  665.             }

  666.             MenuItem {} {

  667.               label BS1

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

  669.             }

  670.             MenuItem {} {

  671.               label LP2

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

  673.             }

  674.             MenuItem {} {

  675.               label HP2

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

  677.             }

  678.             MenuItem {} {

  679.               label BP2

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

  681.             }

  682.             MenuItem {} {

  683.               label BS2

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

  685.             }

  686.             MenuItem {} {

  687.               label Cos

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

  689.             }

  690.             MenuItem {} {

  691.               label Sin

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

  693.             }

  694.             MenuItem {} {

  695.               label LSh

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

  697.             }

  698.             MenuItem {} {

  699.               label S

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

  701.             }

  702.           }

  703.           Fl_Dial filtervalue1 {

  704.             callback {redrawoscil();}

  705.             tooltip {Oscillator's filter parameter1} xywh {372 318 20 20} maximum 127 step 1

  706.             code0 {o->init("Pfilterpar1");}

  707.             class Fl_Osc_Dial

  708.           }

  709.           Fl_Check_Button filterpref {

  710.             label p

  711.             callback {redrawoscil();}

  712.             tooltip {Apply the filter before the waveshaping} xywh {420 318 20 20} down_box DOWN_BOX labelsize 10 align 24

  713.           }

  714.           Fl_Dial filtervalue2 {

  715.             callback {redrawoscil();}

  716.             tooltip {Oscillator's filter parameter2} xywh {395 318 20 20} maximum 127 step 1

  717.             code0 {o->init("Pfilterpar2");}

  718.             class Fl_Osc_Dial

  719.           }

  720.         }

  721.         Fl_Group {} {

  722.           xywh {595 313 135 30} box UP_FRAME

  723.         } {

  724.           Fl_Choice sabutton {

  725.             label {Sp.adj.}

  726.             callback {redrawoscil();}

  727.             tooltip {Oscillator's spectrum adjust} xywh {635 318 60 20} down_box BORDER_BOX labelsize 10 when 1 textsize 10

  728.             code0 {o->init("Psatype");}

  729.             class Fl_Osc_Choice

  730.           } {

  731.             MenuItem {} {

  732.               label None

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

  734.             }

  735.             MenuItem {} {

  736.               label Pow

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

  738.             }

  739.             MenuItem {} {

  740.               label ThrsD

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

  742.             }

  743.             MenuItem {} {

  744.               label ThrsU

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

  746.             }

  747.           }

  748.           Fl_Dial sadjpar {

  749.             callback {redrawoscil();}

  750.             tooltip {Oscillator's spectrum adjust parameter} xywh {700 318 20 20} maximum 127 step 1

  751.             code0 {o->init("Psapar");}

  752.             class Fl_Osc_Dial

  753.           }

  754.         }

  755.         Fl_Group {} {

  756.           xywh {670 345 65 65} box UP_FRAME

  757.         } {

  758.           Fl_Counter harmonicshiftcounter {

  759.             label {Harmonic Shift}

  760.             callback {redrawoscil();}

  761.             code0 {o->init("Pharmonicshift");}

  762.             xywh {675 370 55 15} type Simple labelsize 10 align 129 minimum -64 maximum 64 step 1 textfont 1 textsize 10

  763.             class Fl_Osc_Counter

  764.           }

  765.           Fl_Check_Button harmonicshiftpre {

  766.             label preH

  767.             callback {redrawoscil();}

  768.             code0 {o->init("Pharmonicshiftfirst");}

  769.             tooltip {Apply the harmonic shift before the waveshaping and filtering} xywh {695 390 34 15} down_box DOWN_BOX labelsize 10 align 24

  770.             class Fl_Osc_Check

  771.           }

  772.           Fl_Button {} {

  773.             label R

  774.             callback {//oscil->Pharmonicshift=0;

  775. harmonicshiftcounter->value(0);

  776. redrawoscil();}

  777.             xywh {675 390 20 15} box THIN_UP_BOX labelfont 1 labelsize 10

  778.           }

  779.         }

  780.         Fl_Group {} {

  781.           xywh {670 415 65 90} box UP_FRAME

  782.         } {

  783.           Fl_Choice adhrtype {

  784.             label {Adpt.Harm.}

  785.             callback {redrawoscil();}

  786.             tooltip {The type of the addaptive harmonics} xywh {675 430 55 15} down_box BORDER_BOX labelsize 10 align 129 when 3 textsize 10

  787.             code0 {o->init("Padaptiveharmonics");}

  788.             class Fl_Osc_Choice

  789.           } {

  790.             MenuItem {} {

  791.               label OFF

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

  793.             }

  794.             MenuItem {} {

  795.               label ON

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

  797.             }

  798.             MenuItem {} {

  799.               label Square

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

  801.             }

  802.             MenuItem {} {

  803.               label 2xSub

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

  805.             }

  806.             MenuItem {} {

  807.               label 2xAdd

  808.               xywh {125 125 100 20} labelfont 1 labelsize 10

  809.             }

  810.             MenuItem {} {

  811.               label 3xSub

  812.               xywh {125 125 100 20} labelfont 1 labelsize 10

  813.             }

  814.             MenuItem {} {

  815.               label 3xAdd

  816.               xywh {135 135 100 20} labelfont 1 labelsize 10

  817.             }

  818.             MenuItem {} {

  819.               label 4xSub

  820.               xywh {135 135 100 20} labelfont 1 labelsize 10

  821.             }

  822.             MenuItem {} {

  823.               label 4xAdd

  824.               xywh {145 145 100 20} labelfont 1 labelsize 10

  825.             }

  826.           }

  827.           Fl_Dial adhrpow {

  828.             label pow

  829.             callback {redrawoscil();}

  830.             tooltip {Adaptive harmonics power} xywh {705 465 25 25} labelsize 10 maximum 200 step 1

  831.             code0 {o->init("Padaptiveharmonicspower");}

  832.             class Fl_Osc_Dial

  833.           }

  834.           Fl_Dial adhrbf {

  835.             label baseF

  836.             callback {redrawoscil();}

  837.             tooltip {Adaptive harmonics base frequency} xywh {675 465 25 25} labelsize 10 maximum 255 step 1

  838.             code0 {o->init("Padaptiveharmonicsbasefreq");}

  839.             class Fl_Osc_Dial

  840.           }

  841.           Fl_Slider adhrpar {

  842.             code0 {o->init("Padaptiveharmonicspar");}

  843.             callback {redrawoscil();}

  844.             xywh {675 450 55 10} type {Horz Knob} box NO_BOX maximum 100 step 1 value 50

  845.             class Fl_Osc_Slider

  846.           }

  847.         }

  848.         Fl_Group {} {

  849.           xywh {445 313 150 30} box UP_FRAME

  850.         } {

  851.           Fl_Choice modtype {

  852.             label {Mod.}

  853.             callback {redrawoscil();}

  854.             tooltip modulation xywh {475 320 50 15} down_box BORDER_BOX labelsize 10 when 1 textsize 10

  855.             code0 {o->init("Pmodulation");}

  856.             class Fl_Osc_Choice

  857.           } {

  858.             MenuItem {} {

  859.               label None

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

  861.             }

  862.             MenuItem {} {

  863.               label Rev

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

  865.             }

  866.             MenuItem {} {

  867.               label Sine

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

  869.             }

  870.             MenuItem {} {

  871.               label Pow

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

  873.             }

  874.           }

  875.           Fl_Dial modpar1 {

  876.             callback {redrawoscil();}

  877.             tooltip {Oscillator's modulation parameter 1} xywh {535 320 15 15} maximum 127 step 1

  878.             code0 {o->init("Pmodulationpar1");}

  879.             class Fl_Osc_Dial

  880.           }

  881.           Fl_Dial modpar2 {

  882.             callback {redrawoscil();}

  883.             tooltip {Oscillator's modulation parameter 2} xywh {555 320 15 15} maximum 127 step 1

  884.             code0 {o->init("Pmodulationpar2");}

  885.             class Fl_Osc_Dial

  886.           }

  887.           Fl_Dial modpar3 {

  888.             callback {redrawoscil();}

  889.             tooltip {Oscillator's modulation parameter 3} xywh {575 320 15 15} maximum 127 step 1

  890.             code0 {o->init("Pmodulationpar3");}

  891.             class Fl_Osc_Dial

  892.           }

  893.         }

  894.         Fl_Button {} {

  895.           label Sine

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

  897. 

  898. osc->requestValue(loc+"convert2sine");

  899. 

  900. redrawoscil();

  901. refresh();}

  902.           xywh {675 530 55 15} box THIN_UP_BOX labelfont 1 labelsize 11

  903.         }

  904.         Fl_Button {} {

  905.           label C

  906.           callback {presetsui->copy(dummy->loc());}

  907.           xywh {675 550 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  908.         }

  909.         Fl_Button {} {

  910.           label P

  911.           callback {presetsui->paste(dummy->loc(), this);}

  912.           xywh {705 550 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 11 labelcolor 55

  913.         }

  914.         Fl_Scroll _this_has_to_be_the_last {

  915.           xywh {10 345 660 250} type HORIZONTAL box FLAT_BOX

  916.         } {

  917.           Fl_Pack harmonics {open

  918.             xywh {15 350 650 225} type HORIZONTAL

  919.             code0 {for (int i=0;i<(MAX_AD_HARMONICS - 1);i++){h[i]=new Oscilharmonic(0,0,20,o->h(),"");h[i]->init(i,oscildisplaygroup,loc,osc);}}

  920.           } {}

  921.         }

  922.       }

  923.     }

  924.   }

  925.   Function {OscilEditor(bool adnotep_, std::string loc_, Fl_Osc_Interface *osc_)} {open

  926.   } {

  927.     code { assert(osc_);

  928. assert(!loc_.empty());

  929. 

  930. initialized = false;

  931. 

  932. adnotep = adnotep_;

  933. osc = osc_;

  934. loc = loc_;

  935. 

  936. oscilo = NULL;

  937. oscilo_base = NULL;

  938. oscils = NULL;

  939. oscils_base = NULL;

  940. 

  941. osceditUI = NULL;

  942. dummy = NULL;

  943. applybutton = NULL;

  944. oscildisplaygroup = NULL;

  945. rndslider = NULL;

  946. hrndtype = NULL;

  947. magtype = NULL;

  948. basefuncdisplaygroup = NULL;

  949. bfslider = NULL;

  950. bftype = NULL;

  951. make_window();

  952. bftype->init("Pcurrentbasefunc");

  953. initialized = true;

  954. 

  955. refresh();

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

  957.   }

  958.   Function {~OscilEditor()} {open

  959.   } {

  960.     code {osceditUI->hide();

  961. for (int i=0; i<(MAX_AD_HARMONICS - 1); ++i)

  962.     delete h[i];

  963. 

  964. delete oscilo;

  965. delete oscilo_base;

  966. delete oscils;

  967. delete oscils_base;

  968. delete osceditUI;} {}

  969.   }

  970.   Function {refresh()} {} {

  971.     code {magtype->update();

  972. 

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

  974. 

  975.     osc->requestValue(loc+"prepare");

  976. 

  977.     basefuncdisplaygroup->redraw();

  978. redrawoscil();} {}

  979.   }

  980.   Function {redrawoscil()} {open

  981.   } {

  982.     code {

  983.     if(!initialized) //Must have been called during initialization

  984.         return;

  985.     //get data from backend

  986. osc->requestValue(loc+"prepare");

  987. oscilo->update();

  988. oscils->update();

  989. oscilo_base->update();

  990. oscils_base->update();} {}

  991.   }

  992.   decl {Oscilharmonic *h[(MAX_AD_HARMONICS - 1)];} {private local

  993.   }

  994.   decl {std::string loc;} {private local

  995.   }

  996.   decl {Fl_Osc_Interface *osc;} {private local

  997.   }

  998.   decl {Fl_Oscilloscope *oscilo, *oscilo_base;} {private local

  999.   }

  1000.   decl {Fl_OscilSpectrum *oscils, *oscils_base;} {private local

  1001.   }

  1002.   decl {bool adnotep;} {private local

  1003.   }

  1004.   decl {bool initialized;} {private local

  1005.   }

  1006. }