Jump to content

Chaos game: Difference between revisions

Chaos game (view source)

Revision as of 22:51, 30 August 2022

85 bytes added ,  1 year ago
m
Automated syntax highlighting fixup (second round - minor fixes)
m (syntax highlighting fixup automation)
m (Automated syntax highlighting fixup (second round - minor fixes))
Line 15:
* [http://www.geoastro.de/ChaosSpiel/ChaosEnglish.html The Game of Chaos]
<br><br>
 
=={{header|8086 Assembly}}==
{{trans|BASIC}}
Line 21 ⟶ 20:
This program will run on a PC with CGA-compatible graphics. It will keep running until a key is pressed.
 
<syntaxhighlight lang="asm"> cpu 8086
bits 16
vmode: equ 0Fh ; Get current video mode
Line 143 ⟶ 142:
xchg cx,di
ret</syntaxhighlight>
 
=={{header|Action!}}==
<syntaxhighlight lang=Action"action!">PROC Main()
INT x,w=[220],h=[190]
BYTE y,i,CH=$02FC,COLOR1=$02C5,COLOR2=$02C6
Line 175 ⟶ 173:
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Chaos_game.png Screenshot from Atari 8-bit computer]
 
=={{header|Amazing Hopper}}==
{{trans|BASIC256}}
<p>Considerar que Hopper no usa modos gráficos, y solo imprime el caracter ascii 219 achicando el tamaño de caracteres de la terminal, dado la ilusión de un modo gráfico "arcaico".</p>
<syntaxhighlight lang=Amazing"amazing Hopperhopper">
/* Chaos game - JAMBO hopper */
 
Line 227 ⟶ 224:
End
</syntaxhighlight>
 
 
=={{header|BASIC}}==
This should require minimal adaptation to work with any of the older Microsoft-style BASICs. Users of other dialects will need to replace lines <tt>10</tt> and <tt>150</tt> with the appropriate statements to select a graphics output mode (if necessary) and to plot a pixel at <tt>x,y</tt> in colour <tt>v</tt>; they should also add <tt>LET</tt> throughout and <tt>170 END</tt> if their dialects require those things.
<syntaxhighlight lang="basic">10 SCREEN 1
20 X = INT(RND(0) * 200)
30 Y = INT(RND(0) * 173)
Line 249 ⟶ 244:
==={{header|Applesoft BASIC}}===
Adapted from the code given above.
<syntaxhighlight lang="basic">10 HGR2
20 X = INT(RND(1) * 200)
30 Y = INT(RND(1) * 173)
Line 268 ⟶ 263:
 
==={{header|BASIC256}}===
<syntaxhighlight lang=BASIC256"basic256">
#Chaos game
 
Line 305 ⟶ 300:
==={{header|Locomotive Basic}}===
Adapted from the generic BASIC version. In [https://benchmarko.github.io/CPCBasic/cpcbasic.html CPCBasic] this program completes in less than a second. But on a real CPC (or equivalent emulator), the same program takes over six minutes to run. So using CPCBasic is strongly advised. On CPCBasic, one can also use "mode 3" instead of mode 1 in line 10 and increase iterations to e.g. 2000000 in line 40, resulting in a higher-resolution image.
<syntaxhighlight lang="locobasic">10 mode 1:randomize time:defint a-z
20 x = 640 * rnd
30 y = 400 * rnd
Line 326 ⟶ 321:
 
Note that ZX81 BASIC does not have an explicit computed <code>GOTO</code>; we can, however, actually compute the value of an expression and then <code>GOTO</code> it as a line number.
<syntaxhighlight lang="basic"> 10 LET X=RND*46
20 LET Y=RND*40
30 FOR I=1 TO 5000
Line 346 ⟶ 341:
==={{header|ZX Spectrum Basic}}===
The final <code>INK</code> statement sets the foreground colour back to black.
<syntaxhighlight lang="basic"> 10 LET x=RND*200
20 LET y=RND*173
30 FOR i=1 TO 20000
Line 364 ⟶ 359:
170 NEXT i
180 INK 0</syntaxhighlight>
 
=={{header|C}}==
 
Interactive code which asks the side length of the starting triangle and number of iterations as inputs, a larger number of iterations produces a more accurate approximation of the Sierpinski fractal. Requires the [http://www.cs.colorado.edu/~main/bgi/cs1300/ WinBGIm] library.
 
<syntaxhighlight lang=C"c">
#include<graphics.h>
#include<stdlib.h>
Line 422 ⟶ 416:
return 0;
}</syntaxhighlight>
 
=={{header|C sharp|C#}}==
 
<syntaxhighlight lang="csharp">using System.Diagnostics;
using System.Drawing;
 
Line 456 ⟶ 449:
}
}</syntaxhighlight>
 
=={{header|C++}}==
This program will generate the Sierpinski Triangle and save it to your hard drive.
<syntaxhighlight lang="cpp">
#include <windows.h>
#include <ctime>
Line 609 ⟶ 601:
}
</syntaxhighlight>
 
=={{header|Common Lisp}}==
{{libheader|opticl}}
<syntaxhighlight lang="lisp">(defpackage #:chaos
(:use #:cl
#:opticl))
Line 648 ⟶ 639:
{{libheader| Vcl.ExtCtrls}}
{{libheader| System.Generics.Collections}}
<syntaxhighlight lang=Delphi"delphi">
unit main;
 
Line 773 ⟶ 764:
[https://easylang.online/apps/_chaos-game.html Run it]
 
<syntaxhighlight lang="text">color 900
x[] = [ 0 100 50 ]
y[] = [ 93 93 7 ]
Line 785 ⟶ 776:
y = (y + y[h]) / 2
.</syntaxhighlight>
 
=={{header|Emacs Lisp}}==
<syntaxhighlight lang="lisp">; Chaos game
 
(defun make-array (size)
Line 839 ⟶ 829:
 
(chaos 400 180 50000) </syntaxhighlight>
 
=={{header|F Sharp|F#}}==
<syntaxhighlight lang="fsharp">
open System.Windows.Forms
open System.Drawing
Line 866 ⟶ 855:
f.Show()
</syntaxhighlight>
 
=={{header|Fortran}}==
This FORTRAN code creates an output file which can be drawn with gnuplot.
<syntaxhighlight lang=Fortran>
PROGRAM CHAOS
IMPLICIT NONE
REAL, DIMENSION(3):: KA, KN ! Koordinates old/new
REAL, DIMENSION(3):: DA, DB, DC ! Triangle
INTEGER:: I, Z
INTEGER, PARAMETER:: UT = 17
! Define corners of triangle
DA = (/ 0., 0., 0. /)
DB = (/ 600., 0., 0. /)
DC = (/ 500., 0., 400. /)
! Define starting point
KA = (/ 500., 0., 100. /)
OPEN (UNIT = UT, FILE = 'aus.csv')
DO I=1, 1000000
Z = ZAHL()
WRITE (UT, '(3(F12.6, ";"))') KA
SELECT CASE (Z)
CASE (1)
CALL MITTELP(KA, DA, KN)
CASE (2)
CALL MITTELP(KA, DB, KN)
CASE (3)
CALL MITTELP(KA, DC, KN)
END SELECT
KA = KN
END DO
CLOSE (UT)
CONTAINS
! Calculates center of two points
SUBROUTINE MITTELP(P1, P2, MP)
REAL, INTENT(IN), DIMENSION(3):: P1, P2
REAL, INTENT(OUT), DIMENSION(3):: MP
MP = (P1 + P2) / 2.
END SUBROUTINE MITTELP
! Returns random number
INTEGER FUNCTION ZAHL()
REAL:: ZZ
CALL RANDOM_NUMBER(ZZ)
ZZ = ZZ * 3.
ZAHL = FLOOR(ZZ) + 1
IF (ZAHL .GT. 3) ZAHL = 3
END FUNCTION ZAHL
END PROGRAM CHAOS
</syntaxhighlight>
Gnuplot Code to draw file:
<syntaxhighlight lang=Gnuplot>
set terminal jpeg enhanced size 1600,960
set output 'chaos.jpg'
set nokey
set style line 1 lc rgb '#0060ad' lt 1 lw 3 pt 7 ps 0.3
plot 'aus.csv' using 1:3 with points ls 1 notitle
</syntaxhighlight>
 
=={{header|FreeBASIC}}==
{{trans|BASIC256}}
<syntaxhighlight lang=freebasic>
' Chaos game
Const ancho = 320, alto = 240
Dim As Integer x, y, iteracion, vertice
x = Int(Rnd * ancho)
y = Int(Rnd * alto)
 
Screenres ancho, alto, 8
Cls
 
For iteracion = 1 To 30000
vertice = Int(Rnd * 3) + 1
Select Case vertice
Case 1
x = x / 2
y = y / 2
vertice = 4 'red
Case 2
x = (ancho/2) + ((ancho/2)-x) / 2
y = alto - (alto-y) / 2
vertice = 2 'green
Case 3
x = ancho - (ancho-x) / 2
y = y / 2
vertice = 1 'blue
End Select
Pset (x,y),vertice
Next iteracion
Sleep
End
</syntaxhighlight>
 
=={{header|Fōrmulæ}}==
 
Fōrmulæ programs are not textual, visualization/edition of programs is done showing/manipulating structures but not text. Moreover, there can be multiple visual representations of the same program. Even though it is possible to have textual representation &mdash;i.e. XML, JSON&mdash; they are intended for storage and transfer purposes more than visualization and edition.
 
Programs in Fōrmulæ are created/edited online in its [https://formulae.org website], However they run on execution servers. By default remote servers are used, but they are limited in memory and processing power, since they are intended for demonstration and casual use. A local server can be downloaded and installed, it has no limitations (it runs in your own computer). Because of that, example programs can be fully visualized and edited, but some of them will not run if they require a moderate or heavy computation/memory resources, and no local server is being used.
 
In '''[https://formulae.org/?example=Chaos_game this]''' page you can see the program(s) related to this task and their results.
 
=={{header|Forth}}==
{{works with|gforth|0.7.3}}
<br>
<syntaxhighlight lang="forth">#! /usr/bin/gforth
\ Chaos Game
 
Line 1,115 ⟶ 1,005:
<tt>./chaos-game.fs 1000 1000000 chao-game.pbm</tt>:]
[https://commons.wikimedia.org/wiki/File:Chaos_Game.png]<br>
=={{header|Fortran}}==
This FORTRAN code creates an output file which can be drawn with gnuplot.
<syntaxhighlight lang="fortran">
PROGRAM CHAOS
IMPLICIT NONE
REAL, DIMENSION(3):: KA, KN ! Koordinates old/new
REAL, DIMENSION(3):: DA, DB, DC ! Triangle
INTEGER:: I, Z
INTEGER, PARAMETER:: UT = 17
! Define corners of triangle
DA = (/ 0., 0., 0. /)
DB = (/ 600., 0., 0. /)
DC = (/ 500., 0., 400. /)
! Define starting point
KA = (/ 500., 0., 100. /)
OPEN (UNIT = UT, FILE = 'aus.csv')
DO I=1, 1000000
Z = ZAHL()
WRITE (UT, '(3(F12.6, ";"))') KA
SELECT CASE (Z)
CASE (1)
CALL MITTELP(KA, DA, KN)
CASE (2)
CALL MITTELP(KA, DB, KN)
CASE (3)
CALL MITTELP(KA, DC, KN)
END SELECT
KA = KN
END DO
CLOSE (UT)
CONTAINS
! Calculates center of two points
SUBROUTINE MITTELP(P1, P2, MP)
REAL, INTENT(IN), DIMENSION(3):: P1, P2
REAL, INTENT(OUT), DIMENSION(3):: MP
MP = (P1 + P2) / 2.
END SUBROUTINE MITTELP
! Returns random number
INTEGER FUNCTION ZAHL()
REAL:: ZZ
CALL RANDOM_NUMBER(ZZ)
ZZ = ZZ * 3.
ZAHL = FLOOR(ZZ) + 1
IF (ZAHL .GT. 3) ZAHL = 3
END FUNCTION ZAHL
END PROGRAM CHAOS
</syntaxhighlight>
Gnuplot Code to draw file:
<syntaxhighlight lang="gnuplot">
set terminal jpeg enhanced size 1600,960
set output 'chaos.jpg'
set nokey
set style line 1 lc rgb '#0060ad' lt 1 lw 3 pt 7 ps 0.3
plot 'aus.csv' using 1:3 with points ls 1 notitle
</syntaxhighlight>
=={{header|FreeBASIC}}==
{{trans|BASIC256}}
<syntaxhighlight lang="freebasic">
' Chaos game
Const ancho = 320, alto = 240
Dim As Integer x, y, iteracion, vertice
x = Int(Rnd * ancho)
y = Int(Rnd * alto)
 
Screenres ancho, alto, 8
Cls
 
For iteracion = 1 To 30000
vertice = Int(Rnd * 3) + 1
Select Case vertice
Case 1
x = x / 2
y = y / 2
vertice = 4 'red
Case 2
x = (ancho/2) + ((ancho/2)-x) / 2
y = alto - (alto-y) / 2
vertice = 2 'green
Case 3
x = ancho - (ancho-x) / 2
y = y / 2
vertice = 1 'blue
End Select
Pset (x,y),vertice
Next iteracion
Sleep
End
</syntaxhighlight>
=={{header|Fōrmulæ}}==
 
Fōrmulæ programs are not textual, visualization/edition of programs is done showing/manipulating structures but not text. Moreover, there can be multiple visual representations of the same program. Even though it is possible to have textual representation &mdash;i.e. XML, JSON&mdash; they are intended for storage and transfer purposes more than visualization and edition.
 
Programs in Fōrmulæ are created/edited online in its [https://formulae.org website], However they run on execution servers. By default remote servers are used, but they are limited in memory and processing power, since they are intended for demonstration and casual use. A local server can be downloaded and installed, it has no limitations (it runs in your own computer). Because of that, example programs can be fully visualized and edited, but some of them will not run if they require a moderate or heavy computation/memory resources, and no local server is being used.
 
In '''[https://formulae.org/?example=Chaos_game this]''' page you can see the program(s) related to this task and their results.
=={{header|GML}}==
Create two new objects and rename them to "Game" and "Point" respectively.
Line 1,121 ⟶ 1,105:
 
'''"Game" Object Create Event:'''
<syntaxhighlight lang=GML"gml">offset = 32; //Distance from triangle vertices to edges of window
 
//triangle vertex coordinates
Line 1,155 ⟶ 1,139:
 
'''"Game" Object Step Event:'''
<syntaxhighlight lang=GML"gml">if(step and step_count < max_iterations) //Wait for alarm to finish, or stop completely
{ // if the desired number of iterations is hit
vertex = choose(1, 2, 3);
Line 1,192 ⟶ 1,176:
 
'''"Game" Object Draw Event:'''
<syntaxhighlight lang=GML"gml">if(step_count < max_iterations)
{
draw_triangle(x1, y1, x2, y2, x3, y3, true);
Line 1,201 ⟶ 1,185:
 
'''"Game" Object Alarm 0:'''
<syntaxhighlight lang=GML"gml">step = true;
alarm[0] = interval;</syntaxhighlight>
 
 
'''"Point" Object Draw Event:'''
<syntaxhighlight lang=GML"gml">draw_circle(x, y, 5, false);</syntaxhighlight>
 
=={{header|Gnuplot}}==
{{trans|PARI/GP}}
Line 1,213 ⟶ 1,196:
[[File:ChGS3Gnu1.png|right|thumb|Output ChGS3Gnu1.png]]
 
<syntaxhighlight lang="gnuplot">
## Chaos Game (Sierpinski triangle) 2/16/17 aev
reset
Line 1,246 ⟶ 1,229:
File: ChGS3Gnu1.png
</pre>
 
=={{header|Go}}==
This writes a simple GIF animation of the method.
<syntaxhighlight lang=Go"go">package main
 
import (
Line 1,354 ⟶ 1,336:
return err
}</syntaxhighlight>
 
=={{header|Groovy}}==
 
{{libheader|JavaFX}}
 
<syntaxhighlight lang=Groovy"groovy">import javafx.animation.AnimationTimer
import javafx.application.Application
import javafx.scene.Scene
Line 1,428 ⟶ 1,409:
}
}</syntaxhighlight>
 
=={{header|Haskell}}==
 
<syntaxhighlight lang="haskell">import Control.Monad (replicateM)
import Control.Monad.Random (fromList)
 
Line 1,444 ⟶ 1,424:
Some transformations:
 
<syntaxhighlight lang="haskell">-- the Sierpinsky`s triangle
triangle = [ (mid (0, 0), 1)
, (mid (1, 0), 1)
Line 1,463 ⟶ 1,443:
 
Drawing the result:
<syntaxhighlight lang="haskell">import Control.Monad.Random (getRandomR)
import Graphics.Gloss
 
Line 1,472 ⟶ 1,452:
where window = InWindow "Game of Chaos" (400,400) (0,0)
point (x,y) = translate (100*x) (100*y) $ circle 0.02 </syntaxhighlight>
 
=={{header|J}}==
[[File:j_chaos_game.png|300px|thumb|right]]
<syntaxhighlight lang="j">
Note 'plan, Working in complex plane'
Make an equilateral triangle.
Line 1,510 ⟶ 1,489:
'marker'plot NEW_POINTS
</syntaxhighlight>
 
=={{header|Java}}==
[[File:chaos_game.png|300px|thumb|right]]
{{works with|Java|8}}
<syntaxhighlight lang="java">import java.awt.*;
import java.awt.event.*;
import java.util.*;
Line 1,603 ⟶ 1,581:
}
}</syntaxhighlight>
 
=={{header|JavaScript}}==
Plots the fractal on an HTML <tt>canvas</tt> element.
<syntaxhighlight lang="javascript"><html>
 
<head>
Line 1,659 ⟶ 1,636:
 
</html></syntaxhighlight>
 
=={{header|Julia}}==
Run in REPL.
<syntaxhighlight lang="julia">using Luxor
 
function chaos()
Line 1,693 ⟶ 1,669:
preview()
</syntaxhighlight>
 
=={{header|Kotlin}}==
{{trans|Java}}
<syntaxhighlight lang="scala">//Version 1.1.51
 
import java.awt.*
Line 1,781 ⟶ 1,756:
Same as Java entry
</pre>
 
=={{header|Logo}}==
<syntaxhighlight lang="logo">to chaosgame :sidelength :iterations
make "width :sidelength
make "height (:sidelength/2 * sqrt 3)
Line 1,812 ⟶ 1,786:
hideturtle
end</syntaxhighlight>
 
=={{header|Lua}}==
Needs L&Ouml;VE 2d Engine
<syntaxhighlight lang=Lua"lua">
math.randomseed( os.time() )
colors, orig = { { 255, 0, 0 }, { 0, 255, 0 }, { 0, 0, 255 } }, {}
Line 1,857 ⟶ 1,830:
end
</syntaxhighlight>
 
=={{header|Maple}}==
<syntaxhighlight lang="maple">chaosGame := proc(numPoints)
local points, i;
randomize();
Line 1,877 ⟶ 1,849:
end use;
end proc:</syntaxhighlight>
 
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang=Mathematica"mathematica">points = 5000;
a = {0, 0};
b = {1, 0};
Line 1,889 ⟶ 1,860:
If[t == 1, d = Mean[{b, d}], d = Mean[{c, d}]]]; AppendTo[S, d]]
Graphics[Point[S]]</syntaxhighlight>
 
=={{header|Nim}}==
==={{header|Using a game library}}===
{{libheader|rapid}}
The "rapid" library is no longer maintained and this program fails to compile with last available version.
<syntaxhighlight lang="nim">import random
 
import rapid/gfx
Line 1,934 ⟶ 1,904:
==={{header|Using SDL}}===
{{libheader|SDL2}}
<syntaxhighlight lang="nim">## needs sdl2 ("nimble install sdl2")
 
import sdl2, random
Line 1,995 ⟶ 1,965:
{{libheader|imageman}}
 
<syntaxhighlight lang=Nim"nim">import math
import random
 
Line 2,072 ⟶ 2,042:
 
image.savePNG("chaos_game.png", compression = 9)</syntaxhighlight>
 
=={{header|PARI/GP}}==
Note: Find plotmat() here on RosettaCode Wiki.
{{Works with|PARI/GP|2.9.1 and above}}
[[File:SierpTri1.png|right|thumb|Output SierpTri1.png]]
<syntaxhighlight lang="parigp">
\\ Chaos Game (Sierpinski triangle) 2/15/17 aev
pChaosGameS3(size,lim)={
Line 2,100 ⟶ 2,069:
time = 751 ms.
</pre>
 
=={{header|Pascal}}==
<syntaxhighlight lang=Pascal"pascal">
program ChaosGame;
 
Line 2,181 ⟶ 2,149:
 
</syntaxhighlight>
 
=={{header|Perl}}==
<syntaxhighlight lang="perl">use Imager;
 
my $width = 1000;
Line 2,221 ⟶ 2,188:
 
$img->write(file => 'chaos_game_triangle.png');</syntaxhighlight>
 
=={{header|Phix}}==
Implements five of the fractals on the wikipedia page.
Line 2,227 ⟶ 2,193:
{{libheader|Phix/online}}
You can run this online [http://phix.x10.mx/p2js/chaos.htm here]. Press space to cycle through the five fractals.
<!--<syntaxhighlight lang=Phix"phix">(phixonline)-->
<span style="color: #000080;font-style:italic;">--
-- demo\rosetta\Chaos_game.exw
Line 2,324 ⟶ 2,290:
<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
<!--</syntaxhighlight>-->
 
=={{header|Plain English}}==
<syntaxhighlight lang="plainenglish">To run:
Start up.
Initialize our reference points.
Line 2,370 ⟶ 2,335:
{{out}}
[https://commons.wikimedia.org/wiki/File:Chaos-game.png]
 
=={{header|Processing}}==
<syntaxhighlight lang="java">size(300, 260);
 
background(#ffffff); // white
Line 2,404 ⟶ 2,368:
==={{header|Processing Python mode}}===
 
<syntaxhighlight lang="python">from __future__ import division
 
size(300, 260)
Line 2,429 ⟶ 2,393:
 
set(x, height - y, colour)</syntaxhighlight>
 
=={{header|Python}}==
 
<syntaxhighlight lang=Python"python">
import argparse
import random
Line 2,550 ⟶ 2,513:
 
</syntaxhighlight>
 
=={{header|R}}==
Note: Find plotmat() here on RosettaCode Wiki.
Line 2,556 ⟶ 2,518:
{{Works with|R|3.3.1 and above}}
[[File:SierpTriR1.png|right|thumb|Output SierpTriR1.png]]
<syntaxhighlight lang="r">
# Chaos Game (Sierpinski triangle) 2/15/17 aev
# pChaosGameS3(size, lim, clr, fn, ttl)
Line 2,591 ⟶ 2,553:
'''Alternative code:'''
 
<syntaxhighlight lang="r">
pta = c(1,2)
ptb = c(4,2)
Line 2,623 ⟶ 2,585:
}
</syntaxhighlight>
 
=={{header|Racket}}==
 
{{trans|Haskell}}
 
<syntaxhighlight lang="racket">#lang racket
 
(require 2htdp/image)
Line 2,678 ⟶ 2,639:
(draw-fern)
(draw-dragon)</syntaxhighlight>
 
=={{header|Raku}}==
(formerly Perl 6)
{{works with|Rakudo|2018.10}}
 
<syntaxhighlight lang="raku" line>use Image::PNG::Portable;
 
my ($w, $h) = (640, 640);
Line 2,701 ⟶ 2,661:
 
$png.write: 'Chaos-game-perl6.png';</syntaxhighlight>
 
=={{header|REXX}}==
<syntaxhighlight lang="rexx">/*REXX pgm draws a Sierpinski triangle by running the chaos game with a million points*/
parse value scrsize() with sd sw . /*obtain the depth and width of screen.*/
sw= sw - 2 /*adjust the screen width down by two. */
Line 2,943 ⟶ 2,902:
</pre>
</b>
 
=={{header|Ring}}==
<syntaxhighlight lang="ring">
# Project : Chaos game
 
Line 3,007 ⟶ 2,965:
</syntaxhighlight>
* [https://lh3.googleusercontent.com/-xqBO5MB8fpc/Wg05SvwaF9I/AAAAAAAABDA/UGI2goKdDoAR6nbbGZF0YcuwGG6tancvACLcBGAs/s1600/CalmoSoftChaos.jpg Chaos Game (image)]
 
=={{header|Run BASIC}}==
<syntaxhighlight lang="runbasic">x = int(rnd(0) * 200)
y = int(rnd(0) * 173)
graphic #g, 200,200
Line 3,030 ⟶ 2,987:
next
render #g</syntaxhighlight>
 
=={{header|Rust}}==
Dependencies: image, rand
<syntaxhighlight lang="rust">
extern crate image;
extern crate rand;
Line 3,077 ⟶ 3,033:
}
</syntaxhighlight>
 
=={{header|Scala}}==
===Java Swing Interoperability===
<syntaxhighlight lang=Scala"scala">import javax.swing._
import java.awt._
import java.awt.event.ActionEvent
Line 3,149 ⟶ 3,104:
 
}</syntaxhighlight>
 
=={{header|Scilab}}==
This script uses complex numbers to represent (x,y) coordinates: real part as x position, and imaginary part as y position.
<syntaxhighlight lang="text">//Input
n_sides = 3;
side_length = 1;
Line 3,200 ⟶ 3,154:
It outputs a graphic window and prints on the console the time elapsed during iterations.
<pre>Time: 1.0424433s.</pre>
 
=={{header|Sidef}}==
<syntaxhighlight lang="ruby">require('Imager')
 
var width = 600
Line 3,238 ⟶ 3,191:
img.write(file => 'chaos_game.png')</syntaxhighlight>
Output image: [https://github.com/trizen/rc/blob/master/img/chaos-game-sidef.png Chaos game]
 
=={{header|Simula}}==
<syntaxhighlight lang="simula">BEGIN
INTEGER U, COLUMNS, LINES;
COLUMNS := 40;
Line 3,327 ⟶ 3,279:
XXX
</pre>
 
=={{header|Wren}}==
{{trans|Kotlin}}
Line 3,333 ⟶ 3,284:
{{libheader|Wren-dynamic}}
{{libheader|Wren-seq}}
<syntaxhighlight lang="ecmascript">import "dome" for Window
import "graphics" for Canvas, Color
import "math" for Point
Line 3,395 ⟶ 3,346:
 
var Game = ChaosGame.new(640, 640)</syntaxhighlight>
 
=={{header|X86 Assembly}}==
Sixty bytes handles it.
<syntaxhighlight lang="asm"> 1 ;Assemble with: tasm, tlink /t
2 0000 .model tiny
3 0000 .code
Line 3,436 ⟶ 3,386:
37 0136 0000 01DF 01DF Ty dw 0, 479, 479
38 end start</syntaxhighlight>
 
=={{header|XPL0}}==
<syntaxhighlight lang=XPL0"xpl0">int Tx, Ty, X, Y, R;
[SetVid($12); \640x480x4 graphics
Tx:= [320, 320-277, 320+277]; \equilateral triangle
Line 3,451 ⟶ 3,400:
SetVid($03); \restore normal text mode
]</syntaxhighlight>
 
=={{header|Yabasic}}==
<syntaxhighlight lang=Yabasic"yabasic">width = 640 : height = 480
open window width, height
window origin "lb"
Line 3,475 ⟶ 3,423:
dot x, y
next</syntaxhighlight>
 
=={{header|Z80 Assembly}}==
{{trans|BASIC}}
Line 3,483 ⟶ 3,430:
space key.
 
<syntaxhighlight lang="z80">VREG: equ 99h ; VDP register port
VR0: equ 0F3DFh ; Copy of VDP R0 in memory
VR1: equ 0F3E0h ; Copy of VDP R1 in memory
Line 3,653 ⟶ 3,600:
exx
ret</syntaxhighlight>
 
 
=={{header|zkl}}==
This is a half assed animated process - a bunch of pixels are drawn every couple of seconds and the pixmap written [to the file system]. So, if you open the output file ("chaosGame.jpg") it will [auto] update and show the progression of the image.
Line 3,661 ⟶ 3,606:
{{trans|Java}}
[[File:ChaosGame.zkl.jpg|240px|thumb|right]]
<syntaxhighlight lang="zkl">w,h:=640,640;
bitmap:=PPM(w,h,0xFF|FF|FF); // White background
colors:=T(0xFF|00|00,0x00|FF|00,0x00|00|FF); // red,green,blue
Thundergnat
10,333

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/329244"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information