begin of a new era, maybe

SoundBrotching/panoramix.f90

@@ -1,9 +1,35 @@
 
 program panoramix
 
+  use soundbrotch
+! ------------------------------------------------------
   implicit none
+  integer                             :: left, right
+  integer                             :: errcode
+  integer                             :: nblus
+  real                                :: value, phi, ka
 
-  print *, "Panoramix coming soon..."
+  call soundbrotch_version()
+
+  nblus = 0
+  do
+    read (*, *, iostat=errcode) left, right
+    if (errcode .NE. 0) then
+      write(0, *) 'EOF ? ', errcode
+      exit 
+    endif
+
+    !  *** NON WORKING CODE ***
+    phi   = real(nblus) / 20000.0
+    ka    = sin(phi)
+    value = (real(left)+real(right)) / 2.05
+    left  = int(value*ka)
+    right = int(value*(1.0-ka))
+
+    print *, left, right
+
+    nblus = nblus + 1
+  enddo
 
 end program