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

1046 lines
32KB
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_TSlider.H"} {public local

  63. } 

  64. 

  65. decl {\#include "Fl_Osc_VSlider.H"} {public local

  66. } 

  67. 

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

  69. } 

  70. 

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

  72. } 

  73. 

  74. class OGSlider {: {public Fl_Osc_TSlider}

  75. } {

  76.   Function {OGSlider(int x,int y, int w, int h, const char *label=0)

  77.   :Fl_Osc_TSlider(x,y,w,h,label)} {open

  78.   } { code {phase=false; } {} }

  79. 

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

  81.   } { code {value(phase ? c : 127-c);

  82.   selection_color(value() == reset_value ? 0 : 222);

  83.   redraw();

  84.   } {} }

  85. 

  86.   Function {cb(void)} {open return_type void

  87.   } { code {

  88.   selection_color(value() == reset_value ? 0 : 222);

  89.   if(cb_data.first) cb_data.first(this, cb_data.second);

  90.   } {} }

  91.   

  92.   Function {update(void)} {open return_type void

  93.   } { code {} {} }

  94.   

  95.   decl {bool phase;} {public local

  96.   }

  97. } 

  98. class OGWaveChoice {: {public Fl_Osc_Choice}

  99. } {

  100.    Function {OGWaveChoice(int x,int y, int w, int h, const char *label=0)

  101.    :Fl_Osc_Choice(x,y,w,h,label)} {open

  102.    } { code {} {}}

  103.    Function {OSC_value(int i)} {open return_type void

  104.    } { code { value(i == 127 ? size()-2 : i);

  105.    ogui->setbfmodstatus(i); } {} }

  106.    Function {cb(void)} {open return_type void

  107.    } {

  108.     code {

  109.         int v = Fl_Osc_Choice::value();

  110. 	if (value() < size()-2)

  111. 	    oscWrite(ext, "i", v);

  112. 	else

  113. 	    oscWrite(ext);

  114. 	if(cb_data.first)

  115. 	    cb_data.first(this, cb_data.second);

  116. } {}}

  117. 

  118.   decl { class OscilEditor *ogui;} { public }

  119. 

  120. }

  121. 

  122. class Oscilharmonic {: {public Fl_Group}

  123. } {

  124.   Function {make_window()} {open private

  125.   } {

  126.     Fl_Window harmonic {open

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

  128.       class Fl_Osc_Group visible

  129.     } {

  130.       Fl_Slider mag {

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

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

  133. //    else o->selection_color(222);

  134. 

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

  136.  if (x==64) {

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

  138.     phase->value(64);

  139.     phase->selection_color(0);

  140.  }

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

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

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

  144. 

  145. display->redraw();}

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

  147.         code0 {o->phase=false;o->ext = "magnitude"+to_s(n);//o->value(127-oscil->Phmag[n]);}

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

  149.         class OGSlider

  150.       }

  151.       Fl_Slider phase {

  152.         callback {

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

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

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

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

  157. 

  158. display->redraw();}

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

  160.         code0 {o->phase=true;o->ext = "phase"+to_s(n);//o->value(oscil->Phphase[n]);}

  161.         class OGSlider

  162.       }

  163.       Fl_Box {} {

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

  165.       }

  166.       Fl_Box {} {

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

  168.       }

  169.       Fl_Box {} {

  170.         label 01

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

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

  173.       }

  174.       Fl_Box {} {

  175.         label 01

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

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

  178.       }

  179.     }

  180.   }

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

  182.     code {n=0;

  183. display=NULL;} {}

  184.   }

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

  186.   } {

  187.     code {assert(osc_);

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

  189. 

  190. n=n_;

  191. display=display_;

  192. osc = osc_;

  193. loc = loc_;

  194. make_window();

  195. mag->osc = osc;

  196. mag->loc = loc;

  197. mag->reset_value = 63;

  198. mag->set_transform([](float x){return 63.0f - x;});

  199. phase->osc = osc;

  200. phase->loc = loc;

  201. phase->reset_value = 64;

  202. phase->set_rounding(1);

  203. phase->set_transform([](float x){return 180*(1 - x/64.0f);});

  204. 

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

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

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

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

  209. end();

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

  211.   }

  212.   Function {refresh()} {open

  213.   } {

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

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

  216. } {}

  217.   }

  218.   Function {~Oscilharmonic()} {open

  219.   } {

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

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

  222. 

  223. harmonic->hide();

  224. delete harmonic;} {}

  225.   }

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

  227.   }

  228.   decl {int n;} {private local

  229.   }

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

  231.   }

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

  233.   }

  234. } 

  235. class OscilEditor {open : {public PresetsUI_}

  236. } {

  237.   Function {make_window()} {open

  238.   } {

  239.     Fl_Window osceditUI {

  240.       label {ADsynth Oscillator Editor} open

  241.       xywh {52 100 735 595} type Double

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

  243.     } {

  244.       Fl_Group dummy {open

  245.         xywh {0 0 735 595} box FLAT_BOX

  246.         class Fl_Osc_Group

  247.       } {

  248.         Fl_Button applybutton {

  249.           label Apply

  250.           callback {

  251.           dummy->osc->requestValue(loc+"../prepare");}

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

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

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

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

  256.         }

  257.         Fl_Group oscildisplaygroup {open

  258.           xywh {10 10 360 300} box UP_FRAME

  259.         } {

  260.           Fl_Group {} {open

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

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

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

  264.           } {}

  265.           Fl_Box {} {

  266.             label Oscillator

  267.             xywh {125 15 110 20} labelfont 1

  268.           }

  269.           Fl_Value_Slider rndslider {

  270.             label rnd

  271.             callback {}

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

  273.             code0 {(void)o->init("Prand"); if (!adnotep) o->hide();}

  274. 	    class Fl_Osc_VSlider

  275.           }

  276.           Fl_Group {} {open

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

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

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

  280.           } {}

  281.           Fl_Group {} {open

  282.             xywh {251 282 115 25} box UP_FRAME

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

  284.           } {

  285.             Fl_Choice hrndtype {

  286.               label {H.rnd}

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

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

  289.               class Fl_Osc_Choice

  290.             } {

  291.               MenuItem {} {

  292.                 label None

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

  294.               }

  295.               MenuItem {} {

  296.                 label Pow

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

  298.               }

  299.               MenuItem {} {

  300.                 label Sin

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

  302.               }

  303.             }

  304.             Fl_Dial hrnddial {

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

  306.               code0 {o->init("Pamprandpower");o->reset_value=64;}

  307.               class Fl_Osc_Dial

  308.             }

  309.           }

  310.           Fl_Choice magtype {

  311.             label {Mag.Type}

  312.             callback {redrawoscil();}

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

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

  315.             class Fl_Osc_Choice

  316.           } {

  317.             MenuItem {} {

  318.               label Linear

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

  320.             }

  321.             MenuItem {} {

  322.               label {-40dB}

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

  324.             }

  325.             MenuItem {} {

  326.               label {-60dB}

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

  328.             }

  329.             MenuItem {} {

  330.               label {-80dB}

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

  332.             }

  333.             MenuItem {} {

  334.               label {-100dB}

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

  336.             }

  337.           }

  338.         }

  339.         Fl_Group basefuncdisplaygroup {open

  340.           xywh {370 10 360 300} box UP_FRAME

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

  342.           code1 {o->osc = osc; bftype->ogui = this;}

  343.           code2 {assert(osc);}

  344.           class Fl_Osc_Group

  345.         } {

  346.           Fl_Group {} {

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

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

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

  350.           } {}

  351.           Fl_Dial bfpar {

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

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

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

  355.             class Fl_Osc_Dial

  356.           }

  357.           Fl_Choice bftype {

  358.             label {Base.F..}

  359.             callback {basefuncdisplaygroup->redraw();

  360. redrawoscil();

  361. 

  362. if(!basefuncmodulation) return;

  363. setbfmodstatus(o->value());

  364. }

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

  366.             class OGWaveChoice

  367.           } {

  368.             MenuItem {} {

  369.               label Sine

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

  371.             }

  372.             MenuItem {} {

  373.               label Triangle

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

  375.             }

  376.             MenuItem {} {

  377.               label Pulse

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

  379.             }

  380.             MenuItem {} {

  381.               label Saw

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

  383.             }

  384.             MenuItem {} {

  385.               label Power

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

  387.             }

  388.             MenuItem {} {

  389.               label Gauss

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

  391.             }

  392.             MenuItem {} {

  393.               label Diode

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

  395.             }

  396.             MenuItem {} {

  397.               label AbsSine

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

  399.             }

  400.             MenuItem {} {

  401.               label PulseSine

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

  403.             }

  404.             MenuItem {} {

  405.               label StrchSine

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

  407.             }

  408.             MenuItem {} {

  409.               label Chirp

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

  411.             }

  412.             MenuItem {} {

  413.               label AbsStrSine

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

  415.             }

  416.             MenuItem {} {

  417.               label Chebyshev

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

  419.             }

  420.             MenuItem {} {

  421.               label Sqr

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

  423.             }

  424.             MenuItem {} {

  425.               label Spike

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

  427.             }

  428.             MenuItem {} {

  429.               label Circle

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

  431.             }

  432. 	    MenuItem {} {

  433. 	      label User

  434. 	      xywh {127 127 100 20} labelfont 1 labelsize 11 hide

  435. 	    }

  436.           }

  437.           Fl_Box {} {

  438.             label {Base Func.}

  439.             xywh {485 15 110 20} labelfont 1

  440.           }

  441.           Fl_Group {} {open

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

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

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

  445.           } {}

  446.           Fl_Value_Output bfparval {

  447.             label {Par.}

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

  449.             code0 {o->value(bfpar->value());}

  450. 

  451.           }

  452.           Fl_Group basefuncmodulation {open

  453.             xywh {555 281 169 25} box UP_FRAME

  454.             code0 {}

  455.             } {

  456.             Fl_Choice bfmodtype {

  457.               label {B.F.Mod.}

  458.               callback {basefuncdisplaygroup->redraw();

  459. redrawoscil();}

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

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

  462.               class Fl_Osc_Choice

  463.             } {

  464.               MenuItem {} {

  465.                 label None

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

  467.               }

  468.               MenuItem {} {

  469.                 label Rev

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

  471.               }

  472.               MenuItem {} {

  473.                 label Sine

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

  475.               }

  476.               MenuItem {} {

  477.                 label Pow

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

  479.               }

  480.               MenuItem {} {

  481.                 label Chop

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

  483.               }

  484.             }

  485.             Fl_Dial bfmodpar1 {

  486.               callback {redrawoscil();}

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

  488.               code0 {o->init("Pbasefuncmodulationpar1");o->reset_value=64;}

  489.               class Fl_Osc_Dial

  490.             }

  491.             Fl_Dial bfmodpar2 {

  492.               callback {redrawoscil();}

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

  494.               code0 {o->init("Pbasefuncmodulationpar2");o->reset_value=64;}

  495.               class Fl_Osc_Dial

  496.             }

  497.             Fl_Dial bfmodpar3 {

  498.               callback {redrawoscil();} selected

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

  500.               code0 {o->init("Pbasefuncmodulationpar3");o->reset_value=32;}

  501.               class Fl_Osc_Dial

  502.             }

  503.           }

  504.         }

  505.         Fl_Button {} {

  506.           label {Use as base}

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

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

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

  510.       h[i]->mag->value(63);

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

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

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

  514.    };

  515. 

  516.    harmonicshiftcounter->value(0);

  517. 

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

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

  520.    h[0]->phase->value(64);

  521.    h[0]->phase->do_callback();

  522.    wshbutton->value(0);

  523.    wshbutton->do_callback();

  524.    fltbutton->value(0);

  525.    fltbutton->do_callback();

  526.    sabutton->value(0);

  527.    sabutton->do_callback();

  528.    bfmodtype->value(0);

  529.    bfmodtype->do_callback();

  530. };

  531. 

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

  533.  bftype->update();

  534. 

  535. basefuncdisplaygroup->redraw();

  536. redrawoscil();}

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

  538.         }

  539.         Fl_Button {} {

  540.           label Close

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

  542.           xywh {673 570 62 25} box THIN_UP_BOX

  543.         }

  544.         Fl_Button {} {

  545.           label Clear

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

  547. 

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

  549.     h[i]->mag->value(63);

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

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

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

  553. };

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

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

  556. h[0]->phase->value(64);

  557. h[0]->phase->do_callback();

  558. 

  559. //harmonics->redraw();

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

  561. redrawoscil();}

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

  563.         }

  564.         Fl_Group {} {

  565.           xywh {140 313 150 30} box UP_FRAME

  566.         } {

  567.           Fl_Choice wshbutton {

  568.             label {Wsh.}

  569.             callback {basefuncdisplaygroup->redraw();

  570. redrawoscil();}

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

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

  573.             class Fl_Osc_Choice

  574.           } {

  575.             MenuItem {} {

  576.               label None

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

  578.             }

  579.             MenuItem {} {

  580.               label Atan

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

  582.             }

  583.             MenuItem {} {

  584.               label Asym1

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

  586.             }

  587.             MenuItem {} {

  588.               label Pow

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

  590.             }

  591.             MenuItem {} {

  592.               label Sine

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

  594.             }

  595.             MenuItem {} {

  596.               label Qnts

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

  598.             }

  599.             MenuItem {} {

  600.               label Zigzg

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

  602.             }

  603.             MenuItem {} {

  604.               label Lmt

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

  606.             }

  607.             MenuItem {} {

  608.               label LmtU

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

  610.             }

  611.             MenuItem {} {

  612.               label LmtL

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

  614.             }

  615.             MenuItem {} {

  616.               label ILmt

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

  618.             }

  619.             MenuItem {} {

  620.               label Clip

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

  622.             }

  623.             MenuItem {} {

  624.               label Asym2

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

  626.             }

  627.             MenuItem {} {

  628.               label Pow2

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

  630.             }

  631.             MenuItem {} {

  632.               label Sgm

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

  634.             }

  635.           }

  636.           Fl_Dial wshpar {

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

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

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

  640.             class Fl_Osc_Dial

  641.           }

  642.           Fl_Value_Output wsparval {

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

  644.             code0 {o->value(wshpar->value());}

  645.           }

  646.         }

  647.         Fl_Check_Button autoclearbutton {

  648.           label {Clr.}

  649.           tooltip {Auto clear when using the oscillator as base function} xywh {98 318 40 20} box THIN_UP_BOX value 1 labelfont 1 labelsize 10

  650.         }

  651.         Fl_Group {} {

  652.           xywh {290 313 155 30} box UP_FRAME

  653.         } {

  654.           Fl_Choice fltbutton {

  655.             label Filter

  656.             callback {redrawoscil();}

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

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

  659.             class Fl_Osc_Choice

  660.           } {

  661.             MenuItem {} {

  662.               label None

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

  664.             }

  665.             MenuItem {} {

  666.               label LP1

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

  668.             }

  669.             MenuItem {} {

  670.               label HP1a

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

  672.             }

  673.             MenuItem {} {

  674.               label HP1b

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

  676.             }

  677.             MenuItem {} {

  678.               label BP1

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

  680.             }

  681.             MenuItem {} {

  682.               label BS1

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

  684.             }

  685.             MenuItem {} {

  686.               label LP2

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

  688.             }

  689.             MenuItem {} {

  690.               label HP2

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

  692.             }

  693.             MenuItem {} {

  694.               label BP2

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

  696.             }

  697.             MenuItem {} {

  698.               label BS2

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

  700.             }

  701.             MenuItem {} {

  702.               label Cos

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

  704.             }

  705.             MenuItem {} {

  706.               label Sin

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

  708.             }

  709.             MenuItem {} {

  710.               label LSh

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

  712.             }

  713.             MenuItem {} {

  714.               label S

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

  716.             }

  717.           }

  718.           Fl_Dial filtervalue1 {

  719.             callback {redrawoscil();}

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

  721.             code0 {o->init("Pfilterpar1");o->reset_value=64;}

  722.             class Fl_Osc_Dial

  723.           }

  724.           Fl_Check_Button filterpref {

  725.             label p

  726.             callback {redrawoscil();}

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

  728.           }

  729.           Fl_Dial filtervalue2 {

  730.             callback {redrawoscil();}

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

  732.             code0 {o->init("Pfilterpar2");o->reset_value=64;}

  733.             class Fl_Osc_Dial

  734.           }

  735.         }

  736.         Fl_Group {} {

  737.           xywh {595 313 135 30} box UP_FRAME

  738.         } {

  739.           Fl_Choice sabutton {

  740.             label {Sp.adj.}

  741.             callback {redrawoscil();}

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

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

  744.             class Fl_Osc_Choice

  745.           } {

  746.             MenuItem {} {

  747.               label None

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

  749.             }

  750.             MenuItem {} {

  751.               label Pow

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

  753.             }

  754.             MenuItem {} {

  755.               label ThrsD

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

  757.             }

  758.             MenuItem {} {

  759.               label ThrsU

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

  761.             }

  762.           }

  763.           Fl_Dial sadjpar {

  764.             callback {redrawoscil();}

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

  766.             code0 {o->init("Psapar");o->reset_value=64;}

  767.             class Fl_Osc_Dial

  768.           }

  769.         }

  770.         Fl_Group {} {

  771.           xywh {670 345 65 65} box UP_FRAME

  772.         } {

  773.           Fl_Counter harmonicshiftcounter {

  774.             label {Harmonic Shift}

  775.             callback {redrawoscil();}

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

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

  778.             class Fl_Osc_Counter

  779.           }

  780.           Fl_Check_Button harmonicshiftpre {

  781.             label preH

  782.             callback {redrawoscil();}

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

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

  785.             class Fl_Osc_Check

  786.           }

  787.           Fl_Button {} {

  788.             label R

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

  790. harmonicshiftcounter->value(0);

  791. redrawoscil();}

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

  793.           }

  794.         }

  795.         Fl_Group {} {

  796.           xywh {670 415 65 90} box UP_FRAME

  797.         } {

  798.           Fl_Choice adhrtype {

  799.             label {Adpt.Harm.}

  800.             callback {redrawoscil();}

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

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

  803.             class Fl_Osc_Choice

  804.           } {

  805.             MenuItem {} {

  806.               label OFF

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

  808.             }

  809.             MenuItem {} {

  810.               label ON

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

  812.             }

  813.             MenuItem {} {

  814.               label Square

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

  816.             }

  817.             MenuItem {} {

  818.               label 2xSub

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

  820.             }

  821.             MenuItem {} {

  822.               label 2xAdd

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

  824.             }

  825.             MenuItem {} {

  826.               label 3xSub

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

  828.             }

  829.             MenuItem {} {

  830.               label 3xAdd

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

  832.             }

  833.             MenuItem {} {

  834.               label 4xSub

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

  836.             }

  837.             MenuItem {} {

  838.               label 4xAdd

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

  840.             }

  841.           }

  842.           Fl_Dial adhrpow {

  843.             label pow

  844.             callback {redrawoscil();}

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

  846.             code0 {o->init("Padaptiveharmonicspower");o->reset_value=100;}

  847.             class Fl_Osc_Dial

  848.           }

  849.           Fl_Dial adhrbf {

  850.             label baseF

  851.             callback {redrawoscil();}

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

  853.             code0 {o->init("Padaptiveharmonicsbasefreq");o->reset_value=128;}

  854.             class Fl_Osc_Dial

  855.           }

  856.           Fl_Slider adhrpar {

  857.             code0 {o->init("Padaptiveharmonicspar", 'i');o->reset_value=50;}

  858.             callback {redrawoscil();}

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

  860.             class Fl_Osc_TSlider

  861.           }

  862.         }

  863.         Fl_Group {} {

  864.           xywh {445 313 150 30} box UP_FRAME

  865.         } {

  866.           Fl_Choice modtype {

  867.             label {Mod.}

  868.             callback {redrawoscil();}

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

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

  871.             class Fl_Osc_Choice

  872.           } {

  873.             MenuItem {} {

  874.               label None

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

  876.             }

  877.             MenuItem {} {

  878.               label Rev

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

  880.             }

  881.             MenuItem {} {

  882.               label Sine

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

  884.             }

  885.             MenuItem {} {

  886.               label Pow

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

  888.             }

  889.           }

  890.           Fl_Dial modpar1 {

  891.             callback {redrawoscil();}

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

  893.             code0 {o->init("Pmodulationpar1");o->reset_value=64;}

  894.             class Fl_Osc_Dial

  895.           }

  896.           Fl_Dial modpar2 {

  897.             callback {redrawoscil();}

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

  899.             code0 {o->init("Pmodulationpar2");o->reset_value=64;}

  900.             class Fl_Osc_Dial

  901.           }

  902.           Fl_Dial modpar3 {

  903.             callback {redrawoscil();}

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

  905.             code0 {o->init("Pmodulationpar3");o->reset_value=32;}

  906.             class Fl_Osc_Dial

  907.           }

  908.         }

  909.         Fl_Button {} {

  910.           label Sine

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

  912. 

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

  914. bftype->update();

  915. bfpar->value(0);

  916. bfpar->do_callback();

  917. 

  918. redrawoscil();

  919. refresh();}

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

  921.         }

  922.         Fl_Button {} {

  923.           label C

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

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

  926.         }

  927.         Fl_Button {} {

  928.           label P

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

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

  931.         }

  932.         Fl_Scroll _this_has_to_be_the_last {

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

  934.         } {

  935.           Fl_Pack harmonics {open

  936.             xywh {15 350 650 225} type HORIZONTAL

  937.             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);}}

  938.           } {}

  939.         }

  940.       }

  941.     }

  942.   }

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

  944.   } {

  945.     code { assert(osc_);

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

  947. 

  948. initialized = false;

  949. 

  950. adnotep = adnotep_;

  951. osc = osc_;

  952. loc = loc_;

  953. 

  954. oscilo = NULL;

  955. oscilo_base = NULL;

  956. oscils = NULL;

  957. oscils_base = NULL;

  958. 

  959. osceditUI = NULL;

  960. dummy = NULL;

  961. applybutton = NULL;

  962. oscildisplaygroup = NULL;

  963. rndslider = NULL;

  964. hrndtype = NULL;

  965. magtype = NULL;

  966. basefuncdisplaygroup = NULL;

  967. bfpar = NULL;

  968. bftype = NULL;

  969. make_window();

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

  971. initialized = true;

  972. 

  973. refresh();

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

  975.   }

  976.   Function {~OscilEditor()} {open

  977.   } {

  978.     code {osceditUI->hide();

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

  980.     delete h[i];

  981. 

  982. delete oscilo;

  983. delete oscilo_base;

  984. delete oscils;

  985. delete oscils_base;

  986. delete osceditUI;} {}

  987.   }

  988.   Function {refresh()} {} {

  989.     code {magtype->update();

  990. 

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

  992. 

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

  994. 

  995.     basefuncdisplaygroup->redraw();

  996. redrawoscil();} {}

  997.   }

  998.   Function {redrawoscil()} {open

  999.   } {

  1000.     code {

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

  1002.         return;

  1003.     //get data from backend

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

  1005. oscilo->update();

  1006. oscils->update();

  1007. oscilo_base->update();

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

  1009.   }

  1010.   Function {setbfmodstatus(int menuentry)} {open

  1011.   } {

  1012.     code {

  1013.     switch (menuentry){

  1014.     case 0:

  1015.          bfpar->deactivate();

  1016.          bfparval->deactivate();

  1017.          basefuncmodulation->deactivate();

  1018.          break;

  1019.     case 127:

  1020.          bfpar->deactivate();

  1021.          bfparval->deactivate();

  1022.          basefuncmodulation->activate();

  1023.          break;

  1024.     default:

  1025.          bfpar->activate();

  1026.          bfparval->activate();

  1027.          basefuncmodulation->activate();

  1028.     }

  1029.     } {} }

  1030. 

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

  1032.   }

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

  1034.   }

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

  1036.   }

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

  1038.   }

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

  1040.   }

  1041.   decl {bool adnotep;} {private local

  1042.   }

  1043.   decl {bool initialized;} {private local

  1044.   }

  1045. }