tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bug fixed, nor ready for prime time

Browse Source
This commit is contained in:
tTh 2023-01-04 18:16:01 +01:00
parent 3f95a964e5
commit 2f4272909a
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SoundBrotching/README.md
View File

@ -20,5 +20,5 @@ Génération de sons qui arrachent les oreilles.
### panoramix ### panoramix
Conversion de l'entrée en mono, et dépacement en sinus d'un Conversion de l'entrée en mono, et déplacement en sinusoïdale d'un
coté à l'autre. coté de l'univers à l'autre.

9
SoundBrotching/panoramix.f90
View File

@ -1,4 +1,6 @@
!-
! JUST A SMALL EXPERIMENT
!-
program panoramix program panoramix
use soundbrotch use soundbrotch
@ -20,9 +22,8 @@ program panoramix
exit exit
endif endif
! *** NON WORKING CODE *** phi = real(nblus) / 9500.0
phi = real(nblus) / 44100.0 ka = 0.500 + (sin(phi) * 0.4999)
ka = sin(phi)
value = (real(left)+real(right)) / 2.05 value = (real(left)+real(right)) / 2.05
left = int(value * ka) left = int(value * ka)
right = int(value * (1.0-ka)) right = int(value * (1.0-ka))