PCOPY: Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(2 intermediate revisions by the same user not shown)
Line 14: Line 14:
* The '''QB64''' [[_DISPLAY]] statement can also be used to stop screen flicker without page flipping or [[CLS]] and '''is the recommended practice'''.
* The '''QB64''' [[_DISPLAY]] statement can also be used to stop screen flicker without page flipping or [[CLS]] and '''is the recommended practice'''.


 
=== QBasic/QuickBASIC ===
==QBasic/QuickBASIC==
* {{Parameter|sourcePage%}} and {{Parameter|destinationPage%}} numbers are limited by the SCREEN mode used. In '''QB64''', the same limits don't apply.
* {{Parameter|sourcePage%}} and {{Parameter|destinationPage%}} numbers are limited by the SCREEN mode used. In '''QB64''', the same limits don't apply.


Line 22: Line 21:
''Example 1:'' Creating a mouse cursor using a page number that '''you create''' in memory without setting up page flipping.
''Example 1:'' Creating a mouse cursor using a page number that '''you create''' in memory without setting up page flipping.
{{CodeStart}}
{{CodeStart}}
{{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) 'any graphics mode should work without setting up pages
{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) 'any graphics mode should work without setting up pages
{{Cl|_MOUSEHIDE}}
{{Cl|_MOUSEHIDE}}
SetupCursor
SetupCursor
Line 33: Line 32:
{{Cl|SUB}} SetupCursor
{{Cl|SUB}} SetupCursor
{{Cl|ON TIMER(n)|ON TIMER}}(0.02) UpdateCursor
{{Cl|ON TIMER(n)|ON TIMER}}(0.02) UpdateCursor
{{Cl|TIMER}} ON
{{Cl|TIMER}} {{Cl|ON}}
{{Cl|END SUB}}
{{Cl|END SUB}}


Line 49: Line 48:
''Example 2:'' Bouncing balls
''Example 2:'' Bouncing balls
{{CodeStart}}
{{CodeStart}}
  {{Cl|SCREEN (statement)|SCREEN}} 7, 0, 1, 0
  {{Cl|SCREEN}} 7, 0, 1, 0
  {{Cl|DIM}} x(10), y(10), dx(10), dy(10)
  {{Cl|DIM}} x(10), y(10), dx(10), dy(10)
  {{Cl|FOR...NEXT|FOR}} a = 1 {{Cl|TO}} 10
  {{Cl|FOR...NEXT|FOR}} a = 1 {{Cl|TO}} 10
Line 77: Line 76:
{{PageSeeAlso}}
{{PageSeeAlso}}
* [[_DISPLAY]]
* [[_DISPLAY]]
* [[SCREEN (statement)]]
* [[SCREEN]]




{{PageNavigation}}
{{PageNavigation}}

Latest revision as of 17:00, 24 February 2023

The PCOPY statement copies one source screen page to a destination page in memory.


Syntax

PCOPY sourcePage%, destinationPage%


Description

  • sourcePage% is an image page in video memory.
  • destinationPage% is the video memory location to copy the source image to.
  • The working page is set as 0. All drawing occurs there.
  • The visible page is set as any page number that the SCREEN mode allows.
  • The _DISPLAY (function) return can be used a page number reference in QB64 (See Example 1).
  • The QB64 _DISPLAY statement can also be used to stop screen flicker without page flipping or CLS and is the recommended practice.

QBasic/QuickBASIC

  • sourcePage% and destinationPage% numbers are limited by the SCREEN mode used. In QB64, the same limits don't apply.


Examples

Example 1: Creating a mouse cursor using a page number that you create in memory without setting up page flipping.

SCREEN _NEWIMAGE(640, 480, 32) 'any graphics mode should work without setting up pages
_MOUSEHIDE
SetupCursor
PRINT "Hello World!"
DO: _LIMIT 30
  DO WHILE _MOUSEINPUT: LOOP 'main loop must contain _MOUSEINPUT
'       other program code
LOOP

SUB SetupCursor
ON TIMER(0.02) UpdateCursor
TIMER ON
END SUB

SUB UpdateCursor
PCOPY _DISPLAY, 100  'any page number as desination with the _DISPLAY function as source
PSET (_MOUSEX, _MOUSEY), _RGB(0, 255, 0)
DRAW "ND10F10L3F5L4H5L3"
_DISPLAY                  'statement shows image
PCOPY 100, _DISPLAY 'function return as destination page
END SUB
Note: Works with _DISPLAY (function) as the other page. If mouse reads are not crucial, put the _MOUSEINPUT loop inside of the UpdateCursor Sub.


Example 2: Bouncing balls

 SCREEN 7, 0, 1, 0
 DIM x(10), y(10), dx(10), dy(10)
 FOR a = 1 TO 10
   x(a) = INT(RND * 320) + 1
   y(a) = INT(RND * 200) + 1
   dx(a) = (RND * 2) - 1
   dy(a) = (RND * 2) - 1
 NEXT
 DO
 PCOPY 1, 0                           'place image on the visible page 0
 CLS
 _LIMIT 100                           'regulates speed of balls in QB64
 FOR a = 1 TO 10
   CIRCLE(x(a), y(a)), 5, 15          'all erasing and drawing is done on page 1
    x(a) = x(a) + dx(a)
    y(a) = y(a) + dy(a)
   IF x(a) > 320 THEN dx(a) = -dx(a): x(a) = x(a) - 1
   IF x(a) < 0 THEN dx(a) = -dx(a): x(a) = x(a) + 1
   IF y(a) > 200 THEN dy(a) = -dy(a): y(a) = y(a) - 1
   IF y(a) < 0 THEN dy(a) = -dy(a): y(a) = y(a) + 1
 NEXT
 LOOP UNTIL INKEY$ = CHR$(27) ' escape exit
Explanation: PCOPY reduces the flickering produced by clearing the screen. x(a) = x(a) - 1, etc. is just to be safe that the balls stay within the boundaries. dx(a) = -dx(a), etc. is to keep the actual speed while inverting it (so that the ball "bounces"). The rest should be self-explanatory, but if you are unsure about arrays you might want to look at QB64 Tutorials -> Arrays.


See also



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