|
 |
|
El siguiente ejemplo permite combinar el teclado y el entorno gráfico para girar figuras vectoriales en 2D.
Importante:
1. Colocar a la calculadora en base decimal DEC antes de digitar el programa, esto permitirá que los enteros binarios # no afecten la visualización de las imagenes.
2. La pantalla de la calculadora sólo muestra un área limitada del sistema rectangular es por eso que se sugiere verificar, antes de ejecutar el programa, que todos los puntos quepan en dicha área y que de preferencia ésta sea proporcional a 131×64 (en la 48G, 48G+, 48GX, 49G y 48GII) ó 131×80 (en la 49G+ y 50G) para no distorcionar la figura.
Por defecto los valores de los rangos X e Y en el sistema rectangular de la calculadora son:
En la 48G, 48G+, 48GX, 49G y 48GII: X { -6.5 6.5 } e Y { -3.1 3.2 }
En la 49G+ y 50G: X { -6.5 6.5 } e Y { -3.9 4 }
3. El entero binario #58, que figura 3 veces dentro del programa, esta referido a la altura de una pantalla de 131×64, para calculadoras como la HP49G+ y la HP50G que cuentan con pantallas más amplias 131×80 el valor debe ser cambiado a #74.
Leyendo el código:
Al inicio se puede observar la matriz de pares ordenados de dimensiones 2×n (en este caso la matriz sólo tiene tres columnas n=3), se calcula el número de columnas de la matriz, y estos valores se asignan a las variables locales data y n. También se crean las variables salir?, alfa y subgiro a las cuales se les asigna inicialmente el valor 0.
Se abre el procedimiento << >>, y en su interior se crea al iniciar un subprograma << >> (en color azul) el cual es almacenado en la variable subgiro que será descrito más adelante.
El giro de las imagenes se dará en grados sexsagecimales por lo que se aplica el comando DEG, además se desactiva el indicador mostrar hora con la línea -40 CF.
Se ejecuta la línea { #0 #0 } PVIEW y apartir de allí se empieza la visualización del entorno gráfico, seguidamente se evalúa el subprograma subgiro, el cual se describe a continuación:
|
|