HajimeKawahara

HajimeKawahara

HajimeKawahara

HajimeKawahara

HajimeKawahara

#!/usr/bin/python
import argparse
import numpy as np
import sound_driver as sd
import pyaudio
import wave

def generalized_coltrane_change(n,n0,t,nsamp=12):
   sg={0:"C",1:"Db",2:"D",3:"Eb",4:"E",5:"F",6:"Gb",7:"G",8:"Ab",9:"A",10:"Bb",11:"B"}
   print "GCC: for","n_k=",n,"and","t_k=",t

HajimeKawahara

#!/usr/bin/python
import numpy as np
import pyaudio
import sys
import matplotlib
import matplotlib.pyplot as plt
import pylab

def harmony(freq, length, rate, tone):
   samp=(2*np.pi)*freq/rate

HajimeKawahara

module testf
  contains
  subroutine printint(i)
    implicit none
    integer, intent(in) :: i
    write(*,*) i
  end subroutine printint  
end module testf

HajimeKawahara

#simple julia wrapper of fortran 90 subroutine printint in testf module 
function calltestf(ia)
    ia = Int32[ia] 
    product = ccall((:__testf_MOD_printint, "testf.so"),Int32,(Ptr{Int32},),ia)
  return product
end

calltestf(7)

HajimeKawahara

function call_ioint(ia)
    ia = Int32[ia]
    ib = Int32[0]
    product = ccall((:__testf_MOD_ioint, "testf.so"),Int32,(Ptr{Int32},Ptr{Int32}),ia,ib)
    println(ia)
    println(ib)
  return product
end

HajimeKawahara

  subroutine ioint(i,j)
    implicit none
    integer, intent(in) :: i
    integer, intent(out) :: j
    j=i+3
  end subroutine ioint