00001 /*************************************************************************** 00002 * Copyright (C) 2010 by Luigi Negretti Lanner * 00003 * luigi.negrettilanner@gmail.com * 00004 * * 00005 * This program is free software; you can redistribute it and/or modify * 00006 * it under the terms of the GNU General Public License as published by * 00007 * the Free Software Foundation; either version 2 of the License, or * 00008 * (at your option) any later version. * 00009 * * 00010 * This program is distributed in the hope that it will be useful, * 00011 * but WITHOUT ANY WARRANTY; without even the implied warranty of * 00012 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * 00013 * GNU General Public License for more details. * 00014 * * 00015 * You should have received a copy of the GNU General Public License * 00016 * along with this program; if not, write to the * 00017 * Free Software Foundation, Inc., * 00018 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * 00019 ***************************************************************************/ 00020 void ini_p6b() 00021 { 00022 init_p6b[0] = p6_1b->value(); 00023 init_p6b[1] = p6_2b->value(); 00024 init_p6b[2] = p6_3b->value(); 00025 init_p6b[3] = p6_4b->value(); 00026 init_p6b[4] = p6_5b->value(); 00027 init_p6b[5] = p6_6b->value(); 00028 init_p6b[6] = p6_7b->value(); 00029 init_p6b[7] = p6_8b->value(); 00030 init_p6b[8] = p6_9b->value(); 00031 init_p6b[9] = p6_10b->value(); 00032 init_p6b[10] = p6_11b->value(); 00033 init_p6b[11] = p6_12b->value(); 00034 } 00035 00036 void contrappunto::init_p6b_serie() 00037 { 00038 int i; 00039 ini_p6b(); 00040 for (i = 0; i < 12; i++) 00041 { 00042 serie_p6b[i] = init_p6b[i]; 00043 } 00044 } 00045 00046 //INITIALIZE SERIES<<<<<<<<< 00047 00048 //RETROGRADO>>>>>>>> 00049 00050 void contrappunto::retrop6b() 00051 { 00052 init_p6b_serie(); 00053 00054 int i; 00055 int s = 11; 00056 00057 for (i=0;i<12;i++) 00058 { 00059 serie_manip[i] = serie_p6b[s]; 00060 s--; 00061 } 00062 } 00063 00064 void retro_p6b() 00065 { 00066 contrappunto ob; 00067 ob.retrop6b(); 00068 p6_1b->value(ob.serie_manip[0]); 00069 p6_2b->value(ob.serie_manip[1]); 00070 p6_3b->value(ob.serie_manip[2]); 00071 p6_4b->value(ob.serie_manip[3]); 00072 p6_5b->value(ob.serie_manip[4]); 00073 p6_6b->value(ob.serie_manip[5]); 00074 p6_7b->value(ob.serie_manip[6]); 00075 p6_8b->value(ob.serie_manip[7]); 00076 p6_9b->value(ob.serie_manip[8]); 00077 p6_10b->value(ob.serie_manip[9]); 00078 p6_11b->value(ob.serie_manip[10]); 00079 p6_12b->value(ob.serie_manip[11]); 00080 } 00081 00082 void retrop6b_cb(Fl_Widget*,void*) 00083 { 00084 retro_p6b(); 00085 } 00086 00087 //RETROGRADO<<<<< 00088 00089 //CROCE<<<<<<<<<<< 00090 00091 void contrappunto::crocep6b() 00092 { 00093 init_p6b_serie(); 00094 serie_manip[0] = serie_p6b[11]; 00095 serie_manip[1] = serie_p6b[0]; 00096 serie_manip[2] = serie_p6b[10]; 00097 serie_manip[3] = serie_p6b[1]; 00098 serie_manip[4] = serie_p6b[9]; 00099 serie_manip[5] = serie_p6b[2]; 00100 serie_manip[6] = serie_p6b[8]; 00101 serie_manip[7] = serie_p6b[3]; 00102 serie_manip[8] = serie_p6b[7]; 00103 serie_manip[9] = serie_p6b[4]; 00104 serie_manip[10] = serie_p6b[6]; 00105 serie_manip[11] = serie_p6b[5]; 00106 } 00107 00108 void croce_p6b() 00109 { 00110 contrappunto ob; 00111 ob.crocep6b(); 00112 p6_1b->value(ob.serie_manip[0]); 00113 p6_2b->value(ob.serie_manip[1]); 00114 p6_3b->value(ob.serie_manip[2]); 00115 p6_4b->value(ob.serie_manip[3]); 00116 p6_5b->value(ob.serie_manip[4]); 00117 p6_6b->value(ob.serie_manip[5]); 00118 p6_7b->value(ob.serie_manip[6]); 00119 p6_8b->value(ob.serie_manip[7]); 00120 p6_9b->value(ob.serie_manip[8]); 00121 p6_10b->value(ob.serie_manip[9]); 00122 p6_11b->value(ob.serie_manip[10]); 00123 p6_12b->value(ob.serie_manip[11]); 00124 } 00125 00126 void crocep6b_cb(Fl_Widget*,void*) 00127 { 00128 croce_p6b(); 00129 } 00130 00131 //CROCE<<<<<<<<<<<<<< 00132 00133 //SLIDE>>>>>>>>>>>>>> 00134 00135 void contrappunto::slidep6b() 00136 { 00137 init_p6b_serie(); 00138 int i, s; 00139 i = 0; 00140 s = 1; 00141 for (i=0;i<11;i++) 00142 { 00143 serie_manip[i] = serie_p6b[s]; 00144 s++; 00145 } 00146 serie_manip[11] = serie_p6b[0]; 00147 } 00148 00149 void slide_p6b() 00150 { 00151 contrappunto ob; 00152 ob.slidep6b(); 00153 p6_1b->value(ob.serie_manip[0]); 00154 p6_2b->value(ob.serie_manip[1]); 00155 p6_3b->value(ob.serie_manip[2]); 00156 p6_4b->value(ob.serie_manip[3]); 00157 p6_5b->value(ob.serie_manip[4]); 00158 p6_6b->value(ob.serie_manip[5]); 00159 p6_7b->value(ob.serie_manip[6]); 00160 p6_8b->value(ob.serie_manip[7]); 00161 p6_9b->value(ob.serie_manip[8]); 00162 p6_10b->value(ob.serie_manip[9]); 00163 p6_11b->value(ob.serie_manip[10]); 00164 p6_12b->value(ob.serie_manip[11]); 00165 } 00166 00167 void slidep6b_cb(Fl_Widget*,void*) 00168 { 00169 slide_p6b(); 00170 } 00171 00172 /////////////JUMP1 00173 00174 void contrappunto::jump_onep6b() 00175 { 00176 init_p6b_serie(); 00177 serie_manip[0] = serie_p6b[1]; 00178 serie_manip[1] = serie_p6b[3]; 00179 serie_manip[2] = serie_p6b[5]; 00180 serie_manip[3] = serie_p6b[7]; 00181 serie_manip[4] = serie_p6b[9]; 00182 serie_manip[5] = serie_p6b[11]; 00183 serie_manip[6] = serie_p6b[0]; 00184 serie_manip[7] = serie_p6b[2]; 00185 serie_manip[8] = serie_p6b[4]; 00186 serie_manip[9] = serie_p6b[6]; 00187 serie_manip[10] = serie_p6b[8]; 00188 serie_manip[11] = serie_p6b[10]; 00189 } 00190 00191 void jumpone_p6b() 00192 { 00193 contrappunto ob; 00194 ob.jump_onep6b(); 00195 p6_1b->value(ob.serie_manip[0]); 00196 p6_2b->value(ob.serie_manip[1]); 00197 p6_3b->value(ob.serie_manip[2]); 00198 p6_4b->value(ob.serie_manip[3]); 00199 p6_5b->value(ob.serie_manip[4]); 00200 p6_6b->value(ob.serie_manip[5]); 00201 p6_7b->value(ob.serie_manip[6]); 00202 p6_8b->value(ob.serie_manip[7]); 00203 p6_9b->value(ob.serie_manip[8]); 00204 p6_10b->value(ob.serie_manip[9]); 00205 p6_11b->value(ob.serie_manip[10]); 00206 p6_12b->value(ob.serie_manip[11]); 00207 00208 } 00209 00210 void jumpOnep6b_cb(Fl_Widget*,void*) 00211 { 00212 jumpone_p6b(); 00213 } 00214