Csound Csound-dev Csound-tekno Search About

[Csnd] Re: Moore's Space Unit Generator in csound

Date2010-04-26 14:39
FromGiovanni Damiani
Subject[Csnd] Re: Moore's Space Unit Generator in csound
neither vbap nor ambisonics: simply a delay with 4 in/4 outs (or 4  
delays) with the pan opcode to precisely send to the appropriate  
direction.
G.Damiani


Send bugs reports to the Sourceforge bug tracker
            https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date2010-04-26 17:15
FromAnthony Palomba
Subject[Csnd] Re: Re: Moore's Space Unit Generator in csound
Ciao Giovanni,

I was hoping you could help me make sense of you file.

This is inst 66...

 instr 66; quad phantom
     gkatt=p16;
     kenv linseg 0,.02,1-p16,p3-.04,1-p16,.02,0
    ; iatte=(1-p16);/1.4
     ii=1.4
     isum=abs(p4)+abs(p5)
    if isum!=0 goto rifletti
    print isum
    turnoff

    rifletti: gidimx=p14   ;dimens amb
     gidimy=p15  ;gas=gas/150;+as1/1500

    if frac(p4/2)=0 igoto vai
     iesp=-1
     igoto comincy;prosegui
     vai:iesp=1
    comincy:if frac(p5/2)=0 igoto vay
     iespy=-1
     igoto prosegui
     vay:iespy=1
     prosegui:ix=iesp*p6+p4*gidimx-.5
     iy=iespy*p7+p5*gidimy-.5
     idist=sqrt(ix*ix+iy*iy)
    ;; print p4,p5,ix,iy,idist
     ix2=iesp*p8+p4*gidimx-.5
     iy2=iespy*p9+p5*gidimy-.5
     idist2=sqrt(ix2*ix2+iy2*iy2)
     ix3=iesp*p10+p4*gidimx-.5
     iy3=iespy*p11+p5*gidimy-.5
     idist3=sqrt(ix3*ix3+iy3*iy3)
    ix4=iesp*p12+p4*gidimx-.5
    iy4=iespy*p13+p5*gidimy-.5
     idist4=sqrt(ix4*ix4+iy4*iy4)
     ;;isum=abs(p4)+abs(p5)
     ad delay kenv*ga1,idist/345;,1;,it   ;NB in questo e nei delay successivi tolto /2

     adt tone ad,sr/(sqrt(idist)*(1+isum*ii)); )-kdist*3;(1-(4*kdist*kdist*.009))

     ids=4/idist/idist
     iloc=(1-1/idist)
    ad2 delay kenv*ga2,idist2/345;,1;,it

    print idist/345,idist2/345

    adt2 tone ad2,sr/(sqrt(idist2)*(1+isum*ii))
    ids2=4/idist2/idist2
    iloc2=(1-1/idist2)
    ids3=2/idist3/idist3
    iloc3=(1-1/idist3)
    ad3 delay kenv*ga3,idist3/345;,1;,it
    adt3 tone ad3,sr/(sqrt(idist3)*(1+isum*ii))
    ga111=ga111+adt*iloc;+a12*iloc2+a13*iloc3+a14*iloc4
    ga222=ga222+adt2*iloc2;+a23*iloc3+a24*iloc4;riv locale enfatizz.
    outs adt*ids+adt3*ids3*.3,adt2*ids2

     ids3=2/idist3/idist3
     iloc3=(1-1/idist3)
     ad3 delay kenv*ga3,idist3/345;,1;,it
     adt3 tone ad3,sr/(sqrt(idist3)*(1+isum*ii))
      ids4=2/idist4/idist4
     iloc4=(1-1/idist4)
     ad4 delay kenv*ga4,idist4/345;,1;,it
     adt4 tone ad4,sr/(sqrt(idist4)*(1+isum*ii))
    ga333=ga333+adt3*iloc3;+a34*iloc4
    ga444=ga444+adt4*iloc4;+a41*iloc+a42*iloc2+a43*iloc3
    outs adt3*ids3,adt4*ids4+adt2*ids2*.3
 endin


Can you give us a brief explanation of how it is controlled?
What do the different p-fields do?



Thanks,
Anthony


On Mon, Apr 26, 2010 at 8:39 AM, Giovanni Damiani <giovdamiani@alice.it> wrote:
neither vbap nor ambisonics: simply a delay with 4 in/4 outs (or 4 delays) with the pan opcode to precisely send to the appropriate direction.
G.Damiani



Send bugs reports to the Sourceforge bug tracker
          https://sourceforge.net/tracker/?group_id=81968&atid=564599
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"