QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on February 19, 2019, 09:43:30 am

Title: Chaos Game
Post by: Ashish on February 19, 2019, 09:43:30 am

Here are 8 beautiful fractals based on chaos game technique.

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. 'All the fractal rendered are based on chaos game technique and are adapted from wikipedia.
3. '19 Feb, 2019 Ashish
4. 'https://en.wikipedia.com/wiki/Chaos_game
5.  
6.  
7. _TITLE "Chaos Game"
8. SCREEN _NEWIMAGE(700, 700, 32)
9.  
10.  
11.  
12. DO
13.     i = i + 1
14.     IF i > 8 THEN i = 1
15.     drawFractal i, 300000 + i * 10000, 1 '1 for multiple colors, other value show fractal in only white color
16.     _DELAY 0.5
17.     CLS
18. LOOP UNTIL INKEY$ = CHR$(27)
19.  
20.  
21.  
22. SUB drawFractal (typ, num_of_iterations, colored AS _BYTE)
23.     px = p5random(0, _WIDTH): py = p5random(0, _HEIGHT)
24.     col~& = _RGBA(255, 255, 255, 80)
25.     DIM clr~&(5)
26.     clr~&(0) = _RGBA(255, 0, 0, 90)
27.     clr~&(1) = _RGBA(0, 255, 0, 90)
28.     clr~&(2) = _RGBA(0, 0, 255, 90)
29.     clr~&(3) = _RGBA(255, 255, 0, 90)
30.     clr~&(4) = _RGBA(0, 255, 255, 90)
31.     clr~&(5) = _RGBA(255, 0, 255, 90)
32.     SELECT CASE typ
33.         CASE 1 'Seirpinshki Triangle
34.             x1 = _WIDTH / 2: y1 = 0
35.             x3 = 0: y3 = _HEIGHT - 1
36.             x2 = _WIDTH - 1: y2 = y3
37.  
38.             IF colored = 1 THEN
39.                 DIM vertColor(2)
40.                 vertColor(0) = INT(p5random(0, 5))
41.                 FOR i = 1 TO 2
42.                     f1: kk = 0
43.                     k = INT(p5random(0, 5))
44.                     FOR j = 0 TO i - 1
45.                         IF k = vertColor(j) THEN kk = 1
46.                     NEXT
47.                     IF kk = 1 THEN GOTO f1
48.                     vertColor(i) = k
49.                 NEXT
50.             END IF
51.             preVert = 1
52.             DO
53.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert - 1)) ELSE PSET (px, py), col~&
54.                 i = i + 1
55.                 p_e = RND
56.                 IF p_e > 0 AND p_e < 0.33 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): preVert = 1
57.                 IF p_e > 0.33 AND p_e < 0.66 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): preVert = 2
58.                 IF p_e > 0.66 AND p_e < 0.99 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): preVert = 3
59.  
60.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
61.  
62.             LOOP UNTIL i >= num_of_iterations
63.         CASE 2 'I don't know the name of this fractal, but its nice. It is based on square vertices
64.             x1 = 0: y1 = 0
65.             x2 = _WIDTH - 1: y2 = 0
66.             x3 = x2: y3 = _HEIGHT - 1
67.             x4 = 0: y4 = y3
68.  
69.             IF colored = 1 THEN
70.                 DIM vertColor(3)
71.                 vertColor(0) = INT(p5random(0, 5))
72.                 FOR i = 1 TO 3
73.                     f2: kk = 0
74.                     k = INT(p5random(0, 5))
75.                     FOR j = 0 TO i - 1
76.                         IF k = vertColor(j) THEN kk = 1
77.                     NEXT
78.                     IF kk = 1 THEN GOTO f2
79.                     vertColor(i) = k
80.                 NEXT
81.             END IF
82.             preVert = 1
83.  
84.             DO
85.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert - 1)) ELSE PSET (px, py), col~&
86.                 i = i + 1
87.                 p_e = RND
88.                 IF p_e > 0 AND p_e < 0.25 AND preVert <> 1 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): preVert = 1
89.                 IF p_e > 0.25 AND p_e < 0.5 AND preVert <> 2 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): preVert = 2
90.                 IF p_e > 0.5 AND p_e < 0.75 AND preVert <> 3 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): preVert = 3
91.                 IF p_e > 0.75 AND p_e < 1 AND preVert <> 4 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): preVert = 4
92.  
93.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
94.  
95.  
96.             LOOP UNTIL i >= num_of_iterations
97.         CASE 3
98.             x1 = 0: y1 = 0
99.             x2 = _WIDTH - 1: y2 = 0
100.             x3 = x2: y3 = _HEIGHT - 1
101.             x4 = 0: y4 = y3
102.  
103.             IF colored THEN
104.                 DIM vertColor(3)
105.                 vertColor(0) = INT(p5random(0, 5))
106.                 FOR i = 1 TO 3
107.                     f3: kk = 0
108.                     k = INT(p5random(0, 5))
109.                     FOR j = 0 TO i - 1
110.                         IF k = vertColor(j) THEN kk = 1
111.                     NEXT
112.                     IF kk = 1 THEN GOTO f3
113.                     vertColor(i) = k
114.                 NEXT
115.             END IF
116.             preVert = 1
117.  
118.             DO
119.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert - 1)) ELSE PSET (px, py), col~&
120.                 i = i + 1
121.                 p_e = RND
122.                 IF p_e > 0 AND p_e < 0.25 AND preVert <> 4 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): preVert = 1
123.                 IF p_e > 0.25 AND p_e < 0.5 AND preVert <> 1 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): preVert = 2
124.                 IF p_e > 0.5 AND p_e < 0.75 AND preVert <> 2 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): preVert = 3
125.                 IF p_e > 0.75 AND p_e < 1 AND preVert <> 3 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): preVert = 4
126.  
127.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
128.  
129.  
130.             LOOP UNTIL i >= num_of_iterations
131.  
132.         CASE 4
133.             x1 = 0: y1 = 0
134.             x2 = _WIDTH - 1: y2 = 0
135.             x3 = x2: y3 = _HEIGHT - 1
136.             x4 = 0: y4 = y3
137.  
138.             IF colored THEN
139.                 DIM vertColor(3)
140.                 vertColor(0) = INT(p5random(0, 5))
141.                 FOR i = 1 TO 3
142.                     f4: kk = 0
143.                     k = INT(p5random(0, 5))
144.                     FOR j = 0 TO i - 1
145.                         IF k = vertColor(j) THEN kk = 1
146.                     NEXT
147.                     IF kk = 1 THEN GOTO f4
148.                     vertColor(i) = k
149.                 NEXT
150.             END IF
151.             preVert = 1
152.  
153.             DO
154.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert - 1)) ELSE PSET (px, py), col~&
155.                 i = i + 1
156.                 p_e = RND
157.                 IF p_e > 0 AND p_e < 0.25 AND preVert <> 3 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): preVert = 1
158.                 IF p_e > 0.25 AND p_e < 0.5 AND preVert <> 4 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): preVert = 2
159.                 IF p_e > 0.5 AND p_e < 0.75 AND preVert <> 1 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): preVert = 3
160.                 IF p_e > 0.75 AND p_e < 1 AND preVert <> 2 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): preVert = 4
161.  
162.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
163.  
164.  
165.             LOOP UNTIL i >= num_of_iterations
166.  
167.         CASE 5
168.             x1 = 0: y1 = 0
169.             x2 = _WIDTH - 1: y2 = 0
170.             x3 = x2: y3 = _HEIGHT - 1
171.             x4 = 0: y4 = y3
172.  
173.             IF colored THEN
174.                 DIM vertColor(3)
175.                 vertColor(0) = INT(p5random(0, 5))
176.                 FOR i = 1 TO 3
177.                     f5: kk = 0
178.                     k = INT(p5random(0, 5))
179.                     FOR j = 0 TO i - 1
180.                         IF k = vertColor(j) THEN kk = 1
181.                     NEXT
182.                     IF kk = 1 THEN GOTO f5
183.                     vertColor(i) = k
184.                 NEXT
185.             END IF
186.             preVert1 = 1
187.  
188.             DO
189.                 _DEST 0
190.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert1 - 1)) ELSE PSET (px, py), col~&
191.                 i = i + 1
192.                 p_e = RND
193.  
194.                 IF p_e > 0 AND p_e < 0.25 THEN
195.                     IF preVert1 <> 4 AND prevert2 <> 2 OR preVert1 <> 2 AND prevert2 <> 4 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): prevert2 = preVert1: preVert1 = 1
196.  
197.                 END IF
198.                 IF p_e > 0.25 AND p_e < 0.5 THEN
199.                     IF preVert1 <> 1 AND prevert2 <> 3 OR preVert1 <> 3 AND prevert2 <> 1 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): prevert2 = preVert1: preVert1 = 2
200.                 END IF
201.                 IF p_e > 0.5 AND p_e < 0.75 THEN
202.                     IF preVert1 <> 2 AND prevert2 <> 4 OR preVert1 <> 4 AND prevert2 <> 2 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): prevert2 = preVert1: preVert1 = 3
203.                 END IF
204.                 IF p_e > 0.75 AND p_e < 1 THEN
205.                     IF preVert1 <> 1 AND prevert2 <> 3 OR preVert1 <> 3 AND prevert2 <> 1 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): prevert2 = preVert1: preVert1 = 4
206.                 END IF
207.  
208.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
209.  
210.  
211.             LOOP UNTIL i >= num_of_iterations
212.  
213.         CASE 6
214.  
215.             x1 = 0: y1 = 0
216.             x2 = _WIDTH - 1: y2 = 0
217.             x3 = x2: y3 = _HEIGHT - 1
218.             x4 = 0: y4 = y3
219.  
220.             IF colored THEN
221.                 DIM vertColor(3)
222.                 vertColor(0) = INT(p5random(0, 5))
223.                 FOR i = 1 TO 3
224.                     f6: kk = 0
225.                     k = INT(p5random(0, 5))
226.                     FOR j = 0 TO i - 1
227.                         IF k = vertColor(j) THEN kk = 1
228.                     NEXT
229.                     IF kk = 1 THEN GOTO f6
230.                     vertColor(i) = k
231.                 NEXT
232.             END IF
233.             preVert1 = 1
234.  
235.             DO
236.  
237.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert1 - 1)) ELSE PSET (px, py), col~&
238.                 i = i + 1
239.                 p_e = RND
240.  
241.                 IF p_e > 0 AND p_e < 0.25 THEN
242.                     IF preVert1 <> 2 AND prevert2 <> 2 OR preVert1 <> 4 AND prevert2 <> 4 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): prevert2 = preVert1: preVert1 = 1
243.                 END IF
244.                 IF p_e > 0.25 AND p_e < 0.5 THEN
245.                     IF preVert1 <> 1 AND prevert2 <> 1 OR preVert1 <> 3 AND prevert2 <> 3 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): prevert2 = preVert1: preVert1 = 2
246.                 END IF
247.                 IF p_e > 0.5 AND p_e < 0.75 THEN
248.                     IF preVert1 <> 2 AND prevert2 <> 2 OR preVert1 <> 4 AND prevert2 <> 4 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): prevert2 = preVert1: preVert1 = 3
249.                 END IF
250.                 IF p_e > 0.75 AND p_e < 1 THEN
251.                     IF preVert1 <> 1 AND prevert2 <> 1 OR preVert1 <> 3 AND prevert2 <> 3 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): prevert2 = preVert1: preVert1 = 4
252.                 END IF
253.  
254.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
255.  
256.  
257.             LOOP UNTIL i >= num_of_iterations
258.  
259.         CASE 7
260.             rx = _WIDTH / 2
261.             ry = _HEIGHT / 2
262.             px = p5random(0, _WIDTH)
263.             py = p5random(0, _HEIGHT)
264.             FOR i = 5 TO 1 STEP -1
265.  
266.                 SELECT CASE i
267.                     CASE 1
268.                         x1 = rx + rx * SIN(_PI(0.4 * i)): y1 = ry + ry * COS(_PI(0.4 * i))
269.                     CASE 2
270.                         x2 = rx + rx * SIN(_PI(0.4 * i)): y2 = ry + ry * COS(_PI(0.4 * i))
271.                     CASE 3
272.                         x3 = rx + rx * SIN(_PI(0.4 * i)): y3 = ry + ry * COS(_PI(0.4 * i))
273.                     CASE 4
274.                         x4 = rx + rx * SIN(_PI(0.4 * i)): y4 = ry + ry * COS(_PI(0.4 * i))
275.                     CASE 5
276.                         x5 = rx + rx * SIN(_PI(0.4 * i)): y5 = ry + ry * COS(_PI(0.4 * i))
277.                 END SELECT
278.             NEXT
279.  
280.             IF colored THEN
281.                 DIM vertColor(4)
282.                 vertColor(0) = INT(p5random(0, 5))
283.                 FOR i = 1 TO 4
284.                     f7: kk = 0
285.                     k = INT(p5random(0, 5))
286.                     FOR j = 0 TO i - 1
287.                         IF k = vertColor(j) THEN kk = 1
288.                     NEXT
289.                     IF kk = 1 THEN GOTO f7
290.                     vertColor(i) = k
291.                 NEXT
292.             END IF
293.  
294.             preVert = 1
295.             DO
296.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert - 1)) ELSE PSET (px, py), col~&
297.                 i = i + 1
298.  
299.                 p_e = RND
300.                 IF p_e > 0 AND p_e < 0.2 AND preVert <> 1 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): preVert = 1
301.                 IF p_e > 0.2 AND p_e < 0.4 AND preVert <> 2 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): preVert = 2
302.                 IF p_e > 0.4 AND p_e < 0.6 AND preVert <> 3 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): preVert = 3
303.                 IF p_e > 0.6 AND p_e < 0.8 AND preVert <> 4 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): preVert = 4
304.                 IF p_e > 0.8 AND p_e < 1.0 AND preVert <> 5 THEN px = px + 0.5 * (x5 - px): py = py + 0.5 * (y5 - py): preVert = 5
305.  
306.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
307.  
308.  
309.             LOOP UNTIL i >= num_of_iterations
310.         CASE 8
311.             rx = _WIDTH / 2
312.             ry = _HEIGHT / 2
313.             px = p5random(0, _WIDTH)
314.             py = p5random(0, _HEIGHT)
315.             FOR i = 5 TO 1 STEP -1
316.  
317.                 SELECT CASE i
318.                     CASE 1
319.                         x1 = rx + rx * SIN(_PI(0.4 * i)): y1 = ry + ry * COS(_PI(0.4 * i))
320.                     CASE 2
321.                         x2 = rx + rx * SIN(_PI(0.4 * i)): y2 = ry + ry * COS(_PI(0.4 * i))
322.                     CASE 3
323.                         x3 = rx + rx * SIN(_PI(0.4 * i)): y3 = ry + ry * COS(_PI(0.4 * i))
324.                     CASE 4
325.                         x4 = rx + rx * SIN(_PI(0.4 * i)): y4 = ry + ry * COS(_PI(0.4 * i))
326.                     CASE 5
327.                         x5 = rx + rx * SIN(_PI(0.4 * i)): y5 = ry + ry * COS(_PI(0.4 * i))
328.                 END SELECT
329.             NEXT
330.  
331.             IF colored THEN
332.                 DIM vertColor(4)
333.                 vertColor(0) = INT(p5random(0, 5))
334.                 FOR i = 1 TO 4
335.                     f8: kk = 0
336.                     k = INT(p5random(0, 5))
337.                     FOR j = 0 TO i - 1
338.                         IF k = vertColor(j) THEN kk = 1
339.                     NEXT
340.                     IF kk = 1 THEN GOTO f8
341.                     vertColor(i) = k
342.                 NEXT
343.             END IF
344.  
345.             preVert1 = 1
346.  
347.             DO
348.                 IF colored THEN PSET (px, py), clr~&(vertColor(preVert1 - 1)) ELSE PSET (px, py), col~&
349.                 i = i + 1
350.  
351.                 p_e = RND
352.                 IF p_e > 0 AND p_e < 0.2 THEN
353.                     IF preVert1 <> 1 AND prevert2 <> 5 OR preVert1 <> 5 AND prevert2 <> 1 THEN px = px + 0.5 * (x1 - px): py = py + 0.5 * (y1 - py): prevert2 = preVert1: preVert1 = 1
354.                 END IF
355.                 IF p_e > 0.2 AND p_e < 0.4 THEN
356.                     IF preVert1 <> 1 AND prevert2 <> 3 OR preVert1 <> 3 AND prevert2 <> 1 THEN px = px + 0.5 * (x2 - px): py = py + 0.5 * (y2 - py): prevert2 = preVert1: preVert1 = 2
357.                 END IF
358.                 IF p_e > 0.4 AND p_e < 0.6 THEN
359.                     IF preVert1 <> 2 AND prevert2 <> 4 OR preVert1 <> 4 AND prevert2 <> 2 THEN px = px + 0.5 * (x3 - px): py = py + 0.5 * (y3 - py): prevert2 = preVert1: preVert1 = 3
360.                 END IF
361.                 IF p_e > 0.6 AND p_e < 0.8 THEN
362.                     IF preVert1 <> 3 AND prevert2 <> 5 OR preVert1 <> 5 AND prevert2 <> 3 THEN px = px + 0.5 * (x4 - px): py = py + 0.5 * (y4 - py): prevert2 = preVert1: preVert1 = 4
363.                 END IF
364.                 IF p_e > 0.8 AND p_e < 1.0 THEN
365.                     IF preVert1 <> 1 AND prevert2 <> 4 OR preVert1 <> 4 AND prevert2 <> 1 THEN px = px + 0.5 * (x5 - px): py = py + 0.5 * (y5 - py): prevert2 = preVert1: preVert1 = 5
366.                 END IF
367.  
368.                 IF i MOD 1000 = 0 THEN _DISPLAY: _DELAY 0.01
369.             LOOP UNTIL i >= num_of_iterations
370.  
371.         CASE ELSE: EXIT SUB
372.     END SELECT
373. END SUB
374. 'function taken from p5js.bas
375. 'https://bit.ly/p5jsbas
376. FUNCTION p5random! (mn!, mx!)
377.     IF mn! > mx! THEN
378.         SWAP mn!, mx!
379.     END IF
380.     p5random! = RND * (mx! - mn!) + mn!
381. END FUNCTION
382.  
383.  

---

 [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Chaos Game
Post by: bplus on February 19, 2019, 09:59:08 am

Nice! That 2nd one after Sierpinski is interesting. I wonder if I could duplicate with recursive sub.

Title: Re: Chaos Game
Post by: Petr on February 19, 2019, 04:41:00 pm

Very nice, Ashish. Could I use it as a texture for 3D?

Title: Re: Chaos Game
Post by: Ashish on February 21, 2019, 08:49:55 am

Quote from: bplus on February 19, 2019, 09:59:08 am

Nice! That 2nd one after Sierpinski is interesting. I wonder if I could duplicate with recursive sub.

Thank You, bplus! Good luck at that!

Quote from: Petr on February 19, 2019, 04:41:00 pm

Very nice, Ashish. Could I use it as a texture for 3D?

Of course, Petr! Feel free to use it. I will be honourable on that.

Quote from: ron77 on February 19, 2019, 06:18:30 pm

wow... nice very beautiful!
i wish i had the knowledge to program like that!
congratulation Ashish!

You don't need very high knowledge to code like that. If you understand basic algebra and probability then you can code it.

I recommend you to watch following videos -

(Numberphile's video on chaos game, it is best to understand what is it).

(Daniel Shiffman video on coding this.)

Title: Re: Chaos Game
Post by: bplus on February 23, 2019, 12:42:51 am

OK I did manage to find a place to sneak in a little recursion in the 2nd fractal:

Code: QB64: [Select]

1. _TITLE "Ashish Fractal #2 Chaos Game recursive mod by B+" '2019-02-23
2. SCREEN _NEWIMAGE(1200, 720, 32)
3. _SCREENMOVE 100, 20
4.  
5. scatter 0, 0, 600, 720, _RGB32(0, 0, 200)
6. scatter 601, 0, 600, 720, _RGB32(130, 250, 0)
7. PRINT "Done"
8.  
9. SUB scatter (x0, y0, w, h, c AS _UNSIGNED LONG)
10.     x1 = x0: y1 = y0
11.     x2 = x1 + w: y2 = y1
12.     x3 = x2: y3 = y1 + h
13.     x4 = x1: y4 = y3
14.     'LINE (x1, y1)-(x2, y3), c, B
15.     IF w < 100 THEN limit = w * h ELSE limit = w * h * .25
16.     i = 0: v = 1: x = x1 + w / 2: y = y1 + h / 2
17.     WHILE i < limit
18.         r = INT(RND * 4) + 1
19.         SELECT CASE r
20.             CASE 1: IF v <> 1 THEN x = x + .5 * (x1 - x): y = y + .5 * (y1 - y): v = 1
21.             CASE 2: IF v <> 2 THEN x = x + .5 * (x2 - x): y = y + .5 * (y2 - y): v = 2
22.             CASE 3: IF v <> 3 THEN x = x + .5 * (x3 - x): y = y + .5 * (y3 - y): v = 3
23.             CASE 4: IF v <> 4 THEN x = x + .5 * (x4 - x): y = y + .5 * (y4 - y): v = 4
24.         END SELECT
25.         PSET (x, y), c
26.         i = i + 1
27.         IF i MOD 1000 = 0 THEN
28.             LINE (0, 0)-(50, 20), _RGB32(0, 0, 0), BF
29.             LOCATE 1, 1: PRINT INT(100 * i / limit); "%"
30.         END IF
31.         _DISPLAY
32.     WEND
33.     IF w > 12 AND h > 12 THEN
34.         w4 = w / 4: h4 = h / 4
35.         xn = x1 + w / 2 - w4 / 2
36.         yn = y1 + h / 2 - h4 / 2
37.         r = _RED32(c): g = _GREEN32(c): b = _BLUE(c)
38.         IF r > 127 THEN r = r - 64 ELSE r = r + 64
39.         IF g > 127 THEN g = g - 64 ELSE g = g + 64
40.         IF b > 127 THEN b = b - 64 ELSE r = b + 64
41.         scatter xn, yn, w4, h4, _RGB32(r, g, b)
42.     END IF
43. END SUB
44.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Chaos Game
Post by: Ashish on March 03, 2019, 12:06:54 pm

Cool bplus! You did it! :D

Text Only | Text with Attachments