-o splinseg.wav sr = 44100 ksmps = 100 nchnls = 1 opcode splinsegk, k, iiiiipopopopopopopopopopo i0,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20, \ i21,i22,i23,i24 xin ir = 8192/p3 ifn ftgen 0,0, 8192, 8, i0,i1*ir,i2,i3*ir,i4,i5*ir,i6,i7*ir,i8, \ i9*ir,i10,i11*ir,i12,i13*ir,i14,i15*ir,i16,i17*ir,i18, \ i19*ir,i20,i21*ir,i22,i23*ir,i24 kidx line 0, p3, 8191 kout table3 kidx, ifn xout kout endop opcode splinsega, a, iiiiipopopopopopopopopopo i0,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20, \ i21,i22,i23,i24 xin ir = 8192/p3 ifn ftgen 0,0, 8192, -8, i0,i1*ir,i2,i3*ir,i4,i5*ir,i6,i7*ir,i8, \ i9*ir,i10,i11*ir,i12,i13*ir,i14,i15*ir,i16,i17*ir,i18, \ i19*ir,i20,i21*ir,i22,i23*ir,i24 aidx line 0, p3, 8191 aout table3 aidx, ifn xout aout endop instr 1 aenv splinsega 0, .1, -5, (p3-.1)/2, -15, (p3-.1)/2, -90 asig pinkish ampdbfs(aenv) out asig endin instr 2 aenv linseg 0, .1, -5, (p3-.1)/2, -15, (p3-.1)/2, -90 asig pinkish ampdbfs(aenv) out asig endin i 1 0 9 i 2 10 9 i 1 20 9 e