PCOPY: Difference between revisions
Jump to navigation
Jump to search
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
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 | {{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 | {{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 | * [[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