Sierpinski curve: Difference between revisions

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

{{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 ;

 

 

 

{{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}}

depending on the location of the included file, and the command-line

options used.

 

# Compute the curve using a Lindenmayer system of rules

sierpinski_curve(5)

| svg

 

=={{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|Lambdatalk}}==

 

{def sierp

{def sierp.r

stroke="#000" fill="transparent" stroke-width="1"}}

}

 

See the result in http://lambdaway.free.fr/lambdawalks/?view=sierpinsky

 

=={{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)

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Sierpinski_curve.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Sierpinski_curve.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Processing}}==

{{trans|Go}}

 

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

 

=={{header|Python}}==

import matplotlib.pyplot as plt

from matplotlib.colors import hsv_to_rgb as hsv

#curve('F', {'F': 'G-F-G', 'G': 'F+G+F'}, 60, 7)

#curve('A', {'A': '+BF-AFA-FB+', 'B': '-AF+BFB+FA-'}, 90, 6)

 

Output in the plot window.

=={{header|Quackery}}==

 

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

char A case [ ( ignore ) ]

otherwise [ 5 1 walk ] ] ]

 

{{output}}

{{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|Yabasic}}==

// Adapted from https://www.ocg.at/sites/ocg.at/files/EuroLogo2001/P74Batagelj.pdf to Yabasic by Galileo, 01/2022

 

 

startTurtle()

 

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