Simple Patterns

[bplus]

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.  

[_vince]

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

[OldMoses]

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

[SierraKen]

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

[johnno56]

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!