« previous next »
Pages: [1]   Go Down

Author Topic: Rotate (OpenGL version)  (Read 3592 times)

0 Members and 1 Guest are viewing this topic.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Rotate (OpenGL version)
« on: May 07, 2020, 03:19:30 pm »
Hi Folks,

Here's a small demo of a game i've had on the back burner for the last 8 years or so! I was'nt happy with the results i was getting from using _maptriangle to rotate the image (it worked but was way to grainy), so i decided to make an GL version instead.

Using the arrow keys to rotate the grid in either direction, try to get the ball on top of the target square (the one with the circle on it), do this whilst rying to avoid being squished by the blocks.

Code: QB64: [Select]
  1. '// Rotate GL v.02 \\
  2. '// By John Onyon a.k.a Unseen Machine \\
  3.  
  4. CHDIR "Unseen Demos\Rotate\"
  5. '/////////////////////////////////////////////////////////////////////////////////
  6. REM $INCLUDE:'GDK_GL\GDK_GL.bi'
  7. '/////////////////////////////////////////////////////////////////////////////////
  8.  
  9. DIM SHARED Mouse(1) AS MouseState, Kb(1) AS KeyBoardState '// For Input capture
  10. DIM SHARED CamVec AS VECTOR_GL, RadHelp#, Init_GL, Allow_GL AS _BYTE '// For Camera, Movement and GL initialisation
  11. DIM SHARED LevelBlock AS LONG, Level(11, 11) AS _BYTE, BallTexture AS LONG, TargetTexture AS LONG, Enemyblock AS LONG
  12. DIM SHARED LevelPar AS _BYTE, CurrentLevel AS INTEGER, LevelMax AS _BYTE
  13. DIM SHARED Ball_IsFalling AS _BYTE, DropTimer#, LvlBckUp(11, 11) AS _BYTE
  14. DIM SHARED IsRotating AS _BYTE, Rotation AS INTEGER, Left AS _BYTE
  15.  
  16. '// Initial Setup \\
  17. SCREEN _NEWIMAGE(800, 600, 32) '// Create a 32 bit screen
  18. _DISPLAY '// Turn off auto display
  19. _DISPLAYORDER _GLRENDER , _SOFTWARE '// Set the display to render GL stuff then Software stuff
  20. _FPS 30 '    // Set maximium frames per second
  21.  
  22. '// Allow SUB _GL and initialise it \\
  23. Init_GL = True
  24. Allow_GL = True
  25. DropTimer# = TIMER(.001)
  26.  
  27.  
  29.  _LIMIT 30
  30.  
  31.  GT# = TIMER(.001)
  32.  
  33.  IF NOT IsRotating THEN
  34.  
  35.   GDK_Keyboard_GetState Kb(0)
  36.  
  37.   IF Kb(0).Left AND NOT Kb(1).Left THEN
  38.    Left = True
  39.    IsRotating = True
  40.   ELSEIF Kb(0).Right AND NOT Kb(1).Right THEN
  41.    Left = False
  42.    IsRotating = True
  43.   END IF
  44.  
  46.  
  47.   IF Left = True THEN
  48.    IF Rotation > -90 THEN
  49.     Rotation = Rotation - 2
  50.    ELSE
  51.     Rotation = 0
  52.     IsRotating = False
  53.     RotateArray
  54.    END IF
  55.   ELSEIF Left = False THEN
  56.    IF Rotation < 90 THEN
  57.     Rotation = Rotation + 2
  58.    ELSE
  59.     Rotation = 0
  60.     IsRotating = False
  61.     RotateArray
  62.     RotateArray
  63.     RotateArray
  64.    END IF
  65.   END IF
  67.  
  68.  IF GT# - DropTimer# >= .05 THEN
  69.   FOR i% = 1 TO 10
  70.    FOR j% = 10 TO 1 STEP -1
  71.  
  72.     IF Level(i%, j%) = 3 THEN '// Player ball
  73.      IF Level(i%, j% + 1) = 0 THEN
  74.       Level(i%, j%) = 0
  75.       Level(i%, j% + 1) = 3
  76.       Ball_IsFalling = True
  77.      ELSEIF Level(i%, j% + 1) = 2 THEN '// Hit target square
  78.       IF CurrentLevel < LevelMax THEN
  79.        LoadLevel
  80.        CurrentLevel = CurrentLevel + 1
  81.        Ball_IsFalling = False
  82.        GOTO SkipLoops
  83.       ELSE
  84.        SYSTEM
  85.       END IF
  86.      END IF
  87.     ELSEIF Level(i%, j%) = 4 THEN
  88.      IF Level(i%, j% + 1) = 0 THEN
  89.       Level(i%, j%) = 0
  90.       Level(i%, j% + 1) = 4
  91.      ELSE
  92.       IF Level(i%, j% + 1) = 3 THEN '// gonna crush the ball!!!!
  93.  
  94.        '// Do a loose a life thingy
  95.        '// Restart the level
  96.        FOR i2% = 0 TO 11
  97.         FOR j2% = 0 TO 11
  98.          Level(i2%, j2%) = LvlBckUp(i2%, j2%)
  99.         NEXT
  100.        NEXT
  101.        Ball_IsFalling = False
  102.        GOTO SkipLoops
  103.       END IF
  104.  
  105.      END IF
  106.     END IF
  107.  
  108.    NEXT
  109.   NEXT
  110.   SkipLoops:
  111.   DropTimer# = GT#
  113.  
  114.  
  115.  Kb(1) = Kb(0)
  116.  
  118.  
  120.  
  121. '###############################################################################################################################
  122.  
  123. LvlData:
  124. DATA 0,0,0,0,0,0,0,0,1,1,1,1
  125. DATA 0,1,1,1,1,1,1,1,1,0,0,1
  126. DATA 0,1,0,0,0,0,1,0,0,0,0,1
  127. DATA 0,1,0,0,0,0,0,0,0,0,1,1
  128. DATA 0,1,1,0,1,0,1,1,0,1,1,0
  129. DATA 0,0,1,0,1,2,1,1,0,1,0,0
  130. DATA 0,0,1,0,1,1,1,1,0,1,0,0
  131. DATA 0,0,1,0,1,0,0,1,3,1,0,0
  132. DATA 0,0,1,4,1,0,0,1,1,1,0,0
  133. DATA 0,0,1,1,1,0,0,0,0,0,0,0
  134. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  135. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  136.  
  137. DATA 0,0,1,1,1,1,1,0,0,0,0,0
  138. DATA 0,0,1,3,0,0,1,0,0,0,0,0
  139. DATA 0,0,1,1,1,0,1,0,0,0,0,0
  140. DATA 0,0,0,0,1,0,1,0,0,0,0,0
  141. DATA 0,0,0,0,1,0,1,1,1,1,0,0
  142. DATA 1,1,1,1,1,0,0,0,0,1,0,0
  143. DATA 1,0,0,0,0,0,0,1,0,1,0,0
  144. DATA 1,0,1,1,1,1,1,1,0,1,0,0
  145. DATA 1,0,1,1,0,0,2,0,0,1,0,0
  146. DATA 1,0,4,0,0,1,1,1,1,1,0,0
  147. DATA 1,1,1,1,1,1,0,0,0,0,0,0
  148. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  149.  
  150. DATA 1,1,1,1,1,1,1,1,1,1,1,1
  151. DATA 1,0,2,0,1,0,0,0,0,0,0,1
  152. DATA 1,0,1,0,1,0,1,0,1,0,0,1
  153. DATA 1,0,1,0,1,0,1,0,1,1,0,1
  154. DATA 1,0,1,0,0,0,1,0,0,1,0,1
  155. DATA 1,0,1,1,1,1,1,1,0,1,0,1
  156. DATA 1,0,1,0,0,3,0,0,0,1,0,1
  157. DATA 1,0,1,0,1,1,1,1,1,1,0,1
  158. DATA 1,0,1,0,0,0,0,0,0,0,0,1
  159. DATA 1,0,1,1,1,1,1,1,1,1,0,1
  160. DATA 1,4,0,0,0,0,0,0,0,0,0,1
  161. DATA 1,1,1,1,1,1,1,1,1,1,1,1
  162.  
  163. DATA 1,1,1,1,1,1,1,0,0,0,0,0
  164. DATA 1,0,0,0,0,0,0,1,0,0,0,0
  165. DATA 1,0,1,1,1,1,0,0,1,0,0,0
  166. DATA 1,0,0,0,0,0,0,0,0,1,1,0
  167. DATA 1,0,0,0,1,0,3,1,0,0,0,1
  168. DATA 0,1,0,0,1,1,1,1,0,0,0,1
  169. DATA 0,1,0,0,1,0,0,0,0,0,0,1
  170. DATA 0,1,0,1,1,0,1,1,1,1,1,0
  171. DATA 1,0,0,0,4,0,1,0,0,0,0,0
  172. DATA 1,0,1,1,1,1,0,0,0,0,0,0
  173. DATA 1,0,2,1,0,0,0,0,0,0,0,0
  174. DATA 1,1,1,1,0,0,0,0,0,0,0,0
  175.  
  176. DATA 1,1,1,1,1,1,1,1,1,0,0,0
  177. DATA 1,3,0,0,1,0,0,0,1,0,0,0
  178. DATA 1,1,1,0,0,0,1,0,1,0,0,0
  179. DATA 0,0,1,1,1,0,1,0,1,0,0,0
  180. DATA 0,0,1,0,0,0,1,0,0,1,1,1
  181. DATA 0,0,1,0,1,1,1,1,0,0,0,1
  182. DATA 0,0,1,0,0,0,0,0,0,1,0,1
  183. DATA 0,0,1,0,1,1,1,1,1,1,2,1
  184. DATA 0,0,1,4,0,0,0,0,0,1,0,1
  185. DATA 0,0,1,1,1,1,1,1,0,1,0,1
  186. DATA 0,0,0,0,0,0,0,1,0,0,0,1
  187. DATA 0,0,0,0,0,0,0,1,1,1,1,1
  188.  
  189. DATA 1,1,1,1,1,0,1,1,1,1,0,0
  190. DATA 1,0,0,4,1,0,1,0,0,3,0,0
  191. DATA 1,0,1,1,1,0,1,0,1,1,0,0
  192. DATA 1,0,0,0,0,0,1,0,1,1,1,1
  193. DATA 1,0,1,1,1,1,1,0,0,0,0,1
  194. DATA 1,0,0,0,0,0,0,0,0,0,0,1
  195. DATA 1,0,0,0,0,0,0,0,0,0,0,1
  196. DATA 1,1,1,0,0,0,0,0,0,1,0,1
  197. DATA 0,1,2,1,1,1,1,1,1,1,0,1
  198. DATA 0,1,0,0,0,0,0,0,0,0,0,1
  199. DATA 0,1,1,1,1,1,1,1,1,1,1,1
  200. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  201.  
  202. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  203. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  204. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  205. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  206. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  207. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  208. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  209. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  210. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  211. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  212. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  213. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  214.  
  215. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  216. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  217. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  218. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  219. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  220. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  221. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  222. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  223. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  224. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  225. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  226. DATA 0,0,0,0,0,0,0,0,0,0,0,0
  227.  
  228.  
  229.  
  230.  
  231. '###################################################################################################################################
  232.  
  233. SUB _GL
  234.  
  235.  IF Allow_GL THEN
  236.  
  237.   _glClearColor 0, 0, 0, 1 '// Set background (clear) color to black
  238.   _glClearDepth 1 '                 // Set clear depth value to farthest
  239.   _glEnable _GL_DEPTH_TEST '         // Enables depth buffer for hidden surface removal
  240.   _glEnable _GL_TEXTURE_2D
  241.  
  242.   '// Setup a perspective view
  243.   _glMatrixMode _GL_PROJECTION
  245.   _gluPerspective 80, 800 / 600, 1, 400 '// Field of view, Aspect ratio, near depth, far depth
  246.   _glMatrixMode _GL_MODELVIEW
  248.  
  249.   IF Init_GL = True THEN
  250.  
  251.    '// Load models, terrain and other bits here
  252.    LevelBlock = GDK_GL_LOAD_TEXTURE("Block.PNG")
  253.    BallTexture = GDK_GL_LOAD_TEXTURE("Ball.PNG")
  254.    TargetTexture = GDK_GL_LOAD_TEXTURE("Target.PNG")
  255.    Enemyblock = GDK_GL_LOAD_TEXTURE("YellowBlock.png")
  256.  
  257.    '// Load level data
  258.    RESTORE LvlData:
  259.    LoadLevel
  260.    CurrentLevel = 1
  261.    LevelMax = 6
  262.  
  263.    '// Switch to rendering mode
  264.    Init_GL = False
  265.  
  266.   ELSE
  267.  
  268.    x% = -60
  269.    y% = 60
  270.    z% = -100
  271.    '// Clear the depth buffer and reset the view matrix (effectively CLS)
  272.    GDK_GL_CLS
  273.  
  274.    _glRotatef Rotation, 0, 0, 1
  275.  
  276.    EnemyCount = 0
  277.    FOR j% = 0 TO 11 'Row
  278.     x% = -60
  279.     FOR i% = 0 TO 11 'Column
  280.  
  281.      SELECT CASE Level(i%, j%)
  282.       CASE 1 '// Wall
  283.        GDK_GL_SET_TEXTURE LevelBlock
  284.        GDK_GL_CUBE x%, y%, z%, 10
  285.  
  286.       CASE 2 '// Target
  287.        GDK_GL_SET_TEXTURE TargetTexture
  288.        GDK_GL_CUBE x%, y%, z%, 10
  289.  
  290.       CASE 3 '// Player
  291.        GDK_GL_SET_TEXTURE BallTexture
  292.        _glPushMatrix
  293.        _glEnable GL_LIGHTING
  294.        _glEnable GL_LIGHT0
  295.        _glTranslatef x% + 5, y% - 5, -95
  296.        GDK_GL_SPHERE 5, 16, 16, -1
  297.        _glDisable GL_LIGHTING
  298.        _glPopMatrix
  299.  
  300.       CASE 4 '// Enemy
  301.        GDK_GL_SET_TEXTURE Enemyblock
  302.        GDK_GL_CUBE x%, y%, z%, 10
  303.  
  304.      END SELECT
  305.  
  306.      x% = x% + 10
  307.     NEXT
  308.     y% = y% - 10
  309.    NEXT
  310.   END IF
  311.  
  314.  
  315. '###################################################################################################################################
  316.  
  317. '// library inclusions
  318. REM $INCLUDE:'GDK_GL\GDK_GL.BM'
  319. REM $INCLUDE:'UnseenGDK.bm'
  320.  
  321. '###################################################################################################################################
  322.  
  323. SUB RotateArray
  324.  DIM CopyArray(11, 11) AS INTEGER
  325.  FOR Y% = 0 TO 11
  326.   FOR X% = 0 TO 11
  327.    CopyArray(X%, Y%) = Level(X%, Y%)
  328.   NEXT
  330.  FOR Y% = 0 TO 11
  331.   FOR X% = 0 TO 11
  332.    Level(11 - Y%, X%) = CopyArray(X%, Y%)
  333.   NEXT
  336.  
  337. '###################################################################################################################################
  338.  
  339. SUB LoadLevel
  340.  FOR j% = 0 TO 11
  341.   FOR i% = 0 TO 11
  342.    READ LevelBit%
  343.    IF LevelBit% = 9 THEN SYSTEM
  344.    Level(i%, j%) = LevelBit%
  345.    LvlBckUp(i%, j%) = LevelBit%
  346.   NEXT
  349.  
  350. '###################################################################################################################################
  351.  
  352.  

Extract the files to your Qb64 directory.

Enjoy and happy coding,

Unseen
* RotateGL.zip (Filesize: 22.61 KB, Downloads: 225)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Rotate (OpenGL version)
« Reply #1 on: August 22, 2020, 12:49:14 pm »
I get error message of missing library on line 9

Never mind, I don't want to put more stuff in QB folder. It's hell when QB64 gets updated.
« Last Edit: August 22, 2020, 01:00:21 pm by bplus »
Logged
Pages: [1]   Go Up
« previous next »