summaryrefslogtreecommitdiff
path: root/graphics/asymptote/examples/fequlogo.asy
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/asymptote/examples/fequlogo.asy
Initial commit
Diffstat (limited to 'graphics/asymptote/examples/fequlogo.asy')
-rw-r--r--graphics/asymptote/examples/fequlogo.asy40
1 files changed, 40 insertions, 0 deletions
diff --git a/graphics/asymptote/examples/fequlogo.asy b/graphics/asymptote/examples/fequlogo.asy
new file mode 100644
index 0000000000..b928e42197
--- /dev/null
+++ b/graphics/asymptote/examples/fequlogo.asy
@@ -0,0 +1,40 @@
+// A compressed version of the required data file may be obtained from:
+// http://www-roc.inria.fr/gamma/download/counter.php?dir=ARCHITEC/&get_obj=uhrturm.obj.gz
+
+import graph3;
+import obj;
+
+size(200,0);
+size3(200);
+
+if(settings.render < 0) settings.render=8;
+
+texpreamble("\usepackage[T1]{fontenc}");
+texpreamble("\usepackage{ccfonts,eulervm}");
+
+currentprojection=perspective(4,1,2);
+currentlight=(4,0,2);
+currentlight.background=blue;
+
+real R=4;
+
+triple f1(pair t) {return (R*cos(t.x),R*sin(t.x),t.y);}
+
+draw(shift(-0.6Z)*scale3(0.66)*rotate(55,Z)*rotate(90,X)*
+ obj("uhrturm.obj",orange));
+
+surface s=surface(f1,(0,0),(2pi,2),8,8,Spline);
+
+string lo="$\displaystyle f(x+y)=f(x)+f(y)$";
+string hi="$\displaystyle F_{t+s}=F_t\circ F_s$";
+
+real h=0.0125;
+
+draw(surface(rotate(2)*xscale(0.32)*yscale(0.6)*lo,s,-pi/4-1.5*pi/20,0.5,h));
+draw(surface(rotate(0)*xscale(-0.45)*yscale(0.3)*hi,s,0.8*pi,0.25,h),blue);
+
+add(new void(frame f, transform3 t, picture pic, projection P) {
+ draw(f,surface(invert(box(min(f,P),max(f,P)),min3(f),P),
+ new pen[] {orange,red,yellow,brown}));
+ }
+);