Graphics Test #3D - are you certifiable?

[bplus]

3D very popular these days, try a cube of cubes:
 

 

[_vince]

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.  
9. screen 12
10.  
11. do
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
55. loop
56. system
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
123. end sub
124.  

[bplus]

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 :)