Apostila - Autodesk International Communities

CAD BIM MIDI NET. Integrando AutoCAD, Revit e música em plataforma NET.
Configuração dos eixos X Y Z da Caixa de Música.
O procedimento de tradução musical realizado com o Compo é realizado em duas etapas. Primeiro se
procede a capturar as coordenadas numéricas do modelo e exportá-las a um arquivo de extensão lsp
com a tradução à sintaxe musical do Compo. O segundo passo é a geração do arquivo MIDI, realizada
desde a interface de comandos do ambiente Windows, no qual se procede a executar o Compo que faz
a leitura do arquivo Lsp gerando o arquivo com extensão mid. O arquivo mid, é lido posteriormente por
programas específicos que o executam.
(defun nome_da_peça () ;; Inicia a função...
(setf Voz_01 ;; definição da primeira voz traduzida.
(note :pos 0 ;; define a posição de início da voz.
(:voice-class 0 ;; define o número do instrumento associado com a voz.
(:hei :d4 :dur 0.250 :dyn 7.47) ;; som tônico.
(:hei :d4 :dur 0.250 :dyn 7.47) ;; som tônico.
(....) ;; continua sequência de toques.
))) ;; fecha a lista de sons tônicos da primeira voz traduzida.
(setf Voz_02 ;; definição da segunda voz traduzida.
(note :pos 0 ;; define a posição de início da voz.
(:voice-class 1 ;; define o número do instrumento associado com a voz.
(:hei :d4 :dur 0.250 :dyn 7.47) ;; som tônico.
(:hei :d4 :dur 0.250 :dyn 7.47) ;; som tônico.
(....) ;; continua sequência de toques.
))) ;; fecha a lista de sons tônicos da segunda voz traduzida.
;;Inicia definição de instrumentos (timbres) para cada voz.
(program-change 0 :acoustic-grand-piano) ;; definição do instrumento 1
(program-change 1 :vibraphone) ;; definição do instrumento 2
(realize (midi :sync :midi-file "nome_da_peça.mid" ;; Inicia ordens de exportação com definição de pulsações.
:tempo 40 ;; definição de pulsações por minuto.
(Voz_01)
(Voz_02)
))) ;; fecha a função.
Exemplo de organização do arquivo Lsp enviado para o Compo Music.
4