summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/DiniSVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/svg/DiniSVG.m4')
-rw-r--r--graphics/circuit_macros/examples/svg/DiniSVG.m420
1 files changed, 10 insertions, 10 deletions
diff --git a/graphics/circuit_macros/examples/svg/DiniSVG.m4 b/graphics/circuit_macros/examples/svg/DiniSVG.m4
index 5631a4822f..1846917a4a 100644
--- a/graphics/circuit_macros/examples/svg/DiniSVG.m4
+++ b/graphics/circuit_macros/examples/svg/DiniSVG.m4
@@ -46,10 +46,10 @@ define(`Dini',
du = ur/ugrid/2
dv = vr/vgrid/2
for i=0 to n do {
- NE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
- SE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
- SW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
- NW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
+ NE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
+ SE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
+ SW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
+ NW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
f = (-cos(ciu[ix[i]])+1)/2
g = ( sin(ciu[ix[i]])+1)/2
line from NE to SE then to SW then to NW then to NE \
@@ -174,9 +174,9 @@ array2(h,m4inx,53,54,55,58,59,57)
}
for i=1 to n do {
for j=1 to 6 do { x[j]=h[ih[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
- for_(2,6,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
+ for_(2,6,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
}
m = 0
for i=1 to 12 do { # Visible pentagons
@@ -185,9 +185,9 @@ array2(h,m4inx,53,54,55,58,59,57)
}
for i=1 to m do {
for j=1 to 5 do { x[j]=p[ip[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
- for_(2,5,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
+ for_(2,5,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
}
] scaled 2.5 with .sw at last [].se+(1,0)
.PE