« previous next »
Pages: [1]   Go Down

Author Topic: Chaos Game  (Read 5355 times)

0 Members and 1 Guest are viewing this topic.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Chaos Game
« on: February 19, 2019, 09:43:30 am »
Here are 8 beautiful fractals based on chaos game technique.

Code: QB64: [Select]
  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.  
  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
  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
  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!
  382.  
  383.  

Screenshot_1.png

« Last Edit: February 19, 2019, 09:44:50 am by Ashish »
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Chaos Game
« Reply #1 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.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Chaos Game
« Reply #2 on: February 19, 2019, 04:41:00 pm »
Very nice, Ashish. Could I use it as a texture for 3D?
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Chaos Game
« Reply #3 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.)
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Chaos Game
« Reply #4 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
  44.  

 
Ashish Fractal #2 Chaos Game recursive mod B+.PNG
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Chaos Game
« Reply #5 on: March 03, 2019, 12:06:54 pm »
Cool bplus! You did it! :D
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials
Pages: [1]   Go Up
« previous next »