[PD-cvs] externals/unauthorized/pianoroll help-pianoroll.pd, 1.2, 1.3 pianoroll.tk2c, NONE, 1.1 tk2c.bash, NONE, 1.1
Yves Degoyon
sevyves at users.sourceforge.net
Wed Jul 26 19:01:25 CEST 2006
- Previous message: [PD-cvs] externals/unauthorized/sonogram~ CHANGES.LOG, 1.3, 1.4 sonogram~.c, 1.12, 1.13
- Next message: [PD-cvs] externals/unauthorized/exciter exciter.tk2c, NONE, 1.1 help-exciter.pd, 1.2, 1.3 tk2c.bash, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/externals/unauthorized/pianoroll
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10362/pianoroll
Added Files:
help-pianoroll.pd pianoroll.tk2c tk2c.bash
Log Message:
fixed coordinates for GOP
--- NEW FILE: pianoroll.tk2c ---
// ########### pianoroll procedures -- ydegoyon at free.fr #########
sys_gui("proc pianoroll_apply {id} {\n");
// strip "." from the TK id to make a variable name suffix
sys_gui("set vid [string trimleft $id .]\n");
// for each variable, make a local variable to hold its name...
sys_gui("set var_graph_name [concat graph_name_$vid]\n");
sys_gui("global $var_graph_name\n");
sys_gui("set var_graph_width [concat graph_width_$vid]\n");
sys_gui("global $var_graph_width\n");
sys_gui("set var_graph_height [concat graph_height_$vid]\n");
sys_gui("global $var_graph_height\n");
sys_gui("set var_graph_pmin [concat graph_pmin_$vid]\n");
sys_gui("global $var_graph_pmin\n");
sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n");
sys_gui("global $var_graph_pmax\n");
sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n");
sys_gui("global $var_graph_nbgrades\n");
sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n");
sys_gui("global $var_graph_nbsteps\n");
sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n");
sys_gui("global $var_graph_defvalue\n");
sys_gui("set var_graph_save [concat graph_save_$vid]\n");
sys_gui("global $var_graph_save\n");
sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_pmin] [eval concat $$var_graph_pmax] [eval concat $$var_graph_nbgrades] [eval concat $$var_graph_nbsteps] [eval concat $$var_graph_defvalue] [eval concat $$var_graph_save] \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc pianoroll_cancel {id} {\n");
sys_gui("set cmd [concat $id cancel \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc pianoroll_ok {id} {\n");
sys_gui("pianoroll_apply $id\n");
sys_gui("pianoroll_cancel $id\n");
sys_gui("}\n");
sys_gui("proc pdtk_pianoroll_dialog {id name width height pmin pmax nbgrades nbsteps defvalue save } {\n");
sys_gui("set vid [string trimleft $id .]\n");
sys_gui("set var_graph_name [concat graph_name_$vid]\n");
sys_gui("global $var_graph_name\n");
sys_gui("set var_graph_width [concat graph_width_$vid]\n");
sys_gui("global $var_graph_width\n");
sys_gui("set var_graph_height [concat graph_height_$vid]\n");
sys_gui("global $var_graph_height\n");
sys_gui("set var_graph_pmin [concat graph_pmin_$vid]\n");
sys_gui("global $var_graph_pmin\n");
sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n");
sys_gui("global $var_graph_pmax\n");
sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n");
sys_gui("global $var_graph_nbgrades\n");
sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n");
sys_gui("global $var_graph_nbsteps\n");
sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n");
sys_gui("global $var_graph_defvalue\n");
sys_gui("set var_graph_save [concat graph_save_$vid]\n");
sys_gui("global $var_graph_save\n");
sys_gui("set $var_graph_name $name\n");
sys_gui("set $var_graph_width $width\n");
sys_gui("set $var_graph_height $height\n");
sys_gui("set $var_graph_pmin $pmin\n");
sys_gui("set $var_graph_pmax $pmax\n");
sys_gui("set $var_graph_nbgrades $nbgrades\n");
sys_gui("set $var_graph_nbsteps $nbsteps\n");
sys_gui("set $var_graph_defvalue $defvalue\n");
sys_gui("set $var_graph_save $save\n");
sys_gui("toplevel $id\n");
sys_gui("wm title $id {pianoroll}\n");
sys_gui("wm protocol $id WM_DELETE_WINDOW [concat pianoroll_cancel $id]\n");
sys_gui("label $id.label -text {PIANOROLL PROPERTIES}\n");
sys_gui("pack $id.label -side top\n");
sys_gui("frame $id.buttonframe\n");
sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n");
sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"pianoroll_cancel $id\"\n");
sys_gui("button $id.buttonframe.apply -text {Apply} -command \"pianoroll_apply $id\"\n");
sys_gui("button $id.buttonframe.ok -text {OK} -command \"pianoroll_ok $id\"\n");
sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n");
sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
sys_gui("frame $id.1rangef\n");
sys_gui("pack $id.1rangef -side top\n");
sys_gui("label $id.1rangef.lname -text \"Name :\"\n");
sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 15\n");
sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
sys_gui("frame $id.2rangef\n");
sys_gui("pack $id.2rangef -side top\n");
sys_gui("label $id.2rangef.lwidth -text \"Width :\"\n");
sys_gui("entry $id.2rangef.width -textvariable $var_graph_width -width 7\n");
sys_gui("pack $id.2rangef.lwidth $id.2rangef.width -side left\n");
sys_gui("frame $id.3rangef\n");
sys_gui("pack $id.3rangef -side top\n");
sys_gui("label $id.3rangef.lheight -text \"Height :\"\n");
sys_gui("entry $id.3rangef.height -textvariable $var_graph_height -width 7\n");
sys_gui("pack $id.3rangef.lheight $id.3rangef.height -side left\n");
sys_gui("frame $id.4rangef\n");
sys_gui("pack $id.4rangef -side top\n");
sys_gui("label $id.4rangef.lpmin -text \"Pitch low :\"\n");
sys_gui("entry $id.4rangef.pmin -textvariable $var_graph_pmin -width 7\n");
sys_gui("pack $id.4rangef.lpmin $id.4rangef.pmin -side left\n");
sys_gui("frame $id.5rangef\n");
sys_gui("pack $id.5rangef -side top\n");
sys_gui("label $id.5rangef.lpmax -text \"Pitch high :\"\n");
sys_gui("entry $id.5rangef.pmax -textvariable $var_graph_pmax -width 7\n");
sys_gui("pack $id.5rangef.lpmax $id.5rangef.pmax -side left\n");
sys_gui("frame $id.6rangef\n");
sys_gui("pack $id.6rangef -side top\n");
sys_gui("label $id.6rangef.lnbgrades -text \"Grades :\"\n");
sys_gui("entry $id.6rangef.nbgrades -textvariable $var_graph_nbgrades -width 7\n");
sys_gui("pack $id.6rangef.lnbgrades $id.6rangef.nbgrades -side left\n");
sys_gui("frame $id.7rangef\n");
sys_gui("pack $id.7rangef -side top\n");
sys_gui("label $id.7rangef.lnbsteps -text \"Steps :\"\n");
sys_gui("entry $id.7rangef.nbsteps -textvariable $var_graph_nbsteps -width 7\n");
sys_gui("pack $id.7rangef.lnbsteps $id.7rangef.nbsteps -side left\n");
sys_gui("frame $id.8rangef\n");
sys_gui("pack $id.8rangef -side top\n");
sys_gui("label $id.8rangef.ldefvalue -text \"Default Value :\"\n");
sys_gui("entry $id.8rangef.defvalue -textvariable $var_graph_defvalue -width 7\n");
sys_gui("pack $id.8rangef.ldefvalue $id.8rangef.defvalue -side left\n");
sys_gui("checkbutton $id.save -text {Save contents} -variable $var_graph_save -anchor w\n");
sys_gui("pack $id.save -side top\n");
sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.2rangef.width <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.3rangef.height <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.4rangef.pmin <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.5rangef.pmax <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.6rangef.nbgrades <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.7rangef.nbsteps <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("bind $id.8rangef.defvalue <KeyPress-Return> [concat pianoroll_ok $id]\n");
sys_gui("focus $id.1rangef.name\n");
sys_gui("}\n");
// ########### pianoroll procedures END -- ydegoyon at free.fr #########
--- NEW FILE: help-pianoroll.pd ---
#N canvas 90 41 827 643 10;
#X floatatom 71 402 5 0 0;
#X floatatom 258 400 5 0 0;
#X text 523 112 (invoke with <right mouse>Properties );
#X text 524 101 You can set the following properties :;
#X text 548 141 * Width : graphical x size;
#X text 548 152 * Height : graphical y size;
#X text 488 548 bugs and comments @ ydegoyon at free.fr;
#X msg 587 271 \; pd dsp 0;
#X msg 653 271 \; pd dsp 1;
#X text 548 129 * Name;
#X text 119 401 Pitch;
#X text 304 399 Volume ( scaled to [0 \, 1] );
#X text 547 164 * Pitch min : minimum value delivered by left outlet
;
#X text 547 176 * Pitch max : maximum value delivered by left outlet
;
#X text 547 200 * Step number : number of steps;
#X text 524 79 ( pitch & volume originally but \, really \, anything
you like );
#X msg 238 87 transpose \$1;
#X floatatom 334 89 5 0 0;
#X text 240 104 You can transpose the melody ( ?? );
#X text 241 115 with a float value;
#X text 548 211 * Default value : must be in [min \, max];
#X obj 65 165 pianoroll pianoroll1 400 192 -15 15 32 16 0 0 1 -12.0968
0.741935 -3.3871 0.16129 5.32258 0.16129 -4.35484 0.354839 6.29032
0.322581 6.29032 1 5.32258 1 -12.0968 0.290323 -10.1613 0.290323 -8.22581
0.580645 -5.32258 1 7.25807 1 -10.1613 0.580645 -15 0.612903 -15 0.580645
-15 1;
#X msg 47 18 bang;
#X obj 46 80 f;
#X obj 76 80 + 1;
#X floatatom 9 104 5 0 0;
#X obj 47 44 metro 500;
#X text 527 65 Pianoroll controls two parameters for a sequencer;
#X text 548 188 * Pitch grades : number of grades for the pitch;
#X msg 82 18 stop;
#X floatatom 13 140 5 0 0;
#X text 57 1 forward;
#X text 144 0 backward;
#X msg 136 15 bang;
#X obj 135 77 f;
#X obj 136 41 metro 500;
#X msg 171 16 stop;
#X obj 165 77 - 1;
#X msg 239 59 init;
#X text 279 60 init to default values;
#X msg 241 33 load pattern#1;
#X text 352 19 load and save the patterns;
#X text 352 31 ( values as well as steps number .... );
#X msg 241 10 save pattern#1;
#X text 544 383 you can set the pitch and;
#X text 544 397 the volume with messages;
#X text 544 409 ( positions start at zero );
#X msg 541 358 volume 3 0.345;
#X msg 542 334 pitch 3 -5;
#X connect 16 0 21 0;
#X connect 17 0 16 0;
#X connect 21 0 0 0;
#X connect 21 1 1 0;
#X connect 22 0 26 0;
#X connect 23 0 21 0;
#X connect 23 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 23 1;
#X connect 26 0 23 0;
#X connect 29 0 26 0;
#X connect 30 0 21 0;
#X connect 33 0 35 0;
#X connect 34 0 37 0;
#X connect 34 0 21 0;
#X connect 35 0 34 0;
#X connect 36 0 35 0;
#X connect 37 0 34 1;
#X connect 38 0 21 0;
#X connect 40 0 21 0;
#X connect 43 0 21 0;
#X connect 47 0 21 0;
#X connect 48 0 21 0;
--- NEW FILE: tk2c.bash ---
#!/bin/bash
#set -x
while read line
do
for word in $line
do
if [ "X"$word != "X"${word#\#} ]
then
echo // ${line#\#}
break
else
line=${line//\'/\\\'}
#useless, slashes never gets in
line=${line//\\/\\\\}
#this one's dirty, i know
line=${line//;/\\\\;}
line=${line//\"/\\\"}
echo 'sys_gui("'$line'\n");'
break
fi
done
done
- Previous message: [PD-cvs] externals/unauthorized/sonogram~ CHANGES.LOG, 1.3, 1.4 sonogram~.c, 1.12, 1.13
- Next message: [PD-cvs] externals/unauthorized/exciter exciter.tk2c, NONE, 1.1 help-exciter.pd, 1.2, 1.3 tk2c.bash, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list