Donut with Code Sprinkles looking for Coffee Maker

[Ashish]

Cool! ;D

[bplus]

[banned user], looks like someone ate too many spiral sprinkled donuts!

Here is donut sprinkled with deliciousness not using file:

Code: QB64: [Select]

1. _TITLE "Donut code spiral by bplus mod by bplus 2018-03-20"
2. CONST xmax = 700
3. CONST ymax = 700
4. SCREEN _NEWIMAGE(xmax, ymax, 32)
5. _SCREENMOVE 360, 0
6. CONST cx = xmax / 2
7. CONST cy = ymax / 2
8. CONST tw = 8
9. CONST th = 16
10. sprinkle$ = "bplus "
11. lenF = 1240
12. tArea = tw * th * lenF / 2
13. r = SQR(10 / 4 * tArea / _PI)
14. FOR y = 0 TO ymax
15.     FOR x = 0 TO xmax
16.         d = ((x - cx) ^ 2 + (y - cy) ^ 2) ^ .5
17.         IF r / 3 < d + 20 AND d - 20 < r THEN
18.             midInk 180, 90, 55, 80, 40, 20, 1 - ABS(2 / 3 * r - d) / (.335 * r), 0
19.             PSET (x + 5, y + 10)
20.         END IF
21.     NEXT
22. NEXT
23. idx = 0: rr = r / 3
24. WHILE idx < lenF
25.     idx = idx + 1
26.     rr = r / 3.6 + idx / (rr ^ .4) + 32
27.     a = a + 12 / rr
28.     x = cx + rr * COS(a)
29.     y = cy + rr * SIN(a)
30.     midInk 180, 90, 55, 80, 40, 20, ABS(2 / 3 * r - d) / (.335 * r), 1
31.     COLOR , 0
32.     _PRINTSTRING (x, y), MID$(sprinkle$, idx MOD 6 + 1, 1)
33. WEND
34. PRINT
35. SLEEP
36. FUNCTION rand% (lo%, hi%)
37.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
38. END FUNCTION
39. FUNCTION rclr&&
40.     rclr&& = _RGB32(rand%(64, 255), rand%(64, 255), rand%(64, 255))
41. END FUNCTION
42. SUB midInk (r1, g1, b1, r2, g2, b2, fr, tf)
43.     IF tf THEN
44.         fc&& = rclr&&
45.     ELSE
46.         fc&& = _RGB32(r1 + (r2 - r1) * (1 - fr), g1 + (g2 - g1) * (1 - fr), b1 + (b2 - b1) * (1 - fr))
47.     END IF
48.     bc&& = _RGB32(r1 + (r2 - r1) * fr, g1 + (g2 - g1) * fr, b1 + (b2 - b1) * fr)
49.     COLOR fc&&, bc&&
50. END SUB
51. 'XOXOXOXO
52.  
53.  

[bplus]

Here it is with lettering reversed so it will play right on record player with needle at edge of donut.

Code: QB64: [Select]

1. _TITLE "Donut code spiral by bplus mod by bplus 2018-03-20"
2. CONST xmax = 700
3. CONST ymax = 700
4. SCREEN _NEWIMAGE(xmax, ymax, 32)
5. _SCREENMOVE 360, 0
6. CONST cx = xmax / 2
7. CONST cy = ymax / 2
8. CONST tw = 8
9. CONST th = 16
10. sprinkle$ = "bplus "
11. lenF = 1240
12. tArea = tw * th * lenF / 2
13. r = SQR(10 / 4 * tArea / _PI)
14. FOR y = 0 TO ymax
15.     FOR x = 0 TO xmax
16.         d = ((x - cx) ^ 2 + (y - cy) ^ 2) ^ .5
17.         IF r / 3 < d + 20 AND d - 20 < r THEN
18.             midInk 180, 90, 55, 80, 40, 20, 1 - ABS(2 / 3 * r - d) / (.335 * r), 0
19.             PSET (x + 5, y + 10)
20.         END IF
21.     NEXT
22. NEXT
23. idx = 0: rr = r / 3
24. WHILE idx < lenF
25.     idx = idx + 1
26.     rr = r / 3.6 + idx / (rr ^ .4) + 32
27.     a = a + 12 / rr
28.     x = cx + rr * COS(a)
29.     y = cy + rr * SIN(a)
30.     midInk 180, 90, 55, 80, 40, 20, ABS(2 / 3 * r - d) / (.335 * r), 1
31.     COLOR , 0
32.     _PRINTSTRING (x, y), MID$(sprinkle$, idx MOD 6 + 1, 1)
33. WEND
34. PRINT
35. SLEEP
36. FUNCTION rand% (lo%, hi%)
37.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
38. END FUNCTION
39. FUNCTION rclr&&
40.     rclr&& = _RGB32(rand%(64, 255), rand%(64, 255), rand%(64, 255))
41. END FUNCTION
42. SUB midInk (r1, g1, b1, r2, g2, b2, fr, tf)
43.     IF tf THEN
44.         fc&& = rclr&&
45.     ELSE
46.         fc&& = _RGB32(r1 + (r2 - r1) * (1 - fr), g1 + (g2 - g1) * (1 - fr), b1 + (b2 - b1) * (1 - fr))
47.     END IF
48.     bc&& = _RGB32(r1 + (r2 - r1) * fr, g1 + (g2 - g1) * fr, b1 + (b2 - b1) * fr)
49.     COLOR fc&&, bc&&
50. END SUB
51. 'XOXOXOXO
52.  
53.  

Might be a bit hypnotic because doing it with code file WAS much more interesting.