Serpinski triangles

[Richard Frost]

Code: QB64: [Select]

1. DEFINT A-Z
2. x1 = 126: y1 = 80: x2 = 302: y2 = 160: z = 220
3. DIM gbuff(12000) ' large buffer
4. SCREEN 12 ' screen mode 640 * 480 * 16
5. _FULLSCREEN
6. _MOUSEHIDE
7. _MOUSEMOVE 0, 0
8. 'password$ = "woof" ' delete, comment out, or make null for ordinary screensaver
9. rununtil! = TIMER + .5
10. DO WHILE TIMER < rununtil!
11.     DO WHILE _MOUSEINPUT
12.         discard = _MOUSEBUTTON(1)
13.         discard = _MOUSEBUTTON(2)
14.         discard = _MOUSEWHEEL
15.     LOOP
16. LOOP
17. DO: _LIMIT 30
18.     a = (a + 3) MOD 360: c = -(a > 180)
19.     y = 120 - 40 * COS(a * ATN(1) / 45) ' vertical along right
20.     FOR i = 0 TO 2
21.         j = i * 120: k = i * 4 + c * 2 + 1
22.         c1 = VAL(MID$(" 7 1 8111012", k, 2))
23.         c2 = VAL(MID$(" 612 5 214 9", k, 2))
24.         PSET (x2, y + j), c1
25.         PSET (x2 + z, y + j), c2
26.         GET (x1 + VAL(MID$("122", i + 1, 1)), y1 + j)-(x2, y2 + j), gbuff()
27.         PUT (x1, y1 + j), gbuff()
28.         GET (z + x1 + VAL(MID$("122", i + 1, 1)), y1 + j)-(z + x2 + 1, y2 + j), gbuff()
29.         PUT (z + x1, y1 + j), gbuff()
30.     NEXT i
31.     LINE (x2, 0)-(x2 + z, 479), 0, B
32.     i$ = INKEY$
33.     mi = _MOUSEINPUT
34.     IF LEN(password$) THEN
35.         guess$ = guess$ + i$: i$ = "":mi=0
36.         IF INSTR(guess$ + SPACE$(4), password$) > 0 THEN SYSTEM
37.     END IF
38. LOOP UNTIL LEN(i$) OR mi
39. SYSTEM

[bplus]

Interesting!

Here is a variation made with circles: https://www.qb64.org/forum/index.php?topic=201.0