Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: DANILIN on November 17, 2021, 11:18:56 am

Title: Relief 3d multivariate parametric
Post by: DANILIN on November 17, 2021, 11:18:56 am
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

Animation 300 kB

 


Changed a little and edges of field became undulating
and colored grid should move
Title: Re: Relief 3d multivariate parametric
Post by: DANILIN on November 22, 2021, 06:10:42 am
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
  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

 


animation 300 KB

variant: CLS or
LINE (50, 30)-(600, 400), 0, BF
Title: Re: Relief 3d multivariate parametric
Post by: dbox on February 23, 2022, 09:27:53 am
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.
Text Only | Text with Attachments