« previous next »
Pages: [1]   Go Down

Author Topic: 3D Knots by Ashish  (Read 7462 times)

0 Members and 1 Guest are viewing this topic.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
3D Knots by Ashish
« on: March 14, 2020, 11:59:21 am »
3D Knots

Author: @Ashish
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=169.msg902#msg902
Version: 1
Tags: [3D], [Graphics], [Open_GL]

Description:
Some mathematical knots or geometry, effected by SUB _GL

Source Code:
Code: QB64: [Select]
  1. 'Coded in QB64 by Ashish on 9 March, 2018
  2. 'http://paulbourke.net/geometry/knots/
  3. _TITLE "3D Knot [Press space for next knot]"
  4.  
  5. SCREEN _NEWIMAGE(700, 700, 32)
  6.  
  7. TYPE vec3
  8.     x AS SINGLE
  9.     y AS SINGLE
  10.     z AS SINGLE
  12. DECLARE LIBRARY 'used for camera.
  13.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  15.  
  16. DIM SHARED glAllow AS _BYTE, knot_type, ma 'knot_type store the type knot being drawn. ma store percentage of knot which is being drawn.
  17. knot_type = 1
  18. glAllow = -1
  19.  
  21.     k& = _KEYHIT
  22.     IF k& = ASC(" ") THEN
  23.         knot_type = knot_type + 1
  24.         ma = 0
  25.         IF knot_type > 7 THEN knot_type = 1 '7 knots are there.
  26.     END IF
  27.     _LIMIT 60
  29.  
  30. SUB _GL ()
  31.     STATIC glInit, clock
  32.     ' static r, pos, theta, phi, beta
  33.  
  34.     IF NOT glAllow THEN EXIT SUB
  35.  
  36.     IF NOT glInit THEN
  37.         glInit = -1
  38.         aspect# = _WIDTH / _HEIGHT
  39.         _glViewport 0, 0, _WIDTH, _HEIGHT
  40.     END IF
  41.  
  42.     _glEnable _GL_DEPTH_TEST 'We are doing 3D. This enables Z-Buffer.
  43.  
  44.     'set perspective configuration
  45.     _glMatrixMode _GL_PROJECTION
  47.     _gluPerspective 45.0, aspect#, 1.0, 100.0
  48.  
  49.     _glMatrixMode _GL_MODELVIEW
  51.     ' gluLookAt 0,0,-1,0,0,0,0,1,0
  52.  
  53.     _glColor3f 1, 1, 1 'set color
  54.     _glTranslatef 0, 0, 0 'not require. becoz, origin is already at 0,0,0
  55.     _glRotatef clock * 90, 0, 1, 0 'rotation along Y-axis
  56.     _glLineWidth 3.0 'width of the line.
  57.  
  58.     SELECT CASE knot_type
  59.         CASE 7 'equations are knots are taken from paulbourke site
  60.             _glBegin _GL_LINE_STRIP
  61.             'for animation, value of ma is gradually increased till a certain constant. In this case, it is pi.
  62.             FOR beta = 0 TO ma STEP .005
  63.                 r = .3 + .6 * SIN(6 * beta)
  64.                 theta = 2 * beta
  65.                 phi = _PI(.6) * SIN(12 * beta)
  66.                 x = r * COS(phi) * COS(theta)
  67.                 y = r * COS(phi) * SIN(theta)
  68.                 z = r * SIN(phi)
  69.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  70.                 _glVertex3f x, y, z 'draws it.
  71.             NEXT
  72.             _glEnd
  73.             IF ma <= _PI THEN ma = ma + .005
  74.             'others are made to be rendered in the same way.
  75.         CASE 6
  76.             _glBegin _GL_LINE_STRIP
  77.             FOR beta = 0 TO ma STEP .005
  78.                 r = 1.2 * 0.6 * SIN(_PI(.5) * 6 * beta)
  79.                 theta = 4 * beta
  80.                 phi = _PI(.2) * SIN(6 * beta)
  81.                 x = r * COS(phi) * COS(theta)
  82.                 y = r * COS(phi) * SIN(theta)
  83.                 z = r * SIN(phi)
  84.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  85.                 _glVertex3f x, y, z
  86.             NEXT
  87.             _glEnd
  88.             IF ma <= _PI(2) THEN ma = ma + .005
  89.         CASE 5
  90.             k = 1
  91.             _glBegin _GL_LINE_STRIP
  92.             FOR u = 0 TO ma STEP .005
  93.                 x = COS(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  94.                 y = SIN(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  95.                 z = -SIN(2 * u / (2 * k + 1)) / 5
  96.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  97.                 _glVertex3f x, y, z
  98.             NEXT
  99.             _glEnd
  100.             IF ma < _PI(4 * k + 2) THEN ma = ma + .045
  101.         CASE 4
  102.             k = 2
  103.             _glBegin _GL_LINE_STRIP
  104.             FOR u = 0 TO ma STEP .005
  105.                 x = COS(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  106.                 y = SIN(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  107.                 z = -SIN(2 * u / (2 * k + 1)) / 5
  108.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  109.                 _glVertex3f x, y, z
  110.             NEXT
  111.             _glEnd
  112.             IF ma < _PI(4 * k + 2) THEN ma = ma + .045
  113.         CASE 3
  114.             k = 3
  115.             _glBegin _GL_LINE_STRIP
  116.             FOR u = 0 TO ma STEP .005
  117.                 x = COS(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  118.                 y = SIN(u) * (2 - COS(2 * u / (2 * k + 1))) / 5
  119.                 z = -SIN(2 * u / (2 * k + 1)) / 5
  120.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  121.                 _glVertex3f x, y, z
  122.             NEXT
  123.             _glEnd
  124.             IF ma < _PI(4 * k + 2) THEN ma = ma + .045
  125.         CASE 2
  126.             _glBegin _GL_LINE_STRIP
  127.             FOR u = 0 TO ma STEP .005
  128.                 x = (41 * COS(u) - 18 * SIN(u) - 83 * COS(2 * u) - 83 * SIN(2 * u) - 11 * COS(3 * u) + 27 * SIN(3 * u)) / 200
  129.                 y = (36 * COS(u) + 27 * SIN(u) - 113 * COS(2 * u) + 30 * SIN(2 * u) + 11 * COS(3 * u) - 27 * SIN(3 * u)) / 200
  130.                 z = (45 * SIN(u) - 30 * COS(2 * u) + 113 * SIN(2 * u) - 11 * COS(3 * u) + 27 * SIN(3 * u)) / 200
  131.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  132.                 _glVertex3f x, y, z
  133.             NEXT
  134.             _glEnd
  135.             IF ma < _PI(2) THEN ma = ma + .005
  136.         CASE 1
  137.             _glBegin _GL_LINE_STRIP
  138.             FOR u = 0 TO ma STEP .005
  139.                 x = (-22 * COS(u) - 128 * SIN(u) - 44 * COS(3 * u) - 78 * SIN(3 * u)) / 200
  140.                 y = (-10 * COS(2 * u) - 27 * SIN(2 * u) + 38 * COS(4 * u) + 46 * SIN(4 * u)) / 200
  141.                 z = (70 * COS(3 * u) - 40 * SIN(3 * u)) / 200
  142.                 _glColor3f map(x, -1, 1, 0, 1), map(y, -1, 1, 0, 1), map(z, -1, 1, 0, 1)
  143.                 _glVertex3f x, y, z
  144.             NEXT
  145.             _glEnd
  146.             IF ma < _PI(2) THEN ma = ma + .005
  147.     END SELECT
  148.     _glFlush
  149.  
  150.     clock = clock + .01
  152.  
  153. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  154.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  156.  

 
3D Knots Screenshot.jpg
« Last Edit: March 27, 2020, 05:57:00 am by Qwerkey »
Logged
Pages: [1]   Go Up
« previous next »