Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on March 07, 2018, 05:26:43 am

Title: 3D Spirograph
Post by: Ashish on March 07, 2018, 05:26:43 am
Hi There! :) You might have probably seen my 2D Spirograph here - www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14376.msg124179
Now, it comes with 3D Version. :)

Code: QB64: [Select]
  1. 'Coded By Ashish on 7 March, 2018
  2.  
  3. _TITLE "3D Spirograph"
  4.  
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6.  
  7. TYPE vec3
  8.     x AS SINGLE
  9.     y AS SINGLE
  10.     z AS SINGLE
  12.  
  13. TYPE sphere
  14.     pos AS vec3
  15.     r AS SINGLE
  16.     angX AS DOUBLE
  17.         angY AS DOUBLE
  18.         angZ AS DOUBLE
  19.     angStp AS DOUBLE
  21.  
  23.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  24.     SUB glutWireSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
  26.  
  27. DIM SHARED __sphere(6) AS sphere, glAllow AS _BYTE
  28. DIM SHARED tracer(12000) AS vec3, f
  29.  
  30. init:
  31. ERASE tracer
  32. v = 0
  33. f = 0
  34. __sphere(0).pos.x = 0
  35. __sphere(0).pos.y = 0
  36. __sphere(0).pos.z = 0
  37. __sphere(0).r = 1
  38. __sphere(0).angStp = p5random(.001, .1)
  39. __sphere(0).angX = p5random(0,_pi(2))
  40. __sphere(0).angY = p5random(0,_pi(2))
  41. __sphere(0).angZ = p5random(0,_pi(2))
  42. FOR i = 1 TO UBOUND(__sphere)
  43.     __sphere(i).pos.x = COS(__sphere(i - 1).angX) * __sphere(i - 1).r + __sphere(i - 1).pos.x
  44.     __sphere(i).pos.y = SIN(__sphere(i - 1).angY) * __sphere(i - 1).r + __sphere(i - 1).pos.y
  45.     __sphere(i).pos.z = SIN(__sphere(i - 1).angZ) * __sphere(i - 1).r + __sphere(i - 1).pos.z
  46.  
  47.     __sphere(i).r = __sphere(i - 1).r / 2
  48.     __sphere(i).angStp = p5random(-.1, .1)
  49.         __sphere(i).angX = p5random(0,_pi(2))
  50.         __sphere(i).angY = p5random(0,_pi(2))
  51.         __sphere(i).angZ = p5random(0,_pi(2))
  53.  
  55. glAllow = -1
  57.     k& = _KEYHIT
  58.     IF k& = ASC(" ") THEN GOTO init
  59.     FOR i = 0 TO UBOUND(__sphere)
  60.         __sphere(i).angX = __sphere(i).angX + __sphere(i).angStp
  61.                 __sphere(i).angY = __sphere(i).angY + __sphere(i).angStp
  62.                 __sphere(i).angZ = __sphere(i).angZ + __sphere(i).angStp
  63.     NEXT
  64.     f = f + 1
  65.     IF f > 4 THEN
  66.         v = v + 1
  67.         tracer(v) = __sphere(UBOUND(__sphere)).pos
  68.     END IF
  69.     _LIMIT 60
  70.     _DISPLAY
  72.  
  73. SUB _GL ()
  74.     STATIC clock!, glInit AS _BYTE, aspect#
  75.  
  76.     IF NOT glAllow THEN EXIT SUB
  77.     IF NOT glInit THEN
  78.         glInit = -1
  79.         _glViewport 0, 0, _WIDTH, _HEIGHT
  80.         aspect# = _WIDTH / _HEIGHT
  81.     END IF
  82.  
  83.     _glEnable _GL_DEPTH_TEST
  84.     '_glEnable _GL_BLEND
  85.  
  86.     _glEnable _GL_LIGHTING
  87.     _glEnable _GL_LIGHT0
  88.  
  89.     _glShadeModel _GL_SMOOTH
  90.  
  91.     _glMatrixMode _GL_PROJECTION
  93.     _gluPerspective 45.0, aspect#, 1.0, 100.0
  94.  
  95.     _glMatrixMode _GL_MODELVIEW
  97.  
  98.     gluLookAt 0, 0, -8, 0, 0, 0, 0, -1, 0
  99.  
  100.     _glTranslatef 0, 0, 0
  101.    _glRotatef clock! * 90, 0, 1, 0
  102.     _glColor4f 1, 1, 1, .3
  103.     _glLineWidth 1.0
  104.     glutWireSphere __sphere(0).r, UBOUND(__sphere) * 20, UBOUND(__sphere) * 20
  105.  
  106.     FOR i = 1 TO UBOUND(__sphere)
  107.         __sphere(i).pos.x = SIN(__sphere(i - 1).angX) * (__sphere(i - 1).r) + (__sphere(i - 1).pos.x)
  108.         __sphere(i).pos.y = COS(__sphere(i - 1).angY) * (__sphere(i - 1).r + __sphere(i).r) + (__sphere(i - 1).pos.y)
  109.         __sphere(i).pos.z = SIN(__sphere(i - 1).angZ) * (__sphere(i - 1).r) + (__sphere(i - 1).pos.z)
  110.         _glPushMatrix
  111.         _glTranslatef __sphere(i).pos.x, __sphere(i).pos.y, __sphere(i).pos.z
  112.         glutWireSphere __sphere(i).r, (UBOUND(__sphere) + 1 - i) * 20, (UBOUND(__sphere) + 1 - i) * 20
  113.         _glPopMatrix
  114.     NEXT
  115.     IF f > 6 THEN
  116.         _glDisable _GL_LIGHTING
  117.         _glDisable _GL_LIGHT0
  118.         _glTranslatef 0, 0, 0
  119.         _glLineWidth 2.0
  120.         _glPushMatrix
  121.         _glColor3f 1, 0, 0
  122.         FOR i = 1 TO f - 2
  123.             _glBegin _GL_LINES
  124.             _glColor3f map(tracer(i).x * tracer(i).y, -9, 9, .4, .1), map(tracer(i).x, -3, 3, .2, 1), map(tracer(i).y, -3, 3, 1, .2)
  125.             _glVertex3f tracer(i).x, tracer(i).y, tracer(i).z
  126.             _glVertex3f tracer(i + 1).x, tracer(i + 1).y, tracer(i + 1).z
  127.             _glEnd
  128.         NEXT
  129.         _glPopMatrix
  130.     END IF
  131.  
  132.     clock! = clock! + .01
  133.  
  134.     _glFlush
  136.  
  137.  
  138. 'taken from p5js.bas
  139. 'https://bit.ly/p5jsbas
  140. FUNCTION p5random! (mn!, mx!)
  141.     IF mn! > mx! THEN
  142.         SWAP mn!, mx!
  143.     END IF
  144.     p5random! = RND * (mx! - mn!) + mn!
  146.  
  147. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  148.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  150.  
  151.  
  152.  
  153.  
  154.  
Title: Re: 3D Spirograph
Post by: Ashish on March 08, 2018, 06:10:46 am
I've updated the code in the first post. Now it perfectly do the rotation in 3D Space.
Title: Re: 3D Spirograph
Post by: FellippeHeitor on March 08, 2018, 11:52:13 am
Now you're talking!
Title: Re: 3D Spirograph
Post by: Pete on March 08, 2018, 06:23:43 pm
http://qb64.thejoyfulprogrammer.com/showthread.php?tid=1276&pid=6523&rndtime=1520551405917538894#pid6523
Title: Re: 3D Spirograph
Post by: Ashish on March 09, 2018, 03:11:41 am
Quote from: FellippeHeitor on March 08, 2018, 11:52:13 am
Now you're talking!
what  you want to say?
Title: Re: 3D Spirograph
Post by: FellippeHeitor on March 09, 2018, 11:11:33 am
Quote from: Ashish on March 09, 2018, 03:11:41 am
Quote from: FellippeHeitor on March 08, 2018, 11:52:13 am
Now you're talking!
what  you want to say?

https://idioms.thefreedictionary.com/now+you%27re+talking
Text Only | Text with Attachments