Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on January 14, 2021, 09:55:06 pm

Title: Fun With Math Graphics 4
Post by: SierraKen on January 14, 2021, 09:55:06 pm
There's 3 different sequences on this one, but each one takes around a minute or less to watch draw. Feel free to add, change, or do whatever to it, just like the others I've posted in the past.
Enjoy.

Code: QB64: [Select]
  1. DIM seconds AS SINGLE
  5. DIM seconds2 AS SINGLE
  9. DIM angle AS SINGLE
  10. DIM angle2 AS SINGLE
  12.  
  13. SCREEN _NEWIMAGE(800, 600, 32)
  14. _TITLE "Fun Math Graphics 4 by SierraKen"
  15. angle = 15
  16. angle2 = 15
  17. seconds2 = 60
  19.     DO
  20.         _LIMIT 400
  21.         seconds = seconds + .1
  22.         s = (60 - seconds) * 6 + 180
  23.         x = INT(SIN(s / angle * 3.141592) * 90) + 400
  24.         y = INT(COS(s / 180 * 3.141592) * 180) + 300
  25.         seconds2 = seconds2 - .1
  26.         s2 = (60 - seconds2) * 6 + 180
  27.         x2 = INT(SIN(s2 / angle2 * 3.141592) * 90) + 400
  28.         y2 = INT(COS(s2 / 180 * 3.141592) * 180) + 300
  29.         PSET (x, y), _RGB32(255, 0, 0)
  30.         PSET (x2, y2), _RGB32(0, 255, 0)
  31.         IF seconds > 60 THEN
  32.             seconds = 0
  33.             seconds2 = 60
  34.             angle = angle + 15
  35.             angle2 = angle2 + 15
  36.             GOTO two:
  37.         END IF
  38.     LOOP
  39.     two:
  40.     t = t + 1
  41.     IF t = 33 THEN GOTO more:
  43. more:
  44. t = 0
  45. angle = 15
  46. angle2 = 15
  49.     DO
  50.         _LIMIT 400
  51.         seconds = seconds + .1
  52.         s = (60 - seconds) * 6 + 180
  53.         x = INT(SIN(s / 180 * 3.141592) * 90) + 400
  54.         y = INT(COS(s / angle * 3.141592) * 180) + 300
  55.         seconds2 = seconds2 - .1
  56.         s2 = (60 - seconds2) * 6 + 180
  57.         x2 = INT(SIN(s2 / 180 * 3.141592) * 90) + 400
  58.         y2 = INT(COS(s2 / angle2 * 3.141592) * 180) + 300
  59.         PSET (x, y), _RGB32(255, 0, 0)
  60.         PSET (x2, y2), _RGB32(0, 255, 0)
  61.         IF seconds > 60 THEN
  62.             seconds = 0
  63.             seconds2 = 60
  64.             angle = angle + 15
  65.             angle2 = angle2 + 15
  66.             GOTO two2:
  67.         END IF
  68.     LOOP
  69.     two2:
  70.     t = t + 1
  71.     IF t = 33 THEN GOTO more2:
  73. more2:
  74. three:
  75. t = 0
  76. angle = 15
  77. angle2 = 15
  80.     DO
  81.         _LIMIT 400
  82.         seconds = seconds + .1
  83.         s = (60 - seconds) * 6 + 180
  84.         x = INT(SIN(s / 90 * 3.141592) * 90) + 400
  85.         y = INT(COS(s / angle * 3.141592) * 180) + 300
  86.         seconds2 = seconds2 - .1
  87.         s2 = (60 - seconds2) * 6 + 180
  88.         x2 = INT(SIN(s2 / 90 * 3.141592) * 90) + 400
  89.         y2 = INT(COS(s2 / angle2 * 3.141592) * 180) + 300
  90.         PSET (x, y), _RGB32(255, 0, 0)
  91.         PSET (x2, y2), _RGB32(0, 255, 0)
  92.         IF seconds > 60 THEN
  93.             seconds = 0
  94.             seconds2 = 60
  95.             angle = angle + 150
  96.             angle2 = angle2 + 150
  97.             GOTO two3:
  98.         END IF
  99.     LOOP
  100.     two3:
  101.     t = t + 1
  102.     IF t = 33 THEN t = 0: GOTO more3:
  104. more3:
  105. 'Add anything you wish.
  106.  
Title: Re: Fun With Math Graphics 4
Post by: OldMoses on January 15, 2021, 06:18:06 am
That's a cool looking effect.
Title: Re: Fun With Math Graphics 4
Post by: SierraKen on January 15, 2021, 02:48:58 pm
Thanks OldMoses, often when I am out of ideas to program, I turn to graphic manipulation. :)
Title: Re: Fun With Math Graphics 4
Post by: _vince on January 15, 2021, 07:54:14 pm
nice, reminds me of

Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  3. CONST z0 = 2500
  4. CONST y0 = -200
  5. CONST d = 700
  6.  
  7. CONST sw = 640
  8. CONST sh = 480
  9.  
  11. pi = 4 * ATN(1)
  12.  
  13. SCREEN _NEWIMAGE(sw, sh, 32)
  14.  
  15.  
  18. t = 0
  20.     t = t + 0.1
  21.     h = 120 + 100 * SIN(t)
  22.  
  23.     LINE (0, 0)-(sw, sh), _RGB(0, 0, 0), BF
  24.  
  25.     ox = 500 * COS(0)
  26.     oz = 500 * SIN(0)
  27.     oy = -500 + 0 * h / (2 * pi)
  28.     'PSET (sw / 2 + ox * d / (oz + z0), sh / 2 - (oy + y0) * d / (oz + z0))
  29.  
  30.     FOR a = 0.1 TO 15 * 2 * pi STEP 0.01
  31.         x = 500 * COS(a)
  32.         z = 500 * SIN(a)
  33.         y = -500 + a * h / (2 * pi)
  34.  
  35.         DIM dy AS SINGLE
  36.         FOR dy = 6 TO 0 STEP -.5
  37.             LINE (sw / 2 + ox * d / (oz + z0), sh / 2 - (oy + y0) * d / (oz + z0) + dy)-(sw / 2 + x * d / (z + z0) + 6, sh / 2 - (y + y0) * d / (z + z0) + dy), _RGB32(185 - dy * 17), BF
  38.         NEXT
  39.  
  40.         ox = x
  41.         oy = y
  42.         oz = z
  43.     NEXT
  44.  
  45.     _DISPLAY
  46.     _LIMIT 30
  49.  
Title: Re: Fun With Math Graphics 4
Post by: bplus on January 15, 2021, 08:10:02 pm
I found this looking for another thing this reminds me of:
Code: QB64: [Select]
  1. _TITLE "3D Sinusoidal Plot by Hectic"
  2. SCREEN _NEWIMAGE(720, 720, 32)
  4.     _LIMIT 25
  5.     za# = za# + 1
  6.     FOR qq# = 0 TO 4999
  7.         x1# = SIN(_D2R(qq# / 2)) / 4
  8.         y1# = COS(_D2R(qq# / 1.5)) / 8
  9.         x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  10.         y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  11.         LINE (x2# + 360, y2# + 360)-(x2# + 363, y2# + 363), _RGB(ABS(SIN(_D2R(qq# / 20))) * 255, 0, ABS(COS(_D2R(qq# / 20))) * 255), BF
  12.     NEXT
  13.     _DISPLAY
  14.     CLS
  16. 'SYSTEM
  17.  
  18.  
Title: Re: Fun With Math Graphics 4
Post by: SierraKen on January 15, 2021, 11:09:23 pm
B+, I took yours and removed the central scribble part of it and turned it into green stars or dots, with trails, that circle around in 3D. Thanks! This does look a little familiar though, you might have made this last year, or someone else posted it. But I can't believe I figured it out. :)
Vince, yep, I still have that spring from last time you posted it awhile back. :) Awesome stuff.

Here is my mod from B+'s post.   

Code: QB64: [Select]
  1. _TITLE "3D Sinusoidal Plot by Hectic - Mod by SierraKen"
  2. SCREEN _NEWIMAGE(720, 720, 32)
  4.     _LIMIT 25
  5.     za# = za# + 1
  6.     FOR qq# = 3000 TO 3500
  7.         'FOR qq# = 0 TO 4999
  8.         'x1# = SIN(_D2R(qq# / 2)) / 4
  9.         'y1# = COS(_D2R(qq# / 1.5)) / 8
  10.         'x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  11.         'y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  12.         'LINE (x2# + 360, y2# + 360)-(x2# + 363, y2# + 363), _RGB(ABS(SIN(_D2R(qq# / 20))) * 255, 0, ABS(COS(_D2R(qq# / 20))) * 255), BF
  13.         x1# = SIN(_D2R(qq# / 2))
  14.         y1# = COS(_D2R(qq# / 1.5))
  15.         x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  16.         y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  17.         CIRCLE (x2# + 360, y2# + 360), 1, _RGB32(0, 255, 0)
  18.     NEXT
  19.     _DISPLAY
  20.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  22. 'SYSTEM
  23.  
Title: Re: Fun With Math Graphics 4
Post by: SierraKen on January 16, 2021, 01:07:24 am
Here's an even better mod. Now you can see mathematical curves along the outer sides. :)

Code: QB64: [Select]
  1. _TITLE "3D Sinusoidal Plot by Hectic - Mod by SierraKen"
  2. SCREEN _NEWIMAGE(720, 720, 32)
  4.     _LIMIT 25
  5.     za# = za# + 2
  6.     FOR qq# = 3000 TO 3500 STEP .25
  7.         'FOR qq# = 0 TO 4999
  8.         'x1# = SIN(_D2R(qq# / 2)) / 4
  9.         'y1# = COS(_D2R(qq# / 1.5)) / 8
  10.         'x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  11.         'y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  12.         'LINE (x2# + 360, y2# + 360)-(x2# + 363, y2# + 363), _RGB(ABS(SIN(_D2R(qq# / 20))) * 255, 0, ABS(COS(_D2R(qq# / 20))) * 255), BF
  13.         x1# = SIN(_D2R(qq# / 2))
  14.         y1# = COS(_D2R(qq# / 1.5))
  15.         x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  16.         y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  17.         CIRCLE (x2# + 360, y2# + 360), 3, _RGB32(0, 255, 0)
  18.     NEXT
  19.     _DISPLAY
  20.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  22. 'SYSTEM
  23.  
Title: Re: Fun With Math Graphics 4
Post by: bplus on January 16, 2021, 08:03:34 am
Nice mods Ken!
Title: Re: Fun With Math Graphics 4
Post by: SierraKen on January 16, 2021, 11:31:42 am
Thanks B+ :).
Title: Re: Fun With Math Graphics 4
Post by: SierraKen on January 16, 2021, 11:45:47 am
Here's a flying text mod I just made. :) Just add any small word and it makes that word fly around.

Code: QB64: [Select]
  1. _TITLE "3D Sinusoidal Plot by Hectic - Text Mod by SierraKen"
  2. SCREEN _NEWIMAGE(720, 720, 32)
  3. go:
  4. LOCATE 1, 1
  5. INPUT "Type a small word here: ", w$
  7.     _LIMIT 25
  8.     za# = za# + 1
  9.     FOR qq# = 3000 TO 3500
  10.         x1# = SIN(_D2R(qq# / 2))
  11.         y1# = COS(_D2R(qq# / 1.5))
  12.         x2# = SIN(_D2R(qq# * x1# + za#)) * (qq# + x1#) / 15
  13.         y2# = COS(_D2R(qq# * y1#)) * (qq# + y1#) / 15
  14.         _PRINTSTRING (x2# + 360, y2# + 360), w$
  15.     NEXT
  16.     _DISPLAY
  17.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  19. GOTO go:
  20.  
Text Only | Text with Attachments