MayaMotor ...how to swap buffers?

[Aurel]

Hi
here is a program made  by me ,Ed Davis translated to QB64...
but i don't know how to get proper effect ?
I am using SWAP function in my interpreter so...
is there something similar in QB64...
i hope that B+ have solution(option)....

Code: QB64: [Select]

1. 'Translated from: maya_motor in micro(A)
2. SCREEN _NEWIMAGE(600, 600, 32)
3. color _rgb(200,220,250), _rgb(0, 0, 0)
4. pi = 3.14
5. level = 300 : angle = 0
6. x1=200 : y1=200
7.  
8.  
9. for n = 0 to 1999
10.   angle = angle - 20
11.    for i = 1 to 99
12.      d=9
13.      x2 = x1 + cos(angle/d) * (d*10)
14.      y2 = y1 + sin(angle*d) * (d*10)
15.      rr=200-d*10 : gg=190-d : bb= 220
16.      color _rgb(rr,gg,bb)
17.      'Line x2,y2,x1,y1
18.      circle (x2,y2),d
19.      angle = angle + 20
20.      d=d-1
21.      _delay .01
22.    next
23. next

[odin]

Not valid QB64 code.

[Aurel]

now is valid...sorry i made mistake,...

[bplus]

Hi
here is a program made  by me ,Ed Davis translated to QB64...
but i don't know how to get proper effect ?
I am using SWAP function in my interpreter so...
is there something similar in QB64...
i hope that B+ have solution(option)....

Code: QB64: [Select]

1. 'Translated from: maya_motor in micro(A)
2. SCREEN _NEWIMAGE(600, 600, 32)
3. color _rgb(200,220,250), _rgb(0, 0, 0)
4. pi = 3.14
5. level = 300 : angle = 0
6. x1=200 : y1=200
7.  
8.  
9. for n = 0 to 1999
10.   angle = angle - 20
11.    for i = 1 to 99
12.      d=9
13.      x2 = x1 + cos(angle/d) * (d*10)
14.      y2 = y1 + sin(angle*d) * (d*10)
15.      rr=200-d*10 : gg=190-d : bb= 220
16.      color _rgb(rr,gg,bb)
17.      'Line x2,y2,x1,y1
18.      circle (x2,y2),d
19.      angle = angle + 20
20.      d=d-1
21.      _delay .01
22.    next
23. next

This code does work in dev 1.5 as of 3:47 edit
 

Nice little snip.

@Aurel What is it you want it to do? Swap what?

[bplus]

Here's a mod:

Code: QB64: [Select]

1. 'Translated from: maya_motor in micro(A)   mod by b+ 2021-02-10
2. Screen _NewImage(400, 400, 32)
3. _Delay .25
4. _ScreenMove _Middle
5.  
6. level = 300: angle = 0: x1 = 200: y1 = 200
7. Do
8.     n = n + 1: angle = angle - 20
9.     For i = 1 To 99
10.         Line (0, 0)-(_Width, _Height), &H08000000, BF
11.         d = 9
12.         x2 = x1 + Cos(angle / d) * (d * 10)
13.         y2 = y1 + Sin(angle * d) * (d * 10)
14.         rr = 255 - i * 2: gg = 255: bb = i * 2
15.         Circle (x2, y2), d, _RGB32(rr, gg, bb)
16.         angle = angle + 20
17.         d = d - 1
18.         _Limit 480
19.     Next
20. Loop Until _KeyDown(27)
21.  
22.  

[Aurel]

What is it you want it to do? Swap what?

as you probably know i use gdi ...so i swap back buffer to front

like this...

[bplus]

@Aurel checkout pcopy in Wiki, the old way of flipping screens.

wiki:

The QB64 _DISPLAY statement can also be used to stop screen flicker without page flipping or CLS and is the recommended practice.