Sierpinski square curve: Difference between revisions

{{trans|C++}}

 

V x = (size - length) / 2

V y = Float(length)

outfile.write("'/>\n</svg>\n")

 

 

{{out}}

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

Output is a file in SVG format.

#include <cmath>

#include <fstream>

s.write(out, 635, 5, 5);

return 0;

 

{{out}}

=={{header|Factor}}==

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

 

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

<L-system> square-curve

"Sierpinski square curve" open-window

 

 

{{libheader|go-lindenmayer}}

The following uses the Lindenmayer system with the appropriate parameters from the Wikipedia article and produces a similar image (apart from the colors, yellow on blue) to the Sidef and zkl entries.

 

import (

dc.Stroke()

dc.SavePNG("sierpinski_square_curve.png")

 

=={{header|J}}==

# # # # # # # #

# # # #

# # # # # # # #

# # # #

 

=={{header|Java}}==

{{trans|C++}}

 

public class SierpinskiSquareCurve {

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

private static final int ANGLE = 90;

 

{{out}}

for the simple-turtle.jq module used in this entry. The `include`

statement assumes the file is in the pwd.

 

def rules: {"X": "XF-F+F-XF+F+XF-F+F-X"};

sierpinski_curve(5)

| path("none"; "red"; 1) | svg(1000)

 

 

=={{header|Julia}}==

 

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

showpreview = true

)

 

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

{{out}}

Outputs a graphical version of a 3rd order Sierpinski curve.

{{trans|C++}}

We produce a SVG file.

 

type

var sc = SierpinskiCurve(file: outfile)

sc.write(635, 5, 5)

 

{{out}}

 

=={{header|Perl}}==

use warnings;

use SVG;

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

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

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

 

{{libheader|Phix/online}}

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

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

-- demo\rosetta\Sierpinski_square_curve.exw

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

and an svg-creating version:

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (file i/o)</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">rule</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"XF-F+F-XF+F+XF-F+F-X"</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fn</span><span style="color: #0000FF;">,</span><span style="color: #000000;">svgfmt</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">max</span><span style="color: #0000FF;">(</span><span style="color: #000000;">X</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">xt</span><span style="color: #0000FF;">+</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">max</span><span style="color: #0000FF;">(</span><span style="color: #000000;">Y</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">yt</span><span style="color: #0000FF;">+</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #000000;">points</span><span style="color: #0000FF;">,</span><span style="color: #000000;">xt</span><span style="color: #0000FF;">,</span><span style="color: #000000;">yt</span><span style="color: #0000FF;">})</span>

<span style="color: #7060A8;">close</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fn</span><span style="color: #0000FF;">)</span>

 

=={{header|Python}}==

import math

 

s_angle = 90

 

 

=={{header|Quackery}}==

 

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

char R case [ 1 4 turn ]

char F case [ 5 1 walk ]

 

{{output}}

{{works with|Rakudo|2020.02}}

 

 

role Lindenmayer {

],

],

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

 

=={{header|Rust}}==

Program output is a file in SVG format.

// svg = "0.8.0"

 

fn main() {

SierpinskiSquareCurve::save("sierpinski_square_curve.svg", 635, 5.0, 5).unwrap();

 

{{out}}

=={{header|Sidef}}==

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

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

)

)

 

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

 

=={{header|VBScript}}==

Output to html (svg) displayed in the default browser. A turtle graphics class helps to keep the curve definition simple

 

option explicit

sierp 5,4

set x=nothing

=={{header|Wren}}==

{{trans|Go}}

{{libheader|DOME}}

{{libheader|Wren-lsystem}}

import "dome" for Window

import "math" for Math

}

 

 

=={{header|zkl}}==

Uses Image Magick and

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

 

fcn sierpinskiSquareCurve(n){ // Lindenmayer system --> Data of As

}

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

{{out}}

Offsite image at [http://www.zenkinetic.com/Images/RosettaCode/sierpinskiSquareCurve.zkl.jpg Sierpinski square curve of order 4]