« previous next »
Pages: [1] 2   Go Down

Author Topic: 3D : Sierpinski Cube  (Read 6889 times)

0 Members and 1 Guest are viewing this topic.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
3D : Sierpinski Cube
« on: February 28, 2020, 07:39:34 am »
Hi everyone! :) I think this fractal is populary known as Menger Sponge. It looks beautiful..
Try to change the value of iteration to 4 or 3. (GO ABOVE 4 AT YOUR OWN RISK). It makes my CPU fan on at value of 4.
Default value is 3.

Controls :-
  • Move mouse for rotation
EDIT: Last update 29 Feb '20
Code: QB64: [Select]
  1. 'Ashish Kushwaha
  2. '28 Feb, 2020s
  3. _TITLE "Menger Sponge"
  4. SCREEN _NEWIMAGE(600, 600, 32)
  5.  
  6. TYPE vec3
  7.     x AS SINGLE
  8.     y AS SINGLE
  9.     z AS SINGLE
  11.  
  13.     SUB glutSolidCube (BYVAL dsize AS DOUBLE)
  15.  
  16. iteration = 3
  17. size = 0.5
  18. n = (20 ^ iteration) - 1
  19.  
  20. DIM SHARED glAllow, cubeLoc(n) AS vec3, fundamentalCubeSize
  21. fundamentalCubeSize = size / (3 ^ iteration)
  22. initFractal 0, 0, 0, size, iteration
  23.  
  24. PRINT (n + 1); " Cubes will rendered with total of "; 8 * (n + 1); " vertices"
  25. PRINT "Hit a Key"
  27. glAllow = 1
  30.     _LIMIT 40
  32.  
  33. SUB _GL () STATIC
  34.     DIM clr(2)
  35.     IF glAllow = 0 THEN EXIT SUB
  36.     IF glInit = 0 THEN
  37.         _glViewport 0, 0, _WIDTH, _HEIGHT
  38.         aspect# = _WIDTH / _HEIGHT
  39.  
  40.         glInit = 1
  41.     END IF
  42.  
  43.     _glEnable _GL_DEPTH_TEST
  44.     _glClear _GL_DEPTH_BUFFER_BIT OR _GL_COLOR_BUFFER_BIT
  45.  
  46.     'LIGHTS CONFIG
  47.     _glEnable _GL_LIGHTING
  48.     _glEnable _GL_LIGHT0
  49.     clr(0) = 0.2: clr(1) = 0.2: clr(2) = 0.0
  50.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, _OFFSET(clr())
  51.     clr(0) = 0.8: clr(1) = 0.8: clr(2) = 0
  52.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, _OFFSET(clr())
  53.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, _OFFSET(clr())
  54.  
  55.     _glMatrixMode _GL_PROJECTION
  56.     _gluPerspective 50, aspect#, 0.1, 10
  57.  
  58.     _glMatrixMode _GL_MODELVIEW
  60.  
  61.     _glTranslatef 0, 0, -1
  62.     _glRotatef _MOUSEX, 0, 1, 0
  63.     _glRotatef _MOUSEY, 1, 0, 0
  64.  
  65.     drawFractal
  66.     _glFlush
  68.  
  69. SUB initFractal (x, y, z, s, N) 'x-position, y-position, z-position, size, N-> iteration
  70.     STATIC i
  71.     IF N = 0 THEN
  72.         cubeLoc(i).x = x
  73.         cubeLoc(i).y = y
  74.         cubeLoc(i).z = z
  75.         i = i + 1
  76.         ' ? "Added #",i
  77.         ' sleep
  78.         EXIT SUB
  79.     END IF
  80.     'top section
  81.     'sabse samne wali row, left to right
  82.     initFractal (x - s / 3), (y + s / 3), (z + s / 3), s / 3, N - 1
  83.     initFractal (x), (y + s / 3), (z + s / 3), s / 3, N - 1
  84.     initFractal (x + s / 3), (y + s / 3), (z + s / 3), s / 3, N - 1
  85.     'uske peeche wali row, left to right
  86.     initFractal (x - s / 3), (y + s / 3), (z), s / 3, N - 1
  87.     initFractal (x + s / 3), (y + s / 3), (z), s / 3, N - 1
  88.     'sabse peeche wali row, left to right
  89.     initFractal (x - s / 3), (y + s / 3), (z - s / 3), s / 3, N - 1
  90.     initFractal (x), (y + s / 3), (z - s / 3), s / 3, N - 1
  91.     initFractal (x + s / 3), (y + s / 3), (z - s / 3), s / 3, N - 1
  92.     'middle section
  93.     'sabse samne wali row, left to right
  94.     initFractal (x - s / 3), (y), (z + s / 3), s / 3, N - 1
  95.     initFractal (x + s / 3), (y), (z + s / 3), s / 3, N - 1
  96.     'sabse peeche wali row, left to right
  97.     initFractal (x - s / 3), (y), (z - s / 3), s / 3, N - 1
  98.     initFractal (x + s / 3), (y), (z - s / 3), s / 3, N - 1
  99.     'bottom section
  100.     'sabse samne wali row, left to right
  101.     initFractal (x - s / 3), (y - s / 3), (z + s / 3), s / 3, N - 1
  102.     initFractal (x), (y - s / 3), (z + s / 3), s / 3, N - 1
  103.     initFractal (x + s / 3), (y - s / 3), (z + s / 3), s / 3, N - 1
  104.     'uske peeche wali row, left to right
  105.     initFractal (x - s / 3), (y - s / 3), (z), s / 3, N - 1
  106.     initFractal (x + s / 3), (y - s / 3), (z), s / 3, N - 1
  107.     'sabse peeche wali row, left to right
  108.     initFractal (x - s / 3), (y - s / 3), (z - s / 3), s / 3, N - 1
  109.     initFractal (x), (y - s / 3), (z - s / 3), s / 3, N - 1
  110.     initFractal (x + s / 3), (y - s / 3), (z - s / 3), s / 3, N - 1
  111.  
  113.  
  114. SUB drawFractal ()
  115.     FOR i = 0 TO UBOUND(cubeLoc)
  116.         _glPushMatrix
  117.         _glTranslatef cubeLoc(i).x, cubeLoc(i).y, cubeLoc(i).z
  118.         glutSolidCube fundamentalCubeSize
  119.         _glPopMatrix
  120.     NEXT
  122.  
Screenshot_1.png

« Last Edit: February 29, 2020, 12:38:08 am 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: 3D : Sierpinski Cube
« Reply #1 on: February 28, 2020, 10:13:07 am »
Another great demo of Open_GL Ashish!
Logged

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #2 on: February 28, 2020, 01:05:48 pm »
Mighty cool.  It was easy to modify it to rotate by itself too. 

How is the color changed?
Logged
It works better if you plug it in.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #3 on: February 28, 2020, 02:31:17 pm »
Very nice work, Ashish!
Logged

Offline TerryRitchie

  • Seasoned Forum Regular
  • Posts: 495
  • Semper Fidelis
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #4 on: February 28, 2020, 05:21:03 pm »
Ashish, have you made any tutorials on the use of OpenGL within QB64? I need to migrate toward OpenGL but it feels like a monster in the closet to me. I have no idea where to even begin. Your OpenGL work amazes me.
Logged
In order to understand recursion, one must first understand recursion.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #5 on: February 29, 2020, 12:44:41 am »
Thank you @bplus, @Richard Frost , @Petr and @TerryRitchie
@Richard Frost
You can change color by changing color of the light. Go to line 51, and change value of clr(0), clr(1) and clr(2). These clr(0), clr(1), clr(2)
are basically the red, green & blue component of light. Value must be between 0 and 1. SO for color yellow, set clr(0) = 1, clr(1) = 1 and clr(2) = 0

@TerryRitchie
Learning OpenGL is easy... for basics please visit -> https://ashishkingdom.github.io/OpenGL-Tutorials
Please solve the exercise before moving to next section.
Site is in development.
« Last Edit: February 29, 2020, 12:46:29 am 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 TerryRitchie

  • Seasoned Forum Regular
  • Posts: 495
  • Semper Fidelis
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #6 on: February 29, 2020, 01:51:40 am »
Awesome! You are making tutorials. Yes, please do finish them, looking forward to the 3D sections.
Logged
In order to understand recursion, one must first understand recursion.

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #7 on: February 29, 2020, 08:36:25 am »
Thanks for the color info, Ashish.  It's a bit nicer with the colors slowly cycling, IMO.

I made the rotation automatic with:
tx = (tx + 1) MOD _WIDTH
ty = (ty + 1) MOD _HEIGHT
_glRotatef tx, 0, 1, 0
_glRotatef ty, 1, 0, 0

Color cycling, auto rotation, and killing that initial "press a key" intro is great for lazy people like me.

I hope you'll simulate this cube next:
&t=1s

Logged
It works better if you plug it in.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #8 on: March 14, 2020, 09:12:56 am »
Ashish, your graphical output of 27 cubes assembled into a larger cube is probably just what is needed in my Rubik's Cube Program.

https://www.qb64.org/forum/index.php?topic=894.0

There (because I have no skill with Open_GL and at the time I did not even know about _MAPTRIANGLE(3D)) I created all the mathematics for the graphics from scratch.  When (at some far-off time in the future) you have completed your Open_GL tutorials I should imagine that Open_GL would be ideal for the Rubik's Cube program.


Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #9 on: March 14, 2020, 09:59:01 am »
@Richard Frost  That's crazy. I'm sure you are joking with me.
@Qwerkey
Yeah. I thought about that once. It will be not be much harder to code one. Yeah, I'm working on the site as well as many other upcoming projects.
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 Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #10 on: March 22, 2020, 12:36:39 pm »
Why have you brought the Borg to QB64?!

We will all be assimilated!

Resistance is futile!


5 works fine... 6 might work someday(currently Not Responding).. 7 goes Out Of Memory, and 10 just looks at me like I'm Out Of My Mind!
Logged
Granted after becoming radioactive I only have a half-life!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #11 on: March 22, 2020, 04:54:07 pm »
Hey imagine playing snake Game on this surface!
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #12 on: March 23, 2020, 05:15:56 am »
Don't tempt me...
Logged
You're not done when it works, you're done when it's right.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #13 on: March 23, 2020, 05:45:29 am »
Everybody: Do tempt him!
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: 3D : Sierpinski Cube
« Reply #14 on: March 23, 2020, 09:21:20 am »
Thanks for trying it @Cobalt
Ok, I know here are some Star Trek/Star Wars fans.
It took a long time to understand what Cobalt mean in his reply until [banned user] helped me to understand Cobalt's message at Discord.

@bplus
I imagine snake moving on its surface and then suddenly it gets fall into the empty area on the surface. And then its head
appears from opposite face. ;)
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
Pages: [1] 2   Go Up
« previous next »