diff --git a/SoundBrotching/README.md b/SoundBrotching/README.md index 4de3d87..779183b 100644 --- a/SoundBrotching/README.md +++ b/SoundBrotching/README.md @@ -20,5 +20,5 @@ Génération de sons qui arrachent les oreilles. ### panoramix -Conversion de l'entrée en mono, et dépacement en sinus d'un -coté à l'autre. +Conversion de l'entrée en mono, et déplacement en sinusoïdale d'un +coté de l'univers à l'autre. diff --git a/SoundBrotching/panoramix.f90 b/SoundBrotching/panoramix.f90 index 635066c..829c6f0 100644 --- a/SoundBrotching/panoramix.f90 +++ b/SoundBrotching/panoramix.f90 @@ -1,4 +1,6 @@ - +!- +! JUST A SMALL EXPERIMENT +!- program panoramix use soundbrotch @@ -20,9 +22,8 @@ program panoramix exit endif - ! *** NON WORKING CODE *** - phi = real(nblus) / 44100.0 - ka = sin(phi) + phi = real(nblus) / 9500.0 + ka = 0.500 + (sin(phi) * 0.4999) value = (real(left)+real(right)) / 2.05 left = int(value * ka) right = int(value * (1.0-ka))