util  Diff

Differences From Artifact [fcb089814a]:

• File ostinata/ostinata.orc — part of check-in [908662f1b1] at 2025-03-12 06:46:14 on branch trunk — initial ostinata commit (user: lexi, size: 719) [annotate] [blame] [check-ins using]

To Artifact [1a1b5670ed]:

• File ostinata/ostinata.orc — part of check-in [5422ffcfca] at 2025-03-14 17:35:14 on branch trunk — add some instruments, fix some bugs (piano is not real yet) (user: lexi, size: 1371) [annotate] [blame] [check-ins using]

     8      8   ; p5 freq
     9      9   
    10     10   givol ftgen 1, 0, 10000, 25, \
    11     11   	500, 60, \
    12     12   	1000, 20, \
    13     13   	7000, 3, \
    14     14   	10000, 5
           15  +gipian ftgen 2, 0, 10000, 10, \
           16  +	1, 0.5, 0.3, 0.25, 0.2, 0.167, 0.14, 0.125, .111
    15     17   
    16     18   instr sine
    17     19   	tigoto skipinit
    18     20   	kt init 0
    19     21   	al init 1.0
    20     22   	ifreq = p5
    21     23   	ichime = p6
................................................................................
    50     52   
    51     53   	if p3 >= 0 then
    52     54   		aw = aw * at
    53     55   	endif
    54     56   	out aw
    55     57   endin
    56     58   
           59  +
           60  +instr warbulator
           61  +	tigoto skipinit
           62  +	irange = p6
           63  +	ifreq = p5
           64  +	ivol = p4 * 40 * table(ifreq, givol)
           65  +
           66  +	ata poscil 1.0, 100
           67  +	atf poscil 1.0, bpf(ata, 0,1, 1,100) 
           68  +	atq poscil 1.0, bpf(atf, 0,ifreq, 1,ifreq*irange) 
           69  +	skipinit:
           70  +
           71  +	aw = atq
           72  +	
           73  +	if p3 >= 0 then
           74  +		at linseg 1, p3, 0
           75  +		aw = aw * at
           76  +	endif
           77  +	out ivol * aw
           78  +endin
           79  +
           80  +instr bell
           81  +	tigoto skipinit
           82  +	ifreq = p5
           83  +	ivol = p4 * 40 * table(ifreq, givol)
           84  +	at poscil 1.0, ifreq*2
           85  +	af poscil 1.0, bpfcos(at, 0,ifreq, 1,ifreq*2.5)
           86  +
           87  +	skipinit:
           88  +	aw = af
           89  +	if p3 >= 0 then
           90  +		at linseg 1, p3, 0
           91  +		aw = aw * at
           92  +	endif
           93  +	out ivol * aw
           94  +endin