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|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|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]