« previous next »
Pages: [1]   Go Down

Author Topic: Interesting Result  (Read 4121 times)

0 Members and 1 Guest are viewing this topic.

Offline Craz1000

  • Forum Regular
  • Posts: 111
  • I'm OK
    • View Profile
    • Craz1000.net
Interesting Result
« on: March 02, 2019, 10:40:51 pm »
So I translated some OpenGL code from a program i started in BASIC4GL however the camera angle and movement isn't quite working right, anyone know what I am doing wrong?

Also I noticed to move the camera up you have to go negative, any way to flip the y axis?

Code: QB64: [Select]
  1. TYPE CAMERA
  2.     RotY AS _FLOAT
  3.     RotX AS _FLOAT
  4.     PosX AS _FLOAT
  5.     PosY AS _FLOAT
  6.     PosZ AS _FLOAT
  8.  
  9. TYPE Terrain
  10.     BlockSize AS INTEGER
  11.     Blocks AS INTEGER
  13.  
  14. DIM SHARED Cam AS CAMERA
  15. DIM SHARED Land AS Terrain
  16. DIM SHARED AllowSubGL
  17. Land.Blocks = 10
  18. Land.BlockSize = 10
  19. DIM SHARED Heightmap(Land.Blocks, Land.Blocks)
  20.  
  21.  
  22. Cam.PosX = (Land.Blocks * Land.BlockSize) / 2
  23. Cam.PosZ = (Land.Blocks * Land.BlockSize) / 2
  24. Cam.PosY = -2
  25.  
  26.  
  27.  
  28. SCREEN _NEWIMAGE(1024, 768, 32)
  29.  
  30. AllowSubGL = 1
  31.  
  33.     _LIMIT 100
  34.     LOCATE 1, 1
  35.     PRINT "Camera Position = CamPosX:"; Cam.PosX; "Cam.PosY"; Cam.PosY; "Cam.PosZ:"; Cam.PosZ
  36.     PRINT "Camera Aim = Cam.RotX:"; Cam.RotX; "Cam.RotY"; Cam.RotY
  37.     k$ = UCASE$(INKEY$)
  38.  
  39.     IF k$ = "W" THEN
  40.         Cam.PosX = Cam.PosX - SIN(Cam.RotY) * .3
  41.         Cam.PosZ = Cam.PosZ - COS(Cam.RotY) * .3
  42.         PRINT "W"
  43.     END IF
  44.     IF k$ = "S" THEN
  45.         Cam.PosX = Cam.PosX + SIN(Cam.RotY) * .3
  46.         Cam.PosZ = Cam.PosZ + COS(Cam.RotY) * .3
  47.         PRINT "S"
  48.     END IF
  49.  
  50.  
  52.         Cam.RotY = _MOUSEX
  53.         'XRotation = _MOUSEY
  54.     LOOP
  55.  
  56. LOOP UNTIL k$ = CHR$(27)
  58.  
  59.  
  61.     IF AllowSubGL = 0 THEN EXIT SUB
  62.  
  63.     T# = TIMER(0.001)
  64.     IF ETT# = 0 THEN ETT# = T#
  65.     ET# = T# - ETT#
  66.     ETT# = T#
  67.  
  68.     _glMatrixMode _GL_PROJECTION
  70.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100
  71.     _glEnable _GL_TEXTURE_2D
  72.     _glEnable _GL_BLEND
  73.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA
  74.     _glEnable _GL_DEPTH_TEST
  75.     _glDepthMask _GL_TRUE
  76.     _glAlphaFunc _GL_GREATER, 0.5
  77.     _glEnable _GL_ALPHA_TEST
  78.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  79.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
  80.     _glMatrixMode _GL_MODELVIEW
  82.     _glTranslatef Cam.PosX, Cam.PosY, Cam.PosZ
  83.     _glRotatef Cam.RotY, 0, 1, 0
  84.     _glRotatef Cam.RotX, 1, 0, 0
  85.  
  86.  
  87.     FOR Z = 0 TO Land.Blocks - 1
  88.         FOR X = 0 TO Land.Blocks - 1
  89.             _glBegin _GL_QUADS
  90.             _glColor3f 1, 0, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  91.             _glColor3f 0, 1, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  92.             _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  93.             _glColor3f 1, 1, 0: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  94.             _glEnd
  95.         NEXT X
  96.     NEXT Z
  98.  
« Last Edit: March 02, 2019, 10:47:12 pm by Craz1000 »
Logged

Offline Craz1000

  • Forum Regular
  • Posts: 111
  • I'm OK
    • View Profile
    • Craz1000.net
Re: Interesting Result
« Reply #1 on: March 03, 2019, 10:26:03 am »
I got the position and the rotation working, still haven't figured out the forward movement

Code: QB64: [Select]
  1. TYPE CAMERA
  2.     RotY AS DOUBLE
  3.     RotX AS DOUBLE
  4.     PosX AS DOUBLE
  5.     PosY AS DOUBLE
  6.     PosZ AS DOUBLE
  8.  
  9. TYPE Terrain
  10.     BlockSize AS INTEGER
  11.     Blocks AS INTEGER
  12.     MaxHeight AS INTEGER
  13.     MaxHeightChange AS INTEGER
  15.  
  16. DIM SHARED Cam AS CAMERA
  17. DIM SHARED Land AS Terrain
  18. Land.Blocks = 10
  19. Land.BlockSize = 10
  20.  
  21. DIM SHARED Heightmap(Land.Blocks, Land.Blocks)
  22. DIM SHARED AllowSubGL
  23.  
  24.  
  25. Cam.PosX = ((Land.Blocks * Land.BlockSize) / 2) - (Land.Blocks * Land.BlockSize)
  26. Cam.PosZ = ((Land.Blocks * Land.BlockSize) / 2) - (Land.Blocks * Land.BlockSize)
  27. Cam.PosY = -2
  28. Cam.RotY = 1
  29.  
  30. SCREEN _NEWIMAGE(1024, 768, 32)
  31. AllowSubGL = 1
  32.  
  34.     _LIMIT 100
  35.     LOCATE 1, 1
  36.     PRINT "Camera Position = CamPosX:"; Cam.PosX; "Cam.PosY"; Cam.PosY; "Cam.PosZ:"; Cam.PosZ
  37.     PRINT "Camera Aim = Cam.RotX:"; Cam.RotX; "Cam.RotY"; Cam.RotY; " Rad:"; SIN(Cam.RotY); " Deg:"; SIN(Cam.RotY) * 180 / (4 * ATN(1)); "                        "
  38.     k$ = UCASE$(INKEY$)
  39.  
  40.     IF k$ = "W" THEN
  41.         Cam.PosX = Cam.PosX + SIN(Cam.RotY)
  42.         Cam.PosZ = Cam.PosZ + COS(Cam.RotY)
  43.         PRINT "W"
  44.     END IF
  45.     IF k$ = "S" THEN
  46.         Cam.PosX = Cam.PosX - COS(Cam.RotY) * .3
  47.         Cam.PosZ = Cam.PosZ - SIN(Cam.RotY) * .3
  48.         PRINT "S"
  49.     END IF
  50.  
  52.         Cam.RotY = Cam.RotY + _MOUSEMOVEMENTX
  53.         'Cam.RotX = _MOUSEY / 10
  54.         IF Cam.RotY > 359 THEN Cam.RotY = 0
  55.         IF Cam.RotY < 0 THEN Cam.RotY = 359
  56.  
  57.     LOOP
  58.  
  59. LOOP UNTIL k$ = CHR$(27)
  61.  
  62.  
  64.     IF AllowSubGL = 0 THEN EXIT SUB
  65.  
  66.     T# = TIMER(0.001)
  67.     IF ETT# = 0 THEN ETT# = T#
  68.     ET# = T# - ETT#
  69.     ETT# = T#
  70.  
  71.     '_glMatrixMode _GL_PROJECTION
  72.     '_glLoadIdentity
  73.     _glMatrixMode _GL_MODELVIEW
  76.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100
  77.     _glEnable _GL_TEXTURE_2D
  78.     _glEnable _GL_BLEND
  79.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA
  80.     _glEnable _GL_DEPTH_TEST
  81.     _glDepthMask _GL_TRUE
  82.     _glAlphaFunc _GL_GREATER, 0.5
  83.     _glEnable _GL_ALPHA_TEST
  84.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  85.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
  86.     'load identity used to be here
  87.     _glRotatef Cam.RotY, 0, 1, 0
  88.     _glRotatef Cam.RotX, 1, 0, 0
  89.     _glTranslatef Cam.PosX, Cam.PosY, Cam.PosZ
  90.  
  91.  
  92.     FOR Z = 0 TO Land.Blocks - 1
  93.         FOR X = 0 TO Land.Blocks - 1
  94.             _glBegin _GL_QUADS
  95.             _glColor3f 1, 0, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  96.             _glColor3f 0, 1, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  97.             _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  98.             _glColor3f 1, 1, 0: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  99.             _glEnd
  100.         NEXT X
  101.     NEXT Z
  102.  
  103.  
  105.  
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Interesting Result
« Reply #2 on: March 03, 2019, 11:58:46 am »
Hi Craz1000! I would recommend you to use inbuilt gluLookAt() for camera related purpose. Your calculation about camera is correct
but it is resulting different due to rotation.
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Interesting Result
« Reply #3 on: March 03, 2019, 12:00:19 pm »
Here's a working example in which I modified your code (I've also cleaned some unwanted code) -
Use W,A,S,D for movement.
Code: QB64: [Select]
  1. TYPE CAMERA
  2.     RotY AS _FLOAT
  3.     RotX AS _FLOAT
  4.     PosX AS _FLOAT
  5.     PosY AS _FLOAT
  6.     PosZ AS _FLOAT
  8.  
  9. TYPE Terrain
  10.     BlockSize AS INTEGER
  11.     Blocks AS INTEGER
  13.  
  14. DIM SHARED Cam AS CAMERA
  15. DIM SHARED Land AS Terrain
  16. DIM SHARED AllowSubGL
  17. Land.Blocks = 10
  18. Land.BlockSize = 10
  19. DIM SHARED Heightmap(Land.Blocks, Land.Blocks)
  20.  
  21.  
  22. DECLARE LIBRARY 'camera related subroutine
  23.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  25.  
  26. Cam.PosX = (Land.Blocks * Land.BlockSize) / 2
  27. Cam.PosZ = (Land.Blocks * Land.BlockSize)
  28. Cam.PosY = 3
  29.  
  30.  
  31.  
  32. SCREEN _NEWIMAGE(1024, 768, 32)
  33.  
  34. AllowSubGL = 1
  35.  
  37.     _LIMIT 60
  38.     LOCATE 1, 1
  39.     PRINT "Camera Position = CamPosX:"; Cam.PosX; "Cam.PosY:"; Cam.PosY; "Cam.PosZ:"; Cam.PosZ
  40.     PRINT "Camera Aim = Cam.RotX:"; Cam.RotX; "Cam.RotY"; Cam.RotY
  41.     k$ = UCASE$(INKEY$)
  42.  
  43.     IF k$ = "W" THEN
  44.         Cam.PosZ = Cam.PosZ - 0.5
  45.         PRINT "W"
  46.     END IF
  47.     IF k$ = "S" THEN
  48.         Cam.PosZ = Cam.PosZ + 0.5
  49.         PRINT "S"
  50.     END IF
  51.     IF k$ = "A" THEN
  52.         Cam.PosX = Cam.PosX - 0.5
  53.         PRINT "A"
  54.     END IF
  55.     IF k$ = "D" THEN
  56.         Cam.PosX = Cam.PosX + 0.5
  57.         PRINT "D"
  58.     END IF
  59.  
  60.  
  62.         Cam.RotY = 270 + (_MOUSEX / _WIDTH) * 180
  63.         'Cam.RotX = _MOUSEx
  64.     LOOP
  65.  
  66. LOOP UNTIL k$ = CHR$(27)
  68.  
  69.  
  71.     IF AllowSubGL = 0 THEN EXIT SUB
  72.  
  73.  
  74.     _glMatrixMode _GL_PROJECTION
  76.  
  77.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100
  78.     _glEnable _GL_DEPTH_TEST
  79.     _glDepthMask _GL_TRUE
  80.  
  81.     _glMatrixMode _GL_MODELVIEW
  83.  
  84.     '_glTranslatef Cam.PosX, Cam.PosY, Cam.PosZ
  85.     '_glRotatef Cam.RotY, 0, 1, 0
  86.     '_glRotatef Cam.RotX, 1, 0, 0
  87.     _glRotatef Cam.RotY, 0, 1, 0
  88.  
  89.  
  90.     gluLookAt Cam.PosX, Cam.PosY, Cam.PosZ, Cam.PosX, 0, Cam.PosZ - 30, 0, 1, 0
  91.  
  92.  
  93.     FOR Z = 0 TO Land.Blocks - 1
  94.         FOR X = 0 TO Land.Blocks - 1
  95.             _glBegin _GL_QUADS
  96.             _glColor3f 1, 0, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  97.             _glColor3f 0, 1, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  98.             _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * (Z + 1)
  99.             _glColor3f 1, 1, 0: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  100.             _glEnd
  101.         NEXT X
  102.     NEXT Z
  104.  
  105.  
« Last Edit: March 03, 2019, 12:01:32 pm by Ashish »
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Interesting Result
« Reply #4 on: March 03, 2019, 12:55:23 pm »
That is a very nice demo of GL!
Logged

Offline Craz1000

  • Forum Regular
  • Posts: 111
  • I'm OK
    • View Profile
    • Craz1000.net
Re: Interesting Result
« Reply #5 on: March 03, 2019, 01:07:08 pm »
got it working after lots of trial and error, and added height

Code: QB64: [Select]
  1. TYPE CAMERA
  2.     RotY AS INTEGER
  3.     RotX AS SINGLE
  4.     PosX AS SINGLE
  5.     PosY AS SINGLE
  6.     PosZ AS SINGLE
  7.     Xmod AS SINGLE
  8.     Zmod AS SINGLE
  10.  
  11. TYPE Terrain
  12.     BlockSize AS INTEGER
  13.     Blocks AS INTEGER
  14.     MaxHeight AS INTEGER
  15.     MaxHeightChange AS INTEGER
  17.  
  18. DIM SHARED Cam AS CAMERA
  19. DIM SHARED Land AS Terrain
  20. Land.Blocks = 100
  21. Land.BlockSize = 10
  22.  
  23. DIM SHARED Heightmap(Land.Blocks + 1, Land.Blocks + 1) AS SINGLE
  24. DIM SHARED AllowSubGL
  25.  
  26.  
  27. SCREEN _NEWIMAGE(1024, 768, 32)
  28. Cam.PosX = ((Land.Blocks * Land.BlockSize) / 2) - (Land.Blocks * Land.BlockSize)
  29. Cam.PosZ = ((Land.Blocks * Land.BlockSize) / 2) - (Land.Blocks * Land.BlockSize)
  30. Cam.PosY = -2.5
  31. Cam.RotY = 0
  32. Cam.Xmod = 0
  33. Cam.Zmod = -1
  34. Land.MaxHeight = 2
  35.  
  36. CALL RandomizeHeightMap
  37.  
  38. AllowSubGL = 1
  39.  
  41.     _LIMIT 100
  42.     LOCATE 1, 1
  43.     PRINT "Camera Position = CamPosX:"; Cam.PosX; "Cam.PosY"; Cam.PosY; "Cam.PosZ:"; Cam.PosZ
  44.     PRINT "Camera Aim = Cam.RotX:"; Cam.RotX; "Cam.RotY"; Cam.RotY; " XMod:"; Cam.Xmod; " Zmod:"; Cam.Zmod; "                        "
  45.     k$ = UCASE$(INKEY$)
  46.  
  47.     IF k$ = "W" THEN
  48.         Cam.PosX = Cam.PosX - Cam.Xmod
  49.         Cam.PosZ = Cam.PosZ - Cam.Zmod
  50.     END IF
  51.  
  52.     IF k$ = "S" THEN
  53.         Cam.PosX = Cam.PosX + Cam.Xmod
  54.         Cam.PosZ = Cam.PosZ + Cam.Zmod
  55.     END IF
  56.  
  58.         Cam.RotY = Cam.RotY + _MOUSEMOVEMENTX
  59.         IF Cam.RotY > 359 THEN Cam.RotY = 0
  60.         IF Cam.RotY < 0 THEN Cam.RotY = 359
  61.  
  62.         IF Cam.RotY = 0 THEN Cam.Xmod = 0: Cam.Zmod = -1
  63.         IF Cam.RotY > 0 AND Cam.RotY < 91 THEN Cam.Xmod = Cam.RotY / 90
  64.         IF Cam.RotY > 90 AND Cam.RotY < 181 THEN Cam.Xmod = 1 - ((Cam.RotY - 90) / 90)
  65.         IF Cam.RotY > 180 AND Cam.RotY < 271 THEN Cam.Xmod = 2 - (Cam.RotY / 90)
  66.         IF Cam.RotY > 270 AND Cam.RotY < 360 THEN Cam.Xmod = -1 + ((Cam.RotY - 270) / 90)
  67.  
  68.  
  69.         IF Cam.RotY > 90 AND Cam.RotY < 181 THEN Cam.Zmod = (Cam.RotY - 90) / 90
  70.         IF Cam.RotY > 180 AND Cam.RotY < 271 THEN Cam.Zmod = 1 - ((Cam.RotY - 180) / 90)
  71.         IF Cam.RotY > 270 AND Cam.RotY < 360 THEN Cam.Zmod = 2 - ((Cam.RotY - 90) / 90)
  72.         IF Cam.RotY > 0 AND Cam.RotY < 91 THEN Cam.Zmod = -1 + (Cam.RotY / 90)
  73.  
  74.         'Cam.RotX = _MOUSEY / 10
  75.     LOOP
  76.  
  77. LOOP UNTIL k$ = CHR$(27)
  79.  
  80.  
  81. SUB RandomizeHeightMap
  82.     FOR X = 1 TO Land.Blocks + 1
  83.         FOR Z = 1 TO Land.Blocks + 1
  84.             Heightmap(X, Z) = RND * Land.MaxHeight
  85.         NEXT Z
  86.     NEXT X
  88.  
  89.  
  91.     IF AllowSubGL = 0 THEN EXIT SUB
  92.  
  93.     T# = TIMER(0.001)
  94.     IF ETT# = 0 THEN ETT# = T#
  95.     ET# = T# - ETT#
  96.     ETT# = T#
  97.  
  98.     '_glMatrixMode _GL_PROJECTION
  99.     '_glLoadIdentity
  100.     _glMatrixMode _GL_MODELVIEW
  103.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100
  104.     _glEnable _GL_TEXTURE_2D
  105.     _glEnable _GL_BLEND
  106.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA
  107.     _glEnable _GL_DEPTH_TEST
  108.     _glDepthMask _GL_TRUE
  109.     _glAlphaFunc _GL_GREATER, 0.5
  110.     _glEnable _GL_ALPHA_TEST
  111.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  112.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
  113.     'load identity used to be here
  114.     _glRotatef Cam.RotY, 0, 1, 0
  115.     _glRotatef Cam.RotX, 1, 0, 0
  116.     _glTranslatef Cam.PosX, Cam.PosY, Cam.PosZ
  117.  
  118.  
  119.     FOR Z = 0 TO Land.Blocks - 1
  120.         FOR X = 0 TO Land.Blocks - 1
  121.             _glBegin _GL_QUADS
  122.             _glColor3f 1, 0, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 1), Land.BlockSize * Z
  123.             _glColor3f 0, 1, 0: _glVertex3f Land.BlockSize * X, Heightmap(X + 1, Z + 2), Land.BlockSize * (Z + 1)
  124.             _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 2, Z + 2), Land.BlockSize * (Z + 1)
  125.             _glColor3f 1, 1, 0: _glVertex3f Land.BlockSize * (X + 1), Heightmap(X + 2, Z + 1), Land.BlockSize * Z
  126.             _glEnd
  127.         NEXT X
  128.     NEXT Z
  129.  
  130.  
  132.  
« Last Edit: March 03, 2019, 01:29:28 pm by Craz1000 »
Logged

Offline Craz1000

  • Forum Regular
  • Posts: 111
  • I'm OK
    • View Profile
    • Craz1000.net
Re: Interesting Result
« Reply #6 on: March 03, 2019, 05:37:04 pm »
Added better height mapping, water, and Y axis collision detection. Also removed some stuff Ashish removed on his post.

Need to figure out how to tilt camera up and down.

Code: QB64: [Select]
  1. TYPE CAMERA
  2.     RotX AS INTEGER
  3.     RotY AS INTEGER
  4.     RotZ AS INTEGER
  5.     PosX AS SINGLE
  6.     PosY AS SINGLE
  7.     PosZ AS SINGLE
  8.     Xmod AS SINGLE
  9.     Zmod AS SINGLE
  10.     Mode AS INTEGER
  12.  
  13. TYPE Terrain
  14.     BlockSize AS INTEGER
  15.     Blocks AS INTEGER
  16.     MaxHeight AS INTEGER
  17.     MinHeight AS INTEGER
  18.     MaxHeightChange AS INTEGER
  19.     EnableWater AS INTEGER
  20.     WaterHeight AS SINGLE
  21.     WaterSpeed AS SINGLE
  22.     MaxWaterHeight AS SINGLE
  23.     MinWaterHeight AS SINGLE
  24.     InitHeight AS INTEGER
  25.     MainRnd AS INTEGER
  27.  
  28. DIM SHARED Cam AS CAMERA
  29. DIM SHARED Land AS Terrain
  30.  
  31. Land.Blocks = 100
  32. Land.BlockSize = 10
  33.  
  34. DIM SHARED Heightmap(Land.Blocks + 1, Land.Blocks + 1) AS SINGLE
  35. DIM SHARED AllowSubGL
  36.  
  37.  
  38. SCREEN _NEWIMAGE(1024, 768, 32)
  39.  
  40. CALL InitTerrain
  41. CALL RandomizeHeightMap
  42. CALL SetCamera
  43.  
  44. AllowSubGL = 1
  45.  
  47.     junk = GetHeight(Cam.PosX, Cam.PosZ)
  48.     _LIMIT 100
  49.     LOCATE 1, 1
  50.     PRINT "Camera Position = CamPosX:"; Cam.PosX; "Cam.PosY"; Cam.PosY; "Cam.PosZ:"; Cam.PosZ
  51.     PRINT "Camera Aim = Cam.RotX:"; Cam.RotX; "Cam.RotY"; Cam.RotY; " Mode:"; Cam.Mode; "                        "
  52.     k$ = UCASE$(INKEY$)
  53.  
  54.     IF k$ = "1" THEN Cam.Mode = 1
  55.     IF k$ = "2" THEN Cam.Mode = 2
  56.     IF k$ = "3" THEN Cam.Mode = 3
  57.  
  58.     IF k$ = "W" THEN
  59.         Cam.PosX = Cam.PosX - Cam.Xmod
  60.         Cam.PosZ = Cam.PosZ - Cam.Zmod
  61.         CALL CheckCameraBoundary
  62.     END IF
  63.  
  64.     IF k$ = "S" THEN
  65.         Cam.PosX = Cam.PosX + Cam.Xmod
  66.         Cam.PosZ = Cam.PosZ + Cam.Zmod
  67.         CALL CheckCameraBoundary
  68.     END IF
  69.  
  71.         Cam.RotY = Cam.RotY + _MOUSEMOVEMENTX
  72.         IF Cam.RotY > 359 THEN Cam.RotY = 0
  73.         IF Cam.RotY < 0 THEN Cam.RotY = 359
  74.  
  75.         IF Cam.RotY = 0 THEN Cam.Xmod = 0: Cam.Zmod = -1
  76.         IF Cam.RotY > 0 AND Cam.RotY < 91 THEN Cam.Xmod = Cam.RotY / 90
  77.         IF Cam.RotY > 90 AND Cam.RotY < 181 THEN Cam.Xmod = 1 - ((Cam.RotY - 90) / 90)
  78.         IF Cam.RotY > 180 AND Cam.RotY < 271 THEN Cam.Xmod = 2 - (Cam.RotY / 90)
  79.         IF Cam.RotY > 270 AND Cam.RotY < 360 THEN Cam.Xmod = -1 + ((Cam.RotY - 270) / 90)
  80.  
  81.  
  82.         IF Cam.RotY > 90 AND Cam.RotY < 181 THEN Cam.Zmod = (Cam.RotY - 90) / 90
  83.         IF Cam.RotY > 180 AND Cam.RotY < 271 THEN Cam.Zmod = 1 - ((Cam.RotY - 180) / 90)
  84.         IF Cam.RotY > 270 AND Cam.RotY < 360 THEN Cam.Zmod = 2 - ((Cam.RotY - 90) / 90)
  85.         IF Cam.RotY > 0 AND Cam.RotY < 91 THEN Cam.Zmod = -1 + (Cam.RotY / 90)
  86.  
  87.         'Cam.RotX = _MOUSEY / 10
  88.         IF _MOUSEWHEEL = -1 THEN Cam.PosY = Cam.PosY - 1
  89.         IF _MOUSEWHEEL = 1 THEN Cam.PosY = Cam.PosY + 1
  90.         CALL CheckCameraBoundary
  91.     LOOP
  92.  
  93.     CALL AnimateWater
  94.  
  95. LOOP UNTIL k$ = CHR$(27)
  97.  
  98. SUB CheckCameraBoundary
  99.     IF Cam.PosX > -1 THEN Cam.PosX = -1
  100.     IF Cam.PosZ > -1 THEN Cam.PosZ = -1
  101.     IF Cam.PosX < -1 * (Land.Blocks * Land.BlockSize) THEN Cam.PosX = -1 * (Land.Blocks * Land.BlockSize)
  102.     IF Cam.PosZ < -1 * (Land.Blocks * Land.BlockSize) THEN Cam.PosZ = -1 * (Land.Blocks * Land.BlockSize)
  103.  
  104.     IF Cam.Mode = 1 THEN
  105.         IF (-1 * GetHeight!(Cam.PosX, Cam.PosZ)) < Land.WaterHeight THEN
  106.             Cam.PosY = -1 * (GetHeight!(Cam.PosX, Cam.PosZ)) - 2.5
  107.         ELSE
  108.             Cam.PosY = (-1 * Land.WaterHeight) - 2.5
  109.         END IF
  110.     END IF
  111.  
  112.     IF Cam.Mode = 2 THEN
  113.         IF Cam.PosY > -1 * (GetHeight!(Cam.PosX, Cam.PosZ)) - 2.5 THEN Cam.PosY = -1 * (GetHeight!(Cam.PosX, Cam.PosZ)) - 2.5
  114.     END IF
  116.  
  117. SUB InitTerrain
  118.     TerrainType = 1 'INT(RND * 3) + 1
  119.     IF TerrainType = 1 THEN
  120.         'Wetlands
  121.         Land.InitHeight = 15
  122.         Land.MaxHeightChange = 3
  123.         Land.MainRnd = 100
  124.         Land.EnableWater = 1
  125.         Land.MaxHeight = 50
  126.         Land.MinHeight = -15
  127.         Land.WaterHeight = 0
  128.         Land.MaxWaterHeight = 1
  129.         Land.WaterSpeed = 0.001
  130.     ELSEIF TerrainType = 2 THEN
  131.         'Mountains
  132.         Land.InitHeight = -50
  133.         Land.MaxHeightChange = 15
  134.         Land.MainRnd = 1000
  135.         Land.EnableWater = 0
  136.         Land.MaxHeight = -50
  137.         Land.MinHeight = 15
  138.     ELSEIF TerrainType = 3 THEN
  139.         'Graslands
  140.         Land.InitHeight = -15
  141.         Land.MaxHeightChange = 3
  142.         Land.MainRnd = 100
  143.         Land.EnableWater = 0
  144.         Land.MaxHeight = -50
  145.         Land.MinHeight = 15
  146.     END IF
  148.  
  149. SUB SetCamera
  150.     Cam.PosX = -1 '-1 * ((Land.Blocks * Land.BlockSize) / 2)
  151.     Cam.PosZ = -1 '-1 * ((Land.Blocks * Land.BlockSize) / 2)
  152.     Cam.PosY = (-1 * GetHeight!(Cam.PosX, Cam.PosZ)) - 2.5
  153.     Cam.RotY = 150
  154.     Cam.Xmod = 0
  155.     Cam.Zmod = -1
  156.     Cam.Mode = 1
  158.  
  159.  
  160. SUB RandomizeHeightMap
  161.     Heightmap(1, 1) = 1.1 * Land.InitHeight
  162.     FOR x = 2 TO Land.Blocks + 1
  163.         Direction = INT(RND * 2) + 1
  164.         IF Direction = 2 THEN
  165.             HeightChange = RND * Land.MaxHeightChange
  166.         ELSE
  167.             HeightChange = -1 * (RND * Land.MaxHeightChange)
  168.         END IF
  169.         Heightmap(x, 1) = Heightmap(x - 1, 1) + HeightChange
  170.         IF Heightmap(x, 1) > Land.MaxHeight THEN Heightmap(x, 1) = Land.MaxHeight
  171.         IF Heightmap(x, 1) < Land.MinHeight THEN Heightmap(x, 1) = Land.MinHeight
  172.     NEXT x
  173.     FOR z = 2 TO Land.Blocks + 1
  174.         Direction = INT(RND * 2) + 1
  175.         IF Direction = 2 THEN
  176.             HeightChange = RND * Land.MaxHeightChange
  177.         ELSE
  178.             HeightChange = -1 * (RND * Land.MaxHeightChange)
  179.         END IF
  180.         Heightmap(1, z) = Heightmap(1, z - 1) + HeightChange
  181.         IF Heightmap(1, z) > Land.MaxHeight THEN Heightmap(1, z) = Land.MaxHeight
  182.         IF Heightmap(1, z) < Land.MinHeight THEN Heightmap(1, z) = Land.MinHeight
  183.     NEXT z
  184.     FOR x = 2 TO Land.Blocks + 1
  185.         FOR z = 2 TO Land.Blocks + 1
  186.             Direction = INT(RND * 2) + 1
  187.             IF Direction = 2 THEN
  188.                 HeightChange = RND * Land.MaxHeightChange
  189.             ELSE
  190.                 HeightChange = -1 * (RND * Land.MaxHeightChange)
  191.             END IF
  192.             Heightmap(x, z) = ((Heightmap(x, z - 1) + Heightmap(x - 1, z)) / 2) + HeightChange
  193.             IF Heightmap(x, z) > Land.MaxHeight THEN Heightmap(x, z) = Land.MaxHeight
  194.             IF Heightmap(x, z) < Land.MinHeight THEN Heightmap(x, z) = Land.MinHeight
  195.         NEXT z
  196.     NEXT x
  198.  
  199.  
  200. SUB AnimateWater
  201.     Land.WaterHeight = Land.WaterHeight + Land.WaterSpeed
  202.     IF Land.WaterHeight >= Land.MaxWaterHeight OR Land.WaterHeight <= Land.MinWaterHeight THEN Land.WaterSpeed = Land.WaterSpeed * -1
  204.  
  205.  
  207.     IF AllowSubGL = 0 THEN EXIT SUB
  208.  
  209.  
  210.     '_glMatrixMode _GL_PROJECTION
  211.     '_glLoadIdentity
  212.     _glMatrixMode _GL_MODELVIEW
  214.     '_glPushMatrix
  215.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100
  216.     '_glEnable _GL_TEXTURE_2D
  217.     '_glEnable _GL_BLEND
  218.     '_glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA
  219.     _glEnable _GL_DEPTH_TEST
  220.     _glDepthMask _GL_TRUE
  221.     '_glAlphaFunc _GL_GREATER, 0.5
  222.     '_glEnable _GL_ALPHA_TEST
  223.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  224.     '_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
  225.     'load identity used to be here
  226.     _glRotatef Cam.RotY, 0, 1, 0
  227.     _glRotatef Cam.RotX, 1, 0, 0
  228.     _glRotatef Cam.RotZ, 0, 0, 1
  229.     _glTranslatef Cam.PosX, Cam.PosY, Cam.PosZ
  230.  
  231.  
  232.     FOR z = 0 TO Land.Blocks - 1
  233.         FOR x = 0 TO Land.Blocks - 1
  234.             _glBegin _GL_QUADS
  235.             _glColor3f 0, 1, 0: _glVertex3f Land.BlockSize * x, Heightmap(x + 1, z + 2), Land.BlockSize * (z + 1)
  236.             _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * (x + 1), Heightmap(x + 2, z + 2), Land.BlockSize * (z + 1)
  237.             _glColor3f 1, 1, 0: _glVertex3f Land.BlockSize * (x + 1), Heightmap(x + 2, z + 1), Land.BlockSize * z
  238.             _glColor3f 1, 0, 0: _glVertex3f Land.BlockSize * x, Heightmap(x + 1, z + 1), Land.BlockSize * z
  239.             _glEnd
  240.         NEXT x
  241.     NEXT z
  242.  
  243.     IF Land.EnableWater = 1 THEN
  244.         _glBegin _GL_QUADS
  245.         _glColor3f 0, 0, 1: _glVertex3f 0, Land.WaterHeight, 0
  246.         _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * Land.Blocks, Land.WaterHeight, 0
  247.         _glColor3f 0, 0, 1: _glVertex3f Land.BlockSize * Land.Blocks, Land.WaterHeight, Land.BlockSize * Land.Blocks
  248.         _glColor3f 0, 0, 1: _glVertex3f 0, Land.WaterHeight, Land.BlockSize * Land.Blocks
  249.         _glEnd
  250.     END IF
  252.  
  253.  
  254. FUNCTION GetHeight! (Tx, Tz)
  255.     MatrixX = ABS(INT(Tx / Land.BlockSize))
  256.     MatrixZ = ABS(INT(Tz / Land.BlockSize))
  257.  
  258.     SquareX = 1 - ((Tx / Land.BlockSize) + MatrixX)
  259.     SquareZ = 1 - ((Tz / Land.BlockSize) + MatrixZ)
  260.  
  261.     Triangle = 1
  262.     IF SquareZ < 1 - SquareX THEN Triangle = 2
  263.  
  264.     IF Triangle = 2 THEN
  265.         x1 = -1 * ((MatrixX - 1) * Land.BlockSize)
  266.         x2 = -1 * (MatrixX * Land.BlockSize)
  267.         x3 = -1 * ((MatrixX - 1) * Land.BlockSize)
  268.         z1 = -1 * ((MatrixZ - 1) * Land.BlockSize)
  269.         z2 = -1 * ((MatrixZ - 1) * Land.BlockSize)
  270.         z3 = -1 * (MatrixZ * Land.BlockSize)
  271.         y1 = Heightmap(MatrixX, MatrixZ)
  272.         y2 = Heightmap(MatrixX + 1, MatrixZ)
  273.         y3 = Heightmap(MatrixX, MatrixZ + 1)
  274.     END IF
  275.  
  276.     IF Triangle = 1 THEN
  277.         x1 = -1 * (MatrixX * Land.BlockSize)
  278.         x2 = -1 * (MatrixX * Land.BlockSize)
  279.         x3 = -1 * ((MatrixX - 1) * Land.BlockSize)
  280.         z1 = -1 * (MatrixZ * Land.BlockSize)
  281.         z2 = -1 * ((MatrixZ - 1) * Land.BlockSize)
  282.         z3 = -1 * (MatrixZ * Land.BlockSize)
  283.         y1 = Heightmap(MatrixX + 1, MatrixZ + 1)
  284.         y2 = Heightmap(MatrixX + 1, MatrixZ)
  285.         y3 = Heightmap(MatrixX, MatrixZ + 1)
  286.     END IF
  287.  
  288.     A = y1 * (z2 - z3) + y2 * (z3 - z1) + y3 * (z1 - z2)
  289.     B = z1 * (x2 - x3) + z2 * (x3 - x1) + z3 * (x1 - x2)
  290.     C = x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2)
  291.     D = 0 - (x1 * (y2 * z3 - y3 * z2) + x2 * (y3 * z1 - y1 * z3) + x3 * (y1 * z2 - y2 * z1))
  292.     GetHeight = 0 - (D + A * Tx + C * Tz) / B
  294.  
« Last Edit: March 03, 2019, 11:32:38 pm by Craz1000 »
Logged

Offline Craz1000

  • Forum Regular
  • Posts: 111
  • I'm OK
    • View Profile
    • Craz1000.net
Re: Interesting Result
« Reply #7 on: March 03, 2019, 09:06:53 pm »
Delete this post, figured out the issue.
« Last Edit: March 03, 2019, 10:36:53 pm by Craz1000 »
Logged
Pages: [1]   Go Up
« previous next »