Rosetta Code

Sierpinski triangle: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|PostScript}}: cleaner version
→‎{{header|PostScript}}: cleaner implementation
Line 1,167:
 
=={{header|PostScript}}==
This draws the triangles in a string-rewrite fashion, where all edges form a single polyline. 9 page document showing progession.
<lang postscript>%!PS-Adobe-3.0
<lang postscript>/F { 1 0 rlineto } def
%%BoundingBox 0 0 300 300
/r+ { 120 rotate } def▼
/- {-120 rotate } def
/lv {.5 1.5 0 lineto fscale } def▼
/^ { 2 2 scale } def
/!0{ dup 1 sub dup -1 eq not } def
 
/fX { 1 !0 translate{ v X + F - X - F + X ^ } { F } ifelse pop } def
▲/l { 1 0 lineto f } def
▲/r { 120 rotate } def
 
/S0 {1 8 { 300 gsave300 dupscale 0 1 sub12 div dupmoveto
0X eq+ F + F fill showpage { 0 0 moveto l r l fill } for
%%EOF</lang>▼
{ .5 .5 scale f S S S } ifelse
grestore f r f pop
} def
 
300 300 scale 0 1 12 div translate
 
8 S pop
showpage
%%EOF
▲</lang>
 
=={{header|Pop11}}==
Retrieved from "https://rosettacode.org/wiki/Sierpinski_triangle"