Temblor – Animación, ejemplo de animación con movimientos aleatorios, simula una vibración de la pila o stack. Importante: Este programa reemplaza el PICT con un dibujo de la pila, por lo que cualquier dibujo o representación gráfica anterior será borrada y no se podrá recuperar posteriormente.

Se recomienda hacer una copia del PICT antes si fuera necesario. El programa completo, en versiones 48G y 49G, puede ser descargado haciendo click sobre DOWNLOAD NOW. (Archivo en formato ZIP)

Código Fuente:

Breve Resumen:

El programa se inicia redimencionando el entorno gráfico a #132d #65d, lo que añade una fila y una columna de pixeles más al PICT, luego se coloca un dibujo de la pila en las coordenadas #0 #0 del PICT y utilizando un bucle indefinido DO UNTIL END ejecutamos la secuencia que calcula coordenadas aleatorias para la visualización, lo que da la impresión de movimiento, hasta que sea presionada una tecla.

Además por cada movimiento ejecuta un pitido de frecuencia 600 Hz. Y 0.002 segundos de duración.

Leyenda:

Verde: Redimensiona el entorno gráfico, Azul: Coloca el dibujo de la pila en el PICT,  Rojo: Repite la animación hasta que se presione una tecla, Negro: Crea las coordenadas aleatorias y genera el pitido.

Redimenciona el entorno gráfico, usa como argumento las nuevas dimensiones #X #Y.

Genera un número real aleatorio entre 0 y 1.

Permite visualizar el entorno gráfico desde las coordenadas especificadas {#a #b}.

Genera un tono ó pitido con frecuencia (Hz) y duración (sg) personalizada.