Sprites 2, rotando voy\u2026<\/a> el \u00faltimo par\u00e1metro de UpdateSprite est\u00e1 nombrado como \u201canchor\u201d, y est\u00e1 mapeado hacia el atributo 4 del sprite. Este atributo, entre otras cosas, controla el zoom horizontal y vertical. En cada caso, los valores posibles son 0, 1, 2 y 3, en binario 00, 01, 10 y 11.<\/p>\nEl atributo 4 cambia en funci\u00f3n de otros atributos, as\u00ed que solo nos centraremos en los 4 bytes que controlan el zoom:<\/p>\n
![\"\"](\"https:\/\/specnext.dev\/es\/wp-content\/uploads\/sites\/2\/2022\/09\/11-Atributo4-300x59.png\")
<\/p>\n
Como vemos, el zoom horizontal lo controlan los bits 3 y 4, mientras que el horizontal los bits 1 y 2.<\/p>\n
Para el tama\u00f1o original usamos el valor 0. Para ampliar horizontalmente un Sprite al doble de su tama\u00f1o podemos usar el valor 1 en los bits 3 y 4, que en forma de n\u00famero binario ser\u00eda %00001000. Si quedemos ampliarlo a cuatro veces su tama\u00f1o usamos el 2 (10 en binario), por lo que el n\u00famero resultante en binario ser\u00eda %00010000. Y si queremos ampliar a 8 veces el tama\u00f1o original usamos el n\u00famero 3 (11 en binario), que en binario nos quedar\u00eda como %00011000.<\/p>\n
Lo mismo para el eje Y (vertical), cuyos valores ser\u00edan %00000010 para el doble, %00000100 para cuatro veces su tama\u00f1o, y %00000110 para ocho veces su tama\u00f1o.<\/p>\n
Al mismo tiempo, podemos ampliar horizontal y verticalmente un sprite, simplemente combinando los dos valores ZX y ZY. Por ejemplo, el doble horizontal (01) y cuatro veces el vertical (10) queda como %00001100.<\/p>\n
\u00a0<\/p>\n
Desplazando bits<\/h1>\n
Todo esto funciona bien si queremos valores est\u00e1ticos, pero que pasa si queremos controlar el zoom a partir de una variable, por ejemplo un contador que vaya de 0 a 3 almacenado en la variable \u201cn\u201d.<\/p>\n
El valor de n, siempre que vaya de 0 a 3, quedar\u00e1 representado en los bits 0 y 1 de un byte, pero realmente los necesitamos en los bits 3 y 4, tal como se muestra en la imagen.<\/p>\n
![\"\"](\"https:\/\/specnext.dev\/es\/wp-content\/uploads\/sites\/2\/2022\/09\/11-Rotacion-300x108.png\")
<\/p>\n
Por lo tanto, es necesario desplazar a la izquierda 3 bits el valor de n. Esto se consigue utilizando el operador \u201c<<\u201d de la siguiente forma:<\/p>\n
dim n, zx as ubyte<\/code>
\nn=1<\/code>
\nzx=n << 3<\/code><\/p>\nEn el caso de querer ajustar el valor del zoom vertical, solo tenemos que desplazar el valor de n, 1 bit a la izquierda:<\/p>\n
dim n, zy as ubyte<\/code>
\nn=1<\/code>
\nzy=n << 1<\/code><\/p>\n\u00a0<\/p>\n
OReando<\/h1>\n
Y si queremos ajustar el zoom horizontal y el vertical al mismo tiempo, primero desplazamos los bits y despu\u00e9s mezclamos los dos valores con el operador \u201cbOR\u201d, que realiza la operaci\u00f3n l\u00f3gica por bits denominada \u201cOR\u201d. Esta operaci\u00f3n \u201cmezcla\u201d todos los bits, uno a uno, de cada n\u00famero en el que, si uno de los dos bits es 1, el resultado es 1, tal como muestra la siguiente tabla:<\/p>\n
![\"\"](\"https:\/\/specnext.dev\/es\/wp-content\/uploads\/sites\/2\/2022\/09\/11-OR.png\")
<\/p>\n
Y el siguiente c\u00f3digo, ampliamos el sprite horizontalmente a dos veces su tama\u00f1o (1) y verticalmente cuatro veces su tama\u00f1o (2)<\/p>\n
dim zx, zy, atr4 as ubyte<\/code>
\nzx = 1 << 3<\/code>
\nzy = 2 << 1<\/code>
\natr4 = zx bOR zy<\/code><\/p>\n\u00a0<\/p>\n
El C\u00f3digo<\/h1>\n
' -----------------------------------------------------------------------------<\/code>
\n' - Sprites3 ------------------------------------------------------------------<\/code>
\n' - Licencia MIT (Haz lo que quieras con el c\u00f3digo) ---------------------------<\/code>
\n' - Gr\u00e1ficos por F3M0 (@Bit_fans -> https:\/\/twitter.com\/bit_fans) -------------<\/code>
\n' -----------------------------------------------------------------------------<\/code><\/p>\n' - Includes ------------------------------------------------------------------<\/code>
\n#include <\/code><\/p>\n' - Inicio --------------------------------------------------------------------<\/code>
\nMain()<\/code>
\nstop<\/code><\/p>\n' - Sub principal -------------------------------------------------------------<\/code>
\nsub Main()<\/code>
\n\u00a0\u00a0\u00a0 dim n, zx, zy, at4 as ubyte<\/code><\/p>\n\u00a0\u00a0\u00a0 ' Inicializamos el sistema<\/code>
\n\u00a0\u00a0\u00a0 Inicializar()<\/code>
\n\u00a0\u00a0\u00a0<\/code>
\n\u00a0\u00a0\u00a0 while inkey$=\"\"\u00a0\u00a0\u00a0\u00a0 ' Repetimos hasta que se pulse una tecla<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Para el zoom usamos el patr\u00f3n 2<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Haremos un bucle desde zoom 0 a zoom x3<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 for n=0 to 3<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Zoom sobre el eje X (ancho)<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print at 0,0;\"Zoom X: \";n<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 zx=n << 3<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 UpdateSprite( 32,40,0,2,0,zx)<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Zoom sobre el eje Y (alto)<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print at 5,0;\"Zoom Y: \";n<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 zy=n << 1<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 UpdateSprite( 32,80,1,2,0,zy)<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Zoom sobre los dos ejes<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print at 0,16;\"Zoom XY: \";n<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 at4=zx bOR zy<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 UpdateSprite(164,40,2,2,0,at4)<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Pausa para ralentizar la animaci\u00f3n<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pause 50<\/code>
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 next n<\/code>
\n\u00a0\u00a0\u00a0 wend<\/code>
\nend sub<\/code><\/p>\n' - Inicializa el sistema -----------------------------------------------------<\/code>
\nsub Inicializar()<\/code>
\n\u00a0\u00a0\u00a0 NextReg($07,3)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Velocidad del procesador a 28MHz<\/code><\/p>\n\u00a0\u00a0\u00a0 ' Inicializamos ULA<\/code>
\n\u00a0\u00a0\u00a0 border 0: paper 0: ink 7: cls<\/code><\/p>\n\u00a0\u00a0\u00a0 ' Inicializamos Layer2<\/code>
\n\u00a0\u00a0\u00a0 NextReg($15,%00001001)\u00a0 ' Activamos Sprites y layers como SUL<\/code>
\n\u00a0\u00a0\u00a0 ShowLayer2(1)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Mostramos la layer 2<\/code><\/p>\n\u00a0\u00a0\u00a0 ' Creamos los sprites<\/code>
\n\u00a0\u00a0\u00a0 LoadSD(\"Sprite3.spr\",$c000,$4000,0)\u00a0\u00a0 ' Cargamos los sprites en $c000<\/code>
\n\u00a0\u00a0\u00a0 InitSprites(64,$c000)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ' Inicializamos 64 sprites, aunque no los usamos todos<\/code>
\nend sub<\/code><\/p>\n
![\"\"](\"https:\/\/specnext.dev\/es\/wp-content\/uploads\/sites\/2\/2022\/09\/11-Sprites-1024x820.png\"){kind=icon}
<\/p>\n