Unseen GDK - Dev Thread

[Unseen Machine]

Hi Gang

I aint got much time right now but heres the latest version of GDK. Save it as UnseenGDK.bm in your QB64 folder.

Im hoping that you lot will help me in updating it to use QB64's newer commands.

Thanks

Unseen

[Ashish]

Hi UnseenMachine!
Haven't seen you for a long. Some samples demos will be good to understand your GDK.
Also, you can use QB64's inbuilt _D2R() and _R2D() to convert degrees to radians and vice versa, instead of having
your own GDK_RadianToDegree!() and GDK_DegreeTo Radian!().

[bplus]

Yes you could add _PI() to list too but that is a very rich set of sprite procedures.

[Unseen Machine]

Ashish - when i get a chance ill run a speed check and if the inbuilt commands are faster then ill happily update! Thanks for the suggestion and as for demos, well thats a good point... Ill build a basic game in stages to show how commands are used

Code: QB64: [Select]

1. '// UnseenGDK Tutorials - No 1 : Generic Base Code
2. '// For version 1.5 and up
3. '// By John Onyon a.k.a Unseen Machine
4.  
5.  
6. '// Create a screen for the program
7. GDK_Screen_SetRes MainScreen&, 1024, 768
8.  
9. '// Define arrays for input handling
10. DIM KB(1) AS KeyBoardState, Mouse(1) AS MouseState
11.  
12.  
13. '// Main code
14. DO
15.   _LIMIT 30
16.   CLS
17.  
18.   '// GET INPUT
19.   GDK_Keyboard_GetState KB(0)
20.   GDK_Mouse_GetState Mouse(0)
21.  
22.  
23.   '// LOGIC
24.  
25.  
26.   '// DRAWING
27.  
28.   _DISPLAY
29.  
30.  
31.   '// Store input state's for comparisons next loop
32.   KB(1) = KB(0)
33.   Mouse(1) = Mouse(0)
34.  
35. LOOP
36. '// END of Main code
37.  
38.  
39. '// Library inclusions
40. REM $INCLUDE:'UnseenGDK.bm'
41.  
42.  

Thats base code for almost every GDK program...GDK_GL is a bit more indepth!!!

@bplus - _PI! Well i've had to update VQB to use that over my pre built function so GDK should also follow suit! Nice suggestion, will be implemented and thanks for the kudos!

Unseen

[bplus]

Regarding r2d and d2r conversions, I will bet cash money that constants are the fastest ie myDegreeAngle = radian_angle * const180slashPI, you skip function calls altogether and Constants are maybe as fast as Integer Variables for math.

[bplus]

Code: QB64: [Select]

1. _TITLE "const versus func r2d time.bas"
2. 'QB64 v1.1 1106 started by bplus 2018-06-21
3. x## = (180 / _ACOS(-1))
4. PRINT x##
5. CONST r2d = 57.29577951308232
6. PRINT r2d - 180 / _ACOS(-1) 'not bad?
7. PRINT 180 / _PI - r2d 'compare to built-in
8. PRINT 180 / _PI - x## '10x worse!
9. PRINT
10. FOR i = 1 TO 1 'test  model , looks like exactly same results
11.     FOR a = 0 TO _PI(2) STEP _PI(1 / 6)
12.         da## = a * r2d
13.         PRINT da##, _R2D(a)
14.     NEXT
15. NEXT
16.  
17. PRINT: PRINT
18. start! = TIMER
19. FOR i = 1 TO 10000000
20.     FOR a = 0 TO _PI(2) STEP _PI(1 / 6)
21.         da## = _R2D(a)
22.         'PRINT da##, _R2D(a)
23.     NEXT
24. NEXT
25. funtime! = TIMER - start!
26. PRINT "Time with function was:"; funtime!
27.  
28. start! = TIMER
29. FOR i = 1 TO 10000000
30.     FOR a = 0 TO _PI(2) STEP _PI(1 / 6)
31.         da## = a * r2d
32.         'PRINT da##, _R2D(a)
33.     NEXT
34. NEXT
35. ctime! = TIMER - start!
36. PRINT "Time with constant was:"; ctime
37.  

Did I save anybody time testing?

[Unseen Machine]

Bplus - First, thanks...nice to see some feedback, its appreciated

Second - I've never used constants in GDK as it would require a separate .bi library which is something ive always tried to avoid but im happy to remove the functions entirely and use the inbuilt ones, on checking GDK it appears i only call the function once in the whole library!

Path movement demo

Code: QB64: [Select]

1. '// UnseenGDK Demo - Path Movement using absolute screen co-ordinates
2.  
3. '// Create Screen
4. GDK_Screen_SetRes Main&, 800, 800
5.  
6. '// DIMension arrays for path points (X, Y, Speed)
7. DIM Path AS Path, PathPoints(7) AS PathPoint
8.  
9. '// Load path points
10. '// SUB GDK_Path_New (Path AS Path, PathPoint() AS PathPoint, NumPoints%, Reverse%, Repeat%, Relative%)
11. GDK_Path_New Path, PathPoints(), 8, 1, 0, 0
12.  
13. '// Main loop
14. DO
15.     _LIMIT 30
16.     CLS
17.  
18.     '// Update path
19.     GDK_Path_Update Path, PathPoints()
20.  
21.     '// Draw something
22.     CIRCLE (Path.Vector.X, Path.Vector.Y), 15, _RGB32(255, 0, 0)
23.  
24.     _DISPLAY
25. LOOP
26.  
27. DATA 50,50,6,750,50,5,750,750,7,50,750,8,400,400,4,500,500,12,300,300,5,610,355,6,10,350,14
28.  
29. REM $INCLUDE:'UnseenGDK.BM'
30.  
31.  

Unseen

[codeguy]

Attached is my circular sprite rotation sub. Rotates cw, ccw. Please feel free to use in your library or as necessary.

Code: QB64: [Select]

1. PRINT _CWD$
2. h& = _LOADIMAGE(_CWD$ + "\mars.png", 32)
3. DEMO& = _NEWIMAGE(1366, 768, 32)
4. SCREEN DEMO&
5. RotateStateX! = 0
6. DO
7.     GDKSpinCircularSprite h&, DEMO&, RotateStateX! * (2 * _PI) / 360
8.     RotateStateX! = RotateStateX! + 5
9.     _DISPLAY
10. LOOP UNTIL RotateStateX! > 90
11. _DELAY 15
12. SCREEN 0
13. _FREEIMAGE h&
14. _FREEIMAGE DEMO&
15.  
16. '************************
17. '* codeguy circular sprite rotation tailored to UnseenMachine GDK library
18. '************************
19. SUB GDKSpinCircularSprite (source&, dest&, RotateStateX!)
20.     osource& = _SOURCE
21.     odest& = _DEST
22.     _SOURCE source&
23.     _DEST dest&
24.     IF _WIDTH(source&) < _HEIGHT(source&) THEN
25.         sourceimageradius% = _WIDTH(source&) / 2
26.     ELSE
27.         sourceimageradius% = _HEIGHT(source&) / 2
28.     END IF
29.     sourceimagecenter% = sourceimageradius%
30.     IF sourceimageradius% > 0 THEN
31.         DO
32.             MINSTEP! = 1 / (2 * _PI * sourceimageradius%) '* codeguy famous minstep calculation
33.             stepsaroundcircumference! = 0
34.             DO
35.                 sourcepixelx% = sourceimagecenter% + sourceimageradius% * COS(stepsaroundcircumference!)
36.                 sourcepixely% = sourceimagecenter% + sourceimageradius% * SIN(stepsaroundcircumference!)
37.                 desttranslatex% = sourceimagecenter% + sourceimageradius% * COS(stepsaroundcircumference! + RotateStateX!)
38.                 desttranslatey% = sourceimagecenter% + sourceimageradius% * SIN(stepsaroundcircumference! + RotateStateX!)
39.                 X& = POINT(sourcepixelx%, sourcepixely%)
40.                 PSET (desttranslatex%, desttranslatey%), X&
41.                 stepsaroundcircumference! = stepsaroundcircumference! + MINSTEP!
42.             LOOP UNTIL stepsaroundcircumference! >= 2 * _PI
43.             sourceimageradius% = sourceimageradius% - 1
44.         LOOP UNTIL sourceimageradius% < 1
45.     END IF
46.     _SOURCE osource&
47.     _DEST odest&
48. END SUB
49.  

[codeguy]

I have used variable naming conventions that may help avoid conflicts. Always glad to help.

[Ashish]

@Unseen
That path one demo is cool! Can you also make circle to loop around the path instead of going back to origin?

[Unseen Machine]

At my brother CG (For those who dont know, consider me his apprentice when it comes to coding!) - That Circular rotation is very cool! But, me...well id use it to convert the image to a circle, save it and then use my _MAPTRIAGLE rotation code as i reckon that way would be faster, i'd like to adapt it a little and then add it to my Image Function Library though if thats ok?

@ Asish - Yeah you can make it loop, just change the Reverse% variable to false (0) and the Repeat% variable to true (not a 0)

@ Everyone else...Attached is a .rar file containing files needed for upcoming demos.
Create a folder called "Unseen Demos" in your Qb64 directory and unzip it to there.

Unseen

[Unseen Machine]

Demo - basic input, sprites 101 and vector movement (requires file from previous post)

Code: QB64: [Select]

1. '// GDK Demos - No.3 - Input and movement using vectors.
2.  
3. '// For GDK 1.7
4.  
5. '// Root file path
6. CHDIR "Unseen Demos\Resources\"
7.  
8. '// DIMension things, we need a Sprite array and a vector array
9. DIM Sprite AS Sprite, Position AS Vector
10.  
11. '// Create keyboard state array
12. DIM KB AS KeyBoardState
13.  
14. '// Create a screen
15. GDK_Screen_SetRes Main&, 800, 600
16.  
17. '// Load the sprite (Handle, Filename$, XFrames, YFrames, Total Frames, Scale!
18. GDK_Sprite_New Sprite, "Ship1.PNG", 1, 1, 1, 1
19.  
20. '// When loaded sprites need to have things done to them!
21. GDK_Sprite_Show Sprite '// Make the sprite visible
22.  
23. '// The image background (we dont wanna see it) so we set it's ALPHA (_CLEARCOLOR) value, on this image it's bright pink!
24. GDK_Sprite_SetAlpha Sprite, _RGB32(255, 0, 255)
25.  
26. '// Set where the image will be rotated from, we want it at the center
27. GDK_Sprite_SetRotationAsCenter Sprite
28.  
29. '// Set sprite initial position
30. Position.X = 400
31. Position.Y = 300
32.  
33. DO
34.  
35.     _LIMIT 30
36.     CLS
37.  
38.     '// User input
39.     GDK_Keyboard_GetState KB
40.  
41.     '// Analyse input
42.     IF KB.Left THEN
43.         Position.Rotation = Position.Rotation + .0314
44.     ELSEIF KB.Right THEN
45.         Position.Rotation = Position.Rotation - .0314
46.     END IF
47.  
48.     IF KB.Up THEN
49.         IF Position.Speed < 5 THEN Position.Speed = Position.Speed + .2
50.     ELSEIF KB.Down THEN
51.         IF Position.Speed > -1 THEN Position.Speed = Position.Speed - .2
52.     END IF
53.  
54.  
55.     '// Update the position of the sprite's vector
56.     GDK_Vector_Update Position
57.  
58.  
59.     '// Draw the sprite
60.     GDK_Sprite_Draw Sprite, Position, 1
61.  
62.     _DISPLAY
63. LOOP
64.  
65.  
66. REM $INCLUDE:'Unseengdk.bm'
67.  

Unseen

[Unseen Machine]

DEMO - Requires posted files.

use arrow keys to move, space turns rectangles on/off

Code: QB64: [Select]

1. '// GDK Demos - Collision detection
2.  
3. '// For GDK 1.7
4.  
5. '// Root file path
6. CHDIR "Unseen Demos\Resources\"
7.  
8. '// Now we will be using two sprites, for ease i've used an array
9. '// Each sprite has an associated Vector and a Rectangle
10. '// As the enemy sprite is animated it also has an Anim array
11. DIM Sprite(1) AS Sprite, Position(1) AS Vector, Rect(1) AS Rectangle, Anim AS ANIMATION
12.  
13. '// Input handler
14. DIM KB AS KeyBoardState
15.  
16. '// Variable for demo - To show collision rectangles
17. ViewRect% = -1
18.  
19. '// Screen
20. GDK_Screen_SetRes Main&, 800, 600
21.  
22. '// Load the sprites
23. GDK_Sprite_New Sprite(0), "Ship1.PNG", 1, 1, 1, 1
24. GDK_Sprite_New Sprite(1), "Invader1.PNG", 4, 1, 4, 1
25.  
26. '// Set the sprites up (Visibility, Alpha and rotation point)
27. FOR i% = 0 TO 1
28.     GDK_Sprite_Show Sprite(i%)
29.     GDK_Sprite_SetAlpha Sprite(i%), _RGB32(255, 0, 255)
30.     GDK_Sprite_SetRotationAsCenter Sprite(i%)
31. NEXT
32.  
33. '// Set initial Vector values (position, rotation and speed)
34.  
35. '// ** NOTE -  GDK uses Radians to handle rotation values (0 to 2 * PI), Increasing turns CCW, Decreasing CW
36.  
37. Position(0).X = 400
38. Position(0).Y = 300
39. Position(1).X = 400
40. Position(1).Y = 200
41. Position(1).Speed = 2
42. Position(1).Rotation = 3 * ATN(1)
43.  
44.  
45. '// Set up enemy animation
46. GDK_ANIMATION_NEW Anim, 1, 1, 4, .2, TIMER(.001)
47.  
48. '// Value to increase enemy rotation by
49. EnemyRotInc! = (4 * ATN(1)) / 300
50.  
51.  
52. '// Main loop
53. DO
54.  
55.     _LIMIT 30
56.     CLS
57.  
58.     '// User input
59.     GDK_Keyboard_GetState KB
60.  
61.     IF KB.Left THEN
62.         Position(0).Rotation = Position(0).Rotation + .0314
63.     ELSEIF KB.Right THEN
64.         Position(0).Rotation = Position(0).Rotation - .0314
65.     END IF
66.  
67.     IF KB.Up THEN
68.         IF Position(0).Speed < 5 THEN Position(0).Speed = Position(0).Speed + .2
69.     ELSEIF KB.Down THEN
70.         IF Position(0).Speed > -1 THEN Position(0).Speed = Position(0).Speed - .2
71.     END IF
72.  
73.     '// Turn visable rectangles on/off
74.     IF KB.SPACE THEN IF ViewRect% THEN ViewRect% = 0 ELSE ViewRect% = -1
75.  
76.     '// Increase enemy rotation
77.     Position(1).Rotation = Position(1).Rotation + EnemyRotInc!
78.  
79.     '// Loop through the sprite array and do stuff
80.     FOR i% = 0 TO 1
81.  
82.         '// Update the position of each sprite's vector
83.         GDK_Vector_Update Position(i%)
84.  
85.         '// Autosize the sprites collision rectangle
86.         '// Thanks to Richard Notely the rectangles actually rotate with the image!
87.         GDK_Rectangle_Autosize Sprite(i%), Position(i%), Rect(i%)
88.  
89.         '// Update animation
90.         GDK_ANIMATION_UPDATE Anim
91.  
92.         '// Draw the sprite's
93.         IF i% = 0 THEN Frame% = 1 ELSE Frame% = Anim.Frame
94.         GDK_Sprite_Draw Sprite(i%), Position(i%), Frame%
95.  
96.         '// DEMO CODE - To show actual collision rectangles
97.         IF ViewRect% THEN
98.             LINE (Rect(i%).C1.X, Rect(i%).C1.Y)-(Rect(i%).C2.X, Rect(i%).C2.Y), _RGB32(255, 0, 0)
99.             LINE (Rect(i%).C2.X, Rect(i%).C2.Y)-(Rect(i%).C3.X, Rect(i%).C3.Y), _RGB32(255, 0, 0)
100.             LINE (Rect(i%).C3.X, Rect(i%).C3.Y)-(Rect(i%).C4.X, Rect(i%).C4.Y), _RGB32(255, 0, 0)
101.             LINE (Rect(i%).C4.X, Rect(i%).C4.Y)-(Rect(i%).C1.X, Rect(i%).C1.Y), _RGB32(255, 0, 0)
102.         END IF
103.  
104.     NEXT
105.  
106.     '// Check for collision
107.     IF GDK_Rectangle_Intersect(Rect(0), Rect(1)) THEN LOCATE 1, 1: PRINT "COLLISION"
108.  
109.  
110.  
111.     _DISPLAY
112. LOOP
113.  
114.  
115.  
116. '// Library inclusion
117. REM $INCLUDE:'Unseengdk.bm'

youll see that collisions are not pixel perfect, and intentionally so...typical practice is to use rectangles that are slightly smaller than the actual image, usually about 80%...here's how you would modify the above to achieve that.

Code: QB64: [Select]

1. '// GDK Demos - Collision detection
2.  
3. '// For GDK 1.7
4.  
5. '// Root file path
6. CHDIR "Unseen Demos\Resources\"
7.  
8. '// Now we will be using two sprites, for ease i've used an array
9. '// Each sprite has an associated Vector and a Rectangle
10. '// As the enemy sprite is animated it also has an Anim array
11. DIM Sprite(1) AS Sprite, Position(1) AS Vector, Rect(1) AS Rectangle, Anim AS ANIMATION
12.  
13. '// Input handler
14. DIM KB AS KeyBoardState
15.  
16. '// Variable for demo - To show collision rectangles
17. ViewRect% = -1
18.  
19. '// Screen
20. GDK_Screen_SetRes Main&, 800, 600
21.  
22. '// Load the sprites
23. GDK_Sprite_New Sprite(0), "Ship1.PNG", 1, 1, 1, 1
24. GDK_Sprite_New Sprite(1), "Invader1.PNG", 4, 1, 4, 1
25.  
26. '// Set the sprites up (Visibility, Alpha and rotation point)
27. FOR i% = 0 TO 1
28.     GDK_Sprite_Show Sprite(i%)
29.     GDK_Sprite_SetAlpha Sprite(i%), _RGB32(255, 0, 255)
30.     GDK_Sprite_SetRotationAsCenter Sprite(i%)
31. NEXT
32.  
33. '// Set initial Vector values (position, rotation and speed)
34.  
35. '// ** NOTE -  GDK uses Radians to handle rotation values (0 to 2 * PI), Increasing turns CCW, Decreasing CW
36.  
37. Position(0).X = 400
38. Position(0).Y = 300
39. Position(1).X = 400
40. Position(1).Y = 200
41. Position(1).Speed = 2
42. Position(1).Rotation = 3 * ATN(1)
43.  
44.  
45. '// Set up enemy animation
46. GDK_ANIMATION_NEW Anim, 1, 1, 4, .2, TIMER(.001)
47.  
48. '// Value to increase enemy rotation by
49. EnemyRotInc! = (4 * ATN(1)) / 300
50.  
51.  
52. '// Main loop
53. DO
54.  
55.     _LIMIT 30
56.     CLS
57.  
58.     '// User input
59.     GDK_Keyboard_GetState KB
60.  
61.     IF KB.Left THEN
62.         Position(0).Rotation = Position(0).Rotation + .0314
63.     ELSEIF KB.Right THEN
64.         Position(0).Rotation = Position(0).Rotation - .0314
65.     END IF
66.  
67.     IF KB.Up THEN
68.         IF Position(0).Speed < 5 THEN Position(0).Speed = Position(0).Speed + .2
69.     ELSEIF KB.Down THEN
70.         IF Position(0).Speed > -1 THEN Position(0).Speed = Position(0).Speed - .2
71.     END IF
72.  
73.     '// Turn visable rectangles on/off
74.     IF KB.SPACE THEN IF ViewRect% THEN ViewRect% = 0 ELSE ViewRect% = -1
75.  
76.     '// Increase enemy rotation
77.     Position(1).Rotation = Position(1).Rotation + EnemyRotInc!
78.  
79.     '// Loop through the sprite array and do stuff
80.     FOR i% = 0 TO 1
81.  
82.         '// Update the position of each sprite's vector
83.         GDK_Vector_Update Position(i%)
84.  
85.         '' Store the scale value, change it then put it back
86.         OldScale! = Sprite(i%).Scale
87.         Sprite(i%).Scale = 80 * (Sprite(i%).Scale / 100)
88.  
89.         '// Autosize the sprites collision rectangle
90.         '// Thanks to Richard Notely the rectangles actually rotate with the image!
91.         GDK_Rectangle_Autosize Sprite(i%), Position(i%), Rect(i%)
92.  
93.         '// reset scale value
94.         Sprite(i%).Scale = OldScale!
95.  
96.         '// Update animation
97.         GDK_ANIMATION_UPDATE Anim
98.  
99.         '// Draw the sprite's
100.         IF i% = 0 THEN Frame% = 1 ELSE Frame% = Anim.Frame
101.         GDK_Sprite_Draw Sprite(i%), Position(i%), Frame%
102.  
103.         '// DEMO CODE - To show actual collision rectangles
104.         IF ViewRect% THEN
105.             LINE (Rect(i%).C1.X, Rect(i%).C1.Y)-(Rect(i%).C2.X, Rect(i%).C2.Y), _RGB32(255, 0, 0)
106.             LINE (Rect(i%).C2.X, Rect(i%).C2.Y)-(Rect(i%).C3.X, Rect(i%).C3.Y), _RGB32(255, 0, 0)
107.             LINE (Rect(i%).C3.X, Rect(i%).C3.Y)-(Rect(i%).C4.X, Rect(i%).C4.Y), _RGB32(255, 0, 0)
108.             LINE (Rect(i%).C4.X, Rect(i%).C4.Y)-(Rect(i%).C1.X, Rect(i%).C1.Y), _RGB32(255, 0, 0)
109.         END IF
110.  
111.     NEXT
112.  
113.     '// Check for collision
114.     IF GDK_Rectangle_Intersect(Rect(0), Rect(1)) THEN LOCATE 1, 1: PRINT "COLLISION"
115.  
116.  
117.  
118.     _DISPLAY
119. LOOP
120.  
121.  
122.  
123. '// Library inclusion
124. REM $INCLUDE:'Unseengdk.bm'

Unseen

[codeguy]

Adapt as you wish, UnseenMachine.

[Ashish]

@ Asish - Yeah you can make it loop, just change the Reverse% variable to false (0) and the Repeat% variable to true (not a 0)

I try it. But it is not working as expected. Is I'm doing anything wrong?

Code: QB64: [Select]

1. '// UnseenGDK Demo - Path Movement using absolute screen co-ordinates
2.  
3. '// Create Screen
4. GDK_Screen_SetRes Main&, 800, 700 'replaced 800 with 700 because, I've 1366x768 desktop
5.  
6. '// DIMension arrays for path points (X, Y, Speed)
7. DIM Path AS Path, PathPoints(7) AS PathPoint
8.  
9. '// Load path points
10. '// SUB GDK_Path_New (Path AS Path, PathPoint() AS PathPoint, NumPoints%, Reverse%, Repeat%, Relative%)
11. GDK_Path_New Path, PathPoints(), 8, 0, 1, 0
12.  
13. '// Main loop
14. DO
15.     _LIMIT 30
16.     CLS
17.  
18.     '// Update path
19.     GDK_Path_Update Path, PathPoints()
20.     FOR i = 0 TO 7
21.         CIRCLE (PathPoints(i).X, PathPoints(i).Y), 5, _RGB(255, 255, 0)
22.     NEXT i
23.  
24.     '// Draw something
25.     CIRCLE (Path.Vector.X, Path.Vector.Y), 15, _RGB32(255, 0, 0)
26.  
27.     _DISPLAY
28. LOOP
29.  
30. DATA 50,50,6,650,50,5,650,650,7,50,650,8,400,400,4,500,500,12,300,300,5,610,355,6,10,350,14
31.  
32. REM $INCLUDE:'UnseenGDK_Dev.BM'
33.  
34.