More Graphics Patterns

[SierraKen]

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
3. DO
4.     RANDOMIZE TIMER
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
18. LOOP
19.  

 

[OldMoses]

Welcome back, it really is amazing the psychedelics that can be made with a few math functions and some trim code.

[SierraKen]

Thanks OldMoses! LOL Yeah. I might tinker a bit more soon with programming, if I can think of stuff. :)

[STxAxTIC]

Welcome Ken - glad to have you around again.

[SierraKen]

Thanks Static. :)

[bplus]

Hey @SierraKen,

I was wondering where you were.

I leaned allot from playing with graphics.

[SierraKen]

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.

[Dav]

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.  
7. DO
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
21. LOOP
22.  
23.  

[SierraKen]

Hi Dav! That is awesome! I just found mine by chance by messing with my old spiral code. :) Good job.