Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on April 29, 2020, 07:30:40 pm

Title: More Graphics Patterns
Post by: SierraKen on April 29, 2020, 07:30:40 pm
Hi everyone,

First I want to say a I'm sorry for being gone since around December. The biggest reason I stopped programming is because I was just out of ideas for the kind of programming I knew and didn't have enough patience with myself to learn more. But finally today I decided to mess around with graphics patterns again. I've made similar stuff in the past but nothing exactly like this. I'm glad all or most of you are still around programming. The other day I removed my website of programs but I told myself that I can still post them here in the forum.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. x2 = 400: y2 = 300
  5.     st = RND
  6.     c1 = INT(RND * 200) + 54
  7.     c2 = INT(RND * 200) + 54
  8.     c3 = INT(RND * 200) + 54
  9.     s = 0
  10.     FOR d = 0 TO 250 STEP st
  11.         _LIMIT 2000
  12.         s = s + 2
  13.         x = COS(s * 3.141592 / 30) * d
  14.         y = SIN(s * 3.151492 / 30) * d
  15.         CIRCLE (x + 400, y + 300), 20, _RGB32(c1, c2, c3)
  16.         PAINT (x + 400, y + 300), _RGB32(c1, c2, c3)
  17.     NEXT d
  19.  

 
Title: Re: More Graphics Patterns
Post by: OldMoses on April 29, 2020, 07:37:56 pm
Welcome back, it really is amazing the psychedelics that can be made with a few math functions and some trim code.
Title: Re: More Graphics Patterns
Post by: SierraKen on April 29, 2020, 07:47:32 pm
Thanks OldMoses! LOL Yeah. I might tinker a bit more soon with programming, if I can think of stuff. :)
Title: Re: More Graphics Patterns
Post by: STxAxTIC on April 29, 2020, 08:13:22 pm
Welcome Ken - glad to have you around again.
Title: Re: More Graphics Patterns
Post by: SierraKen on April 29, 2020, 09:01:04 pm
Thanks Static. :)
Title: Re: More Graphics Patterns
Post by: bplus on April 29, 2020, 09:13:32 pm
Hey @SierraKen,

I was wondering where you were.

I leaned allot from playing with graphics.
Title: Re: More Graphics Patterns
Post by: SierraKen on April 29, 2020, 11:11:49 pm
Hey bplus, thanks. I just didn't want to cause a scene. Anyway, I hope to keep programming sometimes. Probably won't be as much as before. Plus having a website made it even more work on me. Now I don't have to worry about that.
Title: Re: More Graphics Patterns
Post by: Dav on April 30, 2020, 05:12:09 pm
Hi Ken.  Nice effect in a small amount of code.  Weird -- I was working on almost the exact same kind of thing.  We must be on the same wave length or something!  Well, here's mine...

Code: QB64: [Select]
  1.  
  2. SCREEN _NEWIMAGE(600, 600, 32)
  3.  
  4. x = _WIDTH / 2
  5. y = _HEIGHT / 2
  6.  
  8.     v = RND * 100 + 5
  9.     FOR t = 1 TO x
  10.         x1 = (COS(t) * z) + x
  11.         y1 = (SIN(t) * z) + y
  12.         fill = _RGB(r, g, b)
  13.         CIRCLE (x1, y1), z / v, fill
  14.         PAINT (x1, y1), fill
  15.         z = z + 1: IF z > x * 2.1 THEN z = 1
  16.         r = r + 1: IF r > 255 THEN r = RND * 255
  17.         g = g + 1: IF g > 255 THEN g = RND * 255
  18.         b = b + 1: IF b > 255 THEN b = RND * 255
  19.         _LIMIT 1000
  20.     NEXT t
  22.  
  23.  
Title: Re: More Graphics Patterns
Post by: SierraKen on April 30, 2020, 06:29:10 pm
Hi Dav! That is awesome! I just found mine by chance by messing with my old spiral code. :) Good job.
Text Only | Text with Attachments