;------------------------------------------------------------------------- ; ; Resonant Palindrome (revision of piece previously named ; Symmetrical Melodic Variation on the Romantic Symmetry) ; by Dave Seidel (dave at mysterybear dot com) ; http://mysterybear.net ; ; Copyright 2005, Dave Seidel. Some rights reserved. ; This work is licensed under a Creative Commons "Attribution" License. ; http://creativecommons.org/licenses/by/2.0/ ; ;------------------------------------------------------------------------- ;-o devaudio -W -o ResonantPalindrome.wav sr = 44100 kr = 44100 ksmps = 1 nchnls = 2 zakinit 16, 16 ;--------------------------------------------------------------------------- ; pluck + oscillator tone ;--------------------------------------------------------------------------- instr 1 idur = p3 ; duration iamp = p4 ; amplitude ifn = p5 ; function table number (waveform) ifreq = p6*(p7/p8) ; pitch (base * (n/m)) izch = p9 print ifreq kfreq init ifreq kamp init iamp*.8 aenv linen iamp, 3, idur, 5 ; simple envelope a1 poscil aenv, ifreq, ifn ;a2 pluck kamp, kfreq, ifreq/4, 0, 1 ; zaw a1+a2, izch zaw a1, izch endin ;--------------------------------------------------------------------------- ; mixer (adapted from Mikelson, "Modelling a Multieffects Processor") ; added 4 more channels and a simple reverb at the end ;--------------------------------------------------------------------------- instr 3099 asig1 zar p4 igl1 init p5*p6 igr1 init p5*(1-p6) asig2 zar p7 igl2 init p8*p9 igr2 init p8*(1-p9) asig3 zar p10 igl3 init p11*p12 igr3 init p11*(1-p12) asig4 zar p13 igl4 init p14*p15 igr4 init p14*(1-p15) asig5 zar p16 igl5 init p17*p17 igr5 init p17*(1-p18) asig6 zar p19 igl6 init p20*p21 igr6 init p20*(1-p21) asig7 zar p22 igl7 init p23*p24 igr7 init p23*(1-p24) asig8 zar p25 igl8 init p26*p27 igr8 init p26*(1-p27) asigl = asig1*igl1 + asig2*igl2 + asig3*igl3 + asig4*igl4 + asig5*igl5 + asig6*igl6 + asig7*igl7 + asig8*igl8 asigr = asig1*igr1 + asig2*igr2 + asig3*igr3 + asig4*igr4 + asig5*igr5 + asig6*igr6 + asig7*igr7 + asig8*igr8 ; smaller resonator, based on 61440 Hz, ... ix = 0 ; x position of source iy = 0 ; y position of source iz = 0 ; z position of source ixsize1 = 2441.40625 ; width of the resonator iysize1 = 2441.40625 ; depth of the resonator izsize1 = 1220.703125 ; height of the resonator al1,ar1 babo asigl*0.7, ix, iy, iz, ixsize1, iysize1, izsize1, .57 al2,ar2 babo asigr*0.7, ix, iy, iz, ixsize1, iysize1, izsize1, .57 ; ...feeds into the larger (x2) resonator, based on 122880 Hz ixsize2 = 4882.8125 ; width of the resonator iysize2 = 4882.8125 ; depth of the resonator izsize2 = 2441.40625 ; height of the resonator al3,ar3 babo (al1+ar1)*0.7, ix, iy, iz, ixsize2, iysize2, izsize2, .59 al4,ar4 babo (al2+ar2)*0.7, ix, iy, iz, ixsize2, iysize2, izsize2, .59 ; need the envelope to make a nice fadeout, as the resonance is ; still ringing kenv linen p4, .2, p3, 3 outs (al3+ar3)*kenv, (al4+ar4)*kenv zacl 0, 16 endin f 8 0 1048576 10 1 .5 0 .25 0 0 0 .125 f 9 0 1048576 10 1 .5 0 .25 f 10 0 1048576 10 1 .5 f 11 0 1048576 10 1 ; slow is good t 0 30 #define DURATION #220# ; mixer i 3099 0 [$DURATION.+50] \ 1 0 .5 \ 2 .7 .8 \ 3 .7 1 \ 4 .8 .5 \ 5 .7 0 \ 6 .7 .2 \ 7 0 .5 \ 8 0 .5 ; center tone (axis of registral symmetry) ; 10 i 1 0 [$DURATION.+5] 600 11 7.5 127 1 4 ; lower tone set ; 8 i 1 5 8.4 700 10 7.5 8 1 2 i 1 + . . . . 14 . . i 1 + . . . . 16 . . i 1 + . . . . 29 . . i 1 + . . . . 31 . . i 1 + . . . . 59 . . i 1 + . . . . 61 . . i 1 + . . . . 59 . . i 1 + . . . . 31 . . i 1 + . . . . 29 . . i 1 + . . . . 16 . . i 1 + . . . . 14 . . i 1 + . . . . 8 . . i 1 + . . . . 14 . . i 1 + . . . . 16 . . i 1 + . . . . 29 . . i 1 + . . . . 31 . . i 1 + . . . . 59 . . i 1 + . . . . 61 . . i 1 + . . . . 59 . . i 1 + . . . . 31 . . i 1 + . . . . 29 . . i 1 + . . . . 16 . . i 1 + . . . . 14 . . i 1 + . . . . 8 . . ; middle tone set (without center tone), descending ; 9 i 1 5 16.15 . 11 . 126 . 3 i 1 + . . . . 119 . . i 1 + . . . . 113 . . i 1 + . . . . 112 . . i 1 + . . . . 113 . . i 1 + . . . . 119 . . i 1 + . . . . 126 . . i 1 + . . . . 119 . . i 1 + . . . . 113 . . i 1 + . . . . 112 . . i 1 + . . . . 113 . . i 1 + . . . . 119 . . i 1 + . . . . 126 . . c:\music\cs\lmy\symmelvar.csd i 1 5 16.15 . . . 128 . 5 i 1 + . . . . 136 . . i 1 + . . . . 142 . . i 1 + . . . . 144 . . i 1 + . . . . 142 . . i 1 + . . . . 136 . . i 1 + . . . . 128 . . i 1 + . . . . 136 . . i 1 + . . . . 142 . . i 1 + . . . . 144 . . i 1 + . . . . 142 . . i 1 + . . . . 136 . . i 1 + . . . . 128 . . ; upper tone set i 1 5 10 . 11 . 1152 . 6 i 1 + . . . . 1008 . . i 1 + . . . . 556 . . i 1 + . . . . 524 . . i 1 + . . . . 274 . . i 1 + . . . . 268 . . i 1 + . . . . 274 . . i 1 + . . . . 524 . . i 1 + . . . . 556 . . i 1 + . . . . 1008 . . i 1 + . . . . 1152 . . i 1 + . . . . 1008 . . i 1 + . . . . 556 . . i 1 + . . . . 524 . . i 1 + . . . . 274 . . i 1 + . . . . 268 . . i 1 + . . . . 274 . . i 1 + . . . . 524 . . i 1 + . . . . 556 . . i 1 + . . . . 1008 . . i 1 + . . . . 1152 . .