diff options
Diffstat (limited to 'graphics/circuit_macros/examples/svg/graysurfSVG.m4')
-rw-r--r-- | graphics/circuit_macros/examples/svg/graysurfSVG.m4 | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/graphics/circuit_macros/examples/svg/graysurfSVG.m4 b/graphics/circuit_macros/examples/svg/graysurfSVG.m4 index 13c91aabc0..a42709b96e 100644 --- a/graphics/circuit_macros/examples/svg/graysurfSVG.m4 +++ b/graphics/circuit_macros/examples/svg/graysurfSVG.m4 @@ -25,9 +25,9 @@ Surface:[ Orig: (0,0) linethick_(1.2) - arrow from Orig to 1.2 <Orig,(project(xmax,0,0))> ; "svg_it(x)" wid 0.08 below - arrow from Orig to 1.2 <Orig,(project(0,ymax,0))> ; "svg_it(y)" ljust - arrow from Orig to 1.2 <Orig,(project(0,0,zmax))> ; "svg_it(z)" rjust + arrow from Orig to 1.2 <Orig,Project(xmax,0,0)> ; "svg_it(x)" wid 0.08 below + arrow from Orig to 1.2 <Orig,Project(0,ymax,0)> ; "svg_it(y)" ljust + arrow from Orig to 1.2 <Orig,Project(0,0,zmax)> ; "svg_it(z)" rjust linethick_(0) for i = 0 to nx-1 do { @@ -36,10 +36,10 @@ Surface:[ y = ymax*j/ny fnxy = fn(x,y) shade((fnmax+fnxy)/fnmax/2, - line from (project(x,y,fnxy)) to (project(x,(y+dy),`fn(x,(y+dy))'))\ - then to (project((x+dx),(y+dy),`fn((x+dx),(y+dy))'))\ - then to (project((x+dx),y,`fn((x+dx),y)'))\ - then to (project(x,y,fnxy)) + line from Project(x,y,fnxy) to Project(x,(y+dy),`fn(x,(y+dy))')\ + then to Project((x+dx),(y+dy),`fn((x+dx),(y+dy))')\ + then to Project((x+dx),y,`fn((x+dx),y)')\ + then to Project(x,y,fnxy) ) } } ] with .w at last [].e+(-0.2,0) @@ -63,8 +63,8 @@ define(`tvisible',`dot3D(view3D1,view3D2,view3D3, rot3Dz((`$1')*dtor_,rot3Dy((`$2')*dtor_,1,0,0)))') Orig: (0,0) -X: arrow from Orig to (project(tradius+sradius*4,0,0)); "x" rjust -Y: arrow from Orig to (project(0,tradius+sradius*2,0)); "y" below wid 4bp__ +X: arrow from Orig to Project(tradius+sradius*4,0,0); "x" rjust +Y: arrow from Orig to Project(0,tradius+sradius*2,0); "y" below wid 4bp__ dt = 10 # major angle degrees per facet ds = 10 # minor angle degrees per facet @@ -87,10 +87,10 @@ Y: arrow from Orig to (project(0,tradius+sradius*2,0)); "y" below wid 4bp__ thinlines_ for i = 1 to n do { tc = t[ix[i]]; sc = s[ix[i]] - SE: (project(torus(tc+dt/2,sc-ds/2))) - SW: (project(torus(tc-dt/2,sc-ds/2))) - NW: (project(torus(tc-dt/2,sc+ds/2))) - NE: (project(torus(tc+dt/2,sc+ds/2))) + SE: Project(torus(tc+dt/2,sc-ds/2)) + SW: Project(torus(tc-dt/2,sc-ds/2)) + NW: Project(torus(tc-dt/2,sc+ds/2)) + NE: Project(torus(tc+dt/2,sc+ds/2)) f = ((dcosine3D(3,torus(tc,sc))/sradius+1)/2)^2 g = min(f,0.9) setrgb(g,g,g) @@ -103,10 +103,10 @@ thinlines_ } thicklines_ - arrow from Orig to (project(0,0,tradius*1.4)); "z" above - dashline(from Orig to (project(torus(0,0))),,,,G) + arrow from Orig to Project(0,0,tradius*1.4); "z" above + dashline(from Orig to Project(torus(0,0)),,,,G) arrow to X.end - dashline(from Orig to (project(torus(90,0))),,,,G) + dashline(from Orig to Project(torus(90,0)),,,,G) arrow to Y.end ] with .sw at last [].se+(0.2,0) @@ -131,11 +131,11 @@ Hat: [ dy = 0.05 Orig: (0,0) -X: arrow from Orig to (project(maxy*1.2,0,0)); "x" rjust -Y: arrow from Orig to (project(0,maxy*1.2,0)); "y" ljust -Xv: (project(1,0,0)) -Yv: (project(0,1,0)) -Zv: (project(0,0,1)) +X: arrow from Orig to Project(maxy*1.2,0,0); "x" rjust +Y: arrow from Orig to Project(0,maxy*1.2,0); "y" ljust +Xv: Project(1,0,0) +Yv: Project(0,1,0) +Zv: Project(0,0,1) # create the arrays and sort n = 0 for t = dang/2 to 360.1 by dang do { @@ -151,14 +151,14 @@ Zv: (project(0,0,1)) dpquicksort(d,1,n,ix) # draw the facets ellipse wid maxy*2 ht maxy*2*sind(elevation) \ - with .c at (project(0,0,(maxy^2-1)^2)+linethick bp__/2) + with .c at Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2) thinlines_ for i = 1 to n do { tc = t[ix[i]]; yc = y[ix[i]] - SE: (project(hat(tc+dang/2,yc-dy/2))) - SW: (project(hat(tc-dang/2,yc-dy/2))) - NW: (project(hat(tc-dang/2,yc+dy/2))) - NE: (project(hat(tc+dang/2,yc+dy/2))) + SE: Project(hat(tc+dang/2,yc-dy/2)) + SW: Project(hat(tc-dang/2,yc-dy/2)) + NW: Project(hat(tc-dang/2,yc+dy/2)) + NE: Project(hat(tc+dang/2,yc+dy/2)) f = abs(yc^2-1) line invis fill f from SE to SW then to NW then to NE then to SE } @@ -169,21 +169,21 @@ nr = -1 for i=1 to mm do { y = i/(mm+3) findroot(edge,(azimuth+2),(azimuth+180-2),1e-8,t) nr +=1 - R[mm+nr]: (project(hat(t,y))) + R[mm+nr]: Project(hat(t,y)) R[mm-1-nr]: (-R[mm+nr].x,R[mm+nr].y) } fitcurve(R,mm*2-1) # Z axis thicklines_ -Z: arrow from Zv to (project(0,0,1.2)); "z" ljust +Z: arrow from Zv to Project(0,0,1.2); "z" ljust line dashed from Orig to Zv chop 0 chop dashwid/2 line dashed from Orig to Xv line dashed from Orig to Yv # Partial rim ellipsearc(maxy*2,maxy*2*sind(elevation),-pi_*1.4,pi_/3) \ - with .C at (project(0,0,(maxy^2-1)^2)+linethick bp__/2) + with .C at Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2) ] scaled 1.25 with .s at 2nd [].ne+(0,-0.75) ] scaled 0.85 |