From 2f4272909a16c4234b8f6625ee34b6753cd63521 Mon Sep 17 00:00:00 2001 From: tTh Date: Wed, 4 Jan 2023 18:16:01 +0100 Subject: [PATCH] bug fixed, nor ready for prime time --- SoundBrotching/README.md | 4 ++-- SoundBrotching/panoramix.f90 | 9 +++++---- 2 files changed, 7 insertions(+), 6 deletions(-) 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))