Relief 3d multivariate parametric

[DANILIN]

Relief 3d multivariate parametric

3d relief of 2019 suddenly developed
and, in principle, there are developments of displacement in different directions
using mod function quantitatively and qualitatively

Next, an infinite 1-sided relief
or a 2-sided relief from array is possible

And it is also logical that colored grid should move
and angles can be changed axonometric

Code: QB64: [Select]

1. 'relorto.bas 5d relief orto
2. N = 200: q = 15: SCREEN 12: RANDOMIZE TIMER: DIM a(q+1, N)
3. FOR x = 1 TO q: FOR y = 1 TO N: a(x, y) = INT(RND*20): NEXT: NEXT
4.  
5. FOR t = 1 TO N-q
6.     FOR i = 1 TO q-1: FOR j = 1 TO q-1: a(i, j) = a(i, j+t): NEXT: NEXT: CLS
7.  
8.     FOR y = 1 TO q-1: FOR x = 1 TO q-2
9.         LINE (30+20*x+20*y, 400-20*y-a(x, y))-(30+20*(x+1)+20*y, 400-20*y-a(x+1, y)), (y+t MOD 7)+1
10.     NEXT: NEXT
11.  
12.     FOR x = 1 TO q-1: FOR y = 1 TO q-2
13.         LINE (30+20*x+20*y, 400-20*y-a(x, y))-(30+20*(x+1)+20*y, 400-20*(y+1)-a(x, y+1)), 7
14. NEXT: NEXT: _DELAY 0.3: NEXT
15. END

Animation 300 kB

 

Changed a little and edges of field became undulating
and colored grid should move

[DANILIN]

main thing: formula inside array
feature: increment of cycle by simply adding a step probably accelerates

Code: QB64: [Select]

1. N = 200: q = 15: SCREEN 12: RANDOMIZE TIMER: DIM a(q+1, N)'relup.bas 5d relief up
2. FOR x = 1 TO q: FOR y = 1 TO N-5:
3.         IF INT(RND*100) MOD 7 = 5 THEN
4.             a(x, y) = 5: a(x, y+1) = 10: a(x, y+2) = 20: a(x, y+3) = 40: a(x, y+4) = 80: y = y+5
5.         END IF
6. NEXT: NEXT
7. FOR t = 1 TO N-q
8.     FOR i = 1 TO q-1: FOR j = 1 TO q-1: a(i, j) = a(i, j+t): NEXT: NEXT: CLS
9.  
10.     FOR y = 1 TO q-1: FOR x = 1 TO q-2
11.             LINE (30+20*x+20*y, 400-20*y-a(x, y))-(30+20*(x+1)+20*y, 400-20*y-a(x+1, y)), (y+t MOD 7)+1
12.     NEXT: NEXT
13.  
14.     FOR x = 1 TO q-1: FOR y = 1 TO q-2
15.             LINE (30+20*x+20*y, 400-20*y-a(x, y))-(30+20*(x+1)+20*y, 400-20*(y+1)-a(x, y+1)), 7
16. NEXT: NEXT: _DELAY 0.2: NEXT
17. END

 

animation 300 KB

variant: CLS or
LINE (50, 30)-(600, 400), 0, BF

[dbox]

Hey @DANILIN, great example.  I will plan to include the color table for the various screen modes so the simple indexed color numbers can be used in the next build.  I'm compiling a list of bugs and requests that I'm planning to add to the Roadmap page on the qbjs github so we can keep track of what's coming in upcoming releases.

Ooops, I posted this to the wrong thread.