summaryrefslogtreecommitdiff
path: root/Master/texmf/doc/asymptote/examples/penfunctionimage.asy
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/penfunctionimage.asy')
-rw-r--r--Master/texmf/doc/asymptote/examples/penfunctionimage.asy27
1 files changed, 0 insertions, 27 deletions
diff --git a/Master/texmf/doc/asymptote/examples/penfunctionimage.asy b/Master/texmf/doc/asymptote/examples/penfunctionimage.asy
deleted file mode 100644
index 38951e550d5..00000000000
--- a/Master/texmf/doc/asymptote/examples/penfunctionimage.asy
+++ /dev/null
@@ -1,27 +0,0 @@
-import palette;
-
-size(200);
-
-real fracpart(real x) {return (x-floor(x));}
-
-pair pws(pair z) {
- pair w=(z+exp(pi*I/5)/0.9)/(1+z/0.9*exp(-pi*I/5));
- return exp(w)*(w^3-0.5*I);
-}
-
-int N=512;
-
-pair a=(-1,-1);
-pair b=(0.5,0.5);
-real dx=(b-a).x/N;
-real dy=(b-a).y/N;
-
-pen f(int u, int v) {
- pair z=a+(u*dx,v*dy);
- pair w=pws(z);
- real phase=degrees(w,warn=false);
- real modulus=w == 0 ? 0: fracpart(log(abs(w)));
- return hsv(phase,1,sqrt(modulus));
-}
-
-image(f,N,N,(0,0),(300,300),antialias=true);