MUSICA

13.1 EXPERIMENTA

1) Ejecuta las siguientes órdenes y fíjate en la variación de la segunda entrada.

?tono 262 10

?tono 262 25

?tono 262 50

2) Ejecuta las siguientes órdenes y fíjate en la variación de la primera entrada.

?tono 262 10

?tono 294 10

?tono 330 10

3) Ejecuta las siguientes órdenes varias veces utilizando la tecla F3

?tono 294 5 tono 370 5 tono 442 5

?tono 442 5 tono 370 5 tono 294 5

?tono 262 5 tono 330 5 tono 392 5 tono 532 10

?tono 532 5 tono 392 5 tono 330 5 tono 262 5

4) Ejecuta las siguientes órdenes:

?haz "do4 262

?haz "re4 294

?tono :do410 tono :re415

5) Introduce en la unidad de discos A el Disco de Utilidades, carga el siguiente fichero e imprime en papel su contenido:

?carga "notas"

?eco "lpt1

?im "notas

?noeco

6) Ejecuta las siguientes órdenes:

?repite 10 [tono :do4 4 tono :re4 8]

7) Con el Editor de Formas define la nota blanca

?edforma "blanca b

?ponforma "blanca

?bp ponrumbo 90 sl re 100

?repite 10 [estampa av 20]

8) Utilizando la nota blanca define la negra

?haz "negra :blanca

?edforma "negra

13.2. OBSERVA

tono :f :d Esta primitiva emite un sonido en la frecuencia de la primera entrada y con la duración de la segunda entrada.

Ej. tono 262 10

El fichero NOTAS contiene un procedimiento, notas, que asigna a cada nota su frecuencia, hemos escrito las correspondientes a la mitad de la octava 3ª, la 4ª y 5ª enteras y la mitad de la octava 6ª que son las más usuales.

En la última línea del procedimiento notas aparece el silencio, que corresponde a una frecuencia muy alta que no percibe el oído.

para notas

ELEMENTOS DE UN PENTAGRAMA

Clave

Las distintas claves son: sol, fa y do. Nosotros trabajaremos solo con la clave de sol.

Figuras

Las figuras son: redonda, blanca, negra, corchea, etc.

Compás

Orienta sobre la distribución del tiempo dentro de un compás: 4/4, 3/4, 2/4, etc.

Barra de compás

Es la línea vertical que divide el pentagrama en compases.

DUPLICACION DE FORMAS

A partir de una forma definida podemos definir otra parecida, utilizando primitiva haz.

Ej. Sitenemos definida la forma blanca, conseguimos la negra escribiendo haz "negra :blanca

Luego entramos en el Editor de Formas con el nuevo nombre para modificarla edforma "negra

13.3. RESOLUCION DE PROBLEMAS

PROBLEMA 1:

1) Define un procedimiento que toque la octava cuarta ascendente.

2) Define un procedimiento que toque la octava cuarta descendente.

3) Define un procedimiento que incluya los dos anteriores.

PROBLEMA 2:

1) Define los procedimientos necesarios para dibujar un pentagrama.

2) Define un procedimiento que dibuje varios pentagramas a modo de papel pautado.

3) Saca por impresora un folio completo de pentagramas para escribir música.

PROBLEMA 3:

Carga del disco el archivo NOTASF que contine las formas de todas las notas y define un procedimiento que dibuje un pentagrama con una octava de notas.

PROBLEMA 4:

Amplía el procedimiento del Problema 3 para que, a la vez que dibuja la nota, escriba debajo su nombre.

PROBLEMA 5:

Define un menú con una variable global arranque para los contenidos de este tema.

13.4. SOLUCIONES

PROBLEMA 1:

1) octava ascendente

para octasc :k

tono 262 :k

tono 294 : k

tono 330 :k

tono 349 :k

tono 392 :k

tono 440 :k

tono 494 :k

tono 523 2 * :k

fin

Ejecución:

?octasc 4

2) octava descendente

para octdes :k

tono 523 :k

tono 494 : k

tono 440 :k

tono 392 :k

tono 349 :k

tono 330 :k

tono 294 :k

tono 262 2 * :k

fin

Ejecución:

?octdes 4

3) octavas

para octavas: k

octasc :k

tono 523 2 * :k

octdes :k

fin

Ejecución:

?octavas 4

PROBLEMA 2:

1) Pentagrama

para línea :d

av:dre:d

gd 90 sl av 5 gi 90 bl

fin

para pen :d

ponescala 0.8

bl repite 5 [línea :d]

sl gd 90 av 25 gi 90 bl

fin

para situar :s

centro ot

sl gd 90 re 150

gi 90 av :s gd 90 bl

fin

para pentagrama :s

situar :s

pen 300

fin

Arbol de los procedimientos:

pentagrama -->situar

-->pen --> línea

Ejecución:

?pentagrama 60

2) Pentagramas

para partitura :n

situar 80

repite :n [pen 300]

fin

3) Impresora

?partitura 4

Y pulsar las teclas de impresión de pantalla.

PROBLEMA 3:

?carga "notasf

para notasf

notas

pentagrama 60 clave

ponforma "redonda mt

sl ponpos [‑100 30] ponforma "redondad estampa

tono :do4 5

ponpos [‑70 34] ponforma "redonda estampa

tono :re4 5

ponpos [‑40 37.5] estampa

tono :mi4 5

ponpos [‑10 39.5) estampa

tono: fa4 5

ponpos [20 43] estampa

tono :sol14 5

ponpos [50 44.5] estampa

tono: la4 5

ponpos [80 48.5] estampa

tono :si4 5

ponpos [110 50.6] estampa

tono: do4 5

fin

para clave

si ponpos [‑140 53] ponforma "claveso mt estampa

si ponpos [‑140 33] ponforma "clavesol mt estampa,

centro ponforma "negra

fin

Ejecución:

?notasf

PROBLEMA 4:

para escal

notas

pentagrama 60 clave

ponforma "redonda mt

sl ponpos [-100 30] ponforma "redondad estampa

ponrumbo 0 ponpos [-100 25] tono :do4 50

repite 8 [sl re 5 bl re 5] poncursor [6 20] es "DO

sl ponpos [-70 34] ponforma "redonda estampa

ponpos [-70 25] tono :re4 50

repite 8 [sl re 5 bl re 5] poncursor [10 20] es "RE

sl ponpos [-40 37.5) estampa

ponpos [-40 25] tono:mi4 50

repite 8 [sl re 5 bl re 5] poncursor [14 20] es "MI

sl ponpos [-10 39.5] estampa

ponpos [-10 25] tono:ra4 50

repite 8 [sl re 5 bl re 5] poncursor [18 20] es "FA

sl ponpos [20 43] estanpa

ponpos [20 25] tono :solo 50

repite 8 [sl re 5 bl re 5] poncursor [22 20] es "SOL

sl ponpos [50 44.5] estampa

ponpos [50 25] tono :la4 50

repite 8 [sl re 5 bl re 5] poncursor [26 20] es "LA

sl ponpos [80 47.5] estampa

ponpos [80 25] tono :sl4 50

repite 8 [sl re 5 bl re S] poncursor [30 20] es "SI

sl ponpos [110 50] estampa

ponpos [110 25] tono:do5 50

repite 8 [sl re 5 bl re 5] poncursor [34 20] es "DO

fin

Ejecución:

?escal

PROBLEMA 5:

para menú

ponfondo 1 ponpaleta 0

cargadib "menú

ponct [1 0] poncursor [6 11] es [OPCIONES \ \ \ \ \ EJECUCION]

ponct [3 0]

poncursor [10 13] es [1 \ \ \ \ \ Octavas]

poncursor [10 14] es [2 \ \ \ \ \ Pentagramas]

poncursor [1015] es [3 \ \ \ \ \ Escala]

poncursor [10 16] es [4 \ \ \ \ \ FIN]

ponct [2 0]

poncursor [8 20] es [Pulsa la opción deseada]

opciones

fin

para opciones

local "a

haz "a lc

si no miembro?: a [12 3 4] [menú]

si 1= :a [octavas 4 opciones alto]

si 2 = :a [bp partitura 4 espera 30 menú alto]

si 3 = :a [bp escal espera 30 menú alto]

si 4 = :a [pt bt alto]

fin

13.5. PROYECTOS

PROYECTO 1. Matemáticas

Definir los procedimientos necesarios para este reloj. Al preguntarla hora si se acierta suena una musiquilla alegre y si se falla suenan las campanadas de la hora rnarcada.

Carlos Olivares Bustos

José Luis Timón Hontiveros

Fca. García Berenguer

Ana María Slerra Benítez

C. P. Antonio Machado

Fuenlabrada Madrid.

PROYECTO 2. Múslca

Definir con el editor de formas algunos elementos del pentagrama.

Marisa Pérez Trujillo

Nieves Mena Sánchez

Colegio Sta. María del Pilar

Madrid