summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/SierpinskiSVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/svg/SierpinskiSVG.m4')
-rw-r--r--graphics/circuit_macros/examples/svg/SierpinskiSVG.m412
1 files changed, 6 insertions, 6 deletions
diff --git a/graphics/circuit_macros/examples/svg/SierpinskiSVG.m4 b/graphics/circuit_macros/examples/svg/SierpinskiSVG.m4
index 7fbf13bf15..08d7fab111 100644
--- a/graphics/circuit_macros/examples/svg/SierpinskiSVG.m4
+++ b/graphics/circuit_macros/examples/svg/SierpinskiSVG.m4
@@ -13,7 +13,7 @@ gen_init
}
}
- r = 4
+ r = 3
linethick = 0.2
#linethick = 1/2 /(1pt__)
lw = linethick pt__ /2
@@ -35,20 +35,20 @@ gen_init
define CayleyGraph {
if $3 > 0 then {
{ line to Here+(cosd($2),sind($2))*($1)
- exec sprintf("CayleyGraph(%g,%g,%g);",0.5*($1),$2,$3-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);",0.5*($1),$2+90,$3-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);",0.5*($1),$2-90,$3-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));
+ line from (0,0) to (cosd(t),sind(t))*size/2;
{ exec sprintf("CayleyGraph(%g,%g,%g);",size/4,t,depth); }
}
- ] with .sw at last [].se+(-0.25,0)
+ ] scaled 3/4 with .sw at last [].se+(-0.25,0)
.PE