Writing (or coding) waveshapes

[bnh]

This is a modified version of an example above... It relies on the ACTUAL underlying vector nature of the implementation... so you won't find any documentation (other than 'VectorC.h').

Evem without the documentation, I for one enjoy tearing into jerhom's configs wihout a chance of understanding the new expressions, e.g. vectorLR, col, vrap.

This particular config fits into both the WaveShape and Particle categories.

I found the movement caused by the fft expression extremely smooth in jerhom's config., and after breaking up the symetry (just a personal habit of mine), I was able to create some dancing, abstract lines. In these samples I'm using only the"Chill" Sound Generator, but "High Energy" also works fine.

In the first example, I generated only one figure without any FlowField just to watch the flow of the lines. The .mov file at http://www.bnh.net/gforce/array1.mov shows that at mid point I added the Particle version of the same WaveShape as a kind of "shadow" to join the WaveShape and complicate the movement.

In the second example, I wrapped a little FlowField (Gravity Ball) around the single WaveShape. The .mov can be seen here: http://www.bnh.net/gforce/array2.mov


In the third example, I generated a second identical WaveShape, moved it to the left of the screen where I added BASSS response to make it move along the X axis. This gives the illusion that both figures are "dancing", while only the left figure is actually moving laterally.

Here's the .mov of the third config. http://www.bnh.net/gforce/array4.mov

Thanks jerohm for the config.

[jerohm]

Warning THIS Post is purely empirical based, and may be WRONG or subject to modification without notice.
Any corrections cheerfully accepted.

G-Force seems to be built incorporating the (Codeplay?) VectorC engine. Since the Flowfields and Waveshapes are text files, they are interpreted and pre-compiled into some intermediary code prior to execution, rather than directly into machine code (like an .exe application would be).
Therefore GF 'may' only support a subset of VectorC's complete functionality. And more importantly, the GF 'language' may, or may not, translate 1:1 to VectorC syntax.

If you follow the waveshape construction thread, you will notice until recently I never mentioned the vector nature of GF implementation. The explanations I gave, could be successfully followed and implemented, but were not exactly correct. It wasn't until I studied 'Gold\Sparks.txt' that I discovered how much MORE of a part the VectorC engine played and was implemented. For example, I never realized that 'A' and 'B' variables were implemented and USEABLE as vectors. 'C' Variables association with 's' made more sense of its vector identity... confused yet?

Even though the vectors 'can' be multi-dimensional, lets concentrate on 'N x 1'. That is, you can view a vector as an array of values. In general (but not always),
'Stps' a.k.a. 'NUM_S_STEPS' a.k.a. 'NUM_SAMPLE_BINS' define the number of elements (but NOT their values).

There are only two available functions that can 'explicitly' initialize a vector:

// Returns a N x 1 vector with each element set to inValue.
float vector( int N, float inValue );

// Returns a N x 1 vector going from inLeft to inRight (inclusive).
float vectorLR( int N, float inLeft, float inRight );

// Returns the number of columns in the specified value
int cols( float inValue );

>> I THINK 'cols(s)' SHOULD ALWAYS be equal to 'NUM_S_STEPS'


You can define a vector where all the elements have the SAME value OR one that has equally distributed elemental values between two inclusive limits.
So what does this MEAN???

A0="5" would be FUNCTIONALLY equivalent to:
A0="vector(NUM_S_STEPS, 5)" // Normally YOU would NOT want to be this Verbose (or do this)!

On the other hand, we KNOW that 'A' variables only gets evaluated ONCE at the beginning of the scripts execution and is SHARED among NUM="Whatever" invocations.

A0="vectorLR(cols(s), 0, NUM_S_STEPS-1)" would result in:
A0="{0, 1, 2, ..., NUM_S_STEPS-1}" // This IS ALSO valid Syntax!

AND

A1="A0+1" would result in:
A1="{1, 2, 3, ..., NUM_S_STEPS}" // Make sense????

Or trickier, I use "sign(1-rnd(2))" to generate random +/-1

A0="sign(1-rnd(vector(Num, 2))" would result in:
A0 containing 'Num' +/-1 elements that can be accessed by:

"col(A0, Id)" // where Id could be replaced by any value [0 .. Num-1]

CAUTION, If you try doing math on vectors with different number of elements, you will probably NOT get the result you are expecting

If you notice, the VectorC(.h) documentation talk of 'vector()' and 'vectorLR()' in terms of 'N x 1', which "I" take to mean 'N' number, of 1 column rows. Yet I use 'col()' to access the elements. Does this seem transposed to anyone else? When trying to figure out how to retain elemental values in 'B' variables across frames, this caused me a great deal of confusion... hence, as previously surmized, logical mapping within G-Force may NOT necessarily follow. My attempts to make use of 'subset()' have been less than successful. This is an admission that I have more to learn (not a BAD admission, for most everyone... ALWAYS!).

With the use of the native VectorC functions, you CAN basically eliminate the need for 'C' variables altogether (for the most part anyway). Their use imposes another level of abstraction, that has few examples, but DOES provide a means of accomplishing things that can't(?) be accomplished in any other way... other times however, just an alternative syntax. I wrestle with the quandary if this somewhat flies in the face of Andy's original intentions, and I shouldn't depend that said constructs will neccessarily continue to be supported.




( more to follow... )

[jerohm]

(^^ read the Post Subject, do'h! ^^ )

Find "E R Triangle Warp.txt" and edit ONLY the 5 original lines with My suggested replacements (only if you WANT, of course!) ... UNDERSTAND, that the OTHER ORIGINAL lines, that are NOT part of the alternate modification Set... remain AS IS/UNTOUCHED!

Code: Select all

// CircWarp(Andy O'Meara) begot Triangle Warp(Erlend Robaye)
//   begot StarWarp(JRM)... (50% of the time anyway!  ;0)


// REPLACE the Original Lines with these:

Stps="4 + 7*pos(sign(1-rnd(2)))"

A0="(Num_S_Steps == 11)"

A3="(1- A0 * (.615 * ( vectorLR(Num_S_Steps, 0, Num_S_Steps-1) % 2))) 
    * { cos( vectorLR(Num_S_Steps, -Pi, Pi) ) 
      , sin( vectorLR(Num_S_Steps, -Pi, Pi) ) }"

C0="B4 * row(A3, 0)"
C1="B4 * row(A3, 1)"

You need to edit(replace actually) a total of 5 lines... the rest remain as is!

these changes were made easy to slip in and preserve Erlend's original intentions (but only half of the time ) ... not necessarily how I would do it otherwise, but the original config is so teriffic, I didn't want to mess with it too much ...

"the hallmark of brilliance, is directly proportional to the ease of mutability"
...but that is (only?) MY opinion of course!

[JayPro]

I'm thoroughly confused.......

Ostensibly I'm to replace code in ER's Warp configs with this...(?)

TriangleWarp has no C vars, tho. ANd one of the B vars you propose to replace contains an apparently necessary t function call-up.

I (tried to) read your post before this; but it just threw me off all the more.




Regards;

Easily Flusterable

[jerohm]

Houston, we have a problem !

Find "E R Triangle Warp.txt" and edit ONLY the 5 original lines with My suggested replacements ... UNDERSTAND, that the OTHER ORIGINAL lines, that are NOT part of the alternate modification Set...
remain AS IS/UNTOUCHED!

For example(s) the original code:

Code: Select all

Stps="4" 

gets replaced by:

Code: Select all

Stps="4 + 7*pos(sign(1-rnd(2)))"

AND

Code: Select all

A0="t"     					// Record start time

gets replaced by:

Code: Select all

A0="(Num_S_Steps == 11)"

You need to edit three more lines... A total of 5 lines get editted/replaced ... the rest remain as is! This make MORE sense??? I guess I wasn't cut out to be a teacher


( gfclean.pl would have given you some insight about the orignal code. ... but don't get fooled by 'B0' ... IT is necessary!! )

If I made this TOO easy, all you would do is cut and paste ... and how much good would THAT be ??

[JayPro]

Not your fault...I was just not paying attention to the fact that my text editor wasn't scrolled all the way down to show the C vars.

[BTT]

Hello All

Well, I always liked the Particle E R Triangle Warp however, now that it has received the 'jerohm' treatment it is awesome.

By the way jerohm, I didn't have any problem understanding the instructions in your original post.


Seasons Greetings

BTT

[jerohm]

I will leave it as an exercise for those who are interested to determine WHY each IS True, but rest assure, they are ...

Code: Select all

// Refer to VectorC.h :: dot()
//
A3="{ 3, 4 }"
A4="{ 5, 5 }"

  (dot(A3) == 25)    // This one Surprised me ... (squaring occurs)
  (dot(A3,A4) == 35)
  (dot(A3,1) == 3)
  (dot(A3,2) == 6)
  (dot(A3,{1,1}) == 7)
  (dot(A3,{0,1}) == 4)

A5="{ .75, .24, .01 }"

  (dot(A5) == .6202)
  (dot(A5,vector(cols(A5),1)) == 1)

The above was tested on my old 32bit machine, and I have discovered certain nuances on the i7/64bit when comparing to Zero... For example, I can't assume (BASS == 0), (s == 0) or (s == 1) under all circimstances... so if there is some degree of error when testing for equality, don't blame me ... ASSUME the above is ABSOLUTE TRUTH.

Code: Select all

/* Vector Concatenation Example - jrm
    (informational Only - 'cause its is really boring)
*/
Aspc=1
ConB=1
Num=1

Stps=8	// or 10 for alternate A2 line

A0="{ { 1, 0,  9 }
    , { 3, 0, 11 }
    , { 5, 0, 13 }
    , { 7, 0, 15 }
}"

A1="transpose( subrange( A0,   0,  0,   0, -1 ))"    //        { {1},  {3},  {5},  {7} }
A2="transpose( subrange( A0,  -1,  0,  -1, -1 ))"    // or A2="{ {9}, {11}, {13}, {15}, {17}, {19}}"

A3="vectorLR(Num_S_Steps, 0, Num_S_Steps-1)"
//
// A4="select&#40;&#40;A3 <= 3&#41;		// Stps=8 Only!
//    , map1D&#40;A1, A3/3, 0&#41;
//    , map1D&#40;A2, &#40;A3-4&#41;/3, 0&#41;&#41;"

// Generalized Solution&#58;
//  &#40; this is somewhat hideous &#40;ya think?!&#41;, but informative and 'may' prove useful ... or not ... ;0&#41;
//
A4="select&#40;&#40; s <= &#40;&#40;cols&#40;A1&#41;-1&#41;/&#40;Num_S_Steps-1&#41;&#41;&#41;
   , map1D&#40; A1, &#40;&#40;Num_S_Steps-1&#41;/&#40;cols&#40;A1&#41;-1&#41;&#41;* s, 0&#41;
   , map1D&#40; A2, &#40;&#40;Num_S_Steps-1&#41;/&#40;cols&#40;A2&#41;-1&#41;&#41;*&#40;s-&#40;cols&#40;A1&#41;/&#40;Num_S_Steps-1&#41;&#41;&#41;, 0&#41;&#41;"


X0="A4/10"
Y0="&#123;.25, 0, .25, 0, .25, 0, .25, 0, .25, 0  &#125;"

Pen=1
Lwdt=5

Meta="reactive=3 detail=3 density=3 morphable=5"
Vers=400

2011Jan01
Somebody might have caught the above line:

Code: Select all

A2="transpose( subrange( A0,  -1,  0,  -1, -1 ))"    // or A2="{ {9}, {11}, {13}, {15}, {17}, {19}}"

and said: "Hey, why wouldn't the alternate line in the comment need to be transposed too???"
... and I would have said: "Damn you are good, my Bad!"
As it turns out 'map1D()' possesses still other characteristics that I have yet to fully grasp... So it WILL still work, BUT the line as I originally intended, should be:

Code: Select all

A2="transpose( subrange( A0,  -1,  0,  -1, -1 ))"    // or A2="{ 9, 11, 13, 15, 17, 19}"

and I can hear "Moron, you still didn't transpose it" ... and I would sigh, and say "THAT is something I wanted you to figure out on your own"

So what is it this good for ??

Code: Select all

/* BASS/2 Recorder, Example - jrm
    (stack operations)
    Flowfield: Gravity Ball or the likes is nice

    *** Informative Use Only ***
*/
Aspc=0
ConB=1
Num=1

// 'Push' on to end
//
B0="select&#40;&#40;s < 1&#41;
    , map1D&#40; subrange&#40;B0, 1, 0, -1, 0&#41;, &#40;&#40;Num_S_Steps-1&#41;/&#40;Num_S_Steps-2&#41;&#41;* s, 0 &#41;
    , &#40;Bass/2&#41;&#41;"

// 'Unshift' &#40;prepend&#41; to beginning
//
B1="select&#40;&#40;s != 0&#41;
    , map1D&#40; B1, s-&#40;1/&#40;Num_S_Steps-1&#41;&#41;, 0 &#41;
    , &#40;Bass/2&#41;&#41;"


X0="&#40;s*2&#41;-1"
Y0="-&#40;B0-.9&#41;"

X1="&#40;s*2&#41;-1"
Y1="&#40;B1-.9&#41;"

Pen=1
Lwdt=1

Meta="reactive=3 detail=3 density=3 morphable=5"
Vers=400

and still more...

Code: Select all

// just for fun & play
// ( http://programmedlessons.org/VectorLessons/vectorIndex.html#01 )
//
// remember ... modify 'til ya break it

Aspc=1
ConB=1
Num=4	// Set to 1

Stps=5	// "NUM_SAMPLE_BINS"	// NUM_S_STEPS



A0="-( transpose( { {-1, 1}
                  , { 1, 1}
                  , { 1, 2}
                  , {-1, 2}
                  , {-1, 1} }/{2,1} - {0, 1.5} ) )"	// Must wrap to A0[row0]

// 14Jan11
// Now that I gave you a little time to THINK about it ...
//  why don't you try instead:
//   A0=".707 * { cos((Pi/4)+2*Pi*s)
//              , sin((Pi/4)+2*Pi*s) }"
//
// situation (can, usually will) dictate[s] syntax


B0="t+(Id*Pi/Num)"
B1="1+(cos(Pi/2+B0)+1)/4"
B2="1+(sin(B0)+1)/4"
B3="row(A0, 1) * cos(B0)"

X0="row(A0, 0) * {B1,B1,B2,B2,B1}"
Y0="B3"

LWdt="1"
Pen="1-(Id/Num)"

Meta="reactive=4 detail=4 density=4 morphable=4"
Vers=400

[jerohm]

Replace (only if ya wanna... do'h!) original lines with these. As a particle, things should remain as always ... With these, it can exist as a Waveshape also. I always develop with Flowfields: '(Empty)' ... so YOU may feel this is TOO busy... and you may be right. It is what it is ...
j

Code: Select all

C9="C8 + A3"   // final z

C10=" min( 10, 2.7 / ( C9 - A3 + 1.7 ) + .3  )"
C11="select(dt, 0, C10*fft(s)/4)"

C12="C7 + C11"  // final y
// Perform perspective transformation
X0=" A3 * A4 *  C5 / C9"
Y0=" A3 * A4 * C12 / C9"


LWdt="C10"
Pen="1-C11"   // NEW line
Meta="reactive=3 detail=4 density=3 morphable=3"

another possible variation to the above modification might be

Code: Select all

A10="sin(vectorLR(Num_S_Steps, 0, Pi*A0))"       // Replace Original

C11="select(dt, 0, atan(fft(s/2))/2) * A10"      // Substitute Above
Pen="1-abs(C11)"                                 // Substitute Above

The idea has merit; I don't know if I really like the effect or not. Feel free to make it more appealing.

2011Jan17
fft(x), x wraps 1->0 ... Soooo (I think) timeshifting the wave is probably more appealing. I KNOW it CAN be busy depending on the perspective angle and Flowfield, but (I think) it is still worthwhile .

Code: Select all

C11="select(dt, 0, atan(fft((t/8)+(s/2)))/2) * A10"

enjoy... or Not
j

[jerohm]

... and certainly nothing that hasn't been previously discussed, but a good example in a manageable size bite. Yesterday I wrote a ridiculously complicated version that did the same thing. This is the result of a little more straight forward thinking. There is probably more going on than may be first apparent, UNLESS YOU have really been following along.
The (Particle) effect isn't all that special, but take note of the rounded corners. That was the challenge I was working against.

Code: Select all

/* Lil' Boxes
	2011Mar07 JRM - Creation
	2011Mar08 JRM - reWrite
*/
Aspc=0
ConB=1
Num=10

// Stps="NUM_S_STEPS"	// NUM_S_STEPS
// FNUM="Num"		// NUM_FFT_BINS

A0="vectorLR(Num, 0, Num-1)"

A1="cos(vectorLR(NUM_S_STEPS, 0, 2*Pi))"
A2="sin(vectorLR(NUM_S_STEPS, 0, 2*Pi))"

B0="wrap((t/8) + (Id/Num))"
B1="min(B0, col(B2, Id)) + .000375"

A3="sign(A1)"
A4="sign(A2)"

X0="A1 * B1 + A3 * B0"	// X
Y0="A2 * B1 + A4 * B0"	// Y

B2="select((A0 != Id), B2, B1)"

Pen="1-(Id/Num)+(B0/Num)"

// LWdt="1"
Meta="reactive=1 detail=3 density=4 morphable=2"
Vers=400

enjoy (humor me) or ignore

j

[BTT]

Hello All

Have just been reading this thread again, still does not make any sense to me but, I got to wondering what ever happened to bnh who to me appeared to be a promising contributor of WaveShapes for G-Force?

Seems like a wasted talent.


Regards BTT

[jerohm]

"..\G-Force\WaveShapes\JRM\(N) Color Organ.txt" :

Code: Select all

/* Color Organ - jrm
   Written using Standalone, but some attempts to compensate for WinAmp levels,
     BUT fft() spectrums are totally different and WinAmp run may be a bit frenetic.
   18Apr slight tune for WinAmp (better?)
   
   Probably the best locking down:
     Flowfield: "(Empty)"
     ColorMap:  "The Haight"
     Particles Shuffle: ON (Maybe?)
     Images Shuffle: OFF (Probably?)

   This looks best BIG and viewed at a distance
   (IMHO)
*/
Num=40

Aspc=0
ConB=0
Stps="15"

A0="1-s"

B0="-1 + (2*(Id+1))/(Num+1)"
B1="(Id/Num + s/Num)"


B2="1/(2*Num) * 5 * fft(B1+t)"
B3="((B3*59) + clamp((24-3*B6)*dot(mag(s))))/60"
B4="(B4*99 + B6 * log10(1 + BASS))/100"
B5="(1+2*B4)"

B6="min(2, B6 + sign(1.3-B5)/10)"	// Normalize(?) Reactivity

C0="B0* ((1-abs(B0)*sin(s*Pi)/50) + B4) + sign(B0)* B2"
C1="(2-cos(B0*Pi/2))*(s-.5)"

X0="C0"
Y0="B5*C1"

Lwdt="B3 * (5-2.5*hypot(C0,C1))"
Pen="wrap(1-abs(B0)+5*(fft(s)+fft(A0)))"

Meta="reactive=5 detail=3 density=4 morphable=4"
Vers=400

[Win7] "C:\Users\Your Account\AppData\Roaming\SoundSpectrum\G-Force\Scripts\Key A.txt" :

Code: Select all

0:00

// WaveShape "(N) Color Organ.txt"
//

SetWaveShape( "(N) Color Organ", WAVESHAPE_QUICK_MORPH );

SetFlowField( "(Empty)", 0 );    // DOESN'T ALWAYS Work!!
SetColorMap( "The Haight", COLORMAP_QUICK_MORPH );
SetSlideShow( CONFIG_WAVESHAPE | CONFIG_COLORMAP | CONFIG_FLOWFIELD | CONFIG_UNION, false );

SetSlideShow( CONFIG_PARTICLE, true );
SetSlideShow( CONFIG_SPRITE, false );

Execute (this is new to 4.2 I think) (fixed ):

Code: Select all

Shift-R A

Scripts SHOULD be able to be a shuffled slideshow (, but not today )

carman200l's romps (My YouTube experiments)
(and generally not a bad way for email contact ... )

[jerohm]

Code: Select all

/* Study in controlled reactivity jrm 23Apr2011

  *** THIS is NOT a Config intended to be slideshowed. *** It is meant to be an aid in designing controlled
	reactivity across a wide range of music types and players (and be APPLIED in true Config design).
	
	Run locked down as the (sole) WaveShape with FlowField: "(Empty)".  Subject it to all sorts of audio
	input content to understand the resulting reactivity.

	This is "AN EXAMPLE" and not to imply the best, or only solution. Tune to YOUR particular needs...
	Probably best with Standalone (WinAmp acts funny when you hit the Stop button)

	( You will most likely won't appreciate this until AFTER you bang your head up against the wall a while ;0)
*/
Num=1
Aspc=0
ConB=1
FNum=1				// Actually THIS Doesn't Work AT ALL! unless set in the preference file, which is an UNACCEPTABLE solution
					   // I was EXPECTING a single averaged value :0(

A0=".75*((2*s)-1)"		// ".75 * vectorLR(Num_S_Steps, -1, 1)" , happy?

B0="(1-B1)*atan(Bass+5*(1-B1)*fft(0))/(Pi/2)"	// Instantaneous (Frame) Sample

A1="12"				// Damping Factor
B1="((B1*(A1-1))+B0)/A1"	// Damping Function()
B2="B2+B1"			// Run Rate

B3="((B3*(A1-1))+2*Bass)/A1"	// Damped Bass*2


X0="A0"
Y0="(B1)/2*sin(Pi*(1+B3)*A0+B2+t)
    * atan(2*sin(s*Pi))"		// Display Fuction


Lwdt=1
Pen=1

Meta="reactive=5 detail=3 density=3"
Vers=400

/***************/

[jerohm]

Please refer to Fri Oct 19, 2012 update...

There is absolutely NOTHING extraordinary about this code snippet EXCEPT for the length of time it took me to get it working, which is exactly WHY I am posting it. I started off writing a proof of concept piece for (writing) multi-dimensional vector syntax, which should have come off without a hitch... Instead, a logical expression syntax issue ran me in circles, until I finally started over and changed things one line at a time.

Code: Select all

/*  Writing Multi-dimensional vectors (syntax)
   Proof of concept - NOT a (great anyway) Waveshape
*/
Aspc=1
ConB=1
Num=8

// Stps="NUM_S_STEPS"	// NUM_S_STEPS
// FNUM="Num"		// NUM_FFT_BINS

A0="vectorLR(Num, 0, Num-1)"
A1="2*Pi*s"


B0="col(row(B6, 0), Id)"				// radius defined???
B1="(B0 != 0) && (col(row(B6, 3), Id) > -(1+B0))"

B2="select(B1, col(row(B6, 0), Id)    , .1+rnd(.5))"	   // radius
B3="select(B1, col(row(B6, 1), Id)    , .005+rnd(.01))"	//  descent rate
B4="select(B1, col(row(B6, 2), Id)    ,  1-rnd(2))"	    //  X
B5="select(B1, col(row(B6, 3), Id)-B3 ,  1+B2)"		     //  Y

X0="B2*sin(A1) + B4 * (X_EXTENTS/Y_EXTENTS) + .075*sin(t+Id)"
Y0="B2*cos(A1) + B5"

B6="{ select(Id != A0, row(B6, 0), B2)
    , select(Id != A0, row(B6, 1), B3)
    , select(Id != A0, row(B6, 2), B4)
    , select(Id != A0, row(B6, 3), B5)
    }"						// Neatly Stored into B6


LWdt=".85"
Pen=1
Meta="reactive=5 detail=3 density=4 morphable=3"
Vers=400

( Is there anyway to get select() to deal with 'rows of columns' instead of just columns?? )

MY original error was:

Code: Select all

B1="(B0) && (col(row(B5, 2), Id) > -(1+B0))"

try it, you WON'T like it ! [Although this exemplifies complete laziness on my part, it really should have worked ]

If you really want to challenge yourself, change all my:

Code: Select all

col(row(B6, r), Id)

to their equivalent:

Code: Select all

subrange( float inValue, int inCol1, int inRow1, int inCol2, int inRow2 );

calls (It shouldn't be all that hard)

Why those... 'select()' statements work [the way they do] in the 'B6' assignment is really the (original) essence of the excerise. Grasping that, is truely the 'Ah Ha!' moment that I am not willing to rob you of! ... unless of course, you can enlighten me how to store things away in the form [row==Id, col=='elemental variable'] (i.e., utilizes the same amount of resources, but provides logically a more straight forward route to access), ... which is why I started this whole mess, to end up still unfulfilled

If you want to see what I was attempting, this code WORKS:

Code: Select all

/* Writing Multi-dimensional vectors (syntax)
*/
Aspc=1
ConB=1
Num=8

// Stps="NUM_S_STEPS"   // NUM_S_STEPS
// FNUM="Num"           // NUM_FFT_BINS

A0="vectorLR(Num, 0, Num-1)"
A1="2*Pi*s"

B0="row(B7, Id)"        // All Variables for task(Id)
                        // radius defined???

B1="(col(B0, 0) != 0) && (col(B0, 3) > -(1+col(B0, 0)))"

B2="select(B1, col(B0, 0)    , .1+rnd(.5))"     // radius
B3="select(B1, col(B0, 1)    , .005+rnd(.01))"  //  descent rate
B4="select(B1, col(B0, 2)    ,  1-rnd(2))"      //  X
B5="select(B1, col(B0, 3)-B3 ,  1+B2)"          //  Y

X0="B2*sin(A1) + B4 * (X_EXTENTS/Y_EXTENTS) + .075*sin(t+Id)"
Y0="B2*cos(A1) + B5"

// float subrange( float inValue, int inCol1, int inRow1, int inCol2, int inRow2 ); 

B6="{ select(Id != A0, row(B6, 0), B2)
    , select(Id != A0, row(B6, 1), B3)
    , select(Id != A0, row(B6, 2), B4)
    , select(Id != A0, row(B6, 3), B5)
    }"

B7="transpose(B6)"


LWdt=".85"
Pen=1
Meta="reactive=5 detail=3 density=4 morphable=3"
Vers=400

Similar, but subtly elegant; I think it makes B1-B5 more straightforward/understandable, but the implementation syntax of B6 [& B7] is certainly not as intuitive as I would hope and should be able to be specified a little nicer.

Ideally (and logically) I would have thought that B6 could have been defined:

Code: Select all

B6="select(Id != A0, {{B2, B3, B4, B5}}, B6)"

where the '{{ ... }}' construct defines the intended structure (of B6 in this case); '{ ... }' defines a single row of column(s), and '{{ ... }}' would imply multiple rows of column(s) [ I didn't just make up this syntax; if you manually set up a (multi-dimensional) vector, this is how it is specified ] ... makes sense... right??
Single line of code and no need to transpose...

======================

Okay, I was reminded "No reactivity!?!" ... well this was never intended to be a Waveshape, but has kind of evolved into something acceptable... so I have decided to accomodate. Here is a version with reactivity, albeit rather subtle...

Code: Select all

/* Bubbles - jrm
     w/ gentle reactivity
*/
Aspc=1
ConB=1
Num=8

// Stps="NUM_S_STEPS"   // NUM_S_STEPS
// FNUM="Num"           // NUM_FFT_BINS

A0="vectorLR(Num, 0, Num-1)"
A1="2*Pi*s"

B0="row(B10, Id)"        // All Variables for task(Id)
                        // radius defined???

B1="(col(B0, 0) != 0) && (col(B0, 3) > -(1+col(B0, 0)))"

B2="select(B1, col(B0, 0)   , .1+rnd(.5))"     // radius
B3="select(B1, col(B0, 1)   , .005+rnd(.01))"  //  descent rate
B4="select(B1, col(B0, 2)   ,  1-rnd(2))"      //  X
B5="select(B1, col(B0, 3)-B3,  1+B2)"          //  Y
B6="select(B1, col(B0, 4)   ,  0)"             //  reactivity

B7="(B6*15 + (1+atan((1.5-B2)*fft(Id/Num))))/16"
B8="B2 * max(B7, max(B2, B6-.00005))"          // tame things a bit

X0="B8*sin(A1) + B4 * (X_EXTENTS/Y_EXTENTS) + .075*sin(t+Id)"
Y0="B8*cos(A1) + B5"

// float subrange( float inValue, int inCol1, int inRow1, int inCol2, int inRow2 ); 

/**/
B9="{ select(Id != A0, row(B9, 0), B2)
    , select(Id != A0, row(B9, 1), B3)
    , select(Id != A0, row(B9, 2), B4)
    , select(Id != A0, row(B9, 3), B5)
    , select(Id != A0, row(B9, 4), B7)
    }"
B10="transpose(B9)"

LWdt=".85"
Pen=1
Meta="reactive=3 detail=3 density=4 morphable=3"
Vers=400

Please refer to Fri Oct 19, 2012 update...

[BTT]

Hello Jerohm

Just wanted to say that your latest version of "Bubbles" with gentle reactivity has put your creation right up there with the best.

I recommend everyone should Copy & Paste this into their WaveShape folder.

Well done and thank you Jerohm.


Regards BTT