home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Complet / ZynAddFX / Setup_ZynAddSubFX-2.1.1.exe / EnvelopeUI.fl < prev    next >
Encoding:
FLTK User Interface Designer  |  2004-08-17  |  24.8 KB  |  847 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0105 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2004 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include "WidgetPDial.h"} {public
  10. } 
  11.  
  12. decl {\#include <stdio.h>} {public
  13. } 
  14.  
  15. decl {\#include <stdlib.h>} {public
  16. } 
  17.  
  18. decl {\#include "../globals.h"} {public
  19. } 
  20.  
  21. decl {\#include <FL/Fl_Group.H>} {public
  22. } 
  23.  
  24. decl {\#include "../Params/EnvelopeParams.h"} {public
  25. } 
  26.  
  27. decl {\#include <FL/Fl_Box.H>} {public
  28. } 
  29.  
  30. decl {\#include <FL/fl_draw.H>} {public
  31. } 
  32.  
  33. decl {\#include <FL/fl_ask.H>} {public
  34. } 
  35.  
  36. decl {\#include "PresetsUI.h"} {public
  37. } 
  38.  
  39. class EnvelopeFreeEdit {: {public Fl_Box}
  40. } {
  41.   Function {EnvelopeFreeEdit(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  42.     code {env=NULL;
  43. pair=NULL;} {}
  44.   }
  45.   Function {init(EnvelopeParams *env_)} {} {
  46.     code {env=env_;
  47. oldx=-1;
  48. currentpoint=-1;
  49. cpx=0;
  50. lastpoint=-1;} {}
  51.   }
  52.   Function {setpair(Fl_Box *pair_)} {} {
  53.     code {pair=pair_;} {}
  54.   }
  55.   Function {getpointx(int n)} {return_type int
  56.   } {
  57.     code {int lx=w()-10;
  58. int npoints=env->Penvpoints;
  59.  
  60. float  sum=0;
  61. for (int i=1;i<npoints;i++) sum+=env->getdt(i)+1;
  62.  
  63. float sumbefore=0;//the sum of all points before the computed point
  64. for (int i=1;i<=n;i++) sumbefore+=env->getdt(i)+1;
  65.  
  66. return((int) (sumbefore/(REALTYPE) sum*lx));} {}
  67.   }
  68.   Function {getpointy(int n)} {return_type int
  69.   } {
  70.     code {int ly=h()-10;
  71.  
  72. return((int) ((1.0-env->Penvval[n]/127.0)*ly));} {}
  73.   }
  74.   Function {getnearest(int x,int y)} {return_type int
  75.   } {
  76.     code {x-=5;y-=5;
  77.  
  78. int nearestpoint=0;
  79. int nearestval=1000000;//a big value
  80. for (int i=0;i<env->Penvpoints;i++){
  81.    int distance=abs(x-getpointx(i))+abs(y-getpointy(i));
  82.    if (distance<nearestval) {
  83.      nearestpoint=i;
  84.      nearestval=distance;  
  85.    };
  86. };
  87. return(nearestpoint);} {}
  88.   }
  89.   Function {draw()} {private
  90.   } {
  91.     code {int ox=x(),oy=y(),lx=w(),ly=h();
  92. if (env->Pfreemode==0) env->converttofree();
  93. int npoints=env->Penvpoints;
  94.  
  95. if (active_r()) fl_color(FL_BLACK);
  96.     else fl_color(90,90,90);
  97. if (!active_r()) currentpoint=-1;
  98.  
  99. fl_rectf(ox,oy,lx,ly);
  100.  
  101. ox+=5;oy+=5;lx-=10;ly-=10;
  102.  
  103. //draw the lines
  104. fl_color(FL_GRAY);
  105.  
  106. fl_line_style(FL_SOLID);
  107. fl_line(ox+2,oy+ly/2,ox+lx-2,oy+ly/2);
  108.  
  109. //draws the evelope points and lines
  110. Fl_Color alb=FL_WHITE;
  111. if (!active_r()) alb=fl_rgb_color(180,180,180);
  112. fl_color(alb);
  113. int oldxx=0,xx=0,oldyy=0,yy=getpointy(0);
  114. fl_rectf(ox-3,oy+yy-3,6,6);
  115. for (int i=1;i<npoints;i++){
  116.     oldxx=xx;oldyy=yy;
  117.     xx=getpointx(i);yy=getpointy(i);
  118.     if (i==currentpoint) fl_color(FL_RED);
  119.         else fl_color(alb);
  120.     fl_line(ox+oldxx,oy+oldyy,ox+xx,oy+yy);
  121.     fl_rectf(ox+xx-3,oy+yy-3,6,6);
  122. };
  123.  
  124. //draw the last moved point point (if exists)
  125. if (lastpoint>=0){
  126.     fl_color(FL_CYAN);
  127.     fl_rectf(ox+getpointx(lastpoint)-5,oy+getpointy(lastpoint)-5,10,10);
  128. };
  129.  
  130. //draw the sustain position
  131. if (env->Penvsustain>0){
  132.     fl_color(FL_YELLOW);
  133.     xx=getpointx(env->Penvsustain);
  134.     fl_line(ox+xx,oy+0,ox+xx,oy+ly);
  135. };
  136.  
  137. //Show the envelope duration and the current line duration
  138. fl_font(FL_HELVETICA|FL_BOLD,10);
  139. float time=0.0;
  140. if (currentpoint<=0){
  141.    fl_color(alb);
  142.    for (int i=1;i<npoints;i++) time+=env->getdt(i);
  143. } else {
  144.    fl_color(255,0,0);
  145.    time=env->getdt(currentpoint);
  146. };
  147. char tmpstr[20];
  148. if (time<1000.0) snprintf((char *)&tmpstr,20,"%.1fms",time);
  149.      else snprintf((char *)&tmpstr,20,"%.2fs",time/1000.0);
  150. fl_draw(tmpstr,ox+lx-20,oy+ly-10,20,10,FL_ALIGN_RIGHT,NULL,0);} {}
  151.   }
  152.   Function {handle(int event)} {return_type int
  153.   } {
  154.     code {int x_=Fl::event_x()-x();
  155. int y_=Fl::event_y()-y();
  156.  
  157. if (event==FL_PUSH) {
  158.   currentpoint=getnearest(x_,y_);
  159.   cpx=x_;
  160.   cpdt=env->Penvdt[currentpoint];
  161.   lastpoint=currentpoint;
  162.   redraw();
  163.   if (pair!=NULL) pair->redraw();
  164. };
  165.  
  166. if (event==FL_RELEASE){
  167.   currentpoint=-1;
  168.   redraw();
  169.   if (pair!=NULL) pair->redraw();
  170. };
  171.  
  172. if ((event==FL_DRAG)&&(currentpoint>=0)){
  173.   int ny=127-(int) (y_*127.0/h());
  174.   if (ny<0) ny=0;if (ny>127) ny=127;
  175.   env->Penvval[currentpoint]=ny;
  176.  
  177.   int dx=(int)((x_-cpx)*0.1);
  178.   int newdt=cpdt+dx;
  179.   if (newdt<0) newdt=0;if (newdt>127) newdt=127;
  180.   if (currentpoint!=0) env->Penvdt[currentpoint]=newdt;
  181.      else env->Penvdt[currentpoint]=0;
  182.  
  183.   redraw();
  184.   if (pair!=NULL) pair->redraw();
  185. };
  186.  
  187.  
  188. return(1);} {}
  189.   }
  190.   decl {Fl_Box *pair;} {}
  191.   decl {EnvelopeParams *env;} {}
  192.   decl {int oldx,oldy;} {}
  193.   decl {int currentpoint,cpx,cpdt;} {}
  194.   decl {int lastpoint;} {public
  195.   }
  196. } 
  197.  
  198. class EnvelopeUI {: {public Fl_Group,PresetsUI_}
  199. } {
  200.   Function {EnvelopeUI(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  201.     code {env=NULL;
  202. freemodeeditwindow=NULL;
  203. envADSR=NULL;
  204. envASR=NULL;
  205. envADSRfilter=NULL;
  206. envASRbw=NULL;
  207. envfree=NULL;} {}
  208.   }
  209.   Function {~EnvelopeUI()} {} {
  210.     code {envwindow->hide();
  211. hide();
  212. freemodeeditwindow->hide();
  213. delete (freemodeeditwindow);} {selected
  214.     }
  215.   }
  216.   Function {make_freemode_edit_window()} {} {
  217.     Fl_Window freemodeeditwindow {
  218.       label Envelope
  219.       xywh {60 308 575 180} type Double hide
  220.     } {
  221.       Fl_Box freeedit {
  222.         label Envelope
  223.         xywh {5 5 565 145} box FLAT_BOX color 0
  224.         code0 {o->init(env);}
  225.         class EnvelopeFreeEdit
  226.       }
  227.       Fl_Button {} {
  228.         label {Add point}
  229.         callback {int curpoint=freeedit->lastpoint;
  230. if (curpoint<0) return;
  231. //if (curpoint>=env->Penvpoints-1) return;
  232. if (env->Penvpoints>=MAX_ENVELOPE_POINTS) return;
  233.  
  234. for (int i=env->Penvpoints;i>=curpoint+1;i--){
  235.    env->Penvdt[i]=env->Penvdt[i-1];
  236.    env->Penvval[i]=env->Penvval[i-1];
  237. };
  238.  
  239. if (curpoint==0) {
  240.   env->Penvdt[1]=64;
  241. };
  242.  
  243. env->Penvpoints++;
  244. if (curpoint<=env->Penvsustain) env->Penvsustain++;
  245.  
  246. freeedit->lastpoint+=1;
  247. freeedit->redraw();
  248. envfree->redraw();
  249.  
  250. sustaincounter->value(env->Penvsustain);
  251. sustaincounter->maximum(env->Penvpoints-2);}
  252.         xywh {115 155 80 20} box THIN_UP_BOX
  253.         code0 {if (env->Pfreemode==0) o->hide();}
  254.       }
  255.       Fl_Button {} {
  256.         label {Delete point}
  257.         callback {int curpoint=freeedit->lastpoint;
  258. if (curpoint<1) return;
  259. if (curpoint>=env->Penvpoints-1) return;
  260. if (env->Penvpoints<=3) return;
  261.  
  262. for (int i=curpoint+1;i<env->Penvpoints;i++){
  263.    env->Penvdt[i-1]=env->Penvdt[i];
  264.    env->Penvval[i-1]=env->Penvval[i];
  265. };
  266.  
  267. env->Penvpoints--;
  268.  
  269. if (curpoint<=env->Penvsustain) env->Penvsustain--;
  270.  
  271.  
  272. freeedit->lastpoint-=1;
  273. freeedit->redraw();
  274. envfree->redraw();
  275.  
  276. sustaincounter->value(env->Penvsustain);
  277. sustaincounter->maximum(env->Penvpoints-2);}
  278.         xywh {200 155 80 20} box THIN_UP_BOX
  279.         code0 {if (env->Pfreemode==0) o->hide();}
  280.       }
  281.       Fl_Light_Button freemodebutton {
  282.         label FreeMode
  283.         callback {reinit();
  284.  
  285. freeedit->lastpoint=-1;
  286. freeedit->redraw();}
  287.         tooltip {Enable or disable the freemode} xywh {10 155 95 25} box PLASTIC_UP_BOX
  288.       }
  289.       Fl_Check_Button forcedreleasecheck {
  290.         label frcR
  291.         callback {env->Pforcedrelease=(int)o->value();}
  292.         tooltip {Forced Relase} xywh {410 165 40 15} down_box DOWN_BOX labelsize 11
  293.         code0 {o->value(env->Pforcedrelease);}
  294.         code1 {if (env->Pfreemode==0) o->hide();}
  295.       }
  296.       Fl_Dial envstretchdial {
  297.         label {Str.}
  298.         callback {env->Penvstretch=(int)o->value();}
  299.         tooltip {Envelope stretch (on lower notes make the envelope longer)} xywh {380 155 25 25} box ROUND_UP_BOX labelsize 11 align 4 maximum 127 step 1
  300.         code0 {o->value(env->Penvstretch);}
  301.         code1 {if (env->Pfreemode==0) o->hide();}
  302.         class WidgetPDial
  303.       }
  304.       Fl_Button {} {
  305.         label Close
  306.         callback {freemodeeditwindow->hide();}
  307.         xywh {510 155 60 25} box THIN_UP_BOX
  308.       }
  309.       Fl_Check_Button linearenvelopecheck {
  310.         label L
  311.         callback {env->Plinearenvelope=(int)o->value();}
  312.         tooltip {Linear Envelope} xywh {410 151 30 15} down_box DOWN_BOX labelsize 11
  313.         code0 {o->value(env->Plinearenvelope);}
  314.         code1 {if ((env->Pfreemode==0)||(env->Envmode>2)) o->hide();}
  315.       }
  316.       Fl_Counter sustaincounter {
  317.         label Sust
  318.         callback {env->Penvsustain=(int) o->value();
  319. freeedit->redraw();
  320. envfree->redraw();}
  321.         tooltip {Sustain (0 is disabled)} xywh {315 155 40 15} type Simple labelsize 12 align 4 minimum 0 maximum 127 step 1
  322.         code0 {o->value(env->Penvsustain);}
  323.         code1 {if (env->Pfreemode==0) o->hide();}
  324.         code2 {o->maximum(env->Penvpoints-2);}
  325.       }
  326.       Fl_Button {} {
  327.         label C
  328.         callback {presetsui->copy(env);}
  329.         xywh {465 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  330.       }
  331.       Fl_Button {} {
  332.         label P
  333.         callback {presetsui->paste(env,this);}
  334.         xywh {482 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  335.       }
  336.     }
  337.   }
  338.   Function {make_ADSR_window()} {} {
  339.     Fl_Window envADSR {
  340.       xywh {108 336 205 70} type Double color 50 labelfont 1 hide
  341.       class Fl_Group
  342.     } {
  343.       Fl_Group {} {
  344.         label {Amplitude Envelope}
  345.         xywh {0 0 205 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  346.       } {
  347.         Fl_Dial e1adt {
  348.           label {A.dt}
  349.           callback {env->PA_dt=(int)o->value();
  350. freeedit->redraw();}
  351.           tooltip {Attack time} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  352.           code0 {o->value(env->PA_dt);}
  353.           class WidgetPDial
  354.         }
  355.         Fl_Dial e1ddt {
  356.           label {D.dt}
  357.           callback {env->PD_dt=(int)o->value();
  358. freeedit->redraw();}
  359.           tooltip {Decay time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  360.           code0 {o->value(env->PD_dt);}
  361.           class WidgetPDial
  362.         }
  363.         Fl_Dial e1rdt {
  364.           label {R.dt}
  365.           callback {env->PR_dt=(int)o->value();
  366. freeedit->redraw();}
  367.           tooltip {Release time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  368.           code0 {o->value(env->PR_dt);}
  369.           class WidgetPDial
  370.         }
  371.         Fl_Dial e1sval {
  372.           label {S.val}
  373.           callback {env->PS_val=(int)o->value();
  374. freeedit->redraw();}
  375.           tooltip {Sustain value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  376.           code0 {o->value(env->PS_val);}
  377.           class WidgetPDial
  378.         }
  379.         Fl_Check_Button e1forcedrelease {
  380.           label frcR
  381.           callback {env->Pforcedrelease=(int)o->value();}
  382.           tooltip {Forced Relase} xywh {180 35 20 15} down_box DOWN_BOX labelsize 11 align 6
  383.           code0 {o->value(env->Pforcedrelease);}
  384.         }
  385.         Fl_Dial e1envstretch {
  386.           label Stretch
  387.           callback {env->Penvstretch=(int)o->value();}
  388.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  389.           code0 {o->value(env->Penvstretch);}
  390.           class WidgetPDial
  391.         }
  392.         Fl_Button {} {
  393.           label E
  394.           callback {freemodeeditwindow->show();}
  395.           tooltip {Envelope window} xywh {185 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  396.         }
  397.         Fl_Check_Button e1linearenvelope {
  398.           label L
  399.           callback {env->Plinearenvelope=(int)o->value();}
  400.           tooltip {The evelope is linear} xywh {180 20 15 15} down_box DOWN_BOX labelsize 11 align 4
  401.           code0 {o->value(env->Plinearenvelope);}
  402.         }
  403.         Fl_Button {} {
  404.           label C
  405.           callback {presetsui->copy(env);}
  406.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  407.         }
  408.         Fl_Button {} {
  409.           label P
  410.           callback {presetsui->paste(env,this);}
  411.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  412.         }
  413.       }
  414.     }
  415.   }
  416.   Function {make_ASR_window()} {} {
  417.     Fl_Window envASR {
  418.       xywh {71 320 210 70} type Double hide
  419.       class Fl_Group
  420.     } {
  421.       Fl_Group {} {
  422.         label {Frequency Envelope}
  423.         xywh {0 0 210 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  424.       } {
  425.         Fl_Dial e2aval {
  426.           label {A.val}
  427.           callback {env->PA_val=(int)o->value();
  428. freeedit->redraw();}
  429.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  430.           code0 {o->value(env->PA_val);}
  431.           class WidgetPDial
  432.         }
  433.         Fl_Dial e2adt {
  434.           label {A.dt}
  435.           callback {env->PA_dt=(int)o->value();
  436. freeedit->redraw();}
  437.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  438.           code0 {o->value(env->PA_dt);}
  439.           class WidgetPDial
  440.         }
  441.         Fl_Dial e2rval {
  442.           label {R.val}
  443.           callback {env->PR_val=(int)o->value();
  444. freeedit->redraw();}
  445.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  446.           code0 {o->value(env->PR_val);}
  447.           class WidgetPDial
  448.         }
  449.         Fl_Dial e2rdt {
  450.           label {R.dt}
  451.           callback {env->PR_dt=(int)o->value();
  452. freeedit->redraw();}
  453.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  454.           code0 {o->value(env->PR_dt);}
  455.           class WidgetPDial
  456.         }
  457.         Fl_Dial e2envstretch {
  458.           label Stretch
  459.           callback {env->Penvstretch=(int)o->value();}
  460.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  461.           code0 {o->value(env->Penvstretch);}
  462.           class WidgetPDial
  463.         }
  464.         Fl_Check_Button e2forcedrelease {
  465.           label frcR
  466.           callback {env->Pforcedrelease=(int)o->value();}
  467.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 11 align 6
  468.           code0 {o->value(env->Pforcedrelease);}
  469.         }
  470.         Fl_Button {} {
  471.           label C
  472.           callback {presetsui->copy(env);}
  473.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  474.         }
  475.         Fl_Button {} {
  476.           label P
  477.           callback {presetsui->paste(env,this);}
  478.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  479.         }
  480.       }
  481.       Fl_Button {} {
  482.         label E
  483.         callback {freemodeeditwindow->show();}
  484.         tooltip {Envelope window} xywh {190 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  485.       }
  486.     }
  487.   }
  488.   Function {make_ADSRfilter_window()} {} {
  489.     Fl_Window envADSRfilter {
  490.       xywh {87 143 275 70} type Double color 50 labelfont 1 hide
  491.       class Fl_Group
  492.     } {
  493.       Fl_Group {} {
  494.         label {Filter Envelope}
  495.         xywh {0 0 275 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  496.       } {
  497.         Fl_Dial e3aval {
  498.           label {A.val}
  499.           callback {env->PA_val=(int)o->value();
  500. freeedit->redraw();}
  501.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  502.           code0 {o->value(env->PA_val);}
  503.           class WidgetPDial
  504.         }
  505.         Fl_Dial e3adt {
  506.           label {A.dt}
  507.           callback {env->PA_dt=(int)o->value();
  508. freeedit->redraw();}
  509.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  510.           code0 {o->value(env->PA_dt);}
  511.           class WidgetPDial
  512.         }
  513.         Fl_Dial e3dval {
  514.           label {D.val}
  515.           callback {env->PD_val=(int)o->value();
  516. freeedit->redraw();}
  517.           tooltip {decay value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  518.           code0 {o->value(env->PD_val);}
  519.           class WidgetPDial
  520.         }
  521.         Fl_Dial e3ddt {
  522.           label {D.dt}
  523.           callback {env->PD_dt=(int)o->value();
  524. freeedit->redraw();}
  525.           tooltip {decay time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  526.           code0 {o->value(env->PD_dt);}
  527.           class WidgetPDial
  528.         }
  529.         Fl_Dial e3rdt {
  530.           label {R.dt}
  531.           callback {env->PR_dt=(int)o->value();
  532. freeedit->redraw();}
  533.           tooltip {Release time} xywh {145 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  534.           code0 {o->value(env->PR_dt);}
  535.           class WidgetPDial
  536.         }
  537.         Fl_Dial e3rval {
  538.           label {R.val}
  539.           callback {env->PR_val=(int)o->value();
  540. freeedit->redraw();}
  541.           tooltip {Release value} xywh {180 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  542.           code0 {o->value(env->PR_val);}
  543.           class WidgetPDial
  544.         }
  545.         Fl_Dial e3envstretch {
  546.           label Stretch
  547.           callback {env->Penvstretch=(int)o->value();}
  548.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {215 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  549.           code0 {o->value(env->Penvstretch);}
  550.           class WidgetPDial
  551.         }
  552.         Fl_Check_Button e3forcedrelease {
  553.           label frcR
  554.           callback {env->Pforcedrelease=(int)o->value();}
  555.           tooltip {Forced Relase} xywh {250 30 15 20} down_box DOWN_BOX labelsize 11 align 6
  556.           code0 {o->value(env->Pforcedrelease);}
  557.         }
  558.         Fl_Button {} {
  559.           label E
  560.           callback {freemodeeditwindow->show();}
  561.           xywh {255 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  562.         }
  563.         Fl_Button {} {
  564.           label C
  565.           callback {presetsui->copy(env);}
  566.           xywh {220 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  567.         }
  568.         Fl_Button {} {
  569.           label P
  570.           callback {presetsui->paste(env,this);}
  571.           xywh {237 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  572.         }
  573.       }
  574.     }
  575.   }
  576.   Function {make_ASRbw_window()} {} {
  577.     Fl_Window envASRbw {
  578.       xywh {224 539 210 70} type Double hide
  579.       class Fl_Group
  580.     } {
  581.       Fl_Group {} {
  582.         label {BandWidth Envelope}
  583.         xywh {0 0 210 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  584.       } {
  585.         Fl_Dial e4aval {
  586.           label {A.val}
  587.           callback {env->PA_val=(int)o->value();
  588. freeedit->redraw();}
  589.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  590.           code0 {o->value(env->PA_val);}
  591.           class WidgetPDial
  592.         }
  593.         Fl_Dial e4adt {
  594.           label {A.dt}
  595.           callback {env->PA_dt=(int)o->value();
  596. freeedit->redraw();}
  597.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  598.           code0 {o->value(env->PA_dt);}
  599.           class WidgetPDial
  600.         }
  601.         Fl_Dial e4rval {
  602.           label {R.val}
  603.           callback {env->PR_val=(int)o->value();
  604. freeedit->redraw();}
  605.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  606.           code0 {o->value(env->PR_val);}
  607.           class WidgetPDial
  608.         }
  609.         Fl_Dial e4rdt {
  610.           label {R.dt}
  611.           callback {env->PR_dt=(int)o->value();
  612. freeedit->redraw();}
  613.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  614.           code0 {o->value(env->PR_dt);}
  615.           class WidgetPDial
  616.         }
  617.         Fl_Dial e4envstretch {
  618.           label Stretch
  619.           callback {env->Penvstretch=(int)o->value();}
  620.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  621.           code0 {o->value(env->Penvstretch);}
  622.           class WidgetPDial
  623.         }
  624.         Fl_Check_Button e4forcedrelease {
  625.           label frcR
  626.           callback {env->Pforcedrelease=(int)o->value();}
  627.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 11 align 6
  628.           code0 {o->value(env->Pforcedrelease);}
  629.         }
  630.         Fl_Button {} {
  631.           label C
  632.           callback {presetsui->copy(env);}
  633.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  634.         }
  635.         Fl_Button {} {
  636.           label P
  637.           callback {presetsui->paste(env,this);}
  638.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  639.         }
  640.       }
  641.       Fl_Button {} {
  642.         label E
  643.         callback {freemodeeditwindow->show();}
  644.         xywh {190 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  645.       }
  646.     }
  647.   }
  648.   Function {make_free_window()} {} {
  649.     Fl_Window envfree {
  650.       xywh {373 413 205 70} type Double color 50 labelfont 1 hide resizable
  651.       class Fl_Group
  652.     } {
  653.       Fl_Group envfreegroup {
  654.         label {Amplitude Envelope}
  655.         xywh {0 0 205 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17 resizable
  656.       } {
  657.         Fl_Box freeeditsmall {
  658.           label Envelope
  659.           callback {envfree->redraw();}
  660.           xywh {5 20 195 45} box FLAT_BOX color 0 resizable
  661.           code0 {o->init(env);}
  662.           class EnvelopeFreeEdit
  663.         }
  664.         Fl_Button {} {
  665.           label E
  666.           callback {freemodeeditwindow->show();}
  667.           xywh {185 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  668.         }
  669.         Fl_Button {} {
  670.           label C
  671.           callback {presetsui->copy(env);}
  672.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  673.         }
  674.         Fl_Button {} {
  675.           label P
  676.           callback {presetsui->paste(env,this);}
  677.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  678.         }
  679.       }
  680.     }
  681.   }
  682.   Function {init(EnvelopeParams *env_)} {} {
  683.     code {env=env_;
  684. make_ADSR_window();
  685. make_ASR_window();
  686. make_ADSRfilter_window();
  687. make_ASRbw_window();
  688. make_free_window();
  689.  
  690. make_freemode_edit_window();
  691.  
  692. envwindow=NULL;
  693. if (env->Envmode==3) envfreegroup->label("Frequency Envelope");
  694. if (env->Envmode==4) envfreegroup->label("Filter Envelope");
  695. if (env->Envmode==5) envfreegroup->label("Bandwidth Envelope");
  696.  
  697. freemodeeditwindow->label(this->label());
  698.  
  699.  
  700. freeeditsmall->setpair(freeedit);
  701. freeedit->setpair(freeeditsmall);
  702.  
  703.  
  704. refresh();} {}
  705.   }
  706.   Function {reinit()} {} {
  707.     code {if (env->Pfreemode!=0){
  708.   int answer=fl_ask("Disable the free mode of the Envelope?");
  709.   if (env->Pfreemode!=0) freemodebutton->value(1);
  710.           else freemodebutton->value(0);
  711.   if (answer==0) return;
  712. };
  713.  
  714. if (env->Pfreemode==0) env->Pfreemode=1;
  715.      else env->Pfreemode=0;
  716.  
  717. hide();
  718. int winx=freemodeeditwindow->x();
  719. int winy=freemodeeditwindow->y();
  720.  
  721. freemodeeditwindow->hide();
  722.  
  723. envwindow->hide();
  724. Fl_Group *par=envwindow->parent();
  725. par->hide();
  726. //par->remove(envwindow);
  727. //delete (envwindow);
  728.  
  729.  
  730. refresh();
  731. //par->add(envwindow);
  732. //par->end();
  733. envwindow->show();
  734. par->redraw();
  735.  
  736. par->show();
  737. show();
  738. freemodeeditwindow->position(winx,winy);
  739. freemodeeditwindow->show();
  740.  
  741. if (env->Pfreemode!=0) freemodebutton->value(1);
  742.         else freemodebutton->value(0);} {}
  743.   }
  744.   Function {refresh()} {} {
  745.     code {freemodebutton->value(env->Pfreemode);
  746.  
  747. sustaincounter->value(env->Penvsustain);
  748. if (env->Pfreemode==0) sustaincounter->hide();
  749.     else sustaincounter->show();
  750. sustaincounter->maximum(env->Penvpoints-2);
  751.  
  752. envstretchdial->value(env->Penvstretch);
  753. if (env->Pfreemode==0) envstretchdial->hide();
  754.     else envstretchdial->show();
  755.  
  756. linearenvelopecheck->value(env->Plinearenvelope);
  757. if ((env->Pfreemode==0)||(env->Envmode>2)) linearenvelopecheck->hide();
  758.     else linearenvelopecheck->show();
  759.  
  760. forcedreleasecheck->value(env->Pforcedrelease);
  761. if (env->Pfreemode==0) forcedreleasecheck->hide();
  762.  
  763. freeedit->redraw();
  764.  
  765.  
  766. if (env->Pfreemode==0){
  767.    switch(env->Envmode){
  768.          case(1):
  769.          case(2):
  770.         e1adt->value(env->PA_dt);
  771.         e1ddt->value(env->PD_dt);
  772.         e1sval->value(env->PS_val);
  773.         e1rdt->value(env->PR_dt);
  774.         e1envstretch->value(env->Penvstretch);
  775.         e1linearenvelope->value(env->Plinearenvelope);
  776.         e1forcedrelease->value(env->Pforcedrelease);
  777.          break;
  778.          case(3):
  779.         e2aval->value(env->PA_val);
  780.         e2adt->value(env->PA_dt);
  781.         e2rdt->value(env->PR_dt);
  782.         e2rval->value(env->PR_val);
  783.         e2envstretch->value(env->Penvstretch);
  784.         e2forcedrelease->value(env->Pforcedrelease);
  785.          break; 
  786.          case(4):
  787.         e3aval->value(env->PA_val);
  788.         e3adt->value(env->PA_dt);
  789.         e3dval->value(env->PD_val);
  790.         e3ddt->value(env->PD_dt);
  791.         e3rdt->value(env->PR_dt);
  792.         e3rval->value(env->PR_val);
  793.         e3envstretch->value(env->Penvstretch);
  794.         e3forcedrelease->value(env->Pforcedrelease);
  795.          break; 
  796.          case(5):
  797.         e4aval->value(env->PA_val);
  798.         e4adt->value(env->PA_dt);
  799.         e4rdt->value(env->PR_dt);
  800.         e4rval->value(env->PR_val);
  801.         e4envstretch->value(env->Penvstretch);
  802.         e4forcedrelease->value(env->Pforcedrelease);
  803.          break;
  804.          default:
  805.          break; 
  806.    };
  807. }else{
  808.        envfree->redraw();
  809. };
  810.  
  811.  
  812. envADSR->hide();
  813. envASR->hide();
  814. envADSRfilter->hide();
  815. envASRbw->hide();
  816. envfree->hide();
  817.  
  818. if (env->Pfreemode==0){
  819.    switch(env->Envmode){
  820.          case(1):
  821.          case(2):
  822.            envwindow=envADSR;
  823.          break;
  824.          case(3):
  825.            envwindow=envASR;
  826.          break; 
  827.          case(4):
  828.            envwindow=envADSRfilter;
  829.          break; 
  830.          case(5):
  831.           envwindow=envASRbw;
  832.          break;
  833.          default:
  834.          break; 
  835.    };
  836. }else{
  837.    envwindow=envfree;
  838. };
  839.  
  840. envwindow->resize(this->x(),this->y(),this->w(),this->h());
  841.  
  842. envwindow->show();} {}
  843.   }
  844.   decl {EnvelopeParams *env;} {}
  845.   decl {Fl_Group *envwindow;} {}
  846. } 
  847.