Sierpinski square curve: Difference between revisions

Line 8:

<~~lang~~ 11l>F sierpinski_square(fname, size, length, order)

<syntaxhighlight lang="11l">F sierpinski_square(fname, size, length, order)

V x = (size - length) / 2

V y = Float(length)

Line 35:

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

sierpinski_square(‘sierpinski_square.svg’, 635, 5, 5)</~~lang~~>

sierpinski_square(‘sierpinski_square.svg’, 635, 5, 5)</syntaxhighlight>

Line 42:

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

Output is a file in SVG format.

<~~lang~~ cpp>// See https://en.wikipedia.org/wiki/Sierpi%C5%84ski_curve#Representation_as_Lindenmayer_system

<syntaxhighlight lang="cpp">// See https://en.wikipedia.org/wiki/Sierpi%C5%84ski_curve#Representation_as_Lindenmayer_system

#include <cmath>

#include <fstream>

Line 121:

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

return 0;

}</~~lang~~>

}</syntaxhighlight>

Line 128:

=={{header|Factor}}==

<~~lang~~ factor>USING: accessors kernel L-system sequences ui ;

<syntaxhighlight lang="factor">USING: accessors kernel L-system sequences ui ;

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

Line 141:

<L-system> square-curve

"Sierpinski square curve" open-window

] with-ui</~~lang~~>

] with-ui</syntaxhighlight>

Line 178:

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.

<~~lang~~ go>package main

<syntaxhighlight lang="go">package main

import (

Line 237:

dc.Stroke()

dc.SavePNG("sierpinski_square_curve.png")

}</~~lang~~>

}</syntaxhighlight>

=={{header|J}}==

It looks like there's two different (though similar) concepts implemented here, of what a "Sierpinski square curve" looks like (the wikipedia writeup shows 45 degree angles -- like [[j:File:Sierpinski_curve.png]] but many of the implementations here show only right angles). And, the wikipedia writeup is obtuse about some of the details of the structure. And, we've got some dead links here. So, for now, a quickie ascii art implementation:<~~lang~~ J> 1j1#"1' #'{~{{l,(1,~0{.~#y),l=.y,.0,.y}}^:3,.1

It looks like there's two different (though similar) concepts implemented here, of what a "Sierpinski square curve" looks like (the wikipedia writeup shows 45 degree angles -- like [[j:File:Sierpinski_curve.png]] but many of the implementations here show only right angles). And, the wikipedia writeup is obtuse about some of the details of the structure. And, we've got some dead links here. So, for now, a quickie ascii art implementation:<syntaxhighlight lang="j"> 1j1#"1' #'{~{{l,(1,~0{.~#y),l=.y,.0,.y}}^:3,.1

# # # # # # # #

# # # #

Line 255:

# # # # # # # #

# # # #

# # # # # # # # </~~lang~~>

# # # # # # # # </syntaxhighlight>

=={{header|Java}}==

<~~lang~~ java>import java.io.*;

<syntaxhighlight lang="java">import java.io.*;

public class SierpinskiSquareCurve {

Line 349:

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

private static final int ANGLE = 90;

}</~~lang~~>

}</syntaxhighlight>

Line 366:

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

statement assumes the file is in the pwd.

<~~lang~~ jq>include "simple-turtle" {search: "."};

<syntaxhighlight lang="jq">include "simple-turtle" {search: "."};

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

Line 393:

sierpinski_curve(5)

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

</syntaxhighlight>

</lang>

=={{header|Julia}}==

<~~lang~~ julia>using Lindenmayer # https://github.com/cormullion/Lindenmayer.jl

<syntaxhighlight lang="julia">using Lindenmayer # https://github.com/cormullion/Lindenmayer.jl

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

Line 409:

showpreview = true

)

</syntaxhighlight>

</lang>

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

<lang ~~Mathematica~~>Graphics[SierpinskiCurve[3]]</~~lang~~>

<syntaxhighlight lang="mathematica">Graphics[SierpinskiCurve[3]]</syntaxhighlight>

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

Line 419:

We produce a SVG file.

<~~lang~~ ~~Nim~~>import math

<syntaxhighlight lang="nim">import math

type

Line 472:

var sc = SierpinskiCurve(file: outfile)

sc.write(635, 5, 5)

outfile.close()</~~lang~~>

outfile.close()</syntaxhighlight>

Line 478:

=={{header|Perl}}==

<~~lang~~ perl>use strict;

<syntaxhighlight lang="perl">use strict;

use warnings;

use SVG;

Line 514:

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

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

close $fh;</~~lang~~>

close $fh;</syntaxhighlight>

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

Line 521:

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

--

-- demo\rosetta\Sierpinski_square_curve.exw

Line 583:

IupClose()

end if

and an svg-creating version:

without js -- (file i/o)

constant rule = "XF-F+F-XF+F+XF-F+F-X"

Line 624:

printf(fn,svgfmt,{max(X)+xt+10,max(Y)+yt+10,points,xt,yt})

close(fn)

=={{header|Python}}==

<~~lang~~ ~~Python~~>import matplotlib.pyplot as plt

<syntaxhighlight lang="python">import matplotlib.pyplot as plt

import math

Line 676:

s_angle = 90

draw_lsystem(s_axiom, s_rules, s_angle, 3)</~~lang~~>

draw_lsystem(s_axiom, s_rules, s_angle, 3)</syntaxhighlight>

=={{header|Quackery}}==

<~~lang~~ ~~Quackery~~> [ $ "turtleduck.qky" loadfile ] now!

<syntaxhighlight lang="quackery"> [ $ "turtleduck.qky" loadfile ] now!

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

Line 713:

char R case [ 1 4 turn ]

char F case [ 5 1 walk ]

otherwise ( ignore ) ] ]</~~lang~~>

otherwise ( ignore ) ] ]</syntaxhighlight>

Line 723:

<lang ~~perl6~~>use SVG;

<syntaxhighlight lang="raku" line>use SVG;

role Lindenmayer {

Line 766:

],

);</~~lang~~>

);</syntaxhighlight>

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.

<~~lang~~ rust>// [dependencies]

<syntaxhighlight lang="rust">// [dependencies]

// svg = "0.8.0"

Line 852:

fn main() {

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

}</~~lang~~>

}</syntaxhighlight>

Line 859:

=={{header|Sidef}}==

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

<~~lang~~ ruby>var rules = Hash(

<syntaxhighlight lang="ruby">var rules = Hash(

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

)

Line 875:

)

lsys.execute('F+xF+F+xF', 5, "sierpiński_square_curve.png", rules)</~~lang~~>

lsys.execute('F+xF+F+xF', 5, "sierpiński_square_curve.png", rules)</syntaxhighlight>

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

Line 1,034:

sierp 5,4

set x=nothing

</syntaxhighlight>

</lang>

=={{header|Wren}}==

<~~lang~~ ecmascript>import "graphics" for Canvas, Color

<syntaxhighlight lang="ecmascript">import "graphics" for Canvas, Color

import "dome" for Window

import "math" for Math

Line 1,094:

}

var Game = SierpinskiSquareCurve.new(770, 770, Color.blue, Color.yellow)</~~lang~~>

var Game = SierpinskiSquareCurve.new(770, 770, Color.blue, Color.yellow)</syntaxhighlight>

=={{header|zkl}}==

Uses Image Magick and

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

<~~lang~~ zkl>sierpinskiSquareCurve(4) : turtle(_);

<syntaxhighlight lang="zkl">sierpinskiSquareCurve(4) : turtle(_);

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

Line 1,127:

}

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

}</~~lang~~>

}</syntaxhighlight>

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