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

674 lines
21KB
Raw Blame History 

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

  2. version 1.0302 

  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 "Fl_Osc_Dial.H"} {public local

  12. } 

  13. 

  14. decl {\#include "Fl_Osc_Check.H"} {public local

  15. } 

  16. 

  17. decl {\#include "Fl_Osc_Button.H"} {public local

  18. } 

  19. 

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

  21. } 

  22. 

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

  24. }

  25. 

  26. decl {\#include <stdio.h>} {public local

  27. } 

  28. 

  29. decl {\#include <stdlib.h>} {public local

  30. } 

  31. 

  32. decl {\#include "../globals.h"} {public local

  33. } 

  34. 

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

  36. } 

  37. 

  38. decl {\#include "../Params/EnvelopeParams.h"} {public local

  39. } 

  40. 

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

  42. } 

  43. 

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

  45. } 

  46. 

  47. decl {\#include <FL/fl_ask.H>} {public local

  48. } 

  49. 

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

  51. } 

  52. 

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

  54. } 

  55. 

  56. decl {\#include "EnvelopeFreeEdit.h"} {public local

  57. } 

  58. 

  59. class PointButton {open : {public Fl_Button, public Fl_Osc_Widget}}

  60. {

  61.   Function {PointButton(int x,int y, int w, int h, const char *label=0):Fl_Button(x,y,w,h,label),Fl_Osc_Widget(this)} {open

  62.   } {

  63.     code {} {}

  64.   }

  65.   Function {rebase(std::string new_base)} {open

  66.   } {

  67.     code {loc = new_base;} {}

  68.   }

  69.   Function {init(std::string path_)} {open

  70.   } {

  71.     code {ext = path_;} {}

  72.   }

  73. }

  74. class EnvelopeUI {open : {public Fl_Osc_Group,PresetsUI_}

  75. } {

  76.   Function {EnvelopeUI(int x,int y, int w, int h, const char *label=0):Fl_Osc_Group(x,y,w,h)} {} {

  77.     code {freemodeeditwindow=NULL;

  78. envADSR=NULL;

  79. envASR=NULL;

  80. envADSRfilter=NULL;

  81. envASRbw=NULL;

  82. envfree=NULL;} {}

  83.   }

  84.   Function {~EnvelopeUI()} {} {

  85.     code {envwindow->hide();

  86. hide();

  87. freemodeeditwindow->hide();

  88. delete (freemodeeditwindow);} {}

  89.   }

  90.   Function {make_freemode_edit_window()} {open

  91.   } {

  92.     Fl_Window freemodeeditwindow {

  93.       label Envelope open

  94.       xywh {702 801 575 180} type Double resizable

  95.       class Fl_Osc_Window visible

  96.     } {

  97.       Fl_Button {} {

  98.         label C

  99.         callback {presetsui->copy(freemodeeditwindow->loc());}

  100.         xywh {465 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  101.         code0 {freemodeeditwindow->init(osc, loc());}

  102.       }

  103.       Fl_Button {} {

  104.         label P

  105.         callback {presetsui->paste(freemodeeditwindow->loc(),this);}

  106.         xywh {482 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  107.       }

  108.       Fl_Button addpoint {

  109.         label {Add pt}

  110.         callback {

  111. if(freeedit->lastpoint >= MAX_ENVELOPE_POINTS - 1)

  112.     return;

  113. o->oscWrite("addPoint", "i", freeedit->lastpoint);

  114. freeedit->lastpoint+=1;

  115. freeedit->update();

  116. envfree->redraw();

  117. sustaincounter->update();

  118. 

  119. //sustaincounter->value(Penvsustain);

  120. //sustaincounter->maximum(Penvpoints-2);}

  121.         xywh {90 155 80 20} box THIN_UP_BOX labelsize 11

  122.         code0 {(void)o->init("addPoint");}

  123.         class PointButton

  124.       }

  125.       Fl_Box freeedit {

  126.         label Envelope

  127.         callback {sustaincounter->maximum(o->Penvpoints-2);}

  128.         xywh {5 5 565 145} box FLAT_BOX color 0

  129.         code0 {o->init();}

  130.         class EnvelopeFreeEdit

  131.       }

  132.       Fl_Button deletepoint {

  133.         label {Delete pt}

  134.         callback {o->oscWrite("delPoint", "i", freeedit->lastpoint);

  135. freeedit->lastpoint-=1;

  136. freeedit->update();

  137. envfree->redraw();

  138. sustaincounter->update();

  139. //sustaincounter->value(Penvsustain);

  140. //sustaincounter->maximum(Penvpoints-2);}

  141.         xywh {175 155 85 20} box THIN_UP_BOX labelsize 11

  142.         code0 {(void)o->init("delPoint");}

  143.         class PointButton

  144.       }

  145.       Fl_Check_Button forcedreleasecheck {

  146.         label frcR

  147.         tooltip {Forced Release} xywh {410 165 40 15} down_box DOWN_BOX labelsize 10

  148.         code0 {o->init("Pforcedrelease");}

  149.         code1 {//TODO if (Pfreemode==0) o->hide();}

  150.         class Fl_Osc_Check

  151.       }

  152.       Fl_Dial envstretchdial {

  153.         label {Str.}

  154.         tooltip {Envelope stretch (on lower notes make the envelope longer)} xywh {380 155 25 25} box ROUND_UP_BOX labelsize 10 align 4 maximum 127 step 1

  155.         code0 {o->init("Penvstretch");}

  156.         code1 {//TODO if (Pfreemode==0) o->hide();}

  157.         class Fl_Osc_Dial

  158.       }

  159.       Fl_Button {} {

  160.         label Close

  161.         callback {freemodeeditwindow->hide();}

  162.         xywh {510 155 60 20} box THIN_UP_BOX

  163.       }

  164.       Fl_Check_Button linearenvelopecheck {

  165.         label L

  166.         tooltip {Linear Envelope} xywh {410 151 30 15} down_box DOWN_BOX labelsize 10

  167.         code0 {o->init("Plinearenvelope");}

  168.         code1 {//TODO if ((Pfreemode==0)||(Envmode>2)) o->hide();}

  169.         class Fl_Osc_Check

  170.       }

  171.       Fl_Counter sustaincounter {

  172.         label Sust

  173.         callback {freeedit->redraw();

  174. envfree->redraw();}

  175.         tooltip {Sustain (0 is disabled)} xywh {305 155 40 15} type Simple labelsize 11 align 4 minimum 0 maximum 127 step 1

  176.         code3 {o->init("Penvsustain");}

  177.         class Fl_Osc_Counter

  178.       }

  179.       Fl_Check_Button freemodehack {

  180.           xywh {0 0 0 0} down_box DOWN_BOX

  181.           callback{refresh_display();}

  182.           code0 {o->init("Pfreemode");o->hide();}

  183.           class Fl_Osc_Check

  184.       }

  185.       Fl_Button {} {

  186.         label {Cancel}

  187. 	tooltip {Cancel freemode editing}

  188.         callback {disable_freemode();}

  189.         xywh {5 155 80 20} box THIN_UP_BOX labelsize 11 labelcolor 1

  190.         class Fl_Osc_Button

  191.       }

  192.     }

  193.   }

  194.   Function {make_ADSR_window()} {} {

  195.     Fl_Window envADSR {open

  196.       xywh {353 911 205 70} type Double color 50 labelfont 1

  197.       class Fl_Osc_Group visible

  198.     } {

  199.       Fl_Group {} {

  200.         label {Amplitude Envelope}

  201.         xywh {0 0 205 70} box UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 10 align 17

  202.         code0 {set_module_parameters(o);}

  203.       } {

  204.         Fl_Button {} {

  205.           label C

  206.           callback {presetsui->copy(envADSR->loc());}

  207.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  208.         }

  209.         Fl_Button {} {

  210.           label P

  211.           callback {presetsui->paste(envADSR->loc(),this);}

  212.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  213.         }

  214.         Fl_Dial e1adt {

  215.           label {A.dt}

  216.           callback {freeedit->redraw();}

  217.           tooltip {Attack time} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  218.           code0 {o->init("PA_dt");}

  219.           class Fl_Osc_Dial

  220.         }

  221.         Fl_Dial e1ddt {

  222.           label {D.dt}

  223.           callback {freeedit->redraw();}

  224.           tooltip {Decay time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  225.           code0 {o->init("PD_dt");}

  226.           class Fl_Osc_Dial

  227.         }

  228.         Fl_Dial e1rdt {

  229.           label {R.dt}

  230.           callback {freeedit->redraw();}

  231.           tooltip {Release time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  232.           code0 {o->init("PR_dt");}

  233.           class Fl_Osc_Dial

  234.         }

  235.         Fl_Dial e1sval {

  236.           label {S.val}

  237.           callback {freeedit->redraw();}

  238.           tooltip {Sustain value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  239.           code0 {o->init("PS_val");}

  240.           class Fl_Osc_Dial

  241.         }

  242.         Fl_Check_Button e1forcedrelease {

  243.           label frcR

  244.           tooltip {Forced Release} xywh {180 35 20 15} down_box DOWN_BOX labelsize 10 align 6

  245.           code0 {o->init("Pforcedrelease");}

  246.           class Fl_Osc_Check

  247.         }

  248.         Fl_Dial e1envstretch {

  249.           label Stretch

  250.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  251.           code0 {o->init("Penvstretch");}

  252.           class Fl_Osc_Dial

  253.         }

  254.         Fl_Button {} {

  255.           label E

  256.           callback {open_as_freemode();}

  257.           tooltip {Envelope window} xywh {185 5 15 15} labelfont 1 labelsize 10

  258.           class Fl_Osc_Button

  259.         }

  260.         Fl_Check_Button e1linearenvelope {

  261.           label L

  262.           tooltip {The evelope is linear} xywh {180 20 15 15} down_box DOWN_BOX labelsize 10 align 4

  263.           code0 {o->init("Plinearenvelope");}

  264.           class Fl_Osc_Check

  265.         }

  266.       }

  267.     }

  268.   }

  269.   Function {make_ASR_window()} {} {

  270.     Fl_Window envASR {open

  271.       xywh {1067 911 210 70} type Double

  272.       class Fl_Osc_Group visible

  273.     } {

  274.       Fl_Group {} {

  275.         label {Frequency Envelope}

  276.         xywh {0 0 210 70} box UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 10 align 17

  277.         code0 {set_module_parameters(o);}

  278.       } {

  279.         Fl_Button {} {

  280.           label C

  281.           callback {presetsui->copy(envASR->loc());}

  282.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  283.         }

  284.         Fl_Button {} {

  285.           label P

  286.           callback {presetsui->paste(envASR->loc(),this);}

  287.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  288.         }

  289.         Fl_Dial e2aval {

  290.           label {A.val}

  291.           callback {freeedit->redraw();}

  292.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  293.           code0 {o->init("PA_val");}

  294.           class Fl_Osc_Dial

  295.         }

  296.         Fl_Dial e2adt {

  297.           label {A.dt}

  298.           callback {freeedit->redraw();}

  299.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  300.           code0 {o->init("PA_dt");}

  301.           class Fl_Osc_Dial

  302.         }

  303.         Fl_Dial e2rval {

  304.           label {R.val}

  305.           callback {freeedit->redraw();}

  306.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  307.           code0 {o->init("PR_val");}

  308.           class Fl_Osc_Dial

  309.         }

  310.         Fl_Dial e2rdt {

  311.           label {R.dt}

  312.           callback {freeedit->redraw();}

  313.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

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

  315.           class Fl_Osc_Dial

  316.         }

  317.         Fl_Dial e2envstretch {

  318.           label Stretch

  319.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  320.           code0 {o->init("Penvstretch");}

  321.           class Fl_Osc_Dial

  322.         }

  323.         Fl_Check_Button e2forcedrelease {

  324.           label frcR

  325.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 10 align 6

  326.           code0 {o->init("Pforcedrelease");}

  327.           class Fl_Osc_Check

  328.         }

  329.       }

  330.       Fl_Button {} {

  331.         label E

  332.         callback {open_as_freemode();}

  333.         tooltip {Envelope window} xywh {190 5 15 15} labelfont 1 labelsize 10

  334.         class Fl_Osc_Button

  335.       }

  336.     }

  337.   }

  338.   Function {make_ADSRfilter_window()} {} {

  339.     Fl_Window envADSRfilter {open

  340.       xywh {1002 911 275 70} type Double color 50 labelfont 1

  341.       class Fl_Osc_Group visible

  342.     } {

  343.       Fl_Group {} {

  344.         label {Filter Envelope}

  345.         xywh {0 0 275 70} box UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 10 align 17

  346.         code0 {set_module_parameters(o);}

  347.       } {

  348.         Fl_Button {} {

  349.           label C

  350.           callback {presetsui->copy(envADSRfilter->loc());}

  351.           xywh {220 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  352.         }

  353.         Fl_Button {} {

  354.           label P

  355.           callback {presetsui->paste(envADSRfilter->loc(),this);}

  356.           xywh {237 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  357.         }

  358.         Fl_Dial e3aval {

  359.           label {A.val}

  360.           callback {freeedit->redraw();}

  361.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  362.           code0 {o->init("PA_val");}

  363.           class Fl_Osc_Dial

  364.         }

  365.         Fl_Dial e3adt {

  366.           label {A.dt}

  367.           callback {freeedit->redraw();}

  368.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  369.           code0 {o->init("PA_dt");}

  370.           class Fl_Osc_Dial

  371.         }

  372.         Fl_Dial e3dval {

  373.           label {D.val}

  374.           callback {freeedit->redraw();}

  375.           tooltip {decay value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  376.           code0 {o->init("PD_val");}

  377.           class Fl_Osc_Dial

  378.         }

  379.         Fl_Dial e3ddt {

  380.           label {D.dt}

  381.           callback {freeedit->redraw();}

  382.           tooltip {decay time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  383.           code0 {o->init("PD_dt");}

  384.           class Fl_Osc_Dial

  385.         }

  386.         Fl_Dial e3rdt {

  387.           label {R.dt}

  388.           callback {freeedit->redraw();}

  389.           tooltip {Release time} xywh {145 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  390.           code0 {o->init("PR_dt");}

  391.           class Fl_Osc_Dial

  392.         }

  393.         Fl_Dial e3rval {

  394.           label {R.val}

  395.           callback {freeedit->redraw();}

  396.           tooltip {Release value} xywh {180 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  397.           code0 {o->init("PR_val");}

  398.           class Fl_Osc_Dial

  399.         }

  400.         Fl_Dial e3envstretch {

  401.           label Stretch

  402.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {215 25 25 25} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  403.           code0 {o->init("Penvstretch");}

  404.           class Fl_Osc_Dial

  405.         }

  406.         Fl_Check_Button e3forcedrelease {

  407.           label frcR

  408.           tooltip {Forced Release} xywh {250 30 15 20} down_box DOWN_BOX labelsize 10 align 6

  409.           code0 {o->init("Pforcedrelease");}

  410.           class Fl_Osc_Check

  411.         }

  412.         Fl_Button {} {

  413.           label E

  414.           callback {open_as_freemode();}

  415.           xywh {255 5 15 15} labelfont 1 labelsize 10

  416.           class Fl_Osc_Button

  417.         }

  418.       }

  419.     }

  420.   }

  421.   Function {make_ASRbw_window()} {} {

  422.     Fl_Window envASRbw {open

  423.       xywh {371 911 210 70} type Double

  424.       code0 {set_module_parameters(o);}

  425.       class Fl_Osc_Group visible

  426.     } {

  427.       Fl_Group {} {

  428.         label {BandWidth Envelope}

  429.         xywh {0 0 210 70} box UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 10 align 17

  430.         code0 {set_module_parameters(o);}

  431.       } {

  432.         Fl_Button {} {

  433.           label C

  434.           callback {presetsui->copy(envASRbw->loc());}

  435.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  436.         }

  437.         Fl_Button {} {

  438.           label P

  439.           callback {presetsui->paste(envASRbw->loc(),this);}

  440.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  441.         }

  442.         Fl_Dial e4aval {

  443.           label {A.val}

  444.           callback {freeedit->redraw();}

  445.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  446.           code0 {o->init("PA_val");}

  447.           class Fl_Osc_Dial

  448.         }

  449.         Fl_Dial e4adt {

  450.           label {A.dt}

  451.           callback {freeedit->redraw();}

  452.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

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

  454.           class Fl_Osc_Dial

  455.         }

  456.         Fl_Dial e4rval {

  457.           label {R.val}

  458.           callback {freeedit->redraw();}

  459.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  460.           code0 {o->init("PR_val");}

  461.           class Fl_Osc_Dial

  462.         }

  463.         Fl_Dial e4rdt {

  464.           label {R.dt}

  465.           callback {freeedit->redraw();}

  466.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  467.           code0 {o->init("PR_dt");}

  468.           class Fl_Osc_Dial

  469.         }

  470.         Fl_Dial e4envstretch {

  471.           label Stretch

  472.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 10 maximum 127 step 1

  473.           code0 {o->init("Penvstretch");}

  474.           class Fl_Osc_Dial

  475.         }

  476.         Fl_Check_Button e4forcedrelease {

  477.           label frcR

  478.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 10 align 6

  479.           code0 {o->init("Pforcedrelease");}

  480.           class Fl_Osc_Check

  481.         }

  482.       }

  483.       Fl_Button {} {

  484.         label E

  485.         callback {open_as_freemode();}

  486.         xywh {190 5 15 15} labelfont 1 labelsize 10

  487.         class Fl_Osc_Button

  488.       }

  489.     }

  490.   }

  491.   Function {make_free_window()} {} {

  492.     Fl_Window envfree {open

  493.       xywh {385 911 205 70} type Double color 50 labelfont 1 resizable

  494.       code0 {set_module_parameters(o);}

  495.       class Fl_Osc_Group visible

  496.     } {

  497.       Fl_Group envfreegroup {

  498.         label {Amplitude Envelope}

  499.         xywh {0 0 205 70} box UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 10 align 17 resizable

  500.         code0 {set_module_parameters(o);}

  501.       } {

  502.         Fl_Button {} {

  503.           label E

  504.           callback {open_as_freemode();}

  505.           xywh {185 5 15 15} labelfont 1 labelsize 10

  506.           class Fl_Osc_Button

  507.         }

  508.         Fl_Box freeeditsmall {

  509.           label Envelope

  510.           callback {envfree->redraw();}

  511.           xywh {5 20 195 45} box FLAT_BOX color 0 resizable

  512.           code0 {o->init();}

  513.           class EnvelopeFreeEdit

  514.         }

  515.         Fl_Button {} {

  516.           label C

  517.           callback {presetsui->copy(envfree->loc());}

  518.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  519.         }

  520.         Fl_Button {} {

  521.           label P

  522.           callback {presetsui->paste(envfree->loc(),this);}

  523.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 55

  524.         }

  525.       }

  526.     }

  527.   }

  528.   Function {open_as_freemode()} {open

  529.   } {

  530.      code {

  531.     if (!freemodehack->value() &&

  532.         fl_choice("Convert envelope to free mode data?","No","Yes",NULL)==0)

  533.         return;

  534.     freemodehack->oscWrite("Pfreemode", "T");

  535.     freeedit->update();

  536.     freemodeeditwindow->show();

  537.     freemodeeditwindow->position(Fl::event_x_root()-20, Fl::event_y_root()+20);

  538.     freemodeeditwindow->size_range(400,160);

  539. } {}

  540. }

  541.   Function {init(int env_type, Fl_Osc_Interface *osc_, std::string base_, std::string ext_)} {open

  542.   } {

  543.     code {osc  = osc_;

  544.     base = base_;

  545.     ext  = ext_;

  546.     Envmode = env_type;

  547.     Penvsustain = false;

  548.     Penvpoints  = 3;

  549.     Penvstretch = 0;

  550.     Pforcedrelease = 0;

  551.     Plinearenvelope = 0;

  552.     assert(osc);

  553. make_ADSR_window();

  554. make_ASR_window();

  555. make_ADSRfilter_window();

  556. make_ASRbw_window();

  557. make_free_window();

  558. 

  559. make_freemode_edit_window();

  560. 

  561. envwindow=NULL;

  562. if(Envmode==3) envfreegroup->label("Frequency Envelope");

  563. if(Envmode==4) envfreegroup->label("Filter Envelope");

  564. if(Envmode==5) envfreegroup->label("Bandwidth Envelope");

  565. 

  566. freemodeeditwindow->label(this->label());

  567. 

  568. 

  569. freeeditsmall->setpair(freeedit);

  570. freeedit->setpair(freeeditsmall);

  571. 

  572. 

  573. refresh_display();} {}

  574.   }

  575.   Function {rebase(std::string new_base)} {open

  576.   } {

  577.     code {Fl_Osc_Group::rebase(new_base);

  578.     freemodeeditwindow->rebase(new_base+ext);} {}

  579.   }

  580.   Function {disable_freemode()} {open

  581.   } {

  582.     code {if (fl_choice("Discard free mode data?","No","Yes",NULL)==0)

  583.         return;

  584. 

  585.     hide();

  586.     int winx = Fl::event_x_root()-10;

  587.     int winy = Fl::event_y_root()-155;

  588.     winx = winx < 1 ? 1 : winx;

  589.     winy = winy < 1 ? 1 : winy;

  590.     freemodeeditwindow->hide();

  591. 

  592.     envwindow->hide();

  593.     Fl_Group *par=envwindow->parent();

  594.     par->hide();

  595. 

  596.     freemodehack->oscWrite("Pfreemode", "F");

  597.     freeedit->update();

  598.     envwindow->show();

  599.     par->redraw();

  600. 

  601.     par->show();

  602.     show();

  603.     freemodeeditwindow->position(winx,winy);} {}

  604.   }

  605.   Function {refresh()} { open }

  606.   { code {

  607.     freemodehack->oscWrite("Pfreemode");

  608.   } {}

  609.   }

  610.   Function {refresh_display()} {open

  611.   } {

  612.     code {

  613. 

  614.     sustaincounter->value(Penvsustain);

  615.     sustaincounter->maximum(Penvpoints-2);

  616. 

  617.     envstretchdial->value(Penvstretch);

  618. 

  619.     linearenvelopecheck->value(Plinearenvelope);

  620.     linearenvelopecheck->show();

  621. 

  622.     forcedreleasecheck->value(Pforcedrelease);

  623. 

  624. envADSR->hide();

  625. envASR->hide();

  626. envADSRfilter->hide();

  627. envASRbw->hide();

  628. envfree->hide();

  629. 

  630. if (freemodehack->value()) {

  631.    envwindow=envfree;

  632.    freeedit->update();

  633. } else {

  634.    freemodeeditwindow->hide();

  635.    switch(Envmode){

  636.          case 1:

  637.          case 2:

  638.            envwindow=envADSR;

  639.          break;

  640.          case 3:

  641.            envwindow=envASR;

  642.          break; 

  643.          case 4:

  644.            envwindow=envADSRfilter;

  645.          break; 

  646.          case 5:

  647.           envwindow=envASRbw;

  648.          break;

  649.          default:

  650.          break; 

  651.    }

  652. }

  653. 

  654. assert(envwindow);

  655. envwindow->resize(this->x(),this->y(),this->w(),this->h());

  656. 

  657. envwindow->show();} {}

  658.   }

  659.   decl {int Envmode;} {private local

  660.   }

  661.   decl {int Penvsustain;} {private local

  662.   }

  663.   decl {int Penvpoints;} {private local

  664.   }

  665.   decl {int Penvstretch;} {private local

  666.   }

  667.   decl {int Pforcedrelease;} {private local

  668.   }

  669.   decl {int Plinearenvelope;} {private local

  670.   }

  671.   decl {Fl_Group *envwindow;} {private local

  672.   }

  673. }