[PD] scores with datastructure

[patco]

Hi,
--- Frank Barknecht <fbar at footils.org> a écrit :
> You don't need [once] anymore, it can be replaced by:
> 
>         [r close]
>         | 
> [spigot 1]
> [t a b]
> |    [0(
> |    [s close]
> 
> Since about pd-0.37 [spigot] evaluates its first argument and is open,
> if you have a non-null arg.

 Okay, that's fixed, note-lib doesn't require [once] anymore, [spigot 1] will be available from
recent version only under zindozs (pd-0.39-2 I believe).

 I've added alteration-lib.pd, this is not very elegant but it works (still need to improve my
knowledge about arrays I guess)

Patco


http://megalego.free.fr/pd/alteration-lib.pd
http://megalego.free.fr/pd/score-abs.zip
alteration-lib.pd:

#N canvas 497 0 446 352 10;
#X obj 301 78 pointer;
#N canvas 1 260 518 368 alteration 0;
#X obj 52 94 drawcurve 0 2 x1 y1 x2 y2;
#X obj 59 129 drawcurve 0 2 x3 y3 x4 y4;
#X obj 11 10 struct alteration float x float y float x1 float x2 float
x3 float x4 float x5 float x6 float x7 float x8 float y1 float y2 float
y3 float y4 float y5 float y6 float y7 float y8;
#X obj 59 175 drawcurve 0 1 x5 y5 x6 y6;
#X obj 72 210 drawcurve 0 1 x7 y7 x8 y8;
#X restore 31 13 pd alteration;
#N canvas 0 0 462 312 mydisplay 1;
#X restore 237 7 pd mydisplay;
#X msg 268 51 traverse pd-mydisplay \, bang;
#X msg 322 7 \; pd-mydisplay clear;
#X obj 112 240 get alteration flat;
#X obj 108 268 sel 1;
#X obj 111 331 set alteration showflat;
#X msg 108 290 0;
#X msg 136 291 999;
#X obj 114 216 t a a;
#X obj 112 176 append alteration x y x1 y1 x2 y2 x3 y3 x4 y4 x5 y5
x6 y6 x7 y7 x8 y8;
#X msg 70 102 100 100 -3 -3 3 -5 -3 3 3 1 -2 -6 -2 7 2 -7 2 6;
#X msg 91 126 100 150 0 0 4 -1 4 -1 0 6 0 -7 0 0 0 0 0 6;
#X msg 125 150 100 50 0 0 3 -1 0 3 3 2 0 -6 0 3 3 -1 3 6;
#X text 16 102 sharp;
#X text 30 126 flat;
#X text 34 152 natural;
#X connect 0 0 11 18;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 9 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 5 0;
#X connect 10 1 7 1;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X connect 14 0 11 0;



	

	
		
___________________________________________________________________________ 
Nouveau : téléphonez moins cher avec Yahoo! Messenger ! Découvez les tarifs exceptionnels pour appeler la France et l'international.
Téléchargez sur http://fr.messenger.yahoo.com