Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on December 19, 2021, 11:53:34 am

Title: Graphics Test #3D - are you certifiable?
Post by: bplus on December 19, 2021, 11:53:34 am
3D very popular these days, try a cube of cubes:
 

 
Title: Re: Graphics Test #3 - are you certifiable?
Post by: _vince on December 21, 2021, 04:54:08 pm
I'll leave this relic from that gem of a thread.  Can I get a free pass?

Code: QB64: [Select]
  1. dim shared pi, sw, sh
  2. pi = 4*atn(1)
  3. sw = 640
  4. sh = 480
  5.  
  6. rr = 500
  7. h = 1200
  8.  
  10.  
  12.         for t=0 to h step 10
  13.                 cls
  14.                 hyperb rr, t, 0, 0
  15.  
  16.                 _display
  17.                 _limit 100
  18.         next
  19.  
  20.         for b=0 to 0.80*pi/2 step 0.008
  21.                 cls
  22.                 hyperb rr, h, b, 0
  23.  
  24.                 _display
  25.                 _limit 100
  26.         next
  27.  
  28.         _delay 0.5
  29.  
  30.         for rot = 0 to 0.9*pi/2 step 0.01
  31.                 cls
  32.                 hyperb rr, h, 0.80*pi/2, rot
  33.  
  34.                 _display
  35.                 _limit 100
  36.         next
  37.  
  38.         _delay 0.5
  39.  
  40.         for i=0 to 1 step 0.005
  41.                 cls
  42.                 hyperb rr, h, (1 - i)*0.80*pi/2, (1 - i)*0.9*pi/2
  43.  
  44.                 _display
  45.                 _limit 100
  46.         next
  47.  
  48.         for t=0 to h step 10
  49.                 cls
  50.                 hyperb rr, h-t, 0, 0
  51.  
  52.                 _display
  53.                 _limit 100
  54.         next
  57.  
  58. 'radius, height, twist, rotate
  59. sub hyperb (r, h, b, rot)
  60.         a = 0
  61.         x = r*cos(a - b)
  62.         z = r*sin(a - b)
  63.         y = -h/2 + 200
  64.  
  65.         yy = y*cos(rot) - z*sin(rot)
  66.         zz = y*sin(rot) + z*cos(rot)
  67.         y = yy
  68.         z = zz
  69.  
  70.         ox = x
  71.         oz = z
  72.         oy = y
  73.  
  74.  
  75.         x = r*cos(a + b)
  76.         z = r*sin(a + b)
  77.         y = h/2 + 200
  78.  
  79.         yy = y*cos(rot) - z*sin(rot)
  80.         zz = y*sin(rot) + z*cos(rot)
  81.         y = yy
  82.         z = zz
  83.  
  84.         oxx = x
  85.         oyy = y
  86.         ozz = z
  87.  
  88.  
  89.         for a = 2*pi/30 to 2*pi step 2*pi/30
  90.                 x = r*cos(a - b)
  91.                 z = r*sin(a - b)
  92.                 y = -h/2 + 200
  93.  
  94.                 yy = y*cos(rot) - z*sin(rot)
  95.                 zz = y*sin(rot) + z*cos(rot)
  96.                 y = yy
  97.                 z = zz
  98.  
  99.                 pset  (sw/2 + ox*700/(oz + 2500), sh/2 - 50 + oy*700/(oz + 2500))
  100.                 line -(sw/2 +  x*700/( z + 2500), sh/2 - 50 +  y*700/( z + 2500))
  101.  
  102.                 ox = x
  103.                 oy = y
  104.                 oz = z
  105.  
  106.  
  107.                 x = r*cos(a + b)
  108.                 z = r*sin(a + b)
  109.                 y = h/2 + 200
  110.  
  111.                 yy = y*cos(rot) - z*sin(rot)
  112.                 zz = y*sin(rot) + z*cos(rot)
  113.                 y = yy
  114.                 z = zz
  115.  
  116.                 line -(sw/2 +   x*700/(  z + 2500), sh/2 - 50 +   y*700/(  z + 2500))
  117.                 line -(sw/2 + oxx*700/(ozz + 2500), sh/2 - 50 + oyy*700/(ozz + 2500))
  118.  
  119.                 oxx = x
  120.                 oyy = y
  121.                 ozz = z
  122.         next
  124.  
Title: Re: Graphics Test #3D - are you certifiable?
Post by: bplus on December 21, 2021, 05:29:18 pm
Hi @_vince

Yeah! I saved that with a number of your posts, great stuff!

I hope folks don't mind if we drag it out to show again, maybe with a new mod or twist...

Bring your 3d experiments here :)
Text Only | Text with Attachments