diff options
Diffstat (limited to 'graphics/circuit_macros/examples/svg/DiniSVG.m4')
-rw-r--r-- | graphics/circuit_macros/examples/svg/DiniSVG.m4 | 20 |
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 |