Es un tema de los Redondos Marcos ??

 Efectivamente! aunque lo acabo de oir otra vez y me parece que le falta algo, ademas el instrumento es feisimo. Estaba tratando de hacer el programa mas chico en basic para tocar una melodia, pero sigue siendo bastante largo de tipear. Tendria que ver si puedo codificar en una letra la nota y el tiempo.

      Saludos
     MARCOS

Aca una version mejorada, va en PRG porque es mucho pa tipear. Le hce un ajuste a la rutina de tiempo y ahora en vez de leer por string lo hace por Peek desde la pantalla y va mostrando lo que lee.
De todas formas ya es muy grande para "rutina curiosa"

    Saludos
   MARCOS

Pregunta, la rutina la armaste vos ?? sos  un capo !
Cada letra  es uuna nota, que onda ? Cuente un poco mas maestro ! jeje

Pregunta, la rutina la armaste vos ?? sos  un capo !
Cada letra  es uuna nota, que onda ? Cuente un poco mas maestro ! jeje

Es un programa bastante pavo, la string lo que guarda es la nota y la duracion. En la primera version las notas las precalculaban en f(x)  (porque?  :-? ) , empezando desde un valor dado, la diferencia entre nota y nota. Si se subdivide en 12 (12 notas son las 7 DO RE MI ... mas los 5 bemoles), la relacion entre notas consecutivas es la raiz 12va de 2 = 1.05946, (1.05946 ^ 12 = 2, o sea una octava, el doble de frecuencia)
En la version esta que listo, la nota la calculo en el momento elevando 1.059.. segun la nota leida, aunque como el basic no tiene para elevar cualquier numero, saco e^(nota*lg(1.05946)) y ese valor lo multiplico a la nota cuya frecuencia conozco de la tabla de frecuencias del manual de la C64. En la primera la pifie y puse un numero erroneo (error del 50%) de frecuencia base, aca le puse el correcto pero suena feo, tengo que investigar....
 Todo esto esta basado en un midi de "el pibe de los astilleros" que baje por ahi, se muy poco de musica, solo copio las notitas, pero el E5 del cakewalk no me esta sonando igual en la C64.
 El resto del programa es la inicializacion del SID, la lectura secuencial de caracteres y la rutina de espera entre inicio del sonido (nota) y la finalizacion

     Saludos
    MARCOS
 

En la version esta que listo, la nota la calculo en el momento elevando 1.059.. segun la nota leida, aunque como el basic no tiene para elevar cualquier numero, saco e^(nota*lg(1.05946)) y ese valor lo multiplico a la nota cuya frecuencia conozco de la tabla de frecuencias del manual de la C64.

Como que no tiene para elevar cualquier numero???  :o
Y la flecha hacia arriba, que esta a la izquierda de la tecla RESTORE? (En el emulador usando teclado español en la PC, la fecha la tipeo con la tecla Suprimir, es decir Delete)

En la version esta que listo, la nota la calculo en el momento elevando 1.059.. segun la nota leida, aunque como el basic no tiene para elevar cualquier numero, saco e^(nota*lg(1.05946)) y ese valor lo multiplico a la nota cuya frecuencia conozco de la tabla de frecuencias del manual de la C64.

Como que no tiene para elevar cualquier numero???  :o
Y la flecha hacia arriba, que esta a la izquierda de la tecla RESTORE? (En el emulador usando teclado español en la PC, la fecha la tipeo con la tecla Suprimir, es decir Delete)

   ;D ;D Eso me pasa por usar tanto lenguaje C, me puse a buscar POW por todos lados y no vi que la respuesta estaba ante mis ojos desde el principio. Lo gracioso es la seguridad con la que afirme este bolazo
   Por lo menos me sirvio para repasar un poco de logaritmos  :-[
  Aca va el programa corregido:

       Saludos
      MARCOS

Este programita (7 pokes) altera un poco la salida de texto por pantalla:

    Saludos
   MARCOS

INC $268
JMP CHROUT

Y redireccionar el vector de CHROUT a 49354, muy ingenioso


El otro de almacenar musica en cadenas ya lo habia visto (el metodo) en algun lado, pero no me puedo acordar donde, si en una Lupín o una K64.

ESte hace mas o menos lo mismo que el anterior pero mas loco:

   Saludos
  MARCOS

Mataria que  cuentes que  nota es cada caracter, o si se puede usar la notación convencional (cdefgab) y que significan los numeros de la cadena. Igual la rutina  esta buenisima !