instr 1 ialtura = p4; iamplit = p5; kenv linseg 0, .01, 1, p3 - .02, 1, .01, 0 aoscilador oscili iamplit * kenv, cpspch(ialtura), 1 out aoscilador endin f1 0 32768 10 1 f2 0 32768 10 .8 1 .9 .7 .6 .5 .5 .4 #include "macros_sextos_tono.txt" i1 0 1 9$C 5000 i1 + 1 9$C_p 5000 i1 + 1 9$CIS_m 5000 i1 + 1 9$CIS 5000 i1 + 1 9$CIS_p 5000 i1 + 1 9$D_m 5000 i1 + 1 9$D 5000 i1 + 1 9$D_m 5000 i1 + 1 9$CIS_p 5000 i1 + 1 9$CIS 5000 i1 + 1 9$CIS_m 5000 i1 + 1 9$C_p 5000 i1 + 1 9$C 5000 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 2 44 1022 768 CurrentView: orc IOViewEdit: Off Options: -b128 -W -o/Users/jlm/Dropbox/Web_lopezmontes.es/html/obra/ius_chasma/mp3/do-re-do.wav -s -m135 -R ioView background {60108, 65535, 63132} ioText {20, 44} {130, 218} label 0.000000 0.001000 "" center "Lucida Grande" 10 {0, 0, 0} {65535, 65535, 65535} nobackground border Transposition Level ioListing {163, 267} {473, 179} ioGraph {163, 38} {472, 230} ioSlider {69, 68} {34, 184} 20.000000 2000.000000 873.776001 pitch ioButton {11, 272} {146, 54} event 1.000000 "" "Click for new note" "/" i1 0 10 10000 300