Sierpinski curve: Difference between revisions

 

Produce a graphical or ASCII-art representation of a [[wp:Sierpiński_curve|Sierpinski curve]] of at least order 3.

 

=={{header|Action!}}==

Action! language does not support recursion. Therefore an iterative approach with a stack has been proposed.

DEFINE N_="20+"

DEFINE E_="30+"

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Sierpinski_curve.png Screenshot from Atari 8-bit computer]

 

=={{header|AutoHotkey}}==

{{trans|Go}}

Requires [https://www.autohotkey.com/boards/viewtopic.php?t=6517 Gdip Library]

SierpinskiH := 500

level := 5

ExitApp

Return

 

=={{header|C++}}==

Output is a file in SVG format. The curve is generated using the Lindenmayer system method.

#include <cmath>

#include <fstream>

s.write(out, 545, 7, 5);

return 0;

 

{{out}}

 

=={{header|Factor}}==

{{works with|Factor|0.99 2020-08-14}}

 

: curve ( L-system -- L-system )

} >>rules ;

 

 

 

=={{header|Fōrmulæ}}==

 

 

 

 

=={{header|Go}}==

{{trans|Phix}}

A partial translation anyway which produces a static image of a SC of level 5, yellow on blue, which can be viewed with a utility such as EOG.

 

import (

dc.Stroke()

dc.SavePNG("sierpinski_curve.png")

 

=={{header|Java}}==

{{trans|C++}}

 

public class SierpinskiCurve {

private static final String PRODUCTION = "XF+G+XF--F--XF+G+X";

private static final int ANGLE = 45;

 

{{out}}

 

=={{header|Julia}}==

===Turtle procedural (lineto) version===

Modified from [https://craftofcoding.wordpress.com/2018/05/08/recursive-patterns-the-sierpinski-curve/ Craft of Coding blog, Processing version]

 

function sierpinski_curve(x0, y0, h, level)

finish()

preview()

===LSystem version===

 

sierpcurve = LSystem(Dict("X" => "XF+G+XF--F--XF+G+X"), "F--XF--F--XF")

showpreview = true

)

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

 

=={{header|Nim}}==

{{trans|C++}}

We produce a SVG file using same algorithm as the one of C++ version.

 

type

var sc = SierpinskiCurve(file: outfile)

sc.write(545, 7, 5)

 

{{out}}

 

=={{header|Perl}}==

use warnings;

use SVG;

open my $fh, '>', 'sierpinski-curve.svg';

print $fh $svg->xmlify(-namespace=>'svg');

See: [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/sierpinski-curve.svg sierpinski-curve.svg] (offsite SVG image)

 

=={{header|Phix}}==

{{libheader|Phix/pGUI}}

 

=={{header|Processing}}==

 

// https://rosettacode.org/wiki/Sierpinski_curve#C.2B.2B

}

}

{{out}}

Offsite image at [https://github.com/rupertrussell/sierpinski_curve/blob/main/Sierpinski_Curve_Level5.png Sierpinski_Curve_Level5.png]

Offsite image at [https://github.com/rupertrussell/sierpinski_curve/blob/main/Sierpinski_Curve_Level6.png Sierpinski_Curve_Level6.png]

Offsite image at [https://github.com/rupertrussell/sierpinski_curve/blob/main/sierpinski_curve.gif level 5 animated gif]

 

=={{header|Quackery}}==

 

[ stack ] is switch.arg ( --> [ )

5 times expand

witheach

[ switch

char A case [ ( ignore ) ]

otherwise [ 5 1 walk ] ] ]

 

{{output}}

 

 

=={{header|Raku}}==

{{works with|Rakudo|2020.02}}

 

 

role Lindenmayer {

],

],

See: [https://github.com/thundergnat/rc/blob/master/img/sierpinski-curve-perl6.svg Sierpinski-curve-perl6.svg] (offsite SVG image)

 

=={{header|Rust}}==

Program output is a file in SVG format.

// svg = "0.8.0"

 

fn main() {

SierpinskiCurve::save("sierpinski_curve.svg", 545, 5).unwrap();

 

{{out}}

 

=={{header|Sidef}}==

Uses the '''LSystem()''' class from [https://rosettacode.org/wiki/Hilbert_curve#Sidef Hilbert curve].

x => 'xF+G+xF--F--xF+G+x',

)

)

 

Output image: [https://github.com/trizen/rc/blob/master/img/sierpi%C5%84ski_curve-sidef.png Sierpiński curve]

 

{{trans|Go}}

{{libheader|DOME}}

import "dome" for Window

 

}

 

 

 

 

 

 

=={{header|zkl}}==

Uses Image Magick and

the PPM class from http://rosettacode.org/wiki/Bitmap/Bresenham%27s_line_algorithm#zkl

 

fcn sierpinskiCurve(order){

}

img.writeJPGFile("sierpinskiCurve.zkl.jpg");

{{out}}

Offsite image at [http://www.zenkinetic.com/Images/RosettaCode/sierpinskiCurve.zkl.jpg Sierpinski curve order 5]