Transferir imágenes de gráficos de la pantalla.
GET (x1,y1)-(x2,y2),array name
Las instrucciones PUT y GET son usadas para transferir imágenes gráficas hacia y desde la pantalla. PUT y GET hacen posible la animación y el movimiento a alta velocidad de objetos en uno y otro modo gráficos.
La instruccion GET transfiere la imagen de pantalla bounded(* no que es,pero calculo que "enmarcada" iria) por el rectángulo descripto por los puntos especificados en la serie.El rectángulo es definido de la misma forma que el rectángulo dibujado por la declaración LINE usando el,B opción.
La serie es usada simplemente como un lugar para sostener la imagen, y puede ser de cualquier tipo excepto cadena. Debe ser dimensionado suficientemente grande para sostener la imagen entera. Los contenido de la serie después GET serán sin sentido cuando es interpretado directamente (a menos que la serie sea del número entero de tipo, como mostrado abajo).
El formato de almacenaje en la serie es como sigue:
Los datos para cada fila de pixeles son del modo izquierdo justificados en una alineación de bytes. Si menos que un múltiplo de ocho trozos es almacenado, el resto del byte será llenado con ceros. El tamaño de serie requerido en bytes es como sigue:
4+INT((x*bitsperpixel+7)/8)*y
Ver la declaración SCREEN para valores de trozos por pixel para modos de pantalla diferentes.
Los bytes por elemento de una serie son como sigue:
El número de bytes requeridos para conseguir una imagen 10 por 12 dentro de una serie entera de números entero es 4+INT((10*2+7)/8)*12, o 40 bytes. Una serie de números enteros con al menos 20 elementos es necesaria.
Si OPTION BASE es cero, una serie de número entero puede ser usada para examinar el x y dimensiones y y los datos. La dimensión x está en el elemento 0 de la serie, y la dimensión y está en el elemento 1. Los números enteros son almacenados el byte bajo primero, el byte entonces alto, pero los datos son transferidos byte alto primero (extremo izquierdo), byte entonces bajo.
Es posible conseguir una imagen en un modo y ponerlo en el otro, aunque el efecto pueda ser completamente extraño debido al modo que los puntos son representados en cada modo.
10 CLS: SCREEN 1 20 PSET(130, 120) 30 DRAW "U25; E7; R20; D32; L6; U12; L14" 40 DRAW "D12;L6":PSET(137,102) 50 DRAW "U4; E4; R8; D8; L12" 60 PSET(137, 88) 70 DRAW "E4; R20; D32; G4": PAINT(139, 87) 80 DIM A(500) 90 GET (125, 130)-(170, 80),A 100 FOR I=1 TO 1000: NEXT I 110 PUT (20,20), A, PSET 120 FOR I=1 TO 1000: NEXT I 130 GET (125,130)-(170, 80),A 140 FOR I=1 TO 1000: NEXT I 150 PUT (220,130), A, PRESET