QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 12, 2020, 11:04:38 pm

Title: Simple Patterns
Post by: bplus on August 12, 2020, 11:04:38 pm

Code: QB64: [Select]

1. _TITLE "Simple Patterns" '  B+ 2020-08-12
2. ' rework Simple Pattern from SmallBASIC
3. SCREEN _NEWIMAGE(1024, 700, 32)
4. _DELAY .25
5. _SCREENMOVE _MIDDLE
6. s = 145: cd = 2
7. WHILE 1
8.     flip = 1 - flip
9.     IF flip THEN
10.         FOR k = .005 TO .995 STEP .005
11.             GOSUB drawIt
12.         NEXT
13.     ELSE
14.         FOR k = .995 TO .005 STEP -.005
15.             GOSUB drawIt
16.         NEXT
17.     END IF
18.     cd = cd * .987654321
19. WEND
20.  
21. drawIt:
22. CLS
23. FOR i = 0 TO 1024
24.     FOR j = 0 TO 700
25.         x = i * s / 600: y = j * s / 600
26.         c = x * x + y * y
27.         d = c / cd
28.         d = d - INT(d)
29.         IF d < k THEN PSET (i, j)
30.     NEXT
31. NEXT
32. _DISPLAY
33. _LIMIT 20
34. RETURN
35.  

Title: Re: Simple Patterns
Post by: _vince on August 13, 2020, 01:25:51 am

You can see entire scenes play out deep in those patterns, very hallucinogenic

Title: Re: Simple Patterns
Post by: OldMoses on August 13, 2020, 06:33:24 am

Careful, the government might decide they have to control that... pretty trippy.

Title: Re: Simple Patterns
Post by: SierraKen on August 14, 2020, 12:23:42 am

That's really cool Bplus, and no advanced math either. Good job!

Title: Re: Simple Patterns
Post by: johnno56 on August 14, 2020, 01:08:32 am

It didn't come in blue... so I changed it... 'Hallucinogenic'? Almost... More like a deer staring at the headlights of on oncoming truck... lol
Cool design. Well done!

Text Only | Text with Attachments