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

1049 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. decl {using namespace zyncarla;} {public local

  75. }

  76. 

  77. class OGSlider {: {public Fl_Osc_TSlider}

  78. } {

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

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

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

  82. 

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

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

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

  86.   redraw();

  87.   } {} }

  88. 

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

  90.   } { code {

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

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

  93.   } {} }

  94.   

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

  96.   } { code {} {} }

  97.   

  98.   decl {bool phase;} {public local

  99.   }

  100. } 

  101. class OGWaveChoice {: {public Fl_Osc_Choice}

  102. } {

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

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

  105.    } { code {} {}}

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

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

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

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

  110.    } {

  111.     code {

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

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

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

  115. 	else

  116. 	    oscWrite(ext);

  117. 	if(cb_data.first)

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

  119. } {}}

  120. 

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

  122. 

  123. }

  124. 

  125. class Oscilharmonic {: {public Fl_Group}

  126. } {

  127.   Function {make_window()} {open private

  128.   } {

  129.     Fl_Window harmonic {open

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

  131.       class Fl_Osc_Group visible

  132.     } {

  133.       Fl_Slider mag {

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

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

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

  137. 

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

  139.  if (x==64) {

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

  141.     phase->value(64);

  142.     phase->selection_color(0);

  143.  }

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

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

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

  147. 

  148. display->redraw();}

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

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

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

  152.         class OGSlider

  153.       }

  154.       Fl_Slider phase {

  155.         callback {

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

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

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

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

  160. 

  161. display->redraw();}

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

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

  164.         class OGSlider

  165.       }

  166.       Fl_Box {} {

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

  168.       }

  169.       Fl_Box {} {

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

  171.       }

  172.       Fl_Box {} {

  173.         label 01

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

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

  176.       }

  177.       Fl_Box {} {

  178.         label 01

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

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

  181.       }

  182.     }

  183.   }

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

  185.     code {n=0;

  186. display=NULL;} {}

  187.   }

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

  189.   } {

  190.     code {assert(osc_);

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

  192. 

  193. n=n_;

  194. display=display_;

  195. osc = osc_;

  196. loc = loc_;

  197. make_window();

  198. mag->osc = osc;

  199. mag->loc = loc;

  200. mag->reset_value = 63;

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

  202. phase->osc = osc;

  203. phase->loc = loc;

  204. phase->reset_value = 64;

  205. phase->set_rounding(1);

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

  207. 

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

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

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

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

  212. end();

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

  214.   }

  215.   Function {refresh()} {open

  216.   } {

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

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

  219. } {}

  220.   }

  221.   Function {~Oscilharmonic()} {open

  222.   } {

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

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

  225. 

  226. harmonic->hide();

  227. delete harmonic;} {}

  228.   }

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

  230.   }

  231.   decl {int n;} {private local

  232.   }

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

  234.   }

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

  236.   }

  237. } 

  238. class OscilEditor {open : {public PresetsUI_}

  239. } {

  240.   Function {make_window()} {open

  241.   } {

  242.     Fl_Window osceditUI {

  243.       label {ADsynth Oscillator Editor} open

  244.       xywh {52 100 735 595} type Double

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

  246.     } {

  247.       Fl_Group dummy {open

  248.         xywh {0 0 735 595} box FLAT_BOX

  249.         class Fl_Osc_Group

  250.       } {

  251.         Fl_Button applybutton {

  252.           label Apply

  253.           callback {

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

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

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

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

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

  259.         }

  260.         Fl_Group oscildisplaygroup {open

  261.           xywh {10 10 360 300} box UP_FRAME

  262.         } {

  263.           Fl_Group {} {open

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

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

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

  267.           } {}

  268.           Fl_Box {} {

  269.             label Oscillator

  270.             xywh {125 15 110 20} labelfont 1

  271.           }

  272.           Fl_Value_Slider rndslider {

  273.             label rnd

  274.             callback {}

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

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

  277. 	    class Fl_Osc_VSlider

  278.           }

  279.           Fl_Group {} {open

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

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

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

  283.           } {}

  284.           Fl_Group {} {open

  285.             xywh {251 282 115 25} box UP_FRAME

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

  287.           } {

  288.             Fl_Choice hrndtype {

  289.               label {H.rnd}

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

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

  292.               class Fl_Osc_Choice

  293.             } {

  294.               MenuItem {} {

  295.                 label None

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

  297.               }

  298.               MenuItem {} {

  299.                 label Pow

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

  301.               }

  302.               MenuItem {} {

  303.                 label Sin

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

  305.               }

  306.             }

  307.             Fl_Dial hrnddial {

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

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

  310.               class Fl_Osc_Dial

  311.             }

  312.           }

  313.           Fl_Choice magtype {

  314.             label {Mag.Type}

  315.             callback {redrawoscil();}

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

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

  318.             class Fl_Osc_Choice

  319.           } {

  320.             MenuItem {} {

  321.               label Linear

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

  323.             }

  324.             MenuItem {} {

  325.               label {-40dB}

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

  327.             }

  328.             MenuItem {} {

  329.               label {-60dB}

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

  331.             }

  332.             MenuItem {} {

  333.               label {-80dB}

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

  335.             }

  336.             MenuItem {} {

  337.               label {-100dB}

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

  339.             }

  340.           }

  341.         }

  342.         Fl_Group basefuncdisplaygroup {open

  343.           xywh {370 10 360 300} box UP_FRAME

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

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

  346.           code2 {assert(osc);}

  347.           class Fl_Osc_Group

  348.         } {

  349.           Fl_Group {} {

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

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

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

  353.           } {}

  354.           Fl_Dial bfpar {

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

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

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

  358.             class Fl_Osc_Dial

  359.           }

  360.           Fl_Choice bftype {

  361.             label {Base.F..}

  362.             callback {basefuncdisplaygroup->redraw();

  363. redrawoscil();

  364. 

  365. if(!basefuncmodulation) return;

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

  367. }

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

  369.             class OGWaveChoice

  370.           } {

  371.             MenuItem {} {

  372.               label Sine

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

  374.             }

  375.             MenuItem {} {

  376.               label Triangle

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

  378.             }

  379.             MenuItem {} {

  380.               label Pulse

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

  382.             }

  383.             MenuItem {} {

  384.               label Saw

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

  386.             }

  387.             MenuItem {} {

  388.               label Power

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

  390.             }

  391.             MenuItem {} {

  392.               label Gauss

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

  394.             }

  395.             MenuItem {} {

  396.               label Diode

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

  398.             }

  399.             MenuItem {} {

  400.               label AbsSine

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

  402.             }

  403.             MenuItem {} {

  404.               label PulseSine

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

  406.             }

  407.             MenuItem {} {

  408.               label StrchSine

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

  410.             }

  411.             MenuItem {} {

  412.               label Chirp

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

  414.             }

  415.             MenuItem {} {

  416.               label AbsStrSine

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

  418.             }

  419.             MenuItem {} {

  420.               label Chebyshev

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

  422.             }

  423.             MenuItem {} {

  424.               label Sqr

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

  426.             }

  427.             MenuItem {} {

  428.               label Spike

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

  430.             }

  431.             MenuItem {} {

  432.               label Circle

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

  434.             }

  435. 	    MenuItem {} {

  436. 	      label User

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

  438. 	    }

  439.           }

  440.           Fl_Box {} {

  441.             label {Base Func.}

  442.             xywh {485 15 110 20} labelfont 1

  443.           }

  444.           Fl_Group {} {open

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

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

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

  448.           } {}

  449.           Fl_Value_Output bfparval {

  450.             label {Par.}

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

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

  453. 

  454.           }

  455.           Fl_Group basefuncmodulation {open

  456.             xywh {555 281 169 25} box UP_FRAME

  457.             code0 {}

  458.             } {

  459.             Fl_Choice bfmodtype {

  460.               label {B.F.Mod.}

  461.               callback {basefuncdisplaygroup->redraw();

  462. redrawoscil();}

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

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

  465.               class Fl_Osc_Choice

  466.             } {

  467.               MenuItem {} {

  468.                 label None

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

  470.               }

  471.               MenuItem {} {

  472.                 label Rev

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

  474.               }

  475.               MenuItem {} {

  476.                 label Sine

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

  478.               }

  479.               MenuItem {} {

  480.                 label Pow

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

  482.               }

  483.               MenuItem {} {

  484.                 label Chop

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

  486.               }

  487.             }

  488.             Fl_Dial bfmodpar1 {

  489.               callback {redrawoscil();}

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

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

  492.               class Fl_Osc_Dial

  493.             }

  494.             Fl_Dial bfmodpar2 {

  495.               callback {redrawoscil();}

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

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

  498.               class Fl_Osc_Dial

  499.             }

  500.             Fl_Dial bfmodpar3 {

  501.               callback {redrawoscil();} selected

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

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

  504.               class Fl_Osc_Dial

  505.             }

  506.           }

  507.         }

  508.         Fl_Button {} {

  509.           label {Use as base}

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

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

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

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

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

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

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

  517.    };

  518. 

  519.    harmonicshiftcounter->value(0);

  520. 

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

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

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

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

  525.    wshbutton->value(0);

  526.    wshbutton->do_callback();

  527.    fltbutton->value(0);

  528.    fltbutton->do_callback();

  529.    sabutton->value(0);

  530.    sabutton->do_callback();

  531.    bfmodtype->value(0);

  532.    bfmodtype->do_callback();

  533. };

  534. 

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

  536.  bftype->update();

  537. 

  538. basefuncdisplaygroup->redraw();

  539. redrawoscil();}

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

  541.         }

  542.         Fl_Button {} {

  543.           label Close

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

  545.           xywh {673 570 62 25} box THIN_UP_BOX

  546.         }

  547.         Fl_Button {} {

  548.           label Clear

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

  550. 

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

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

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

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

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

  556. };

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

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

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

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

  561. 

  562. //harmonics->redraw();

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

  564. redrawoscil();}

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

  566.         }

  567.         Fl_Group {} {

  568.           xywh {140 313 150 30} box UP_FRAME

  569.         } {

  570.           Fl_Choice wshbutton {

  571.             label {Wsh.}

  572.             callback {basefuncdisplaygroup->redraw();

  573. redrawoscil();}

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

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

  576.             class Fl_Osc_Choice

  577.           } {

  578.             MenuItem {} {

  579.               label None

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

  581.             }

  582.             MenuItem {} {

  583.               label Atan

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

  585.             }

  586.             MenuItem {} {

  587.               label Asym1

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

  589.             }

  590.             MenuItem {} {

  591.               label Pow

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

  593.             }

  594.             MenuItem {} {

  595.               label Sine

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

  597.             }

  598.             MenuItem {} {

  599.               label Qnts

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

  601.             }

  602.             MenuItem {} {

  603.               label Zigzg

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

  605.             }

  606.             MenuItem {} {

  607.               label Lmt

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

  609.             }

  610.             MenuItem {} {

  611.               label LmtU

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

  613.             }

  614.             MenuItem {} {

  615.               label LmtL

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

  617.             }

  618.             MenuItem {} {

  619.               label ILmt

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

  621.             }

  622.             MenuItem {} {

  623.               label Clip

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

  625.             }

  626.             MenuItem {} {

  627.               label Asym2

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

  629.             }

  630.             MenuItem {} {

  631.               label Pow2

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

  633.             }

  634.             MenuItem {} {

  635.               label Sgm

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

  637.             }

  638.           }

  639.           Fl_Dial wshpar {

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

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

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

  643.             class Fl_Osc_Dial

  644.           }

  645.           Fl_Value_Output wsparval {

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

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

  648.           }

  649.         }

  650.         Fl_Check_Button autoclearbutton {

  651.           label {Clr.}

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

  653.         }

  654.         Fl_Group {} {

  655.           xywh {290 313 155 30} box UP_FRAME

  656.         } {

  657.           Fl_Choice fltbutton {

  658.             label Filter

  659.             callback {redrawoscil();}

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

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

  662.             class Fl_Osc_Choice

  663.           } {

  664.             MenuItem {} {

  665.               label None

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

  667.             }

  668.             MenuItem {} {

  669.               label LP1

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

  671.             }

  672.             MenuItem {} {

  673.               label HP1a

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

  675.             }

  676.             MenuItem {} {

  677.               label HP1b

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

  679.             }

  680.             MenuItem {} {

  681.               label BP1

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

  683.             }

  684.             MenuItem {} {

  685.               label BS1

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

  687.             }

  688.             MenuItem {} {

  689.               label LP2

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

  691.             }

  692.             MenuItem {} {

  693.               label HP2

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

  695.             }

  696.             MenuItem {} {

  697.               label BP2

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

  699.             }

  700.             MenuItem {} {

  701.               label BS2

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

  703.             }

  704.             MenuItem {} {

  705.               label Cos

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

  707.             }

  708.             MenuItem {} {

  709.               label Sin

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

  711.             }

  712.             MenuItem {} {

  713.               label LSh

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

  715.             }

  716.             MenuItem {} {

  717.               label S

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

  719.             }

  720.           }

  721.           Fl_Dial filtervalue1 {

  722.             callback {redrawoscil();}

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

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

  725.             class Fl_Osc_Dial

  726.           }

  727.           Fl_Check_Button filterpref {

  728.             label p

  729.             callback {redrawoscil();}

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

  731.           }

  732.           Fl_Dial filtervalue2 {

  733.             callback {redrawoscil();}

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

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

  736.             class Fl_Osc_Dial

  737.           }

  738.         }

  739.         Fl_Group {} {

  740.           xywh {595 313 135 30} box UP_FRAME

  741.         } {

  742.           Fl_Choice sabutton {

  743.             label {Sp.adj.}

  744.             callback {redrawoscil();}

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

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

  747.             class Fl_Osc_Choice

  748.           } {

  749.             MenuItem {} {

  750.               label None

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

  752.             }

  753.             MenuItem {} {

  754.               label Pow

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

  756.             }

  757.             MenuItem {} {

  758.               label ThrsD

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

  760.             }

  761.             MenuItem {} {

  762.               label ThrsU

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

  764.             }

  765.           }

  766.           Fl_Dial sadjpar {

  767.             callback {redrawoscil();}

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

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

  770.             class Fl_Osc_Dial

  771.           }

  772.         }

  773.         Fl_Group {} {

  774.           xywh {670 345 65 65} box UP_FRAME

  775.         } {

  776.           Fl_Counter harmonicshiftcounter {

  777.             label {Harmonic Shift}

  778.             callback {redrawoscil();}

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

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

  781.             class Fl_Osc_Counter

  782.           }

  783.           Fl_Check_Button harmonicshiftpre {

  784.             label preH

  785.             callback {redrawoscil();}

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

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

  788.             class Fl_Osc_Check

  789.           }

  790.           Fl_Button {} {

  791.             label R

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

  793. harmonicshiftcounter->value(0);

  794. redrawoscil();}

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

  796.           }

  797.         }

  798.         Fl_Group {} {

  799.           xywh {670 415 65 90} box UP_FRAME

  800.         } {

  801.           Fl_Choice adhrtype {

  802.             label {Adpt.Harm.}

  803.             callback {redrawoscil();}

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

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

  806.             class Fl_Osc_Choice

  807.           } {

  808.             MenuItem {} {

  809.               label OFF

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

  811.             }

  812.             MenuItem {} {

  813.               label ON

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

  815.             }

  816.             MenuItem {} {

  817.               label Square

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

  819.             }

  820.             MenuItem {} {

  821.               label 2xSub

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

  823.             }

  824.             MenuItem {} {

  825.               label 2xAdd

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

  827.             }

  828.             MenuItem {} {

  829.               label 3xSub

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

  831.             }

  832.             MenuItem {} {

  833.               label 3xAdd

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

  835.             }

  836.             MenuItem {} {

  837.               label 4xSub

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

  839.             }

  840.             MenuItem {} {

  841.               label 4xAdd

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

  843.             }

  844.           }

  845.           Fl_Dial adhrpow {

  846.             label pow

  847.             callback {redrawoscil();}

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

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

  850.             class Fl_Osc_Dial

  851.           }

  852.           Fl_Dial adhrbf {

  853.             label baseF

  854.             callback {redrawoscil();}

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

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

  857.             class Fl_Osc_Dial

  858.           }

  859.           Fl_Slider adhrpar {

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

  861.             callback {redrawoscil();}

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

  863.             class Fl_Osc_TSlider

  864.           }

  865.         }

  866.         Fl_Group {} {

  867.           xywh {445 313 150 30} box UP_FRAME

  868.         } {

  869.           Fl_Choice modtype {

  870.             label {Mod.}

  871.             callback {redrawoscil();}

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

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

  874.             class Fl_Osc_Choice

  875.           } {

  876.             MenuItem {} {

  877.               label None

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

  879.             }

  880.             MenuItem {} {

  881.               label Rev

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

  883.             }

  884.             MenuItem {} {

  885.               label Sine

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

  887.             }

  888.             MenuItem {} {

  889.               label Pow

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

  891.             }

  892.           }

  893.           Fl_Dial modpar1 {

  894.             callback {redrawoscil();}

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

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

  897.             class Fl_Osc_Dial

  898.           }

  899.           Fl_Dial modpar2 {

  900.             callback {redrawoscil();}

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

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

  903.             class Fl_Osc_Dial

  904.           }

  905.           Fl_Dial modpar3 {

  906.             callback {redrawoscil();}

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

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

  909.             class Fl_Osc_Dial

  910.           }

  911.         }

  912.         Fl_Button {} {

  913.           label Sine

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

  915. 

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

  917. bftype->update();

  918. bfpar->value(0);

  919. bfpar->do_callback();

  920. 

  921. redrawoscil();

  922. refresh();}

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

  924.         }

  925.         Fl_Button {} {

  926.           label C

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

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

  929.         }

  930.         Fl_Button {} {

  931.           label P

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

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

  934.         }

  935.         Fl_Scroll _this_has_to_be_the_last {

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

  937.         } {

  938.           Fl_Pack harmonics {open

  939.             xywh {15 350 650 225} type HORIZONTAL

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

  941.           } {}

  942.         }

  943.       }

  944.     }

  945.   }

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

  947.   } {

  948.     code { assert(osc_);

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

  950. 

  951. initialized = false;

  952. 

  953. adnotep = adnotep_;

  954. osc = osc_;

  955. loc = loc_;

  956. 

  957. oscilo = NULL;

  958. oscilo_base = NULL;

  959. oscils = NULL;

  960. oscils_base = NULL;

  961. 

  962. osceditUI = NULL;

  963. dummy = NULL;

  964. applybutton = NULL;

  965. oscildisplaygroup = NULL;

  966. rndslider = NULL;

  967. hrndtype = NULL;

  968. magtype = NULL;

  969. basefuncdisplaygroup = NULL;

  970. bfpar = NULL;

  971. bftype = NULL;

  972. make_window();

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

  974. initialized = true;

  975. 

  976. refresh();

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

  978.   }

  979.   Function {~OscilEditor()} {open

  980.   } {

  981.     code {osceditUI->hide();

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

  983.     delete h[i];

  984. 

  985. delete oscilo;

  986. delete oscilo_base;

  987. delete oscils;

  988. delete oscils_base;

  989. delete osceditUI;} {}

  990.   }

  991.   Function {refresh()} {} {

  992.     code {magtype->update();

  993. 

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

  995. 

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

  997. 

  998.     basefuncdisplaygroup->redraw();

  999. redrawoscil();} {}

  1000.   }

  1001.   Function {redrawoscil()} {open

  1002.   } {

  1003.     code {

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

  1005.         return;

  1006.     //get data from backend

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

  1008. oscilo->update();

  1009. oscils->update();

  1010. oscilo_base->update();

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

  1012.   }

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

  1014.   } {

  1015.     code {

  1016.     switch (menuentry){

  1017.     case 0:

  1018.          bfpar->deactivate();

  1019.          bfparval->deactivate();

  1020.          basefuncmodulation->deactivate();

  1021.          break;

  1022.     case 127:

  1023.          bfpar->deactivate();

  1024.          bfparval->deactivate();

  1025.          basefuncmodulation->activate();

  1026.          break;

  1027.     default:

  1028.          bfpar->activate();

  1029.          bfparval->activate();

  1030.          basefuncmodulation->activate();

  1031.     }

  1032.     } {} }

  1033. 

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

  1035.   }

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

  1037.   }

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

  1039.   }

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

  1041.   }

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

  1043.   }

  1044.   decl {bool adnotep;} {private local

  1045.   }

  1046.   decl {bool initialized;} {private local

  1047.   }

  1048. }