home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / CMCD1104.ISO / Software / Complet / ZynAddFX / Setup_ZynAddSubFX-2.1.1.exe / MicrotonalUI.fl < prev    next >
Encoding:
FLTK User Interface Designer  |  2004-08-22  |  10.3 KB  |  268 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 <stdlib.h>} {public
  10. } 
  11.  
  12. decl {\#include <stdio.h>} {public
  13. } 
  14.  
  15. decl {\#include <string.h>} {public
  16. } 
  17.  
  18. decl {\#include <FL/Fl_File_Chooser.H>} {public
  19. } 
  20.  
  21. decl {\#include <FL/fl_ask.H>} {public
  22. } 
  23.  
  24. decl {\#include "../Misc/Microtonal.h"} {public
  25. } 
  26.  
  27. class MicrotonalUI {} {
  28.   Function {make_window()} {} {
  29.     Fl_Window microtonaluiwindow {
  30.       label Scales
  31.       xywh {140 189 405 450} type Double hide
  32.     } {
  33.       Fl_Group {} {
  34.         tooltip {Center where the note's freqs. are turned upside-down} xywh {249 2 155 45} box ENGRAVED_FRAME
  35.       } {
  36.         Fl_Check_Button {} {
  37.           label {Invert keys}
  38.           callback {microtonal->Pinvertupdown=(int) o->value();
  39. if (microtonal->Pinvertupdown==0) centerinvertcounter->deactivate();
  40.    else centerinvertcounter->activate();}
  41.           tooltip {Turn upside-down the note frequencies} xywh {254 13 55 30} down_box DOWN_BOX labelfont 1 labelsize 12 align 148
  42.           code0 {o->value(microtonal->Pinvertupdown);}
  43.         }
  44.         Fl_Counter centerinvertcounter {
  45.           label Center
  46.           callback {microtonal->Pinvertupdowncenter=(int) o->value();}
  47.           xywh {319 13 80 20} labelfont 1 labelsize 12 align 130 minimum 0 maximum 127 step 1 textfont 1
  48.           code0 {o->lstep(microtonal->getoctavesize());}
  49.           code1 {o->value(microtonal->Pinvertupdowncenter);}
  50.           code2 {if (microtonal->Pinvertupdown==0) o->deactivate();}
  51.         }
  52.       }
  53.       Fl_Group microtonalgroup {
  54.         xywh {3 49 402 398} box ENGRAVED_FRAME
  55.         code0 {if (microtonal->Penabled==0) o->deactivate();}
  56.       } {
  57.         Fl_Button {} {
  58.           label Apply
  59.           callback {tuningsinput->do_callback();
  60. mappinginput->do_callback();}
  61.           tooltip {Retune the synth accorging to the inputs from "Tunnings" and "Keyboard Mappings"} xywh {8 413 95 28} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 18
  62.         }
  63.         Fl_Value_Output octavesizeoutput {
  64.           label {nts./oct.}
  65.           callback {o->value(microtonal->getoctavesize());}
  66.           tooltip {Notes/Octave} xywh {150 421 35 17} labelsize 10 align 5 maximum 500 step 1 value 12 textfont 1
  67.           code0 {o->value(microtonal->getoctavesize());}
  68.         }
  69.         Fl_Input nameinput {
  70.           label {Name:}
  71.           callback {snprintf((char *)microtonal->Pname,MICROTONAL_MAX_NAME_LEN,"%s",o->value());}
  72.           xywh {8 64 285 25} labelfont 1 labelsize 12 align 5
  73.           code0 {o->insert((char *)microtonal->Pname);}
  74.         }
  75.         Fl_Input tuningsinput {
  76.           label {Tunings:}
  77.           callback {int err=microtonal->texttotunings(o->value());
  78. if (err>=0) fl_alert("Parse Error: The input may contain only numbers (like 232.59)\\n or divisions (like 121/64).");
  79. if (err==-2) fl_alert("Parse Error: The input is empty.");
  80. octavesizeoutput->do_callback();}
  81.           xywh {8 144 182 264} type Multiline labelfont 1 labelsize 12 align 5 when 0
  82.           code0 {updateTuningsInput();}
  83.         }
  84.         Fl_Input commentinput {
  85.           label {Comment:}
  86.           callback {snprintf((char *)microtonal->Pcomment,MICROTONAL_MAX_NAME_LEN,"%s",o->value());}
  87.           xywh {8 104 391 25} labelfont 1 labelsize 12 align 5
  88.           code0 {o->insert((char *)microtonal->Pcomment);}
  89.         }
  90.         Fl_Counter {} {
  91.           label Shift
  92.           callback {microtonal->Pscaleshift=(int) o->value()+64;}
  93.           xywh {313 69 70 20} type Simple labelsize 12 align 1 minimum -63 maximum 64 step 1 textfont 1
  94.           code0 {o->value(microtonal->Pscaleshift-64);}
  95.         }
  96.         Fl_Button {} {
  97.           label {Import .SCL file}
  98.           callback {const char *filename;
  99. filename=fl_file_chooser("Open:","(*.scl)",NULL,0);
  100. if (filename==NULL) return;
  101. int result=microtonal->loadscl(filename);
  102. if (result==0) {
  103.        updateTuningsInput();
  104.        nameinput->cut(0,nameinput->maximum_size());
  105.        nameinput->insert((char *)microtonal->Pname);
  106.        nameinput->position(0);
  107.        commentinput->cut(0,commentinput->maximum_size());
  108.        commentinput->insert((char *)microtonal->Pname);
  109.        commentinput->position(0);
  110.        tuningsinput->position(0);
  111.        octavesizeoutput->do_callback();
  112.      } else {
  113.     fl_alert("Error: Could not load the file.");   
  114.      };}
  115.           tooltip {Inport Scala .scl file (tunnings)} xywh {243 411 84 15} box THIN_UP_BOX labelfont 1 labelsize 10
  116.         }
  117.         Fl_Group keymappinggroup {
  118.           label {Keyboard Mapping} open
  119.           xywh {193 144 206 264} box ENGRAVED_BOX labelfont 1 labelsize 12
  120.         } {
  121.           Fl_Input mappinginput {
  122.             callback {microtonal->texttomapping(o->value());
  123. mapsizeoutput->do_callback();
  124. anotecounter->do_callback();}
  125.             xywh {250 147 146 258} type Multiline labelfont 1 labelsize 12 align 5
  126.             code0 {updateMappingInput();}
  127.           }
  128.           Fl_Counter firstnotecounter {
  129.             label {First note}
  130.             callback {microtonal->Pfirstkey=(int) o->value();}
  131.             tooltip {First MIDI note number} xywh {199 195 42 18} type Simple labelsize 10 align 5 minimum 0 maximum 127 step 1 textfont 1 textsize 12
  132.             code0 {o->value(microtonal->Pfirstkey);}
  133.           }
  134.           Fl_Counter lastnotecounter {
  135.             label {Last note}
  136.             callback {microtonal->Plastkey=(int) o->value();}
  137.             tooltip {Last MIDI note number} xywh {199 225 42 18} type Simple labelsize 10 align 5 minimum 0 maximum 127 step 1 value 127 textfont 1 textsize 12
  138.             code0 {o->value(microtonal->Plastkey);}
  139.           }
  140.           Fl_Counter middlenotecounter {
  141.             label {Midle note}
  142.             callback {microtonal->Pmiddlenote=(int) o->value();}
  143.             tooltip {Midle note (where scale degree 0 is mapped to)} xywh {199 267 42 18} type Simple labelsize 10 align 5 minimum 0 maximum 127 step 1 value 60 textfont 1 textsize 12
  144.             code0 {o->value(microtonal->Pmiddlenote);}
  145.           }
  146.           Fl_Value_Output mapsizeoutput {
  147.             label {Map Size}
  148.             callback {o->value(microtonal->Pmapsize);}
  149.             xywh {201 382 44 20} labelsize 10 align 5 maximum 500 step 1 value 12 textfont 1
  150.             code0 {o->value(microtonal->Pmapsize);}
  151.           }
  152.         }
  153.         Fl_Check_Button mappingenabledbutton {
  154.           label ON
  155.           callback {int x=(int) o->value();
  156. microtonal->Pmappingenabled=x;
  157. if (x==0) keymappinggroup->deactivate();
  158.  else keymappinggroup->activate();
  159. o->show();}
  160.           tooltip {Enable the Mapping (otherwise the mapping is linear)} xywh {198 150 48 21} box FLAT_BOX down_box DOWN_BOX labelfont 1
  161.           code0 {o->value(microtonal->Pmappingenabled);}
  162.           code1 {if (microtonal->Pmappingenabled==0) keymappinggroup->deactivate();}
  163.         }
  164.         Fl_Button {} {
  165.           label {Import .kbm file}
  166.           callback {const char *filename;
  167. filename=fl_file_chooser("Open:","(*.kbm)",NULL,0);
  168. if (filename==NULL) return;
  169. int result=microtonal->loadkbm(filename);
  170. if (result==0) {
  171.        updateMappingInput();
  172.        mappinginput->position(0);
  173.        mapsizeoutput->do_callback();
  174.        firstnotecounter->value(microtonal->Pfirstkey);
  175.        lastnotecounter->value(microtonal->Plastkey);
  176.        middlenotecounter->value(microtonal->Pmiddlenote);
  177.        mapsizeoutput->do_callback();
  178.        mappingenabledbutton->value(microtonal->Pmappingenabled);
  179.        mappingenabledbutton->do_callback();
  180.        afreqinput->value(microtonal->PAfreq);
  181.        anotecounter->value(microtonal->PAnote);
  182.        anotecounter->do_callback();
  183.      } else {
  184.     fl_alert("Error: Could not load the file.");   
  185.      };}
  186.           tooltip {Inport Scala .kbm file (keyboard mapping)} xywh {243 428 84 16} box THIN_UP_BOX labelfont 1 labelsize 10
  187.         }
  188.       }
  189.       Fl_Group {} {
  190.         xywh {108 2 140 45} box ENGRAVED_FRAME
  191.       } {
  192.         Fl_Counter anotecounter {
  193.           label {"A" Note}
  194.           callback {microtonal->PAnote=(int) o->value();
  195. if (microtonal->getnotefreq(microtonal->PAnote,0)<0.0) o->textcolor(FL_RED);
  196.  else o->textcolor(FL_BLACK);
  197.  
  198. o->redraw();}
  199.           tooltip {The "A" note (the reference note for which freq. ("A" freq) is given)} xywh {173 17 65 20} labelfont 1 labelsize 10 align 129 minimum 0 maximum 127 step 1 value 69 textfont 1 textsize 11
  200.           code0 {o->lstep(12);}
  201.           code1 {o->value(microtonal->PAnote);}
  202.         }
  203.         Fl_Value_Input afreqinput {
  204.           label {"A" Freq.}
  205.           callback {microtonal->PAfreq=o->value();}
  206.           tooltip {The freq. of "A" note (default=440.0)} xywh {118 17 45 20} labelfont 1 labelsize 10 align 1 minimum 1 maximum 20000 step 0.001 value 440 textfont 1 textsize 11
  207.           code0 {o->value(microtonal->PAfreq);}
  208.         }
  209.       }
  210.       Fl_Button {} {
  211.         label Close
  212.         callback {microtonaluiwindow->hide();}
  213.         xywh {333 413 67 28} box THIN_UP_BOX
  214.       }
  215.       Fl_Check_Button {} {
  216.         label {Enable Microtonal}
  217.         callback {microtonal->Penabled=(int) o->value();
  218. if (microtonal->Penabled==0) microtonalgroup->deactivate();
  219.    else microtonalgroup->activate();}
  220.         xywh {3 3 102 45} box PLASTIC_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 12 align 148
  221.         code0 {o->value(microtonal->Penabled);}
  222.       }
  223.     }
  224.   }
  225.   Function {updateTuningsInput()} {selected
  226.   } {
  227.     code {char *tmpbuf=new char[100];
  228.  
  229. tuningsinput->cut(0,tuningsinput->maximum_size());
  230.  
  231. for (int i=0;i<microtonal->getoctavesize();i++){
  232.    if (i!=0) tuningsinput->insert("\\n");
  233.    microtonal->tuningtoline(i,tmpbuf,100);
  234.    tuningsinput->insert(tmpbuf);
  235. };
  236.  
  237. delete(tmpbuf);} {}
  238.   }
  239.   Function {updateMappingInput()} {} {
  240.     code {char *tmpbuf=new char[100];
  241.  
  242. mappinginput->cut(0,tuningsinput->maximum_size());
  243.  
  244. for (int i=0;i<microtonal->Pmapsize;i++){
  245.    if (i!=0) mappinginput->insert("\\n");
  246.    if ((microtonal->Pmapping[i])==-1)
  247.         snprintf(tmpbuf,100,"x");
  248.    else snprintf(tmpbuf,100,"%d",microtonal->Pmapping[i]);
  249.    mappinginput->insert(tmpbuf);
  250. };
  251.  
  252. delete(tmpbuf);} {}
  253.   }
  254.   Function {MicrotonalUI(Microtonal *microtonal_)} {} {
  255.     code {microtonal=microtonal_;
  256.  
  257. make_window();} {}
  258.   }
  259.   Function {~MicrotonalUI()} {} {
  260.     code {microtonaluiwindow->hide();
  261. delete(microtonaluiwindow);} {}
  262.   }
  263.   Function {show()} {} {
  264.     code {microtonaluiwindow->show();} {}
  265.   }
  266.   decl {Microtonal *microtonal;} {}
  267. } 
  268.