From Wikipedia, the free encyclopedia
Original file (SVG file, nominally 150 × 150 pixels, file size: 16 KB)
Summary
Pascal src code
uses GraphABC ;
const
Step = 10 ;
var
angle : integer := 1 ;
procedure Draw () ;
begin
angle := angle mod 4 ;
case angle of
0 : LineRel ( Step , 0 ) ;
1 ,- 3 : LineRel ( 0 , Step ) ;
2 ,- 2 : LineRel ( - Step , 0 ) ;
3 ,- 1 : LineRel ( 0 , - Step ) ;
end ;
end ;
procedure Fractal ( depth : integer ; dividedAngle : integer ) ;
begin
if ( depth <= 0 ) then exit ;
Dec ( depth ) ;
Fractal ( depth , dividedAngle ) ;
Draw () ;
Fractal ( depth , - dividedAngle ) ;
Draw () ;
Fractal ( depth , dividedAngle ) ;
angle += dividedAngle ;
Draw () ;
angle += dividedAngle ;
Fractal ( depth , - dividedAngle ) ;
Draw () ;
Fractal ( depth , dividedAngle ) ;
Draw () ;
Fractal ( depth , - dividedAngle ) ;
angle -= dividedAngle ;
Draw () ;
angle -= dividedAngle ;
Fractal ( depth , dividedAngle ) ;
Draw () ;
Fractal ( depth , - dividedAngle ) ;
Draw () ;
Fractal ( depth , dividedAngle ) ;
end ;
begin
SetWindowSize ( 500 , 500 ) ;
MoveTo ( 5 , 5 ) ;
Fractal ( 3 , - 1 ) ;
end .
Licensing
I, the copyright holder of this work, hereby publish it under the following license:
This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication .
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.
http://creativecommons.org/publicdomain/zero/1.0/deed.en CC0 Creative Commons Zero, Public Domain Dedication false false
English Order of the squares to which intervals [(a-1)/9, a/9] in the Peano curve map to
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time Thumbnail Dimensions User Comment
current 23:45, 7 June 2022 150 × 150 (16 KB) Ovinus Uploaded own work with UploadWizard
File usage
The following pages on the English Wikipedia use this file (pages on other projects are not listed):
This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.
If the file has been modified from its original state, some details may not fully reflect the modified file.