diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/SierpinskiDPV.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/SierpinskiDPV.m4 | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/SierpinskiDPV.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/SierpinskiDPV.m4 new file mode 100644 index 00000000000..08d7fab1117 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/SierpinskiDPV.m4 @@ -0,0 +1,54 @@ +.PS +# Sierpinski.m4 +gen_init +[ + define Sierpinski { + if $1 > 0.04 then { + d = $1/2-lh + shade(1,line from $2+(d/2,d/2*s3+lw*2) right d/2 up d/2*s3 then left d*2 \ + then right d down d*s3 then right d/2 up d/2*s3 ) + Sierpinski($1/2,$2-($1/2,0)) + Sierpinski($1/2,$2+($1/2,0)) + Sierpinski($1/2,$2+(0,$1*s3/2)) + } + } + + r = 3 + linethick = 0.2 + #linethick = 1/2 /(1pt__) + lw = linethick pt__ /2 + s3 = sqrt(3) + lh = lw*s3 + A: 3,3 + d = r/2-lh + shade(0,line from A+(0,lw) right d then up d*s3 left d then down d*s3 left d\ + then right d ) + ifpstricks(`psset_(linecolor=white)') + Sierpinski(r/2,A) + + ifpstricks(`psset_(linecolor=black)') + thicklines_ + ] + +# CayleyGraph.m4 +[ +define CayleyGraph { + if $3 > 0 then { + { line to Here+(cosd($2),sind($2))*($1) + exec sprintf("CayleyGraph(%g,%g,%g);", ($1)/2, $2, $3-1); } + { line to Here+(cosd($2+90),sind($2+90))*($1) + exec sprintf("CayleyGraph(%g,%g,%g);", ($1)/2, $2+90, $3-1); } + { line to Here+(cosd($2-90),sind($2-90))*($1) + exec sprintf("CayleyGraph(%g,%g,%g);", ($1)/2, $2-90, $3-1); } + } + } + + size = 2 + depth = 6 + for t=0 to 270 by 90 do { + line from (0,0) to (cosd(t),sind(t))*size/2; + { exec sprintf("CayleyGraph(%g,%g,%g);",size/4,t,depth); } + } + ] scaled 3/4 with .sw at last [].se+(-0.25,0) + +.PE |