diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/asymptote/examples/sacone.asy |
Initial commit
Diffstat (limited to 'graphics/asymptote/examples/sacone.asy')
-rw-r--r-- | graphics/asymptote/examples/sacone.asy | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/graphics/asymptote/examples/sacone.asy b/graphics/asymptote/examples/sacone.asy new file mode 100644 index 0000000000..9cdd0e138a --- /dev/null +++ b/graphics/asymptote/examples/sacone.asy @@ -0,0 +1,23 @@ +size(0,150); + +pair z0=(0,0); +real r=1; +real h=1; +real l=sqrt(r^2+h^2); +real a=(1-r/l)*360; +real a1=a/2; +real a2=360-a/2; +path g=arc(z0,r,a1,a2); +fill((0,0)--g--cycle,lightgreen); +draw(g); +pair z1=point(g,0); +pair z2=point(g,length(g)); + +real r2=1.1*r; +path c=arc(0,r2,a1,a2); +draw("$2\pi r$",c,red,Arrows,Bars,PenMargins); +pen edge=blue+0.5mm; +draw("$\ell$",z0--z1,0.5*SE,edge); +draw(z0--z2,edge); +draw(arc(z0,r,a2-360,a1),grey+dashed); +dot(0); |