GET (graphics statement): Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
m (Protected "GET (graphics statement)" ([Edit=Allow only autoconfirmed users] (indefinite) [Move=Allow only autoconfirmed users] (indefinite)))
No edit summary
 
(12 intermediate revisions by 2 users not shown)
Line 1: Line 1:
The [[GET (graphics statement)|GET]] statement is used in graphics to store a box area image of the screen into an [[INTEGER]] array.
The [[GET (graphics statement)|GET]] statement is used in graphics to store a box area image of the screen into an [[INTEGER]] array.


{{PageSyntax}}  
 
{{PageSyntax}}
: [[GET]] [STEP] ({{Parameter|column1}}, {{Parameter|row1}})-[STEP]({{Parameter|column2}}, {{Parameter|row2}}), {{Parameter|array}}([{{Parameter|index}}])[, {{Parameter|offscreenColor}}]
: [[GET]] [STEP] ({{Parameter|column1}}, {{Parameter|row1}})-[STEP]({{Parameter|column2}}, {{Parameter|row2}}), {{Parameter|array}}([{{Parameter|index}}])[, {{Parameter|offscreenColor}}]


 
=== Legacy support ===
{{Legacy support}}
* '''QB64''' can manipulate parts of an image using [[_PUTIMAGE]]. For that reason, '''GET''' isn't recommended practice anymore and is supported to maintain compatibility with legacy code.
* '''QB64 can manipulate parts of an image using [[_PUTIMAGE]]. For that reason, GET isn't recommended practice anymore and is supported to maintain compatibility with legacy code.'''




{{Parameters}}
{{PageParameters}}
* ''column'' and ''row'' [[INTEGER]] coordinates for the box area must be on the screen except when using an ''offscreenColor''.
* ''column'' and ''row'' [[INTEGER]] coordinates for the box area must be on the screen except when using an ''offscreenColor''.
* [[INTEGER]] array sizes must be large enough (use width * height of the box area + 4) to hold the data or an error will occur.
* [[INTEGER]] array sizes must be large enough (use width * height of the box area + 4) to hold the data or an error will occur.
Line 30: Line 30:
* '''[[PUT]] and [[GET]] file statements can also write and read image array data using [[BINARY]] files instead of using [[BSAVE]] or [[BLOAD]].'''
* '''[[PUT]] and [[GET]] file statements can also write and read image array data using [[BINARY]] files instead of using [[BSAVE]] or [[BLOAD]].'''


 
=== QBasic/QuickBASIC ===
==QBasic/QuickBASIC==
* SCREEN 12 could only GET 1/3 of a full SCREEN 12 image. Rows would increment 160 each GET. '''QB64''' can save entire screen at once.
* SCREEN 12 could only GET 1/3 of a full SCREEN 12 image. Rows would increment 160 each GET. '''QB64''' can save entire screen at once.


Line 37: Line 36:
{{PageExamples}}
{{PageExamples}}
''Example 1:'' How to use GET and PUT to move a sprite with the arrow keys.
''Example 1:'' How to use GET and PUT to move a sprite with the arrow keys.
{{CodeStart}} '' ''
{{CodeStart}}
  {{Cl|DEFINT}} A-Z
  {{Cl|DEFINT}} A-Z
  {{Cl|DIM}} BG(300), Box(300), SC(127) ' BG holds background images. Box holds the Box image.
  {{Cl|DIM}} BG(300), Box(300), SC(127) ' BG holds background images. Box holds the Box image.
  {{Cl|SCREEN (statement)|SCREEN}} 13 ' graphic coordinate minimums are 0 to 319 column or 199 row maximums.
  {{Cl|SCREEN}} 13 ' graphic coordinate minimums are 0 to 319 column or 199 row maximums.
             ' set up screen background
             ' set up screen background
   {{Cl|COLOR}} 4: {{Cl|LOCATE}} 10, 5: {{Cl|PRINT}} "Multikey Keyboard input routine"
   {{Cl|COLOR}} 4: {{Cl|LOCATE}} 10, 5: {{Cl|PRINT}} "Multikey Keyboard input routine"
Line 54: Line 53:
  {{Cl|LINE}} (x, y)-(x + 15, y + 15), 9, BF ' the plain blue box to move
  {{Cl|LINE}} (x, y)-(x + 15, y + 15), 9, BF ' the plain blue box to move
  {{Cl|GET (graphics statement)|GET}} (x, y)-(x + 15, y + 15), Box  ' {{Cl|GET (graphics statement)|GET}} to Box Array
  {{Cl|GET (graphics statement)|GET}} (x, y)-(x + 15, y + 15), Box  ' {{Cl|GET (graphics statement)|GET}} to Box Array
 
  {{Cl|DO...LOOP|DO}}  'main loop
  {{Cl|DO...LOOP|DO}}  'main loop
   t! = {{Cl|TIMER}} + .05
   t! = {{Cl|TIMER (function)|TIMER}} + .05
   {{Cl|DO...LOOP|DO}}        ' 1 Tick (1/18th second) keypress scancode read loop
   {{Cl|DO...LOOP|DO}}        ' 1 Tick (1/18th second) keypress scancode read loop
     a$ = {{Cl|INKEY$}} ' So the keyboard buffer won't get full
     a$ = {{Cl|INKEY$}} ' So the keyboard buffer won't get full
     code% = {{Cl|INP}}({{Cl|&H}}60) ' Get keyboard scan code from port 96
     code% = {{Cl|INP}}({{Cl|&H}}60) ' Get keyboard scan code from port 96
     {{Cl|IF...THEN|IF}} code% < 128 {{Cl|THEN}} SC(code%) = 1 {{Cl|ELSE}} SC(code% - 128) = 0 'true/false values to array
     {{Cl|IF...THEN|IF}} code% < 128 {{Cl|THEN}} SC(code%) = 1 {{Cl|ELSE}} SC(code% - 128) = 0 'true/false values to array
   {{Cl|LOOP}} {{Cl|UNTIL}}  {{Cl|TIMER}} > t!' loop until one tick has passed
   {{Cl|LOOP}} {{Cl|UNTIL}}  {{Cl|TIMER (function)|TIMER}} > t!' loop until one tick has passed


   PX = x: PY = y  ' previous coordinates
   PX = x: PY = y  ' previous coordinates
Line 73: Line 72:
     {{Cl|PUT (graphics statement)|PUT}}(x, y), Box, {{Cl|PSET}}                ' PUT box image at new position
     {{Cl|PUT (graphics statement)|PUT}}(x, y), Box, {{Cl|PSET}}                ' PUT box image at new position
   {{Cl|END IF}}
   {{Cl|END IF}}
{{Cl|LOOP}} {{Cl|UNTIL}} SC(1) = 1 ' main loop until [Esc] key (scan code 1) is pressed '' ''
{{Cl|LOOP}} {{Cl|UNTIL}} SC(1) = 1 ' main loop until [Esc] key (scan code 1) is pressed
{{CodeEnd}}
{{CodeEnd}}


Line 79: Line 78:
''Example 2:'' How to GET graphics from an image other than the present screen using [[_SOURCE]] and [[_DEST]]ination.
''Example 2:'' How to GET graphics from an image other than the present screen using [[_SOURCE]] and [[_DEST]]ination.


{{CodeStart}} '' ''
{{CodeStart}}
{{Cl|DIM}} img(20 * 20 + 4) {{Cl|AS}} {{Cl|INTEGER}}  'create img% array to hold 20 by 20 image data  
{{Cl|DIM}} img(20 * 20 + 4) {{Cl|AS}} {{Cl|INTEGER}}  'create img% array to hold 20 by 20 image data
a& = {{Cl|_NEWIMAGE}}(800, 600, 13)    'larger surface a& emulates screen 13 colors & resolution
a& = {{Cl|_NEWIMAGE}}(800, 600, 13)    'larger surface a& emulates screen 13 colors & resolution


{{Cl|SCREEN (statement)|SCREEN}} 13    'program screen 13
{{Cl|SCREEN}} 13    'program screen 13


{{Cl|_DEST}} a&                        'set desination as the image page a&
{{Cl|_DEST}} a&                        'set desination as the image page a&
Line 99: Line 98:


{{PageSeeAlso}}
{{PageSeeAlso}}
* [[_PUTIMAGE]], [[_LOADIMAGE]]
* [[_PUTIMAGE]], [[_LOADIMAGE]], [[_SAVEIMAGE]]
* [[_MAPTRIANGLE]]
* [[_MAPTRIANGLE]]
* [[PUT (graphics statement)|PUT]], [[STEP]]  
* [[POINT]], [[PUT (graphics statement)|PUT]], [[STEP]]
* [[BSAVE]], [[BLOAD]]
* [[BSAVE]], [[BLOAD]]
* [[Scancodes]], [[Creating Sprite Masks]] {{text|(for non-box shaped sprites)}}
* [[Scancodes]], [[Creating Sprite Masks]] {{Text|(for non-box shaped sprites)}}
* [[Bitmaps]], [[GET and PUT Demo]]
* [[Bitmaps]], [[GET and PUT Demo]]




{{PageNavigation}}
{{PageNavigation}}

Latest revision as of 08:26, 10 January 2024

The GET statement is used in graphics to store a box area image of the screen into an INTEGER array.


Syntax

GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]

Legacy support

  • QB64 can manipulate parts of an image using _PUTIMAGE. For that reason, GET isn't recommended practice anymore and is supported to maintain compatibility with legacy code.


Parameters

  • column and row INTEGER coordinates for the box area must be on the screen except when using an offscreenColor.
  • INTEGER array sizes must be large enough (use width * height of the box area + 4) to hold the data or an error will occur.
  • The array index offset is optional. If the offset is zero the brackets may be empty.
  • The offscreenColor pixels will be returned as the designated color when part of an image is off screen.


Description

  • The STEP keyword can be used to for coordinates relative to the last graphic coordinates used.
  • A graphic screen mode must be used. See the SCREEN statement for graphic screen dimensions.
  • QB64' GET statements can use coordinates off of the screen when an offscreenColor is designated. STEP can be used for relative coordinates.
  • The GET box coordinates are set just like a LINE box statement is placed. You can use a box to find the correct GET area.
  • Once GET has placed the pixel image data in the array, PUT the image or BSAVE it to a file.
  • Once the image is stored in an array PUT can be used to place the image on the screen.
  • A _SOURCE handle can be set to GET image areas other than the ones on the current screen. Use _DEST to PUT images there.
  • To GET more than one image to the same array, designate an offset index that is not being used and is large enough to hold the data.
  • The INTEGER array size can be calculated as slightly larger than the box area width times the height. A closer estimate can be done by reading the array indices from UBOUND to LBOUND after a GET of a white box area. In QB64, a LONG array can be used for large or full screen images.
  • RGB color settings can be embedded at the beginning of the array for transferring custom colors. Specify an index for GET image data to be stored after any extra information added to the beginning of the array.
  • In QB64, _PUTIMAGE is recommended over PUT as it can also do the GET operation directly from the image source without requiring an array.
  • PUT and GET file statements can also write and read image array data using BINARY files instead of using BSAVE or BLOAD.

QBasic/QuickBASIC

  • SCREEN 12 could only GET 1/3 of a full SCREEN 12 image. Rows would increment 160 each GET. QB64 can save entire screen at once.


Examples

Example 1: How to use GET and PUT to move a sprite with the arrow keys.

 DEFINT A-Z
 DIM BG(300), Box(300), SC(127) ' BG holds background images. Box holds the Box image.
 SCREEN 13 ' graphic coordinate minimums are 0 to 319 column or 199 row maximums.
            ' set up screen background
  COLOR 4: LOCATE 10, 5: PRINT "Multikey Keyboard input routine"
  COLOR 10: LOCATE 12, 4: PRINT "Use the arrow keys to move the box."
  LOCATE 13, 4: PRINT "Note that you can press two or more"
  LOCATE 14, 4: PRINT "keys at once for diagonal movement!"
  COLOR 14: LOCATE 16, 4: PRINT " Also demonstrates how GET and PUT "
  LOCATE 17, 4: PRINT "are used to preserve the background."
  COLOR 11: LOCATE 20, 11: PRINT "Press [Esc] to quit"
  x = 150: y = 50: PX = x: PY = y ' actual box starting position

 GET (x, y)-(x + 15, y + 15), BG  ' GET original BG at start box position
 LINE (x, y)-(x + 15, y + 15), 9, BF ' the plain blue box to move
 GET (x, y)-(x + 15, y + 15), Box   ' GET to Box Array

 DO  'main loop
  t! = TIMER + .05
  DO         ' 1 Tick (1/18th second) keypress scancode read loop
    a$ = INKEY$ ' So the keyboard buffer won't get full
    code% = INP(&H60) ' Get keyboard scan code from port 96
    IF code% < 128 THEN SC(code%) = 1 ELSE SC(code% - 128) = 0 'true/false values to array
  LOOP UNTIL  TIMER > t!' loop until one tick has passed

  PX = x: PY = y  ' previous coordinates
  IF SC(75) = 1 THEN x = x - 5: IF x < 0 THEN x = 0
  IF SC(77) = 1 THEN x = x + 5: IF x > 304 THEN x = 304
  IF SC(72) = 1 THEN y = y - 5: IF y < 0 THEN y = 0
  IF SC(80) = 1 THEN y = y + 5: IF y > 184 THEN y = 184
  IF x <> PX OR y <> PY THEN             ' look for a changed coordinate value
    WAIT 936, 8: PUT(PX, PY), BG, PSET  ' replace previous BG first
    GET (x, y)-(x + 15, y + 15), BG      ' GET BG at new position before box is set
    PUT(x, y), Box, PSET                ' PUT box image at new position
  END IF
LOOP UNTIL SC(1) = 1 ' main loop until [Esc] key (scan code 1) is pressed


Example 2: How to GET graphics from an image other than the present screen using _SOURCE and _DESTination.

DIM img(20 * 20 + 4) AS INTEGER  'create img% array to hold 20 by 20 image data
a& = _NEWIMAGE(800, 600, 13)     'larger surface a& emulates screen 13 colors & resolution

SCREEN 13     'program screen 13

_DEST a&                         'set desination as the image page a&
CIRCLE (700, 300), 10, 10        'draw green circle on image page

_SOURCE a&                       'set source as image page a&
GET (690, 290)-(710, 310), img() 'GET a square screen area similar to a LINE Box.


_DEST 0                          'set destination as the program screen
PUT (100, 100), img()            'PUT the Top Left Corner of box area to pixel 100, 100
Notes: A _LOADIMAGE handle could also be used as a source to GET a portion or all of an image file.


See also



Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link