home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hackers Magazine 57
/
CdHackersMagazineNr57.iso
/
Software
/
Multimedia
/
k3d-setup-0.7.11.0.exe
/
share
/
k3d
/
lsystem
/
cees-sierpinski-gasket2.ls
< prev
next >
Wrap
Text File
|
2008-01-23
|
1KB
|
27 lines
#╔═════════════════╤═══════════════════════════════╗
#║ Sierpin2.ls │ (c) C.J. van der Mark ║
#╟─────────────────┴───────────────────────────────╢
#║ Questions about Lparser files to: ║
#║ Internet cvdmark@xs4all.nl ║
#║ Fido 2:283/203.11 ║
#╠═════════════════════════════════════════════════╩═══════════╗
#║ This ls produces the 3D Sierpinski gaskets, "wire-form". ║
#║ Recursionlevel 4 will produce the 1th order gasket, 5 the ║
#║ 2th etc. ║
#║ ║
#║ To close the bottom of the tetraeders, ║
#║ replace b by b=[[+F++++F++++f]{+f++++f++++f]}] ║
#╚═════════════════════════════════════════════════════════════╝
8
30
1
C
B=[[^ea^(70)b]>>&ed]['(.5)C]+++f---
C=[BB+++^^^^f---B'(.82)f'(1.22)---^'(.574)f'(1.74)+++>>>>>B]+++ff---
a=[+F++++F++++F]
b=[[+F++++F++++F]{[+F++++F++++F]}]
# b=[[+F++++F++++f]{+f++++f++++f]}]
d=[+f++++F++++f]
e=(19.5)
@