summaryrefslogtreecommitdiff
path: root/Build/source/utils
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-06-08 00:57:31 +0000
committerKarl Berry <karl@freefriends.org>2009-06-08 00:57:31 +0000
commit9e32dd6aee7faf4e59888cfbd7a927d497b563ad (patch)
tree5068ec13390f4352be663383dd58e22147e68201 /Build/source/utils
parent3f49bad6cd5234b4e0ea156f6f68f6430643c10f (diff)
asymptote 1.76
git-svn-id: svn://tug.org/texlive/trunk@13664 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils')
-rw-r--r--Build/source/utils/README6
-rw-r--r--Build/source/utils/asymptote/ChangeLog232
-rw-r--r--Build/source/utils/asymptote/Makefile.in2
-rw-r--r--Build/source/utils/asymptote/ReleaseNotes15
-rw-r--r--Build/source/utils/asymptote/asymptote.spec2
-rw-r--r--Build/source/utils/asymptote/base/bezulate.asy37
-rw-r--r--Build/source/utils/asymptote/base/fontsize.asy2
-rw-r--r--Build/source/utils/asymptote/base/labelpath3.asy27
-rw-r--r--Build/source/utils/asymptote/base/plain_Label.asy20
-rw-r--r--Build/source/utils/asymptote/base/plain_paths.asy10
-rw-r--r--Build/source/utils/asymptote/base/plain_pens.asy6
-rw-r--r--Build/source/utils/asymptote/base/plain_strings.asy19
-rw-r--r--Build/source/utils/asymptote/base/three.asy106
-rw-r--r--Build/source/utils/asymptote/base/three_light.asy47
-rw-r--r--Build/source/utils/asymptote/base/three_surface.asy16
-rwxr-xr-xBuild/source/utils/asymptote/configure18
-rw-r--r--Build/source/utils/asymptote/configure.ac2
-rw-r--r--Build/source/utils/asymptote/doc/CAD.pdfbin67399 -> 67399 bytes
-rw-r--r--Build/source/utils/asymptote/doc/FAQ/asy-faq.info2
-rw-r--r--Build/source/utils/asymptote/doc/asymptote.pdfbin1558385 -> 1559735 bytes
-rw-r--r--Build/source/utils/asymptote/doc/asymptote.sty10
-rw-r--r--Build/source/utils/asymptote/doc/asymptote.texi31
-rw-r--r--Build/source/utils/asymptote/doc/ocg.sty127
-rw-r--r--Build/source/utils/asymptote/doc/png/Makefile.in3
-rw-r--r--Build/source/utils/asymptote/doc/png/asymptote.info9643
-rw-r--r--Build/source/utils/asymptote/drawclipend.h3
-rw-r--r--Build/source/utils/asymptote/drawfill.cc12
-rw-r--r--Build/source/utils/asymptote/drawlabel.cc38
-rw-r--r--Build/source/utils/asymptote/drawlabel.h10
-rw-r--r--Build/source/utils/asymptote/examples/BezierSurface.asy2
-rw-r--r--Build/source/utils/asymptote/examples/condor.asy2
-rw-r--r--Build/source/utils/asymptote/examples/layers.asy44
-rw-r--r--Build/source/utils/asymptote/examples/logo3.asy2
-rw-r--r--Build/source/utils/asymptote/examples/pdb.asy2
-rw-r--r--Build/source/utils/asymptote/examples/pipeintersection.asy2
-rw-r--r--Build/source/utils/asymptote/examples/teapot.asy1
-rw-r--r--Build/source/utils/asymptote/examples/trefoilknot.asy2
-rw-r--r--Build/source/utils/asymptote/examples/wedge.asy2
-rw-r--r--Build/source/utils/asymptote/pen.h7
-rw-r--r--Build/source/utils/asymptote/picture.cc2
-rw-r--r--Build/source/utils/asymptote/picture.h4
-rw-r--r--Build/source/utils/asymptote/runtime.cc4641
-rw-r--r--Build/source/utils/asymptote/runtime.in96
-rw-r--r--Build/source/utils/asymptote/settings.cc7
-rw-r--r--Build/source/utils/asymptote/settings.h1
-rw-r--r--Build/source/utils/asymptote/texfile.cc13
-rw-r--r--Build/source/utils/asymptote/texfile.h3
47 files changed, 12592 insertions, 2687 deletions
diff --git a/Build/source/utils/README b/Build/source/utils/README
index 979efb6f700..ac6736b9e00 100644
--- a/Build/source/utils/README
+++ b/Build/source/utils/README
@@ -5,9 +5,9 @@ You may freely use, modify and/or distribute this file.
Extra utilities we (optionally) compile for TeX Live.
See comments in ../texk/README.
-asymptote 1.75 - checked 4jun09
- http://superb-east.dl.sourceforge.net/sourceforge/asymptote/asymptote-1.75.src.tgz
- configure --enable-tetex-build --disable-gc # if gc make check fails
+asymptote 1.76 - checked 8jun09
+ get from CTAN, to include prebuild doc.
+ ...
make CFLAGS="-g -DBROKEN_COMPILER" if redefinition of solvedKnot3.
dialog 1.1-20080819 - checked 20mar09
diff --git a/Build/source/utils/asymptote/ChangeLog b/Build/source/utils/asymptote/ChangeLog
index 6a178c70393..905536aa324 100644
--- a/Build/source/utils/asymptote/ChangeLog
+++ b/Build/source/utils/asymptote/ChangeLog
@@ -1,4 +1,236 @@
------------------------------------------------------------------------
+r4386 | jcbowman | 2009-06-05 21:23:37 -0600 (Fri, 05 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/drawclipend.h
+ M /trunk/asymptote/drawfill.cc
+ M /trunk/asymptote/settings.cc
+ M /trunk/asymptote/settings.h
+ M /trunk/asymptote/texfile.cc
+
+Remove texunits (not required).
+
+------------------------------------------------------------------------
+r4385 | jcbowman | 2009-06-05 21:06:43 -0600 (Fri, 05 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/doc/asymptote.texi
+ M /trunk/asymptote/doc/png/Makefile.in
+
+Don't split info files.
+
+------------------------------------------------------------------------
+r4384 | jcbowman | 2009-06-05 20:45:25 -0600 (Fri, 05 Jun 2009) | 3 lines
+Changed paths:
+ M /trunk/asymptote/base/bezulate.asy
+
+Fix bezulate bug: determine the number of intersections of a path with a
+line segment directly from the intersections routine.
+
+------------------------------------------------------------------------
+r4383 | jcbowman | 2009-06-05 07:36:55 -0600 (Fri, 05 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/doc/asymptote.texi
+
+Fix typo.
+
+------------------------------------------------------------------------
+r4382 | jcbowman | 2009-06-05 07:06:37 -0600 (Fri, 05 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/examples/teapot.asy
+
+Restore example.
+
+------------------------------------------------------------------------
+r4381 | jcbowman | 2009-06-04 10:42:35 -0600 (Thu, 04 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/plain_pens.asy
+ M /trunk/asymptote/doc/asymptote.texi
+
+Rename inside(int,pen) to interior(int,pen).
+
+------------------------------------------------------------------------
+r4380 | jcbowman | 2009-06-04 10:41:19 -0600 (Thu, 04 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/plain_paths.asy
+
+Suppress "cannot find an interior point" warning for degenerate paths.
+
+------------------------------------------------------------------------
+r4379 | jcbowman | 2009-06-03 23:19:05 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three.asy
+ M /trunk/asymptote/doc/asymptote.texi
+
+Implement addAllViews function to exhibit all six standard 3D views.
+
+------------------------------------------------------------------------
+r4378 | jcbowman | 2009-06-03 21:36:49 -0600 (Wed, 03 Jun 2009) | 5 lines
+Changed paths:
+ M /trunk/asymptote/base/three_light.asy
+ M /trunk/asymptote/examples/BezierSurface.asy
+ M /trunk/asymptote/examples/condor.asy
+ M /trunk/asymptote/examples/logo3.asy
+ M /trunk/asymptote/examples/pdb.asy
+ M /trunk/asymptote/examples/pipeintersection.asy
+ M /trunk/asymptote/examples/teapot.asy
+ M /trunk/asymptote/examples/trefoilknot.asy
+ M /trunk/asymptote/examples/wedge.asy
+
+Rename adobe light to White; update parameters to agree with PDF32000-1:2008.
+
+Add ambient light to Headlamp (other parameters in PDF32000-1:2008 appear to be
+incorrect).
+
+------------------------------------------------------------------------
+r4377 | jcbowman | 2009-06-03 12:55:50 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/doc/asymptote.texi
+
+Turn off light in certain examples to avoid confusion.
+
+------------------------------------------------------------------------
+r4376 | jcbowman | 2009-06-03 12:48:50 -0600 (Wed, 03 Jun 2009) | 4 lines
+Changed paths:
+ M /trunk/asymptote/doc/asymptote.sty
+ M /trunk/asymptote/doc/asymptote.texi
+
+Fix filename for attach=true mode.
+
+Add hiresbb option to includegraphics.
+
+------------------------------------------------------------------------
+r4375 | jcbowman | 2009-06-03 12:21:11 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/runtime.in
+
+Improve texpath resolution by preshifting.
+
+------------------------------------------------------------------------
+r4374 | jcbowman | 2009-06-03 12:02:54 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/fontsize.asy
+
+Make fontsize package conditional on latex().
+
+------------------------------------------------------------------------
+r4373 | jcbowman | 2009-06-03 12:02:29 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/plain_Label.asy
+
+Improve texpath caching.
+
+------------------------------------------------------------------------
+r4372 | jcbowman | 2009-06-03 12:01:42 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three.asy
+
+Fix degenerate transform3.
+
+------------------------------------------------------------------------
+r4371 | jcbowman | 2009-06-03 01:50:28 -0600 (Wed, 03 Jun 2009) | 3 lines
+Changed paths:
+ M /trunk/asymptote/drawlabel.cc
+ M /trunk/asymptote/drawlabel.h
+ M /trunk/asymptote/picture.cc
+ M /trunk/asymptote/picture.h
+ M /trunk/asymptote/runtime.in
+ M /trunk/asymptote/texfile.cc
+ M /trunk/asymptote/texfile.h
+
+Add real[] texsize(string, pen=currentpen) command returning raw TeX
+dimensions {width,height,depth}.
+
+------------------------------------------------------------------------
+r4370 | jcbowman | 2009-06-03 01:46:42 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/pen.h
+
+Add missing ps2tex scaling.
+
+------------------------------------------------------------------------
+r4369 | jcbowman | 2009-06-03 01:45:14 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/plain_Label.asy
+
+Make texpath aware of baseline for PDF tex engines.
+
+------------------------------------------------------------------------
+r4368 | jcbowman | 2009-06-03 01:42:23 -0600 (Wed, 03 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/labelpath3.asy
+
+Simplify alignment.
+
+------------------------------------------------------------------------
+r4367 | jcbowman | 2009-06-02 12:02:03 -0600 (Tue, 02 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/labelpath3.asy
+
+Remove unwanted assignments.
+
+------------------------------------------------------------------------
+r4366 | jcbowman | 2009-06-02 11:33:59 -0600 (Tue, 02 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three_light.asy
+
+Tune headlamp parameters.
+
+------------------------------------------------------------------------
+r4365 | jcbowman | 2009-06-02 11:33:38 -0600 (Tue, 02 Jun 2009) | 4 lines
+Changed paths:
+ M /trunk/asymptote/base/three.asy
+
+Tune alignment between rendered and PRC images for perspective projections.
+
+Fix angle for absolute projection rendering.
+
+------------------------------------------------------------------------
+r4364 | jcbowman | 2009-06-02 10:26:20 -0600 (Tue, 02 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three_light.asy
+
+Add headlamp light that approximates 3Dlights=Headlamp.
+
+------------------------------------------------------------------------
+r4363 | jcbowman | 2009-06-02 01:28:17 -0600 (Tue, 02 Jun 2009) | 4 lines
+Changed paths:
+ M /trunk/asymptote/base/three.asy
+
+Add hiresbb option to graphic.
+
+Remove 2 pixel offset.
+
+------------------------------------------------------------------------
+r4362 | jcbowman | 2009-06-02 00:37:23 -0600 (Tue, 02 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three.asy
+
+Improve rendered and PRC alignment.
+
+------------------------------------------------------------------------
+r4361 | jcbowman | 2009-06-01 21:57:28 -0600 (Mon, 01 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/base/three_surface.asy
+
+Handle holes in surface constructor for superpaths when planar=true.
+
+------------------------------------------------------------------------
+r4360 | jcbowman | 2009-06-01 17:18:19 -0600 (Mon, 01 Jun 2009) | 2 lines
+Changed paths:
+ M /trunk/asymptote/Makefile.in
+ M /trunk/asymptote/base/plain_pens.asy
+ M /trunk/asymptote/base/plain_strings.asy
+ A /trunk/asymptote/doc/ocg.sty
+ A /trunk/asymptote/examples/layers.asy
+
+Add support for OCG layers.
+
+------------------------------------------------------------------------
+r4359 | jcbowman | 2009-06-01 02:43:51 -0600 (Mon, 01 Jun 2009) | 1 line
+Changed paths:
+ M /trunk/asymptote/configure.ac
+
+Increment version to 1.76svn.
+------------------------------------------------------------------------
r4358 | jcbowman | 2009-06-01 00:04:03 -0600 (Mon, 01 Jun 2009) | 2 lines
Changed paths:
M /trunk/asymptote/doc/FAQ/Makefile
diff --git a/Build/source/utils/asymptote/Makefile.in b/Build/source/utils/asymptote/Makefile.in
index 31a5d010eab..256c4a64726 100644
--- a/Build/source/utils/asymptote/Makefile.in
+++ b/Build/source/utils/asymptote/Makefile.in
@@ -32,7 +32,7 @@ EXTRA = asy-mode.el asy-init.el asy.vim asymptote.py reload.js nopapersize.ps
EXEXTRA = piicon.eps *.views *.dat
DOCEXTRA = *.asy *.csv *.dat latexusage.tex externalprc.tex pixel.pdf
KEYWORDS = base $(ASYMPTOTE_SITEDIR)
-LATEXFILES = asymptote.sty asycolors.sty
+LATEXFILES = asymptote.sty asycolors.sty ocg.sty
CONTEXTFILES = colo-asy.tex
ASY = ./asy -dir base -config "" -render=0
diff --git a/Build/source/utils/asymptote/ReleaseNotes b/Build/source/utils/asymptote/ReleaseNotes
index 48619da6be8..218878d8bbe 100644
--- a/Build/source/utils/asymptote/ReleaseNotes
+++ b/Build/source/utils/asymptote/ReleaseNotes
@@ -1,3 +1,16 @@
+Release Notes for Version 1.76
+
+A bezulate bug was fixed. The resolution and caching of texpath were
+improved; for PDF tex engines, the basealign pen attribute is now
+respected. Support for OCG layers was added. Lights Headlamp and White were
+implemented; the predefined adobe light was removed. Holes are now handled
+in superpath-to-surface constructor when planar=true. A degenerate
+transform3 issue was fixed. The alignment of rendered and PRC images was
+improved; the angle for rendering absolute projections was fixed. Inaccurate
+TeX and ConTeXt font scalings were fixed. A texsize(string, pen=currentpen)
+function returns the raw TeX dimensions {width,height,depth}. A new version
+of asymptote.sty (1.07) fixes attach=true mode.
+
Release Notes for Version 1.75
Issues with 3D labels and texpath, both in inlinetex mode and with the
@@ -5,7 +18,7 @@ ConTeXt TeX engine, were resolved. A bug in bezulate was fixed. A partial
workaround was added for the unimplememented -output-directory ConTeXt
option (the current directory must still be writeable). The aspect ratio
and viewportmargin calculation in module three was improved, with tighter
-3D bounds. A bug in the intersectionpoints(path3, surface) routine was fixed.
+3D bounds. A bug in the intersections(path3, surface) routine was fixed.
Release Notes for Version 1.74
diff --git a/Build/source/utils/asymptote/asymptote.spec b/Build/source/utils/asymptote/asymptote.spec
index c242a4b8ce3..90162a83b1d 100644
--- a/Build/source/utils/asymptote/asymptote.spec
+++ b/Build/source/utils/asymptote/asymptote.spec
@@ -1,7 +1,7 @@
%{!?_texmf: %define _texmf %(eval "echo `kpsewhich -expand-var '$TEXMFLOCAL'`")}
Name: asymptote
-Version: 1.75
+Version: 1.76
Release: 1%{?dist}
Summary: Descriptive vector graphics language
diff --git a/Build/source/utils/asymptote/base/bezulate.asy b/Build/source/utils/asymptote/base/bezulate.asy
index 01b3024f7b6..2b852623faf 100644
--- a/Build/source/utils/asymptote/base/bezulate.asy
+++ b/Build/source/utils/asymptote/base/bezulate.asy
@@ -1,13 +1,19 @@
// Bezier triangulation routines written by Orest Shardt, 2008.
-private real fuzz=1e-6;
+private real fuzz=sqrtEpsilon;
real duplicateFuzz=1e-3; // Work around font errors.
+private real[][] intersections(pair a, pair b, path p)
+{
+ pair delta=fuzz*unit(b-a);
+ return intersections(a-delta--b+delta,p,fuzz);
+}
+
int countIntersections(path[] p, pair start, pair end)
{
int intersects=0;
for(path q : p)
- intersects += intersections(q,start--end,fuzz).length;
+ intersects += intersections(start,end,q).length;
return intersects;
}
@@ -101,27 +107,23 @@ void connect(path[] paths, path[] result, path[] patch)
pair start=point(inners[curveIndex],0);
// find first intersection of line segment with outer curve
- path line = start--start+d*direction;
- real[][] ints=intersections(line,outer,fuzz);
+ real[][] ints=intersections(start,start+d*direction,outer);
assert(ints.length != 0);
real endtime=ints[0][1]; // endtime is time on outer
pair end = point(outer,endtime);
- line = start--end;
- path rline = reverse(line);
- // find first intersection of rline segment with any inner curve
+ // find first intersection of end--start with any inner curve
real starttime=0; // starttime is time on inners[curveIndex]
real earliestTime=1;
for(int j=0; j < inners.length; ++j) {
- real[][] ints=intersections(rline,inners[j],fuzz);
+ real[][] ints=intersections(end,start,inners[j]);
if(ints.length > 0 && ints[0][0] < earliestTime) {
- earliestTime=ints[0][0]; // time on rline
+ earliestTime=ints[0][0]; // time on end--start
starttime=ints[0][1]; // time on inner curve
curveIndex=j;
}
}
start=point(inners[curveIndex],starttime);
- line = start--end;
real timeoffset=2;
bool found=false;
@@ -146,7 +148,7 @@ void connect(path[] paths, path[] result, path[] patch)
}
}
- if(!found)timeoffset=-2;
+ if(!found) timeoffset=-2;
while(!found && timeoffset < -fuzz) {
timeoffset /= 2;
if(countIntersections(allCurves,start,
@@ -179,20 +181,11 @@ void connect(path[] paths, path[] result, path[] patch)
}
}
-int countIntersections(path g, pair p, pair q)
-{
- int ints=0;
- int l=length(g);
- for(int i=1; i <= l; ++i)
- ints += intersections(subpath(g,i-1,i),p--q,fuzz).length;
- return ints;
-}
-
bool checkSegment(path g, pair p, pair q)
{
pair mid=0.5*(p+q);
- return countIntersections(g,p,q) == 4 && inside(g,mid,zerowinding) &&
- intersections(g,mid).length == 0;
+ return intersections(p,q,g).length == 2 &&
+ inside(g,mid,zerowinding) && intersections(g,mid).length == 0;
}
path subdivide(path p)
diff --git a/Build/source/utils/asymptote/base/fontsize.asy b/Build/source/utils/asymptote/base/fontsize.asy
index 0c0c6a0dcca..4575f3480fa 100644
--- a/Build/source/utils/asymptote/base/fontsize.asy
+++ b/Build/source/utils/asymptote/base/fontsize.asy
@@ -1 +1 @@
-usepackage("fix-cm");
+if(latex()) usepackage("fix-cm");
diff --git a/Build/source/utils/asymptote/base/labelpath3.asy b/Build/source/utils/asymptote/base/labelpath3.asy
index acfa64d528f..b8a946a07ae 100644
--- a/Build/source/utils/asymptote/base/labelpath3.asy
+++ b/Build/source/utils/asymptote/base/labelpath3.asy
@@ -2,11 +2,7 @@
// Author: Jens Schwaiger
import three;
-size(7.5cm,0);
-real eps=100*realEpsilon;
-currentprojection=perspective(20,18,8);
-currentlight=light(8,10,2);
-//texpreamble("\textwidth=50cm"); // Avoid line breaking in long texts
+private real eps=100*realEpsilon;
triple nextnormal(triple p, triple q)
{
@@ -34,13 +30,14 @@ triple[] nextframe(path3 p, real reltimestart, triple[] start, real
real lg=reltimeend-reltimestart;
if(lg <= 0) return start;
bf[0]=start;
- for(int i=1; i < subdiv+1; i=i+1) {
+ int n=subdiv+1;
+ for(int i=1; i < n; ++i)
bf[i][0]=dir(p,reltime(p,reltimestart+(i/subdiv)*lg));
- };
- for(int i=1; i < subdiv+1; i=i+1) {
+
+ for(int i=1; i < n; ++i) {
bf[i][1]=nextnormal(bf[i-1][1],bf[i][0]);
bf[i][2]=cross(bf[i][0],bf[i][1]);
- };
+ }
return bf[subdiv];
}
@@ -48,8 +45,7 @@ surface labelpath(string txt, path3 p, real angle=90, triple optional=O)
{
real Cos=Cos(angle);
real Sin=Sin(angle);
- path[] text=shift(-labelmargin(currentpen)*NE)*
- texpath(Label(txt,(0,0),NE,basealign));
+ path[] text=texpath(Label(txt,(0,0),Align,basealign));
text=scale(1/(max(text).x-min(text).x))*text;
path[][] decompose=containmentTree(text);
@@ -59,7 +55,7 @@ surface labelpath(string txt, path3 p, real angle=90, triple optional=O)
xpos[i][1]=i;
real pos0=0.5(max(decompose[i]).x+min(decompose[i]).x);
xpos[i][0]=pos0;
- };
+ }
xpos=sort(xpos); // sort by distance from 0;
triple[] pos=new triple[decompose.length];
real lg=arclength(p);
@@ -70,17 +66,18 @@ surface labelpath(string txt, path3 p, real angle=90, triple optional=O)
triple[][] bfr=new triple[decompose.length][3];
for(int j=0; j < decompose.length; ++j) {
bfr[j]=nextframe(p,tm0,t0,xpos[j][0]);
- tm0=xpos[j][0]; t0=bfr[j];};
+ tm0=xpos[j][0]; t0=bfr[j];
+ }
transform3[] mt=new transform3[bfr.length];
for(int j=0; j < bfr.length; ++j) {
triple f2=Cos*bfr[j][1]+Sin*bfr[j][2];
triple f3=Sin*bfr[j][1]+Cos*bfr[j][2];
mt[j]=shift(relpoint(p,xpos[j][0]))*transform3(bfr[j][0],f2,f3);
- };
+ }
for(int j=0; j < bfr.length; ++j) {
path[] dc=decompose[(int) xpos[j][1]];
pair pos0=(0.5(max(dc).x+min(dc).x),0);
sf.append(mt[j]*surface(scale(lg)*shift(-pos0)*dc));
- };
+ }
return sf;
}
diff --git a/Build/source/utils/asymptote/base/plain_Label.asy b/Build/source/utils/asymptote/base/plain_Label.asy
index 1279880ca3a..3c11a2cedbd 100644
--- a/Build/source/utils/asymptote/base/plain_Label.asy
+++ b/Build/source/utils/asymptote/base/plain_Label.asy
@@ -571,7 +571,12 @@ path[] texpath(Label L, bool tex=settings.tex != "none")
path[] g;
string s=L.s;
- pen p=L.p;
+ pen p=fontcommand(font(L.p))+fontsize(fontsize(L.p));
+
+ // PDF tex engines lose track of the baseline.
+ bool adjust=tex && basealign(L.p) == 1 && pdf();
+ if(adjust) p=p+basealign;
+
int k=0;
int i;
while((i=find(stringcache == s,++k)) >= 0) {
@@ -582,7 +587,16 @@ path[] texpath(Label L, bool tex=settings.tex != "none")
}
if(i == -1) {
- g=tex ? _texpath(s,p) : textpath(s,p);
+ if(tex) {
+ if(adjust) {
+ g=_texpath("."+s,p);
+ if(g.length == 0) return g;
+ real y=min(g[0]).y;
+ g.delete(0);
+ g=shift(0,-y)*g;
+ } else g=_texpath(s,p);
+ } else g=textpath(s,p);
+
stringcache.push(s);
pencache.push(p);
pathcache.push(g);
@@ -593,7 +607,7 @@ path[] texpath(Label L, bool tex=settings.tex != "none")
pair m=min(g);
pair M=max(g);
pair dir=rectify(inverse(L.T)*-L.align.dir);
- if(basealign(p) == 1)
+ if(tex && basealign(L.p) == 1)
dir -= (0,(1-dir.y)*m.y/(M.y-m.y));
a=m+realmult(dir,M-m);
diff --git a/Build/source/utils/asymptote/base/plain_paths.asy b/Build/source/utils/asymptote/base/plain_paths.asy
index 486f3f0cc7b..d457fa5bc28 100644
--- a/Build/source/utils/asymptote/base/plain_paths.asy
+++ b/Build/source/utils/asymptote/base/plain_paths.asy
@@ -329,19 +329,21 @@ pair inside(path p, pen fillrule=currentpen)
int n=length(p);
for(int i=0; i < n; ++i) {
pair z=point(p,i);
- real[] T=intersections(p,z,z+I*dir(p,i));
+ pair dir=dir(p,i);
+ if(dir == 0) continue;
+ real[] T=intersections(p,z,z+I*dir);
// Check midpoints of line segments formed between the
// corresponding intersection points and z.
for(int j=0; j < T.length; ++j) {
if(T[j] != i) {
pair w=point(p,T[j]);
pair m=0.5*(z+w);
- if(inside(windingnumber(p,m),fillrule)) return m;
+ if(interior(windingnumber(p,m),fillrule)) return m;
}
}
}
- abort("cannot find an interior point");
- return 0;
+ // cannot find an interior point: path is degenerate
+ return point(p,0);
}
// Return all intersection times of path g with the vertical line through (x,0).
diff --git a/Build/source/utils/asymptote/base/plain_pens.asy b/Build/source/utils/asymptote/base/plain_pens.asy
index 003c79149c7..09993d44da8 100644
--- a/Build/source/utils/asymptote/base/plain_pens.asy
+++ b/Build/source/utils/asymptote/base/plain_pens.asy
@@ -25,7 +25,9 @@ restricted pen beveljoin=linejoin(2);
restricted pen zerowinding=fillrule(0);
restricted pen evenodd=fillrule(1);
-bool inside(int windingnumber, pen fillrule) {
+
+bool interior(int windingnumber, pen fillrule)
+{
return windingnumber != undefined &&
(fillrule(fillrule) == 1 ? windingnumber % 2 == 1 : windingnumber != 0);
}
@@ -351,5 +353,3 @@ pen[] mean(pen[][] palette, real opacity(real[])=min)
return sequence(new pen(int i) {return mean(palette[i],opacity);},
palette.length);
}
-
-
diff --git a/Build/source/utils/asymptote/base/plain_strings.asy b/Build/source/utils/asymptote/base/plain_strings.asy
index 801e63e83cf..e3d0a797d86 100644
--- a/Build/source/utils/asymptote/base/plain_strings.asy
+++ b/Build/source/utils/asymptote/base/plain_strings.asy
@@ -190,3 +190,22 @@ string phantom(string s)
{
return "\phantom{"+s+"}";
}
+
+restricted int ocgindex=0;
+
+void begin(picture pic=currentpicture, string name, string id="",
+ bool visible=true)
+{
+ if(!latex() || !pdf()) return;
+ settings.twice=true;
+ if(id == "") id=string(++ocgindex);
+ tex(pic,"\begin{ocg}{"+name+"}{"+id+"}{"+(visible ? "1" : "0")+"}");
+ layer(pic);
+}
+
+void end(picture pic=currentpicture)
+{
+ if(!latex() || !pdf()) return;
+ tex(pic,"\end{ocg}");
+ layer(pic);
+}
diff --git a/Build/source/utils/asymptote/base/three.asy b/Build/source/utils/asymptote/base/three.asy
index 8e0fab6e8d0..0af0d2c3bdf 100644
--- a/Build/source/utils/asymptote/base/three.asy
+++ b/Build/source/utils/asymptote/base/three.asy
@@ -3,10 +3,12 @@ private import math;
if(inXasyMode) settings.render=0;
if(prc0()) {
- access embed;
- Embed=embed.embed;
- Link=embed.link;
if(settings.tex == "context") settings.prc=false;
+ else {
+ access embed;
+ Embed=embed.embed;
+ Link=embed.link;
+ }
}
real defaultshininess=0.25;
@@ -14,12 +16,12 @@ real defaultgranularity=0;
real linegranularity=0.01;
real tubegranularity=0.003;
real dotgranularity=0.0001;
-pair viewportmargin=0; // Horizontal and vertical viewport margins.
-real viewportfactor=1.005; // Factor used to expand orthographic viewport.
-
-real angleprecision=1e-3; // Precision for centering perspective projections.
+pair viewportmargin=0; // Horizontal and vertical viewport margins.
+real viewportfactor=1.002; // Factor used to expand orthographic viewport.
+real viewportpadding=1.2; // Offset used to expand PRC viewport.
+real angleprecision=1e-3; // Precision for centering perspective projections.
real anglefactor=max(1.005,1+angleprecision);
- // Factor used to expand perspective viewport.
+// Factor used to expand perspective viewport.
string defaultembed3Doptions;
string defaultembed3Dscript;
@@ -1690,7 +1692,8 @@ transform3 transform3(projection P)
triple v=unit(P.oblique ? P.camera : P.vector());
triple u=unit(perp(P.up,v));
if(u == O) u=cross(perp(v),v);
- return transform3(cross(u,v),u);
+ v=cross(u,v);
+ return v != O ? transform3(v,u) : identity(4);
}
triple[] triples(real[] x, real[] y, real[] z)
@@ -2203,7 +2206,7 @@ function asyProjection() {"+
(infinity ? "activeCamera.projectionType=activeCamera.TYPE_ORTHOGRAPHIC;" :
"activeCamera.projectionType=activeCamera.TYPE_PERSPECTIVE;")+"
activeCamera.viewPlaneSize="+string(viewplanesize)+";
-activeCamera.binding=activeCamera.BINDING_VERTICAL;
+activeCamera.binding=activeCamera.BINDING_"+(infinity ? "MAX" : "VERTICAL")+";
}
asyProjection();
@@ -2252,7 +2255,7 @@ void writeJavaScript(string name, string preamble, string script)
file3.push(name);
}
-pair viewportmargin(projection P, real width, real height)
+pair viewportmargin(real width, real height)
{
pair viewportmargin=viewportmargin;
real xmargin=viewportmargin.x;
@@ -2281,10 +2284,11 @@ string embed3D(string label="", string text=label, string prefix,
real viewplanesize;
if(P.infinity) {
triple lambda=max3(f)-min3(f);
- real margin=(viewportfactor-1.0)*lambda.y+
- viewportmargin(P,lambda.x,lambda.y).y;
- viewplanesize=(lambda.y+2*margin)/cm;
- }
+ pair margin=viewportpadding*(1,1)+viewportmargin(lambda.x,lambda.y);
+ viewplanesize=(max(lambda.x+2*margin.x,lambda.y+2*margin.y))/cm;
+ } else
+ if(!P.absolute) angle=2*aTan(Tan(0.5*angle)-viewportpadding/P.target.z);
+
string name=prefix+".js";
writeJavaScript(name,lightscript+projection(P.infinity,viewplanesize),script);
@@ -2308,7 +2312,7 @@ string embed3D(string label="", string text=label, string prefix,
if(defaultembed3Doptions != "") options3 += ","+defaultembed3Doptions;
if((settings.render < 0 || !settings.embed) && settings.auto3D)
options3 += ",poster";
- options3 += ",text="+text+",label="+label+
+ options3 += ",text={"+text+"},label="+label+
",toolbar="+(settings.toolbar ? "true" : "false")+
",3Daac="+format(P.absolute ? P.angle : angle)+
",3Dc2c="+format(u)+
@@ -2402,7 +2406,7 @@ object embed(string label="", string text=label,
pair m2=pic2.min(s);
pair M2=pic2.max(s);
pair lambda=M2-m2;
- pair viewportmargin=viewportmargin(P,lambda.x,lambda.y);
+ pair viewportmargin=viewportmargin(lambda.x,lambda.y);
real width=ceil(lambda.x+2*viewportmargin.x);
real height=ceil(lambda.y+2*viewportmargin.y);
@@ -2435,6 +2439,11 @@ object embed(string label="", string text=label,
if(P.infinity) {
triple m=min3(f);
triple M=max3(f);
+ triple lambda=M-m;
+ viewportmargin=viewportmargin(lambda.x,lambda.y);
+ width=lambda.x+2*viewportmargin.x;
+ height=lambda.y+2*viewportmargin.y;
+
triple s=(-0.5(m.x+M.x),-0.5*(m.y+M.y),0);
f=shift(s)*f; // Eye will be at (0,0,0).
} else {
@@ -2513,13 +2522,14 @@ object embed(string label="", string text=label,
if(P.absolute) {
modelview=P.modelview();
f=modelview*f;
- P=modelview*P;
+ Q=modelview*P;
m=min3(f);
M=max3(f);
real r=0.5*abs(M-m);
zcenter=0.5*(M.z+m.z);
M=(M.x,M.y,zcenter+r);
m=(m.x,m.y,zcenter-r);
+ angle=P.angle;
} else {
m=min3(f);
M=max3(f);
@@ -2530,9 +2540,9 @@ object embed(string label="", string text=label,
}
if(P.infinity) {
- triple margin=(viewportfactor-1.0)*(abs(M.x-m.x),
- abs(M.y-m.y),0)+
- viewportfactor*(0,viewportmargin.y,0);
+ triple margin=(viewportfactor-1.0)*(abs(M.x-m.x),abs(M.y-m.y),0)
+ +(viewportmargin.x,viewportmargin.y,0);
+
M += margin;
m -= margin;
} else if(M.z >= 0) abort("camera too close");
@@ -2552,11 +2562,10 @@ object embed(string label="", string text=label,
if(settings.inlinetex) image += "_0";
image += "."+nativeformat();
if(!settings.inlinetex) file3.push(image);
- image=graphic(image);
+ image=graphic(image,"hiresbb");
}
if(prc) F.L=embed3D(label,text=image,prefix,f,format,
- width,height,angle,options,script,light,
- P.absolute ? P : Q);
+ width,height,angle,options,script,light,Q);
}
if(!is3D) {
@@ -2600,27 +2609,60 @@ currentpicture.fitter=new frame(string prefix, picture pic, string format,
if(currentlight.background != nullpen)
box(f,currentlight.background,Fill,above=false);
} else if(!view)
- label(f,graphic(prefix));
+ label(f,graphic(prefix,"hiresbb"));
}
}
return f;
};
void addViews(picture dest, picture src, bool group=true,
- filltype filltype=NoFill, bool above=true)
+ filltype filltype=NoFill)
{
+ if(group) begingroup(dest);
frame Front=src.fit(FrontView);
- add(dest,Front,group,filltype,above);
+ add(dest,Front,filltype);
frame Top=src.fit(TopView);
- add(dest,shift(0,min(Front).y-max(Top).y)*Top,group,filltype,above);
+ add(dest,shift(0,min(Front).y-max(Top).y)*Top,filltype);
frame Right=src.fit(RightView);
- add(dest,shift(min(Front).x-max(Right).x)*Right,group,filltype,above);
+ add(dest,shift(min(Front).x-max(Right).x)*Right,filltype);
+ if(group) endgroup(dest);
+}
+
+void addViews(picture src, bool group=true, filltype filltype=NoFill)
+{
+ addViews(currentpicture,src,group,filltype);
+}
+
+void addAllViews(picture dest, picture src,
+ real xmargin=0, real ymargin=xmargin,
+ bool group=true,
+ filltype filltype=NoFill)
+{
+ picture picL,picM,picR,picLM;
+ if(xmargin == 0) xmargin=sqrtEpsilon;
+ if(ymargin == 0) ymargin=sqrtEpsilon;
+
+ add(picL,src.fit(FrontView),(0,0),ymargin*N);
+ add(picL,src.fit(BackView),(0,0),ymargin*S);
+
+ add(picM,src.fit(TopView),(0,0),ymargin*N);
+ add(picM,src.fit(BottomView),(0,0),ymargin*S);
+
+ add(picR,src.fit(RightView),(0,0),ymargin*N);
+ add(picR,src.fit(LeftView),(0,0),ymargin*S);
+
+ add(picLM,picL.fit(),(0,0),xmargin*W);
+ add(picLM,picM.fit(),(0,0),xmargin*E);
+
+ if(group) begingroup(dest);
+ add(dest,picLM.fit(),(0,0),xmargin*W,filltype);
+ add(dest,picR.fit(),(0,0),xmargin*E,filltype);
+ if(group) endgroup(dest);
}
-void addViews(picture src, bool group=true, filltype filltype=NoFill,
- bool above=true)
+void addAllViews(picture src, bool group=true, filltype filltype=NoFill)
{
- addViews(currentpicture,src,group,filltype,above);
+ addAllViews(currentpicture,src,group,filltype);
}
// Force an array of 3D pictures to be as least as large as picture all.
diff --git a/Build/source/utils/asymptote/base/three_light.asy b/Build/source/utils/asymptote/base/three_light.asy
index 54ca7a47151..8e5a6281795 100644
--- a/Build/source/utils/asymptote/base/three_light.asy
+++ b/Build/source/utils/asymptote/base/three_light.asy
@@ -82,42 +82,45 @@ struct light {
pen background; // Background color of the 3D canvas.
real specularfactor;
bool viewport; // Are the lights specified (and fixed) in the viewport frame?
- triple[] position; // Only directional lights are implemented.
+ triple[] position; // Only directional lights are currently implemented.
transform3 T=identity(4); // Transform to apply to normal vectors.
bool on() {return position.length > 0;}
- void operator init(pen[] diffuse=array(position.length,white),
- pen[] ambient=array(position.length,black),
- pen[] specular=diffuse, pen background=nullpen,
+ void operator init(pen[] diffuse,
+ pen[] ambient=array(diffuse.length,black),
+ pen[] specular=diffuse, pen background=nullpen,
real specularfactor=1,
- bool viewport=true, triple[] position) {
- this.position=new triple[position.length];
- this.diffuse=new real[position.length][];
- this.ambient=new real[position.length][];
- this.specular=new real[position.length][];
+ bool viewport=true, triple[] position) {
+ int n=diffuse.length;
+ assert(ambient.length == n && specular.length == n && position.length == n);
+
+ this.diffuse=new real[n][];
+ this.ambient=new real[n][];
+ this.specular=new real[n][];
this.background=background;
+ this.position=new triple[n];
for(int i=0; i < position.length; ++i) {
- this.position[i]=unit(position[i]);
this.diffuse[i]=rgba(diffuse[i]);
this.ambient[i]=rgba(ambient[i]);
this.specular[i]=rgba(specular[i]);
+ this.position[i]=unit(position[i]);
}
this.specularfactor=specularfactor;
this.viewport=viewport;
}
void operator init(pen diffuse=white, pen ambient=black, pen specular=diffuse,
- pen background=nullpen, real specularfactor=1,
- bool viewport=true...triple[] position) {
+ pen background=nullpen, real specularfactor=1,
+ bool viewport=true...triple[] position) {
int n=position.length;
operator init(array(n,diffuse),array(n,ambient),array(n,specular),
- background,specularfactor,viewport,position);
+ background,specularfactor,viewport,position);
}
void operator init(pen diffuse=white, pen ambient=black, pen specular=diffuse,
- pen background=nullpen, bool viewport=true,
+ pen background=nullpen, bool viewport=true,
real x, real y, real z) {
operator init(diffuse,ambient,specular,background,viewport,(x,y,z));
}
@@ -146,9 +149,9 @@ struct light {
triple L=viewport ? position[i] : T*position[i];
real Ldotn=max(dot(normal,L),0);
p += ambient[i]*Ambient+Ldotn*diffuse[i]*Diffuse;
-// Apply specularfactor to partially compensate non-pixel-based rendering.
+ // Apply specularfactor to partially compensate non-pixel-based rendering.
if(Ldotn > 0) // Phong-Blinn model of specular reflection
- p += dot(normal,unit(L+Z))^s*specularfactor*specular[i]*Specular;
+ p += dot(normal,unit(L+Z))^s*specularfactor*specular[i]*Specular;
}
return rgb(p[0],p[1],p[2])+opacity(opacity(m.diffuse()));
}
@@ -165,10 +168,14 @@ light operator * (transform3 t, light light)
light operator cast(triple v) {return light(v);}
-light currentlight=light(ambient=rgb(0.1,0.1,0.1),specularfactor=3,
+light currentlight=light(ambient=gray(0.1),specularfactor=3,
(0.25,-0.25,1));
-light adobe=light(gray(0.4),specularfactor=3,viewport=false,
- (0.5,-0.5,-0.25),(0.5,0.5,0.25),
- (0.5,-0.5,0.2),(-0.5,0.5,-0.2));
+light White=light(new pen[] {rgb(0.38,0.38,0.45),rgb(0.6,0.6,0.67),
+ rgb(0.5,0.5,0.57)},specularfactor=3,viewport=false,
+ new triple[] {(-2,-1.5,-0.5),(2,1.1,-2.5),(-0.5,0,2)});
+
+light Headlamp=light(gray(0.9),ambient=gray(0.1),specularfactor=3,
+ (0.5,0.5,1/sqrt(2)),specular=gray(0.7));
+
light nolight;
diff --git a/Build/source/utils/asymptote/base/three_surface.asy b/Build/source/utils/asymptote/base/three_surface.asy
index 55060cb516d..3c49b382133 100644
--- a/Build/source/utils/asymptote/base/three_surface.asy
+++ b/Build/source/utils/asymptote/base/three_surface.asy
@@ -681,6 +681,22 @@ struct surface {
triple[][] normals=new triple[][],
pen[][] colors=new pen[][], bool3 planar=default) {
s=new patch[];
+ if(planar == true) {// Assume all path3 elements share a common normal.
+ if(external.length != 0) {
+ triple n=normal(external[0]);
+ if(n != O) {
+ transform3 T=align(n);
+ external=transpose(T)*external;
+ T *= shift(0,0,point(external[0],0).z);
+ path[] g=sequence(new path(int i) {return path(external[i]);},
+ external.length);
+ for(patch p : surface(g).s)
+ s.push(T*p);
+ return;
+ }
+ }
+ }
+
for(int i=0; i < external.length; ++i)
construct(external[i],
internal.length == 0 ? new triple[] : internal[i],
diff --git a/Build/source/utils/asymptote/configure b/Build/source/utils/asymptote/configure
index c6167746edd..8672c154c7b 100755
--- a/Build/source/utils/asymptote/configure
+++ b/Build/source/utils/asymptote/configure
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.63 for Asymptote 1.75.
+# Generated by GNU Autoconf 2.63 for Asymptote 1.76.
#
# Report bugs to <http://sourceforge.net/projects/asymptote>.
#
@@ -596,8 +596,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package.
PACKAGE_NAME='Asymptote'
PACKAGE_TARNAME='asymptote'
-PACKAGE_VERSION='1.75'
-PACKAGE_STRING='Asymptote 1.75'
+PACKAGE_VERSION='1.76'
+PACKAGE_STRING='Asymptote 1.76'
PACKAGE_BUGREPORT='http://sourceforge.net/projects/asymptote'
# Factoring default headers for most tests.
@@ -1294,7 +1294,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures Asymptote 1.75 to adapt to many kinds of systems.
+\`configure' configures Asymptote 1.76 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1355,7 +1355,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of Asymptote 1.75:";;
+ short | recursive ) echo "Configuration of Asymptote 1.76:";;
esac
cat <<\_ACEOF
@@ -1465,7 +1465,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-Asymptote configure 1.75
+Asymptote configure 1.76
generated by GNU Autoconf 2.63
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1479,7 +1479,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by Asymptote $as_me 1.75, which was
+It was created by Asymptote $as_me 1.76, which was
generated by GNU Autoconf 2.63. Invocation command line was
$ $0 $@
@@ -11495,7 +11495,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by Asymptote $as_me 1.75, which was
+This file was extended by Asymptote $as_me 1.76, which was
generated by GNU Autoconf 2.63. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -11554,7 +11554,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_version="\\
-Asymptote config.status 1.75
+Asymptote config.status 1.76
configured by $0, generated by GNU Autoconf 2.63,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
diff --git a/Build/source/utils/asymptote/configure.ac b/Build/source/utils/asymptote/configure.ac
index e80f07cc599..8959f489806 100644
--- a/Build/source/utils/asymptote/configure.ac
+++ b/Build/source/utils/asymptote/configure.ac
@@ -3,7 +3,7 @@
# this file.
AC_PREREQ(2)
-AC_INIT([Asymptote],[1.75],[http://sourceforge.net/projects/asymptote])
+AC_INIT([Asymptote],[1.76],[http://sourceforge.net/projects/asymptote])
VERSION=$PACKAGE_VERSION
AC_SUBST(VERSION)
diff --git a/Build/source/utils/asymptote/doc/CAD.pdf b/Build/source/utils/asymptote/doc/CAD.pdf
index 5c22ad7eaa3..6eff3f523ca 100644
--- a/Build/source/utils/asymptote/doc/CAD.pdf
+++ b/Build/source/utils/asymptote/doc/CAD.pdf
Binary files differ
diff --git a/Build/source/utils/asymptote/doc/FAQ/asy-faq.info b/Build/source/utils/asymptote/doc/FAQ/asy-faq.info
index 5d56d06d3c5..a00526b0aa7 100644
--- a/Build/source/utils/asymptote/doc/FAQ/asy-faq.info
+++ b/Build/source/utils/asymptote/doc/FAQ/asy-faq.info
@@ -9,7 +9,7 @@ END-INFO-DIR-ENTRY
File: $prefix.info, Node: Top, Next: Question 1.1, Up: (dir)
ASYMPTOTE FREQUENTLY ASKED QUESTIONS
- 01 Jun 2009
+ 05 Jun 2009
This is the list of Frequently Asked Questions about Asymptote (asy).
diff --git a/Build/source/utils/asymptote/doc/asymptote.pdf b/Build/source/utils/asymptote/doc/asymptote.pdf
index b536a5100f2..2050f1e4059 100644
--- a/Build/source/utils/asymptote/doc/asymptote.pdf
+++ b/Build/source/utils/asymptote/doc/asymptote.pdf
Binary files differ
diff --git a/Build/source/utils/asymptote/doc/asymptote.sty b/Build/source/utils/asymptote/doc/asymptote.sty
index 487ddaaafac..1099c183116 100644
--- a/Build/source/utils/asymptote/doc/asymptote.sty
+++ b/Build/source/utils/asymptote/doc/asymptote.sty
@@ -3,7 +3,7 @@
%%% Modified by John Bowman
%%% Adapted from comment.sty (Under GPL v2)
-\ProvidesPackage{asymptote}[2009/03/29 v1.06 Asymptote style file for LaTeX]
+\ProvidesPackage{asymptote}[2009/06/03 v1.07 Asymptote style file for LaTeX]
\RequirePackage{keyval}
\RequirePackage{ifthen}
\newif\ifASYinline
@@ -182,12 +182,12 @@
\else
\ifASYattach
\ifASYPDF
- \openin\AsyTestStream=\Jobname-\the\c@asy-0.pdf
+ \openin\AsyTestStream=\Jobname-\the\c@asy+0.pdf
\fi
\ifeof\AsyTestStream
- \setbox\ASYbox=\hbox{\includegraphics{\Jobname-\the\c@asy}}%
+ \setbox\ASYbox=\hbox{\includegraphics[hiresbb]{\Jobname-\the\c@asy}}%
\else
- \setbox\ASYbox=\hbox{\includegraphics{\Jobname-\the\c@asy-0}}%
+ \setbox\ASYbox=\hbox{\includegraphics[hiresbb]{\Jobname-\the\c@asy+0}}%
\fi
\textattachfile{\Jobname-\the\c@asy.pdf}{\phantom{\copy\ASYbox}}%
\vskip-\ht\ASYbox%
@@ -195,7 +195,7 @@
\box\ASYbox%
\closein\AsyTestStream%
\else
- \includegraphics{\Jobname-\the\c@asy}%
+ \includegraphics[hiresbb]{\Jobname-\the\c@asy}%
\fi
\fi
\fi
diff --git a/Build/source/utils/asymptote/doc/asymptote.texi b/Build/source/utils/asymptote/doc/asymptote.texi
index b04a940decb..aeacf580096 100644
--- a/Build/source/utils/asymptote/doc/asymptote.texi
+++ b/Build/source/utils/asymptote/doc/asymptote.texi
@@ -75,7 +75,7 @@ Installation
* Search paths:: Where @code{Asymptote} looks for your files
* Compiling from UNIX source:: Building @code{Asymptote} from scratch
* Editing modes:: Convenient @code{emacs} and @code{vim} modes
-* Subversion::
+* Subversion:: Getting the latest development source
* Uninstall:: Goodbye, @code{Asymptote}!
Drawing commands
@@ -265,7 +265,7 @@ Links to many external resources, including an excellent user-written
* Search paths:: Where @code{Asymptote} looks for your files
* Compiling from UNIX source:: Building @code{Asymptote} from scratch
* Editing modes:: Convenient @code{emacs} and @code{vim} modes
-* Subversion::
+* Subversion:: Getting the latest development source
* Uninstall:: Goodbye, @code{Asymptote}!
@end menu
@@ -2431,9 +2431,14 @@ returns the winding number of the cyclic path @code{p} relative to the point
counterclockwise direction. If @code{z} lies on @code{p} the constant
@code{undefined} (defined to be the largest odd integer) is returned.
+@cindex @code{interior}
+@item bool interior(int windingnumber, pen fillrule)
+returns true if @code{windingnumber} corresponds to an interior point
+according to @code{fillrule}.
+
@cindex @code{inside}
@item bool inside(path p, pair z, pen fillrule=currentpen);
-returns @code{true} iff the point @code{z} is inside or on the edge of
+returns @code{true} iff the point @code{z} lies inside or on the edge of
the region bounded by the cyclic path @code{p} according to the fill
rule @code{fillrule} (@pxref{fillrule}).
@@ -5847,7 +5852,7 @@ need to remove the files @code{latexusage-*}, @code{latexusage_.pre}, and
One can specify @code{width}, @code{height},
@code{viewportwidth}, @code{viewportheight}, and @code{attach}
@code{keyval}-style options to the @code{asy} environment.
-The current version (1.06) of @code{asymptote.sty} supports the
+The current version (1.07) of @code{asymptote.sty} supports the
embedding of 3D @acronym{PRC} files, either inline or, using the
@code{attach} option with the @code{attachfile2} (or older
@code{attachfile}) @code{LaTeX} package,
@@ -7391,9 +7396,9 @@ surface surface(path3 external, triple[] internal=new triple[],
@noindent
and then filled:
@verbatim
-draw(surface(path3(polygon(5))),red);
-draw(surface(unitcircle3),red);
-draw(surface(unitcircle3,new pen[] {red,green,blue,black}));
+draw(surface(path3(polygon(5))),red,nolight);
+draw(surface(unitcircle3),red,nolight);
+draw(surface(unitcircle3,new pen[] {red,green,blue,black}),nolight);
@end verbatim
@noindent
The last example constructs a patch with vertex-specific colors.
@@ -7723,11 +7728,21 @@ projection TopView=orthographic(Z,showtarget=true);
The function
@verbatim
void addViews(picture dest=currentpicture, picture src, bool group=true,
- filltype filltype=NoFill, bool above=true);
+ filltype filltype=NoFill);
@end verbatim
@noindent
adds picture @code{pic} as seen with @code{FrontView} aligned above the
projection @code{TopView} and to the right of the projection @code{RightView}.
+Alternatively, the function
+@verbatim
+void addAllViews(picture dest=currentpicture, picture src,
+ real xmargin=0, real ymargin=xmargin,
+ bool group=true, filltype filltype=NoFill);
+@end verbatim
+@noindent
+may be used to exhibit all six standard views, with FrontView,
+TopView, RightView in the upper row and BackView, BottomView, LeftView
+in the lower row.
A triple or path3 can be projected to a pair or path,
with @code{project(triple, projection P=currentprojection)} or
diff --git a/Build/source/utils/asymptote/doc/ocg.sty b/Build/source/utils/asymptote/doc/ocg.sty
new file mode 100644
index 00000000000..3ba555b58e8
--- /dev/null
+++ b/Build/source/utils/asymptote/doc/ocg.sty
@@ -0,0 +1,127 @@
+%% Copyright (C) 2007 by Michael Ritzert <michael.ritz...@gmail.com>
+%% Spurious spaces removed by John Bowman [2009/06/01].
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ocg}[2009/06/01]
+
+\RequirePackage{ifpdf}
+\ifpdf
+\else
+ \PackageWarningNoLine{ocg}{%
+ Loading aborted, because pdfTeX is not running in PDF mode%
+ }%
+ \expandafter\endinput
+\fi
+
+\DeclareOption*{}\ProcessOptions*\relax %allow anything as option for the moment
+
+%testing for correct pdfTeX version
+%TODO: find out minimum required version!
+\ifnum\pdftexversion<120
+ \PackageError{ocg}{%
+ pdfeTeX, version >= 1.20, required%
+ }{%
+ Install a newer version!%
+ }%
+\fi
+
+% Next OCG id -- TODO: autogenerate. but keep possibility to reopen an OCG.
+\newcount\@ocg@num\@ocg@num=0
+
+\gdef\@ocg@layersnames{}
+
+% called from the aux file
+\def\@ocg@makeknown#1#2#3{% #1: OCG name, #2: OC id, #3: on/off
+ \@ifundefined{OCG#2}{%
+ \message{OCG#2}
+ \expandafter\gdef\csname OCG#2\endcsname{#1}%
+ \immediate\pdfobj{<< /Type /OCG /Name (#1) >>}% new ocg
+ \xdef\@ocg@curocg{\the\pdflastobj\space 0 R}% reference to id
+ \xdef\@ocg@ocgs{\@ocg@ocgs\space\@ocg@curocg}% list of all OCGs in "first defined" order
+ \ifnum#3=1 %on
+ \xdef\@ocg@ocgson{\@ocg@ocgson\space\@ocg@curocg}% list of all default-on OCGs
+ \else%
+ \xdef\@ocg@ocgsoff{\@ocg@ocgsoff\space\@ocg@curocg}% list of all default-off OCGs
+ \fi%
+ \xdef\@ocg@layersnames{%
+ \@ocg@layersnames\space/OC#2\space\@ocg@curocg% name-to-id mapping
+ }%
+ }{%
+ \message{OCG#2 reopened}
+ % layer reopened
+ }
+}
+
+\AtBeginDocument{%
+ % the auxfile has been read if available. register the OCGs in the page resources.
+ \@ocg@addresource
+ \let\@ocg@makeknown\@gobble
+}
+
+% set page resources to include the layers defined in the aux file
+\def\@ocg@addresource{%
+ \immediate\pdfobj{<<\@ocg@layersnames\space>>}%
+ \xdef\@ocg@namesobj{\the\pdflastobj\space 0 R}%
+ % append to pageresources
+ \begingroup
+ \edef\x{\endgroup
+ \pdfpageresources{%
+ \the\pdfpageresources
+ /Properties \@ocg@namesobj%
+ }%
+ }%
+ \x
+}
+
+\newcount\@ocg@@ocgs
+\pdfobj reserveobjnum
+\@ocg@@ocgs=\pdflastobj
+
+\newcount\@ocg@@layersconfig
+\pdfobj reserveobjnum
+\@ocg@@layersconfig=\pdflastobj
+
+\pdfcatalog{%
+ /OCProperties <<
+ /OCGs \the\@ocg@@ocgs\space0 R\space
+ /D \the\@ocg@@layersconfig\space0 R\space
+ >>%
+}
+\def\@ocg@ocgs{}
+\def\@ocg@ocgson{}
+\def\@ocg@ocgsoff{}
+\AtEndDocument{%
+ \immediate\pdfobj useobjnum \@ocg@@ocgs {%
+ [\@ocg@ocgs\space]%
+ }%
+ \immediate\pdfobj useobjnum \@ocg@@layersconfig {%
+ <<
+ /Order [\@ocg@ocgs\space]
+ /ON [\@ocg@ocgson\space]
+ /OFF [\@ocg@ocgsoff\space]
+ >>%
+ }%
+}%
+
+% schedule a OCG for creation on the next pdflatex run (via the auxfile)
+\def\@ocg@newocg#1#2#3{% #1:name, #2:num, #3:on
+ \if@filesw%
+ \immediate\write\@auxout{%
+ \string\@ocg@makeknown{#1}{#2}{#3}%
+ }%
+ \fi%
+}
+
+% TODO: Are nested OCGs allowed?
+\newenvironment{ocg}[3]{%
+ \@ocg@newocg{#1}{#2}{#3}%
+ \gdef\@ocg@curnum{#2}%
+ \pdfliteral{/OC /OC\@ocg@curnum\space BDC}%
+ \message{/OC\@ocg@curnum}%
+ \ignorespaces
+}{%
+ \pdfliteral{EMC}%
+ %\unskip%
+ %\endgroup%
+ \ignorespacesafterend
+}
diff --git a/Build/source/utils/asymptote/doc/png/Makefile.in b/Build/source/utils/asymptote/doc/png/Makefile.in
index 798fb9ef969..a2eaa52f32a 100644
--- a/Build/source/utils/asymptote/doc/png/Makefile.in
+++ b/Build/source/utils/asymptote/doc/png/Makefile.in
@@ -20,7 +20,7 @@ index.html: $(SOURCE) $(ASYFILES:.asy=.png)
makeinfo --html ../asymptote -o .
asymptote.info: $(SOURCE) $(ASYFILES:.asy=.png)
- makeinfo ../asymptote
+ makeinfo --no-split ../asymptote
html: index.html
@@ -35,7 +35,6 @@ distclean: FORCE clean
install:
${INSTALL} -d -m 755 $(infodir)
${INSTALL} -p -m 644 asymptote.info $(infodir)
- -${INSTALL} -p -m 644 asymptote.info-* $(infodir)
-if test -z "$(DESTDIR)"; then \
install-info --infodir=$(infodir) asymptote.info; \
fi
diff --git a/Build/source/utils/asymptote/doc/png/asymptote.info b/Build/source/utils/asymptote/doc/png/asymptote.info
index 5a6a1156c0d..729aca905aa 100644
--- a/Build/source/utils/asymptote/doc/png/asymptote.info
+++ b/Build/source/utils/asymptote/doc/png/asymptote.info
@@ -1,7 +1,7 @@
This is asymptote.info, produced by makeinfo version 4.13 from
../asymptote.texi.
-This file documents `Asymptote', version 1.75.
+This file documents `Asymptote', version 1.76.
`http://asymptote.sourceforge.net'
@@ -18,150 +18,9507 @@ START-INFO-DIR-ENTRY
END-INFO-DIR-ENTRY

-Indirect:
-asymptote.info-1: 578
-asymptote.info-2: 295810
+File: asymptote.info, Node: Top, Next: Description, Up: (dir)
+
+Asymptote
+*********
+
+This file documents `Asymptote', version 1.76.
+
+ `http://asymptote.sourceforge.net'
+
+ Copyright (C) 2004-9 Andy Hammerlindl, John Bowman, and Tom Prince.
+
+ Permission is granted to copy, distribute and/or modify this
+ document under the terms of the GNU Lesser General Public License
+ (see the file LICENSE in the top-level source directory).
+
+
+* Menu:
+
+* Description:: What is `Asymptote'?
+* Installation:: Downloading and installing
+* Tutorial:: Getting started
+* Drawing commands:: Four primitive graphics commands
+* Programming:: The `Asymptote' vector graphics language
+* LaTeX usage:: Embedding `Asymptote' commands within `LaTeX'
+* Base modules:: Base modules shipped with `Asymptote'
+* Options:: Command-line options
+* Interactive mode:: Typing `Asymptote' commands interactively
+* GUI:: Graphical user interface
+* PostScript to Asymptote:: `Asymptote' backend to `pstoedit'
+* Help:: Where to get help and submit bug reports
+* Debugger:: Squish those bugs!
+* Credits:: Contributions and acknowledgments
+* Index:: General index
+
+ --- The Detailed Node Listing ---
+
+Installation
+
+* UNIX binary distributions:: Prebuilt `UNIX' binaries
+* MacOS X binary distributions:: Prebuilt `MacOS X' binaries
+* Microsoft Windows:: Prebuilt `Microsoft Windows' binary
+* Configuring:: Configuring `Asymptote' for your system
+* Search paths:: Where `Asymptote' looks for your files
+* Compiling from UNIX source:: Building `Asymptote' from scratch
+* Editing modes:: Convenient `emacs' and `vim' modes
+* Subversion:: Getting the latest development source
+* Uninstall:: Goodbye, `Asymptote'!
+
+Drawing commands
+
+* draw:: Draw a path on a picture or frame
+* fill:: Fill a cyclic path on a picture or frame
+* clip:: Clip a picture or frame to a cyclic path
+* label:: Label a point on a picture
+
+Programming
+
+* Data types:: void, bool, int, real, pair, triple, string
+* Paths and guides::
+* Pens:: Colors, line types, line widths, font sizes
+* Transforms:: Affine transforms
+* Frames and pictures:: Canvases for immediate and deferred drawing
+* Files:: Reading and writing your data
+* Variable initializers:: Initialize your variables
+* Structures:: Organize your data
+* Operators:: Arithmetic and logical operators
+* Implicit scaling:: Avoiding those ugly *s
+* Functions:: Traditional and high-order functions
+* Arrays:: Dynamic vectors
+* Casts:: Implicit and explicit casts
+* Import:: Importing external `Asymptote' packages
+* Static:: Where to allocate your variable?
+
+Operators
+
+* Arithmetic & logical:: Basic mathematical operators
+* Self & prefix operators:: Increment and decrement
+* User-defined operators:: Overloading operators
+
+Functions
+
+* Default arguments:: Default values can appear anywhere
+* Named arguments:: Assigning function arguments by keyword
+* Rest arguments:: Functions with a variable number of arguments
+* Mathematical functions:: Standard libm functions
+
+
+Arrays
+
+* Slices:: Python-style array slices
+
+Base modules
+
+* plain:: Default `Asymptote' base file
+* simplex:: Linear programming: simplex method
+* math:: Extend `Asymptote''s math capabilities
+* interpolate:: Interpolation routines
+* geometry:: Geometry routines
+* trembling:: Wavy lines
+* stats:: Statistics routines and histograms
+* patterns:: Custom fill and draw patterns
+* markers:: Custom path marker routines
+* tree:: Dynamic binary search tree
+* binarytree:: Binary tree drawing module
+* drawtree:: Tree drawing module
+* syzygy:: Syzygy and braid drawing module
+* feynman:: Feynman diagrams
+* roundedpath:: Round the sharp corners of paths
+* animation:: Embedded PDF and MPEG movies
+* embed:: Embedding movies, sounds, and 3D objects
+* slide:: Making presentations with `Asymptote'
+* MetaPost:: `MetaPost' compatibility routines
+* unicode:: Accept `unicode' (UTF-8) characters
+* latin1:: Accept `ISO 8859-1' characters
+* babel:: Interface to `LaTeX' `babel' package
+* labelpath:: Drawing curved labels
+* labelpath3:: Drawing curved labels in 3D
+* annotate:: Annotate your PDF files
+* CAD:: 2D CAD pen and measurement functions (DIN 15)
+* graph:: 2D linear & logarithmic graphs
+* palette:: Color density images and palettes
+* three:: 3D vector graphics
+* obj:: 3D obj files
+* graph3:: 3D linear & logarithmic graphs
+* grid3:: 3D grids
+* solids:: 3D solid geometry
+* tube:: 3D rotation minimizing tubes
+* flowchart:: Flowchart drawing routines
+* contour:: Contour lines
+* contour3:: Contour surfaces
+* slopefield:: Slope fields
+
+
+Graphical User Interface
+
+* GUI Installation:: Installing `xasy'
+* GUI Usage::
+
+
+File: asymptote.info, Node: Description, Next: Installation, Prev: Top, Up: Top
+
+1 Description
+*************
+
+`Asymptote' is a powerful descriptive vector graphics language that
+provides a mathematical coordinate-based framework for technical
+drawings. Labels and equations are typeset with `LaTeX', for overall
+document consistency, yielding the same high-quality level of
+typesetting that `LaTeX' provides for scientific text. By default it
+produces `PostScript' output, but it can also generate any format that
+the `ImageMagick' package can produce.
+
+ A major advantage of `Asymptote' over other graphics packages is
+that it is a high-level programming language, as opposed to just a
+graphics program: it can therefore exploit the best features of the
+script (command-driven) and graphical-user-interface (GUI) methods for
+producing figures. The rudimentary GUI `xasy' included with the package
+allows one to move script-generated objects around. To make `Asymptote'
+accessible to the average user, this GUI is currently being developed
+into a full-fledged interface that can generate objects directly.
+However, the script portion of the language is now ready for general
+use by users who are willing to learn a few simple `Asymptote' graphics
+commands (*note Drawing commands::).
+
+ `Asymptote' is mathematically oriented (e.g. one can use complex
+multiplication to rotate a vector) and uses `LaTeX' to do the
+typesetting of labels. This is an important feature for scientific
+applications. It was inspired by an earlier drawing program (with a
+weaker syntax and capabilities) called `MetaPost'.
+
+ The `Asymptote' vector graphics language provides:
+
+ * a standard for typesetting mathematical figures, just as
+ TeX/`LaTeX' is the de-facto standard for typesetting equations.
+
+ * `LaTeX' typesetting of labels, for overall document consistency;
+
+ * a natural coordinate-based framework for technical drawings,
+ inspired by `MetaPost', with a much cleaner, powerful C++-like
+ programming syntax;
+
+ * compilation of figures into virtual machine code for speed, without
+ sacrificing portability;
+
+ * the power of a script-based language coupled to the convenience of
+ a GUI;
+
+ * customization using its own C++-like graphics programming language;
+
+ * sensible defaults for graphical features, with the ability to
+ override;
+
+ * a high-level mathematically oriented interface to the `PostScript'
+ language for vector graphics, including affine transforms and
+ complex variables;
+
+ * functions that can create new (anonymous) functions;
+
+ * deferred drawing that uses the simplex method to solve overall size
+ constraint issues between fixed-sized objects (labels and
+ arrowheads) and objects that should scale with figure size;
+
+
+ Many of the features of `Asymptote' are written in the `Asymptote'
+language itself. While the stock version of `Asymptote' is designed for
+mathematics typesetting needs, one can write `Asymptote' modules that
+tailor it to specific applications. A scientific graphing module has
+already been written (*note graph::). Examples of `Asymptote' code and
+output, including animations, are available at
+
+ `http://asymptote.sourceforge.net/gallery/'.
+ Links to many external resources, including an excellent user-written
+`Asymptote' tutorial can be found at
+
+ `http://asymptote.sourceforge.net/links.html'.
+
+
+File: asymptote.info, Node: Installation, Next: Tutorial, Prev: Description, Up: Top
+
+2 Installation
+**************
+
+* Menu:
+
+* UNIX binary distributions:: Prebuilt `UNIX' binaries
+* MacOS X binary distributions:: Prebuilt `MacOS X' binaries
+* Microsoft Windows:: Prebuilt `Microsoft Windows' binary
+* Configuring:: Configuring `Asymptote' for your system
+* Search paths:: Where `Asymptote' looks for your files
+* Compiling from UNIX source:: Building `Asymptote' from scratch
+* Editing modes:: Convenient `emacs' and `vim' modes
+* Subversion:: Getting the latest development source
+* Uninstall:: Goodbye, `Asymptote'!
+
+ After following the instructions for your specific distribution,
+please see also *note Configuring::.
+
+We recommend subscribing to new release announcements at
+
+ `http://freshmeat.net/projects/asy'
+ Users may also wish to monitor the `Asymptote' forum:
+
+ `http://sourceforge.net/forum/monitor.php?forum_id=409349'
+
+
+File: asymptote.info, Node: UNIX binary distributions, Next: MacOS X binary distributions, Up: Installation
+
+2.1 UNIX binary distributions
+=============================
+
+We release both `tgz' and RPM binary distributions of `Asymptote'. The
+root user can install the `Linux i386' `tgz' distribution of version
+`x.xx' of `Asymptote' with the commands:
+tar -C / -zxf asymptote-x.xx.i386.tgz
+texhash
+ The `texhash' command, which installs LaTeX style files, is optional.
+The executable file will be `/usr/local/bin/asy') and example code will
+be installed by default in `/usr/local/share/doc/asymptote/examples'.
+
+Fedora users can easily install the most recent version of `Asymptote'
+with the command
+yum --enablerepo=rawhide install asymptote
+
+To install the latest version of `Asymptote' on a Debian-based
+distribution (e.g. Ubuntu, Mepis, Linspire) follow the instructions for
+compiling from `UNIX' source (*note Compiling from UNIX source::).
+Alternatively, Debian users can install one of Hubert Chan's prebuilt
+`Asymptote' binaries from
+
+ `http://ftp.debian.org/debian/pool/main/a/asymptote'
+
+
+File: asymptote.info, Node: MacOS X binary distributions, Next: Microsoft Windows, Prev: UNIX binary distributions, Up: Installation
+
+2.2 MacOS X binary distributions
+================================
+
+`MacOS X' users can either compile the `UNIX' source code (*note
+Compiling from UNIX source::) or install the contributed `Asymptote'
+binary available at
+
+`http://www.hmug.org/pub/MacOS_X/X/Applications/Publishing/asymptote/'
+
+Because these preconfigured binary distributions have strict
+architecture and library dependencies that many installations do not
+satisfy, we recommend installing `Asymptote' directly from the official
+source:
+
+ `http://sourceforge.net/project/showfiles.php?group_id=120000'
+
+Note that many `MacOS X' (and FreeBSD) systems inexplicably ship with
+an extremely old GNU `readline' version (4.1, dated 21 March 2000). For
+full interactive functionality, `readline' version 4.2 or later (16
+April 2001) is required.
+
+
+File: asymptote.info, Node: Microsoft Windows, Next: Configuring, Prev: MacOS X binary distributions, Up: Installation
+
+2.3 Microsoft Windows
+=====================
+
+Users of the `Microsoft Windows' operating system can install the
+self-extracting `Asymptote' executable `asymptote-x.xx-setup.exe',
+where `x.xx' denotes the latest version.
+
+ A working TeX implementation (such as the one available at
+`http://www.miktex.org') will be required to typeset labels. You will
+also need to install `GPL Ghostscript' from
+`http://sourceforge.net/projects/ghostscript/'. To view the default
+`PostScript' output, you can install the program `gsview' available from
+`http://www.cs.wisc.edu/~ghost/gsview/'.
+
+ The `ImageMagick' package from
+
+ `http://www.imagemagick.org/script/binary-releases.php'
+
+is required to support output formats other than EPS and PDF (*note
+convert::). The `Python' interpreter from `http://www.python.org' is
+only required if you wish to try out the graphical user interface
+(*note GUI::).
+
+Example code will be installed by default in the `examples'
+subdirectory of the installation directory (by default, `C:\Program
+Files\Asymptote').
+
+
+File: asymptote.info, Node: Configuring, Next: Search paths, Prev: Microsoft Windows, Up: Installation
+
+2.4 Configuring
+===============
+
+In interactive mode, or when given the `-V' option (the default when
+running `Asymptote' on a single file under `MSDOS'), `Asymptote' will
+automatically invoke the `PostScript' viewer `gv' (under `UNIX') or
+`gsview' (under `MSDOS' to display graphical output. These defaults may
+be overridden with the configuration variable `psviewer'. The
+`PostScript' viewer should be capable of automatically redrawing
+whenever the output file is updated. The default `UNIX' `PostScript'
+viewer `gv' supports this (via a `SIGHUP' signal). Version `gv-3.6.3'
+or later (from `http://ftp.gnu.org/gnu/gv/') is required for
+interactive mode to work properly. Users of `ggv' will need to enable
+`Watch file' under `Edit/Postscript Viewer Preferences'. Users of
+`gsview' will need to enable `Options/Auto Redisplay' (however, under
+`MSDOS' it is still necessary to click on the `gsview' window; under
+`UNIX' one must manually redisplay by pressing the `r' key).
+
+ Configuration variables are most easily set as `Asymptote' variables
+in the configuration file (by default, `.asy/config.asy' in the user's
+home directory or `%USERPROFILE%\.asy\config.asy' under `MSDOS'); *note
+configuration file::. Here are the default values of several important
+configuration variables under `UNIX':
+
+
+import settings;
+psviewer="gv";
+pdfviewer="acroread";
+gs="gs";
+python="";
+
+The (installation-dependent) default values of these configuration
+variables under `MSDOS' are determined automatically from the
+`Microsoft Windows' registry.
+
+ For PDF format output, the `gs' setting specifies the location of
+the `PostScript'-to-PDF processor `Ghostscript', available from
+`http://sourceforge.net/projects/ghostscript/'.
+
+ The setting `pdfviewer' specifies the location of the PDF viewer. On
+`UNIX' systems, to support automatic document reloading in `Adobe
+Reader', we recommend copying the file `reload.js' from the `Asymptote'
+system directory (by default, `/usr/local/share/asymptote' under `UNIX'
+to `~/.adobe/Acrobat/x.x/JavaScripts/', where `x.x' represents the
+appropriate `Adobe Reader' version number. The automatic document
+reload feature must then be explicitly enabled by putting
+import settings;
+pdfreload=true;
+pdfreloadOptions="-tempFile";
+ in the `Asymptote' configuration file. This reload feature is not
+useful under `MSDOS' since the document cannot be updated anyway on
+that operating system until it is first closed by `Adobe Reader'.
+
+ The graphical user interface may also require setting the variable
+`python' if `Python' is installed in a nonstandard location.
+
+ The configuration variable `dir' can be used to adjust the search
+path (*note Search paths::).
+
+ By default, `Asymptote' attempts to center the figure on the page,
+assuming that the paper type is `letter'. The default paper type may be
+changed to `a4' with the configuration variable `papertype'. Alignment
+to other paper sizes can be obtained by setting the configuration
+variables `paperwidth' and `paperheight'.
+
+ The following configuration variables normally do not require
+adjustment:
+texpath
+texcommand
+texdvicommand
+dvips
+convert
+display
+animate
+xasy
+ The `texdvicommand' is used for `3D' label typesetting, which requires
+`dvips' output. An empty string indicates the default setting of
+`latex'/`tex', depending on the setting of `texengine'.
+
+ Configuration variables may also be set or overwritten with a
+command-line option:
+asy -psviewer=gsview -V venn
+
+ Alternatively, system environment versions of the above configuration
+variables may be set in the conventional way. The corresponding
+environment variable name is obtained by converting the configuration
+variable name to upper case and prepending `ASYMPTOTE_': for example,
+to set the environment variable
+ASYMPTOTE_PSVIEWER="C:\Program Files\Ghostgum\gsview\gsview32.exe";
+ under `Microsoft Windows XP':
+ 1. Click on the `Start' button;
+
+ 2. Right-click on `My Computer';
+
+ 3. Choose `Properties' from the popup menu;
+
+ 4. Click the `Advanced' tab;
+
+ 5. Click the `Environment Variables' button.
+
+
+File: asymptote.info, Node: Search paths, Next: Compiling from UNIX source, Prev: Configuring, Up: Installation
+
+2.5 Search paths
+================
+
+In looking for `Asymptote' system files, `asy' will search the
+following paths, in the order listed:
+ 1. The current directory;
+
+ 2. A list of one or more directories specified by the configuration
+ variable `dir' (separated by `:' under UNIX and `;' under `MSDOS');
+
+ 3. The directory `.asy' in the user's home directory
+ (`%USERPROFILE%\.asy' under `MSDOS');
+
+ 4. The `Asymptote' system directory (by default,
+ `/usr/local/share/asymptote' under `UNIX' and `C:\Program
+ Files\Asymptote' under `MSDOS').
+
+
+File: asymptote.info, Node: Compiling from UNIX source, Next: Editing modes, Prev: Search paths, Up: Installation
+
+2.6 Compiling from UNIX source
+==============================
+
+To compile and install a `UNIX' executable from a source release
+`x.xx', first execute the commands:
+gunzip asymptote-x.xx.src.tgz
+tar -xf asymptote-x.xx.src.tar
+cd asymptote-x.xx
+ By default the system version of the Boehm garbage collector will be
+used; if it is old we recommend first putting
+`http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_source/gc-7.1.tar.gz'
+in the `Asymptote' source directory.
+
+If your graphics card supports multisampling, we recommend using SVN
+revision 761 (or later) of `freeglut' to support antialiasing in
+`Asymptote''s adaptive `OpenGL' 3D renderer (`MacOS X' users can skip
+this step since `Asymptote' is configured to use the native glut
+library on that platform). Download
+
+ `http://freeglut.svn.sourceforge.net/viewvc/freeglut/trunk/freeglut/freeglut.tar.gz'
+ and type (as the root user):
+tar -zxf freeglut.tar.gz
+cd freeglut
+sh autogen.sh
+./configure --prefix=/usr
+make install
+cd ..
+ Then compile `Asymptote' with the commands
+./configure
+make all
+make install
+ Be sure to use GNU `make' (on non-GNU systems this command may be
+called `gmake'). To build the documentation, you may need to install
+the `texinfo-tex' package. If you get errors from a broken `texinfo' or
+`pdftex' installation, simply put
+
+ `http://asymptote.sourceforge.net/asymptote.pdf'
+ in the directory `doc' and repeat the command `make all'.
+
+For a (default) system-wide installation, the last command should be
+done as the root user. To install without root privileges, change the
+`./configure' command to
+./configure --prefix=$HOME/asymptote
+ One can disable use of the Boehm garbage collector by configuring with
+`./configure --disable-gc'. For a list of other configuration options,
+say `./configure --help'. For example, one can tell configure to look
+for header files and libraries in nonstandard locations:
+./configure CFLAGS=-I/opt/usr/include LDFLAGS=-L/opt/usr/lib
+
+ If you are compiling `Asymptote' with `gcc', you will need a
+relatively recent version (e.g. 3.4.4 or later). For full interactive
+functionality, you will need version 4.2 or later of the GNU `readline'
+library. The file `gcc3.3.2curses.patch' in the `patches' directory can
+be used to patch the broken curses.h header file (or a local copy
+thereof in the current directory) on some `AIX' and `IRIX' systems.
+
+ The `FFTW' library is only required if you want `Asymptote' to be
+able to take Fourier transforms of data (say, to compute an audio power
+spectrum). The `GSL' library is only required if you require the
+special functions that it supports.
+
+ If you don't want to install `Asymptote' system wide, just make sure
+the compiled binary `asy' and GUI script `xasy' are in your path and
+set the configuration variable `dir' to point to the directory `base'
+(in the top level directory of the `Asymptote' source code).
+
+
+File: asymptote.info, Node: Editing modes, Next: Subversion, Prev: Compiling from UNIX source, Up: Installation
+
+2.7 Editing modes
+=================
+
+Users of `emacs' can edit `Asymptote' code with the mode `asy-mode',
+after enabling it by putting the following lines in their `.emacs'
+initialization file, replacing `ASYDIR' with the location of the
+`Asymptote' system directory (by default, `/usr/local/share/asymptote'
+or `C:\Program Files\Asymptote' under `MSDOS'):
+(add-to-list 'load-path "ASYDIR")
+(autoload 'asy-mode "asy-mode.el" "Asymptote major mode." t)
+(autoload 'lasy-mode "asy-mode.el" "hybrid Asymptote/Latex major mode." t)
+(autoload 'asy-insinuate-latex "asy-mode.el" "Asymptote insinuate LaTeX." t)
+(add-to-list 'auto-mode-alist '("\\.asy$" . asy-mode))
+
+ Particularly useful key bindings in this mode are `C-c C-c', which
+compiles and displays the current buffer, and the key binding `C-c ?',
+which shows the available function prototypes for the command at the
+cursor. For full functionality you should also install the Apache
+Software Foundation package `two-mode-mode':
+
+ `http://www.dedasys.com/freesoftware/files/two-mode-mode.el'
+ Once installed, you can use the hybrid mode `lasy-mode' to edit a
+LaTeX file containing embedded `Asymptote' code (*note LaTeX usage::).
+This mode can be enabled within `latex-mode' with the key sequence `M-x
+lasy-mode <RET>'. On `UNIX' systems, additional keywords will be
+generated from all `asy' files in the space-separated list of
+directories specified by the environment variable `ASYMPTOTE_SITEDIR'.
+Further documentation of `asy-mode' is available within `emacs' by
+pressing the sequence keys `C-h f asy-mode <RET>'.
+
+ Fans of `vim' can customize `vim' for `Asymptote' with
+
+`cp /usr/local/share/asymptote/asy.vim ~/.vim/syntax/asy.vim'
+
+and add the following to their `~/.vimrc' file:
+augroup filetypedetect
+au BufNewFile,BufRead *.asy setf asy
+augroup END
+filetype plugin on
+
+ If any of these directories or files don't exist, just create them.
+To set `vim' up to run the current asymptote script using `:make' just
+add to `~/.vim/ftplugin/asy.vim':
+setlocal makeprg=asy\ %
+setlocal errorformat=%f:\ %l.%c:\ %m
+
+
+File: asymptote.info, Node: Subversion, Next: Uninstall, Prev: Editing modes, Up: Installation
+
+2.8 Subversion (SVN)
+====================
+
+The following commands are needed to install the latest development
+version of `Asymptote' using Subversion:
+svn co http://asymptote.svn.sourceforge.net/svnroot/asymptote/trunk/asymptote
+cd asymptote
+./autogen.sh
+./configure
+make all
+make install
+
+To compile without optimization, use the command `make CFLAGS=-g'.
+
+
+File: asymptote.info, Node: Uninstall, Prev: Subversion, Up: Installation
+
+2.9 Uninstall
+=============
+
+To uninstall an `Linux i386' binary distribution, use the commands
+tar -zxvf asymptote-x.xx.i386.tgz | xargs --replace=% rm /%
+texhash
+
+To uninstall all `Asymptote' files installed from a source
+distribution, use the command
+make uninstall
+
+
+File: asymptote.info, Node: Tutorial, Next: Drawing commands, Prev: Installation, Up: Top
+
+3 Tutorial
+**********
+
+_An excellent user-written `Asymptote' tutorial is also available from_
+
+ `http://www.artofproblemsolving.com/Wiki/index.php/Asymptote:_Basics'
+
+To draw a line from coordinate (0,0) to coordinate (100,100) using
+`Asymptote''s interactive mode, type at the command prompt:
+asy
+draw((0,0)--(100,100));
+
+
+
+The units here are `PostScript' "big points" (1 `bp' = 1/72 `inch');
+`--' means join with a linear segment. In `Asymptote' coordinates like
+`(0,0)' and `(1000,100)' are called _pairs_.
+
+ At this point you can type in further draw commands, which will be
+added to the displayed figure, or type `quit' to exit interactive mode.
+You can use the arrow keys in interactive mode to edit previous lines
+(assuming that you have support for the GNU `readline' library
+enabled). The tab key will automatically complete unambiguous words;
+otherwise, hitting tab again will show the possible choices. Further
+commands specific to interactive mode are described in *note
+Interactive mode::.
+
+ In batch mode, `Asymptote' reads commands directly from a file. To
+try this out, type
+
+draw((0,0)--(100,100));
+ into a file, say test.asy. Then execute this file with the `MSDOS' or
+`UNIX' command
+asy -V test
+ `MSDOS' users can drag and drop the file onto the Desktop `asy' icon
+or make `Asymptote' the default application for files with the
+extension `asy'.
+
+The `-V' option opens up a `PostScript' viewer window so you can
+immediately view the encapsulated `PostScript' output. By default the
+output will be written to the file `test.eps'; the prefix of the output
+file may be changed with the `-o' command-line option.
+
+ One can draw a line with more than two points and create a cyclic
+path like this square:
+
+draw((0,0)--(100,0)--(100,100)--(0,100)--cycle);
+
+
+
+It is often inconvenient to work directly with `PostScript' coordinates.
+The next example draws a unit square scaled to width 101 bp and height
+101 bp. The output is identical to that of the previous example.
+size(101,101);
+draw((0,0)--(1,0)--(1,1)--(0,1)--cycle);
+
+ For convenience, the path `(0,0)--(1,0)--(1,1)--(0,1)--cycle' may be
+replaced with the predefined variable `unitsquare', or equivalently,
+`box((0,0),(1,1))'.
+
+ One can also specify the size in `pt' (1 `pt' = 1/72.27 `inch'),
+`cm', `mm', or `inches'. If 0 is given as a size argument, no
+restriction is made in that direction; the overall scaling will be
+determined by the other direction (*note size::):
+
+size(0,3cm);
+draw(unitsquare);
+
+
+
+To make the user coordinates represent multiples of exactly `1cm':
+unitsize(1cm);
+draw(unitsquare);
+
+ One can also specify different x and y unit sizes:
+unitsize(1cm,2cm);
+draw(unitsquare);
+
+ Adding labels is easy in `Asymptote'; one specifies the label as a
+double-quoted `LaTeX' string, a coordinate, and an optional alignment
+direction:
+
+size(0,3cm);
+draw(unitsquare);
+label("$A$",(0,0),SW);
+label("$B$",(1,0),SE);
+label("$C$",(1,1),NE);
+label("$D$",(0,1),NW);
+
+
+
+`Asymptote' uses the standard compass directions `E=(1,0)', `N=(0,1)',
+`NE=unit(N+E)', and `ENE=unit(E+NE)', etc., which along with the
+directions `up', `down', `right', and `left' are defined as pairs in
+the `Asymptote' base module `plain'. A user who has a local variable
+named `E' may access the compass direction `E' by prefixing it with the
+name of the module where it is defined: `plain.E'.
+
+ This example draws a path that approximates a quarter circle:
+
+size(100,0);
+draw((1,0){up}..{left}(0,1));
+
+
+
+In general, a path is specified as a list of pairs (or other paths)
+interconnected with `--', which denotes a straight line segment, or
+`..', which denotes a cubic spline. Specifying a final node `cycle'
+creates a cyclic path that connects smoothly back to the initial node,
+as in this approximation (accurate to within 0.06%) of a unit circle:
+path unitcircle=E..N..W..S..cycle;
+
+ Each interior node of a cubic spline may be given a direction prefix
+or suffix `{dir}': the direction of the pair `dir' specifies the
+direction of the incoming or outgoing tangent, respectively, to the
+curve at that node. Exterior nodes may be given direction specifiers
+only on their interior side.
+
+ A cubic spline between the node z_0, with postcontrol point c_0, and
+the node z_1, with precontrol point c_1, is computed as the Bezier curve
+
+
+
+As illustrated in the diagram below, the third-order midpoint (m_5)
+constructed from two endpoints z_0 and z_1 and two control points c_0
+and c_1, is the point corresponding to t=1/2 on the Bezier curve formed
+by the quadruple (z_0, c_0, c_1, z_1). This allows one to recursively
+construct the desired curve, by using the newly extracted third-order
+midpoint as an endpoint and the respective second- and first-order
+midpoints as control points:
+
+
+
+Here m_0, m_1 and m_2 are the first-order midpoints, m_3 and m_4 are
+the second-order midpoints, and m_5 is the third-order midpoint. The
+curve is then constructed by recursively applying the algorithm to
+(z_0, m_0, m_3, m_5) and (m_5, m_4, m_2, z_1).
+
+ In fact, an analogous property holds for points located at any
+fraction t in [0,1] of each segment, not just for midpoints (t=1/2).
+
+ The Bezier curve constructed in this manner has the following
+properties:
+ * It is entirely contained in the convex hull of the given four
+ points.
+
+ * It starts heading from the first endpoint to the first control
+ point and finishes heading from the second control point to the
+ second endpoint.
+
+
+ The user can specify explicit control points between two nodes like
+this:
+draw((0,0)..controls (0,100) and (100,100)..(100,0));
+
+ However, it is usually more convenient to just use the `..'
+operator, which tells `Asymptote' to choose its own control points
+using the algorithms described in Donald Knuth's monograph, The
+MetaFontbook, Chapter 14. The user can still customize the guide (or
+path) by specifying direction, tension, and curl values.
+
+ The higher the tension, the straighter the curve is, and the more it
+approximates a straight line. One can change the spline tension from
+its default value of 1 to any real value greater than or equal to 0.75
+(cf. John D. Hobby, Discrete and Computational Geometry 1, 1986):
+draw((100,0)..tension 2 ..(100,100)..(0,100));
+draw((100,0)..tension 2 and 1 ..(100,100)..(0,100));
+draw((100,0)..tension atleast 1 ..(100,100)..(0,100));
+
+ The curl parameter specifies the curvature at the endpoints of a path
+(0 means straight; the default value of 1 means approximately circular):
+draw((100,0){curl 0}..(100,100)..{curl 0}(0,100));
+
+ The `MetaPost ...' path connector, which requests, when possible, an
+inflection-free curve confined to a triangle defined by the endpoints
+and directions, is implemented in `Asymptote' as the convenient
+abbreviation `::' for `..tension atleast 1 ..' (the ellipsis `...' is
+used in `Asymptote' to indicate a variable number of arguments; *note
+Rest arguments::). For example, compare
+
+draw((0,0){up}..(100,25){right}..(200,0){down});
+
+
+with
+
+draw((0,0){up}::(100,25){right}::(200,0){down});
+
+
+
+The `---' connector is an abbreviation for `..tension atleast
+infinity..' and the `&' connector concatenates two paths, after first
+stripping off the last node of the first path (which normally should
+coincide with the first node of the second path).
+
+ An `Asymptote' path, being connected, is equivalent to a `Postscript
+subpath'. The `^^' binary operator, which requests that the pen be
+moved (without drawing or affecting endpoint curvatures) from the final
+point of the left-hand path to the initial point of the right-hand
+path, may be used to group several `Asymptote' paths into a `path[]'
+array (equivalent to a `PostScript' path):
+
+size(0,100);
+path unitcircle=E..N..W..S..cycle;
+path g=scale(2)*unitcircle;
+filldraw(unitcircle^^g,evenodd+yellow,black);
+
+
+
+The `PostScript' even-odd fill rule here specifies that only the region
+bounded between the two unit circles is filled (*note fillrule::). In
+this example, the same effect can be achieved by using the default zero
+winding number fill rule, if one is careful to alternate the
+orientation of the paths:
+filldraw(unitcircle^^reverse(g),yellow,black);
+
+ The `^^' operator is used by the `box(triple, triple)' function in
+`three.asy' to construct the edges of a cube `unitbox' without
+retracing steps:
+
+import three;
+dotgranularity=0; // Render dots as spheres.
+
+currentprojection=orthographic(5,4,2,center=true);
+
+size(5cm);
+size3(3cm,5cm,8cm);
+
+draw(unitbox);
+
+dot(unitbox,red);
+
+label("$O$",(0,0,0),NW);
+label("(1,0,0)",(1,0,0),S);
+label("(0,1,0)",(0,1,0),E);
+label("(0,0,1)",(0,0,1),Z);
+
+
+
+See section *note graph:: (or the online `Asymptote' gallery and
+external links posted at `http://asymptote.sourceforge.net') for
+further examples, including two and three-dimensional scientific
+graphs. Additional examples have been posted by Philippe Ivaldi at
+`http://piprim.tuxfamily.org/asymptote/'.
+
+
+File: asymptote.info, Node: Drawing commands, Next: Programming, Prev: Tutorial, Up: Top
+
+4 Drawing commands
+******************
+
+All of `Asymptote''s graphical capabilities are based on four primitive
+commands. The three `PostScript' drawing commands `draw', `fill', and
+`clip' add objects to a picture in the order in which they are
+executed, with the most recently drawn object appearing on top. The
+labeling command `label' can be used to add text labels and external
+EPS images, which will appear on top of the `PostScript' objects (since
+this is normally what one wants), but again in the relative order in
+which they were executed. After drawing objects on a picture, the
+picture can be output with the `shipout' function (*note shipout::).
+
+ If you wish to draw `PostScript' objects on top of labels (or
+verbatim `tex' commands; *note tex::), the `layer' command may be used
+to start a new `PostScript/LaTeX' layer:
+void layer(picture pic=currentpicture);
+
+ The `layer' function gives one full control over the order in which
+objects are drawn. Layers are drawn sequentially, with the most recent
+layer appearing on top. Within each layer, labels, images, and verbatim
+`tex' commands are always drawn after the `PostScript' objects in that
+layer.
+
+ While some of these drawing commands take many options, they all
+have sensible default values (for example, the picture argument
+defaults to currentpicture).
+
+* Menu:
+
+* draw:: Draw a path on a picture or frame
+* fill:: Fill a cyclic path on a picture or frame
+* clip:: Clip a picture or frame to a cyclic path
+* label:: Label a point on a picture
+
+
+File: asymptote.info, Node: draw, Next: fill, Up: Drawing commands
+
+4.1 draw
+========
+
+void draw(picture pic=currentpicture, Label L="", path g,
+ align align=NoAlign, pen p=currentpen,
+ arrowbar arrow=None, arrowbar bar=None, margin margin=NoMargin,
+ Label legend="", marker marker=nomarker);
+
+Draw the path `g' on the picture `pic' using pen `p' for drawing, with
+optional drawing attributes (Label `L', explicit label alignment
+`align', arrows and bars `arrow' and `bar', margins `margin', legend,
+and markers `marker'). Only one parameter, the path, is required. For
+convenience, the arguments `arrow' and `bar' may be specified in either
+order. The argument `legend' is a Label to use in constructing an
+optional legend entry.
+
+ Bars are useful for indicating dimensions. The possible values of
+`bar' are `None', `BeginBar', `EndBar' (or equivalently `Bar'), and
+`Bars' (which draws a bar at both ends of the path). Each of these bar
+specifiers (except for `None') will accept an optional real argument
+that denotes the length of the bar in `PostScript' coordinates. The
+default bar length is `barsize(pen)'.
+
+ The possible values of `arrow' are `None', `Blank' (which draws no
+arrows or path), `BeginArrow', `MidArrow', `EndArrow' (or equivalently
+`Arrow'), and `Arrows' (which draws an arrow at both ends of the path).
+All of the arrow specifiers except for `None' and `Blank' may be given
+the optional arguments arrowhead `arrowhead' (one of the predefined
+arrowhead styles `DefaultHead', `SimpleHead', `HookHead', `TeXHead'),
+real `size' (arrowhead size in `PostScript' coordinates), real `angle'
+(arrowhead angle in degrees), filltype `filltype' (one of `FillDraw',
+`Fill', `NoFill', `UnFill', `Draw') and (except for `MidArrow' and
+`Arrows') a relative real `position' along the path (an `arctime') where
+the tip of the arrow should be placed. The default arrowhead size when
+drawn with a pen `p' is `arrowsize(p)'. There are also arrow versions
+with slightly modified default values of `size' and `angle' suitable for
+curved arrows: `BeginArcArrow', `EndArcArrow' (or equivalently
+`ArcArrow'), `MidArcArrow', and `ArcArrows'.
+
+ Margins can be used to shrink the visible portion of a path by
+`labelmargin(p)' to avoid overlap with other drawn objects. Typical
+values of `margin' are `NoMargin', `BeginMargin', `EndMargin' (or
+equivalently `Margin'), and `Margins' (which leaves a margin at both
+ends of the path). One may use `Margin(real begin, real end)' to
+specify the size of the beginning and ending margin, respectively, in
+multiples of the units `labelmargin(p)' used for aligning labels.
+Alternatively, `BeginPenMargin', `EndPenMargin' (or equivalently
+`PenMargin'), `PenMargins', `PenMargin(real begin, real end)' specify a
+margin in units of the pen line width, taking account of the pen line
+width when drawing the path or arrow. For example, use `DotMargin', an
+abbreviation for `PenMargin(-0.5*dotfactor,0.5*dotfactor)', to draw
+from the usual beginning point just up to the boundary of an end dot of
+width `dotfactor*linewidth(p)'. The qualifiers `BeginDotMargin',
+`EndDotMargin', and `DotMargins' work similarly. The qualifier
+`TrueMargin(real begin, real end)' allows one to specify a margin
+directly in `PostScript' units, independent of the pen line width.
+
+ The use of arrows, bars, and margins is illustrated by the examples
+`Pythagoras.asy', `sqrtx01.asy', and `triads.asy'.
+
+ The legend for a picture `pic' can be fit and aligned to a frame
+with the routine:
+frame legend(picture pic=currentpicture, int perline=1,
+ real xmargin=legendmargin, real ymargin=xmargin,
+ real linelength=legendlinelength,
+ real hskip=legendhskip, real vskip=legendvskip,
+ real maxwidth=0, real maxheight=0,
+ bool hstretch=false, bool vstretch=false, pen p=currentpen);
+ Here `xmargin' and `ymargin' specify the surrounding x and y margins,
+`perline' specifies the number of entries per line (default 1; 0 means
+choose this number automatically), `linelength' specifies the length of
+the path lines, `hskip' and `vskip' specify the line skip (as a
+multiple of the legend entry size), `maxwidth' and `maxheight' specify
+optional upper limits on the width and height of the resulting legend
+(0 means unlimited), `hstretch' and `vstretch' allow the legend to
+stretch horizontally or vertically, and `p' specifies the pen used to
+draw the bounding box. The legend frame can then be added and aligned
+about a point on a picture `dest' using `add' or `attach' (*note add
+about::).
+
+ To draw a dot, simply draw a path containing a single point. The
+`dot' command defined in the module `plain' draws a dot having a
+diameter equal to an explicit pen line width or the default line width
+magnified by `dotfactor' (6 by default), using the specified filltype
+(*note filltype::):
+void dot(picture pic=currentpicture, pair z, pen p=currentpen,
+ filltype filltype=Fill);
+void dot(picture pic=currentpicture, Label L, pair z, align align=NoAlign,
+ string format=defaultformat, pen p=currentpen, filltype filltype=Fill);
+void dot(picture pic=currentpicture, Label[] L=new Label[], pair[] z,
+ align align=NoAlign, string format=defaultformat, pen p=currentpen,
+ filltype filltype=Fill)
+void dot(picture pic=currentpicture, Label L, pen p=currentpen,
+ filltype filltype=Fill);
+
+ If the variable `Label' is given as the `Label' argument to the
+second routine, the `format' argument will be used to format a string
+based on the dot location (here `defaultformat' is `"$%.4g$"'). The
+third routine draws a dot at every point of a pair array `z'. One can
+also draw a dot at every node of a path:
+void dot(picture pic=currentpicture, Label[] L=new Label[],
+ path g, align align=RightSide, string format=defaultformat,
+ pen p=currentpen, filltype filltype=Fill);
+ See *note pathmarkers:: and *note markers:: for more general methods
+for marking path nodes.
+
+ To draw a fixed-sized object (in `PostScript' coordinates) about the
+user coordinate `origin', use the routine
+void draw(pair origin, picture pic=currentpicture, Label L="", path g,
+ align align=NoAlign, pen p=currentpen, arrowbar arrow=None,
+ arrowbar bar=None, margin margin=NoMargin, Label legend="",
+ marker marker=nomarker);
+
+
+File: asymptote.info, Node: fill, Next: clip, Prev: draw, Up: Drawing commands
+
+4.2 fill
+========
+
+void fill(picture pic=currentpicture, path g, pen p=currentpen);
+
+Fill the interior region bounded by the cyclic path `g' on the picture
+`pic', using the pen `p'.
+
+ There is also a convenient `filldraw' command, which fills the path
+and then draws in the boundary. One can specify separate pens for each
+operation:
+void filldraw(picture pic=currentpicture, path g, pen fillpen=currentpen,
+ pen drawpen=currentpen);
+
+ This fixed-size version of `fill' allows one to fill an object
+described in `PostScript' coordinates about the user coordinate
+`origin':
+void fill(pair origin, picture pic=currentpicture, path g, pen p=currentpen);
+
+This is just a convenient abbreviation for the commands:
+picture opic;
+fill(opic,g,p);
+add(pic,opic,origin);
+
+ The routine
+void filloutside(picture pic=currentpicture, path g, pen p=currentpen);
+ fills the region exterior to the path `g', out to the current boundary
+of picture `pic'.
+
+ Lattice gradient shading varying smoothly over a two-dimensional
+array of pens `p', using fill rule `fillrule', can be produced with
+void latticeshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen fillrule=currentpen, pen[][] p)
+ If `stroke=true', the region filled is the same as the region that
+would be drawn by `draw(pic,g,fillrule+zerowinding)'; in this case the
+path `g' need not be cyclic. The pens in `p' must belong to the same
+color space. One can use the functions `rgb(pen)' or `cmyk(pen)' to
+promote pens to a higher color space, as illustrated in the example file
+`latticeshading.asy'.
+
+ Axial gradient shading varying smoothly from `pena' to `penb' in the
+direction of the line segment `a--b' can be achieved with
+void axialshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen pena, pair a,
+ pen penb, pair b);
+
+ Radial gradient shading varying smoothly from `pena' on the circle
+with center `a' and radius `ra' to `penb' on the circle with center `b'
+and radius `rb' is similar:
+void radialshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen pena, pair a, real ra,
+ pen penb, pair b, real rb);
+ Illustrations of radial shading are provided in the example files
+`shade.asy', `ring.asy', and `shadestroke.asy'.
+
+ Gouraud shading using fill rule `fillrule' and the vertex colors in
+the pen array `p' on a triangular lattice defined by the vertices `z'
+and edge flags `edges' is implemented with
+void gouraudshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen fillrule=currentpen, pen[] p, pair[] z,
+ int[] edges);
+void gouraudshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen fillrule=currentpen, pen[] p, int[] edges);
+ In the second form, the elements of `z' are taken to be successive
+nodes of path `g'. The pens in `p' must belong to the same color space.
+Illustrations of Gouraud shading are provided in the example file
+`Gouraud.asy' and in the solid geometry module `solids.asy'. The edge
+flags used in Gouraud shading are documented here:
+
+ `http://partners.adobe.com/public/developer/en/ps/sdk/TN5600.SmoothShading.pdf'.
+
+ Tensor product shading using fill rule `fillrule' on patches bounded
+by the n cyclic paths of length 4 in path array `b', using the vertex
+colors specified in the n \times 4 pen array `p' and internal control
+points in the n \times 4 array `z', is implemented with
+void tensorshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen fillrule=currentpen, pen[][] p, path[] b=g,
+ pair[][] z=new pair[][]);
+ If the array `z' is empty, Coons shading, in which the color control
+points are calculated automatically, is used. The pens in `p' must
+belong to the same color space. A simpler interface for the case of a
+single patch (n=1) is also available:
+void tensorshade(picture pic=currentpicture, path g, bool stroke=false,
+ pen fillrule=currentpen, pen[] p, path b=g,
+ pair[] z=new pair[]);
+ One can also smoothly shade the regions between consecutive paths of a
+sequence using a given array of pens:
+void draw(picture pic=currentpicture, path[] g, pen[] p);
+ Illustrations of tensor product and Coons shading are provided in the
+example files `tensor.asy', `Coons.asy', `BezierSurface.asy', and
+`rainbow.asy'.
+
+ More general shading possibilities are available with the `pdflatex',
+`context', and `pdftex' TeX engines: the routine
+void functionshade(picture pic=currentpicture, path[] g, bool stroke=false,
+ pen fillrule=currentpen, string shader);
+ shades on picture `pic' the interior of path `g' according to fill
+rule `fillrule' using the `PostScript' calculator routine specified by
+the string `shader'; this routine takes 2 arguments, each in [0,1], and
+returns `colors(fillrule).length' color components. Function shading
+is illustrated in the example `functionshading.asy'.
+
+ The following routine uses `evenodd' clipping together with the `^^'
+operator to unfill a region:
+
+void unfill(picture pic=currentpicture, path g);
+
+
+File: asymptote.info, Node: clip, Next: label, Prev: fill, Up: Drawing commands
+
+4.3 clip
+========
+
+void clip(picture pic=currentpicture, path g, stroke=false,
+ pen fillrule=currentpen);
+
+Clip the current contents of picture `pic' to the region bounded by the
+path `g', using fill rule `fillrule' (*note fillrule::). If
+`stroke=true', the clipped portion is the same as the region that would
+be drawn with `draw(pic,g,fillrule+zerowinding)'; in this case the path
+`g' need not be cyclic. For an illustration of picture clipping, see
+the first example in *note LaTeX usage::.
+
+
+File: asymptote.info, Node: label, Prev: clip, Up: Drawing commands
+
+4.4 label
+=========
+
+void label(picture pic=currentpicture, Label L, pair position,
+ align align=NoAlign, pen p=nullpen, filltype filltype=NoFill)
+
+Draw Label `L' on picture `pic' using pen `p'. If `align' is `NoAlign',
+the label will be centered at user coordinate `position'; otherwise it
+will be aligned in the direction of `align' and displaced from
+`position' by the `PostScript' offset `align*labelmargin(p)'. The
+constant `Align' can be used to align the bottom-left corner of the
+label at `position'. If `p' is `nullpen', the pen specified within the
+Label, which defaults to `currentpen', will be used. The Label `L' can
+either be a string or the structure obtained by calling one of the
+functions
+Label Label(string s="", pair position, align align=NoAlign,
+ pen p=nullpen, embed embed=Rotate, filltype filltype=NoFill);
+Label Label(string s="", align align=NoAlign,
+ pen p=nullpen, embed embed=Rotate, filltype filltype=NoFill);
+Label Label(Label L, pair position, align align=NoAlign,
+ pen p=nullpen, embed embed=L.embed, filltype filltype=NoFill);
+Label Label(Label L, align align=NoAlign,
+ pen p=nullpen, embed embed=L.embed, filltype filltype=NoFill);
+ The text of a Label can be scaled, slanted, rotated, or shifted by
+multiplying it on the left by an affine transform (*note Transforms::).
+For example, `rotate(45)*xscale(2)*L' first scales `L' in the x
+direction and then rotates it counterclockwise by 45 degrees. The final
+position of a Label can also be shifted by a `PostScript' coordinate
+translation: `shift(10,0)*L'. The `embed' argument determines how the
+Label should transform with the embedding picture:
+`Shift'
+ only shift with embedding picture;
+
+`Rotate'
+ only shift and rotate with embedding picture (default);
+
+`Rotate(pair z)'
+ rotate with (picture-transformed) vector `z'.
+
+`Slant'
+ only shift, rotate, slant, and reflect with embedding picture;
+
+`Scale'
+ shift, rotate, slant, reflect, and scale with embedding picture.
+
+
+ To add a label to a path, use
+void label(picture pic=currentpicture, Label L, path g, align align=NoAlign,
+ pen p=nullpen, filltype filltype=NoFill);
+ By default the label will be positioned at the midpoint of the path.
+An alternative label location (an `arctime' value between 0 and
+`length(g)' *note arctime::) may be specified as real value for
+`position' in constructing the Label. The position `Relative(real)'
+specifies a location relative to the total arclength of the path. These
+convenient abbreviations are predefined:
+position BeginPoint=Relative(0);
+position MidPoint=Relative(0.5);
+position EndPoint=Relative(1);
+
+ Path labels are aligned in the direction `align', which may be
+specified as an absolute compass direction (pair) or a direction
+`Relative(pair)' measured relative to a north axis in the local
+direction of the path. For convenience `LeftSide', `Center', and
+`RightSide' are defined as `Relative(W)', `Relative((0,0))', and
+`Relative(E)', respectively. Multiplying `LeftSide', `Center',
+`RightSide' on the left by a real scaling factor will move the label
+further away from or closer to the path.
+
+ A label with a fixed-size arrow of length `arrowlength' pointing to
+`b' from direction `dir' can be produced with the routine
+void arrow(picture pic=currentpicture, Label L="", pair b, pair dir,
+ real length=arrowlength, align align=NoAlign,
+ pen p=currentpen, arrowbar arrow=Arrow, margin margin=EndMargin);
+ If no alignment is specified (either in the Label or as an explicit
+argument), the optional Label will be aligned in the direction `dir',
+using margin `margin'.
+
+ The function `string graphic(string name, string options="")'
+returns a string that can be used to include an encapsulated
+`PostScript' (EPS) file. Here, `name' is the name of the file to
+include and `options' is a string containing a comma-separated list of
+optional bounding box (`bb=llx lly urx ury'), width (`width=value'),
+height (`height=value'), rotation (`angle=value'), scaling
+(`scale=factor'), clipping (`clip=bool'), and draft mode (`draft=bool')
+parameters. The `layer()' function can be used to force future objects
+to be drawn on top of the included image:
+label(graphic("file.eps","width=1cm"),(0,0),NE);
+layer();
+
+ The `string baseline(string s, string template="\strut")' function
+can be used to enlarge the bounding box of labels to match a given
+template, so that their baselines will be typeset on a horizontal line.
+See `Pythagoras.asy' for an example.
+
+ One can prevent labels from overwriting one another with the
+`overwrite' pen attribute (*note overwrite::).
+
+ The structure `object' defined in `plain_Label.asy' allows Labels
+and frames to be treated in a uniform manner. A group of objects may
+be packed together into single frame with the routine
+frame pack(pair align=2S ... object inset[]);
+ To draw or fill a box (or ellipse or other path) around a Label and
+return the bounding object, use one of the routines
+object draw(picture pic=currentpicture, Label L, envelope e,
+ real xmargin=0, real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill, bool above=true);
+object draw(picture pic=currentpicture, Label L, envelope e, pair position,
+ real xmargin=0, real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill, bool above=true);
+ Here `envelope' is a boundary-drawing routine such as `box',
+`roundbox', or `ellipse' defined in `plain_boxes.asy' (*note
+envelope::).
+
+ The function `path[] texpath(Label L)' returns the path array that
+TeX would fill to draw the Label `L'.
+
+ The `string minipage(string s, width=100pt)' function can be used to
+format string `s' into a paragraph of width `width'. This example uses
+`minipage', `clip', and `graphic' to produce a CD label:
+
+
+size(11.7cm,11.7cm);
+asy(nativeformat(),"logo");
+fill(unitcircle^^(scale(2/11.7)*unitcircle),
+ evenodd+rgb(124/255,205/255,124/255));
+label(scale(1.1)*minipage(
+"\centering\scriptsize \textbf{\LARGE {\tt Asymptote}\\
+\smallskip
+\small The Vector Graphics Language}\\
+\smallskip
+\textsc{Andy Hammerlindl, John Bowman, and Tom Prince}
+http://asymptote.sourceforge.net\\
+",8cm),(0,0.6));
+label(graphic("logo."+nativeformat(),"height=7cm"),(0,-0.22));
+clip(unitcircle^^(scale(2/11.7)*unitcircle),evenodd);
+
+
+File: asymptote.info, Node: Programming, Next: LaTeX usage, Prev: Drawing commands, Up: Top
+
+5 Programming
+*************
+
+Here is a short introductory example to the `Asymptote' programming
+language that highlights the similarity of its control structures with
+those of C, C++, and Java:
+// This is a comment.
+
+// Declaration: Declare x to be a real variable;
+real x;
+
+// Assignment: Assign the real variable x the value 1.
+x=1.0;
+
+// Conditional: Test if x equals 1 or not.
+if(x == 1.0) {
+ write("x equals 1.0");
+} else {
+ write("x is not equal to 1.0");
+}
+
+// Loop: iterate 10 times
+for(int i=0; i < 10; ++i) {
+ write(i);
+}
+
+ `Asymptote' supports `while', `do', `break', and `continue'
+statements just as in C/C++. It also supports the Java-style shorthand
+for iterating over all elements of an array:
+
+// Iterate over an array
+int[] array={1,1,2,3,5};
+for(int k : array) {
+ write(k);
+}
+ In addition, it supports many features beyond the ones found in those
+languages.
+
+* Menu:
+
+* Data types:: void, bool, int, real, pair, triple, string
+* Paths and guides::
+* Pens:: Colors, line types, line widths, font sizes
+* Transforms:: Affine transforms
+* Frames and pictures:: Canvases for immediate and deferred drawing
+* Files:: Reading and writing your data
+* Variable initializers:: Initialize your variables
+* Structures:: Organize your data
+* Operators:: Arithmetic and logical operators
+* Implicit scaling:: Avoiding those ugly *s
+* Functions:: Traditional and high-order functions
+* Arrays:: Dynamic vectors
+* Casts:: Implicit and explicit casts
+* Import:: Importing external `Asymptote' packages
+* Static:: Where to allocate your variable?
+
+
+File: asymptote.info, Node: Data types, Next: Paths and guides, Up: Programming
+
+5.1 Data types
+==============
+
+`Asymptote' supports the following data types (in addition to
+user-defined types):
+
+`void'
+ The void type is used only by functions that take or return no
+ arguments.
+
+`bool'
+ a boolean type that can only take on the values `true' or `false'.
+ For example: bool b=true;
+
+ defines a boolean variable `b' and initializes it to the value
+ `true'. If no initializer is given: bool b;
+
+ the value `false' is assumed.
+
+`bool3'
+ an extended boolean type that can take on the values `true',
+ `default', or `false'. A bool3 type can be cast to or from a bool.
+ The default initializer for bool3 is `default'.
+
+`int'
+ an integer type; if no initializer is given, the implicit value `0'
+ is assumed. The minimum allowed value of an integer is `intMin'
+ and the maximum value is `intMax'.
+
+`real'
+ a real number; this should be set to the highest-precision native
+ floating-point type on the architecture. The implicit initializer
+ for reals is `0.0'. Real numbers have precision `realEpsilon',
+ with `realDigits' significant digits. The smallest positive real
+ number is `realMin' and the largest positive real number is
+ `realMax'.
+
+`pair'
+ complex number, that is, an ordered pair of real components
+ `(x,y)'. The real and imaginary parts of a pair `z' can read as
+ `z.x' and `z.y'. We say that `x' and `y' are virtual members of
+ the data element pair; they cannot be directly modified, however.
+ The implicit initializer for pairs is `(0.0,0.0)'.
+
+ There are a number of ways to take the complex conjugate of a pair:
+ pair z=(3,4);
+ z=(z.x,-z.y);
+ z=z.x-I*z.y;
+ z=conj(z);
+
+ Here `I' is the pair `(0,1)'. A number of built-in functions are
+ defined for pairs:
+
+ `pair conj(pair z)'
+ returns the conjugate of `z';
+
+ `real length(pair z)'
+ returns the complex modulus `|z|' of its argument `z'. For
+ example,
+ pair z=(3,4);
+ length(z);
+ returns the result 5. A synonym for `length(pair)' is
+ `abs(pair)';
+
+ `real angle(pair z, bool warn=true)'
+ returns the angle of `z' in radians in the interval
+ [-`pi',`pi'] or `0' if `warn' is `false' and `z=(0,0)'
+ (rather than producing an error);
+
+ `real degrees(pair z, bool warn=true)'
+ returns the angle of `z' in degrees in the interval [0,360)
+ or `0' if `warn' is `false' and `z=(0,0)' (rather than
+ producing an error);
+
+ `pair unit(pair z)'
+ returns a unit vector in the direction of the pair `z';
+
+ `pair expi(real angle)'
+ returns a unit vector in the direction `angle' measured in
+ radians;
+
+ `pair dir(real degrees)'
+ returns a unit vector in the direction `degrees' measured in
+ degrees;
+
+ `real xpart(pair z)'
+ returns `z.x';
+
+ `real ypart(pair z)'
+ returns `z.y';
+
+ `pair realmult(pair z, pair w)'
+ returns the element-by-element product `(z.x*w.x,z.y*w.y)';
+
+ `real dot(pair z, pair w)'
+ returns the dot product `z.x*w.x+z.y*w.y';
+
+ `pair minbound(pair z, pair w)'
+ returns `(min(z.x,w.x),min(z.y,w.y))';
+
+ `pair maxbound(pair z, pair w)'
+ returns `(max(z.x,w.x),max(z.y,w.y))'.
+
+
+`triple'
+ an ordered triple of real components `(x,y,z)' used for
+ three-dimensional drawings. The respective components of a triple
+ `v' can read as `v.x', `v.y', and `v.z'. The implicit initializer
+ for triples is `(0.0,0.0,0.0)'.
+
+ Here are the built-in functions for triples:
+ `real length(triple v)'
+ returns the length `|v|' of the vector `v'. A synonym for
+ `length(triple)' is `abs(triple)';
+
+ `real polar(triple v, bool warn=true)'
+ returns the colatitude of `v' measured from the z axis in
+ radians or `0' if `warn' is `false' and `v=O' (rather than
+ producing an error);
+
+ `real azimuth(triple v, bool warn=true)'
+ returns the longitude of `v' measured from the x axis in
+ radians or `0' if `warn' is `false' and `v.x=v.y=0' (rather
+ than producing an error);
+
+ `real colatitude(triple v, bool warn=true)'
+ returns the colatitude of `v' measured from the z axis in
+ degrees or `0' if `warn' is `false' and `v=O' (rather than
+ producing an error);
+
+ `real latitude(triple v, bool warn=true)'
+ returns the latitude of `v' measured from the xy plane in
+ degrees or `0' if `warn' is `false' and `v=O' (rather than
+ producing an error);
+
+ `real longitude(triple v, bool warn=true)'
+ returns the longitude of `v' measured from the x axis in
+ degrees or `0' if `warn' is `false' and `v.x=v.y=0' (rather
+ than producing an error);
+
+ `triple unit(triple v)'
+ returns a unit triple in the direction of the triple `v';
+
+ `triple expi(real polar, real azimuth)'
+ returns a unit triple in the direction `(polar,azimuth)'
+ measured in radians;
+
+ `triple dir(real colatitude, real longitude)'
+ returns a unit triple in the direction
+ `(colatitude,longitude)' measured in degrees;
+
+ `real xpart(triple v)'
+ returns `v.x';
+
+ `real ypart(triple v)'
+ returns `v.y';
+
+ `real zpart(triple v)'
+ returns `v.z';
+
+ `real dot(triple u, triple v)'
+ returns the dot product `u.x*v.x+u.y*v.y+u.z*v.z';
+
+ `triple cross(triple u, triple v)'
+ returns the cross product
+
+ `(u.y*v.z-u.z*v.y,u.z*v.x-u.x*v.z,u.x*v.y-v.x*u.y)';
+
+ `triple minbound(triple u, triple v)'
+ returns `(min(u.x,v.x),min(u.y,v.y),min(u.z,v.z))';
+
+ `triple maxbound(triple u, triple v)'
+ returns `(max(u.x,v.x),max(u.y,v.y),max(u.z,v.z)').
+
+
+`string'
+ a character string, implemented using the STL `string' class.
+
+ Strings delimited by double quotes (`"') are subject to the
+ following mappings to allow the use of double quotes in TeX (e.g.
+ for using the `babel' package, *note babel::):
+
+ * \" maps to "
+
+ * \\ maps to \\
+
+ Strings delimited by single quotes (`'') have the same mappings as
+ character strings in ANSI `C':
+
+ * \' maps to '
+
+ * \" maps to "
+
+ * \? maps to ?
+
+ * \\ maps to backslash
+
+ * \a maps to alert
+
+ * \b maps to backspace
+
+ * \f maps to form feed
+
+ * \n maps to newline
+
+ * \r maps to carriage return
+
+ * \t maps to tab
+
+ * \v maps to vertical tab
+
+ * \0-\377 map to corresponding octal byte
+
+ * \x0-\xFF map to corresponding hexadecimal byte
+
+ The implicit initializer for strings is the empty string `""'.
+ Strings may be concatenated with the `+' operator. In the following
+ string functions, position `0' denotes the start of the string:
+ `int length(string s)'
+ returns the length of the string `s';
+
+ `int find(string s, string t, int pos=0)'
+ returns the position of the first occurrence of string `t' in
+ string `s' at or after position `pos', or -1 if `t' is not a
+ substring of `s';
+
+ `int rfind(string s, string t, int pos=-1)'
+ returns the position of the last occurrence of string `t' in
+ string `s' at or before position `pos' (if `pos'=-1, at the
+ end of the string `s'), or -1 if `t' is not a substring of
+ `s';
+
+ `string insert(string s, int pos, string t)'
+ returns the string formed by inserting string `t' at position
+ `pos' in `s';
+
+ `string erase(string s, int pos, int n)'
+ returns the string formed by erasing the string of length `n'
+ (if `n'=-1, to the end of the string `s') at position `pos'
+ in `s';
+
+ `string substr(string s, int pos, int n=-1)'
+ returns the substring of `s' starting at position `pos' and
+ of length `n' (if `n'=-1, until the end of the string `s');
+
+ `string reverse(string s)'
+ returns the string formed by reversing string `s';
+
+ `string replace(string s, string before, string after)'
+ returns a string with all occurrences of the string `before'
+ in the string `s' changed to the string `after';
+
+ `string replace(string s, string[][] table)'
+ returns a string constructed by translating in string `s' all
+ occurrences of the string `before' in an array `table' of
+ string pairs {`before',`after'} to the corresponding string
+ `after';
+
+ `string[] split(string s, string delimiter)'
+ returns an array of strings obtained by splitting `s' into
+ substrings delimited by `delimiter';
+
+ `string format(string s, int n)'
+ returns a string containing `n' formatted according to the
+ C-style format string `s' using the current locale;
+
+ `string format(string s, real x, string locale="")'
+ returns a string containing `x' formatted according to the
+ C-style format string `s' using locale `locale' (or the
+ current locale if an empty string is specified), following
+ the behaviour of the C function `fprintf'), except that only
+ one data field is allowed, trailing zeros are removed by
+ default (unless `#' is specified), and TeX is used to typeset
+ scientific notation;
+
+ `int hex(string s);'
+ casts a hexidecimal string `s' to an integer.
+
+ `string string(real x, int digits=realDigits)'
+ casts `x' to a string using precision `digits' and the C
+ locale;
+
+ `string locale(string s="")'
+ sets the locale to the given string, if nonempty, and returns
+ the current locale.
+
+ `string time(string format="%a %b %d %T %Z %Y")'
+ returns the current time formatted by the ANSI C routine
+ `strftime' according to the string `format' using the current
+ locale. Thus time();
+ time("%a %b %d %H:%M:%S %Z %Y");
+
+ are equivalent ways of returning the current time in the
+ default format used by the `UNIX' `date' command;
+
+ `int seconds(string t="", string format="")'
+ returns the time measured in seconds after the Epoch (Thu Jan
+ 01 00:00:00 UTC 1970) as determined by the ANSI C routine
+ `strptime' according to the string `format' using the current
+ locale, or the current time if `t' is the empty string. Note
+ that the `"%Z"' extension to the POSIX `strptime'
+ specification is ignored by the current GNU C Library. If an
+ error occurs, the value -1 is returned. Here are some
+ examples: seconds("Mar 02 11:12:36 AM PST 2007","%b %d %r PST %Y");
+ seconds(time("%b %d %r %z %Y"),"%b %d %r %z %Y");
+ seconds(time("%b %d %r %Z %Y"),"%b %d %r "+time("%Z")+" %Y");
+ 1+(seconds()-seconds("Jan 1","%b %d"))/(24*60*60);
+ The last example returns today's ordinal date, measured from
+ the beginning of the year.
+
+ `string time(int seconds, string format="%a %b %d %T %Z %Y")'
+ returns the time corresponding to `seconds' seconds after the
+ Epoch (Thu Jan 01 00:00:00 UTC 1970) formatted by the ANSI C
+ routine `strftime' according to the string `format' using the
+ current locale. For example, to return the date corresponding
+ to 24 hours ago: time(seconds()-24*60*60);
+
+ `void abort(string s)'
+ aborts execution (with a non-zero return code in batch mode);
+ if string `s' is nonempty, a diagnostic message constructed
+ from the source file, line number, and `s' is printed;
+
+ `void exit()'
+ exits with a zero error return code in batch mode;
+
+ `void sleep(int seconds)'
+ pauses for the given number of seconds;
+
+ `void usleep(int microseconds)'
+ pauses for the given number of microseconds;
+
+ `void beep()'
+ produces a beep on the console;
+
+
+
+ As in C/C++, complicated types may be abbreviated with `typedef'
+(see the example in *note Functions::).
+
+
+File: asymptote.info, Node: Paths and guides, Next: Pens, Prev: Data types, Up: Programming
+
+5.2 Paths and guides
+====================
+
+`path'
+ a cubic spline resolved into a fixed path. The implicit
+ initializer for paths is `nullpath'.
+
+ For example, the routine `circle(pair c, real r)', which returns a
+ Bezier curve approximating a circle of radius `r' centered on `c',
+ is based on `unitcircle' (*note unitcircle::): path circle(pair c, real r)
+ {
+ return shift(c)*scale(r)*unitcircle;
+ }
+ If high accuracy is needed, a true circle may be produced with the
+ routine `Circle' defined in the module `graph.asy': import graph;
+ path Circle(pair c, real r, int n=nCircle);
+
+ A circular arc consistent with `circle' centered on `c' with
+ radius `r' from `angle1' to `angle2' degrees, drawing
+ counterclockwise if `angle2 >= angle1', can be constructed with path arc(pair c, real r, real angle1, real angle2);
+ One may also specify the direction explicitly: path arc(pair c, real r, real angle1, real angle2, bool direction);
+ Here the direction can be specified as CCW (counter-clockwise) or
+ CW (clockwise). For convenience, an arc centered at `c' from pair
+ `z1' to `z2' (assuming `|z2-c|=|z1-c|') in the may also be
+ constructed with path arc(pair c, explicit pair z1, explicit pair z2,
+ bool direction=CCW)
+
+ If high accuracy is needed, true arcs may be produced with routines
+ in the module `graph.asy' that produce Bezier curves with `n'
+ control points: import graph;
+ path Arc(pair c, real r, real angle1, real angle2, bool direction,
+ int n=nCircle);
+ path Arc(pair c, real r, real angle1, real angle2, int n=nCircle);
+ path Arc(pair c, explicit pair z1, explicit pair z2,
+ bool direction=CCW, int n=nCircle);
+
+ An ellipse can be drawn with the routine @cindex @code{ellipse}
+ path ellipse(pair c, real a, real b)
+ {
+ return shift(c)*scale(a,b)*unitcircle;
+ }
+
+ This example illustrates the use of all five guide connectors
+ discussed in *note Tutorial::: size(300,0);
+ pair[] z=new pair[10];
+
+ z[0]=(0,100); z[1]=(50,0); z[2]=(180,0);
+
+ for(int n=3; n <= 9; ++n)
+ z[n]=z[n-3]+(200,0);
+
+ path p=z[0]..z[1]---z[2]::{up}z[3]
+ &z[3]..z[4]--z[5]::{up}z[6]
+ &z[6]::z[7]---z[8]..{up}z[9];
+
+ draw(p,grey+linewidth(4mm));
+
+ dot(z);
+
+
+
+ Here are some useful functions for paths:
+
+ `int length(path p);'
+ This is the number of (linear or cubic) segments in path `p'.
+ If `p' is cyclic, this is the same as the number of nodes in
+ `p'.
+
+ `int size(path p);'
+ This is the number of nodes in the path `p'. If `p' is
+ cyclic, this is the same as `length(p)'.
+
+ `bool cyclic(path p);'
+ returns `true' iff path `p' is cyclic.
+
+ `bool straight(path p, int i);'
+ returns `true' iff the segment of path `p' between node `i'
+ and node `i+1' is straight.
+
+ `bool piecewisestraight(path p)'
+ returns `true' iff the path `p' is piecewise straight.
+
+ `pair point(path p, int t);'
+ If `p' is cyclic, return the coordinates of node `t' mod
+ `length(p)'. Otherwise, return the coordinates of node `t',
+ unless `t' < 0 (in which case `point(0)' is returned) or `t'
+ > `length(p)' (in which case `point(length(p))' is returned).
+
+ `pair point(path p, real t);'
+ This returns the coordinates of the point between node
+ `floor(t)' and `floor(t)+1' corresponding to the cubic spline
+ parameter `t-floor(t)' (*note Bezier::). If `t' lies outside
+ the range [0,`length(p)'], it is first reduced modulo
+ `length(p)' in the case where `p' is cyclic or else converted
+ to the corresponding endpoint of `p'.
+
+ `pair dir(path p, int t, int sign=0, bool normalize=true);'
+ If `sign < 0', return the direction (as a pair) of the
+ incoming tangent to path `p' at node `t'; if `sign > 0',
+ return the direction of the outgoing tangent. If `sign=0',
+ the mean of these two directions is returned.
+
+ `pair dir(path p, real t, bool normalize=true);'
+ returns the direction of the tangent to path `p' at the point
+ between node `floor(t)' and `floor(t)+1' corresponding to the
+ cubic spline parameter `t-floor(t)' (*note Bezier::).
+
+ `pair accel(path p, int t, int sign=0);'
+ If `sign < 0', return the acceleration of the incoming path
+ `p' at node `t'; if `sign > 0', return the acceleration of
+ the outgoing path. If `sign=0', the mean of these two
+ accelerations is returned.
+
+ `pair accel(path p, real t);'
+ returns the acceleration of the path `p' at the point `t'.
+
+ `pair radius(path p, real t);'
+ returns the radius of curvature of the path `p' at the point
+ `t'.
+
+ `pair precontrol(path p, int t);'
+ returns the precontrol point of `p' at node `t'.
+
+ `pair precontrol(path p, real t);'
+ returns the effective precontrol point of `p' at parameter
+ `t'.
+
+ `pair postcontrol(path p, int t);'
+ returns the postcontrol point of `p' at node `t'.
+
+ `pair postcontrol(path p, real t);'
+ returns the effective postcontrol point of `p' at parameter
+ `t'.
+
+ `real arclength(path p);'
+ returns the length (in user coordinates) of the piecewise
+ linear or cubic curve that path `p' represents.
+
+ `real arctime(path p, real L);'
+ returns the path "time", a real number between 0 and the
+ length of the path in the sense of `point(path p, real t)',
+ at which the cumulative arclength (measured from the
+ beginning of the path) equals `L'.
+
+ `real dirtime(path p, pair z);'
+ returns the first "time", a real number between 0 and the
+ length of the path in the sense of `point(path, real)', at
+ which the tangent to the path has the direction of pair `z',
+ or -1 if this never happens.
+
+ `real reltime(path p, real l);'
+ returns the time on path `p' at the relative fraction `l' of
+ its arclength.
+
+ `pair relpoint(path p, real l);'
+ returns the point on path `p' at the relative fraction `l' of
+ its arclength.
+
+ `pair midpoint(path p);'
+ returns the point on path `p' at half of its arclength.
+
+ `path reverse(path p);'
+ returns a path running backwards along `p'.
+
+ `path subpath(path p, int a, int b);'
+ returns the subpath of `p' running from node `a' to node `b'.
+ If `a' < `b', the direction of the subpath is reversed.
+
+ `path subpath(path p, real a, real b);'
+ returns the subpath of `p' running from path time `a' to path
+ time `b', in the sense of `point(path, real)'. If `a' < `b',
+ the direction of the subpath is reversed.
+
+ `real[] intersect(path p, path q, real fuzz=-1);'
+ If `p' and `q' have at least one intersection point, return a
+ real array of length 2 containing the times representing the
+ respective path times along `p' and `q', in the sense of
+ `point(path, real)', for one such intersection point (as
+ chosen by the algorithm described on page 137 of `The
+ MetaFontbook'). The computations are performed to the
+ absolute error specified by `fuzz', or if `fuzz < 0', to
+ machine precision. If the paths do not intersect, return a
+ real array of length 0.
+
+ `real[][] intersections(path p, path q, real fuzz=-1);'
+ Return all (unless there are infinitely many) intersection
+ times of paths `p' and `q' as a sorted array of real arrays
+ of length 2 (*note sort::). The computations are performed to
+ the absolute error specified by `fuzz', or if `fuzz < 0', to
+ machine precision.
+
+ `real[] intersections(path p, explicit pair a, explicit pair b,'
+ real fuzz=-1); Return all (unless there are infinitely many)
+ intersection times of path `p' with the (infinite) line
+ through points `a' and `b' as a sorted array. The
+ intersections returned are guaranteed to be correct to within
+ the absolute error specified by `fuzz', or if `fuzz < 0', to
+ machine precision.
+
+ `real[] times(path p, real x)'
+ returns all intersection times of path `p' with the vertical
+ line through `(x,0)'.
+
+ `real[] times(path p, explicit pair z)'
+ returns all intersection times of path `p' with the
+ horizontal line through `(0,z.y)'.
+
+ `real[] mintimes(path p)'
+ returns an array of length 2 containing times at which path
+ `p' reaches its minimal horizontal and vertical extents,
+ respectively.
+
+ `real[] maxtimes(path p)'
+ returns an array of length 2 containing the times at which
+ path `p' reaches its maximal horizontal and vertical extents,
+ respectively.
+
+ `pair intersectionpoint(path p, path q, real fuzz=-1);'
+ returns the intersection point
+ `point(p,intersect(p,q,fuzz)[0])'.
+
+ `pair[] intersectionpoints(path p, path q, real fuzz=-1);'
+ returns an array containing all intersection points of the
+ paths `p' and `q'.
+
+ `pair extension(pair P, pair Q, pair p, pair q);'
+ returns the intersection point of the extensions of the line
+ segments `P--Q' and `p--q', or if the lines are parallel,
+ `(infinity,infinity)'.
+
+ `slice cut(path p, path knife, int n);'
+ returns the portions of path `p' before and after the `n'th
+ intersection of `p' with path `knife' as a structure `slice'
+ (if no intersection exist is found, the entire path is
+ considered to be `before' the intersection): struct slice {
+ path before,after;
+ }
+ The argument `n' is treated as modulo the number of
+ intersections.
+
+ `slice firstcut(path p, path knife);'
+ equivalent to `cut(p,knife,0);' Note that `firstcut.after'
+ plays the role of the `MetaPost cutbefore' command.
+
+ `slice lastcut(path p, path knife);'
+ equivalent to `cut(p,knife,-1);' Note that `lastcut.before'
+ plays the role of the `MetaPost cutafter' command.
+
+ `path buildcycle(... path[] p);'
+ This returns the path surrounding a region bounded by a list
+ of two or more consecutively intersecting paths, following
+ the behaviour of the `MetaPost buildcycle' command.
+
+ `pair min(path p);'
+ returns the pair (left,bottom) for the path bounding box of
+ path `p'.
+
+ `pair max(path p);'
+ returns the pair (right,top) for the path bounding box of
+ path `p'.
+
+ `int windingnumber(path p, pair z);'
+ returns the winding number of the cyclic path `p' relative to
+ the point `z'. The winding number is positive if the path
+ encircles `z' in the counterclockwise direction. If `z' lies
+ on `p' the constant `undefined' (defined to be the largest
+ odd integer) is returned.
+
+ `bool interior(int windingnumber, pen fillrule)'
+ returns true if `windingnumber' corresponds to an interior
+ point according to `fillrule'.
+
+ `bool inside(path p, pair z, pen fillrule=currentpen);'
+ returns `true' iff the point `z' lies inside or on the edge of
+ the region bounded by the cyclic path `p' according to the
+ fill rule `fillrule' (*note fillrule::).
+
+ `int inside(path p, path q, pen fillrule=currentpen);'
+ returns `1' if the cyclic path `p' strictly contains `q'
+ according to the fill rule `fillrule' (*note fillrule::), `-1'
+ if the cyclic path `q' strictly contains `p', and `0'
+ otherwise.
+
+ `pair inside(path p, pen fillrule=currentpen);'
+ returns an arbitrary point strictly inside a cyclic path `p'
+ according to the fill rule `fillrule' (*note fillrule::).
+
+ `path[] strokepath(path g, pen p=currentpen);'
+ returns the path array that `PostScript' would fill in
+ drawing path `g' with pen `p'.
+
+
+`guide'
+ an unresolved cubic spline (list of cubic-spline nodes and control
+ points). The implicit initializer for a guide is `nullpath'; this
+ is useful for building up a guide within a loop.
+
+ A guide is similar to a path except that the computation of the
+ cubic spline is deferred until drawing time (when it is resolved
+ into a path); this allows two guides with free endpoint conditions
+ to be joined together smoothly. The solid curve in the following
+ example is built up incrementally as a guide, but only resolved at
+ drawing time; the dashed curve is incrementally resolved at each
+ iteration, before the entire set of nodes (shown in red) is known:
+
+ size(200);
+
+ real mexican(real x) {return (1-8x^2)*exp(-(4x^2));}
+
+ int n=30;
+ real a=1.5;
+ real width=2a/n;
+
+ guide hat;
+ path solved;
+
+ for(int i=0; i < n; ++i) {
+ real t=-a+i*width;
+ pair z=(t,mexican(t));
+ hat=hat..z;
+ solved=solved..z;
+ }
+
+ draw(hat);
+ dot(hat,red);
+ draw(solved,dashed);
+
+
+
+ We point out an efficiency distinction in the use of guides and
+ paths: guide g;
+ for(int i=0; i < 10; ++i)
+ g=g--(i,i);
+ path p=g;
+
+ runs in linear time, whereas path p;
+ for(int i=0; i < 10; ++i)
+ p=p--(i,i);
+
+ runs in quadratic time, as the entire path up to that point is
+ copied at each step of the iteration.
+
+ The following routines can be used to examine the individual
+ elements of a guide without actually resolving the guide to a
+ fixed path (except for internal cycles, which are resolved):
+
+ `int size(guide g);'
+ Analogous to `size(path p)'.
+
+ `int length(guide g);'
+ Analogous to `length(path p)'.
+
+ `bool cyclic(path p);'
+ Analogous to `cyclic(path p)'.
+
+ `pair point(guide g, int t);'
+ Analogous to `point(path p, int t)'.
+
+ `guide reverse(guide g);'
+ Analogous to `reverse(path p)'. If `g' is cyclic and also
+ contains a secondary cycle, it is first solved to a path,
+ then reversed. If `g' is not cyclic but contains an internal
+ cycle, only the internal cycle is solved before reversal. If
+ there are no internal cycles, the guide is reversed but not
+ solved to a path.
+
+ `pair[] dirSpecifier(guide g, int i);'
+ This returns a pair array of length 2 containing the outgoing
+ (in element 0) and incoming (in element 1) direction
+ specifiers (or `(0,0)' if none specified) for the segment of
+ guide `g' between nodes `i' and `i+1'.
+
+ `pair[] controlSpecifier(guide g, int i);'
+ If the segment of guide `g' between nodes `i' and `i+1' has
+ explicit outgoing and incoming control points, they are
+ returned as elements 0 and 1, respectively, of a two-element
+ array. Otherwise, an empty array is returned.
+
+ `tensionSpecifier tensionSpecifier(guide g, int i);'
+ This returns the tension specifier for the segment of guide
+ `g' between nodes `i' and `i+1'. The individual components of
+ the `tensionSpecifier' type can be accessed as the virtual
+ members `in', `out', and `atLeast'.
+
+ `real[] curlSpecifier(guide g);'
+ This returns an array containing the initial curl specifier
+ (in element 0) and final curl specifier (in element 1) for
+ guide `g'.
+
+
+ As a technical detail we note that a direction specifier given to
+ `nullpath' modifies the node on the other side: the guides a..{up}nullpath..b;
+ c..nullpath{up}..d;
+ e..{up}nullpath{down}..f;
+ are respectively equivalent to a..nullpath..{up}b;
+ c{up}..nullpath..d;
+ e{down}..nullpath..{up}f;
+
+
+
+File: asymptote.info, Node: Pens, Next: Transforms, Prev: Paths and guides, Up: Programming
+
+5.3 Pens
+========
+
+In `Asymptote', pens provide a context for the four basic drawing
+commands (*note Drawing commands::). They are used to specify the
+following drawing attributes: color, line type, line width, line cap,
+line join, fill rule, text alignment, font, font size, pattern,
+overwrite mode, and calligraphic transforms on the pen nib. The default
+pen used by the drawing routines is called `currentpen'. This provides
+the same functionality as the `MetaPost' command `pickup'. The
+implicit initializer for pens is `defaultpen'.
+
+ Pens may be added together with the nonassociative binary operator
+`+'. This will add the colors of the two pens. All other non-default
+attributes of the rightmost pen will override those of the leftmost
+pen. Thus, one can obtain a yellow dashed pen by saying
+`dashed+red+green' or `red+green+dashed' or `red+dashed+green'. The
+binary operator `*' can be used to scale the color of a pen by a real
+number, until it saturates with one or more color components equal to 1.
+
+ * Colors are specified using one of the following colorspaces:
+ `pen gray(real g);'
+ This produces a grayscale color, where the intensity `g' lies
+ in the interval [0,1], with 0.0 denoting black and 1.0
+ denoting white.
+
+ `pen rgb(real r, real g, real b);'
+ This produces an RGB color, where each of the red, green, and
+ blue intensities `r', `g', `b', lies in the interval [0,1].
+
+ `pen cmyk(real c, real m, real y, real k);'
+ This produces a CMYK color, where each of the cyan, magenta,
+ yellow, and black intensities `c', `m', `y', `k', lies in the
+ interval [0,1].
+
+ `pen invisible;'
+ This special pen writes in invisible ink, but adjusts the
+ bounding box as if something had been drawn (like the
+ `\phantom' command in TeX). The function `bool
+ invisible(pen)' can be used to test whether a pen is
+ invisible.
+
+
+ The default color is `black'; this may be changed with the routine
+ `defaultpen(pen)'. The function `colorspace(pen p)' returns the
+ colorspace of pen `p' as a string (`"gray"', `"rgb"', `"cmyk"', or
+ `""').
+
+ The function `real[] colors(pen)' returns the color components of
+ a pen. The functions `pen gray(pen)', `pen rgb(pen)', and `pen
+ cmyk(pen)' return new pens obtained by converting their arguments
+ to the respective color spaces. The function
+ `colorless(pen=currentpen)' returns a copy of its argument with
+ the color attributes stripped (to avoid color mixing).
+
+ A 6-character RGB hexidecimal string can be converted to a pen with
+ the routine pen rgb(string s);
+
+ Various shades and mixtures of the grayscale primary colors
+ `black' and `white', RGB primary colors `red', `green', and
+ `blue', and RGB secondary colors `cyan', `magenta', and `yellow'
+ are defined as named colors, along with the CMYK primary colors
+ `Cyan', `Magenta', `Yellow', and `Black', in the module `plain':
+
+
+
+ The standard 140 RGB `X11' colors can be imported with the command import x11colors;
+ and the standard 68 CMYK TeX colors can be imported with the
+ command import texcolors;
+ Note that there is some overlap between these two standards and
+ the definitions of some colors (e.g. `Green') actually disagree.
+
+ `Asymptote' also comes with a `asycolors.sty' `LaTeX' package that
+ defines to `LaTeX' CMYK versions of `Asymptote''s predefined
+ colors, so that they can be used directly within `LaTeX' strings.
+ Normally, such colors are passed to `LaTeX' via a pen argument;
+ however, to change the color of only a portion of a string, say
+ for a slide presentation, (*note slide::) it may be desirable to
+ specify the color directly to `LaTeX'. This file can be passed to
+ `LaTeX' with the `Asymptote' command usepackage("asycolors");
+
+ The structure `hsv' defined in `plain_pens.asy' may be used to
+ convert between HSV and RGB spaces, where the hue `h' is an angle
+ in [0,360) and the saturation `s' and value `v' lie in `[0,1]': pen p=hsv(180,0.5,0.75);
+ write(p); // ([default], red=0.375, green=0.75, blue=0.75)
+ hsv q=p;
+ write(q.h,q.s,q.v); // 180 0.5 0.75
+
+ * Line types are specified with the function `pen linetype(string s,
+ real offset=0, bool scale=true, bool adjust=true)', where `s' is a
+ string of integer or real numbers separated by spaces. The
+ optional parameter `offset' specifies where in the pattern to
+ begin. The first number specifies how far (if `scale' is `true',
+ in units of the pen line width; otherwise in `PostScript' units)
+ to draw with the pen on, the second number specifies how far to
+ draw with the pen off, and so on. If `adjust' is `true', these
+ spacings are automatically adjusted by `Asymptote' to fit the
+ arclength of the path. Here are the predefined line types: pen solid=linetype("");
+ pen dotted=linetype("0 4");
+ pen dashed=linetype("8 8");
+ pen longdashed=linetype("24 8");
+ pen dashdotted=linetype("8 8 0 8");
+ pen longdashdotted=linetype("24 8 0 8");
+ pen Dotted=dotted+1.0;
+ pen Dotted(pen p=currentpen) {return dotted+2*linewidth(p);}
+
+
+
+ The default line type is `solid'; this may be changed with
+ `defaultpen(pen)'. The line type of a pen is returned by `int
+ linetype(pen p=currentpen)'.
+
+ * The pen line width is specified in `PostScript' units with `pen
+ linewidth(real)'. The default line width is 0.5 bp; this value may
+ be changed with `defaultpen(pen)'. The line width of a pen is
+ returned by `real linewidth(pen p=currentpen)'. For convenience,
+ in the module `plain' we define static void defaultpen(real w) {defaultpen(linewidth(w));}
+ static pen operator +(pen p, real w) {return p+linewidth(w);}
+ static pen operator +(real w, pen p) {return linewidth(w)+p;}
+ so that one may set the line width like this: defaultpen(2);
+ pen p=red+0.5;
+
+ * A pen with a specific `PostScript' line cap is returned on calling
+ `linecap' with an integer argument: pen squarecap=linecap(0);
+ pen roundcap=linecap(1);
+ pen extendcap=linecap(2);
+
+ The default line cap, `roundcap', may be changed with
+ `defaultpen(pen)'. The line cap of a pen is returned by `int
+ linecap(pen p=currentpen)'.
+
+ * A pen with a specific `PostScript' join style is returned on
+ calling `linejoin' with an integer argument: pen miterjoin=linejoin(0);
+ pen roundjoin=linejoin(1);
+ pen beveljoin=linejoin(2);
+
+ The default join style, `roundjoin', may be changed with
+ `defaultpen(pen)'.The join style of a pen is returned by `int
+ linejoin(pen p=currentpen)'.
+
+ * A pen with a specific `PostScript' miter limit is returned by
+ calling `miterlimit(real)'. The default miterlimit, `10.0', may
+ be changed with `defaultpen(pen)'. The miter limit of a pen is
+ returned by `real miterlimit(pen p=currentpen)'.
+
+ * A pen with a specific `PostScript' fill rule is returned on
+ calling `fillrule' with an integer argument: pen zerowinding=fillrule(0);
+ pen evenodd=fillrule(1);
+
+ The fill rule, which identifies the algorithm used to determine the
+ insideness of a path or array of paths, only affects the `clip',
+ `fill', and `inside' functions. For the `zerowinding' fill rule, a
+ point `z' is outside the region bounded by a path if the number of
+ upward intersections of the path with the horizontal line
+ `z--z+infinity' minus the number of downward intersections is
+ zero. For the `evenodd' fill rule, `z' is considered to be outside
+ the region if the total number of such intersections is even. The
+ default fill rule, `zerowinding', may be changed with
+ `defaultpen(pen)'. The fill rule of a pen is returned by `int
+ fillrule(pen p=currentpen)'.
+
+ * A pen with a specific text alignment setting is returned on
+ calling `basealign' with an integer argument: pen nobasealign=basealign(0);
+ pen basealign=basealign(1);
+
+ The default setting, `nobasealign',which may be changed with
+ `defaultpen(pen)', causes the label alignment routines to use the
+ full label bounding box for alignment. In contrast, `basealign'
+ requests that the TeX baseline be respected. The base align
+ setting of a pen is returned by `int basealigin(pen p=currentpen)'.
+
+ * The font size is specified in TeX points (1 pt = 1/72.27 inches)
+ with the function `pen fontsize(real size, real
+ lineskip=1.2*size)'. The default font size, 12pt, may be changed
+ with `defaultpen(pen)'. Nonstandard font sizes may require
+ inserting import fontsize;
+ at the beginning of the file (this requires the `fix-cm' package
+ available from
+
+ `http://www.ctan.org/tex-archive/help/Catalogue/entries/fix-cm'
+ and included in recent `LaTeX' distributions). The font size and
+ line skip of a pen can be examined with the routines `real
+ fontsize(pen p=currentpen)' and `real lineskip(pen p=currentpen)',
+ respectively.
+
+ * A pen using a specific `LaTeX' `NFSS' font is returned by calling
+ the function `pen font(string encoding, string family, string
+ series, string shape)'. The default setting,
+ `font("OT1","cmr","m","n")', corresponds to 12pt Computer Modern
+ Roman; this may be changed with `defaultpen(pen)'. The font
+ setting of a pen is returned by `string font(pen p=currentpen)'.
+ Support for standardized international characters is provided by
+ the `unicode' package (*note unicode::).
+
+ Alternatively, one may select a fixed-size TeX font (on which
+ `fontsize' has no effect) like `"cmr12"' (12pt Computer Modern
+ Roman) or `"pcrr"' (Courier) using the function `pen font(string
+ name)'. An optional size argument can also be given to scale the
+ font to the requested size: `pen font(string name, real size)'.
+
+ A nonstandard font command can be generated with `pen
+ fontcommand(string)'.
+
+ A convenient interface to the following standard `PostScript'
+ fonts is also provided: pen AvantGarde(string series="m", string shape="n");
+ pen Bookman(string series="m", string shape="n");
+ pen Courier(string series="m", string shape="n");
+ pen Helvetica(string series="m", string shape="n");
+ pen NewCenturySchoolBook(string series="m", string shape="n");
+ pen Palatino(string series="m", string shape="n");
+ pen TimesRoman(string series="m", string shape="n");
+ pen ZapfChancery(string series="m", string shape="n");
+ pen Symbol(string series="m", string shape="n");
+ pen ZapfDingbats(string series="m", string shape="n");
+
+ * The transparency of a pen can be changed with the command: pen opacity(real opacity=1, string blend="Compatible");
+ The opacity can be varied from `0' (fully transparent) to the
+ default value of `1' (opaque), and `blend' specifies one of the
+ following foreground-background blending operations: "Compatible","Normal","Multiply","Screen","Overlay","SoftLight",
+ "HardLight","ColorDodge","ColorBurn","Darken","Lighten","Difference",
+ "Exclusion","Hue","Saturation","Color","Luminosity",
+ as described in
+
+ `http://partners.adobe.com/public/developer/en/pdf/PDFReference16.pdf'.
+ Since `PostScript' does not support transparency, this feature is
+ only effective with the `-f pdf' output format option; other
+ formats can be produced from the resulting PDF file with the
+ `ImageMagick' `convert' program. Labels are always drawn with an
+ `opacity' of 1. A simple example of transparent filling is
+ provided in the example file `transparency.asy'.
+
+ * `PostScript' commands within a `picture' may be used to create a
+ tiling pattern, identified by the string `name', for `fill' and
+ `draw' operations by adding it to the global `PostScript' frame
+ `currentpatterns', with optional left-bottom margin `lb' and
+ right-top margin `rt'. import patterns;
+ void add(string name, picture pic, pair lb=0, pair rt=0);
+
+ To `fill' or `draw' using pattern `name', use the pen
+ `pattern("name")'. For example, rectangular tilings can be
+ constructed using the routines `picture tile(real Hx=5mm, real
+ Hy=0, pen p=currentpen, filltype filltype=NoFill)', `picture
+ checker(real Hx=5mm, real Hy=0, pen p=currentpen)', and `picture
+ brick(real Hx=5mm, real Hy=0, pen p=currentpen)' defined in
+ `patterns.asy': size(0,90);
+ import patterns;
+
+ add("tile",tile());
+ add("filledtilewithmargin",tile(6mm,4mm,red,Fill),(1mm,1mm),(1mm,1mm));
+ add("checker",checker());
+ add("brick",brick());
+
+ real s=2.5;
+ filldraw(unitcircle,pattern("tile"));
+ filldraw(shift(s,0)*unitcircle,pattern("filledtilewithmargin"));
+ filldraw(shift(2s,0)*unitcircle,pattern("checker"));
+ filldraw(shift(3s,0)*unitcircle,pattern("brick"));
+
+
+
+ Hatch patterns can be generated with the routines `picture
+ hatch(real H=5mm, pair dir=NE, pen p=currentpen)', `picture
+ crosshatch(real H=5mm, pen p=currentpen)': size(0,100);
+ import patterns;
+
+ add("hatch",hatch());
+ add("hatchback",hatch(NW));
+ add("crosshatch",crosshatch(3mm));
+
+ real s=1.25;
+ filldraw(unitsquare,pattern("hatch"));
+ filldraw(shift(s,0)*unitsquare,pattern("hatchback"));
+ filldraw(shift(2s,0)*unitsquare,pattern("crosshatch"));
+
+
+
+ You may need to turn off aliasing in your `PostScript' viewer for
+ patterns to appear correctly. Custom patterns can easily be
+ constructed, following the examples in `patterns.asy'. The tiled
+ pattern can even incorporate shading (*note gradient shading::),
+ as illustrated in this example (not included in the manual because
+ not all printers support `PostScript' 3): size(0,100);
+ import patterns;
+
+ real d=4mm;
+ picture tiling;
+ path square=scale(d)*unitsquare;
+ axialshade(tiling,square,white,(0,0),black,(d,d));
+ fill(tiling,shift(d,d)*square,blue);
+ add("shadedtiling",tiling);
+
+ filldraw(unitcircle,pattern("shadedtiling"));
+
+
+
+ * One can specify a custom pen nib as an arbitrary polygonal path
+ with `pen makepen(path)'; this path represents the mark to be
+ drawn for paths containing a single point. This pen nib path can be
+ recovered from a pen with `path nib(pen)'. Unlike in `MetaPost',
+ the path need not be convex:
+
+ size(200);
+ pen convex=makepen(scale(10)*polygon(8))+grey;
+ draw((1,0.4),convex);
+ draw((0,0)---(1,1)..(2,0)--cycle,convex);
+
+ pen nonconvex=scale(10)*
+ makepen((0,0)--(0.25,-1)--(0.5,0.25)--(1,0)--(0.5,1.25)--cycle)+red;
+ draw((0.5,-1.5),nonconvex);
+ draw((0,-1.5)..(1,-0.5)..(2,-1.5),nonconvex);
+
+
+
+ The value `nullpath' represents a circular pen nib (the default);
+ an elliptical pen can be achieved simply by multiplying the pen by
+ a transform: `yscale(2)*currentpen'.
+
+ * One can prevent labels from overwriting one another by using the
+ pen attribute `overwrite', which takes a single argument:
+
+ `Allow'
+ Allow labels to overwrite one another. This is the default
+ behaviour (unless overridden with `defaultpen(pen)'.
+
+ `Suppress'
+ Suppress, with a warning, each label that would overwrite
+ another label.
+
+ `SuppressQuiet'
+ Suppress, without warning, each label that would overwrite
+ another label.
+
+ `Move'
+ Move a label that would overwrite another out of the way and
+ issue a warning. As this adjustment is during the final
+ output phase (in `PostScript' coordinates) it could result in
+ a larger figure than requested.
+
+ `MoveQuiet'
+ Move a label that would overwrite another out of the way,
+ without warning. As this adjustment is during the final
+ output phase (in `PostScript' coordinates) it could result in
+ a larger figure than requested.
+
+
+
+ The routine `defaultpen()' returns the current default pen
+attributes. Calling the routine `resetdefaultpen()' resets all pen
+default attributes to their initial values.
+
+
+File: asymptote.info, Node: Transforms, Next: Frames and pictures, Prev: Pens, Up: Programming
+
+5.4 Transforms
+==============
+
+`Asymptote' makes extensive use of affine transforms. A pair `(x,y)' is
+transformed by the transform `t=(t.x,t.y,t.xx,t.xy,t.yx,t.yy)' to
+`(x',y')', where
+x' = t.x + t.xx * x + t.xy * y
+y' = t.y + t.yx * x + t.yy * y
+ This is equivalent to the `PostScript' transformation `[t.xx t.yx t.xy
+t.yy t.x t.y]'.
+
+ Transforms can be applied to pairs, guides, paths, pens, strings,
+transforms, frames, and pictures by multiplication (via the binary
+operator `*') on the left (*note circle:: for an example). Transforms
+can be composed with one another and inverted with the function
+`transform inverse(transform t)'; they can also be raised to any
+integer power with the `^' operator.
+
+ The built-in transforms are:
+
+`transform identity();'
+ the identity transform;
+
+`transform shift(pair z);'
+ translates by the pair `z';
+
+`transform shift(real x, real y);'
+ translates by the pair `(x,y)';
+
+`transform xscale(real x);'
+ scales by `x' in the x direction;
+
+`transform yscale(real y);'
+ scales by `y' in the y direction;
+
+`transform scale(real s);'
+ scale by `s' in both x and y directions;
+
+`transform scale(real x, real y);'
+ scale by `x' in the x direction and by `y' in the y direction;
+
+`transform slant(real s);'
+ maps `(x,y)' -> `(x+s*y,y)';
+
+`transform rotate(real angle, pair z=(0,0));'
+ rotates by `angle' in degrees about `z';
+
+`transform reflect(pair a, pair b);'
+ reflects about the line `a--b'.
+
+ The implicit initializer for transforms is `identity()'. The
+routines `shift(transform t)' and `shiftless(transform t)' return the
+transforms `(t.x,t.y,0,0,0,0)' and `(0,0,t.xx,t.xy,t.yx,t.yy)'
+respectively.
+
+
+File: asymptote.info, Node: Frames and pictures, Next: Files, Prev: Transforms, Up: Programming
+
+5.5 Frames and pictures
+=======================
+
+`frame'
+ Frames are canvases for drawing in `PostScript' coordinates. While
+ working with frames directly is occasionally necessary for
+ constructing deferred drawing routines, pictures are usually more
+ convenient to work with. The implicit initializer for frames is
+ `newframe'. The function `bool empty(frame f)' returns `true' only
+ if the frame `f' is empty. A frame may be erased with the
+ `erase(frame)' routine. The functions `pair min(frame)' and `pair
+ max(frame)' return the (left,bottom) and (right,top) coordinates
+ of the frame bounding box, respectively. The contents of frame
+ `src' may be appended to frame `dest' with the command void add(frame dest, frame src);
+ or prepended with void prepend(frame dest, frame src);
+ A frame obtained by aligning frame `f' in the direction `align',
+ in a manner analogous to the `align' argument of `label' (*note
+ label::), is returned by frame align(frame f, pair align);
+
+ To draw or fill a box or ellipse around a label or frame and
+ return the boundary as a path, use one of the predefined
+ `envelope' routines path box(frame f, Label L="", real xmargin=0,
+ real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill, bool above=true);
+ path roundbox(frame f, Label L="", real xmargin=0,
+ real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill, bool above=true);
+ path ellipse(frame f, Label L="", real xmargin=0,
+ real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill, bool above=true);
+
+`picture'
+ Pictures are high-level structures (*note Structures::) defined in
+ the module `plain' that provide canvases for drawing in user
+ coordinates. The default picture is called `currentpicture'. A
+ new picture can be created like this: picture pic;
+ Anonymous pictures can be made by the expression `new picture'.
+
+ The `size' routine specifies the dimensions of the desired picture:
+
+ void size(picture pic=currentpicture, real x, real y=x,
+ bool keepAspect=Aspect);
+
+ If the `x' and `y' sizes are both 0, user coordinates will be
+ interpreted as `PostScript' coordinates. In this case, the
+ transform mapping `pic' to the final output frame is `identity()'.
+
+ If exactly one of `x' or `y' is 0, no size restriction is imposed
+ in that direction; it will be scaled the same as the other
+ direction.
+
+ If `keepAspect' is set to `Aspect' or `true', the picture will be
+ scaled with its aspect ratio preserved such that the final width
+ is no more than `x' and the final height is no more than `y'.
+
+ If `keepAspect' is set to `IgnoreAspect' or `false', the picture
+ will be scaled in both directions so that the final width is `x'
+ and the height is `y'.
+
+ To make the user coordinates of picture `pic' represent multiples
+ of `x' units in the x direction and `y' units in the y direction,
+ use void unitsize(picture pic=currentpicture, real x, real y=x);
+ When nonzero, these `x' and `y' values override the corresponding
+ size parameters of picture `pic'.
+
+ The routine void size(picture pic=currentpicture, real xsize, real ysize,
+ pair min, pair max);
+ forces the final picture scaling to map the user coordinates
+ `box(min,max)' to a region of width `xsize' and height `ysize'
+ (when these parameters are nonzero).
+
+ Alternatively, calling the routine transform fixedscaling(picture pic=currentpicture, pair min,
+ pair max, pen p=nullpen, bool warn=false);
+ will cause picture `pic' to use a fixed scaling to map user
+ coordinates in `box(min,max)' to the (already specified) picture
+ size, taking account of the width of pen `p'. A warning will be
+ issued if the final picture exceeds the specified size.
+
+ A picture `pic' can be fit to a frame and output to a file
+ `prefix'.`format' using image format `format' by calling the
+ `shipout' function: void shipout(string prefix=defaultfilename, picture pic=currentpicture,
+ orientation orientation=orientation,
+ string format="", bool wait=false, bool view=true,
+ string options="", string script="",
+ projection P=currentprojection);
+ The default output format, `PostScript', may be changed with the
+ `-f' or `-tex' command-line options. The `options', `script', and
+ `projection' parameters are only relevant for 3D pictures.
+
+ A `shipout()' command is added implicitly at file exit if no
+ previous `shipout' commands have been executed. The default page
+ orientation is `Portrait'; this may be modified by changing the
+ variable `orientation'. To output in landscape mode, simply set
+ the variable `orientation=Landscape' or issue the command shipout(Landscape);
+
+ To rotate the page by -90 degrees, use the orientation `Seascape'. The
+ orientation `UpsideDown' rotates the page by 180 degrees.
+
+ A picture `pic' can be explicitly fit to a frame by calling frame pic.fit(real xsize=pic.xsize, real ysize=pic.ysize,
+ bool keepAspect=pic.keepAspect);
+ The default size and aspect ratio settings are those given to the
+ `size' command (which default to `0', `0', and `true',
+ respectively). The transformation that would currently be used to
+ fit a picture `pic' to a frame is returned by the member function
+ `pic.calculateTransform()'.
+
+ In certain cases (e.g. 2D graphs) where only an approximate size
+ estimate for `pic' is available, the picture fitting routine frame pic.scale(real xsize=this.xsize, real ysize=this.ysize,
+ bool keepAspect=this.keepAspect);
+ (which scales the resulting frame, including labels and fixed-size
+ objects) will enforce perfect compliance with the requested size
+ specification, but should not normally be required.
+
+ To draw a bounding box with margins around a picture, fit the
+ picture to a frame using the function frame bbox(picture pic=currentpicture, real xmargin=0,
+ real ymargin=xmargin, pen p=currentpen,
+ filltype filltype=NoFill);
+ Here `filltype' specifies one of the following fill types:
+ `FillDraw'
+ Fill the interior and draw the boundary.
+
+ `FillDraw(real xmargin=0, real ymargin=xmargin, pen fillpen=nullpen,'
+ `pen drawpen=nullpen);' If `fillpen' is `nullpen', fill with
+ the drawing pen; otherwise fill with pen `fillpen'. If
+ `drawpen' is `nullpen', draw the boundary with `fillpen';
+ otherwise with `drawpen'. An optional margin of `xmargin' and
+ `ymargin' can be specified.
+
+ `Fill'
+ Fill the interior.
+
+ `Fill(real xmargin=0, real ymargin=xmargin, pen p=nullpen)'
+ If `p' is `nullpen', fill with the drawing pen; otherwise
+ fill with pen `p'. An optional margin of `xmargin' and
+ `ymargin' can be specified.
+
+ `NoFill'
+ Do not fill.
+
+ `Draw'
+ Draw only the boundary.
+
+ `Draw(real xmargin=0, real ymargin=xmargin, pen p=nullpen)'
+ If `p' is `nullpen', draw the boundary with the drawing pen;
+ otherwise draw with pen `p'. An optional margin of `xmargin'
+ and `ymargin' can be specified.
+
+ `UnFill'
+ Clip the region.
+
+ `UnFill(real xmargin=0, real ymargin=xmargin)'
+ Clip the region and surrounding margins `xmargin' and
+ `ymargin'.
+
+ `RadialShade(pen penc, pen penr)'
+ Fill varying radially from `penc' at the center of the
+ bounding box to `penr' at the edge.
+
+
+ For example, to draw a bounding box around a picture with a 0.25 cm
+ margin and output the resulting frame, use the command: shipout(bbox(0.25cm));
+ A `picture' may be fit to a frame with the background color of
+ pen `p' with the function `bbox(p,Fill)'.
+
+ The functions pair min(picture pic, user=false);
+ pair max(picture pic, user=false);
+ pair size(picture pic, user=false);
+ calculate the `PostScript' bounds that picture `pic' would have
+ if it were currently fit to a frame using its default size
+ specification. If `user' is `false' the returned value is in
+ `PostScript' coordinates, otherwise it is in user coordinates.
+
+ The function pair point(picture pic=currentpicture, pair dir, bool user=true);
+ is a convenient way of determining the point on the bounding box
+ of `pic' in the direction `dir' relative to its center, ignoring
+ the contributions from fixed-size objects (such as labels and
+ arrowheads). If `user' is `true' the returned value is in user
+ coordinates, otherwise it is in `PostScript' coordinates.
+
+ The function pair truepoint(picture pic=currentpicture, pair dir, bool user=true);
+ is identical to `point', except that it also accounts for
+ fixed-size objects, using the scaling transform that picture `pic'
+ would have if currently fit to a frame using its default size
+ specification. If `user' is `true' the returned value is in user
+ coordinates, otherwise it is in `PostScript' coordinates.
+
+ Sometimes it is useful to draw objects on separate pictures and
+ add one picture to another using the `add' function: void add(picture src, bool group=true,
+ filltype filltype=NoFill, bool above=true);
+ void add(picture dest, picture src, bool group=true,
+ filltype filltype=NoFill, bool above=true);
+ The first example adds `src' to `currentpicture'; the second one
+ adds `src' to `dest'. The `group' option specifies whether or not
+ the graphical user interface `xasy' should treat all of the
+ elements of `src' as a single entity (*note GUI::), `filltype'
+ requests optional background filling or clipping, and `above'
+ specifies whether to add `src' above or below existing objects.
+
+ There are also routines to add a picture or frame `src' specified
+ in postscript coordinates to another picture `dest' (or
+ `currentpicture') about the user coordinate `position': void add(picture src, pair position, bool group=true,
+ filltype filltype=NoFill, bool above=true);
+ void add(picture dest, picture src, pair position,
+ bool group=true, filltype filltype=NoFill, bool above=true);
+ void add(picture dest=currentpicture, frame src, pair position=0,
+ bool group=true, filltype filltype=NoFill, bool above=true);
+ void add(picture dest=currentpicture, frame src, pair position,
+ pair align, bool group=true, filltype filltype=NoFill,
+ bool above=true);
+
+ The optional `align' argument in the last three forms specifies a
+ direction to use for aligning the frame, in a manner analogous to
+ the `align' argument of `label' (*note label::). However, one key
+ difference is that when `align' is not specified, labels are
+ centered, whereas frames and pictures are aligned so that their
+ origin is at `position'. Illustrations of frame alignment can be
+ found in the examples *note errorbars:: and *note image::. If you
+ want to align three or more subpictures, group them two at a time:
+
+ picture pic1;
+ real size=50;
+ size(pic1,size);
+ fill(pic1,(0,0)--(50,100)--(100,0)--cycle,red);
+
+ picture pic2;
+ size(pic2,size);
+ fill(pic2,unitcircle,green);
+
+ picture pic3;
+ size(pic3,size);
+ fill(pic3,unitsquare,blue);
+
+ picture pic;
+ add(pic,pic1.fit(),(0,0),N);
+ add(pic,pic2.fit(),(0,0),10S);
+
+ add(pic.fit(),(0,0),N);
+ add(pic3.fit(),(0,0),10S);
+
+
+
+ Alternatively, one can use `attach' to automatically increase the
+ size of picture `dest' to accommodate adding a frame `src' about
+ the user coordinate `position': void attach(picture dest=currentpicture, frame src,
+ pair position=0, bool group=true,
+ filltype filltype=NoFill, bool above=true);
+ void attach(picture dest=currentpicture, frame src,
+ pair position, pair align, bool group=true,
+ filltype filltype=NoFill, bool above=true);
+
+ To erase the contents of a picture (but not the size
+ specification), use the function void erase(picture pic=currentpicture);
+
+ To save a snapshot of `currentpicture', `currentpen', and
+ `currentprojection', use the function `save()'.
+
+ To restore a snapshot of `currentpicture', `currentpen', and
+ `currentprojection', use the function `restore()'.
+
+ Many further examples of picture and frame operations are provided
+ in the base module `plain'.
+
+ It is possible to insert verbatim `PostScript' commands in a
+ picture with one of the routines void postscript(picture pic=currentpicture, string s);
+ void postscript(picture pic=currentpicture, string s, pair min,
+ pair max)
+ Here `min' and `max' can be used to specify explicit bounds
+ associated with the resulting `PostScript' code.
+
+ Verbatim TeX commands can be inserted in the intermediate `LaTeX'
+ output file with one of the functions void tex(picture pic=currentpicture, string s);
+ void tex(picture pic=currentpicture, string s, pair min, pair max)
+ Here `min' and `max' can be used to specify explicit bounds
+ associated with the resulting TeX code.
+
+ To issue a global TeX command (such as a TeX macro definition) in
+ the TeX preamble (valid for the remainder of the top-level module)
+ use: void texpreamble(string s);
+
+ The TeX environment can be reset to its initial state, clearing all
+ macro definitions, with the function void texreset();
+
+ The routine void usepackage(string s, string options="");
+ provides a convenient abbreviation for texpreamble("\usepackage["+options+"]{"+s+"}");
+ that can be used for importing `LaTeX' packages.
+
+
+
+File: asymptote.info, Node: Files, Next: Variable initializers, Prev: Frames and pictures, Up: Programming
+
+5.6 Files
+=========
+
+`Asymptote' can read and write text files (including comma-separated
+value) files and portable XDR (External Data Representation) binary
+files.
+
+ An input file must first be opened with `input(string name, bool
+check=true, string comment="#")'; reading is then done by assignment:
+file fin=input("test.txt");
+real a=fin;
+
+ If the optional boolean argument `check' is `false', no check will
+be made that the file exists. If the file does not exist or is not
+readable, the function `bool error(file)' will return `true'. The
+first character of the string `comment' specifies a comment character.
+If this character is encountered in a data file, the remainder of the
+line is ignored. When reading strings, a comment character followed
+immediately by another comment character is treated as a single literal
+comment character.
+
+ If the `-globalwrite' (or `-nosafe') option is enabled, one can
+change the current working directory to the contents of the string `s'
+with the function `string cd(string s)', which returns the new working
+directory. If `string s' is empty, the path is reset to the value it
+had at program startup.
+
+ When reading pairs, the enclosing parenthesis are optional. Strings
+are also read by assignment, by reading characters up to but not
+including a newline. In addition, `Asymptote' provides the function
+`string getc(file)' to read the next character (treating the comment
+character as an ordinary character) and return it as a string.
+
+ A file named `name' can be open for output with
+file output(string name, bool update=false);
+ If `update=false', any existing data in the file will be erased and
+only write operations can be used on the file. If `update=true', any
+existing data will be preserved, the position will be set to the
+end-of-file, and both reading and writing operations will be enabled.
+For security reasons, writing to files in directories other than the
+current directory is allowed only if the `-globalwrite' (or `-nosafe')
+command-line option is specified.
+
+ There are two special files: `stdin', which reads from the keyboard,
+and `stdout', which writes to the terminal. The implicit initializer
+for files is `null'.
+
+ Data of a built-in type `T' can be written to an output file by
+calling one of the functions
+write(string s="", T x, suffix suffix=endl ... T[]);
+write(file file, string s="", T x, suffix suffix=none ... T[]);
+write(file file=stdout, string s="", explicit T[] x ... T[][]);
+write(file file=stdout, T[][]);
+write(file file=stdout, T[][][]);
+write(suffix suffix=endl);
+write(file file, suffix suffix=none);
+ If `file' is not specified, `stdout' is used and terminated by default
+with a newline. If specified, the optional identifying string `s' is
+written before the data `x'. An arbitrary number of data values may be
+listed when writing scalars or one-dimensional arrays. The `suffix' may
+be one of the following: `none' (do nothing), `flush' (output buffered
+data), `endl' (terminate with a newline and flush), `newl' (terminate
+with a newline), `tab' (terminate with a tab), or `comma' (terminate
+with a comma). Here are some simple examples of data output:
+file fout=output("test.txt");
+write(fout,1); // Writes "1"
+write(fout); // Writes a new line
+write(fout,"List: ",1,2,3); // Writes "List: 1 2 3"
+ A file may also be opened with `xinput' or `xoutput', instead of
+`input' or `output', to read or write double precision (64-bit) real
+values and single precision (32-bit) integer values in Sun
+Microsystem's XDR (External Data Representation) portable binary format
+(available on all `UNIX' platforms). A file may also be opened with
+`binput' or `boutput' to read or write double precision values in the
+native (nonportable) machine binary format. The function `file
+single(file,0.0)' may be used to set a file to read single precision
+real XDR or binary values; calling `file single(file,0.0,false)' sets
+it back to read doubles again. The functions `file single(file,0)' and
+`file single(file,0,false)' can be used to change the default integer
+precision (single). The functions `file single(file)' and `file
+single(file,false)' may be used to set the precision for both real and
+integer values.
+
+ One can test a file for end-of-file with the boolean function
+`eof(file)', end-of-line with `eol(file)', and for I/O errors with
+`error(file)'. One can flush the output buffers with `flush(file)',
+clear a previous I/O error with `clear(file)', and close the file with
+`close(file)'. The function `int precision(file file=stdout, int
+digits=0)' sets the number of digits of output precision for `file' to
+`digits', provided `digits' is nonzero, and returns the previous
+precision setting. The function `int tell(file)' returns the current
+position in a file relative to the beginning. The routine `seek(file
+file, int pos)' can be used to change this position, where a negative
+value for the position `pos' is interpreted as relative to the
+end-of-file. For example, one can rewind a file `file' with the command
+`seek(file,0)' and position to the final character in the file with
+`seek(file,-1)'. The command `seekeof(file)' sets the position to the
+end of the file.
+
+ Assigning `settings.scroll=n' for a positive integer `n' requests a
+pause after every `n' output lines to `stdout'. One may then press
+`Enter' to continue to the next `n' output lines, `s' followed by
+`Enter' to scroll without further interruption, or `q' followed by
+`Enter' to quit the current output operation. If `n' is negative, the
+output scrolls a page at a time (i.e. by one less than the current
+number of display lines). The default value, `settings.scroll=0',
+specifies continuous scrolling.
+
+ The routines
+string getstring(string name="", string default="", string prompt="",
+ bool store=true);
+int getint(string name="", int default=0, string prompt="",
+ bool store=true);
+real getreal(string name="", real default=0, string prompt="",
+ bool store=true);
+pair getpair(string name="", pair default=0, string prompt="",
+ bool store=true);
+triple gettriple(string name="", triple default=(0,0,0), string prompt="",
+ bool store=true);
+ defined in the module `plain' may be used to prompt for a value from
+`stdin' using the GNU `readline' library. If `store=true', the history
+of values for `name' is stored in the file `".asy_history_"+name'
+(*note history::). The most recent value in the history will be used to
+provide a default value for subsequent runs. The default value
+(initially `default') is displayed after `prompt'. These functions are
+based on the internal routines
+string readline(string prompt="", string name="", bool tabcompletion=false);
+void saveline(string name, string value, bool store=true);
+ Here, `readline' prompts the user with the default value formatted
+according to `prompt', while `saveline' is used to save the string
+`value' in a local history named `name', optionally storing the local
+history in a file `".asy_history_"+name'.
+
+ The routine `history(string name, int n=1)' can be used to look up
+the `n' most recent values (or all values up to `historylines' if
+`n=0') entered for string `name'. The routine `history(int n=0)'
+returns the interactive history. For example,
+write(output("transcript.asy"),history());
+ outputs the interactive history to the file `transcript.asy'.
+
+ The function `int delete(string s)' deletes the file named by the
+string `s'. Unless the `-globalwrite' (or `-nosafe') option is enabled,
+the file must reside in the current directory. The function `int
+rename(string from, string to)' may be used to rename file `from' to
+file `to'. Unless the `-globalwrite' (or `-nosafe') option is enabled,
+this operation is restricted to the current directory. The functions
+int convert(string args="", string file="", string format="");
+int animate(string args="", string file="", string format="");
+ call the `ImageMagick' commands `convert' and `animate', respectively,
+with the arguments `args' and the file name constructed from the
+strings `file' and `format'. If the setting `safe' is false, then the
+function `int system(string s)' can be used to call the arbitrary system
+command `s'.
+
+
+File: asymptote.info, Node: Variable initializers, Next: Structures, Prev: Files, Up: Programming
+
+5.7 Variable initializers
+=========================
+
+A variable can be assigned a value when it is declared, as in `int
+x=3;' where the variable `x' is assigned the value `3'. As well as
+literal constants such as `3', arbitary expressions can be used as
+initializers, as in `real x=2*sin(pi/2);'.
+
+ A variable is not added to the namespace until after the initializer
+is evaluated, so for example, in
+
+int x=2;
+int x=5*x;
+ the `x' in the initializer on the second line refers to the variable
+`x' declared on the first line. The second line, then, declares a
+variable `x' shadowing the original `x' and initializes it to the value
+`10'.
+
+ Variables of most types can be declared without an explicit
+initializer and they will be initialized by the default initializer of
+that type:
+
+ * Variables of the numeric types `int', `real', and `pair' are all
+ initialized to zero; variables of type `triple' are initialized to
+ `O=(0,0,0)'.
+
+ * `boolean' variables are initialized to `false'.
+
+ * `string' variables are initialized to the empty string.
+
+ * `transform' variables are initialized to the identity
+ transformation.
+
+ * `path' and `guide' variables are initialized to `nullpath'.
+
+ * `pen' variables are initialized to the default pen.
+
+ * `frame' and `picture' variables are initialized to empty frames
+ and pictures, respectively.
+
+ * `file' variables are initialized to `null'.
+
+ The default initializers for user-defined array, structure, and
+function types are explained in their respective sections. Some types,
+such as `code', do not have default initializers. When a variable of
+such a type is introduced, the user must initialize it by explicitly
+giving it a value.
+
+ The default initializer for any type `T' can be redeclared by
+defining the function `T operator init()'. For instance, `int'
+variables are usually initialized to zero, but in
+
+int operator init() {
+ return 3;
+}
+int y;
+
+the variable `y' is initialized to `3'. This example was given for
+illustrative purposes; redeclaring the initializers of built-in types
+is not recommended. Typically, `operator init' is used to define
+sensible defaults for user-defined types.
+
+
+File: asymptote.info, Node: Structures, Next: Operators, Prev: Variable initializers, Up: Programming
+
+5.8 Structures
+==============
+
+Users may also define their own data types as structures, along with
+user-defined operators, much as in C++. By default, structure members
+are `public' (may be read and modified anywhere in the code), but may be
+optionally declared `restricted' (readable anywhere but writeable only
+inside the structure where they are defined) or `private' (readable and
+writable only inside the structure). In a structure definition, the
+keyword `this' can be used as an expression to refer to the enclosing
+structure. Any code at the top-level scope within the structure is
+executed on initialization.
+
+ Variables hold references to structures. That is, in the example:
+
+struct T {
+ int x;
+}
+
+T foo=new T;
+T bar=foo;
+bar.x=5;
+
+ The variable `foo' holds a reference to an instance of the structure
+`T'. When `bar' is assigned the value of `foo', it too now holds a
+reference to the same instance as `foo' does. The assignment `bar.x=5'
+changes the value of the field `x' in that instance, so that `foo.x'
+will also be equal to `5'.
+
+ The expression `new T' creates a new instance of the structure `T'
+and returns a reference to that instance. In creating the new
+instance, any code in the body of the record definition is executed.
+For example:
+
+int Tcount=0;
+struct T {
+ int x;
+ ++Tcount;
+}
+
+T foo=new T;
+
+ Here, the expression `new T' will produce a new instance of the
+class, but will also cause `Tcount' to be incremented, so that it keeps
+track of the number of instances produced.
+
+ The expression `null' can be cast to any structure type to yield a
+null reference, a reference that does not actually refer to any
+instance of the structure. Trying to use a field of a null reference
+will cause an error.
+
+ The function `bool alias(T,T)' checks to see if two structure
+references refer to the same instance of the structure (or both to
+`null'). For example, in the example code at the start of the section,
+`alias(foo,bar)' would return true, but `alias(foo,new T)' would return
+false, as `new T' creates a new instance of the structure `T'. The
+boolean operators `==' and `!=' are by default equivalent to `alias' and
+`!alias' respectively, but may be overwritten for a particular type
+(for example, to do a deep comparison).
+
+ After the definition of a structure `T', a variable of type `T' is
+initialized to a new instance (`new T') by default. During the
+definition of the structure, however, variables of type `T' are
+initialized to `null' by default. This special behaviour is to avoid
+infinite recursion of creating new instances in code such as
+
+struct tree {
+ int value;
+ tree left;
+ tree right;
+}
+
+ Here is a simple example that illustrates the use of structures:
+
+struct S {
+ real a=1;
+ real f(real a) {return a+this.a;}
+}
+
+S s; // Initializes s with new S;
+
+write(s.f(2)); // Outputs 3
+
+S operator + (S s1, S s2)
+{
+ S result;
+ result.a=s1.a+s2.a;
+ return result;
+}
+
+write((s+s).f(0)); // Outputs 2
+
+ It is often convenient to have functions that construct new
+instances of a structure. Say we have a `Person' structure:
+
+struct Person {
+ string firstname;
+ string lastname;
+}
+
+Person joe=new Person;
+joe.firstname="Joe";
+joe.lastname="Jones";
+ Creating a new Person is a chore; it takes three lines to create a new
+instance and to initialize its fields (that's still considerably less
+effort than creating a new person in real life, though).
+
+ We can reduce the work by defining a constructor function
+`Person(string,string)':
+
+struct Person {
+ string firstname;
+ string lastname;
+
+ static Person Person(string firstname, string lastname) {
+ Person p=new Person;
+ p.firstname=firstname;
+ p.lastname=lastname;
+ return p;
+ }
+}
+
+Person joe=Person.Person("Joe", "Jones");
+
+ While it is now easier than before to create a new instance, we still
+have to refer to the constructor by the qualified name `Person.Person'.
+If we add the line
+
+from Person unravel Person;
+ immediately after the structure definition, then the constructor can
+be used without qualification: `Person joe=Person("Joe", "Jones");'.
+
+ The constructor is now easy to use, but it is quite a hassle to
+define. If you write a lot of constructors, you will find that you are
+repeating a lot of code in each of them. Fortunately, your friendly
+neighbourhood Asymptote developers have devised a way to automate much
+of the process.
+
+ If, in the body of a structure, Asymptote encounters the definition
+of a function of the form `void operator init(ARGS)', it implicitly
+defines a constructor function of the arguments `ARGS' that uses the
+`void operator init' function to initialize a new instance of the
+structure. That is, it essentially defines the following constructor
+(assuming the structure is called `Foo'):
+
+ static Foo Foo(ARGS) {
+ Foo instance=new Foo;
+ instance.operator init(ARGS);
+ return instance;
+ }
+
+ This constructor is also implicitly copied to the enclosing scope
+after the end of the structure definition, so that it can used
+subsequently without qualifying it by the structure name. Our `Person'
+example can thus be implemented as:
+
+struct Person {
+ string firstname;
+ string lastname;
+
+ void operator init(string firstname, string lastname) {
+ this.firstname=firstname;
+ this.lastname=lastname;
+ }
+}
+
+Person joe=Person("Joe", "Jones");
+
+ The use of `operator init' to implicitly define constructors should
+not be confused with its use to define default values for variables
+(*note Variable initializers::). Indeed, in the first case, the return
+type of the `operator init' must be `void' while in the second, it must
+be the (non-`void') type of the variable.
+
+ The function `cputime()' returns a structure `cputime' with
+cumulative CPU times broken down into the fields `parent.user',
+`parent.system', `child.user', and `child.system'. For convenience, the
+incremental fields `change.user' and `change.system' indicate the
+change in the corresponding total parent and child CPU times since the
+last call to `cputime()'. The function
+void write(file file=stdout, string s="", cputime c,
+ string format=cputimeformat, suffix suffix=none);
+ displays the incremental user cputime followed by "u", the incremental
+system cputime followed by "s", the total user cputime followed by "U",
+and the total system cputime followed by "S".
+
+ Much like in C++, casting (*note Casts::) provides for an elegant
+implementation of structure inheritance, including virtual functions:
+struct parent {
+ real x=1;
+ void virtual(int) {write (0);}
+ void f() {virtual(1);}
+}
+
+void write(parent p) {write(p.x);}
+
+struct child {
+ parent parent;
+ real y=2;
+ void virtual(int x) {write (x);}
+ parent.virtual=virtual;
+ void f()=parent.f;
+}
+
+parent operator cast(child child) {return child.parent;}
+
+parent p;
+child c;
+
+write(c); // Outputs 1;
+
+p.f(); // Outputs 0;
+c.f(); // Outputs 1;
+
+write(c.parent.x); // Outputs 1;
+write(c.y); // Outputs 2;
+
+ For further examples of structures, see `Legend' and `picture' in
+the `Asymptote' base module `plain'.
+
+
+File: asymptote.info, Node: Operators, Next: Implicit scaling, Prev: Structures, Up: Programming
+
+5.9 Operators
+=============
+
+* Menu:
+
+* Arithmetic & logical:: Basic mathematical operators
+* Self & prefix operators:: Increment and decrement
+* User-defined operators:: Overloading operators
+
+
+File: asymptote.info, Node: Arithmetic & logical, Next: Self & prefix operators, Up: Operators
+
+5.9.1 Arithmetic & logical operators
+------------------------------------
+
+`Asymptote' uses the standard binary arithmetic operators. However,
+when one integer is divided by another, both arguments are converted to
+real values before dividing and a real quotient is returned (since this
+is usually what is intended). The function `int quotient(int x, int y)'
+returns the greatest integer less than or equal to `x/y'. In all other
+cases both operands are promoted to the same type, which will also be
+the type of the result:
+`+'
+ addition
+
+`-'
+ subtraction
+
+`*'
+ multiplication
+
+`/'
+ division
+
+`%'
+ modulo; the result always has the same sign as the divisor. In
+ particular, this makes `q*quotient(p,q)+p%q == p' for all integers
+ `p' and nonzero integers `q'.
+
+`^'
+ power; if the exponent (second argument) is an int, recursive
+ multiplication is used; otherwise, logarithms and exponentials are
+ used (`**' is a synonym for `^').
+
+
+ The usual boolean operators are also defined:
+`=='
+ equals
+
+`!='
+ not equals
+
+`<'
+ less than
+
+`<='
+ less than or equals
+
+`>='
+ greater than or equals
+
+`>'
+ greater than
+
+`&&'
+ and (with conditional evaluation of right-hand argument)
+
+`&'
+ and
+
+`||'
+ or (with conditional evaluation of right-hand argument)
+
+`|'
+ or
+
+`^'
+ xor
+
+`!'
+ not
+
+ `Asymptote' also supports the C-like conditional syntax:
+bool positive=(pi >= 0) ? true : false;
+
+ The function `T interp(T a, T b, real t)' returns `(1-t)*a+t*b' for
+nonintegral built-in arithmetic types `T'. If `a' and `b' are pens,
+they are first promoted to the same color space.
+
+ `Asymptote' also defines bitwise functions `int AND(int,int)', `int
+OR(int,int)', `int XOR(int,int)', and `int NOT(int)'.
+
+
+File: asymptote.info, Node: Self & prefix operators, Next: User-defined operators, Prev: Arithmetic & logical, Up: Operators
+
+5.9.2 Self & prefix operators
+-----------------------------
+
+As in C, each of the arithmetic operators `+', `-', `*', `/', `%', and
+`^' can be used as a self operator. The prefix operators `++'
+(increment by one) and `--' (decrement by one) are also defined. For
+example,
+int i=1;
+i += 2;
+int j=++i;
+
+is equivalent to the code
+int i=1;
+i=i+2;
+int j=i=i+1;
+
+ However, postfix operators like `i++' and `i--' are not defined
+(because of the inherent ambiguities that would arise with the `--'
+path-joining operator). In the rare instances where `i++' and `i--' are
+really needed, one can substitute the expressions `(++i-1)' and
+`(--i+1)', respectively.
+
+
+File: asymptote.info, Node: User-defined operators, Prev: Self & prefix operators, Up: Operators
+
+5.9.3 User-defined operators
+----------------------------
+
+The following symbols may be used with `operator' to define or redefine
+operators on structures and built-in types:
+- + * / % ^ ! < > == != <= >= & | ^^ .. :: -- --- ++
+<< >> $ $$ @ @@
+ The operators on the second line have precedence one higher than the
+boolean operators `<', `>', `<=', and `>='.
+
+ Guide operators like `..' may be overloaded, say, to write a user
+function that produces a new guide from a given guide:
+guide dots(... guide[] g)=operator ..;
+
+guide operator ..(... guide[] g) {
+ guide G;
+ if(g.length > 0) {
+ write(g[0]);
+ G=g[0];
+ }
+ for(int i=1; i < g.length; ++i) {
+ write(g[i]);
+ write();
+ G=dots(G,g[i]);
+ }
+ return G;
+}
+
+guide g=(0,0){up}..{SW}(100,100){NE}..{curl 3}(50,50)..(10,10);
+write("g=",g);
+
+
+File: asymptote.info, Node: Implicit scaling, Next: Functions, Prev: Operators, Up: Programming
+
+5.10 Implicit scaling
+=====================
+
+If a numeric literal is in front of certain types of expressions, then
+the two are multiplied:
+int x=2;
+real y=2.0;
+real cm=72/2.540005;
+
+write(3x);
+write(2.5x);
+write(3y);
+write(-1.602e-19 y);
+write(0.5(x,y));
+write(2x^2);
+write(3x+2y);
+write(3(x+2y));
+write(3sin(x));
+write(3(sin(x))^2);
+write(10cm);
+
+ This produces the output
+6
+5
+6
+-3.204e-19
+(1,1)
+8
+10
+18
+2.72789228047704
+2.48046543129542
+283.464008929116
+
+
+File: asymptote.info, Node: Functions, Next: Arrays, Prev: Implicit scaling, Up: Programming
+
+5.11 Functions
+==============
+
+`Asymptote' functions are treated as variables with a signature
+(non-function variables have null signatures). Variables with the same
+name are allowed, so long as they have distinct signatures.
+
+ Functions arguments are passed by value. To pass an argument by
+reference, simply enclose it in a structure (*note Structures::).
+
+ Here are some significant features of `Asymptote' functions:
+
+ 1. Variables with signatures (functions) and without signatures
+ (nonfunction variables) are distinct: int x, x();
+ x=5;
+ x=new int() {return 17;};
+ x=x(); // calls x() and puts the result, 17, in the scalar x
+
+ 2. Traditional function definitions are allowed: int sqr(int x)
+ {
+ return x*x;
+ }
+ sqr=null; // but the function is still just a variable.
+
+ 3. Casting can be used to resolve ambiguities: int a, a(), b, b(); // Valid: creates four variables.
+ a=b; // Invalid: assignment is ambiguous.
+ a=(int) b; // Valid: resolves ambiguity.
+ (int) (a=b); // Valid: resolves ambiguity.
+ (int) a=b; // Invalid: cast expressions cannot be L-values.
+
+ int c();
+ c=a; // Valid: only one possible assignment.
+
+ 4. Anonymous (so-called "high-order") functions are also allowed: typedef int intop(int);
+ intop adder(int m)
+ {
+ return new int(int n) {return m+n;};
+ }
+ intop addby7=adder(7);
+ write(addby7(1)); // Writes 8.
+
+ 5. One may redefine a function `f', even for calls to `f' in
+ previously declared functions, by assigning another (anonymous or
+ named) function to it. However, if `f' is overloaded by a new
+ function definition, previous calls will still access the original
+ version of `f', as illustrated in this example: void f() {
+ write("hi");
+ }
+
+ void g() {
+ f();
+ }
+
+ g(); // writes "hi"
+
+ f=new void() {write("bye");};
+
+ g(); // writes "bye"
+
+ void f() {write("overloaded");};
+
+ f(); // writes "overloaded"
+ g(); // writes "bye"
+
+ 6. Anonymous functions can be used to redefine a function variable
+ that has been declared (and implicitly initialized to the null
+ function) but not yet explicitly defined: void f(bool b);
+
+ void g(bool b) {
+ if(b) f(b);
+ else write(b);
+ }
+
+ f=new void(bool b) {
+ write(b);
+ g(false);
+ };
+
+ g(true); // Writes true, then writes false.
+
+
+ `Asymptote' is the only language we know of that treats functions as
+variables, but allows overloading by distinguishing variables based on
+their signatures.
+
+ Functions are allowed to call themselves recursively. As in C++,
+infinite nested recursion will generate a stack overflow (reported as a
+segmentation fault, unless a fully working version of the GNU library
+`libsigsegv' (e.g. 2.4 or later) is installed at configuration time).
+
+* Menu:
+
+* Default arguments:: Default values can appear anywhere
+* Named arguments:: Assigning function arguments by keyword
+* Rest arguments:: Functions with a variable number of arguments
+* Mathematical functions:: Standard libm functions
+
+
+File: asymptote.info, Node: Default arguments, Next: Named arguments, Up: Functions
+
+5.11.1 Default arguments
+------------------------
+
+`Asymptote' supports a more flexible mechanism for default function
+arguments than C++: they may appear anywhere in the function prototype.
+Because certain data types are implicitly cast to more sophisticated
+types (*note Casts::) one can often avoid ambiguities by ordering
+function arguments from the simplest to the most complicated. For
+example, given
+real f(int a=1, real b=0) {return a+b;}
+ then `f(1)' returns 1.0, but `f(1.0)' returns 2.0.
+
+ The value of a default argument is determined by evaluating the
+given `Asymptote' expression in the scope where the called function is
+defined.
+
+
+File: asymptote.info, Node: Named arguments, Next: Rest arguments, Prev: Default arguments, Up: Functions
+
+5.11.2 Named arguments
+----------------------
+
+It is sometimes difficult to remember the order in which arguments
+appear in a function declaration. Named (keyword) arguments make calling
+functions with multiple arguments easier. Unlike in the C and C++
+languages, an assignment in a function argument is interpreted as an
+assignment to a parameter of the same name in the function signature,
+_not within the local scope_. The command-line option `-d' may be used
+to check `Asymptote' code for cases where a named argument may be
+mistaken for a local assignment.
+
+ When matching arguments to signatures, first all of the keywords are
+matched, then the arguments without names are matched against the
+unmatched formals as usual. For example,
+int f(int x, int y) {
+ return 10x+y;
+}
+write(f(4,x=3));
+ outputs 34, as `x' is already matched when we try to match the unnamed
+argument `4', so it gets matched to the next item, `y'.
+
+ For the rare occasions where it is desirable to assign a value to
+local variable within a function argument (generally _not_ a good
+programming practice), simply enclose the assignment in parentheses.
+For example, given the definition of `f' in the previous example,
+int x;
+write(f(4,(x=3)));
+ is equivalent to the statements
+int x;
+x=3;
+write(f(4,3));
+ and outputs 43.
+
+ As a technical detail, we point out that, since variables of the same
+name but different signatures are allowed in the same scope, the code
+int f(int x, int x()) {
+ return x+x();
+}
+int seven() {return 7;}
+ is legal in `Asymptote', with `f(2,seven)' returning 9. A named
+argument matches the first unmatched formal of the same name, so
+`f(x=2,x=seven)' is an equivalent call, but `f(x=seven,2)' is not, as
+the first argument is matched to the first formal, and `int ()' cannot
+be implicitly cast to `int'. Default arguments do not affect which
+formal a named argument is matched to, so if `f' were defined as
+int f(int x=3, int x()) {
+ return x+x();
+}
+ then `f(x=seven)' would be illegal, even though `f(seven)' obviously
+would be allowed.
+
+
+File: asymptote.info, Node: Rest arguments, Next: Mathematical functions, Prev: Named arguments, Up: Functions
+
+5.11.3 Rest arguments
+---------------------
+
+Rest arguments allow one to write functions that take a variable number
+of arguments:
+// This function sums its arguments.
+int sum(... int[] nums) {
+ int total=0;
+ for(int i=0; i < nums.length; ++i)
+ total += nums[i];
+ return total;
+}
+
+sum(1,2,3,4); // returns 10
+sum(); // returns 0
+
+// This function subtracts subsequent arguments from the first.
+int subtract(int start ... int[] subs) {
+ for(int i=0; i < subs.length; ++i)
+ start -= subs[i];
+ return start;
+}
+
+subtract(10,1,2); // returns 7
+subtract(10); // returns 10
+subtract(); // illegal
+
+ Putting an argument into a rest array is called _packing_. One can
+give an explicit list of arguments for the rest argument, so `subtract'
+could alternatively be implemented as
+int subtract(int start ... int[] subs) {
+ return start - sum(... subs);
+}
+
+ One can even combine normal arguments with rest arguments:
+sum(1,2,3 ... new int[] {4,5,6}); // returns 21
+ This builds a new six-element array that is passed to `sum' as `nums'.
+The opposite operation, _unpacking_, is not allowed:
+subtract(... new int[] {10, 1, 2});
+ is illegal, as the start formal is not matched.
+
+ If no arguments are packed, then a zero-length array (as opposed to
+`null') is bound to the rest parameter. Note that default arguments are
+ignored for rest formals and the rest argument is not bound to a
+keyword.
+
+ The overloading resolution in `Asymptote' is similar to the function
+matching rules used in C++. Every argument match is given a score.
+Exact matches score better than matches with casting, and matches with
+formals (regardless of casting) score better than packing an argument
+into the rest array. A candidate is maximal if all of the arguments
+score as well in it as with any other candidate. If there is one
+unique maximal candidate, it is chosen; otherwise, there is an
+ambiguity error.
+
+int f(path g);
+int f(guide g);
+f((0,0)--(100,100)); // matches the second; the argument is a guide
+
+int g(int x, real y);
+int g(real x, int x);
+
+g(3,4); // ambiguous; the first candidate is better for the first argument,
+ // but the second candidate is better for the second argument
+
+int h(... int[] rest);
+int h(real x ... int[] rest);
+
+h(1,2); // the second definition matches, even though there is a cast,
+ // because casting is preferred over packing
+
+int i(int x ... int[] rest);
+int i(real x, real y ... int[] rest);
+
+i(3,4); // ambiguous; the first candidate is better for the first argument,
+ // but the second candidate is better for the second one
+
+
+File: asymptote.info, Node: Mathematical functions, Prev: Rest arguments, Up: Functions
+
+5.11.4 Mathematical functions
+-----------------------------
+
+`Asymptote' has built-in versions of the standard `libm' mathematical
+real(real) functions `sin', `cos', `tan', `asin', `acos', `atan',
+`exp', `log', `pow10', `log10', `sinh', `cosh', `tanh', `asinh',
+`acosh', `atanh', `sqrt', `cbrt', `fabs', `expm1', `log1p', as well as
+the identity function `identity'. `Asymptote' also defines the order
+`n' Bessel functions of the first kind `J(int n, real)' and second kind
+`Y(int n, real)', as well as the gamma function `gamma', the error
+function `erf', and the complementary error function `erfc'. The
+standard real(real, real) functions `atan2', `hypot', `fmod',
+`remainder' are also included.
+
+ The functions `degrees(real radians)' and `radians(real degrees)'
+can be used to convert between radians and degrees. The function
+`Degrees(real radians)' returns the angle in degrees in the interval
+[0,360). For convenience, `Asymptote' defines variants `Sin', `Cos',
+`Tan', `aSin', `aCos', and `aTan' of the standard trigonometric
+functions that use degrees rather than radians. We also define complex
+versions of the `sqrt', `sin', `cos', `exp', `log', and `gamma'
+functions.
+
+ The functions `floor', `ceil', and `round' differ from their usual
+definitions in that they all return an int value rather than a real
+(since that is normally what one wants). The functions `Floor',
+`Ceil', and `Round' are respectively similar, except that if the result
+cannot be converted to a valid int, they return `intMax' for positive
+arguments and `intMin' for negative arguments, rather than generating
+an integer overflow. We also define a function `sgn', which returns
+the sign of its real argument as an integer (-1, 0, or 1).
+
+ There is an `abs(int)' function, as well as an `abs(real)' function
+(equivalent to `fabs(real)'), an `abs(pair)' function (equivalent to
+`length(pair)').
+
+ Random numbers can be seeded with `srand(int)' and generated with
+the `int rand()' function, which returns a random integer between 0 and
+the integer `randMax'. The `unitrand()' function returns a random
+number uniformly distributed in the interval [0,1]. A Gaussian random
+number generator `Gaussrand' and a collection of statistics routines,
+including `histogram', are provided in the base file `stats.asy'. The
+functions `factorial(int n)', which returns n!, and `choose(int n, int
+k)', which returns n!/(k!(n-k)!), are also defined.
+
+ When configured with the GNU Scientific Library (GSL), available from
+`http://www.gnu.org/software/gsl/', `Asymptote' contains an internal
+module `gsl' that defines the airy functions `Ai(real)', `Bi(real)',
+`Ai_deriv(real)', `Bi_deriv(real)', `zero_Ai(int)', `zero_Bi(int)',
+`zero_Ai_deriv(int)', `zero_Bi_deriv(int)', the Bessel functions
+`I(int, real)', `K(int, real)', `j(int, real)', `y(int, real)',
+`i_scaled(int, real)', `k_scaled(int, real)', `J(real, real)', `Y(real,
+real)', `I(real, real)', `K(real, real)', `zero_J(real, int)', the
+elliptic functions `F(real, real)', `E(real, real)', and `P(real,
+real)', the exponential/trigonometric integrals `Ei', `Si', and `Ci',
+the Legendre polynomials `Pl(int, real)', and the Riemann zeta function
+`zeta(real)'. For example, to compute the sine integral `Si' of 1.0:
+import gsl;
+write(Si(1.0));
+
+ `Asymptote' also provides a few general purpose numerical routines:
+
+``real newton(int iterations=100, real f(real), real fprime(real), real x, bool verbose=false);''
+ Use Newton-Raphson iteration to solve for a root of a real-valued
+ differentiable function `f', given its derivative `fprime' and an
+ initial guess `x'. Diagnostics for each iteration are printed if
+ `verbose=true'. If the iteration fails after the maximum allowed
+ number of loops (`iterations'), `realMax' is returned.
+
+``real newton(int iterations=100, real f(real), real fprime(real), real x1, real x2, bool verbose=false);''
+ Use bracketed Newton-Raphson bisection to solve for a root of a
+ real-valued differentiable function `f' within an interval
+ [`x1',`x2'] (on which the endpoint values of `f' have opposite
+ signs), given its derivative `fprime'. Diagnostics for each
+ iteration are printed if `verbose=true'. If the iteration fails
+ after the maximum allowed number of loops (`iterations'),
+ `realMax' is returned.
+
+``real simpson(real f(real), real a, real b, real acc=realEpsilon, real dxmax=b-a)''
+ returns the integral of `f' from `a' to `b' using adaptive Simpson
+ integration.
+
+
+
+File: asymptote.info, Node: Arrays, Next: Casts, Prev: Functions, Up: Programming
+
+5.12 Arrays
+===========
+
+* Menu:
+
+* Slices:: Python-style array slices
+
+ Appending `[]' to a built-in or user-defined type yields an array.
+The array element `i' of an array `A' can be accessed as `A[i]'. By
+default, attempts to access or assign to an array element using a
+negative index generates an error. Reading an array element with an
+index beyond the length of the array also generates an error; however,
+assignment to an element beyond the length of the array causes the
+array to be resized to accommodate the new element. One can also index
+an array `A' with an integer array `B': the array `A[B]' is formed by
+indexing array `A' with successive elements of array `B'. A convenient
+Java-style shorthand exists for iterating over all elements of an
+array; see *note array iteration::.
+
+ The declaration
+real[] A;
+
+initializes `A' to be an empty (zero-length) array. Empty arrays should
+be distinguished from null arrays. If we say
+real[] A=null;
+
+then `A' cannot be dereferenced at all (null arrays have no length and
+cannot be read from or assigned to).
+
+ Arrays can be explicitly initialized like this:
+real[] A={0,1,2};
+
+ Array assignment in `Asymptote' does a shallow copy: only the
+pointer is copied (if one copy if modified, the other will be too).
+The `copy' function listed below provides a deep copy of an array.
+
+ Every array `A' of type `T[]' has the virtual members
+ * `int length',
+
+ * `void cyclic(bool b)',
+
+ * `bool cyclicflag',
+
+ * `int[] keys',
+
+ * `T push(T x)',
+
+ * `void append(T[] a)',
+
+ * `T pop()',
+
+ * `void insert(int i ... T[] x)',
+
+ * `void delete(int i, int j=i)',
+
+ * `void delete()', and
+
+ * `bool initialized(int n)'.
+
+ The member `A.length' evaluates to the length of the array. Setting
+`A.cyclic(true)' signifies that array indices should be reduced modulo
+the current array length. Reading from or writing to a nonempty cyclic
+array never leads to out-of-bounds errors or array resizing. The member
+`A.cyclicflag' returns the current setting of the `cyclic' flag.
+
+ The member `A.keys' evaluates to an array of integers containing the
+indices of initialized entries in the array in ascending order. Hence,
+for an array of length `n' with all entries initialized, `A.keys'
+evaluates to the array of integers from `0' to `n-1' inclusive. A new
+keys array is produced each time `A.keys' is evaluated.
+
+ The functions `A.push' and `A.append' append their arguments onto
+the end of the array, while `A.insert(int i ... T[] x)' inserts `x'
+into the array at index `i'. For convenience `A.push' returns the
+pushed item. The function `A.pop()' pops and returns the last element,
+while `A.delete(int i, int j=i)' deletes elements with indices in the
+range [`i',`j'], shifting the position of all higher-indexed elements
+down. If no arguments are given, `A.delete()' provides a convenient way
+of deleting all elements of `A'. The routine `A.initialized(int n)' can
+be used to examine whether the element at index `n' is initialized.
+Like all `Asymptote' functions, `cyclic', `push', `append', `pop',
+`insert', `delete', and `initialized' can be "pulled off" of the array
+and used on their own. For example,
+int[] A={1};
+A.push(2); // A now contains {1,2}.
+A.append(A); // A now contains {1,2,1,2}.
+int f(int)=A.push;
+f(3); // A now contains {1,2,1,2,3}.
+int g()=A.pop;
+write(g()); // Outputs 3.
+A.delete(0); // A now contains {2,1,2}.
+A.delete(0,1); // A now contains {2}.
+A.insert(1,3); // A now contains {2,3}.
+A.insert(1 ... A); // A now contains {2,2,3,3}
+A.insert(2,4,5); // A now contains {2,2,4,5,3,3}.
+
+ The `[]' suffix can also appear after the variable name; this is
+sometimes convenient for declaring a list of variables and arrays of
+the same type:
+real a,A[];
+ This declares `a' to be `real' and implicitly declares `A' to be of
+type `real[]'.
+
+ In the following list of built-in array functions, `T' represents a
+generic type. Note that the internal functions `alias', `array',
+`copy', `concat', `sequence', `map', and `transpose', which depend on
+type `T[]', are defined only after the first declaration of a variable
+of type `T[]'.
+
+`new T[]'
+ returns a new empty array of type `T[]';
+
+`new T[] {list}'
+ returns a new array of type `T[]' initialized with `list' (a comma
+ delimited list of elements).
+
+`new T[n]'
+ returns a new array of `n' elements of type `T[]'. These `n'
+ array elements are not initialized unless they are arrays
+ themselves (in which case they are each initialized to empty
+ arrays).
+
+`T[] array(int n, T value, int depth=intMax)'
+ returns an array consisting of `n' copies of value. By default, if
+ `value' is itself an array, a deep copy of that array is made for
+ each entry in the new array. If `depth' is specified, this deep
+ copying only recurses to the number of levels specified.
+
+`int[] sequence(int n)'
+ if `n >= 1' returns the array `{0,1,...,n-1}' (otherwise returns a
+ null array);
+
+`int[] sequence(int n, int m)'
+ if `m >= n' returns an array `{n,n+1,...,m}' (otherwise returns a
+ null array);
+
+`T[] sequence(T f(int), int n)'
+ if `n >= 1' returns the sequence `{f_i :i=0,1,...n-1}' given a
+ function `T f(int)' and integer `int n' (otherwise returns a null
+ array);
+
+`T[] map(T f(T), T[] a)'
+ returns the array obtained by applying the function `f' to each
+ element of the array `a'. This is equivalent to `sequence(new
+ T(int i) {return f(a[i]);},a.length)'.
+
+`int[] reverse(int n)'
+ if `n >= 1' returns the array `{n-1,n-2,...,0}' (otherwise returns
+ a null array);
+
+`int[] complement(int[] a, int n)'
+ returns the complement of the integer array `a' in
+ `{0,1,2,...,n-1}', so that `b[complement(a,b.length)]' yields the
+ complement of `b[a]'.
+
+`real[] uniform(real a, real b, int n)'
+ if `n >= 1' returns a uniform partition of `[a,b]' into `n'
+ subintervals (otherwise returns a null array);
+
+`int find(bool[], int n=1)'
+ returns the index of the `n'th `true' value or -1 if not found.
+ If `n' is negative, search backwards from the end of the array for
+ the `-n'th value;
+
+`int search(T[] a, T key)'
+ For built-in ordered types `T', searches a sorted ordered array
+ `a' of `n' elements to find an interval containing `key',
+ returning `-1' if `key' is less than the first element, `n-1' if
+ `key' is greater than or equal to the last element, and otherwise
+ the index corresponding to the left-hand (smaller) endpoint.
+
+`T[] copy(T[] a)'
+ returns a deep copy of the array `a';
+
+`T[][] copy(T[][] a)'
+ returns a deep copy of the array `a';
+
+`T[][][] copy(T[][][] a)'
+ returns a deep copy of the array `a';
+
+`T[] concat(... T[][] a)'
+ returns a new array formed by concatenating the arrays given as
+ arguments;
+
+`bool alias(T[] a, T[] b)'
+ returns `true' if the arrays `a' and `b' are identical;
+
+`T[] sort(T[] a)'
+ For built-in ordered types `T', returns a copy of `a' sorted in
+ ascending order;
+
+`T[][] sort(T[][] a)'
+ For built-in ordered types `T', returns a copy of `a' with the rows
+ sorted by the first column, breaking ties with successively higher
+ columns. For example: string[][] a={{"bob","9"},{"alice","5"},{"pete","7"},
+ {"alice","4"}};
+ // Row sort (by column 0, using column 1 to break ties):
+ write(sort(a));
+
+ produces alice 4
+ alice 5
+ bob 9
+ pete 7
+
+`T[] sort(T[] a, bool compare(T i, T j))'
+ returns a copy of `a' stably sorted in ascending order such that
+ element `i' precedes element `j' if `compare(i,j)' is true.
+
+`T[][] transpose(T[][] a)'
+ returns the transpose of `a'.
+
+`T[][][] transpose(T[][][] a, int[] perm)'
+ returns the 3D transpose of `a' obtained by applying the
+ permutation `perm' of `new int[]{0,1,2}' to the indices of each
+ entry.
+
+`T sum(T[] a)'
+ For arithmetic types `T', returns the sum of `a'. In the case
+ where `T' is `bool', the number of true elements in `a' is
+ returned.
+
+`T min(T[] a)'
+
+`T min(T[][] a)'
+
+`T min(T[][][] a)'
+ For built-in ordered types `T', returns the minimum element of `a'.
+
+`T max(T[] a)'
+
+`T max(T[][] a)'
+
+`T max(T[][][] a)'
+ For built-in ordered types `T', returns the maximum element of `a'.
+
+`T[] min(T[] a, T[] b)'
+ For built-in ordered types `T', and arrays `a' and `b' of the same
+ length, returns an array composed of the minimum of the
+ corresponding elements of `a' and `b'.
+
+`T[] max(T[] a, T[] b)'
+ For built-in ordered types `T', and arrays `a' and `b' of the same
+ length, returns an array composed of the maximum of the
+ corresponding elements of `a' and `b'.
+
+`pair[] pairs(real[] x, real[] y);'
+ For arrays `x' and `y' of the same length, returns the pair array
+ `sequence(new pair(int i) {return (x[i],y[i]);},x.length)'.
+
+`pair[] fft(pair[] a, int sign=1)'
+ returns the Fast Fourier Transform of `a' (if the optional `FFTW'
+ package is installed), using the given `sign'. Here is a simple
+ example: int n=4;
+ pair[] f=sequence(n);
+ write(f);
+ pair[] g=fft(f,-1);
+ write();
+ write(g);
+ f=fft(g,1);
+ write();
+ write(f/n);
+
+`real dot(real[] a, real[] b)'
+ returns the dot product of the vectors `a' and `b'.
+
+`real[] tridiagonal(real[] a, real[] b, real[] c, real[] f);'
+ Solve the periodic tridiagonal problem L`x'=`f' and return the
+ solution `x', where `f' is an n vector and L is the n \times n
+ matrix [ b[0] c[0] a[0] ]
+ [ a[1] b[1] c[1] ]
+ [ a[2] b[2] c[2] ]
+ [ ... ]
+ [ c[n-1] a[n-1] b[n-1] ]
+ For Dirichlet boundary conditions (denoted here by `u[-1]' and
+ `u[n]'), replace `f[0]' by `f[0]-a[0]u[-1]' and
+ `f[n-1]-c[n-1]u[n]'; then set `a[0]=c[n-1]=0'.
+
+`real[] solve(real[][] a, real[] b, bool warn=true)'
+ Solve the linear equation `a'x=`b' by LU decomposition and return
+ the solution x, where `a' is an n \times n matrix and `b' is an
+ array of length n. For example: import math;
+ real[][] a={{1,-2,3,0},{4,-5,6,2},{-7,-8,10,5},{1,50,1,-2}};
+ real[] b={7,19,33,3};
+ real[] x=solve(a,b);
+ write(a); write();
+ write(b); write();
+ write(x); write();
+ write(a*x);
+ If `a' is a singular matrix and `warn' is `false', return an
+ empty array. If the matrix `a' is tridiagonal, the routine
+ `tridiagonal' provides a more efficient algorithm (*note
+ tridiagonal::).
+
+`real[][] solve(real[][] a, real[][] b, bool warn=true)'
+ Solve the linear equation `a'x=`b' and return the solution x,
+ where `a' is an n \times n matrix and `b' is an n \times m matrix.
+ If `a' is a singular matrix and `warn' is `false', return an empty
+ matrix.
+
+`real[][] identity(int n);'
+ returns the n \times n identity matrix.
+
+`real[][] diagonal(... real[] a)'
+ returns the diagonal matrix with diagonal entries given by a.
+
+`real[][] inverse(real[][] a)'
+ returns the inverse of a square matrix `a'.
+
+``real[] quadraticroots(real a, real b, real c);''
+ This numerically robust solver returns the real roots of the
+ quadratic equation ax^2+bx+c=0, in ascending order. Multiple roots
+ are listed separately.
+
+``pair[] quadraticroots(explicit pair a, explicit pair b, explicit pair c);''
+ This numerically robust solver returns the two complex roots of the
+ quadratic equation ax^2+bx+c=0.
+
+``real[] cubicroots(real a, real b, real c, real d);''
+ This numerically robust solver returns the real roots of the cubic
+ equation ax^3+bx^2+cx+d=0. Multiple roots are listed separately.
+
+
+ `Asymptote' includes a full set of vectorized array instructions for
+arithmetic (including self) and logical operations. These
+element-by-element instructions are implemented in C++ code for speed.
+Given
+real[] a={1,2};
+real[] b={3,2};
+ then `a == b' and `a >= 2' both evaluate to the vector `{false, true}'. To
+test whether all components of `a' and `b' agree, use the boolean
+function `all(a == b)'. One can also use conditionals like `(a >= 2) ?
+a : b', which returns the array `{3,2}', or `write((a >= 2) ? a :
+null', which returns the array `{2}'.
+
+ All of the standard built-in `libm' functions of signature
+`real(real)' also take a real array as an argument, effectively like an
+implicit call to `map'.
+
+ As with other built-in types, arrays of the basic data types can be
+read in by assignment. In this example, the code
+file fin=input("test.txt");
+real[] A=fin;
+
+reads real values into `A' until the end-of-file is reached (or an I/O
+error occurs). If line mode is set with `line(file)', then reading will
+stop once the end of the line is reached instead (line mode may be
+cleared with `line(file,false)'):
+file fin=input("test.txt");
+real[] A=line(fin);
+
+ Since string reads by default read up to the end of line anyway,
+line mode normally has no effect on string array reads. However, there
+is a white-space delimiter mode for reading strings, set with
+`word(file)' and cleared with `word(file,false)', which causes string
+reads to respect white-space delimiters, instead of the default
+end-of-line delimiter:
+file fin=word(line(input("test.txt")));
+real[] A=fin;
+
+ Another useful mode is comma-separated-value mode, set with
+`csv(file)' and cleared with `csv(file,false)', which causes reads to
+respect comma delimiters:
+file fin=csv(input("test.txt"));
+real[] A=fin;
+
+ To restrict the number of values read, use the `dimension(file,int)'
+function:
+file fin=input("test.txt");
+real[] A=dimension(fin,10);
+
+ This reads 10 values into A, unless end-of-file (or end-of-line in
+line mode) occurs first. Attempting to read beyond the end of the file
+will produce a runtime error message. Specifying a value of 0 for the
+integer limit is equivalent to the previous example of reading until
+end-of-file (or end-of-line in line mode) is encountered.
+
+ Two- and three-dimensional arrays of the basic data types can be read
+in like this:
+file fin=input("test.txt");
+real[][] A=dimension(fin,2,3);
+real[][][] B=dimension(fin,2,3,4);
+ Again, an integer limit of zero means no restriction.
+
+ Sometimes the array dimensions are stored with the data as integer
+fields at the beginning of an array. Such arrays can be read in with the
+functions `read1', `read2', and `read3', respectively:
+file fin=input("test.txt");
+real[] A=read1(fin);
+real[][] B=read2(fin);
+real[][][] C=read3(fin);
+
+ One, two, and three-dimensional arrays of the basic data types can be
+output with the functions `write(file,T[])', `write(file,T[][])',
+`write(file,T[][][])', respectively.
+
+
+File: asymptote.info, Node: Slices, Up: Arrays
+
+5.12.1 Slices
+-------------
+
+Asymptote allows a section of an array to be addressed as a slice using
+a Python-like syntax. If `A' is an array, the expression `A[m:n]'
+returns a new array consisting of the elements of `A' with indices from
+`m' up to but not including `n'. For example,
+
+int[] x={0,1,2,3,4,5,6,7,8,9};
+int[] y=x[2:6]; // y={2,3,4,5};
+int[] z=x[5:10]; // z={5,6,7,8,9};
+
+ If the left index is omitted, it is taken be `0'. If the right
+index is omitted it is taken to be the length of the array. If both
+are omitted, the slice then goes from the start of the array to the
+end, producing a non-cyclic deep copy of the array. For example:
+
+int[] x={0,1,2,3,4,5,6,7,8,9};
+int[] y=x[:4]; // y={0,1,2,3}
+int[] z=x[5:]; // z={5,6,7,8,9}
+int[] w=x[:]; // w={0,1,2,3,4,5,6,7,8,9}, distinct from array x.
+
+ If A is a non-cyclic array, it is illegal to use negative values for
+either of the indices. If the indices exceed the length of the array,
+however, they are politely truncated to that length.
+
+ For cyclic arrays, the slice `A[m:n]' still consists of the cells
+with indices in the set [`m',`n'), but now negative values and values
+beyond the length of the array are allowed. The indices simply wrap
+around. For example:
+
+int[] x={0,1,2,3,4,5,6,7,8,9};
+x.cyclic(true);
+int[] y=x[8:15]; // y={8,9,0,1,2,3,4}.
+int[] z=x[-5:5]; // z={5,6,7,8,9,0,1,2,3,4}
+int[] w=x[-3:17]; // w={7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6}
+
+ Notice that with cyclic arrays, it is possible to include the same
+element of the original array multiple times within a slice.
+Regardless of the original array, arrays produced by slices are always
+non-cyclic.
+
+ If the left and right indices of a slice are the same, the result is
+an empty array. If the array being sliced is empty, the result is an
+empty array. Any slice with a left index greater than its right index
+will yield an error.
+
+ Slices can also be assigned to, changing the value of the original
+array. If the array being assigned to the slice has a different length
+than the slice itself, elements will be inserted or removed from the
+array to accommodate it. For instance:
+
+string[] toppings={"mayo", "salt", "ham", "lettuce"};
+toppings[0:2]=new string[] {"mustard", "pepper"};
+ // Now toppings={"mustard", "pepper", "ham", "lettuce"}
+toppings[2:3]=new string[] {"turkey", "bacon" };
+ // Now toppings={"mustard", "pepper", "turkey", "bacon", "lettuce"}
+toppings[0:3]=new string[] {"tomato"};
+ // Now toppings={"tomato", "bacon", "lettuce"}
+
+ If an array is assigned to a slice of itself, a copy of the original
+array is assigned to the slice. That is, code such as `x[m:n]=x' is
+equivalent to `x[m:n]=copy(x)'. One can use the shorthand `x[m:m]=y'
+to insert the contents of the array `y' into the array `x' starting at
+the location just before `x[m]'.
+
+ For a cyclic array, a slice is bridging if it addresses cells up to
+the end of the array and then continues on to address cells at the
+start of the array. For instance, if `A' is a cyclic array of length
+10, `A[8:12]', `A[-3:1]', and `A[5:25]' are bridging slices whereas
+`A[3:7]', `A[7:10]', `A[-3:0]' and `A[103:107]' are not. Bridging
+slices can only be assigned to if the number of elements in the slice
+is exactly equal to the number of elements we are assigning to it.
+Otherwise, there is no clear way to decide which of the new entries
+should be `A[0]' and an error is reported. Non-bridging slices may be
+assigned an array of any length.
+
+ For a cyclic array `A' an expression of the form
+`A[A.length:A.length]' is equivalent to the expression `A[0:0]' and so
+assigning to this slice will insert values at the start of the array.
+`A.append()' can be used to insert values at the end of the array.
+
+ It is illegal to assign to a slice of a cyclic array that repeats
+any of the cells.
+
+
+File: asymptote.info, Node: Casts, Next: Import, Prev: Arrays, Up: Programming
+
+5.13 Casts
+==========
+
+`Asymptote' implicitly casts `int' to `real', `int' to `pair', `real'
+to `pair', `pair' to `path', `pair' to `guide', `path' to `guide',
+`guide' to `path', `real' to `pen', `pair[]' to `guide[]', `pair[]' to
+`path[]', `path' to `path[]', and `guide' to `path[]', along with
+various three-dimensional casts defined in `three.asy'. Implicit casts
+are automatically attempted on assignment and when trying to match
+function calls with possible function signatures. Implicit casting can
+be inhibited by declaring individual arguments `explicit' in the
+function signature, say to avoid an ambiguous function call in the
+following example, which outputs 0:
+
+int f(pair a) {return 0;}
+int f(explicit real x) {return 1;}
+
+write(f(0));
+
+ Other conversions, say `real' to `int' or `real' to `string',
+require an explicit cast:
+int i=(int) 2.5;
+string s=(string) 2.5;
+
+real[] a={2.5,-3.5};
+int[] b=(int []) a;
+write(stdout,b); // Outputs 2,-3
+
+ Casting to user-defined types is also possible using `operator cast':
+struct rpair {
+ real radius;
+ real angle;
+}
+
+pair operator cast(rpair x) {
+ return (x.radius*cos(x.angle),x.radius*sin(x.angle));
+}
+
+rpair x;
+x.radius=1;
+x.angle=pi/6;
+
+write(x); // Outputs (0.866025403784439,0.5)
+
+ One must use care when defining new cast operators. Suppose that in
+some code one wants all integers to represent multiples of 100. To
+convert them to reals, one would first want to multiply them by 100.
+However, the straightforward implementation
+real operator cast(int x) {return x*100;}
+ is equivalent to an infinite recursion, since the result `x*100' needs
+itself to be cast from an integer to a real. Instead, we want to use
+the standard conversion of int to real:
+real convert(int x) {return x*100;}
+real operator cast(int x)=convert;
+
+ Explicit casts are implemented similarly, with `operator ecast'.
+
+
+File: asymptote.info, Node: Import, Next: Static, Prev: Casts, Up: Programming
+
+5.14 Import
+===========
+
+While `Asymptote' provides many features by default, some applications
+require specialized features contained in external `Asymptote' modules.
+For instance, the lines
+access graph;
+graph.axes();
+ draw x and y axes on a two-dimensional graph. Here, the command looks
+up the module under the name `graph' in a global dictionary of modules
+and puts it in a new variable named `graph'. The module is a
+structure, and we can refer to its fields as we usually would with a
+structure.
+
+ Often, one wants to use module functions without having to specify
+the module name. The code
+from graph access axes;
+ adds the `axes' field of `graph' into the local name space, so that
+subsequently, one can just write `axes()'. If the given name is
+overloaded, all types and variables of that name are added. To add
+more than one name, just use a comma-separated list:
+
+from graph access axes, xaxis, yaxis;
+ Wild card notation can be used to add all non-private fields and types
+of a module to the local name space:
+
+from graph access *;
+
+ Similarly, one can add the non-private fields and types of a
+structure to the local environment with the `unravel' keyword:
+
+struct matrix {
+ real a,b,c,d;
+}
+
+real det(matrix m) {
+ unravel m;
+ return a*d-b*c;
+}
+ Alternatively, one can unravel selective fields:
+real det(matrix m) {
+ from m unravel a,b,c as C,d;
+ return a*d-b*C;
+}
+
+ The command
+import graph;
+ is a convenient abbreviation for the commands
+access graph;
+unravel graph;
+ That is, `import graph' first loads a module into a structure called
+`graph' and then adds its non-private fields and types to the local
+environment. This way, if a member variable (or function) is
+overwritten with a local variable (or function of the same signature),
+the original one can still be accessed by qualifying it with the module
+name.
+
+ Wild card importing will work fine in most cases, but one does not
+usually know all of the internal types and variables of a module, which
+can also change as the module writer adds or changes features of the
+module. As such, it is prudent to add `import' commands at the start
+of an `Asymptote' file, so that imported names won't shadow locally
+defined functions. Still, imported names may shadow other imported
+names, depending on the order in which they were imported, and imported
+functions may cause overloading resolution problems if they have the
+same name as local functions defined later.
+
+ To rename modules or fields when adding them to the local
+environment, use `as':
+
+access graph as graph2d;
+from graph access xaxis as xline, yaxis as yline;
+
+ The command
+import graph as graph2d;
+ is a convenient abbreviation for the commands
+access graph as graph2d;
+unravel graph2d;
+
+ Except for a few built-in modules, such as `settings', all modules
+are implemented as `Asymptote' files. When looking up a module that
+has not yet been loaded, `Asymptote' searches the standard search paths
+(*note Search paths::) for the matching file. The file corresponding
+to that name is read and the code within it is interpreted as the body
+of a structure defining the module.
+
+ If the file name contains nonalphanumeric characters, enclose it
+with quotation marks:
+
+`access "/usr/local/share/asymptote/graph.asy" as graph;'
+
+`from "/usr/local/share/asymptote/graph.asy" access axes;'
+
+`import "/usr/local/share/asymptote/graph.asy" as graph;'
+
+ It is an error if modules import themselves (or each other in a
+cycle). The module name to be imported must be known at compile time.
+
+ However, you can import an `Asymptote' module determined by the
+string `s' at runtime like this:
+eval("import "+s,true);
+
+ To conditionally execute an array of asy files, use
+void asy(string format, bool overwrite ... string[] s);
+ The file will only be processed, using output format `format', if
+overwrite is `true' or the output file is missing.
+
+ One can evaluate an `Asymptote' expression (without any return
+value, however) contained in the string `s' with:
+void eval(string s, bool embedded=false);
+ It is not necessary to terminate the string `s' with a semicolon. If
+`embedded' is `true', the string will be evaluated at the top level of
+the current environment. If `embedded' is `false' (the default), the
+string will be evaluated in an independent environment, sharing the same
+`settings' module (*note settings::).
+
+ One can evaluate arbitrary `Asymptote' code (which may contain
+unescaped quotation marks) with the command
+void eval(code s, bool embedded=false);
+ Here `code' is a special type used with `quote {}' to enclose
+`Asymptote code' like this:
+real a=1;
+code s=quote {
+ write(a);
+};
+eval(s,true); // Outputs 1
+
+ To include the contents of a file `graph' verbatim (as if the
+contents of the file were inserted at that point), use one of the forms:
+include graph;
+
+`include "/usr/local/share/asymptote/graph.asy";'
+
+ To list all global functions and variables defined in a module named
+by the contents of the string `s', use the function
+void list(string s, bool imports=false);
+ Imported global functions and variables are also listed if `imports'
+is `true'.
+
+
+File: asymptote.info, Node: Static, Prev: Import, Up: Programming
+
+5.15 Static
+===========
+
+Static qualifiers allocate the memory address of a variable in a higher
+enclosing level.
+
+ For a function body, the variable is allocated in the block where the
+function is defined; so in the code
+struct s {
+ int count() {
+ static int c=0;
+ ++c;
+ return c;
+ }
+}
+
+there is one instance of the variable `c' for each object `s' (as
+opposed to each call of `count').
+
+ Similarly, in
+int factorial(int n) {
+ int helper(int k) {
+ static int x=1;
+ x *= k;
+ return k == 1 ? x : helper(k-1);
+ }
+ return helper(n);
+}
+
+there is one instance of `x' for every call to `factorial' (and not for
+every call to `helper'), so this is a correct, but ugly, implementation
+of factorial.
+
+ Similarly, a static variable declared within a structure is
+allocated in the block where the structure is defined. Thus,
+struct A {
+ struct B {
+ static pair z;
+ }
+}
+
+creates one object `z' for each object of type `A' created.
+
+ In this example,
+int pow(int n, int k) {
+ struct A {
+ static int x=1;
+ void helper() {
+ x *= n;
+ }
+ }
+ for(int i=0; i < k; ++i) {
+ A a;
+ a.helper();
+ }
+ return A.x;
+}
+
+there is one instance of `x' for each call to `pow', so this is an ugly
+implementation of exponentiation.
+
+ Loop constructs allocate a new frame in every iteration. This is so
+that higher-order functions can refer to variables of a specific
+iteration of a loop:
+
+void f();
+for(int i=0; i < 10; ++i) {
+ int x=i;
+ if(x==5) {
+ f=new void () { write(x); }
+ }
+}
+f();
+
+ Here, every iteration of the loop has its own variable `x', so `f()'
+will write `5'. If a variable in a loop is declared static, it will be
+allocated where the enclosing function or structure was defined (just
+as if it were declared static outside of the loop). For instance, in:
+
+void f() {
+ static int x;
+ for(int i=0; i < 10; ++i) {
+ static int y;
+ }
+}
+ both `x' and `y' will be allocated in the same place, which is also
+where `f' is also allocated.
+
+ Statements may also be declared static, in which case they are run
+at the place where the enclosing function or structure is defined.
+Declarations or statements not enclosed in a function or structure
+definition are already at the top level, so static modifiers are
+meaningless. A warning is given in such a case.
+
+ Since structures can have static fields, it is not always clear for
+a qualified name whether the qualifier is a variable or a type. For
+instance, in:
+
+struct A {
+ static int x;
+}
+pair A;
+
+int y=A.x;
+ does the `A' in `A.x' refer to the structure or to the pair variable.
+It is the convention in Asymptote that, if there is a non-function
+variable with the same name as the qualifier, the qualifier refers to
+that variable, and not to the type. This is regardless of what fields
+the variable actually possesses.
+
+
+File: asymptote.info, Node: LaTeX usage, Next: Base modules, Prev: Programming, Up: Top
+
+6 `LaTeX' usage
+***************
+
+`Asymptote' comes with a convenient `LaTeX' style file `asymptote.sty'
+that makes `LaTeX' `Asymptote'-aware. Entering `Asymptote' code
+directly into the `LaTeX' source file, at the point where it is needed,
+keeps figures organized and avoids the need to invent new file names
+for each figure. Simply add the line `\usepackage{asymptote}' at the
+beginning of your file and enclose your `Asymptote' code within a
+`\begin{asy}...\end{asy}' environment. As with the `LaTeX' `comment'
+environment, the `\end{asy}' command must appear on a line by itself,
+with no leading spaces or trailing commands/comments.
+
+ The sample `LaTeX' file below, named `latexusage.tex', can be run as
+follows:
+latex latexusage
+asy latexusage
+latex latexusage
+
+or
+
+pdflatex latexusage
+asy latexusage
+pdflatex latexusage
+
+ To switch between using `latex' and `pdflatex' you may first need to
+remove the files `latexusage-*', `latexusage_.pre', and
+`latexusage.aux'.
+
+ One can specify `width', `height', `viewportwidth',
+`viewportheight', and `attach' `keyval'-style options to the `asy'
+environment. The current version (1.07) of `asymptote.sty' supports the
+embedding of 3D PRC files, either inline or, using the `attach' option
+with the `attachfile2' (or older `attachfile') `LaTeX' package, as
+annotated (but printable) attachments. For many applications, the
+annotated attachment method tends to be more convenient. The default
+value of `viewportwidth' is `\the\linewidth' for inline 3D figures and
+`0' for attachments.
+
+ If the `inline' option is given to the `asymptote.sty' package,
+inline `LaTeX' code is generated instead of EPS or PDF files. This
+makes LaTeX symbols visible to the `\begin{asy}...\end{asy}'
+environment. In this mode, Asymptote correctly aligns LaTeX symbols
+defined outside of `\begin{asy}...\end{asy}', but treats their size as
+zero; an optional second string can be given to `Label' to provide an
+estimate of the unknown label size.
+
+ Note that if `latex' is used with the `inline' option, the labels
+might not show up in DVI viewers that cannot handle raw `PostScript'
+code. One can use `dvips'/`dvipdf' to produce `PostScript'/PDF output
+(we recommend using the modified version of `dvipdf' in the `Asymptote'
+patches directory, which accepts the `dvips -z' hyperdvi option).
+
+ An excellent tutorial by Dario Teixeira on integrating `Asymptote'
+and `LaTeX' is available at `http://dario.dse.nl/projects/asylatex/'.
+
+ Here now is `latexusage.tex':
+
+\documentclass[12pt]{article}
+
+% Use this form to include EPS (latex) or PDF (pdflatex) files:
+\usepackage{asymptote}
+
+% Use this form with latex or pdflatex to include inline LaTeX code:
+%\usepackage[inline]{asymptote}
+
+% Enable this line to support PDF hyperlinks:
+%\usepackage[setpagesize=false]{hyperref}
+
+% Enable this line for PDF attachments with asy environment option attach=true:
+%\usepackage[dvips]{attachfile2}
+
+\begin{document}
+
+\begin{asydef}
+// Global Asymptote definitions can be put here.
+usepackage("bm");
+texpreamble("\def\V#1{\bm{#1}}");
+// One can globally override the default toolbar settings here:
+// settings.toolbar=true;
+\end{asydef}
+
+Here is a venn diagram produced with Asymptote, drawn to width 4cm:
+
+\def\A{A}
+\def\B{\V{B}}
+
+%\begin{figure}
+\begin{center}
+\begin{asy}
+size(4cm,0);
+pen colour1=red;
+pen colour2=green;
+
+pair z0=(0,0);
+pair z1=(-1,0);
+pair z2=(1,0);
+real r=1.5;
+path c1=circle(z1,r);
+path c2=circle(z2,r);
+fill(c1,colour1);
+fill(c2,colour2);
+
+picture intersection=new picture;
+fill(intersection,c1,colour1+colour2);
+clip(intersection,c2);
+
+add(intersection);
+
+draw(c1);
+draw(c2);
+
+//draw("$\A$",box,z1); // Requires [inline] package option.
+//draw(Label("$\B$","$B$"),box,z2); // Requires [inline] package option.
+draw("$A$",box,z1);
+draw("$\V{B}$",box,z2);
+
+pair z=(0,-2);
+real m=3;
+margin BigMargin=Margin(0,m*dot(unit(z1-z),unit(z0-z)));
+
+draw(Label("$A\cap B$",0),conj(z)--z0,Arrow,BigMargin);
+draw(Label("$A\cup B$",0),z--z0,Arrow,BigMargin);
+draw(z--z1,Arrow,Margin(0,m));
+draw(z--z2,Arrow,Margin(0,m));
+
+shipout(bbox(0.25cm));
+\end{asy}
+%\caption{Venn diagram}\label{venn}
+\end{center}
+%\end{figure}
+
+Each graph is drawn in its own environment. One can specify the width
+and height to \LaTeX\ explicitly. This 3D example can be viewed
+interactively either with Adobe Reader or Asymptote's fast OpenGL-based
+renderer. It is often desirable to embed such files as annotated attachments;
+this requires the optional \verb+\usepackage{attachfile2}+ package and
+the \verb+{attach=true}+ option:
+\begin{center}
+\begin{asy}[height=4cm,attach=false]
+import three;
+currentprojection=orthographic(5,4,2);
+draw(unitcube,blue);
+label("$V-E+F=2$",(0,1,0.5),3Y,blue+fontsize(17));
+\end{asy}
+\end{center}
+
+One can also scale the figure to the full line width:
+\begin{center}
+\begin{asy}[width=\the\linewidth]
+pair z0=(0,0);
+pair z1=(2,0);
+pair z2=(5,0);
+pair zf=z1+0.75*(z2-z1);
+
+draw(z1--z2);
+dot(z1,red+0.15cm);
+dot(z2,darkgreen+0.3cm);
+label("$m$",z1,1.2N,red);
+label("$M$",z2,1.5N,darkgreen);
+label("$\hat{\ }$",zf,0.2*S,fontsize(24)+blue);
+
+pair s=-0.2*I;
+draw("$x$",z0+s--z1+s,N,red,Arrows,Bars,PenMargins);
+s=-0.5*I;
+draw("$\bar{x}$",z0+s--zf+s,blue,Arrows,Bars,PenMargins);
+s=-0.95*I;
+draw("$X$",z0+s--z2+s,darkgreen,Arrows,Bars,PenMargins);
+\end{asy}
+\end{center}
+\end{document}
+
+
+
+File: asymptote.info, Node: Base modules, Next: Options, Prev: LaTeX usage, Up: Top
+
+7 Base modules
+**************
+
+`Asymptote' currently ships with the following base modules:
+
+* Menu:
+
+* plain:: Default `Asymptote' base file
+* simplex:: Linear programming: simplex method
+* math:: Extend `Asymptote''s math capabilities
+* interpolate:: Interpolation routines
+* geometry:: Geometry routines
+* trembling:: Wavy lines
+* stats:: Statistics routines and histograms
+* patterns:: Custom fill and draw patterns
+* markers:: Custom path marker routines
+* tree:: Dynamic binary search tree
+* binarytree:: Binary tree drawing module
+* drawtree:: Tree drawing module
+* syzygy:: Syzygy and braid drawing module
+* feynman:: Feynman diagrams
+* roundedpath:: Round the sharp corners of paths
+* animation:: Embedded PDF and MPEG movies
+* embed:: Embedding movies, sounds, and 3D objects
+* slide:: Making presentations with `Asymptote'
+* MetaPost:: `MetaPost' compatibility routines
+* unicode:: Accept `unicode' (UTF-8) characters
+* latin1:: Accept `ISO 8859-1' characters
+* babel:: Interface to `LaTeX' `babel' package
+* labelpath:: Drawing curved labels
+* labelpath3:: Drawing curved labels in 3D
+* annotate:: Annotate your PDF files
+* CAD:: 2D CAD pen and measurement functions (DIN 15)
+* graph:: 2D linear & logarithmic graphs
+* palette:: Color density images and palettes
+* three:: 3D vector graphics
+* obj:: 3D obj files
+* graph3:: 3D linear & logarithmic graphs
+* grid3:: 3D grids
+* solids:: 3D solid geometry
+* tube:: 3D rotation minimizing tubes
+* flowchart:: Flowchart drawing routines
+* contour:: Contour lines
+* contour3:: Contour surfaces
+* slopefield:: Slope fields
+
+
+File: asymptote.info, Node: plain, Next: simplex, Up: Base modules
+
+7.1 `plain'
+===========
+
+This is the default `Asymptote' base file, which defines key parts of
+the drawing language (such as the `picture' structure).
+
+ By default, an implicit `private import plain;' occurs before
+translating a file and before the first command given in interactive
+mode. This also applies when translating files for module definitions
+(except when translating `plain', of course). This means that the
+types and functions defined in `plain' are accessible in almost all
+`Asymptote' code. Use the `-noautoplain' command-line option to disable
+this feature.
+
+
+File: asymptote.info, Node: simplex, Next: math, Prev: plain, Up: Base modules
+
+7.2 `simplex'
+=============
+
+This package solves the two-variable linear programming problem using
+the simplex method. It is used by the module `plain' for automatic
+sizing of pictures.
+
+
+File: asymptote.info, Node: math, Next: interpolate, Prev: simplex, Up: Base modules
+
+7.3 `math'
+==========
+
+This package extends `Asymptote''s mathematical capabilities with
+intersection algorithms and matrix arithmetic:
+
+`void drawline(picture pic=currentpicture, pair P, pair Q, pen p=currentpen);'
+ draw the visible portion of the (infinite) line going through `P'
+ and `Q', without altering the size of picture `pic', using pen `p'.
+
+`real intersect(triple P, triple Q, triple n, triple Z);'
+ returns the intersection time of the extension of the line segment
+ `PQ' with the plane perpendicular to `n' and passing through `Z'.
+
+`triple intersectionpoint(triple n0, triple P0, triple n1, triple P1);'
+ Return any point on the intersection of the two planes with normals
+ `n0' and `n1' passing through points `P0' and `P1', respectively.
+ If the planes are parallel, return `(infinity,infinity,infinity)'.
+
+``pair[] quarticroots(real a, real b, real c, real d, real e);''
+ returns the four complex roots of the quartic equation
+ ax^4+bx^3+cx^2+dx+e=0.
+
+
+
+File: asymptote.info, Node: interpolate, Next: geometry, Prev: math, Up: Base modules
+
+7.4 `interpolate'
+=================
+
+This module implements Lagrange, Hermite, and standard cubic spline
+interpolation in `Asymptote', as illustrated in the example
+`interpolate1.asy'.
+
+
+File: asymptote.info, Node: geometry, Next: trembling, Prev: interpolate, Up: Base modules
+
+7.5 `geometry'
+==============
+
+This module, written by Philippe Ivaldi, provides an extensive set of
+geometry routines, including `perpendicular' symbols and a `triangle'
+structure. It is documented here:
+`http://asymptote.sourceforge.net/geometry_en.pdf', including an
+extensive set of examples,
+`http://piprim.tuxfamily.org/asymptote/geometry/index.html', and an
+index:
+
+ `http://piprim.tuxfamily.org/asymptote/geometry/modules/geometry.asy.index.type.html'
+
+
+File: asymptote.info, Node: trembling, Next: stats, Prev: geometry, Up: Base modules
+
+7.6 `trembling'
+===============
+
+This module, written by Philippe Ivaldi and illustrated in the example
+`floatingdisk.asy', allows one to draw wavy lines, as if drawn by hand.
+Further examples are posted at
+`http://piprim.tuxfamily.org/asymptote/trembling/index.html'
+
+
+File: asymptote.info, Node: stats, Next: patterns, Prev: trembling, Up: Base modules
+
+7.7 `stats'
+===========
+
+This package implements a Gaussian random number generator and a
+collection of statistics routines, including `histogram' and
+`leastsquares'.
+
+
+File: asymptote.info, Node: patterns, Next: markers, Prev: stats, Up: Base modules
+
+7.8 `patterns'
+==============
+
+This package implements `Postscript' tiling patterns and includes
+several convenient pattern generation routines.
+
+
+File: asymptote.info, Node: markers, Next: tree, Prev: patterns, Up: Base modules
+
+7.9 `markers'
+=============
+
+This package implements specialized routines for marking paths and
+angles. The principal mark routine provided by this package is
+markroutine markinterval(int n=1, frame f, bool rotated=false);
+ which centers `n' copies of frame `f' within uniformly space intervals
+in arclength along the path, optionally rotated by the angle of the
+local tangent.
+
+ The `marker' (*note marker::) routine can be used to construct new
+markers from these predefined frames:
+
+frame stickframe(int n=1, real size=0, pair space=0, real angle=0,
+ pair offset=0, pen p=currentpen);
+
+frame circlebarframe(int n=1, real barsize=0,
+ real radius=0,real angle=0,
+ pair offset=0, pen p=currentpen,
+ filltype filltype=NoFill, bool above=false);
+
+frame crossframe(int n=3, real size=0, pair space=0,
+ real angle=0, pair offset=0, pen p=currentpen);
+
+frame tildeframe(int n=1, real size=0, pair space=0,
+ real angle=0, pair offset=0, pen p=currentpen);
+
+ For convenience, this module also constructs the markers
+`StickIntervalMarker', `CrossIntervalMarker',
+`CircleBarIntervalMarker', and `TildeIntervalMarker' from the above
+frames. The example `markers1.asy' illustrates the use of these markers:
+
+
+
+
+This package also provides a routine for marking an angle AOB:
+void markangle(picture pic=currentpicture, Label L="",
+ int n=1, real radius=0, real space=0,
+ pair A, pair O, pair B, arrowbar arrow=None,
+ pen p=currentpen, margin margin=NoMargin,
+ marker marker=nomarker);
+ as illustrated in the example `markers2.asy'.
+
+
+
+
+
+File: asymptote.info, Node: tree, Next: binarytree, Prev: markers, Up: Base modules
+
+7.10 `tree'
+===========
+
+This package implements an example of a dynamic binary search tree.
+
+
+File: asymptote.info, Node: binarytree, Next: drawtree, Prev: tree, Up: Base modules
+
+7.11 `binarytree'
+=================
+
+This module can be used to draw an arbitrary binary tree and includes an
+input routine for the special case of a binary search tree, as
+illustrated in the example `binarytreetest.asy':
+
+import binarytree;
+
+picture pic,pic2;
+
+binarytree bt=binarytree(1,2,4,nil,5,nil,nil,0,nil,nil,3,6,nil,nil,7);
+draw(pic,bt);
+
+binarytree st=searchtree(10,5,2,1,3,4,7,6,8,9,15,13,12,11,14,17,16,18,19);
+draw(pic2,st,blue);
+
+add(pic.fit(),(0,0),10N);
+add(pic2.fit(),(0,0),10S);
+
+
+
+
+File: asymptote.info, Node: drawtree, Next: syzygy, Prev: binarytree, Up: Base modules
+
+7.12 `drawtree'
+===============
+
+This is a simple tree drawing module used by the example `treetest.asy'.
+
+
+File: asymptote.info, Node: syzygy, Next: feynman, Prev: drawtree, Up: Base modules
+
+7.13 `syzygy'
+=============
+
+This module automates the drawing of braids, relations, and syzygies,
+along with the corresponding equations, as illustrated in the example
+`knots.asy'.
+
+
+File: asymptote.info, Node: feynman, Next: roundedpath, Prev: syzygy, Up: Base modules
+
+7.14 `feynman'
+==============
+
+This package, contributed by Martin Wiebusch, is useful for drawing
+Feynman diagrams, as illustrated by the examples `eetomumu.asy' and
+`fermi.asy'.
+
+
+File: asymptote.info, Node: roundedpath, Next: animation, Prev: feynman, Up: Base modules
+
+7.15 `roundedpath'
+==================
+
+This package, contributed by Stefan Knorr, is useful for rounding the
+sharp corners of paths, as illustrated in the example file
+`roundpath.asy'.
+
+
+File: asymptote.info, Node: animation, Next: embed, Prev: roundedpath, Up: Base modules
+
+7.16 `animation'
+================
+
+This module allows one to generate animations, as illustrated by the
+files `wheel.asy', `wavelet.asy', and `cube.asy' in the `animations'
+subdirectory of the examples directory. These animations use the
+`ImageMagick' `convert' program to `merge' multiple images into a GIF
+or MPEG movie.
+
+ The related `animate' module, derived from the `animation' module,
+generates higher-quality portable clickable PDF movies, with optional
+controls. This requires installing the package
+
+ `http://www.ctan.org/tex-archive/macros/latex/contrib/animate/animate.sty'
+ (version 2007/11/30 or later) in a new directory `animate' in the
+local `LaTeX' directory (for example, in
+`/usr/local/share/texmf/tex/latex/animate'). On `UNIX' systems, one
+must then execute the command `texhash'.
+
+ The example `pdfmovie.asy' in the `animations' directory, along with
+the slide presentations `slidemovies.asy' and `intro.asy', illustrate
+the use of embedded PDF movies. The examples `inlinemovie.tex' and
+`inlinemovie3.tex' show how to generate and embed PDF movies directly
+within a `LaTeX' file (*note LaTeX usage::). The member function
+string pdf(fit fit=NoBox, real delay=animationdelay, string options="",
+ bool keep=settings.keep, bool multipage=true);
+ of the `animate' structure accepts any of the `animate.sty' options,
+as described here:
+
+ `http://www.ctan.org/tex-archive/macros/latex/contrib/animate/doc/animate.pdf'
+
+
+File: asymptote.info, Node: embed, Next: slide, Prev: animation, Up: Base modules
+
+7.17 `embed'
+============
+
+This module provides an interface to the `LaTeX' package (included with
+`MikTeX')
+
+ `http://www.ctan.org/tex-archive/macros/latex/contrib/movie15'
+ for embedding movies, sounds, and 3D objects into a PDF document. However,
+`XeLaTeX' users need to rename the modified version
+`movie15_dvipdfmx.sty' from
+
+ `http://asymptote.svn.sourceforge.net/viewvc/asymptote/trunk/asymptote/patches/'
+ to `movie15.sty' and place it in their `LaTeX' path.
+
+ The latest version (2008/10/08) of the `movie15' package requires
+both `pdflatex' version 1.20 or later and the file
+
+ `http://www.ctan.org/tex-archive/macros/latex/contrib/oberdiek/ifdraft.dtx'
+ which can be installed by placing it in a directory `ifdraft' in the
+local `LaTeX' directory (e.g.
+`/usr/local/share/texmf/tex/latex/ifdraft') and executing in that
+directory the commands:
+tex ifdraft.dtx
+texhash
+
+ An example of embedding `U3D' code is provided in the file
+`embeddedu3d.asy'. As of version 7.0.8, `Adobe Reader' supports the
+`U3D' format under Linux.
+
+ Unfortunately, Adobe has not yet made available an embedded movie
+plugin for the Linux version of `Adobe Reader'. A portable method for
+embedding movie files, which should work on any platform and does not
+require the `movie15' or `ifdraft' packages, is provided by using the
+`external' module instead of `embed'. An example of these interfaces is
+provided in the file `embeddedmovie.asy' and `externalmovie.asy' in the
+`animations' subdirectory of the examples directory. For a higher
+quality movie generated directly by `Asymptote', use the `animate'
+module along with the `animate.sty' package to embed a portable PDF
+animation (*note animate::).
+
+
+File: asymptote.info, Node: slide, Next: MetaPost, Prev: embed, Up: Base modules
+
+7.18 `slide'
+============
+
+This package provides a simple yet high-quality facility for making
+presentation slides, including portable embedded PDF animations (see
+the file `slidemovies.asy'). A simple example is provided in the file
+`slidedemo.asy'.
+
+
+File: asymptote.info, Node: MetaPost, Next: unicode, Prev: slide, Up: Base modules
+
+7.19 `MetaPost'
+===============
+
+This package provides some useful routines to help `MetaPost' users
+migrate old `MetaPost' code to `Asymptote'. Further contributions here
+are welcome.
+
+ Unlike `MetaPost', `Asymptote' does not implicitly solve linear
+equations and therefore does not have the notion of a `whatever'
+unknown. The routine `extension' (*note extension::) provides a useful
+replacement for a common use of `whatever': finding the intersection
+point of the lines through `P', `Q' and `p', `q'. For less common
+occurrences of `whatever', one can use the built-in explicit linear
+equation solver `solve' instead.
+
+
+File: asymptote.info, Node: unicode, Next: latin1, Prev: MetaPost, Up: Base modules
+
+7.20 `unicode'
+==============
+
+Import this package at the beginning of the file to instruct `LaTeX' to
+accept `unicode' (UTF-8) standardized international characters. To use
+Cyrillic fonts, you will need to change the font encoding:
+import unicode;
+texpreamble("\usepackage{mathtext}\usepackage[russian]{babel}");
+defaultpen(font("T2A","cmr","m","n"));
+ Support for Chinese, Japanese, and Korean fonts is provided by the CJK
+package:
+
+ `http://www.ctan.org/tex-archive/languages/chinese/CJK/'
+ The following commands enable the CJK song family (within a label,
+you can also temporarily switch to another family, say kai, by
+prepending `"\CJKfamily{kai}"' to the label string):
+texpreamble("\usepackage{CJK}
+\AtBeginDocument{\begin{CJK*}{GBK}{song}}
+\AtEndDocument{\clearpage\end{CJK*}}");
+
+
+File: asymptote.info, Node: latin1, Next: babel, Prev: unicode, Up: Base modules
+
+7.21 `latin1'
+=============
+
+If you don't have `LaTeX' support for `unicode' installed, you can
+enable support for Western European languages (ISO 8859-1) by importing
+the module `latin1'. This module can be used as a template for
+providing support for other ISO 8859 alphabets.
+
+
+File: asymptote.info, Node: babel, Next: labelpath, Prev: latin1, Up: Base modules
+
+7.22 `babel'
+============
+
+This module implements the `LaTeX' `babel' package in `Asymptote'. For
+example:
+import babel;
+babel("german");
+
+
+File: asymptote.info, Node: labelpath, Next: labelpath3, Prev: babel, Up: Base modules
+
+7.23 `labelpath'
+================
+
+This module uses the `PSTricks' `pstextpath' macro to fit labels along
+a path (properly kerned, as illustrated in the example file
+`curvedlabel.asy'), using the command
+void labelpath(picture pic=currentpicture, Label L, path g,
+ string justify=Centered, pen p=currentpen);
+ Here `justify' is one of `LeftJustified', `Centered', or
+`RightJustified'. The x component of a shift transform applied to the
+Label is interpreted as a shift along the curve, whereas the y
+component is interpreted as a shift away from the curve. All other
+Label transforms are ignored. This package requires the `latex' tex
+engine and inherits the limitations of the `PSTricks' `\pstextpath'
+macro.
+
+
+File: asymptote.info, Node: labelpath3, Next: annotate, Prev: labelpath, Up: Base modules
+
+7.24 `labelpath3'
+=================
+
+This module, contributed by Jens Schwaiger, implements a 3D version of
+`labelpath' that does not require the `PSTricks' package. An example
+is provided in `curvedlabel3.asy'.
+
+
+File: asymptote.info, Node: annotate, Next: CAD, Prev: labelpath3, Up: Base modules
+
+7.25 `annotate'
+===============
+
+This module supports PDF annotations for viewing with `Adobe Reader',
+via the function
+void annotate(picture pic=currentpicture, string title, string text,
+ pair position);
+ Annotations are illustrated in the example file `annotation.asy'.
+Currently, annotations are only implemented for the `latex' (default)
+and `tex' TeX engines.
+
+
+File: asymptote.info, Node: CAD, Next: graph, Prev: annotate, Up: Base modules
+
+7.26 `CAD'
+==========
+
+This package, contributed by Mark Henning, provides basic pen
+definitions and measurement functions for simple 2D CAD drawings
+according to DIN 15. It is documented separately, in the file `CAD.pdf'.
+
+
+File: asymptote.info, Node: graph, Next: palette, Prev: CAD, Up: Base modules
+
+7.27 `graph'
+============
+
+This package implements two-dimensional linear and logarithmic graphs,
+including automatic scale and tick selection (with the ability to
+override manually). A graph is a `guide' (that can be drawn with the
+draw command, with an optional legend) constructed with one of the
+following routines:
+
+ * guide graph(picture pic=currentpicture, real f(real), real a, real b,
+ int n=ngraph, real T(real)=identity,
+ interpolate join=operator --);
+ guide[] graph(picture pic=currentpicture, real f(real), real a, real b,
+ int n=ngraph, real T(real)=identity, bool3 cond(real),
+ interpolate join=operator --);
+
+ Returns a graph using the scaling information for picture `pic'
+ (*note automatic scaling::) of the function `f' on the interval
+ [`T'(`a'),`T'(`b')], sampling at `n' points evenly spaced in
+ [`a',`b'], optionally restricted by the bool3 function `cond' on
+ [`a',`b']. If `cond' is:
+ * `true', the point is added to the existing guide;
+
+ * `default', the point is added to a new guide;
+
+ * `false', the point is omitted and a new guide is begun.
+ Th points are connected using the interpolation specified by
+ `join':
+ * `operator --' (linear interpolation; the abbreviation
+ `Straight' is also accepted);
+
+ * `operator ..' (piecewise Bezier cubic spline interpolation;
+ the abbreviation `Spline' is also accepted);
+
+ * `Hermite' (standard cubic spline interpolation using boundary
+ condition `notaknot', `natural', `periodic', `clamped(real
+ slopea, real slopeb)'), or `monotonic'. The abbreviation
+ `Hermite' is equivalent to `Hermite(notaknot)' for
+ nonperiodic data and `Hermite(periodic)' for periodic data).
+
+
+ * guide graph(picture pic=currentpicture, real x(real), real y(real),
+ real a, real b, int n=ngraph, real T(real)=identity,
+ interpolate join=operator --);
+ guide[] graph(picture pic=currentpicture, real x(real), real y(real),
+ real a, real b, int n=ngraph, real T(real)=identity,
+ bool3 cond(real), interpolate join=operator --);
+
+ Returns a graph using the scaling information for picture `pic' of
+ the parametrized function (`x'(t),`y'(t)) for t in the interval
+ [`T'(`a'),`T'(`b')], sampling at `n' points evenly spaced in
+ [`a',`b'], optionally restricted by the bool3 function `cond' on
+ [`a',`b'], using the given interpolation type.
+
+ * guide graph(picture pic=currentpicture, pair z(real), real a, real b,
+ int n=ngraph, real T(real)=identity,
+ interpolate join=operator --);
+ guide[] graph(picture pic=currentpicture, pair z(real), real a, real b,
+ int n=ngraph, real T(real)=identity, bool3 cond(real),
+ interpolate join=operator --);
+
+ Returns a graph using the scaling information for picture `pic' of
+ the parametrized function `z'(t) for t in the interval
+ [`T'(`a'),`T'(`b')], sampling at `n' points evenly spaced in
+ [`a',`b'], optionally restricted by the bool3 function `cond' on
+ [`a',`b'], using the given interpolation type.
+
+ * guide graph(picture pic=currentpicture, pair[] z,
+ interpolate join=operator --);
+ guide[] graph(picture pic=currentpicture, pair[] z, bool3[] cond,
+ interpolate join=operator --);
+
+ Returns a graph using the scaling information for picture `pic' of
+ the elements of the array `z', optionally restricted to those
+ indices for which the elements of the boolean array `cond' are
+ `true', using the given interpolation type.
+
+ * guide graph(picture pic=currentpicture, real[] x, real[] y,
+ interpolate join=operator --);
+ guide[] graph(picture pic=currentpicture, real[] x, real[] y,
+ bool3[] cond, interpolate join=operator --);
+
+ Returns a graph using the scaling information for picture `pic' of
+ the elements of the arrays (`x',`y'), optionally restricted to
+ those indices for which the elements of the boolean array `cond'
+ are `true', using the given interpolation type.
+
+ * guide polargraph(picture pic=currentpicture, real f(real), real a,
+ real b, int n=ngraph, interpolate join=operator --);
+
+ Returns a polar-coordinate graph using the scaling information for
+ picture `pic' of the function `f' on the interval [`a',`b'],
+ sampling at `n' evenly spaced points, with the given interpolation
+ type.
+
+
+
+
+ An axis can be drawn on a picture with one of the following commands:
+
+ * void xaxis(picture pic=currentpicture, Label L="", axis axis=YZero,
+ real xmin=-infinity, real xmax=infinity, pen p=currentpen,
+ ticks ticks=NoTicks, arrowbar arrow=None, bool above=false);
+
+ Draw an x axis on picture `pic' from x=`xmin' to x=`xmax' using
+ pen `p', optionally labelling it with Label `L'. The relative
+ label location along the axis (a real number from [0,1]) defaults
+ to 1 (*note Label::), so that the label is drawn at the end of the
+ axis. An infinite value of `xmin' or `xmax' specifies that the
+ corresponding axis limit will be automatically determined from the
+ picture limits. The optional `arrow' argument takes the same
+ values as in the `draw' command (*note arrows::). The axis is
+ drawn before any existing objects in the current picture unless
+ `above=true'. The axis placement is determined by one of the
+ following `axis' types:
+
+ `YZero(bool extend=true)'
+ Request an x axis at y=0 (or y=1 on a logarithmic axis)
+ extending to the full dimensions of the picture, unless
+ `extend'=false.
+
+ `YEquals(real Y, bool extend=true)'
+ Request an x axis at y=`Y' extending to the full dimensions
+ of the picture, unless `extend'=false.
+
+ `Bottom(bool extend=false)'
+ Request a bottom axis.
+
+ `Top(bool extend=false)'
+ Request a top axis.
+
+ `BottomTop(bool extend=false)'
+ Request a bottom and top axis.
+
+
+ Custom axis types can be created by following the examples in
+ `graph.asy'. One can easily override the default values for the
+ standard axis types: import graph;
+
+ YZero=new axis(bool extend=true) {
+ return new void(picture pic, axisT axis) {
+ real y=pic.scale.x.scale.logarithmic ? 1 : 0;
+ axis.value=I*pic.scale.y.T(y);
+ axis.position=1;
+ axis.side=right;
+ axis.align=2.5E;
+ axis.value2=Infinity;
+ axis.extend=extend;
+ };
+ };
+ YZero=YZero();
+
+ The default tick option is `NoTicks'. The options `LeftTicks',
+ `RightTicks', or `Ticks' can be used to draw ticks on the left,
+ right, or both sides of the path, relative to the direction in
+ which the path is drawn. These tick routines accept a number of
+ optional arguments: ticks LeftTicks(Label format="", ticklabel ticklabel=null,
+ bool beginlabel=true, bool endlabel=true,
+ int N=0, int n=0, real Step=0, real step=0,
+ bool begin=true, bool end=true, tickmodifier modify=None,
+ real Size=0, real size=0, bool extend=false,
+ pen pTick=nullpen, pen ptick=nullpen);
+
+ If any of these parameters are omitted, reasonable defaults will
+ be chosen:
+ `Label format'
+ override the default tick label format (`defaultformat',
+ initially "$%.4g$"), rotation, pen, and alignment (for
+ example, `LeftSide', `Center', or `RightSide') relative to
+ the axis. To enable `LaTeX' math mode fonts, the format
+ string should begin and end with `$' *note format::. If the
+ format string is `trailingzero', trailing zeros will be added
+ to the tick labels; if the format string is `"%"', the tick
+ label will be suppressed;
+
+ `ticklabel'
+ is a function `string(real x)' returning the label (by
+ default, format(format.s,x)) for each major tick value `x';
+
+ `bool beginlabel'
+ include the first label;
+
+ `bool endlabel'
+ include the last label;
+
+ `int N'
+ when automatic scaling is enabled (the default; *note
+ automatic scaling::), divide a linear axis evenly into this
+ many intervals, separated by major ticks; for a logarithmic
+ axis, this is the number of decades between labelled ticks;
+
+ `int n'
+ divide each interval into this many subintervals, separated
+ by minor ticks;
+
+ `real Step'
+ the tick value spacing between major ticks (if `N'=`0');
+
+ `real step'
+ the tick value spacing between minor ticks (if `n'=`0');
+
+ `bool begin'
+ include the first major tick;
+
+ `bool end'
+ include the last major tick;
+
+ `tickmodifier modify;'
+ an optional function that takes and returns a `tickvalue'
+ structure having real[] members `major' and `minor'
+ consisting of the tick values (to allow modification of the
+ automatically generated tick values);
+
+ `real Size'
+ the size of the major ticks (in `PostScript' coordinates);
+
+ `real size'
+ the size of the minor ticks (in `PostScript' coordinates);
+
+ `bool extend;'
+ extend the ticks between two axes (useful for drawing a grid
+ on the graph);
+
+ `pen pTick'
+ an optional pen used to draw the major ticks;
+
+ `pen ptick'
+ an optional pen used to draw the minor ticks.
+
+
+ For convenience, the predefined tickmodifier `OmitTick(... real[]
+ x)' tickmodifier can be used to remove specific auto-generated
+ ticks and their labels. The `OmitFormat(string s=defaultformat ...
+ real[] x)' ticklabel can be used to remove specific tick labels
+ but not the corresponding ticks. The tickmodifier `NoZero' is an
+ abbreviation for `OmitTick(0)' and the ticklabel `NoZeroFormat' is
+ an abbrevation for `OmitFormat(0)'.
+
+ It is also possible to specify custom tick locations with
+ `LeftTicks', `RightTicks', and `Ticks' by passing explicit real
+ arrays `Ticks' and (optionally) `ticks' containing the locations
+ of the major and minor ticks, respectively: ticks LeftTicks(Label format="", ticklabel ticklabel=null,
+ bool beginlabel=true, bool endlabel=true,
+ real[] Ticks, real[] ticks=new real[],
+ real Size=0, real size=0, bool extend=false,
+ pen pTick=nullpen, pen ptick=nullpen)
+
+ * void yaxis(picture pic=currentpicture, Label L="", axis axis=XZero,
+ real ymin=-infinity, real ymax=infinity, pen p=currentpen,
+ ticks ticks=NoTicks, arrowbar arrow=None, bool above=false);
+
+ Draw a y axis on picture `pic' from y=`ymin' to y=`ymax' using pen
+ `p', optionally labelling it with Label `L'. The relative location
+ of the label (a real number from [0,1]) defaults to 1 (*note
+ Label::). An infinite value of `ymin' or `ymax' specifies that the
+ corresponding axis limit will be automatically determined from the
+ picture limits. The optional `arrow' argument takes the same
+ values as in the `draw' command (*note arrows::). The axis is
+ drawn before any existing objects in the current picture unless
+ `above=true'. The tick type is specified by `ticks' and the axis
+ placement is determined by one of the following `axis' types:
+
+ `XZero(bool extend=true)'
+ Request a y axis at x=0 (or x=1 on a logarithmic axis)
+ extending to the full dimensions of the picture, unless
+ `extend'=false.
+
+ `XEquals(real X, bool extend=true)'
+ Request a y axis at x=`X' extending to the full dimensions of
+ the picture, unless `extend'=false.
+
+ `Left(bool extend=false)'
+ Request a left axis.
+
+ `Right(bool extend=false)'
+ Request a right axis.
+
+ `LeftRight(bool extend=false)'
+ Request a left and right axis.
+
+
+ * For convenience, the functions void xequals(picture pic=currentpicture, Label L="", real x,
+ bool extend=false, real ymin=-infinity, real ymax=infinity,
+ pen p=currentpen, ticks ticks=NoTicks, bool above=true,
+ arrowbar arrow=None);
+ and void yequals(picture pic=currentpicture, Label L="", real y,
+ bool extend=false, real xmin=-infinity, real xmax=infinity,
+ pen p=currentpen, ticks ticks=NoTicks, bool above=true,
+ arrowbar arrow=None);
+ can be respectively used to call `yaxis' and `xaxis' with the
+ appropriate axis types `XEquals(x,extend)' and
+ `YEquals(y,extend)'. This is the recommended way of drawing
+ vertical or horizontal lines and axes at arbitrary locations.
+
+ * void axes(picture pic=currentpicture, Label xlabel="", Label ylabel="",
+ pair min=(-infinity,-infinity), pair max=(infinity,infinity),
+ pen p=currentpen, arrowbar arrow=None, bool above=false);
+ This convenience routine draws both x and y axes on picture `pic'
+ from `min' to `max', with optional labels `xlabel' and `ylabel'
+ and any arrows specified by `arrow'. The axes are drawn on top of
+ existing objects in the current picture only if `above=true'.
+
+ * void axis(picture pic=currentpicture, Label L="", path g,
+ pen p=currentpen, ticks ticks, ticklocate locate,
+ arrowbar arrow=None, int[] divisor=new int[],
+ bool above=false, bool opposite=false);
+
+ This routine can be used to draw on picture `pic' a general axis
+ based on an arbitrary path `g', using pen `p'. One can optionally
+ label the axis with Label `L' and add an arrow `arrow'. The tick
+ type is given by `ticks'. The optional integer array `divisor'
+ specifies what tick divisors to try in the attempt to produce
+ uncrowded tick labels. A `true' value for the flag `opposite'
+ identifies an unlabelled secondary axis (typically drawn opposite
+ a primary axis). The axis is drawn before any existing objects in
+ the current picture unless `above=true'. The tick locator
+ `ticklocate' is constructed by the routine ticklocate ticklocate(real a, real b, autoscaleT S=defaultS,
+ real tickmin=-infinity, real tickmax=infinity,
+ real time(real)=null, pair dir(real)=zero);
+ where `a' and `b' specify the respective tick values at
+ `point(g,0)' and `point(g,length(g))', `S' specifies the
+ autoscaling transformation, the function `real time(real v)'
+ returns the time corresponding to the value `v', and `pair
+ dir(real t)' returns the absolute tick direction as a function of
+ `t' (zero means draw the tick perpendicular to the axis).
+
+ * These routines are useful for manually putting ticks and labels on
+ axes (if the variable `Label' is given as the `Label' argument,
+ the `format' argument will be used to format a string based on the
+ tick location): void xtick(picture pic=currentpicture, Label L="", explicit pair z,
+ pair dir=N, string format="",
+ real size=Ticksize, pen p=currentpen);
+ void xtick(picture pic=currentpicture, Label L="", real x,
+ pair dir=N, string format="",
+ real size=Ticksize, pen p=currentpen);
+ void ytick(picture pic=currentpicture, Label L="", explicit pair z,
+ pair dir=E, string format="",
+ real size=Ticksize, pen p=currentpen);
+ void ytick(picture pic=currentpicture, Label L="", real y,
+ pair dir=E, string format="",
+ real size=Ticksize, pen p=currentpen);
+ void tick(picture pic=currentpicture, pair z,
+ pair dir, real size=Ticksize, pen p=currentpen);
+ void labelx(picture pic=currentpicture, Label L="", explicit pair z,
+ align align=S, string format="", pen p=nullpen);
+ void labelx(picture pic=currentpicture, Label L="", real x,
+ align align=S, string format="", pen p=nullpen);
+ void labelx(picture pic=currentpicture, Label L,
+ string format="", explicit pen p=currentpen);
+ void labely(picture pic=currentpicture, Label L="", explicit pair z,
+ align align=W, string format="", pen p=nullpen);
+ void labely(picture pic=currentpicture, Label L="", real y,
+ align align=W, string format="", pen p=nullpen);
+ void labely(picture pic=currentpicture, Label L,
+ string format="", explicit pen p=nullpen);
+
+ Here are some simple examples of two-dimensional graphs:
+
+ 1. This example draws a textbook-style graph of y= exp(x), with the y
+ axis starting at y=0: import graph;
+ size(150,0);
+
+ real f(real x) {return exp(x);}
+ pair F(real x) {return (x,f(x));}
+
+ xaxis("$x$");
+ yaxis("$y$",0);
+
+ draw(graph(f,-4,2,operator ..),red);
+
+ labely(1,E);
+ label("$e^x$",F(1),SE);
+
+
+
+ 2. The next example draws a scientific-style graph with a legend.
+ The position of the legend can be adjusted either explicitly or by
+ using the graphical user interface `xasy' (*note GUI::). If an
+ `UnFill(real xmargin=0, real ymargin=xmargin)' or `Fill(pen)'
+ option is specified to `add', the legend will obscure any
+ underlying objects. Here we illustrate how to clip the portion of
+ the picture covered by a label:
+
+ import graph;
+
+ size(400,200,IgnoreAspect);
+
+ real Sin(real t) {return sin(2pi*t);}
+ real Cos(real t) {return cos(2pi*t);}
+
+ draw(graph(Sin,0,1),red,"$\sin(2\pi x)$");
+ draw(graph(Cos,0,1),blue,"$\cos(2\pi x)$");
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks(trailingzero));
+
+ label("LABEL",point(0),UnFill(1mm));
+
+ add(legend(),point(E),20E,UnFill);
+
+
+
+ To specify a fixed size for the graph proper, use `attach': import graph;
+
+ size(250,200,IgnoreAspect);
+
+ real Sin(real t) {return sin(2pi*t);}
+ real Cos(real t) {return cos(2pi*t);}
+
+ draw(graph(Sin,0,1),red,"$\sin(2\pi x)$");
+ draw(graph(Cos,0,1),blue,"$\cos(2\pi x)$");
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks(trailingzero));
+
+ label("LABEL",point(0),UnFill(1mm));
+
+ attach(legend(),truepoint(E),20E,UnFill);
+ A legend can have multiple entries per line: import graph;
+ size(8cm,6cm,IgnoreAspect);
+
+ typedef real realfcn(real);
+ realfcn F(real p) {
+ return new real(real x) {return sin(p*x);};
+ };
+
+ for(int i=1; i < 5; ++i)
+ draw(graph(F(i*pi),0,1),Pen(i),
+ "$\sin("+(i == 1 ? "" : (string) i)+"\pi x)$");
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks(trailingzero));
+
+ attach(legend(2),(point(S).x,truepoint(S).y),10S,UnFill);
+
+
+
+ 3. This example draws a graph of one array versus another (both of
+ the same size) using custom tick locations and a smaller font size
+ for the tick labels on the y axis. import graph;
+
+ size(200,150,IgnoreAspect);
+
+ real[] x={0,1,2,3};
+ real[] y=x^2;
+
+ draw(graph(x,y),red);
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,
+ RightTicks(Label(fontsize(8)),new real[]{0,4,9}));
+
+
+
+ 4. This example shows how to graph columns of data read from a file. import graph;
+
+ size(200,150,IgnoreAspect);
+
+ file in=line(input("filegraph.dat"));
+ real[][] a=dimension(in,0,0);
+ a=transpose(a);
+
+ real[] x=a[0];
+ real[] y=a[1];
+
+ draw(graph(x,y),red);
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks);
+
+
+
+ 5. The next example draws two graphs of an array of coordinate pairs,
+ using frame alignment and data markers. In the left-hand graph, the
+ markers, constructed with marker marker(path g, markroutine markroutine=marknodes,
+ pen p=currentpen, filltype filltype=NoFill,
+ bool above=true);
+ using the path `unitcircle' (*note filltype::), are drawn below
+ each node. Any frame can be converted to a marker, using marker marker(frame f, markroutine markroutine=marknodes,
+ bool above=true);
+ In the right-hand graph, the unit n-sided regular polygon
+ `polygon(int n)' and the unit n-point cyclic cross `cross(int n,
+ bool round=true, real r=0)' (where `r' is an optional "inner"
+ radius) are used to build a custom marker frame. Here
+ `markuniform(bool centered=false, int n, bool rotated=false)' adds
+ this frame at `n' uniformly spaced points along the arclength of
+ the path, optionally rotated by the angle of the local tangent to
+ the path (if centered is true, the frames will be centered within
+ `n' evenly spaced arclength intervals). Alternatively, one can use
+ markroutine `marknodes' to request that the marks be placed at each
+ Bezier node of the path, or markroutine `markuniform(pair z(real
+ t), real a, real b, int n)' to place marks at points `z(t)' for n
+ evenly spaced values of `t' in `[a,b]'.
+
+ These markers are predefined: marker[] Mark={
+ marker(scale(circlescale)*unitcircle),
+ marker(polygon(3)),marker(polygon(4)),
+ marker(polygon(5)),marker(invert*polygon(3)),
+ marker(cross(4)),marker(cross(6))
+ };
+
+ marker[] MarkFill={
+ marker(scale(circlescale)*unitcircle,Fill),marker(polygon(3),Fill),
+ marker(polygon(4),Fill),marker(polygon(5),Fill),
+ marker(invert*polygon(3),Fill)
+ };
+
+ The example also illustrates the `errorbar' routines:
+
+ void errorbars(picture pic=currentpicture, pair[] z, pair[] dp,
+ pair[] dm={}, bool[] cond={}, pen p=currentpen,
+ real size=0);
+
+ void errorbars(picture pic=currentpicture, real[] x, real[] y,
+ real[] dpx, real[] dpy, real[] dmx={}, real[] dmy={},
+ bool[] cond={}, pen p=currentpen, real size=0);
+
+ Here, the positive and negative extents of the error are given by
+ the absolute values of the elements of the pair array `dp' and the
+ optional pair array `dm'. If `dm' is not specified, the positive
+ and negative extents of the error are assumed to be equal. import graph;
+
+ picture pic;
+ real xsize=200, ysize=140;
+ size(pic,xsize,ysize,IgnoreAspect);
+
+ pair[] f={(5,5),(50,20),(90,90)};
+ pair[] df={(0,0),(5,7),(0,5)};
+
+ errorbars(pic,f,df,red);
+ draw(pic,graph(pic,f),"legend",
+ marker(scale(0.8mm)*unitcircle,red,FillDraw(blue),above=false));
+
+ scale(pic,true);
+
+ xaxis(pic,"$x$",BottomTop,LeftTicks);
+ yaxis(pic,"$y$",LeftRight,RightTicks);
+ add(pic,legend(pic),point(pic,NW),20SE,UnFill);
+
+ picture pic2;
+ size(pic2,xsize,ysize,IgnoreAspect);
+
+ frame mark;
+ filldraw(mark,scale(0.8mm)*polygon(6),green,green);
+ draw(mark,scale(0.8mm)*cross(6),blue);
+
+ draw(pic2,graph(pic2,f),marker(mark,markuniform(5)));
+
+ scale(pic2,true);
+
+ xaxis(pic2,"$x$",BottomTop,LeftTicks);
+ yaxis(pic2,"$y$",LeftRight,RightTicks);
+
+ yequals(pic2,55.0,red+Dotted);
+ xequals(pic2,70.0,red+Dotted);
+
+ // Fit pic to W of origin:
+ add(pic.fit(),(0,0),W);
+
+ // Fit pic2 to E of (5mm,0):
+ add(pic2.fit(),(5mm,0),E);
+
+
+
+ 6. A custom mark routine can be also be specified: import graph;
+
+ size(200,100,IgnoreAspect);
+
+ markroutine marks() {
+ return new void(picture pic=currentpicture, frame f, path g) {
+ path p=scale(1mm)*unitcircle;
+ for(int i=0; i <= length(g); ++i) {
+ pair z=point(g,i);
+ frame f;
+ if(i % 4 == 0) {
+ fill(f,p);
+ add(pic,f,z);
+ } else {
+ if(z.y > 50) {
+ pic.add(new void(frame F, transform t) {
+ path q=shift(t*z)*p;
+ unfill(F,q);
+ draw(F,q);
+ });
+ } else {
+ draw(f,p);
+ add(pic,f,z);
+ }
+ }
+ }
+ };
+ }
+
+ pair[] f={(5,5),(40,20),(55,51),(90,30)};
+
+ draw(graph(f),marker(marks()));
+
+ scale(true);
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks);
+
+
+
+ 7. This example shows how to label an axis with arbitrary strings. import graph;
+
+ size(400,150,IgnoreAspect);
+
+ real[] x=sequence(12);
+ real[] y=sin(2pi*x/12);
+
+ scale(false);
+
+ string[] month={"Jan","Feb","Mar","Apr","May","Jun",
+ "Jul","Aug","Sep","Oct","Nov","Dec"};
+
+ draw(graph(x,y),red,MarkFill[0]);
+
+ xaxis(BottomTop,LeftTicks(new string(real x) {
+ return month[round(x % 12)];}));
+ yaxis("$y$",LeftRight,RightTicks(4));
+
+
+
+ 8. The next example draws a graph of a parametrized curve. The calls
+ to xlimits(picture pic=currentpicture, real min=-infinity,
+ real max=infinity, bool crop=NoCrop);
+ and the analogous function `ylimits' can be uncommented to set
+ the respective axes limits for picture `pic' to the specified
+ `min' and `max' values. Alternatively, the function void limits(picture pic=currentpicture, pair min, pair max, bool crop=NoCrop);
+ can be used to limit the axes to the box having opposite vertices
+ at the given pairs). Existing objects in picture `pic' will be
+ cropped to lie within the given limits if `crop'=`Crop'. The
+ function `crop(picture pic)' can be used to crop a graph to the
+ current graph limits. import graph;
+
+ size(0,200);
+
+ real x(real t) {return cos(2pi*t);}
+ real y(real t) {return sin(2pi*t);}
+
+ draw(graph(x,y,0,1));
+
+ //xlimits(0,1,Crop);
+ //ylimits(-1,0,Crop);
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks(trailingzero));
+
+
+
+ The next example illustrates how one can extract a common axis
+ scaling factor. import graph;
+
+ axiscoverage=0.9;
+ size(200,IgnoreAspect);
+
+ real[] x={-1e-11,1e-11};
+ real[] y={0,1e6};
+
+ real xscale=round(log10(max(x)));
+ real yscale=round(log10(max(y)))-1;
+
+ draw(graph(x*10^(-xscale),y*10^(-yscale)),red);
+
+ xaxis("$x/10^{"+(string) xscale+"}$",BottomTop,LeftTicks);
+ yaxis("$y/10^{"+(string) yscale+"}$",LeftRight,RightTicks(trailingzero));
+
+
+
+ Axis scaling can be requested and/or automatic selection of the
+ axis limits can be inhibited with one of these `scale' routines: void scale(picture pic=currentpicture, scaleT x, scaleT y);
+
+ void scale(picture pic=currentpicture, bool xautoscale=true,
+ bool yautoscale=xautoscale, bool zautoscale=yautoscale);
+
+ This sets the scalings for picture `pic'. The `graph' routines
+ accept an optional `picture' argument for determining the
+ appropriate scalings to use; if none is given, it uses those set
+ for `currentpicture'.
+
+ Two frequently used scaling routines `Linear' and `Log' are
+ predefined in `graph'.
+
+ All picture coordinates (including those in paths and those given
+ to the `label' and `limits' functions) are always treated as linear
+ (post-scaled) coordinates. Use pair Scale(picture pic=currentpicture, pair z);
+ to convert a graph coordinate into a scaled picture coordinate.
+
+ The x and y components can be individually scaled using the
+ analogous routines real ScaleX(picture pic=currentpicture, real x);
+ real ScaleY(picture pic=currentpicture, real y);
+
+ The predefined scaling routines can be given two optional boolean
+ arguments: `automin=false' and `automax=automin'. These default to
+ `false' but can be respectively set to `true' to enable automatic
+ selection of "nice" axis minimum and maximum values. The `Linear'
+ scaling can also take as optional final arguments a multiplicative
+ scaling factor and intercept (e.g. for a depth axis, `Linear(-1)'
+ requests axis reversal).
+
+ For example, to draw a log/log graph of a function, use
+ `scale(Log,Log)': import graph;
+
+ size(200,200,IgnoreAspect);
+
+ real f(real t) {return 1/t;}
+
+ scale(Log,Log);
+
+ draw(graph(f,0.1,10));
+
+ //xlimits(1,10);
+ //ylimits(0.1,1);
+
+ dot(Label("(3,5)",align=S),Scale((3,5)));
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$y$",LeftRight,RightTicks);
+
+
+
+ By extending the ticks, one can easily produce a logarithmic grid: import graph;
+ size(200,200,IgnoreAspect);
+
+ real f(real t) {return 1/t;}
+
+ scale(Log,Log);
+ draw(graph(f,0.1,10),red);
+ pen thin=linewidth(0.5*linewidth());
+ xaxis("$x$",BottomTop,LeftTicks(begin=false,end=false,extend=true,
+ ptick=thin));
+ yaxis("$y$",LeftRight,RightTicks(begin=false,end=false,extend=true,
+ ptick=thin));
+
+
+
+ One can also specify custom tick locations and formats for
+ logarithmic axes: import graph;
+
+ size(300,175,IgnoreAspect);
+ scale(Log,Log);
+ draw(graph(identity,5,20));
+ xlimits(5,20);
+ ylimits(1,100);
+ xaxis("$M/M_\odot$",BottomTop,LeftTicks(DefaultFormat,
+ new real[] {6,10,12,14,16,18}));
+ yaxis("$\nu_{\rm upp}$ [Hz]",LeftRight,RightTicks(DefaultFormat));
+
+
+
+ It is easy to draw logarithmic graphs with respect to other bases: import graph;
+ size(200,IgnoreAspect);
+
+ // Base-2 logarithmic scale on y-axis:
+
+ real log2(real x) {static real log2=log(2); return log(x)/log2;}
+ real pow2(real x) {return 2^x;}
+
+ scaleT yscale=scaleT(log2,pow2,logarithmic=true);
+ scale(Linear,yscale);
+
+ real f(real x) {return 1+x^2;}
+
+ draw(graph(f,-4,4));
+
+ yaxis("$y$",ymin=1,ymax=f(5),RightTicks(Label(Fill(white))),EndArrow);
+ xaxis("$x$",xmin=-5,xmax=5,LeftTicks,EndArrow);
+
+
+
+ Here is an example of "broken" linear x and logarithmic y axes
+ that omit the segments [3,8] and [100,1000], respectively. In the
+ case of a logarithmic axis, the break endpoints are automatically
+ rounded to the nearest integral power of the base. import graph;
+
+ size(200,150,IgnoreAspect);
+
+ // Break the x axis at 3; restart at 8:
+ real a=3, b=8;
+
+ // Break the y axis at 100; restart at 1000:
+ real c=100, d=1000;
+
+ scale(Broken(a,b),BrokenLog(c,d));
+
+ real[] x={1,2,4,6,10};
+ real[] y=x^4;
+
+ draw(graph(x,y),red,MarkFill[0]);
+
+ xaxis("$x$",BottomTop,LeftTicks(Break(a,b)));
+ yaxis("$y$",LeftRight,RightTicks(Break(c,d)));
+
+ label(rotate(90)*Break,(a,point(S).y));
+ label(rotate(90)*Break,(a,point(N).y));
+ label(Break,(point(W).x,ScaleY(c)));
+ label(Break,(point(E).x,ScaleY(c)));
+
+
+
+ 9. `Asymptote' can draw secondary axes with the routines picture secondaryX(picture primary=currentpicture, void f(picture));
+ picture secondaryY(picture primary=currentpicture, void f(picture));
+
+ In this example, `secondaryY' is used to draw a secondary linear y
+ axis against a primary logarithmic y axis: import graph;
+ texpreamble("\def\Arg{\mathop {\rm Arg}\nolimits}");
+
+ size(10cm,5cm,IgnoreAspect);
+
+ real ampl(real x) {return 2.5/(1+x^2);}
+ real phas(real x) {return -atan(x)/pi;}
+
+ scale(Log,Log);
+ draw(graph(ampl,0.01,10));
+ ylimits(0.001,100);
+
+ xaxis("$\omega\tau_0$",BottomTop,LeftTicks);
+ yaxis("$|G(\omega\tau_0)|$",Left,RightTicks);
+
+ picture q=secondaryY(new void(picture pic) {
+ scale(pic,Log,Linear);
+ draw(pic,graph(pic,phas,0.01,10),red);
+ ylimits(pic,-1.0,1.5);
+ yaxis(pic,"$\Arg G/\pi$",Right,red,
+ LeftTicks("$% #.1f$",
+ begin=false,end=false));
+ yequals(pic,1,Dotted);
+ });
+ label(q,"(1,0)",Scale(q,(1,0)),red);
+ add(q);
+
+
+
+ A secondary logarithmic y axis can be drawn like this: import graph;
+
+ size(9cm,6cm,IgnoreAspect);
+ string data="secondaryaxis.csv";
+
+ file in=line(csv(input(data)));
+
+ string[] titlelabel=in;
+ string[] columnlabel=in;
+
+ real[][] a=dimension(in,0,0);
+ a=transpose(a);
+ real[] t=a[0], susceptible=a[1], infectious=a[2], dead=a[3], larvae=a[4];
+ real[] susceptibleM=a[5], exposed=a[6],infectiousM=a[7];
+
+ scale(true);
+
+ draw(graph(t,susceptible,t >= 10 & t <= 15));
+ draw(graph(t,dead,t >= 10 & t <= 15),dashed);
+
+ xaxis("Time ($\tau$)",BottomTop,LeftTicks);
+ yaxis(Left,RightTicks);
+
+ picture secondary=secondaryY(new void(picture pic) {
+ scale(pic,Linear(true),Log(true));
+ draw(pic,graph(pic,t,infectious,t >= 10 & t <= 15),red);
+ yaxis(pic,Right,red,LeftTicks(begin=false,end=false));
+ });
+
+ add(secondary);
+ label(shift(5mm*N)*"Proportion of crows",point(NW),E);
+
+
+
+ 10. Here is a histogram example, which uses the `stats' module. import graph;
+ import stats;
+
+ size(400,200,IgnoreAspect);
+
+ int n=10000;
+ real[] a=new real[n];
+ for(int i=0; i < n; ++i) a[i]=Gaussrand();
+
+ draw(graph(Gaussian,min(a),max(a)),blue);
+
+ // Optionally calculate "optimal" number of bins a la Shimazaki and Shinomoto.
+ int N=bins(a);
+
+ histogram(a,min(a),max(a),N,normalize=true,low=0,lightred,black,bars=false);
+
+ xaxis("$x$",BottomTop,LeftTicks);
+ yaxis("$dP/dx$",LeftRight,RightTicks(trailingzero));
+
+
+
+ 11. Here is an example of reading column data in from a file and a
+ least-squares fit, using the `stats' module. size(400,200,IgnoreAspect);
+
+ import graph;
+ import stats;
+
+ file fin=line(input("leastsquares.dat"));
+
+ real[][] a=dimension(fin,0,0);
+ a=transpose(a);
+
+ real[] t=a[0], rho=a[1];
+
+ // Read in parameters from the keyboard:
+ //real first=getreal("first");
+ //real step=getreal("step");
+ //real last=getreal("last");
+
+ real first=100;
+ real step=50;
+ real last=700;
+
+ // Remove negative or zero values of rho:
+ t=rho > 0 ? t : null;
+ rho=rho > 0 ? rho : null;
+
+ scale(Log(true),Linear(true));
+
+ int n=step > 0 ? ceil((last-first)/step) : 0;
+
+ real[] T,xi,dxi;
+
+ for(int i=0; i <= n; ++i) {
+ real first=first+i*step;
+ real[] logrho=(t >= first & t <= last) ? log(rho) : null;
+ real[] logt=(t >= first & t <= last) ? -log(t) : null;
+
+ if(logt.length < 2) break;
+
+ // Fit to the line logt=L.m*logrho+L.b:
+ linefit L=leastsquares(logt,logrho);
+
+ T.push(first);
+ xi.push(L.m);
+ dxi.push(L.dm);
+ }
+
+ draw(graph(T,xi),blue);
+ errorbars(T,xi,dxi,red);
+
+ crop();
+
+ ylimits(0);
+
+ xaxis("$T$",BottomTop,LeftTicks);
+ yaxis("$\xi$",LeftRight,RightTicks);
+
+
+
+ 12. Here is an example that illustrates the general `axis' routine. import graph;
+ size(0,100);
+
+ path g=ellipse((0,0),1,2);
+
+ scale(true);
+
+ axis(Label("C",align=10W),g,LeftTicks(endlabel=false,8,end=false),
+ ticklocate(0,360,new real(real v) {
+ path h=(0,0)--max(abs(max(g)),abs(min(g)))*dir(v);
+ return intersect(g,h)[0];}));
+
+
+
+ 13. To draw a vector field of `n' arrows evenly spaced along the
+ arclength of a path, use the routine picture vectorfield(path vector(real), path g, int n, bool truesize=false,
+ pen p=currentpen, arrowbar arrow=Arrow);
+ as illustrated in this simple example of a flow field: import graph;
+ defaultpen(1.0);
+
+ size(0,150,IgnoreAspect);
+
+ real arrowsize=4mm;
+ real arrowlength=2arrowsize;
+
+ typedef path vector(real);
+
+ // Return a vector interpolated linearly between a and b.
+ vector vector(pair a, pair b) {
+ return new path(real x) {
+ return (0,0)--arrowlength*interp(a,b,x);
+ };
+ }
+
+ real f(real x) {return 1/x;}
+
+ real epsilon=0.5;
+ path g=graph(f,epsilon,1/epsilon);
+
+ int n=3;
+ draw(g);
+ xaxis("$x$");
+ yaxis("$y$");
+
+ add(vectorfield(vector(W,W),g,n,true));
+ add(vectorfield(vector(NE,NW),(0,0)--(point(E).x,0),n,true));
+ add(vectorfield(vector(NE,NE),(0,0)--(0,point(N).y),n,true));
+
+
+
+ 14. To draw a vector field of `nx'\times`ny' arrows in `box(a,b)', use
+ the routine picture vectorfield(path vector(pair), pair a, pair b,
+ int nx=nmesh, int ny=nx, bool truesize=false,
+ real maxlength=truesize ? 0 : maxlength(a,b,nx,ny),
+ bool cond(pair z)=null, pen p=currentpen,
+ arrowbar arrow=Arrow, margin margin=PenMargin)
+ as illustrated in this example: import graph;
+ size(100);
+
+ pair a=(0,0);
+ pair b=(2pi,2pi);
+
+ path vector(pair z) {return (0,0)--(sin(z.x),cos(z.y));}
+
+ add(vectorfield(vector,a,b));
+
+
+
+ 15. The following scientific graphs, which illustrate many features of
+ `Asymptote''s graphics routines, were generated from the examples
+ `diatom.asy' and `westnile.asy', using the comma-separated data in
+ `diatom.csv' and `westnile.csv'.
+
+
+
+
+
+
+
+File: asymptote.info, Node: palette, Next: three, Prev: graph, Up: Base modules
+
+7.28 `palette'
+==============
+
+`Asymptote' can also generate color density images and palettes. The
+following palettes are predefined in `palette.asy':
+
+`pen[] Grayscale(int NColors=256)'
+ a grayscale palette;
+
+`pen[] Rainbow(int NColors=32766)'
+ a rainbow spectrum;
+
+`pen[] BWRainbow(int NColors=32761)'
+ a rainbow spectrum tapering off to black/white at the ends;
+
+`pen[] BWRainbow2(int NColors=32761)'
+ a double rainbow palette tapering off to black/white at the ends,
+ with a linearly scaled intensity.
+
+`pen[] Wheel(int NColors=32766)'
+ a full color wheel palette;
+
+`pen[] Gradient(int NColors=256 ... pen[] p)'
+ a palette varying linearly over the specified array of pens, using
+ NColors in each interpolation interval;
+
+
+ The function `cmyk(pen[] Palette)' may be used to convert any of
+these palettes to the CMYK colorspace.
+
+ A color density plot using palette `palette' can be generated from a
+function `f'(x,y) and added to a picture `pic':
+bounds image(picture pic=currentpicture, real f(real,real),
+ range range=Full, pair initial, pair final,
+ int nx=ngraph, int ny=nx, pen[] palette, bool antialias=false)
+ The function `f' will be sampled at `nx' and `ny' evenly spaced points
+over a rectangle defined by the points `initial' and `final',
+respecting the current graphical scaling of `pic'. The color space is
+scaled according to the z axis scaling (*note automatic scaling::). A
+bounds structure for the function values is returned:
+struct bounds {
+ real min;
+ real max;
+ // Possible tick intervals:
+ int[] divisor;
+}
+ This information can be used for generating an optional palette bar.
+The palette color space corresponds to a range of values specified by
+the argument `range', which can be `Full', `Automatic', or an explicit
+range `Range(real min, real max)'. Here `Full' specifies a range
+varying from the minimum to maximum values of the function over the
+sampling interval, while `Automatic' selects "nice" limits. The
+example `imagecontour.asy' illustrates how level sets (contour lines)
+can be drawn on a color density plot (*note contour::).
+
+ A color density plot can also be generated from an explicit real[][]
+array `data':
+bounds image(picture pic=currentpicture, real[][] f, range range=Full,
+ pair initial, pair final, pen[] palette,
+ bool transpose=(initial.x < final.x && initial.y < final.y),
+ bool copy=true, bool antialias=false);
+ If the initial point is to the left and below the final point, by
+default the array indices are interpreted according to the Cartesian
+convention (first index: x, second index: y) rather than the usual
+matrix convention (first index: -y, second index: x).
+
+ To construct an image from an array of irregularly spaced points and
+an array of values `f' at these points, use one of the routines
+bounds image(picture pic=currentpicture, pair[] z, real[] f,
+ range range=Full, pen[] palette)
+bounds image(picture pic=currentpicture, real[] x, real[] y, real[] f,
+ range range=Full, pen[] palette)
+
+ An optionally labelled palette bar may be generated with the routine
+void palette(picture pic=currentpicture, Label L="", bounds bounds,
+ pair initial, pair final, axis axis=Right, pen[] palette,
+ pen p=currentpen, paletteticks ticks=PaletteTicks,
+ bool copy=true, bool antialias=false);
+ The color space of `palette' is taken to be over bounds `bounds' with
+scaling given by the z scaling of `pic'. The palette orientation is
+specified by `axis', which may be one of `Right', `Left', `Top', or
+`Bottom'. The bar is drawn over the rectangle from `initial' to
+`final'. The argument `paletteticks' is a special tick type (*note
+ticks::) that takes the following arguments:
+paletteticks PaletteTicks(Label format="", ticklabel ticklabel=null,
+ bool beginlabel=true, bool endlabel=true,
+ int N=0, int n=0, real Step=0, real step=0,
+ pen pTick=nullpen, pen ptick=nullpen);
+
+ The image and palette bar can be fit to a frame and added and
+optionally aligned to a picture at the desired location:
+
+size(12cm,12cm);
+
+import graph;
+import palette;
+
+int n=256;
+real ninv=2pi/n;
+real[][] v=new real[n][n];
+
+for(int i=0; i < n; ++i)
+ for(int j=0; j < n; ++j)
+ v[i][j]=sin(i*ninv)*cos(j*ninv);
+
+pen[] Palette=BWRainbow();
+
+picture bar;
+
+bounds range=image(v,(0,0),(1,1),Palette);
+palette(bar,"$A$",range,(0,0),(0.5cm,8cm),Right,Palette,
+ PaletteTicks("$%+#.1f$"));
+add(bar.fit(),point(E),30E);
+
+
+
+Here is an example that uses logarithmic scaling of the function values:
+
+import graph;
+import palette;
+
+size(10cm,10cm,IgnoreAspect);
+
+real f(real x, real y) {
+ return 0.9*pow10(2*sin(x/5+2*y^0.25)) + 0.1*(1+cos(10*log(y)));
+}
+
+scale(Linear,Log,Log);
+
+pen[] Palette=BWRainbow();
+
+bounds range=image(f,Automatic,(0,1),(100,100),nx=200,Palette);
+
+xaxis("$x$",BottomTop,LeftTicks,above=true);
+yaxis("$y$",LeftRight,RightTicks,above=true);
+
+palette("$f(x,y)$",range,(0,200),(100,250),Top,Palette,
+ PaletteTicks(ptick=linewidth(0.5*linewidth())));
+
+
+
+One can also draw an image directly from a two-dimensional pen array:
+void image(picture pic=currentpicture, pen[][] data,
+ pair initial, pair final,
+ bool transpose=(initial.x < final.x && initial.y < final.y),
+ bool copy=true, bool antialias=false);
+ as illustrated in the following example:
+
+size(200);
+
+import palette;
+
+int n=256;
+real ninv=2pi/n;
+pen[][] v=new pen[n][n];
+
+for(int i=0; i < n; ++i)
+ for(int j=0; j < n; ++j)
+ v[i][j]=rgb(0.5*(1+sin(i*ninv)),0.5*(1+cos(j*ninv)),0);
+
+image(v,(0,0),(1,1));
+
+
+
+For convenience, the module `palette' also defines functions that may
+be used to construct a pen array from a given function and palette:
+pen[] palette(real[] f, pen[] palette);
+pen[][] palette(real[][] f, pen[] palette);
+
+
+File: asymptote.info, Node: three, Next: obj, Prev: palette, Up: Base modules
+
+7.29 `three'
+============
+
+This module fully extends the notion of guides and paths in `Asymptote'
+to three dimensions. It introduces the new types guide3, path3, and
+surface. Guides in three dimensions are specified with the same syntax
+as in two dimensions except that triples `(x,y,z)' are used in place of
+pairs `(x,y)' for the nodes and direction specifiers. This
+generalization of John Hobby's spline algorithm is shape-invariant under
+three-dimensional rotation, scaling, and shifting, and reduces in the
+planar case to the two-dimensional algorithm used in `Asymptote',
+`MetaPost', and `MetaFont' [cf. J. C. Bowman, Proceedings in Applied
+Mathematics and Mechanics, 7:1, 2010021-2010022 (2007)].
+
+ For example, a unit circle in the XY plane may be filled and drawn
+like this:
+
+import three;
+
+size(100);
+
+path3 g=(1,0,0)..(0,1,0)..(-1,0,0)..(0,-1,0)..cycle;
+draw(g);
+draw(O--Z,red+dashed,Arrow3);
+draw(((-1,-1,0)--(1,-1,0)--(1,1,0)--(-1,1,0)--cycle));
+dot(g,red);
+
+
+and then distorted into a saddle:
+
+import three;
+
+size(100,0);
+path3 g=(1,0,0)..(0,1,1)..(-1,0,0)..(0,-1,1)..cycle;
+draw(g);
+draw(((-1,-1,0)--(1,-1,0)--(1,1,0)--(-1,1,0)--cycle));
+dot(g,red);
+
+
+Module `three' provides constructors for converting two-dimensional
+paths to three-dimensional ones, and vice-versa:
+path3 path3(path p, triple plane(pair)=XYplane);
+path path(path3 p, pair P(triple)=xypart);
+
+ A Bezier surface, the natural two-dimensional generalization of
+Bezier curves, is defined in `three_surface.asy' as a structure
+containing an array of Bezier patches. Surfaces may drawn with one of
+the routines
+void draw(picture pic=currentpicture, surface s, int nu=1, int nv=1,
+ material surfacepen=currentpen, pen meshpen=nullpen,
+ light light=currentlight, light meshlight=light);
+void draw(picture pic=currentpicture, surface s, int nu=1, int nv=1,
+ material[] surfacepen, pen meshpen,
+ light light=currentlight, light meshlight=light);
+void draw(picture pic=currentpicture, surface s, int nu=1, int nv=1,
+ material[] surfacepen, pen[] meshpen=nullpens,
+ light light=currentlight, light meshlight=light);
+ The parameters `nu' and `nv' specify the number of subdivisions for
+drawing optional mesh lines for each Bezier patch. Here material is a
+structure defined in `three_light.asy':
+struct material {
+ pen[] p; // diffusepen,ambientpen,emissivepen,specularpen
+ real opacity;
+ real shininess;
+ real granularity;
+...
+}
+ These material properties are used to implement `OpenGL'-style
+lighting, based on the Phong-Blinn specular model. Sample Bezier
+surfaces are contained in the example files `BezierSurface.asy',
+`teapot.asy', and `parametricsurface.asy'.
+
+ The examples `elevation.asy' and `sphericalharmonic.asy' illustrate
+how to draw a surface with patch-dependent colors. The examples
+`vertexshading' and `smoothelevation' illustrate vertex-dependent
+colors, which is supported for both `Asymptote''s native `OpenGL'
+renderer and two-dimensional projections. Since the PRC output format
+does not currently support vertex shading of Bezier surfaces, PRC
+patches are shaded with the mean of the four vertex colors.
+
+ A surface can be constructed from a cyclic `path3' with the
+constructor
+surface surface(path3 external, triple[] internal=new triple[],
+ triple[] normals=new triple[], pen[] colors=new pen[],
+ bool3 planar=default);
+ and then filled:
+draw(surface(path3(polygon(5))),red,nolight);
+draw(surface(unitcircle3),red,nolight);
+draw(surface(unitcircle3,new pen[] {red,green,blue,black}),nolight);
+ The last example constructs a patch with vertex-specific colors. A
+three-dimensional planar surface in the plane `plane' can be
+constructed from a two-dimensional cyclic path `g' with the constructor
+surface surface(path p, triple plane(pair)=XYplane);
+ and then filled:
+draw(surface((0,0)--E+2N--2E--E+N..0.2E..cycle),red);
+ Planar Bezier surfaces patches are constructed using Orest Shardt's
+`bezulate' routine, which decomposes (possibly nonsimply connected)
+regions bounded by nonselfintersecting cyclic paths (according to the
+`zerowinding' fill rule) into subregions bounded by cyclic paths of
+length `4' or less.
+
+ Arbitrary thick three-dimensional curves and line caps (which the
+`OpenGL' standard does not require implementations to provide) are
+constructed with the routine
+surface tube(path3 g, real width);
+ which returns a tube of diameter `width' centered on `g'. This can
+make files slow to render, especially with the `Adobe Reader' renderer.
+The setting `thick=false' can be used to disable this feature and force
+all lines to be drawn with `linewidth(0)' (one pixel wide, regardless
+of the resolution). By default mesh and contour lines in
+three-dimensions are always drawn thin, unless an explicit line width
+is given in the pen parameter or the setting `thin' is set to `false'.
+The pens `thin()' and `thick()' defined in plain_pens.asy can also be
+used to override these defaults for specific draw commands.
+
+There are four choices for viewing 3D `Asymptote' output:
+ 1. Use the native `Asymptote' adaptive `OpenGL'-based renderer (with
+ the command-line option `-V' and the default settings
+ `outformat=""' and `render=-1'). If you encounter warnings from
+ your graphics card driver, try specifying `-glOptions=-indirect'
+ on the command line. On `UNIX' systems with graphics support for
+ multisampling, we recommend installing the latest SVN (antialiased)
+ version of the `freeglut' library (*note multisampling::); the
+ sample width can be controlled with the setting `multisample'. An
+ initial screen position can be specified with the pair setting
+ `position', where negative values are interpreted as relative to
+ the corresponding maximum screen dimension. The mouse bindings are:
+ * Left: rotate
+
+ * shift Left: zoom
+
+ * ctrl Left: shift
+
+ * Middle: menu
+
+ * Wheel: zoom
+
+ * Right: zoom
+
+ * Right double click: menu
+
+ * shift Right: rotate about the X axis
+
+ * ctrl Right: rotate about the Y axis
+
+ * alt Right: rotate about the Z axis
+ The keyboard shortcuts are:
+ * h: home
+
+ * f: toggle fitscreen
+
+ * x: spin about the X axis
+
+ * y: spin about the Y axis
+
+ * z: spin about the Z axis
+
+ * s: stop spinning
+
+ * m: rendering mode (solid/mesh/patch)
+
+ * e: export
+
+ * c: show camera parameters
+
+ * +: expand
+
+ * =: expand
+
+ * -: shrink
+
+ * _: shrink
+
+ * q: exit
+
+ * Ctrl-q: exit
+
+ 2. Render the scene to a specified rasterized format `outformat' at
+ the resolution of `n' pixels per `bp', as specified by the setting
+ `render=n'. A negative value of `n' is interpreted as `|2n|' for
+ EPS and PDF formats and `|n|' for other formats. The default value
+ of `render' is -1. By default, the scene is internally rendered
+ at twice the specified resolution; this can be disabled by setting
+ `antialias=1'. High resolution rendering is done by tiling the
+ image. If your graphics card allows it, the rendering can be made
+ more efficient by increasing the maximum tile size `maxtile'
+ beyond the screen dimensions (indicated by `maxtile=(0,0)'. The
+ tile size is also limited by the setting `maxviewport', which
+ restricts the maximum width and height of the viewport. On `UNIX'
+ systems some graphics drivers support batch mode (`-noV')
+ rendering in an iconified window; this can be enabled with the
+ setting `iconify=true'. Other `UNIX' graphics drivers may require
+ the command line setting `-glOptions=-indirect'.
+
+ 3. Embed the 3D PRC format in a PDF file and view the resulting PDF
+ file with version `8.0' or later of `Adobe Reader'. In addition
+ to the default `settings.prc=true', this requires
+ `settings.outformat="pdf"', which can be specified by the command
+ line option `-f pdf', put in the `Asymptote' configuration file
+ (*note configuration file::), or specified in the script before
+ `three.asy' (or `graph3.asy') is imported. Version 2008/10/08 or
+ later of the `movie15' package is also required (*note embed::).
+ The example `pdb.asy' illustrates how one can generate a list of
+ predefined views (see `100d.views'). A stationary preview image
+ with a resolution of `n' pixels per `bp' can be embedded with the
+ setting `render=n'; this allows the file to be viewed with other
+ `PDF' viewers. Alternatively, the file `externalprc.tex'
+ illustrates how the resulting PRC and rendered image files can be
+ extracted and processed in a separate `LaTeX' file. However, see
+ *note LaTeX usage:: for an easier way to embed three-dimensional
+ `Asymptote' pictures within `LaTeX'. The open-source PRC
+ specification is available from
+ `http://livedocs.adobe.com/acrobat_sdk/9/Acrobat9_HTMLHelp/API_References/PRCReference/PRC_Format_Specification/'.
+
+ 4. Project the scene to a two-dimensional vector (EPS or PDF) format
+ with `render=0'. Only limited hidden surface removal facilities
+ are currently available with this approach (*note PostScript3D::).
+
+
+ Automatic picture sizing in three dimensions is accomplished with
+double deferred drawing. The maximal desired dimensions of the scene in
+each of the three dimensions can optionally be specified with the
+routine
+void size3(picture pic=currentpicture, real x, real y=x, real z=y,
+ bool keepAspect=pic.keepAspect);
+ The resulting simplex linear programming problem is then solved to
+produce a 3D version of a frame (actually implemented as a 3D picture).
+The result is then fit with another application of deferred drawing to
+the viewport dimensions corresponding to the usual two-dimensional
+picture `size' parameters. The global pair `viewportmargin' may be used
+to add horizontal and vertical margins to the viewport dimensions.
+Alternatively, a minimum `viewportsize' may be specified.
+
+ For convenience, the `three' module defines `O=(0,0,0)',
+`X=(1,0,0)', `Y=(0,1,0)', and `Z=(0,0,1)', along with a unitcircle in
+the XY plane:
+path3 unitcircle3=X..Y..-X..-Y..cycle;
+
+ A general (approximate) circle can be drawn perpendicular to the
+direction `normal' with the routine
+path3 circle(triple c, real r, triple normal=Z);
+
+ A circular arc centered at `c' with radius `r' from
+`c+r*dir(theta1,phi1)' to `c+r*dir(theta2,phi2)', drawing
+counterclockwise relative to the normal vector
+`cross(dir(theta1,phi1),dir(theta2,phi2))' if `theta2 > theta1' or if
+`theta2 == theta1' and `phi2 >= phi1', can be constructed with
+path3 arc(triple c, real r, real theta1, real phi1, real theta2, real phi2,
+ triple normal=O);
+ The normal must be explicitly specified if `c' and the endpoints are
+colinear. If `r' < 0, the complementary arc of radius `|r|' is
+constructed. For convenience, an arc centered at `c' from triple `v1'
+to `v2' (assuming `|v2-c|=|v1-c|') in the direction CCW
+(counter-clockwise) or CW (clockwise) may also be constructed with
+path3 arc(triple c, triple v1, triple v2, triple normal=O,
+ bool direction=CCW);
+ When high accuracy is needed, the routines `Circle' and `Arc' defined
+in `graph3' may be used instead. See *note GaussianSurface:: for an
+example of a three-dimensional circular arc.
+
+ The representation `O--O+u--O+u+v--O+v--cycle' of the plane passing
+through point `O' with normal `cross(u,v)' is returned by
+path3 plane(triple u, triple v, triple O=O);
+ A three-dimensional box with opposite vertices at triples `v1' and
+`v2' may be drawn with the function
+path3[] box(triple v1, triple v2);
+ For example, a unit box is predefined as
+path3[] unitbox=box(O,(1,1,1));
+ `Asymptote' also provides optimized definitions for the
+three-dimensional paths `unitsquare3' and `unitcircle3', along with the
+surfaces `unitdisk', `unitplane', `unitcube', `unitcylinder',
+`unitcone', `unitsolidcone', `unitfrustum(real t1, real t2)',
+`unitsphere', and `unithemisphere'.
+
+These projections to two dimensions are predefined:
+`oblique'
+
+`oblique(real angle);'
+ The point `(x,y,z)' is projected to `(x-0.5z,y-0.5z)'. If an
+ optional real argument is given, the negative z axis is drawn at
+ this angle in degrees. The projection `obliqueZ' is a synonym for
+ `oblique'.
+
+`obliqueX'
+
+`obliqueX(real angle)'
+ The point `(x,y,z)' is projected to `(y-0.5x,z-0.5x)'. If an
+ optional real argument is given, the negative x axis is drawn at
+ this angle in degrees.
+
+`obliqueY'
+
+`obliqueY(real angle)'
+ The point `(x,y,z)' is projected to `(x+0.5y,z+0.5y)'. If an
+ optional real argument is given, the positive y axis is drawn at
+ this angle in degrees.
+
+`orthographic(triple camera, triple up=Z, triple target=O,
+ bool showtarget=true, bool center=false)'
+ This projects from three to two dimensions using the view as seen
+ at a point infinitely far away in the direction `unit(camera)',
+ orienting the camera so that, if possible, the vector `up' points
+ upwards. Parallel lines are projected to parallel lines. The
+ bounding volume is expanded to include `target' if
+ `showtarget=true'. If `center=true', the target will be adjusted
+ to the center of the bounding volume.
+
+`orthographic(real x, real y, real z, triple up=Z, triple target=O,
+ bool showtarget=true, bool center=false)'
+ This is equivalent to
+ `orthographic((x,y,z),up,target,showtarget,center)'.
+
+`perspective(triple camera, triple up=Z, triple target=O,
+ bool showtarget=true, bool autoadjust=true,
+ bool center=autoadjust)'
+ This projects from three to two dimensions, taking account of
+ perspective, as seen from the location `camera' looking at
+ `target', orienting the camera so that, if possible, the vector
+ `up' points upwards. If `render=0', projection of
+ three-dimensional cubic Bezier splines is implemented by
+ approximating a two-dimensional nonuniform rational B-spline
+ (NURBS) with a two-dimensional Bezier curve containing additional
+ nodes and control points. If `autoadjust=true', the camera will
+ automatically be adjusted to lie outside the bounding volume for
+ all possible interactive rotations about `target'. If
+ `center=true', the target will be adjusted to the center of the
+ bounding volume.
+
+`perspective(real x, real y, real z, triple up=Z, triple target=O,
+ bool showtarget=true, bool autoadjust=true,
+ bool center=autoadjust)'
+ This is equivalent to `perspective((x,y,z),up,target,showtarget,
+ autoadjust,center)'.
+
+The default projection, `currentprojection', is initially set to
+`perspective(5,4,2)'.
+
+ We also define standard orthographic views used in technical drawing:
+projection LeftView=orthographic(-X,showtarget=true);
+projection RightView=orthographic(X,showtarget=true);
+projection FrontView=orthographic(-Y,showtarget=true);
+projection BackView=orthographic(Y,showtarget=true);
+projection BottomView=orthographic(-Z,showtarget=true);
+projection TopView=orthographic(Z,showtarget=true);
+ The function
+void addViews(picture dest=currentpicture, picture src, bool group=true,
+ filltype filltype=NoFill);
+ adds picture `pic' as seen with `FrontView' aligned above the
+projection `TopView' and to the right of the projection `RightView'.
+Alternatively, the function
+void addAllViews(picture dest=currentpicture, picture src,
+ real xmargin=0, real ymargin=xmargin,
+ bool group=true, filltype filltype=NoFill);
+ may be used to exhibit all six standard views, with FrontView,
+TopView, RightView in the upper row and BackView, BottomView, LeftView
+in the lower row.
+
+ A triple or path3 can be projected to a pair or path, with
+`project(triple, projection P=currentprojection)' or `project(path3,
+projection P=currentprojection)'.
+
+ It is occasionally useful to be able to invert a projection, sending
+a pair `z' onto the plane perpendicular to `normal' and passing through
+`point':
+triple invert(pair z, triple normal, triple point,
+ projection P=currentprojection);
+ A pair `z' on the projection plane can be inverted to a triple with
+the routine
+triple invert(pair z, projection P=currentprojection);
+ A pair direction `dir' on the projection plane can be inverted to a
+triple direction relative to a point `v' with the routine
+triple invert(pair dir, triple v, projection P=currentprojection).
+
+ Three-dimensional objects may be transformed with one of the
+following built-in transform3 types:
+
+`shift(triple v)'
+ translates by the triple `v';
+
+`xscale3(real x)'
+ scales by `x' in the x direction;
+
+`yscale3(real y)'
+ scales by `y' in the y direction;
+
+`zscale3(real z)'
+ scales by `z' in the z direction;
+
+`scale3(real s)'
+ scales by `s' in the x, y, and z directions;
+
+`scale(real x, real y, real z)'
+ scales by `x' in the x direction, by `y' in the y direction, and
+ by `z' in the z direction;
+
+`rotate(real angle, triple v)'
+ rotates by `angle' in degrees about an axis `v' through the origin;
+
+`rotate(real angle, triple u, triple v)'
+ rotates by `angle' in degrees about the axis `u--v';
+
+`reflect(triple u, triple v, triple w)'
+ reflects about the plane through `u', `v', and `w'.
+
+ Three-dimensional TeX Labels, which are by default drawn as Bezier
+surfaces directly on the projection plane, can be transformed from the
+`XY' plane by any of the above transforms or mapped to a specified
+two-dimensional plane with the transform3 types `XY', `YZ', `ZX', `YX',
+`ZY', `ZX'. There are also modified versions of these transforms that
+take an optional argument `projection P=currentprojection' that rotate
+and/or flip the label so that it is more readable from the initial
+viewpoint.
+
+ A transform3 that projects in the direction `dir' onto the plane
+with normal `n' through point `O' is returned by
+transform3 planeproject(triple n, triple O=O, triple dir=n);
+ One can use
+triple normal(path3 p);
+ to find the unit normal vector to a planar three-dimensional path `p'.
+As illustrated in the example `planeproject.asy', a transform3 that
+projects in the direction `dir' onto the plane defined by a planar path
+`p' is returned by
+transform3 planeproject(path3 p, triple dir=normal(p));
+
+ The functions
+surface extrude(path p, triple axis=Z);
+surface extrude(Label L, triple axis=Z);
+ return the surface obtained by extruding path `p' or Label `L' along
+`axis'.
+
+ Three-dimensional versions of the path functions `length', `size',
+`point', `dir', `accel', `radius', `precontrol', `postcontrol',
+`arclength', `arctime', `reverse', `subpath', `intersect',
+`intersections', `intersectionpoint', `intersectionpoints', `min',
+`max', `cyclic', and `straight' are also defined.
+
+ The routine
+real[][] intersections(path3 p, surface s, real fuzz=-1);
+ returns the intersection times of a path `p' with a surface `s' as a
+sorted array of real arrays of length 2, and
+triple[] intersectionpoints(path3 p, surface s, real fuzz=-1);
+ returns the corresponding intersection points. Here, the computations
+are performed to the absolute error specified by `fuzz', or if `fuzz <
+0', to machine precision.
+
+ Here is an example showing all five guide3 connectors:
+
+import graph3;
+
+size(200);
+
+currentprojection=orthographic(500,-500,500);
+
+triple[] z=new triple[10];
+
+z[0]=(0,100,0); z[1]=(50,0,0); z[2]=(180,0,0);
+
+for(int n=3; n <= 9; ++n)
+ z[n]=z[n-3]+(200,0,0);
+
+path3 p=z[0]..z[1]---z[2]::{Y}z[3]
+&z[3]..z[4]--z[5]::{Y}z[6]
+&z[6]::z[7]---z[8]..{Y}z[9];
+
+draw(p,grey+linewidth(4mm)+opacity(0.5));
+
+xaxis3(Label(XY()*"$x$",align=-3Y),red,above=true);
+yaxis3(Label(XY()*"$y$",align=-3X),red,above=true);
+
+dot(z);
+
+
+
+Three-dimensional versions of bars or arrows can be drawn with one of
+the specifiers `None', `Blank', `BeginBar3', `EndBar3' (or equivalently
+`Bar3'), `Bars3', `BeginArrow3', `MidArrow3', `EndArrow3' (or
+equivalently `Arrow3'), `Arrows3', `BeginArcArrow3', `EndArcArrow3' (or
+equivalently `ArcArrow3'), `MidArcArrow3', and `ArcArrows3'.
+Three-dimensional bars accept the optional arguments `(real size=0,
+triple dir=O)'. If `size=O', the default bar length is used; if
+`dir=O', the bar is drawn perpendicular to the path and the initial
+viewing direction. The predefined three-dimensional arrowhead styles
+are `DefaultHead3', `HookHead3', `TeXHead3'. Versions of the
+two-dimensional arrowheads lifted to three-dimensional space and
+aligned according to the initial viewpoint (or an optionally specified
+`normal' vector) are also defined: `DefaultHead2(triple normal=O)',
+`HookHead2(triple normal=O)', `TeXHead2(triple normal=O)'. These are
+illustrated in the example `arrows3.asy'.
+
+ Module `three' also defines the three-dimensional margins
+`NoMargin3', `BeginMargin3', `EndMargin3', `Margin3', `Margins3',
+`BeginPenMargin2', `EndPenMargin2', `PenMargin2', `PenMargins2',
+`BeginPenMargin3', `EndPenMargin3', `PenMargin3', `PenMargins3',
+`BeginDotMargin3', `EndDotMargin3', `DotMargin3', `DotMargins3',
+`Margin3', and `TrueMargin3'.
+
+ Further three-dimensional examples are provided in the files
+`near_earth.asy', `conicurv.asy', and (in the `animations'
+subdirectory) `cube.asy'.
+
+ Limited support for projected vector graphics (effectively
+three-dimensional nonrendered `PostScript') is available with the
+setting `render=0'. This currently only works for piecewise planar
+surfaces, such as those produced by the parametric `surface' routines
+in the `graph3' module. Surfaces produced by the `solids' package will
+also be properly rendered if the parameter `nslices' is sufficiently
+large.
+
+ In the module `bsp', hidden surface removal of planar pictures is
+implemented using a binary space partition and picture clipping. A
+planar path is first converted to a structure `face' derived from
+`picture'. A `face' may be given to a two-dimensional drawing routine
+in place of any `picture' argument. An array of such faces may then be
+drawn, removing hidden surfaces:
+void add(picture pic=currentpicture, face[] faces,
+ projection P=currentprojection);
+ Labels may be projected to two dimensions, using projection `P', onto
+the plane passing through point `O' with normal `cross(u,v)' by
+multiplying it on the left by the transform
+transform transform(triple u, triple v, triple O=O,
+ projection P=currentprojection);
+
+ Here is an example that shows how a binary space partition may be
+used to draw a two-dimensional vector graphics projection of three
+orthogonal intersecting planes:
+
+size(6cm,0);
+import bsp;
+
+real u=2.5;
+real v=1;
+
+currentprojection=oblique;
+
+path3 y=plane((2u,0,0),(0,2v,0),(-u,-v,0));
+path3 l=rotate(90,Z)*rotate(90,Y)*y;
+path3 g=rotate(90,X)*rotate(90,Y)*y;
+
+face[] faces;
+filldraw(faces.push(y),project(y),yellow);
+filldraw(faces.push(l),project(l),lightgrey);
+filldraw(faces.push(g),project(g),green);
+
+add(faces);
+
+
+
+
+File: asymptote.info, Node: obj, Next: graph3, Prev: three, Up: Base modules
+
+7.30 `obj'
+==========
+
+This module allows one to construct surfaces from simple obj files, as
+illustrated in the example files `galleon.asy' and `triceratops.asy'.
+
+
+File: asymptote.info, Node: graph3, Next: grid3, Prev: obj, Up: Base modules
+
+7.31 `graph3'
+=============
+
+This module implements three-dimensional versions of the functions in
+`graph.asy'. To draw an x axis in three dimensions, use the routine
+void xaxis3(picture pic=currentpicture, Label L="", axis axis=YZZero,
+ real xmin=-infinity, real xmax=infinity, pen p=currentpen,
+ ticks3 ticks=NoTicks3, arrowbar3 arrow=None, bool above=false);
+ Analogous routines `yaxis' and `zaxis' can be used to draw y and z
+axes in three dimensions. There is also a routine for drawing all
+three axis:
+void axes3(picture pic=currentpicture,
+ Label xlabel="", Label ylabel="", Label zlabel="",
+ triple min=(-infinity,-infinity,-infinity),
+ triple max=(infinity,infinity,infinity),
+ pen p=currentpen, arrowbar3 arrow=None);
+
+The predefined three-dimensional axis types are
+axis YZEquals(real y, real z, triple align=O, bool extend=false);
+axis XZEquals(real x, real z, triple align=O, bool extend=false);
+axis XYEquals(real x, real y, triple align=O, bool extend=false);
+axis YZZero(triple align=O, bool extend=false);
+axis XZZero(triple align=O, bool extend=false);
+axis XYZero(triple align=O, bool extend=false);
+axis Bounds(int type=Both, int type2=Both, triple align=O, bool extend=false);
+ The optional `align' parameter to these routines can be used to
+specify the default axis and tick label alignments. The `Bounds' axis
+accepts two type parameters, each of which must be one of `Min', `Max',
+or `Both'. These parameters specify which of the four possible
+three-dimensional bounding box edges should be drawn.
+
+ The three-dimensional tick options are `NoTicks3', `InTicks',
+`OutTicks', and `InOutTicks'. These specify the tick directions for the
+`Bounds' axis type; other axis types inherit the direction that would
+be used for the `Bounds(Min,Min)' axis.
+
+ Here is an example of a helix and bounding box axes with ticks and
+axis labels, using orthographic projection:
+
+import graph3;
+
+size(0,200);
+size3(200,IgnoreAspect);
+
+currentprojection=orthographic(4,6,3);
+
+real x(real t) {return cos(2pi*t);}
+real y(real t) {return sin(2pi*t);}
+real z(real t) {return t;}
+
+path3 p=graph(x,y,z,0,2.7,operator ..);
+
+draw(p,Arrow3);
+
+scale(true);
+
+xaxis3(XZ()*"$x$",Bounds(),red,InTicks(Label,2,2));
+yaxis3(YZ()*"$y$",Bounds(),red,InTicks(beginlabel=false,Label,2,2));
+zaxis3(XZ()*"$z$",Bounds(),red,InTicks);
+
+
+
+The next example illustrates three-dimensional x, y, and z axes,
+without autoscaling of the axis limits:
+
+import graph3;
+
+size(0,200);
+size3(200,IgnoreAspect);
+
+currentprojection=perspective(5,2,2);
+
+scale(Linear,Linear,Log);
+
+xaxis3("$x$",0,1,red,OutTicks(2,2));
+yaxis3("$y$",0,1,red,OutTicks(2,2));
+zaxis3("$z$",1,30,red,OutTicks(beginlabel=false));
+
+
+
+One can also place ticks along a general three-dimensional axis:
+
+import graph3;
+
+size(0,100);
+
+path3 g=yscale3(2)*unitcircle3;
+currentprojection=perspective(10,10,10);
+
+axis(Label("C",position=0,align=15X),g,InTicks(endlabel=false,8,end=false),
+ ticklocate(0,360,new real(real v) {
+ path3 h=O--max(abs(max(g)),abs(min(g)))*dir(90,v);
+ return intersect(g,h)[0];},
+ new triple(real t) {return cross(dir(g,t),Z);}));
+
+
+
+Surface plots of matrices and functions over the region `box(a,b)' in
+the XY plane are also implemented:
+surface surface(real[][] f, pair a, pair b, bool[][] cond={});
+surface surface(real[][] f, pair a, pair b, splinetype splinetype,
+ bool[][] cond={});
+surface surface(real[][] f, real[] x, real[] y,
+ splinetype splinetype=null, bool[][] cond={})
+surface surface(triple[][] f, bool[][] cond={});
+surface surface(real f(pair z), pair a, pair b, int nx=nmesh, int ny=nx,
+ bool cond(pair z)=null);
+surface surface(real f(pair z), pair a, pair b, int nx=nmesh, int ny=nx,
+ splinetype splinetype, bool cond(pair z)=null);
+surface surface(triple f(pair z), pair a, pair b, int nu=nmesh, int nv=nu,
+ bool cond(pair z)=null);
+ The final version draws a parametric surface for a function f(u,v)
+over the parameter space `box(a,b)', as illustrated in the example
+`parametricsurface.asy'. The boolean array or function `cond' can be
+used to control which surface mesh cells are actually drawn (by default
+all mesh cells over `box(a,b)' are drawn). Surface lighting is
+illustrated in the example files `parametricsurface.asy' and `sinc.asy'.
+Lighting can be disabled by setting `light=nolight', as in this example
+of a Gaussian surface:
+
+import graph3;
+
+size(200,0);
+
+currentprojection=perspective(10,8,4);
+
+real f(pair z) {return 0.5+exp(-abs(z)^2);}
+
+draw((-1,-1,0)--(1,-1,0)--(1,1,0)--(-1,1,0)--cycle);
+
+draw(arc(0.12Z,0.2,90,60,90,25),ArcArrow3);
+
+surface s=surface(f,(-1,-1),(1,1),nx=5,Spline);
+
+xaxis3(Label("$x$"),red,Arrow3);
+yaxis3(Label("$y$"),red,Arrow3);
+zaxis3(XYZero(extend=true),red,Arrow3);
+
+draw(s,lightgray,meshpen=black+thick(),nolight);
+
+label("$O$",O,-Z+Y,red);
+
+
+A mesh can be drawn without surface filling by specifying `nullpen' for
+the surfacepen.
+
+ A vector field of `nu'\times`nv' arrows on a parametric surface `f'
+over `box(a,b)' can be drawn with the routine
+picture vectorfield(path3 vector(pair v), triple f(pair z), pair a, pair b,
+ int nu=nmesh, int nv=nu, bool truesize=false,
+ real maxlength=truesize ? 0 : maxlength(f,a,b,nu,nv),
+ bool cond(pair z)=null, pen p=currentpen,
+ arrowbar3 arrow=Arrow3, margin3 margin=PenMargin3)
+ as illustrated in the examples `vectorfield3.asy' and
+`vectorfieldsphere.asy'.
+
+
+File: asymptote.info, Node: grid3, Next: solids, Prev: graph3, Up: Base modules
+
+7.32 `grid3'
+============
+
+This module, contributed by Philippe Ivaldi, can be used for drawing 3D
+grids. Here is an example (further examples can be found in `grid3.asy'
+and at `http://piprim.tuxfamily.org/asymptote/grid3/'):
+
+import grid3;
+
+size(8cm,0,IgnoreAspect);
+currentprojection=orthographic(0.5,1,0.5);
+
+scale(Linear, Linear, Log);
+
+limits((-2,-2,1),(0,2,100));
+
+grid3(XYZgrid);
+
+xaxis3(Label("$x$",position=EndPoint,align=S),Bounds(Min,Min),
+ OutTicks());
+yaxis3(Label("$y$",position=EndPoint,align=S),Bounds(Min,Min),OutTicks());
+zaxis3(Label("$z$",position=EndPoint,align=(-1,0.5)),Bounds(Min,Min),
+ OutTicks(beginlabel=false));
+
+
+
+
+File: asymptote.info, Node: solids, Next: tube, Prev: grid3, Up: Base modules
+
+7.33 `solids'
+=============
+
+This solid geometry package defines a structure `revolution' that can
+be used to fill and draw surfaces of revolution. The following example
+uses it to display the outline of a circular cylinder of radius 1 with
+axis `O--1.5unit(Y+Z)' with perspective projection:
+
+import solids;
+
+size(0,100);
+
+revolution r=cylinder(O,1,1.5,Y+Z);
+draw(r,heavygreen);
+
+
+
+Further illustrations are provided in the example files `cylinder.asy',
+`cones.asy', `hyperboloid.asy', and `torus.asy'.
+
+ The structure `skeleton' contains the three-dimensional wireframe
+used to visualize a volume of revolution:
+struct skeleton {
+ struct curve {
+ path3[] front;
+ path3[] back;
+ }
+ // transverse skeleton (perpendicular to axis of revolution)
+ curve transverse;
+ // longitudinal skeleton (parallel to axis of revolution)
+ curve longitudinal;
+}
+
+
+File: asymptote.info, Node: tube, Next: flowchart, Prev: solids, Up: Base modules
+
+7.34 `tube'
+===========
+
+This package extends the routine `tube' defined in `three_arrows.asy'
+to arbitrary cross sections, colors, and spine transformations. The
+routine
+surface tube(path3 g, coloredpath section,
+ transform T(real)=new transform(real t) {return identity();},
+ real corner=1, real relstep=0);
+ draws a tube along `g' with cross section `section', after applying
+the transformation `T(t)' at `relpoint(g,t)'. The parameter `corner'
+controls the number of elementary tubes at the angular points of `g'. A
+nonzero value of `relstep' specifies a fixed relative time step (in the
+sense of `relpoint(g,t)') to use in constructing elementary tubes along
+`g'. The type `coloredpath' is a generalization of `path' to which a
+`path' can be cast:
+struct coloredpath
+{
+ path p;
+ pen[] pens(real);
+ int colortype=coloredSegments;
+}
+ Here `p' defines the cross section and the method `pens(real t)'
+returns an array of pens (interpreted as a cyclic array) used for
+shading the tube patches at `relpoint(g,t)'. If
+`colortype=coloredSegments', the tube patches are filled as if each
+segment of the section was colored with the pen returned by `pens(t)',
+whereas if `colortype=coloredNodes', the tube components are vertex
+shaded as if the nodes of the section were colored.
+
+ A `coloredpath' can be constructed with one of the routines:
+coloredpath coloredpath(path p, pen[] pens(real),
+ int colortype=coloredSegments);
+coloredpath coloredpath(path p, pen[] pens=new pen[] {currentpen},
+ int colortype=coloredSegments);
+coloredpath coloredpath(path p, pen pen(real));
+ In the second case, the pens are independent of the relative time. In
+the third case, the array of pens contains only one pen, which depends
+of the relative time.
+
+ The casting of `path' to `coloredpath' allows the use of a `path'
+instead of a `coloredpath'; in this case the shading behaviour is the
+default shading behavior for a surface.
+
+ An example of `tube' is provided in the file `trefoilknot.asy'.
+Further examples can be found at
+`http://piprim.tuxfamily.org/asymptote/tube/'.
+
+
+File: asymptote.info, Node: flowchart, Next: contour, Prev: tube, Up: Base modules
+
+7.35 `flowchart'
+================
+
+This package provides routines for drawing flowcharts. The primary
+structure is a `block', which represents a single block on the
+flowchart. The following eight functions return a position on the
+appropriate edge of the block, given picture transform `t':
+
+pair block.top(transform t=identity());
+pair block.left(transform t=identity());
+pair block.right(transform t=identity());
+pair block.bottom(transform t=identity());
+pair block.topleft(transform t=identity());
+pair block.topright(transform t=identity());
+pair block.bottomleft(transform t=identity());
+pair block.bottomright(transform t=identity());
+
+
+To obtain an arbitrary position along the boundary of the block in user
+coordinates, use:
+pair block.position(real x, transform t=identity());
+
+
+The center of the block in user coordinates is stored in `block.center'
+and the block size in `PostScript' coordinates is given by `block.size'.
+
+A frame containing the block is returned by
+frame block.draw(pen p=currentpen);
+
+
+ The following block generation routines accept a Label, string, or
+frame for their object argument:
+
+"rectangular block with an optional header (and padding `dx' around header and body):"
+ block rectangle(object header, object body, pair center=(0,0),
+ pen headerpen=mediumgray, pen bodypen=invisible,
+ pen drawpen=currentpen,
+ real dx=3, real minheaderwidth=minblockwidth,
+ real minheaderheight=minblockwidth,
+ real minbodywidth=minblockheight,
+ real minbodyheight=minblockheight);
+ block rectangle(object body, pair center=(0,0),
+ pen fillpen=invisible, pen drawpen=currentpen,
+ real dx=3, real minwidth=minblockwidth,
+ real minheight=minblockheight);
+
+"diamond-shaped flowchart block:"
+ block diamond(object body, pair center=(0,0),
+ pen fillpen=invisible, pen drawpen=currentpen,
+ real ds=5, real dw=1,
+ real height=20, real minwidth=minblockwidth,
+ real minheight=minblockheight);
+
+"circular flowchart block:"
+ block circle(object body, pair center=(0,0), pen fillpen=invisible,
+ pen drawpen=currentpen, real dr=3,
+ real mindiameter=mincirclediameter);
+
+"rectangular flowchart block with rounded corners:"
+ block roundrectangle(object body, pair center=(0,0),
+ pen fillpen=invisible, pen drawpen=currentpen,
+ real ds=5, real dw=0, real minwidth=minblockwidth,
+ real minheight=minblockheight);
+
+"rectangular flowchart block with beveled edges:"
+ block bevel(object body, pair center=(0,0), pen fillpen=invisible,
+ pen drawpen=currentpen, real dh=5, real dw=5,
+ real minwidth=minblockwidth, real minheight=minblockheight);
+
+
+ To draw paths joining the pairs in `point' with right-angled lines,
+use the routine:
+path path(pair point[] ... flowdir dir[]);
+ The entries in `dir' identify whether successive segments between the
+pairs specified by `point' should be drawn in the `Horizontal' or
+`Vertical' direction.
+
+ Here is a simple flowchart example:
+
+size(0,300);
+
+import flowchart;
+
+block block1=rectangle(Label("Example",magenta),
+ pack(Label("Start:",heavygreen),"",Label("$A:=0$",blue),
+ "$B:=1$"),(-0.5,3),palegreen,paleblue,red);
+block block2=diamond(Label("Choice?",blue),(0,2),palegreen,red);
+block block3=roundrectangle("Do something",(-1,1));
+block block4=bevel("Don't do something",(1,1));
+block block5=circle("End",(0,0));
+
+draw(block1);
+draw(block2);
+draw(block3);
+draw(block4);
+draw(block5);
+
+add(new void(picture pic, transform t) {
+ draw(pic,path(new pair[]{block1.right(t),block2.top(t)},Horizontal),
+ Arrow,PenMargin);
+ draw(pic,Label("Yes",0.5,NW),path(new pair[]{block2.left(t),block3.top(t)},
+ Horizontal),Arrow,PenMargin);
+ draw(pic,Label("No",0.5,NE),path(new pair[]{block2.right(t),block4.top(t)},
+ Horizontal),Arrow,PenMargin);
+ draw(pic,path(new pair[]{block3.bottom(t),block5.left(t)},Vertical),
+ Arrow,PenMargin);
+ draw(pic,path(new pair[]{block4.bottom(t),block5.right(t)},Vertical),
+ Arrow,PenMargin);
+ });
+
+
+
+
+File: asymptote.info, Node: contour, Next: contour3, Prev: flowchart, Up: Base modules
+
+7.36 `contour'
+==============
+
+This package draws contour lines. To construct contours corresponding
+to the values in an array `c' for a function `f' on `box(a,b)', use
+guide[][] contour(real f(real, real), pair a, pair b,
+ real[] c, int nx=ngraph, int ny=nx,
+ interpolate join=operator --);
+ The integers `nx' and `ny' define the resolution. The default
+resolution, `ngraph x ngraph' (here `ngraph' defaults to `100'), can be
+increased for greater accuracy. The default interpolation operator is
+`operator --' (linear). Spline interpolation (`operator ..') may
+produce smoother contours but it can also lead to overshooting.
+
+ To construct contours for an array of data values on a uniform
+two-dimensional lattice on `box(a,b)', use
+guide[][] contour(real[][] f, real[][] midpoint=new real[][],
+ pair a, pair b, real[] c,
+ interpolate join=operator --);
+
+ To construct contours for an array of data values on a nonoverlapping
+regular mesh specified by the two-dimensional array `z', optionally
+specifying the values of `f' at the mesh midpoints, use
+guide[][] contour(pair[][] z, real[][] f,
+ real[][] midpoint=new real[][], real[] c,
+ interpolate join=operator --);
+
+ To construct contours for an array of values `f' specified at
+irregularly positioned points `z', use the routine
+guide[][] contour(pair[] z, real[] f, real[] c,
+ interpolate join=operator --);
+ The contours themselves can be drawn with one of the routines
+void draw(picture pic=currentpicture, Label[] L=new Label[],
+ guide[][] g, pen p=currentpen)
+
+void draw(picture pic=currentpicture, Label[] L=new Label[],
+ guide[][] g, pen[] p)
+
+ The following simple example draws the contour at value `1' for the
+function z=x^2+y^2, which is a unit circle:
+
+import contour;
+size(75);
+
+real f(real a, real b) {return a^2+b^2;}
+draw(contour(f,(-1,-1),(1,1),new real[] {1}));
+
+
+
+The next example draws and labels multiple contours for the function
+z=x^2-y^2 with the resolution `100 x 100', using a dashed pen for
+negative contours and a solid pen for positive (and zero) contours:
+
+import contour;
+
+size(200);
+
+real f(real x, real y) {return x^2-y^2;}
+int n=10;
+real[] c=new real[n];
+for(int i=0; i < n; ++i) c[i]=(i-n/2)/n;
+
+pen[] p=sequence(new pen(int i) {
+ return (c[i] >= 0 ? solid : dashed)+fontsize(6);
+ },c.length);
+
+Label[] Labels=sequence(new Label(int i) {
+ return Label(c[i] != 0 ? (string) c[i] : "",Relative(unitrand()),(0,0),
+ UnFill(1bp));
+ },c.length);
+
+draw(Labels,contour(f,(-1,-1),(1,1),c),p);
+
+
+
+The next example illustrates how contour lines can be drawn on color
+density images:
+
+import graph;
+import palette;
+import contour;
+
+size(10cm,10cm,IgnoreAspect);
+
+pair a=(0,0);
+pair b=(2pi,2pi);
+
+real f(real x, real y) {return cos(x)*sin(y);}
+
+int N=200;
+int Divs=10;
+int divs=2;
+
+defaultpen(1bp);
+pen Tickpen=black;
+pen tickpen=gray+0.5*linewidth(currentpen);
+pen[] Palette=BWRainbow();
+
+scale(false);
+
+bounds range=image(f,Automatic,a,b,N,Palette);
+
+// Major contours
+
+real[] Cvals=uniform(range.min,range.max,Divs);
+draw(contour(f,a,b,Cvals,N,operator --),Tickpen);
+
+// Minor contours
+real[] cvals;
+for(int i=0; i < Cvals.length-1; ++i)
+ cvals.append(uniform(Cvals[i],Cvals[i+1],divs)[1:divs]);
+draw(contour(f,a,b,cvals,N,operator --),tickpen);
+
+xaxis("$x$",BottomTop,LeftTicks,above=true);
+yaxis("$y$",LeftRight,RightTicks,above=true);
+
+palette("$f(x,y)$",range,point(NW)+(0,0.5),point(NE)+(0,1),Top,Palette,
+ PaletteTicks(N=Divs,n=divs,Tickpen,tickpen));
+
+
+
+Finally, here is an example that illustrates the construction of
+contours from irregularly spaced data:
+
+import contour;
+
+size(200);
+
+int n=100;
+
+pair[] points=new pair[n];
+real[] values=new real[n];
+
+real f(real a, real b) {return a^2+b^2;}
+
+real r() {return 1.1*(rand()/randMax*2-1);}
+
+for(int i=0; i < n; ++i) {
+ points[i]=(r(),r());
+ values[i]=f(points[i].x,points[i].y);
+}
+
+draw(contour(points,values,new real[]{0.25,0.5,1},operator ..),blue);
+
+
+
+In the above example, the contours of irregularly spaced data are
+constructed by first creating a triangular mesh from an array `z' of
+pairs:
+
+int[][] triangulate(pair[] z);
+
+size(200);
+int np=100;
+pair[] points;
+
+real r() {return 1.2*(rand()/randMax*2-1);}
+
+for(int i=0; i < np; ++i)
+ points.push((r(),r()));
+
+int[][] trn=triangulate(points);
+
+for(int i=0; i < trn.length; ++i) {
+ draw(points[trn[i][0]]--points[trn[i][1]]);
+ draw(points[trn[i][1]]--points[trn[i][2]]);
+ draw(points[trn[i][2]]--points[trn[i][0]]);
+}
+
+for(int i=0; i < np; ++i)
+ dot(points[i],red);
+
+
+
+The example `Gouraudcontour' illustrates how to produce color density
+images over such irregular triangular meshes. `Asymptote' uses a
+robust version of Paul Bourke's Delaunay triangulation algorithm based
+on the public-domain exact arithmetic predicates written by Jonathan
+Shewchuk.
+
+
+File: asymptote.info, Node: contour3, Next: slopefield, Prev: contour, Up: Base modules
+
+7.37 `contour3'
+===============
+
+This package draws surfaces described as the null space of real-valued
+functions of (x,y,z) or real[][][] matrices. Its usage is illustrated
+in the example file `magnetic.asy'.
+
+
+File: asymptote.info, Node: slopefield, Prev: contour3, Up: Base modules
+
+7.38 `slopefield'
+=================
+
+To draw a slope field for the differential equation dy/dx=f(x,y) (or
+dy/dx=f(x)), use:
+picture slopefield(real f(real,real), pair a, pair b,
+ int nx=nmesh, int ny=nx,
+ real tickfactor=0.5, pen p=currentpen,
+ arrowbar arrow=None);
+ Here, the points `a' and `b' are the lower left and upper right
+corners of the rectangle in which the slope field is to be drawn, `nx'
+and `ny' are the respective number of ticks in the x and y directions,
+`tickfactor' is the fraction of the minimum cell dimension to use for
+drawing ticks, and `p' is the pen to use for drawing the slope fields.
+The return value is a picture that can be added to `currentpicture' via
+the `add(picture)' command.
+
+ The function
+path curve(pair c, real f(real,real), pair a, pair b);
+ takes a point (`c') and a slope field-defining function `f' and
+returns, as a path, the curve passing through that point. The points
+`a' and `b' represent the rectangular boundaries over which the curve
+is interpolated.
+
+ Both `slopefield' and `curve' alternatively accept a function `real
+f(real)' that depends on x only, as seen in this example:
+
+import slopefield;
+
+size(200);
+
+real func(real x) {return 2x;}
+add(slopefield(func,(-3,-3),(3,3),20,Arrow));
+draw(curve((0,0),func,(-3,-3),(3,3)),red);
+
+
+
+
+File: asymptote.info, Node: Options, Next: Interactive mode, Prev: Base modules, Up: Top
+
+8 Options
+*********
+
+Type `asy -h' to see the full list of command-line options supported by
+`Asymptote':
+
+Usage: ../asy [options] [file ...]
+
+Options (negate by replacing - with -no):
+
+-V,-View View output; command-line only
+-a,-align C|B|T|Z Center, Bottom, Top, or Zero page alignment [Center]
+-antialias n Antialiasing width for rasterized output [2]
+-auto3D Automatically activate 3D scene [true]
+-autoimport string Module to automatically import
+-autoplain Enable automatic importing of plain [true]
+-autorotate Enable automatic PDF page rotation [false]
+-batchMask Mask fpu exceptions in batch mode [false]
+-batchView View output in batch mode [false]
+-bw Convert all colors to black and white [false]
+-cd directory Set current directory; command-line only
+-cmyk Convert rgb colors to cmyk [false]
+-c,-command string Command to autoexecute
+-compact Conserve memory at the expense of speed [false]
+-d,-debug Enable debugging messages [false]
+-divisor n Garbage collect using purge(divisor=n) [2]
+-embed Embed rendered preview image [true]
+-exitonEOF Exit interactive mode on EOF [true]
+-fitscreen Fit rendered image to screen [true]
+-globalwrite Allow write to other directory [false]
+-gray Convert all colors to grayscale [false]
+-h,-help Show summary of options; command-line only
+-historylines n Retain n lines of history [1000]
+-iconify Iconify rendering window [false]
+-inlineimage Generate inline embedded image [false]
+-inlinetex Generate inline TeX code [false]
+-interactiveMask Mask fpu exceptions in interactive mode [true]
+-interactiveView View output in interactive mode [true]
+-interactiveWrite Write expressions entered at the prompt to stdout [true]
+-k,-keep Keep intermediate files [false]
+-keepaux Keep intermediate LaTeX .aux files [false]
+-level n Postscript level [3]
+-l,-listvariables List available global functions and variables [false]
+-localhistory Use a local interactive history file [false]
+-m,-mask Mask fpu exceptions; command-line only
+-maxtile pair Maximum rendering tile size [(0,0)]
+-maxviewport pair Maximum viewport size [(2048,2048)]
+-multiline Input code over multiple lines at the prompt [false]
+-multipleView View output from multiple batch-mode files [false]
+-multisample n Multisampling width for screen images [4]
+-O,-offset pair PostScript offset [(0,0)]
+-f,-outformat format Convert each output file to specified format
+-o,-outname name Alternative output directory/filename
+-p,-parseonly Parse file [false]
+-pdfreload Automatically reload document in pdfviewer [false]
+-pdfreloaddelay usec Delay before attempting initial pdf reload [750000]
+-position pair Initial 3D rendering screen position [(0,0)]
+-prc Embed 3D PRC graphics in PDF output [true]
+-prompt string Prompt [> ]
+-prompt2 string Continuation prompt for multiline input [..]
+-q,-quiet Suppress welcome message [false]
+-render n Render 3D graphics using n pixels per bp (-1=auto) [-1]
+-rgb Convert cmyk colors to rgb [false]
+-safe Disable system call [true]
+-scroll n Scroll standard output n lines at a time [0]
+-tabcompletion Interactive prompt auto-completion [true]
+-tex engine latex|pdflatex|xelatex|tex|pdftex|context|none [latex]
+-thick Render thick 3D lines [true]
+-thin Render thin 3D lines [true]
+-threads Use POSIX threads for 3D rendering [true]
+-toolbar Show 3D toolbar in PDF output [true]
+-s,-translate Show translated virtual machine code [false]
+-twice Run LaTeX twice (to resolve references) [false]
+-twosided Use two-sided 3D lighting model for rendering [true]
+-u,-user string General purpose user string
+-v,-verbose Increase verbosity level (can specify multiple times) [0]
+-version Show version; command-line only
+-wait Wait for child processes to finish before exiting [false]
+-where Show where listed variables are declared [false]
+-xformat format GUI deconstruction format [png]
+
+ All boolean options can be negated by prepending `no' to the option
+name.
+
+ If no arguments are given, `Asymptote' runs in interactive mode
+(*note Interactive mode::). In this case, the default output file is
+`out.eps'.
+
+ If `-' is given as the file argument, `Asymptote' reads from
+standard input.
+
+ If multiple files are specified, they are treated as separate
+`Asymptote' runs.
+
+ If the string `autoimport' is nonempty, a module with this name is
+automatically imported for each run as the final step in loading module
+`plain'.
+
+ Default option values may be entered as `Asymptote' code in a
+configuration file named `config.asy' (or the file specified by the
+environment variable `ASYMPTOTE_CONFIG' or `-config' option).
+`Asymptote' will look for this file in its usual search path.
+Typically the configuration file is placed in the `.asy' directory in
+the user's home directory (`%USERPROFILE%\.asy' under `MSDOS').
+Configuration variables are accessed using the long form of the option
+names:
+import settings;
+outformat="pdf";
+batchView=false;
+interactiveView=true;
+batchMask=false;
+interactiveMask=true;
+ Command-line options override these defaults. Most configuration
+variables may also be changed at runtime. The advanced configuration
+variables `dvipsOptions', `convertOptions', `gsOptions',
+`psviewerOptions', `pdfviewerOptions', and `glOptions' allow
+specialized options to be passed as a string to the respective
+applications or libraries.
+
+ If you insert
+import plain;
+settings.autoplain=true;
+ at the beginning of the configuration file, it can contain arbitrary
+`Asymptote' code.
+
+ The default output format is EPS for the (default) `latex' and `tex'
+tex engine and PDF for the `pdflatex', `xelatex', and `context' tex
+engines. Alternative output formats may be produced using the `-f'
+option (or `outformat' setting). The optional setting `-render n'
+requests an output resolution of `n' pixels per `bp'. Antialiasing is
+controlled by the parameter `antialias', which by default specifies a
+sampling width of 2 pixels. `Asymptote' can produce any output format
+supported by the `ImageMagick' `convert' program (version 6.3.5 or
+later recommended; an `Invalid Parameter' error message indicates that
+the `MSDOS' utility `convert' is being used instead of the one that
+comes with `ImageMagick'). To give specific options to `convert', use
+the `convertOptions' setting or call convert manually. This example
+emulates how `Asymptote' produces antialiased `tiff' output at one
+pixel per `bp':
+asy -o - venn | convert -alpha Off -density 144x144 -geometry 50%x eps:- venn.tiff
+
+ If the option `-nosafe' is given, `Asymptote' runs in unsafe mode.
+This enables the `int system(string s)' call, allowing one to execute
+arbitrary shell commands. The default mode, `-safe', disables this call.
+
+ A `PostScript' offset may be specified as a pair (in `bp' units)
+with the `-O' option:
+asy -O 0,0 file
+ The default offset is zero. The default value of the page alignment
+setting `align' is `Center'.
+
+ The `-c' (`command') option may be used to execute arbitrary
+`Asymptote' code on the command line as a string. It is not necessary
+to terminate the string with a semicolon. Multiple `-c' options are
+executed in the order they are given. For example
+asy -c 2+2 -c "sin(1)" -c "size(100); draw(unitsquare)"
+ produces the output
+4
+0.841470984807897
+ and draws a unitsquare of size `100'.
+
+ The `-u' (`user') option may be used to specify arbitrary
+`Asymptote' settings on the command line as a string. It is not
+necessary to terminate the string with a semicolon. Multiple `-u'
+options are executed in the order they are given. Command-line code like
+`-u x=sqrt(2)' can be executed within a module like this:
+real x;
+usersetting();
+write(x);
+
+ When the `-l' (`listvariables') option is used with file arguments,
+only global functions and variables defined in the specified file(s)
+are listed.
+
+ Additional debugging output is produced with each additional `-v'
+option:
+`-v'
+ Display top-level module and final output file names.
+
+`-vv'
+ Also display imported and included module names and final `LaTeX'
+ and `dvips' processing information.
+
+`-vvv'
+ Also output `LaTeX' bidirectional pipe diagnostics.
+
+`-vvvv'
+ Also output knot guide solver diagnostics.
+
+`-vvvvv'
+ Also output `Asymptote' traceback diagnostics.
+
+
+File: asymptote.info, Node: Interactive mode, Next: GUI, Prev: Options, Up: Top
+
+9 Interactive mode
+******************
+
+Interactive mode is entered by executing the command `asy' with no file
+arguments. When the `-multiline' option is disabled (the default), each
+line must be a complete `Asymptote' statement (unless explicitly
+continued by a final backslash character `\'); it is not necessary to
+terminate input lines with a semicolon. If one assigns
+`settings.multiline=true', interactive code can be entered over
+multiple lines; in this mode, the automatic termination of interactive
+input lines by a semicolon is inhibited. Multiline mode is useful for
+cutting and pasting `Asymptote' code directly into the interactive
+input buffer.
+
+ Interactive mode can be conveniently used as a calculator:
+expressions entered at the interactive prompt (for which a
+corresponding `write' function exists) are automatically evaluated and
+written to `stdout'.
+
+ The following special commands are supported only in interactive mode
+and must be entered immediately after the prompt:
+
+`help'
+ view the manual;
+
+`reset'
+ reset the `Asymptote' environment to its initial state, except for
+ changes to the settings module (*note settings::), the current
+ directory (*note cd::), and breakpoints (*note Debugger::);
+
+`input FILE'
+ does an interactive reset, followed by the command `include FILE'.
+ If the file name `FILE' contains nonalphanumeric characters,
+ enclose it with quotation marks. A trailing semi-colon followed
+ by optional `Asymptote' commands may be entered on the same line.
+
+`quit'
+ exit interactive mode (`exit' is a synonym; the abbreviation `q'
+ is also accepted unless there exists a top-level variable named
+ `q'). A history of the most recent 1000 (this number can be
+ changed with the `historylines' configuration variable) previous
+ commands will be retained in the file `.asy/history' in the user's
+ home directory (unless the command-line option `-localhistory' was
+ specified, in which case the history will be stored in the file
+ `.asy_history' in the current directory).
+
+
+ Typing `ctrl-C' interrupts the execution of `Asymptote' code and
+returns control to the interactive prompt.
+
+ Interactive mode is implemented with the GNU `readline' library,
+with command history and auto-completion. To customize the key
+bindings, see:
+`http://cnswww.cns.cwru.edu/php/chet/readline/readline.html'
+
+ The file `asymptote.py' in the `Asymptote' system directory provides
+an alternative way of entering `Asymptote' commands interactively,
+coupled with the full power of `Python'. Copy this file to your `Python
+path' and then execute from within `Python' the commands
+from asymptote import *
+g=asy()
+g.size(200)
+g.draw("unitcircle")
+g.send("draw(unitsquare)")
+g.fill("unitsquare, blue")
+g.clip("unitcircle")
+g.label("\"$O$\", (0,0), SW")
+
+
+File: asymptote.info, Node: GUI, Next: PostScript to Asymptote, Prev: Interactive mode, Up: Top
+
+10 Graphical User Interface
+***************************
+
+In the event that adjustments to the final figure are required, the
+preliminary Graphical User Interface (GUI) `xasy' included with
+`Asymptote' allows you to move graphical objects and draw new ones.
+The modified figure can then be saved as a normal `Asymptote' file.
+
+* Menu:
+
+* GUI Installation:: Installing `xasy'
+* GUI Usage::
+
+
+File: asymptote.info, Node: GUI Installation, Next: GUI Usage, Up: GUI
+
+10.1 GUI Installation
+=====================
+
+As `xasy' is written in the interactive scripting language `Python/TK',
+it requires `Python' (`http://www.python.org'), the Python Imaging
+Library (`http://www.pythonware.com/products/pil/'), and the `tkinter'
+package (included with s`Python' under `Microsoft Windows') be
+installed. `Fedora Linux' users can either install `tkinter' with the
+commands
+yum install tkinter
+yum install tk-devel
+ or manually install the `tkinter', `tix', `tk', and `tk-devel'
+packages.
+
+ Pictures are deconstructed into the PNG image format, which supports
+full alpha channel transparency. Under `Microsoft Windows', this
+requires `Python 2.5 (or 2.5.1)' and the `Python Imaging Library':
+
+ `http://www.python.org/ftp/python/2.5.1/python-2.5.1.msi'
+
+ `http://effbot.org/downloads/PIL-1.1.6.win32-py2.5.exe'.
+ On `UNIX' systems, place
+`http://effbot.org/downloads/Imaging-1.1.6.tar.gz' in the `Asymptote'
+source directory, and type (as the root user):
+tar -zxf Imaging-1.1.6.tar.gz
+cd Imaging-1.1.6
+patch -p1 < ../patches/TkAlpha-Imaging-1.1.6.patch
+python setup.py install
+
+ Alternatively, `xasy' can deconstruct pictures into the GIF image
+format (not recommended as this is very slow), using white as the
+transparent color. This requires the lines
+import settings;
+xformat="gif";
+ in the `Asymptote' configuration file (*note configuration file::),
+along with the `ImageMagick' (*note convert::) program.
+
+
+File: asymptote.info, Node: GUI Usage, Prev: GUI Installation, Up: GUI
+
+10.2 GUI Usage
+==============
+
+A wheel mouse is convenient for raising and lowering objects within
+`xasy', to expose the object to be moved. If a wheel mouse is not
+available, mouse `Button-2' can be used to repeatedly lower an object
+instead. When run from the command line, `xasy' accepts a command line
+option `-x n', which sets the initial magnification to `n'.
+
+ Deconstruction of compound objects (such as arrows) can be prevented
+by enclosing them within the commands
+void begingroup(picture pic=currentpicture);
+void endgroup(picture pic=currentpicture);
+ By default, the elements of a picture or frame will be grouped
+together on adding them to a picture. However, the elements of a frame
+added to another frame are not grouped together by default: their
+elements will be individually deconstructed (*note add::).
+
+
+File: asymptote.info, Node: PostScript to Asymptote, Next: Help, Prev: GUI, Up: Top
+
+11 `PostScript' to `Asymptote'
+******************************
+
+The excellent `PostScript' editor `pstoedit' (version 3.45 or later;
+available from `http://pstoedit.net') includes an `Asymptote' backend.
+Unlike virtually all other `pstoedit' backends, this driver includes
+native clipping, even-odd fill rule, `PostScript' subpath, and full
+image support.
+
+ For full functionality, the patch `pstoedit-3.45asy.patch' in the
+`patches' directory should be applied. On `UNIX' systems, as the root
+user, place
+
+ `http://prdownloads.sourceforge.net/pstoedit/pstoedit-3.45.tar.gz'
+ in the `Asymptote' source directory, and type:
+
+tar -zxf pstoedit-3.45.tar.gz
+cd pstoedit-3.45
+patch -p1 < ../patches/pstoedit-3.45asy.patch
+autoconf
+./configure --prefix=/usr
+make install
+
+Then try:
+
+`asy -V /usr/local/share/doc/asymptote/examples/venn.asy'
+pstoedit -f asy venn.eps test.asy
+asy -V test
+
+If the line widths aren't quite correct, try giving `pstoedit' the
+`-dis' option. If the fonts aren't typeset correctly, try giving
+`pstoedit' the `-dt' option.
+
+
+File: asymptote.info, Node: Help, Next: Debugger, Prev: PostScript to Asymptote, Up: Top
+
+12 Help
+*******
+
+A list of frequently asked questions (FAQ) is maintained at
+
+ `http://asymptote.sourceforge.net/FAQ'
+ Questions on installing and using `Asymptote' that are not addressed
+in the FAQ should be sent to the `Asymptote' forum:
+
+ `http://sourceforge.net/forum/forum.php?forum_id=409349'
+ Including an example that illustrates what you are trying to do will
+help you get useful feedback. `LaTeX' problems can often be diagnosed
+with the `-vv' or `-vvv' command-line options. Contributions in the
+form of patches or `Asymptote' modules can be posted here:
+
+ `http://sourceforge.net/tracker/?atid=685685&group_id=120000'
+ To receive announcements of upcoming releases, please subscribe to
+`Asymptote' at
+
+ `http://freshmeat.net/projects/asy'
+ If you find a bug in `Asymptote', please check (if possible) whether
+the bug is still present in the latest Subversion developmental code
+(*note Subversion::) before submitting a bug report. New bugs can be
+submitted using the Bug Tracking System at
+
+ `http://sourceforge.net/projects/asymptote'
+ To see if the bug has already been fixed, check bugs with Status
+`Closed' and recent lines in
+
+ `http://asymptote.sourceforge.net/ChangeLog'
+ `Asymptote' can be configured with the optional GNU library
+`libsigsegv', available from `http://libsigsegv.sourceforge.net', which
+allows one to distinguish user-generated `Asymptote' stack overflows
+(*note stack overflow::) from true segmentation faults (due to internal
+C++ programming errors; please submit the `Asymptote' code that
+generates such segmentation faults along with your bug report).
+
+
+File: asymptote.info, Node: Debugger, Next: Credits, Prev: Help, Up: Top
+
+13 Debugger
+***********
+
+Asymptote now includes a line-based (as opposed to code-based) debugger
+that can assist the user in following flow control. To set a break
+point in file `file' at line `line', use the command
+
+void stop(string file, int line, code s=quote{});
+ The optional argument `s' may be used to conditionally set the variable
+`ignore' in `plain_debugger.asy' to `true'. For example, the first 10
+instances of this breakpoint will be ignored (the variable `int
+count=0' is defined in `plain_debugger.asy'):
+stop("test",2,quote{ignore=(++count <= 10);});
+
+ To set a break point in file `file' at the first line containing the
+string `text', use
+
+void stop(string file, string text, code s=quote{});
+ To list all breakpoints, use:
+void breakpoints();
+ To clear a breakpoint, use:
+void clear(string file, int line);
+ To clear all breakpoints, use:
+void clear();
+
+ The following commands may be entered at the debugging prompt:
+
+``h''
+ help;
+
+``c''
+ continue execution;
+
+``i''
+ step to the next instruction;
+
+``s''
+ step to the next executable line;
+
+``n''
+ step to the next executable line in the current file;
+
+``f''
+ step to the next file;
+
+``r''
+ return to the file associated with the most recent breakpoint;
+
+``t''
+ toggle tracing (`-vvvvv') mode;
+
+``q''
+ quit debugging and end execution;
+
+``x''
+ exit the debugger and run to completion.
+
+ Arbitrary `Asymptote' code may also be entered at the debugging
+prompt; however, since the debugger is implemented with `eval',
+currently only top-level (global) variables can be displayed or
+modified.
+
+ The debugging prompt may be entered manually with the call
+void breakpoint(code s=quote{});
+
+
+File: asymptote.info, Node: Credits, Next: Index, Prev: Debugger, Up: Top
+
+14 Acknowledgments
+******************
+
+Financial support for the development of `Asymptote' was generously
+provided by the Natural Sciences and Engineering Research Council of
+Canada, the Pacific Institute for Mathematical Sciences, and the
+University of Alberta Faculty of Science.
+
+ We also would like to acknowledge the previous work of John D. Hobby,
+author of the program `MetaPost' that inspired the development of
+`Asymptote', and Donald E. Knuth, author of TeX and `MetaFont' (on
+which `MetaPost' is based).
+
+ The authors of `Asymptote' are Andy Hammerlindl, John Bowman, and
+Tom Prince. Sean Healy designed the `Asymptote' logo. Other
+contributors include Radoslav Marinov, Orest Shardt, Chris Savage,
+Philippe Ivaldi, Olivier Guibe', Jacques Pienaar, Mark Henning, Steve
+Melenchuk, Martin Wiebusch, and Stefan Knorr.
+
+
+File: asymptote.info, Node: Index, Prev: Credits, Up: Top
+
+Index
+*****
+
+
+* Menu:
+
+* !: Arithmetic & logical.
+ (line 68)
+* != <1>: Arithmetic & logical.
+ (line 38)
+* !=: Structures. (line 54)
+* %: Arithmetic & logical.
+ (line 23)
+* %=: Self & prefix operators.
+ (line 6)
+* & <1>: Arithmetic & logical.
+ (line 56)
+* &: Tutorial. (line 192)
+* &&: Arithmetic & logical.
+ (line 53)
+* * <1>: Arithmetic & logical.
+ (line 17)
+* *: Pens. (line 15)
+* **: Arithmetic & logical.
+ (line 31)
+* *=: Self & prefix operators.
+ (line 6)
+* + <1>: Arithmetic & logical.
+ (line 13)
+* +: Pens. (line 15)
+* ++: Self & prefix operators.
+ (line 6)
+* +=: Self & prefix operators.
+ (line 6)
+* -: Arithmetic & logical.
+ (line 14)
+* -- <1>: Self & prefix operators.
+ (line 6)
+* --: Tutorial. (line 109)
+* ---: Tutorial. (line 192)
+* -=: Self & prefix operators.
+ (line 6)
+* -c: Options. (line 155)
+* -l: Options. (line 174)
+* -u: Options. (line 165)
+* -V <1>: Tutorial. (line 41)
+* -V: Configuring. (line 6)
+* ..: Tutorial. (line 109)
+* .asy: Search paths. (line 13)
+* /: Arithmetic & logical.
+ (line 20)
+* /=: Self & prefix operators.
+ (line 6)
+* 2D graphs: graph. (line 6)
+* 3D graphs: graph3. (line 6)
+* 3D grids: grid3. (line 6)
+* 3D rendering: Compiling from UNIX source.
+ (line 16)
+* :: Arithmetic & logical.
+ (line 73)
+* ::: Tutorial. (line 176)
+* <: Arithmetic & logical.
+ (line 41)
+* <=: Arithmetic & logical.
+ (line 44)
+* == <1>: Arithmetic & logical.
+ (line 37)
+* ==: Structures. (line 54)
+* >: Arithmetic & logical.
+ (line 50)
+* >=: Arithmetic & logical.
+ (line 47)
+* ?: Arithmetic & logical.
+ (line 73)
+* ^: Arithmetic & logical.
+ (line 28)
+* ^=: Self & prefix operators.
+ (line 6)
+* ^^: Tutorial. (line 197)
+* a4: Configuring. (line 62)
+* abort: Data types. (line 320)
+* abs <1>: Mathematical functions.
+ (line 35)
+* abs: Data types. (line 60)
+* accel <1>: three. (line 433)
+* accel: Paths and guides. (line 110)
+* access: Import. (line 6)
+* acknowledgments: Credits. (line 6)
+* aCos: Mathematical functions.
+ (line 20)
+* acos: Mathematical functions.
+ (line 6)
+* acosh: Mathematical functions.
+ (line 6)
+* add: Frames and pictures. (line 190)
+* Ai: Mathematical functions.
+ (line 48)
+* Ai_deriv: Mathematical functions.
+ (line 48)
+* Airy: Mathematical functions.
+ (line 48)
+* alias <1>: Arrays. (line 187)
+* alias: Structures. (line 54)
+* align: Options. (line 149)
+* Align: label. (line 12)
+* all: Arrays. (line 331)
+* Allow: Pens. (line 323)
+* AND: Arithmetic & logical.
+ (line 80)
+* and: Tutorial. (line 165)
+* angle: Data types. (line 68)
+* animate <1>: animation. (line 12)
+* animate <2>: Files. (line 148)
+* animate: Configuring. (line 68)
+* animation: animation. (line 6)
+* annotate: annotate. (line 6)
+* antialias <1>: Options. (line 129)
+* antialias: three. (line 180)
+* antialiasing: Compiling from UNIX source.
+ (line 16)
+* append <1>: Arrays. (line 39)
+* append: Files. (line 36)
+* arc: three. (line 245)
+* Arc: Paths and guides. (line 32)
+* arc: Paths and guides. (line 22)
+* ArcArrow: draw. (line 26)
+* ArcArrow3: three. (line 476)
+* ArcArrows: draw. (line 26)
+* ArcArrows3: three. (line 476)
+* arclength <1>: three. (line 433)
+* arclength: Paths and guides. (line 137)
+* arctime <1>: three. (line 433)
+* arctime: Paths and guides. (line 141)
+* arguments: Default arguments. (line 6)
+* arithmetic operators: Arithmetic & logical.
+ (line 6)
+* array: Arrays. (line 125)
+* array iteration: Programming. (line 33)
+* arrays: Arrays. (line 6)
+* arrow: label. (line 72)
+* Arrow: draw. (line 26)
+* arrow: Drawing commands. (line 31)
+* arrow keys: Tutorial. (line 21)
+* Arrow3: three. (line 476)
+* Arrows: draw. (line 26)
+* Arrows3: three. (line 476)
+* as: Import. (line 70)
+* aSin: Mathematical functions.
+ (line 20)
+* asin: Mathematical functions.
+ (line 6)
+* asinh: Mathematical functions.
+ (line 6)
+* Aspect: Frames and pictures. (line 54)
+* assignment: Programming. (line 8)
+* asy: Import. (line 105)
+* asy-mode: Editing modes. (line 6)
+* asy.vim: Editing modes. (line 33)
+* asymptote.sty: LaTeX usage. (line 6)
+* ASYMPTOTE_CONFIG: Options. (line 102)
+* aTan: Mathematical functions.
+ (line 20)
+* atan: Mathematical functions.
+ (line 6)
+* atan2: Mathematical functions.
+ (line 6)
+* atanh: Mathematical functions.
+ (line 6)
+* atleast: Tutorial. (line 165)
+* attach <1>: graph. (line 405)
+* attach: LaTeX usage. (line 32)
+* autoadjust: three. (line 315)
+* autoimport: Options. (line 98)
+* automatic scaling: graph. (line 672)
+* axialshade: fill. (line 43)
+* axis <1>: graph3. (line 66)
+* axis: graph. (line 870)
+* azimuth: Data types. (line 124)
+* babel: babel. (line 6)
+* background color: Frames and pictures. (line 162)
+* BackView: three. (line 340)
+* Bar: draw. (line 19)
+* Bar3: three. (line 476)
+* Bars: draw. (line 19)
+* Bars3: three. (line 476)
+* barsize: draw. (line 19)
+* base modules: Base modules. (line 6)
+* basealign: Pens. (line 164)
+* baseline: label. (line 92)
+* batch mode: Tutorial. (line 30)
+* beep: Data types. (line 334)
+* BeginArcArrow: draw. (line 26)
+* BeginArcArrow3: three. (line 476)
+* BeginArrow: draw. (line 26)
+* BeginArrow3: three. (line 476)
+* BeginBar: draw. (line 19)
+* BeginBar3: three. (line 476)
+* BeginDotMargin: draw. (line 42)
+* BeginDotMargin3: three. (line 492)
+* BeginMargin: draw. (line 42)
+* BeginMargin3: three. (line 492)
+* BeginPenMargin: draw. (line 42)
+* BeginPenMargin2: three. (line 492)
+* BeginPenMargin3: three. (line 492)
+* BeginPoint: label. (line 57)
+* Bessel: Mathematical functions.
+ (line 48)
+* bevel: flowchart. (line 68)
+* beveljoin: Pens. (line 134)
+* bezulate: three. (line 98)
+* Bi: Mathematical functions.
+ (line 48)
+* Bi_deriv: Mathematical functions.
+ (line 48)
+* binary format: Files. (line 71)
+* binary operators: Arithmetic & logical.
+ (line 6)
+* binarytree: binarytree. (line 6)
+* binput: Files. (line 71)
+* Blank: draw. (line 26)
+* block.bottom: flowchart. (line 19)
+* block.bottomleft: flowchart. (line 19)
+* block.bottomright: flowchart. (line 19)
+* block.center: flowchart. (line 26)
+* block.draw: flowchart. (line 31)
+* block.left: flowchart. (line 19)
+* block.position: flowchart. (line 24)
+* block.right: flowchart. (line 19)
+* block.top: flowchart. (line 19)
+* block.topleft: flowchart. (line 19)
+* block.topright: flowchart. (line 19)
+* bool: Data types. (line 14)
+* bool3: Data types. (line 23)
+* boolean operators: Arithmetic & logical.
+ (line 6)
+* Bottom: graph. (line 128)
+* BottomTop: graph. (line 134)
+* BottomView: three. (line 340)
+* bounding box: Frames and pictures. (line 162)
+* Bounds: graph3. (line 20)
+* boutput: Files. (line 71)
+* box <1>: three. (line 267)
+* box: Frames and pictures. (line 22)
+* bp: Tutorial. (line 17)
+* break: Programming. (line 29)
+* breakpoints: Debugger. (line 21)
+* brick: Pens. (line 247)
+* broken axis: graph. (line 773)
+* bug reports: Help. (line 23)
+* buildcycle: Paths and guides. (line 251)
+* Button-1: GUI. (line 6)
+* Button-2: GUI. (line 6)
+* BWRainbow: palette. (line 15)
+* BWRainbow2: palette. (line 18)
+* C string: Data types. (line 189)
+* CAD: CAD. (line 6)
+* calculateTransform: Frames and pictures. (line 105)
+* casts: Casts. (line 6)
+* cbrt: Mathematical functions.
+ (line 6)
+* cd: Files. (line 24)
+* ceil: Mathematical functions.
+ (line 26)
+* center: three. (line 300)
+* Center: label. (line 62)
+* checker: Pens. (line 247)
+* Chinese: unicode. (line 12)
+* choose: Mathematical functions.
+ (line 39)
+* Ci: Mathematical functions.
+ (line 48)
+* circle <1>: flowchart. (line 57)
+* circle: three. (line 241)
+* Circle: Paths and guides. (line 17)
+* circle: Paths and guides. (line 10)
+* circlebarframe: markers. (line 18)
+* CJK: unicode. (line 12)
+* clear <1>: Debugger. (line 23)
+* clear: Files. (line 86)
+* clip: fill. (line 110)
+* cm: Tutorial. (line 63)
+* cmyk: Pens. (line 34)
+* colatitude: Data types. (line 129)
+* color: Pens. (line 23)
+* coloredNodes: tube. (line 25)
+* coloredpath: tube. (line 18)
+* coloredSegments: tube. (line 25)
+* colorless: Pens. (line 54)
+* colors: Pens. (line 51)
+* comma: Files. (line 59)
+* comma-separated-value mode: Arrays. (line 362)
+* command-line options <1>: Options. (line 7)
+* command-line options: Configuring. (line 82)
+* comment character: Files. (line 15)
+* compass directions: Tutorial. (line 94)
+* Compiling from UNIX source: Compiling from UNIX source.
+ (line 6)
+* complement: Arrays. (line 153)
+* concat: Arrays. (line 183)
+* conditional <1>: Arithmetic & logical.
+ (line 73)
+* conditional: Programming. (line 8)
+* config: Options. (line 102)
+* configuration file: Configuring. (line 21)
+* configuring: Configuring. (line 6)
+* conj: Data types. (line 57)
+* constructors: Structures. (line 95)
+* context: Options. (line 129)
+* continue <1>: Debugger. (line 31)
+* continue: Programming. (line 29)
+* contour: contour. (line 7)
+* contour3: contour3. (line 6)
+* controls <1>: three. (line 6)
+* controls: Tutorial. (line 154)
+* controlSpecifier: Paths and guides. (line 375)
+* convert <1>: Options. (line 129)
+* convert <2>: animation. (line 6)
+* convert <3>: Files. (line 148)
+* convert: Configuring. (line 68)
+* convertOptions: Options. (line 117)
+* Coons shading: fill. (line 74)
+* copy: Arrays. (line 174)
+* Cos: Mathematical functions.
+ (line 20)
+* cos: Mathematical functions.
+ (line 6)
+* cosh: Mathematical functions.
+ (line 6)
+* cputime: Structures. (line 177)
+* crop: graph. (line 626)
+* cropping graphs: graph. (line 626)
+* cross <1>: graph. (line 474)
+* cross: Data types. (line 167)
+* crossframe: markers. (line 23)
+* crosshatch: Pens. (line 263)
+* csv: Arrays. (line 362)
+* cubicroots: Arrays. (line 320)
+* curl <1>: three. (line 6)
+* curl: Tutorial. (line 172)
+* curlSpecifier: Paths and guides. (line 387)
+* currentpen: Pens. (line 6)
+* currentprojection: three. (line 337)
+* curve: slopefield. (line 20)
+* custom axis types: graph. (line 138)
+* custom mark routine: graph. (line 566)
+* custom tick locations: graph. (line 241)
+* cut: Paths and guides. (line 233)
+* cycle <1>: three. (line 6)
+* cycle: Tutorial. (line 46)
+* cyclic <1>: three. (line 433)
+* cyclic <2>: Arrays. (line 39)
+* cyclic: Paths and guides. (line 75)
+* cyclicflag: Arrays. (line 39)
+* Cyrillic: unicode. (line 7)
+* dashdotted: Pens. (line 92)
+* dashed: Pens. (line 92)
+* data types: Data types. (line 6)
+* date: Data types. (line 290)
+* Debian: UNIX binary distributions.
+ (line 19)
+* debugger: Debugger. (line 6)
+* declaration: Programming. (line 8)
+* deconstruct: GUI Usage. (line 6)
+* default arguments: Default arguments. (line 6)
+* defaultformat: graph. (line 169)
+* DefaultHead: draw. (line 26)
+* DefaultHead3: three. (line 476)
+* defaultpen: Pens. (line 46)
+* deferred drawing: simplex. (line 6)
+* Degrees: Mathematical functions.
+ (line 17)
+* degrees <1>: Mathematical functions.
+ (line 17)
+* degrees: Data types. (line 73)
+* delete <1>: Arrays. (line 39)
+* delete: Files. (line 143)
+* description: Description. (line 6)
+* diagonal: Arrays. (line 305)
+* diamond: flowchart. (line 50)
+* dimension: Arrays. (line 368)
+* dir <1>: three. (line 433)
+* dir <2>: Paths and guides. (line 99)
+* dir <3>: Data types. (line 85)
+* dir: Search paths. (line 10)
+* direction specifier: Tutorial. (line 115)
+* directory: Files. (line 24)
+* dirSpecifier: Paths and guides. (line 369)
+* dirtime: Paths and guides. (line 147)
+* display: Configuring. (line 68)
+* do: Programming. (line 29)
+* dot <1>: Data types. (line 98)
+* dot: draw. (line 83)
+* DotMargin: draw. (line 42)
+* DotMargin3: three. (line 492)
+* DotMargins: draw. (line 42)
+* DotMargins3: three. (line 492)
+* dotted: Pens. (line 92)
+* double: Files. (line 71)
+* double deferred drawing: three. (line 222)
+* Draw: Frames and pictures. (line 145)
+* draw: draw. (line 110)
+* Draw: draw. (line 26)
+* draw: Drawing commands. (line 31)
+* drawing commands: Drawing commands. (line 6)
+* drawline: math. (line 9)
+* drawtree: drawtree. (line 7)
+* dvips: Configuring. (line 68)
+* dvipsOptions: Options. (line 117)
+* E <1>: Mathematical functions.
+ (line 48)
+* E: Tutorial. (line 94)
+* Editing modes: Editing modes. (line 6)
+* Ei: Mathematical functions.
+ (line 48)
+* ellipse: Frames and pictures. (line 22)
+* elliptic functions: Mathematical functions.
+ (line 48)
+* else: Programming. (line 8)
+* emacs: Editing modes. (line 6)
+* embed: embed. (line 6)
+* empty: Frames and pictures. (line 7)
+* EndArcArrow: draw. (line 26)
+* EndArcArrow3: three. (line 476)
+* EndArrow: draw. (line 26)
+* EndArrow3: three. (line 476)
+* EndBar: draw. (line 19)
+* EndBar3: three. (line 476)
+* EndDotMargin: draw. (line 42)
+* EndDotMargin3: three. (line 492)
+* endl: Files. (line 59)
+* EndMargin: draw. (line 42)
+* EndMargin3: three. (line 492)
+* EndPenMargin: draw. (line 42)
+* EndPenMargin2: three. (line 492)
+* EndPenMargin3: three. (line 492)
+* EndPoint: label. (line 57)
+* envelope: Frames and pictures. (line 22)
+* environment variables: Configuring. (line 86)
+* eof <1>: Arrays. (line 346)
+* eof: Files. (line 86)
+* eol <1>: Arrays. (line 346)
+* eol: Files. (line 86)
+* EPS: label. (line 80)
+* erase <1>: Frames and pictures. (line 7)
+* erase: Data types. (line 239)
+* erf: Mathematical functions.
+ (line 6)
+* erfc: Mathematical functions.
+ (line 6)
+* error: Files. (line 15)
+* errorbars: graph. (line 474)
+* eval: Import. (line 101)
+* evenodd <1>: Pens. (line 148)
+* evenodd: Tutorial. (line 211)
+* exit <1>: Debugger. (line 57)
+* exit <2>: Interactive mode. (line 37)
+* exit: Data types. (line 325)
+* exp: Mathematical functions.
+ (line 6)
+* expi: Data types. (line 81)
+* explicit: Casts. (line 6)
+* explicit casts: Casts. (line 22)
+* expm1: Mathematical functions.
+ (line 6)
+* exponential integral: Mathematical functions.
+ (line 48)
+* extendcap: Pens. (line 125)
+* extension <1>: MetaPost. (line 10)
+* extension: Paths and guides. (line 228)
+* external: embed. (line 28)
+* extrude: three. (line 427)
+* F: Mathematical functions.
+ (line 48)
+* fabs: Mathematical functions.
+ (line 6)
+* face: three. (line 511)
+* factorial: Mathematical functions.
+ (line 39)
+* Fedora: UNIX binary distributions.
+ (line 15)
+* feynman: feynman. (line 6)
+* fft: Arrays. (line 252)
+* FFTW: Compiling from UNIX source.
+ (line 59)
+* file <1>: Debugger. (line 45)
+* file: Files. (line 6)
+* Fill: Frames and pictures. (line 131)
+* fill <1>: fill. (line 17)
+* fill: draw. (line 116)
+* Fill: draw. (line 26)
+* FillDraw: Frames and pictures. (line 121)
+* filldraw: fill. (line 11)
+* FillDraw: draw. (line 26)
+* filloutside: fill. (line 27)
+* fillrule: Pens. (line 148)
+* find <1>: Arrays. (line 162)
+* find: Data types. (line 224)
+* firstcut: Paths and guides. (line 243)
+* fit: Frames and pictures. (line 101)
+* fix-cm: Pens. (line 174)
+* fixedscaling: Frames and pictures. (line 74)
+* floor: Mathematical functions.
+ (line 26)
+* flowchart: flowchart. (line 6)
+* flush: Files. (line 59)
+* fmod: Mathematical functions.
+ (line 6)
+* font: Pens. (line 188)
+* font command: Pens. (line 188)
+* fontcommand: Pens. (line 203)
+* fontsize: Pens. (line 174)
+* for: Programming. (line 8)
+* format <1>: Options. (line 129)
+* format: Data types. (line 266)
+* forum: Help. (line 6)
+* frame: Frames and pictures. (line 7)
+* freeglut: Compiling from UNIX source.
+ (line 16)
+* from: Import. (line 17)
+* FrontView: three. (line 340)
+* function declarations: Functions. (line 67)
+* function shading: fill. (line 95)
+* Function shading: fill. (line 95)
+* functions <1>: Mathematical functions.
+ (line 6)
+* functions: Functions. (line 6)
+* functionshade: fill. (line 95)
+* gamma: Mathematical functions.
+ (line 6)
+* Gaussrand: Mathematical functions.
+ (line 39)
+* geometry: geometry. (line 6)
+* getc: Files. (line 30)
+* getpair: Files. (line 111)
+* getreal: Files. (line 111)
+* getstring: Files. (line 111)
+* gettriple: Files. (line 111)
+* glOptions <1>: Options. (line 117)
+* glOptions: three. (line 180)
+* GNU Scientific Library: Mathematical functions.
+ (line 48)
+* gouraudshade: fill. (line 58)
+* Gradient: palette. (line 25)
+* gradient shading: fill. (line 32)
+* graph: graph. (line 6)
+* graph3: graph3. (line 6)
+* graphic: label. (line 80)
+* graphical user interface: GUI. (line 6)
+* gray: Pens. (line 25)
+* Grayscale: palette. (line 9)
+* grayscale: Pens. (line 25)
+* grid <1>: graph. (line 724)
+* grid: Pens. (line 247)
+* grid3: grid3. (line 6)
+* gs: Configuring. (line 6)
+* gsl: Mathematical functions.
+ (line 48)
+* GSL: Compiling from UNIX source.
+ (line 59)
+* gsOptions: Options. (line 117)
+* GUI: GUI. (line 6)
+* GUI installation: GUI Installation. (line 6)
+* GUI usage: GUI Usage. (line 6)
+* guide: Paths and guides. (line 296)
+* guide3: three. (line 6)
+* hatch: Pens. (line 263)
+* height: LaTeX usage. (line 32)
+* help <1>: Debugger. (line 30)
+* help <2>: Help. (line 6)
+* help: Interactive mode. (line 25)
+* Hermite: graph. (line 37)
+* Hermite(splinetype splinetype: graph. (line 37)
+* hex: Data types. (line 278)
+* hexidecimal <1>: Pens. (line 59)
+* hexidecimal: Data types. (line 278)
+* hidden surface removal: three. (line 511)
+* histogram: Mathematical functions.
+ (line 39)
+* history: Files. (line 136)
+* historylines: Interactive mode. (line 42)
+* HookHead: draw. (line 26)
+* HookHead3: three. (line 476)
+* Horizontal: flowchart. (line 74)
+* hypot: Mathematical functions.
+ (line 6)
+* I: Mathematical functions.
+ (line 48)
+* i_scaled: Mathematical functions.
+ (line 48)
+* iconic: three. (line 180)
+* identity <1>: Arrays. (line 302)
+* identity <2>: Mathematical functions.
+ (line 6)
+* identity: Transforms. (line 24)
+* if: Programming. (line 8)
+* IgnoreAspect: Frames and pictures. (line 58)
+* image: palette. (line 34)
+* ImageMagick <1>: Options. (line 129)
+* ImageMagick <2>: animation. (line 6)
+* ImageMagick: Configuring. (line 68)
+* implicit casts: Casts. (line 6)
+* implicit linear solver: MetaPost. (line 10)
+* implicit scaling: Implicit scaling. (line 6)
+* import: Import. (line 48)
+* inches: Tutorial. (line 63)
+* including images: label. (line 80)
+* inheritance: Structures. (line 189)
+* initialized: Arrays. (line 39)
+* initializers: Variable initializers.
+ (line 6)
+* InOutTicks: graph3. (line 34)
+* input <1>: Interactive mode. (line 31)
+* input: Files. (line 11)
+* insert <1>: Arrays. (line 39)
+* insert: Data types. (line 235)
+* inside: Paths and guides. (line 275)
+* inst: Debugger. (line 36)
+* installation: Installation. (line 6)
+* int: Data types. (line 28)
+* integer division: Arithmetic & logical.
+ (line 6)
+* interactive mode: Interactive mode. (line 6)
+* interior: Paths and guides. (line 271)
+* international characters: unicode. (line 6)
+* interp: Arithmetic & logical.
+ (line 76)
+* interpolate: interpolate. (line 6)
+* intersect <1>: three. (line 433)
+* intersect <2>: math. (line 13)
+* intersect: Paths and guides. (line 176)
+* intersectionpoint <1>: three. (line 433)
+* intersectionpoint <2>: math. (line 17)
+* intersectionpoint: Paths and guides. (line 220)
+* intersectionpoints <1>: three. (line 433)
+* intersectionpoints: Paths and guides. (line 224)
+* intersections <1>: three. (line 433)
+* intersections: Paths and guides. (line 187)
+* InTicks: graph3. (line 34)
+* intMax: Data types. (line 28)
+* intMin: Data types. (line 28)
+* inverse <1>: Arrays. (line 308)
+* inverse: Transforms. (line 16)
+* invert: three. (line 366)
+* invisible: Pens. (line 39)
+* J: Mathematical functions.
+ (line 6)
+* Japanese: unicode. (line 12)
+* K: Mathematical functions.
+ (line 48)
+* k_scaled: Mathematical functions.
+ (line 48)
+* keyboard bindings:: three. (line 149)
+* keys: Arrays. (line 39)
+* keywords: Named arguments. (line 6)
+* Korean: unicode. (line 12)
+* Label: graph. (line 332)
+* label: clip. (line 16)
+* Label: draw. (line 98)
+* labelpath: labelpath. (line 6)
+* labelpath3: labelpath3. (line 6)
+* labelx: graph. (line 332)
+* labely: graph. (line 332)
+* Landscape: Frames and pictures. (line 93)
+* lastcut: Paths and guides. (line 247)
+* lasy-mode: Editing modes. (line 6)
+* latex: Options. (line 129)
+* LaTeX fonts: Pens. (line 188)
+* LaTeX usage: LaTeX usage. (line 6)
+* latin1: latin1. (line 6)
+* latitude: Data types. (line 134)
+* latticeshade: fill. (line 32)
+* layer: Drawing commands. (line 16)
+* leastsquares <1>: graph. (line 892)
+* leastsquares: stats. (line 6)
+* Left: graph. (line 274)
+* LeftRight: graph. (line 280)
+* LeftSide: label. (line 62)
+* LeftTicks: graph. (line 155)
+* LeftView: three. (line 340)
+* legend <1>: graph. (line 421)
+* legend <2>: draw. (line 64)
+* legend: Drawing commands. (line 31)
+* Legendre: Mathematical functions.
+ (line 48)
+* length <1>: three. (line 433)
+* length <2>: Arrays. (line 39)
+* length <3>: Paths and guides. (line 66)
+* length: Data types. (line 60)
+* letter: Configuring. (line 62)
+* libm routines: Mathematical functions.
+ (line 6)
+* libsigsegv <1>: Help. (line 33)
+* libsigsegv: Functions. (line 88)
+* limits: graph. (line 626)
+* line: Arrays. (line 346)
+* line mode: Arrays. (line 346)
+* Linear: graph. (line 672)
+* linecap: Pens. (line 125)
+* linejoin: Pens. (line 134)
+* lineskip: Pens. (line 174)
+* linewidth: Pens. (line 115)
+* locale: Data types. (line 285)
+* Log: graph. (line 672)
+* log: Mathematical functions.
+ (line 6)
+* log-log graph: graph. (line 703)
+* log10: Mathematical functions.
+ (line 6)
+* log1p: Mathematical functions.
+ (line 6)
+* log2 graph: graph. (line 753)
+* logarithmic graph: graph. (line 703)
+* logical operators: Arithmetic & logical.
+ (line 6)
+* longdashdotted: Pens. (line 92)
+* longdashed: Pens. (line 92)
+* longitude: Data types. (line 139)
+* loop: Programming. (line 8)
+* MacOS X binary distributions: MacOS X binary distributions.
+ (line 6)
+* makepen: Pens. (line 296)
+* map: Arrays. (line 144)
+* Margin: draw. (line 42)
+* Margin3: three. (line 492)
+* margins: three. (line 228)
+* Margins: draw. (line 42)
+* Margins3: three. (line 492)
+* mark: graph. (line 474)
+* markangle: markers. (line 38)
+* marker: graph. (line 474)
+* markers: markers. (line 6)
+* marknodes: graph. (line 474)
+* markuniform: graph. (line 474)
+* math: math. (line 6)
+* mathematical functions: Mathematical functions.
+ (line 6)
+* max <1>: three. (line 433)
+* max <2>: Arrays. (line 231)
+* max <3>: Frames and pictures. (line 7)
+* max: Paths and guides. (line 260)
+* maxbound: Data types. (line 104)
+* maxtile: three. (line 180)
+* maxtimes: Paths and guides. (line 215)
+* maxviewport: three. (line 180)
+* merge: animation. (line 6)
+* MetaPost: MetaPost. (line 6)
+* MetaPost ... : Tutorial. (line 176)
+* MetaPost cutafter: Paths and guides. (line 248)
+* MetaPost cutbefore: Paths and guides. (line 244)
+* MetaPost pickup: Pens. (line 6)
+* MetaPost whatever: MetaPost. (line 10)
+* Microsoft Windows: Microsoft Windows. (line 6)
+* MidArcArrow: draw. (line 26)
+* MidArcArrow3: three. (line 476)
+* MidArrow: draw. (line 26)
+* MidArrow3: three. (line 476)
+* midpoint: Paths and guides. (line 161)
+* MidPoint: label. (line 57)
+* min <1>: three. (line 433)
+* min <2>: Arrays. (line 224)
+* min <3>: Frames and pictures. (line 7)
+* min: Paths and guides. (line 256)
+* minbound: Data types. (line 101)
+* minipage: label. (line 119)
+* mintimes: Paths and guides. (line 210)
+* miterjoin: Pens. (line 134)
+* miterlimit: Pens. (line 143)
+* mm: Tutorial. (line 63)
+* mouse: GUI. (line 6)
+* mouse bindings: three. (line 129)
+* Move: Pens. (line 335)
+* MoveQuiet: Pens. (line 341)
+* multisample: three. (line 119)
+* multisampling: Compiling from UNIX source.
+ (line 16)
+* N: Tutorial. (line 94)
+* named arguments: Named arguments. (line 6)
+* new <1>: Arrays. (line 112)
+* new: Structures. (line 6)
+* newframe: Frames and pictures. (line 7)
+* newl: Files. (line 59)
+* newton: Mathematical functions.
+ (line 65)
+* next: Debugger. (line 42)
+* NFSS: Pens. (line 188)
+* nobasealign: Pens. (line 164)
+* NoFill <1>: Frames and pictures. (line 139)
+* NoFill: draw. (line 26)
+* NoMargin: draw. (line 42)
+* NoMargin3: three. (line 492)
+* none: Files. (line 59)
+* None: draw. (line 19)
+* normal: three. (line 419)
+* nosafe: Options. (line 145)
+* NOT: Arithmetic & logical.
+ (line 80)
+* NoTicks: graph. (line 155)
+* NoTicks3: graph3. (line 34)
+* null: Structures. (line 6)
+* nullpen <1>: Frames and pictures. (line 125)
+* nullpen: label. (line 14)
+* NURBS: three. (line 318)
+* O: three. (line 236)
+* obj: obj. (line 7)
+* oblique: three. (line 281)
+* obliqueX: three. (line 289)
+* obliqueY: three. (line 296)
+* obliqueZ: three. (line 281)
+* offset: Options. (line 149)
+* opacity: Pens. (line 218)
+* open: Files. (line 11)
+* OpenGL: three. (line 119)
+* operator: User-defined operators.
+ (line 6)
+* operator --: graph. (line 31)
+* operator ..: graph. (line 34)
+* operator cast: Casts. (line 31)
+* operator ecast: Casts. (line 58)
+* operator init <1>: Structures. (line 141)
+* operator init: Variable initializers.
+ (line 6)
+* operators: Operators. (line 6)
+* options: Options. (line 7)
+* OR: Arithmetic & logical.
+ (line 80)
+* orientation: Frames and pictures. (line 93)
+* orthographic: three. (line 300)
+* outformat: three. (line 119)
+* output <1>: Options. (line 129)
+* output: Files. (line 36)
+* OutTicks: graph3. (line 34)
+* overloading functions: Functions. (line 44)
+* overwrite: Pens. (line 320)
+* P: Mathematical functions.
+ (line 48)
+* pack: label. (line 102)
+* packing: Rest arguments. (line 30)
+* pair <1>: Data types. (line 41)
+* pair: Tutorial. (line 17)
+* pairs: Arrays. (line 248)
+* paperheight: Configuring. (line 62)
+* papertype: Configuring. (line 62)
+* paperwidth: Configuring. (line 62)
+* parametrized curve: graph. (line 626)
+* patch-dependent colors: three. (line 75)
+* path <1>: flowchart. (line 74)
+* path <2>: three. (line 43)
+* path: Paths and guides. (line 7)
+* path3: three. (line 6)
+* path[]: Tutorial. (line 197)
+* patterns <1>: patterns. (line 6)
+* patterns: Pens. (line 234)
+* pdflatex: Options. (line 129)
+* pdfviewer: Configuring. (line 6)
+* pdfviewerOptions: Options. (line 117)
+* pen: Pens. (line 6)
+* PenMargin: draw. (line 42)
+* PenMargin2: three. (line 492)
+* PenMargin3: three. (line 492)
+* PenMargins: draw. (line 42)
+* PenMargins2: three. (line 492)
+* PenMargins3: three. (line 492)
+* perpendicular: geometry. (line 6)
+* perspective: three. (line 318)
+* picture: Frames and pictures. (line 35)
+* picture alignment: Frames and pictures. (line 203)
+* piecewisestraight: Paths and guides. (line 82)
+* Pl: Mathematical functions.
+ (line 48)
+* plain: plain. (line 6)
+* planar: three. (line 83)
+* plane: three. (line 263)
+* planeproject: three. (line 416)
+* point <1>: three. (line 433)
+* point: Paths and guides. (line 85)
+* polar: Data types. (line 119)
+* polargraph: graph. (line 90)
+* polygon: graph. (line 474)
+* pop: Arrays. (line 39)
+* Portrait: Frames and pictures. (line 93)
+* postcontrol <1>: three. (line 433)
+* postcontrol: Paths and guides. (line 130)
+* postfix operators: Self & prefix operators.
+ (line 19)
+* postscript: Frames and pictures. (line 265)
+* PostScript fonts: Pens. (line 206)
+* PostScript subpath: Tutorial. (line 197)
+* pow10: Mathematical functions.
+ (line 6)
+* prc: three. (line 197)
+* precision: Files. (line 86)
+* precontrol <1>: three. (line 433)
+* precontrol: Paths and guides. (line 123)
+* prefix operators: Self & prefix operators.
+ (line 6)
+* private: Structures. (line 6)
+* programming: Programming. (line 6)
+* pstoedit: PostScript to Asymptote.
+ (line 6)
+* psviewer: Configuring. (line 6)
+* psviewerOptions: Options. (line 117)
+* pt: Tutorial. (line 63)
+* public: Structures. (line 6)
+* push: Arrays. (line 39)
+* python: Configuring. (line 27)
+* Python usage: Interactive mode. (line 58)
+* quadraticroots: Arrays. (line 311)
+* quarticroots: math. (line 22)
+* quit <1>: Debugger. (line 54)
+* quit: Interactive mode. (line 37)
+* quote: Import. (line 119)
+* quotient: Arithmetic & logical.
+ (line 6)
+* RadialShade: Frames and pictures. (line 157)
+* radialshade: fill. (line 49)
+* radians: Mathematical functions.
+ (line 17)
+* radius <1>: three. (line 433)
+* radius: Paths and guides. (line 119)
+* Rainbow: palette. (line 12)
+* rand: Mathematical functions.
+ (line 39)
+* randMax: Mathematical functions.
+ (line 39)
+* read1: Arrays. (line 386)
+* read2: Arrays. (line 386)
+* read3: Arrays. (line 386)
+* reading: Files. (line 11)
+* reading string arrays: Arrays. (line 353)
+* readline: Files. (line 128)
+* real: Data types. (line 33)
+* realDigits: Data types. (line 33)
+* realEpsilon: Data types. (line 33)
+* realMax: Data types. (line 33)
+* realMin: Data types. (line 33)
+* realmult: Data types. (line 95)
+* rectangle: flowchart. (line 37)
+* recursion: Functions. (line 88)
+* reflect: Transforms. (line 51)
+* Relative: label. (line 52)
+* relpoint: Paths and guides. (line 157)
+* reltime: Paths and guides. (line 153)
+* remainder: Mathematical functions.
+ (line 6)
+* rename: Files. (line 145)
+* render <1>: Options. (line 129)
+* render: three. (line 119)
+* replace: Data types. (line 252)
+* resetdefaultpen: Pens. (line 349)
+* rest arguments: Rest arguments. (line 6)
+* restore: Frames and pictures. (line 259)
+* restricted: Structures. (line 6)
+* return: Debugger. (line 48)
+* reverse <1>: three. (line 433)
+* reverse <2>: Arrays. (line 149)
+* reverse <3>: Paths and guides. (line 164)
+* reverse: Data types. (line 248)
+* rewind: Files. (line 86)
+* rfind: Data types. (line 229)
+* rgb: Pens. (line 30)
+* Riemann zeta function: Mathematical functions.
+ (line 48)
+* Right: graph. (line 277)
+* RightSide: label. (line 62)
+* RightTicks: graph. (line 155)
+* RightView: three. (line 340)
+* Rotate: label. (line 37)
+* Rotate(pair z): label. (line 40)
+* round: Mathematical functions.
+ (line 26)
+* roundcap: Pens. (line 125)
+* roundedpath: roundedpath. (line 6)
+* roundjoin: Pens. (line 134)
+* roundrectangle: flowchart. (line 62)
+* RPM: UNIX binary distributions.
+ (line 6)
+* runtime imports: Import. (line 101)
+* Russian: unicode. (line 7)
+* S: Tutorial. (line 94)
+* safe: Options. (line 145)
+* save: Frames and pictures. (line 256)
+* saveline: Files. (line 128)
+* scale: three. (line 395)
+* Scale: graph. (line 688)
+* scale <1>: graph. (line 672)
+* scale: Transforms. (line 39)
+* Scale: label. (line 46)
+* scale3: three. (line 392)
+* scaled graph: graph. (line 653)
+* scientific graph: graph. (line 386)
+* scroll: Files. (line 102)
+* search: Arrays. (line 167)
+* search paths: Search paths. (line 6)
+* Seascape: Frames and pictures. (line 98)
+* secondary axis: graph. (line 803)
+* secondaryX: graph. (line 803)
+* secondaryY: graph. (line 803)
+* seconds: Data types. (line 298)
+* seek: Files. (line 86)
+* seekeof: Files. (line 86)
+* segmentation fault: Help. (line 33)
+* self operators: Self & prefix operators.
+ (line 6)
+* sequence: Arrays. (line 131)
+* settings <1>: Options. (line 102)
+* settings: Configuring. (line 21)
+* sgn: Mathematical functions.
+ (line 26)
+* shading: fill. (line 32)
+* shift <1>: three. (line 380)
+* shift: Transforms. (line 27)
+* Shift: label. (line 34)
+* shiftless: Transforms. (line 53)
+* shipout: Frames and pictures. (line 83)
+* showtarget: three. (line 300)
+* Si: Mathematical functions.
+ (line 48)
+* SimpleHead: draw. (line 26)
+* simplex: simplex. (line 6)
+* simpson: Mathematical functions.
+ (line 81)
+* Sin: Mathematical functions.
+ (line 20)
+* sin: Mathematical functions.
+ (line 6)
+* single: Files. (line 71)
+* sinh: Mathematical functions.
+ (line 6)
+* size <1>: Options. (line 129)
+* size <2>: three. (line 433)
+* size <3>: Frames and pictures. (line 43)
+* size: Paths and guides. (line 71)
+* size3: three. (line 225)
+* slant: Transforms. (line 45)
+* Slant: label. (line 43)
+* sleep: Data types. (line 328)
+* slice: Paths and guides. (line 233)
+* slices: Slices. (line 6)
+* slide: slide. (line 6)
+* slopefield: slopefield. (line 6)
+* solid: Pens. (line 92)
+* solids: solids. (line 7)
+* solve: Arrays. (line 265)
+* sort: Arrays. (line 190)
+* Spline: graph. (line 34)
+* split: Data types. (line 261)
+* sqrt: Mathematical functions.
+ (line 6)
+* squarecap: Pens. (line 125)
+* srand: Mathematical functions.
+ (line 39)
+* stack overflow <1>: Help. (line 33)
+* stack overflow: Functions. (line 88)
+* static: Static. (line 6)
+* stats: stats. (line 6)
+* stdin: Files. (line 46)
+* stdout: Files. (line 46)
+* step: Debugger. (line 39)
+* stickframe: markers. (line 16)
+* stop: Debugger. (line 10)
+* straight: three. (line 433)
+* Straight: graph. (line 31)
+* straight: Paths and guides. (line 78)
+* strftime: Data types. (line 290)
+* string: Data types. (line 179)
+* stroke: fill. (line 36)
+* strokepath: Paths and guides. (line 290)
+* strptime: Data types. (line 298)
+* struct: Structures. (line 6)
+* structures: Structures. (line 6)
+* subpath <1>: three. (line 433)
+* subpath: Paths and guides. (line 167)
+* subpictures: Frames and pictures. (line 101)
+* substr: Data types. (line 244)
+* Subversion: Subversion. (line 6)
+* sum: Arrays. (line 219)
+* superpath: Tutorial. (line 197)
+* Suppress: Pens. (line 327)
+* SuppressQuiet: Pens. (line 331)
+* surface: three. (line 47)
+* SVN: Subversion. (line 6)
+* system <1>: Options. (line 145)
+* system: Files. (line 153)
+* syzygy: syzygy. (line 6)
+* tab: Files. (line 59)
+* tab completion: Tutorial. (line 21)
+* Tan: Mathematical functions.
+ (line 20)
+* tan: Mathematical functions.
+ (line 6)
+* tanh: Mathematical functions.
+ (line 6)
+* target: three. (line 300)
+* tell: Files. (line 86)
+* tension <1>: three. (line 6)
+* tension: Tutorial. (line 165)
+* tensionSpecifier: Paths and guides. (line 381)
+* tensor product shading: fill. (line 74)
+* tensorshade: fill. (line 74)
+* tex <1>: Options. (line 129)
+* tex: Frames and pictures. (line 272)
+* TeX fonts: Pens. (line 197)
+* TeX string: Data types. (line 179)
+* texcommand: Configuring. (line 68)
+* texdvicommand: Configuring. (line 68)
+* TeXHead: draw. (line 26)
+* TeXHead3: three. (line 476)
+* texpath <1>: label. (line 116)
+* texpath: Configuring. (line 68)
+* texpreamble: Frames and pictures. (line 280)
+* texreset: Frames and pictures. (line 283)
+* textbook graph: graph. (line 361)
+* tgz: UNIX binary distributions.
+ (line 6)
+* thick: three. (line 104)
+* thin: three. (line 104)
+* this: Structures. (line 6)
+* three: three. (line 6)
+* tick: graph. (line 332)
+* Ticks: graph. (line 155)
+* ticks: graph. (line 155)
+* tildeframe: markers. (line 26)
+* tile: Pens. (line 247)
+* tilings: Pens. (line 234)
+* time: Data types. (line 290)
+* times: Paths and guides. (line 202)
+* Top: graph. (line 131)
+* TopView: three. (line 340)
+* trace: Debugger. (line 51)
+* trailingzero: graph. (line 169)
+* transform <1>: three. (line 407)
+* transform: Transforms. (line 6)
+* transform3: three. (line 376)
+* transparency: Pens. (line 218)
+* transpose: Arrays. (line 211)
+* tree: tree. (line 7)
+* trembling: trembling. (line 6)
+* triangle: geometry. (line 6)
+* triangulate: contour. (line 154)
+* tridiagonal: Arrays. (line 268)
+* trigonometric integrals: Mathematical functions.
+ (line 48)
+* triple: Data types. (line 108)
+* TrueMargin: draw. (line 42)
+* TrueMargin3: three. (line 492)
+* tube <1>: tube. (line 6)
+* tube: three. (line 104)
+* tutorial: Tutorial. (line 6)
+* typedef <1>: Functions. (line 36)
+* typedef: Data types. (line 338)
+* undefined: Paths and guides. (line 264)
+* UnFill: Frames and pictures. (line 150)
+* unfill: fill. (line 105)
+* UnFill: draw. (line 26)
+* unicode: unicode. (line 6)
+* uniform: Arrays. (line 158)
+* Uninstall: Uninstall. (line 6)
+* unit: Data types. (line 78)
+* unitbox <1>: three. (line 269)
+* unitbox: Tutorial. (line 218)
+* unitcircle <1>: three. (line 236)
+* unitcircle: Tutorial. (line 110)
+* unitrand: Mathematical functions.
+ (line 39)
+* unitsize <1>: Frames and pictures. (line 64)
+* unitsize: Tutorial. (line 73)
+* UNIX binary distributions: UNIX binary distributions.
+ (line 6)
+* unpacking: Rest arguments. (line 39)
+* unravel: Import. (line 31)
+* up: three. (line 300)
+* update: Files. (line 36)
+* UpsideDown: Frames and pictures. (line 93)
+* usepackage: Frames and pictures. (line 285)
+* user coordinates: Tutorial. (line 73)
+* user-defined operators: User-defined operators.
+ (line 6)
+* usleep: Data types. (line 331)
+* variable initializers: Variable initializers.
+ (line 6)
+* vectorfield: graph. (line 965)
+* vectorfield3: graph3. (line 150)
+* vectorization: Arrays. (line 325)
+* verbatim: Frames and pictures. (line 265)
+* vertex-dependent colors: three. (line 75)
+* Vertical: flowchart. (line 74)
+* viewportheight: LaTeX usage. (line 32)
+* viewportmargin: three. (line 228)
+* viewportsize: three. (line 228)
+* viewportwidth: LaTeX usage. (line 32)
+* views: three. (line 197)
+* vim: Editing modes. (line 33)
+* virtual functions: Structures. (line 189)
+* void: Data types. (line 10)
+* W: Tutorial. (line 94)
+* whatever: Paths and guides. (line 228)
+* Wheel: palette. (line 22)
+* wheel mouse: GUI. (line 6)
+* while: Programming. (line 29)
+* white-space string delimiter mode: Arrays. (line 353)
+* width: LaTeX usage. (line 32)
+* windingnumber: Paths and guides. (line 264)
+* word: Arrays. (line 353)
+* write <1>: Arrays. (line 394)
+* write: Files. (line 51)
+* X: three. (line 236)
+* xasy <1>: GUI. (line 6)
+* xasy: Configuring. (line 68)
+* xaxis: graph3. (line 7)
+* xelatex <1>: Options. (line 129)
+* xelatex: embed. (line 10)
+* xequals: graph. (line 284)
+* XEquals: graph. (line 270)
+* xinput: Files. (line 71)
+* xlimits: graph. (line 626)
+* XOR: Arithmetic & logical.
+ (line 80)
+* xoutput: Files. (line 71)
+* xpart: Data types. (line 89)
+* xscale: Transforms. (line 33)
+* xscale3: three. (line 383)
+* xtick: graph. (line 332)
+* XYEquals: graph3. (line 20)
+* XYZero: graph3. (line 20)
+* XZEquals: graph3. (line 20)
+* XZero: graph. (line 265)
+* XZZero: graph3. (line 20)
+* Y <1>: three. (line 236)
+* Y: Mathematical functions.
+ (line 6)
+* yaxis: graph3. (line 7)
+* yequals: graph. (line 284)
+* YEquals: graph. (line 124)
+* ylimits: graph. (line 626)
+* ypart: Data types. (line 92)
+* yscale: Transforms. (line 36)
+* yscale3: three. (line 386)
+* ytick: graph. (line 332)
+* YZEquals: graph3. (line 20)
+* YZero: graph. (line 119)
+* YZZero: graph3. (line 20)
+* Z: three. (line 236)
+* zaxis: graph3. (line 7)
+* zero_Ai: Mathematical functions.
+ (line 48)
+* zero_Ai_deriv: Mathematical functions.
+ (line 48)
+* zero_Bi: Mathematical functions.
+ (line 48)
+* zero_Bi_deriv: Mathematical functions.
+ (line 48)
+* zero_J: Mathematical functions.
+ (line 48)
+* zerowinding: Pens. (line 148)
+* zeta: Mathematical functions.
+ (line 48)
+* zpart: Data types. (line 161)
+* zscale3: three. (line 389)
+* |: Arithmetic & logical.
+ (line 62)
+* ||: Arithmetic & logical.
+ (line 59)
+
+

Tag Table:
-(Indirect)
Node: Top578
-Node: Description6646
-Node: Installation10061
-Node: UNIX binary distributions11054
-Node: MacOS X binary distributions12160
-Node: Microsoft Windows13108
-Node: Configuring14278
-Node: Search paths18463
-Node: Compiling from UNIX source19143
-Ref: multisampling19732
-Node: Editing modes22158
-Node: Subversion24358
-Node: Uninstall24819
-Node: Tutorial25169
-Ref: unitcircle29177
-Ref: Bezier29386
-Node: Drawing commands34799
-Node: draw36508
-Ref: arrows37656
-Node: fill42881
-Ref: gradient shading43925
-Node: clip48118
-Node: label48710
-Ref: Label49409
-Node: Programming55205
-Ref: array iteration56022
-Node: Data types57104
-Ref: format66001
-Node: Paths and guides69398
-Ref: circle69652
-Ref: arctime75050
-Ref: extension78915
-Node: Pens85488
-Ref: fillrule92742
-Ref: basealign93639
-Ref: transparency96464
-Ref: makepen100013
-Ref: overwrite100905
-Node: Transforms102115
-Node: Frames and pictures103906
-Ref: envelope105047
-Ref: size106130
-Ref: unitsize107117
-Ref: shipout108177
-Ref: filltype110395
-Ref: add113378
-Ref: add about114324
-Ref: tex117325
-Node: Files118199
-Ref: cd119164
-Ref: scroll123545
-Node: Variable initializers126588
-Node: Structures128883
-Node: Operators136225
-Node: Arithmetic & logical136539
-Node: Self & prefix operators138436
-Node: User-defined operators139224
-Node: Implicit scaling140135
-Node: Functions140698
-Ref: stack overflow143451
-Node: Default arguments144015
-Node: Named arguments144754
-Node: Rest arguments146916
-Node: Mathematical functions149726
-Node: Arrays154331
-Ref: sort161512
-Ref: tridiagonal163803
-Ref: solve165031
-Node: Slices169158
-Node: Casts173052
-Node: Import175018
-Node: Static180248
-Node: LaTeX usage183144
-Node: Base modules188613
-Node: plain191049
-Node: simplex191701
-Node: math191974
-Node: interpolate193073
-Node: geometry193352
-Node: trembling193915
-Node: stats194276
-Node: patterns194536
-Node: markers194772
-Node: tree196661
-Node: binarytree196847
-Node: drawtree197493
-Node: syzygy197695
-Node: feynman197969
-Node: roundedpath198244
-Node: animation198527
-Ref: animate198946
-Node: embed200085
-Node: slide201887
-Node: MetaPost202227
-Node: unicode202943
-Node: latin1203831
-Node: babel204199
-Node: labelpath204428
-Node: labelpath3205248
-Node: annotate205559
-Node: CAD206030
-Node: graph206340
-Ref: ticks213178
-Ref: pathmarkers226599
-Ref: marker227064
-Ref: markuniform227415
-Ref: errorbars229206
-Ref: automatic scaling233543
-Node: palette244951
-Ref: images245069
-Ref: image249240
-Ref: logimage249769
-Ref: penimage250627
-Node: three251123
-Ref: PostScript3D272277
-Node: obj274022
-Node: graph3274272
-Ref: GaussianSurface279000
-Node: grid3280141
-Node: solids280935
-Node: tube281937
-Node: flowchart284168
-Node: contour288724
-Node: contour3294022
-Node: slopefield294329
-Node: Options295810
-Ref: configuration file300978
-Ref: settings300978
-Ref: convert302049
-Node: Interactive mode304808
-Ref: history306432
-Node: GUI307737
-Node: GUI Installation308240
-Node: GUI Usage309765
-Node: PostScript to Asymptote310668
-Node: Help311811
-Node: Debugger313538
-Node: Credits315323
-Node: Index316236
+Node: Description6701
+Node: Installation10116
+Node: UNIX binary distributions11164
+Node: MacOS X binary distributions12270
+Node: Microsoft Windows13218
+Node: Configuring14388
+Node: Search paths18573
+Node: Compiling from UNIX source19253
+Ref: multisampling19842
+Node: Editing modes22268
+Node: Subversion24468
+Node: Uninstall24929
+Node: Tutorial25279
+Ref: unitcircle29287
+Ref: Bezier29496
+Node: Drawing commands34909
+Node: draw36618
+Ref: arrows37766
+Node: fill42991
+Ref: gradient shading44035
+Node: clip48228
+Node: label48820
+Ref: Label49519
+Node: Programming55315
+Ref: array iteration56132
+Node: Data types57214
+Ref: format66111
+Node: Paths and guides69508
+Ref: circle69762
+Ref: arctime75160
+Ref: extension79025
+Node: Pens85764
+Ref: fillrule93018
+Ref: basealign93915
+Ref: transparency96740
+Ref: makepen100289
+Ref: overwrite101181
+Node: Transforms102391
+Node: Frames and pictures104182
+Ref: envelope105323
+Ref: size106406
+Ref: unitsize107393
+Ref: shipout108453
+Ref: filltype110671
+Ref: add113654
+Ref: add about114600
+Ref: tex117601
+Node: Files118475
+Ref: cd119440
+Ref: scroll123821
+Node: Variable initializers126864
+Node: Structures129159
+Node: Operators136501
+Node: Arithmetic & logical136815
+Node: Self & prefix operators138712
+Node: User-defined operators139500
+Node: Implicit scaling140411
+Node: Functions140974
+Ref: stack overflow143727
+Node: Default arguments144291
+Node: Named arguments145030
+Node: Rest arguments147192
+Node: Mathematical functions150002
+Node: Arrays154607
+Ref: sort161788
+Ref: tridiagonal164079
+Ref: solve165307
+Node: Slices169434
+Node: Casts173328
+Node: Import175294
+Node: Static180524
+Node: LaTeX usage183420
+Node: Base modules188889
+Node: plain191325
+Node: simplex191977
+Node: math192250
+Node: interpolate193349
+Node: geometry193628
+Node: trembling194191
+Node: stats194552
+Node: patterns194812
+Node: markers195048
+Node: tree196937
+Node: binarytree197123
+Node: drawtree197769
+Node: syzygy197971
+Node: feynman198245
+Node: roundedpath198520
+Node: animation198803
+Ref: animate199222
+Node: embed200361
+Node: slide202163
+Node: MetaPost202503
+Node: unicode203219
+Node: latin1204107
+Node: babel204475
+Node: labelpath204704
+Node: labelpath3205524
+Node: annotate205835
+Node: CAD206306
+Node: graph206616
+Ref: ticks213454
+Ref: pathmarkers226875
+Ref: marker227340
+Ref: markuniform227691
+Ref: errorbars229482
+Ref: automatic scaling233819
+Node: palette245227
+Ref: images245345
+Ref: image249516
+Ref: logimage250045
+Ref: penimage250903
+Node: three251399
+Ref: PostScript3D272916
+Node: obj274661
+Node: graph3274911
+Ref: GaussianSurface279639
+Node: grid3280780
+Node: solids281574
+Node: tube282576
+Node: flowchart284807
+Node: contour289363
+Node: contour3294661
+Node: slopefield294968
+Node: Options296449
+Ref: configuration file301617
+Ref: settings301617
+Ref: convert302688
+Node: Interactive mode305447
+Ref: history307071
+Node: GUI308376
+Node: GUI Installation308879
+Node: GUI Usage310404
+Node: PostScript to Asymptote311307
+Node: Help312450
+Node: Debugger314177
+Node: Credits315962
+Node: Index316875

End Tag Table
diff --git a/Build/source/utils/asymptote/drawclipend.h b/Build/source/utils/asymptote/drawclipend.h
index d6b2ef33199..098d4dac8eb 100644
--- a/Build/source/utils/asymptote/drawclipend.h
+++ b/Build/source/utils/asymptote/drawclipend.h
@@ -50,8 +50,7 @@ public:
out->verbatim("\\kern");
double width=bpath.right-bpath.left;
out->write(-width*ps2tex);
- out->verbatim(settings::texunits(out->texengine));
- out->verbatimline("%");
+ out->verbatimline("pt%");
if(grestore) out->grestore();
return true;
}
diff --git a/Build/source/utils/asymptote/drawfill.cc b/Build/source/utils/asymptote/drawfill.cc
index af32b95e475..4ebe07b4eb2 100644
--- a/Build/source/utils/asymptote/drawfill.cc
+++ b/Build/source/utils/asymptote/drawfill.cc
@@ -110,9 +110,6 @@ bool drawFunctionShade::write(texfile *out, const bbox& box)
{
if(empty()) return true;
- const char *units=
- settings::texunits(settings::getSetting<string>("tex"));
-
ColorSpace colorspace=pentype.colorspace();
size_t ncomponents=ColorComponents[colorspace];
@@ -130,12 +127,10 @@ bool drawFunctionShade::write(texfile *out, const bbox& box)
double Hoffset=out->hoffset();
double hoffset=(bpath.Max().getx()-Hoffset)*ps2tex;
out->write(hoffset);
- out->verbatim(units);
- out->verbatim(" {");
+ out->verbatim("pt {");
out->verbatim("\\vbox to ");
out->write((box.top-box.bottom)*ps2tex);
- out->verbatim(units);
- out->verbatimline(" {\\vfil%");
+ out->verbatimline("pt {\\vfil%");
out->gsave();
out->beginspecial();
out->beginraw();
@@ -161,8 +156,7 @@ bool drawFunctionShade::write(texfile *out, const bbox& box)
out->verbatimline("\\pdfrefxform\\the\\pdflastxform");
out->verbatim("\\kern");
out->write(-hoffset);
- out->verbatim(units);
- out->verbatimline("%");
+ out->verbatimline("pt%");
return true;
}
diff --git a/Build/source/utils/asymptote/drawlabel.cc b/Build/source/utils/asymptote/drawlabel.cc
index b6f0590ae1c..484ecf3cb89 100644
--- a/Build/source/utils/asymptote/drawlabel.cc
+++ b/Build/source/utils/asymptote/drawlabel.cc
@@ -25,8 +25,8 @@ void drawLabel::labelwarning(const char *action)
<< "\" " << action << " to avoid overwriting" << endl;
}
-int drawLabel::wait(iopipestream &tex, const char *s, const char **abort,
- bool ignore)
+int wait(iopipestream &tex, const char *s, const char **abort,
+ bool ignore=false)
{
int rc=tex.wait(s,abort);
if(rc > 0) {
@@ -49,12 +49,13 @@ int drawLabel::wait(iopipestream &tex, const char *s, const char **abort,
return rc;
}
-bool drawLabel::texbounds(iopipestream& tex, string& s, const char **abort,
- bool warn)
+bool texbounds(double& width, double& height, double& depth,
+ iopipestream& tex, string& s, const char **abort, bool warn,
+ bool Inline)
{
string texbuf;
tex << "\\setbox\\ASYbox=\\hbox{" << stripblanklines(s) << "}\n\n";
- int rc=wait(tex,texready.c_str(),abort,getSetting<bool>("inlinetex"));
+ int rc=wait(tex,texready.c_str(),abort,Inline);
if(rc) {
tex << "\\show 0\n";
tex.wait("\n*");
@@ -116,26 +117,33 @@ inline double urand()
return rand()*factor-1.0;
}
-void drawLabel::getbounds(iopipestream& tex, const string& texengine)
+void setpen(iopipestream& tex, const string& texengine, const pen& pentype)
{
- if(havebounds) return;
- havebounds=true;
-
const char **abort=texabort(texengine);
bool Latex=latex(texengine);
if(Latex) {
- if(setlatexfont(tex,pentype,lastpen))
+ if(setlatexfont(tex,pentype,drawElement::lastpen))
wait(tex,"\n*",abort);
}
- if(settexfont(tex,pentype,lastpen,Latex))
+ if(settexfont(tex,pentype,drawElement::lastpen,Latex))
wait(tex,"\n*",abort);
- lastpen=pentype;
-
+ drawElement::lastpen=pentype;
+}
+
+void drawLabel::getbounds(iopipestream& tex, const string& texengine)
+{
+ if(havebounds) return;
+ havebounds=true;
+
+ const char **abort=texabort(texengine);
+ setpen(tex,texengine,pentype);
+
bool nullsize=size.empty();
- if(!texbounds(tex,label,abort,nullsize) && !nullsize)
- texbounds(tex,size,abort,false);
+ if(!texbounds(width,height,depth,tex,label,abort,nullsize,
+ getSetting<bool>("inlinetex")) && !nullsize)
+ texbounds(width,height,depth,tex,size,abort,false);
enabled=true;
Align=inverse(T)*align;
diff --git a/Build/source/utils/asymptote/drawlabel.h b/Build/source/utils/asymptote/drawlabel.h
index 14c2122f676..100a544ea00 100644
--- a/Build/source/utils/asymptote/drawlabel.h
+++ b/Build/source/utils/asymptote/drawlabel.h
@@ -46,11 +46,6 @@ public:
void bounds(bbox& b, iopipestream&, boxvector&, bboxlist&);
- bool texbounds(iopipestream& tex, string& s, const char **abort, bool warn);
-
- int wait(iopipestream &tex, const char *s, const char **abort,
- bool ignore=false);
-
bool islabel() {
return true;
}
@@ -81,6 +76,11 @@ public:
drawElement *transformed(const transform& t);
};
+void setpen(iopipestream& tex, const string& texengine, const pen& pentype);
+bool texbounds(double& width, double& height, double& depth,
+ iopipestream& tex, string& s, const char **abort,
+ bool warn, bool Inline=false);
+
}
#endif
diff --git a/Build/source/utils/asymptote/examples/BezierSurface.asy b/Build/source/utils/asymptote/examples/BezierSurface.asy
index 65410deebca..e87f785c761 100644
--- a/Build/source/utils/asymptote/examples/BezierSurface.asy
+++ b/Build/source/utils/asymptote/examples/BezierSurface.asy
@@ -5,7 +5,7 @@ string viewpoint="{-24.132780075073242 7.2992024421691895 7.695427417755127}{0.8
//viewpoint=getstring("viewpoint",viewpoint);
currentprojection=perspective(viewpoint);
-currentlight=adobe;
+currentlight=White;
triple[][][] P={{
{(-1.6,0,1.875),(-1.6,-0.3,1.875),(-1.5,-0.3,2.1),(-1.5,0,2.1)},
diff --git a/Build/source/utils/asymptote/examples/condor.asy b/Build/source/utils/asymptote/examples/condor.asy
index d109335e3bf..619b4bea12b 100644
--- a/Build/source/utils/asymptote/examples/condor.asy
+++ b/Build/source/utils/asymptote/examples/condor.asy
@@ -6,7 +6,7 @@ import graph3;
size(300,300,IgnoreAspect);
currentprojection=orthographic(0,-1,0,center=true);
-currentlight=adobe;
+currentlight=White;
real K=7;
triple condor(pair t)
diff --git a/Build/source/utils/asymptote/examples/layers.asy b/Build/source/utils/asymptote/examples/layers.asy
new file mode 100644
index 00000000000..4fe745f6a3c
--- /dev/null
+++ b/Build/source/utils/asymptote/examples/layers.asy
@@ -0,0 +1,44 @@
+usepackage("ocg");
+settings.tex="pdflatex";
+
+size(0,150);
+
+pen colour1=red;
+pen colour2=green;
+
+pair z0=(0,0);
+pair z1=(-1,0);
+pair z2=(1,0);
+real r=1.5;
+path c1=circle(z1,r);
+path c2=circle(z2,r);
+
+begin("A");
+fill(c1,colour1);
+end();
+
+fill(c2,colour2);
+
+picture intersection;
+fill(intersection,c1,colour1+colour2);
+clip(intersection,c2);
+
+add(intersection);
+
+draw(c1);
+draw(c2);
+
+label("$A$",z1);
+
+begin("B");
+label("$B$",z2);
+end();
+
+pair z=(0,-2);
+real m=3;
+margin BigMargin=Margin(0,m*dot(unit(z1-z),unit(z0-z)));
+
+draw(Label("$A\cap B$",0),conj(z)--z0,Arrow,BigMargin);
+draw(Label("$A\cup B$",0),z--z0,Arrow,BigMargin);
+draw(z--z1,Arrow,Margin(0,m));
+draw(z--z2,Arrow,Margin(0,m));
diff --git a/Build/source/utils/asymptote/examples/logo3.asy b/Build/source/utils/asymptote/examples/logo3.asy
index 6fc73dc9470..538838e02fa 100644
--- a/Build/source/utils/asymptote/examples/logo3.asy
+++ b/Build/source/utils/asymptote/examples/logo3.asy
@@ -3,7 +3,7 @@ import three;
size(560,320,IgnoreAspect);
size3(140,80,15);
currentprojection=perspective(-3,20,10,up=Y);
-currentlight=adobe;
+currentlight=White;
path[] outline;
diff --git a/Build/source/utils/asymptote/examples/pdb.asy b/Build/source/utils/asymptote/examples/pdb.asy
index bef21dc2277..e06b1241bce 100644
--- a/Build/source/utils/asymptote/examples/pdb.asy
+++ b/Build/source/utils/asymptote/examples/pdb.asy
@@ -6,7 +6,7 @@ import cpkcolors;
bool getviews=true;
-currentlight=adobe;
+currentlight=White;
//currentlight=nolight;
size(200);
diff --git a/Build/source/utils/asymptote/examples/pipeintersection.asy b/Build/source/utils/asymptote/examples/pipeintersection.asy
index b22574c13c2..7e42c17ee51 100644
--- a/Build/source/utils/asymptote/examples/pipeintersection.asy
+++ b/Build/source/utils/asymptote/examples/pipeintersection.asy
@@ -1,7 +1,7 @@
import graph3;
currentprojection=orthographic(5,4,2);
-currentlight=adobe;
+currentlight=White;
size(12cm,0);
diff --git a/Build/source/utils/asymptote/examples/teapot.asy b/Build/source/utils/asymptote/examples/teapot.asy
index e0ef51eb552..2fb6b9b0873 100644
--- a/Build/source/utils/asymptote/examples/teapot.asy
+++ b/Build/source/utils/asymptote/examples/teapot.asy
@@ -3,6 +3,7 @@ import three;
size(20cm);
currentprojection=perspective(250,-250,250);
+//currentlight=White;
triple[][][] Q={
{
diff --git a/Build/source/utils/asymptote/examples/trefoilknot.asy b/Build/source/utils/asymptote/examples/trefoilknot.asy
index fb10e3def0e..3c5e4aecc5a 100644
--- a/Build/source/utils/asymptote/examples/trefoilknot.asy
+++ b/Build/source/utils/asymptote/examples/trefoilknot.asy
@@ -1,7 +1,7 @@
import tube;
import graph3;
import palette;
-currentlight=adobe;
+currentlight=White;
size(0,8cm);
currentprojection=perspective(1,1,1,up=-Y);
diff --git a/Build/source/utils/asymptote/examples/wedge.asy b/Build/source/utils/asymptote/examples/wedge.asy
index 9e0f8355308..6cf6a58975f 100644
--- a/Build/source/utils/asymptote/examples/wedge.asy
+++ b/Build/source/utils/asymptote/examples/wedge.asy
@@ -2,7 +2,7 @@ import graph3;
import solids;
size(0,150);
currentprojection=perspective(8,10,2);
-currentlight=adobe;
+currentlight=White;
draw(circle(O,4,Z));
draw(shift(-4Z)*scale(4,4,8)*unitcylinder,green+opacity(0.2));
diff --git a/Build/source/utils/asymptote/pen.h b/Build/source/utils/asymptote/pen.h
index 6f4e6701fbe..164698b8b68 100644
--- a/Build/source/utils/asymptote/pen.h
+++ b/Build/source/utils/asymptote/pen.h
@@ -15,6 +15,9 @@
namespace camp {
+static const double tex2ps=72.0/72.27;
+static const double ps2tex=1.0/tex2ps;
+
static const string DEFPAT="<default>";
static const string DEFLATEXFONT="\\usefont{\\ASYencoding}{\\ASYfamily}{\\ASYseries}{\\ASYshape}";
static const string DEFCONTEXTFONT="modern";
@@ -399,11 +402,11 @@ public:
// Work around misalignment in ConTeXt switchtobodyfont if font is not found.
if(texengine == "context")
buf << "\\switchtobodyfont["
- << DEFCONTEXTFONT << "," << size()
+ << DEFCONTEXTFONT << "," << size()*ps2tex
<< "pt]\\removeunwantedspaces%" << newl;
else
buf << "\\font\\ASYfont=" << DEFTEXFONT
- << " at " << size() << "pt\\ASYfont";
+ << " at " << size()*ps2tex << "pt\\ASYfont";
return buf.str();
}
}
diff --git a/Build/source/utils/asymptote/picture.cc b/Build/source/utils/asymptote/picture.cc
index 827acc6ea70..cba4bbb0b6d 100644
--- a/Build/source/utils/asymptote/picture.cc
+++ b/Build/source/utils/asymptote/picture.cc
@@ -201,7 +201,7 @@ pair picture::bounds(double (*m)(double, double),
return b;
}
-void picture::texinit()
+void texinit()
{
drawElement::lastpen=pen(initialpen);
processDataStruct &pd=processData();
diff --git a/Build/source/utils/asymptote/picture.h b/Build/source/utils/asymptote/picture.h
index 561f0488bcd..de71f64964f 100644
--- a/Build/source/utils/asymptote/picture.h
+++ b/Build/source/utils/asymptote/picture.h
@@ -68,8 +68,6 @@ public:
double (*y)(const triple&, double*),
double *t=NULL);
- void texinit();
-
bool Transparency() {
return transparency;
}
@@ -121,6 +119,8 @@ inline picture *transformed(const vm::array& t, picture *p)
return p->transformed(t);
}
+void texinit();
+
const char *texpathmessage();
} //namespace camp
diff --git a/Build/source/utils/asymptote/runtime.cc b/Build/source/utils/asymptote/runtime.cc
index 67ee3ac3560..52e99541296 100644
--- a/Build/source/utils/asymptote/runtime.cc
+++ b/Build/source/utils/asymptote/runtime.cc
@@ -923,9 +923,25 @@ inline triple perp(triple v, triple u)
return v-dot(v,u)*u;
}
-string ASYo="/ASYo {( ) print 12 string cvs print} bind def";
-string pathforall="{(M) print ASYo ASYo} {(L) print ASYo ASYo} {(C) print ASYo ASYo ASYo ASYo ASYo ASYo} {(c) print} pathforall";
-string currentpoint="print currentpoint ASYo ASYo ";
+string ASYx="/ASYx {( ) print ASYX sub 12 string cvs print} bind def";
+string ASYy="/ASYy {( ) print ASYY sub 12 string cvs print} bind def";
+string pathforall="{(M) print ASYy ASYx} {(L) print ASYy ASYx} {(C) print ASYy ASYx ASYy ASYx ASYy ASYx} {(c) print} pathforall";
+string currentpoint="print currentpoint ASYy ASYx ";
+string ASYinit="/ASYX currentpoint pop def /ASYY currentpoint exch pop def ";
+string ASY1="ASY1 {"+ASYinit+"/ASY1 false def} if ";
+
+void showpath(std::ofstream& ps)
+{
+ ps << ASYx << newl
+ << ASYy << newl
+ << "/ASY1 true def" << newl
+ << "/fill {" << ASY1
+ << pathforall << " (M) " << currentpoint
+ << "currentpoint newpath moveto } bind def" << newl
+ << "/stroke {" << ASY1 << "strokepath "
+ << pathforall << " (M) " << currentpoint
+ << "currentpoint newpath moveto } bind def" << endl;
+}
array *readpath(const string& psname, bool keep,
double hscale=1.0, double vscale=1.0)
@@ -956,7 +972,6 @@ array *readpath(const string& psname, bool keep,
bool cyclic=false;
bool active=false;
- pair offset;
while(!buf.eof()) {
char c;
buf >> c;
@@ -984,13 +999,13 @@ array *readpath(const string& psname, bool keep,
}
active=false;
cyclic=false;
- node.pre=node.point=readpair(buf,hscale,vscale)-offset;
+ node.pre=node.point=readpair(buf,hscale,vscale);
node.straight=false;
break;
}
case 'L':
{
- pair point=readpair(buf,hscale,vscale)-offset;
+ pair point=readpair(buf,hscale,vscale);
pair delta=(point-node.point)*third;
node.post=node.point+delta;
node.straight=true;
@@ -1002,9 +1017,9 @@ array *readpath(const string& psname, bool keep,
}
case 'C':
{
- pair point=readpair(buf,hscale,vscale)-offset;
- pair pre=readpair(buf,hscale,vscale)-offset;
- node.post=readpair(buf,hscale,vscale)-offset;
+ pair point=readpair(buf,hscale,vscale);
+ pair pre=readpair(buf,hscale,vscale);
+ node.post=readpair(buf,hscale,vscale);
node.straight=false;
nodes.push_back(node);
active=true;
@@ -1017,11 +1032,6 @@ array *readpath(const string& psname, bool keep,
cyclic=true;
break;
}
- case 'Z':
- {
- offset=readpair(buf,hscale,vscale);
- break;
- }
}
}
@@ -1079,45 +1089,45 @@ void cannotwrite(const string& s)
namespace run {
// Initializers
-#line 1119 "runtime.in"
+#line 1129 "runtime.in"
void IntZero(stack *Stack)
{
-#line 1120 "runtime.in"
+#line 1130 "runtime.in"
{Stack->push<Int>(0); return;}
}
-#line 1125 "runtime.in"
+#line 1135 "runtime.in"
void realZero(stack *Stack)
{
-#line 1126 "runtime.in"
+#line 1136 "runtime.in"
{Stack->push<real>(0.0); return;}
}
-#line 1130 "runtime.in"
+#line 1140 "runtime.in"
void boolFalse(stack *Stack)
{
-#line 1131 "runtime.in"
+#line 1141 "runtime.in"
{Stack->push<bool>(false); return;}
}
-#line 1135 "runtime.in"
+#line 1145 "runtime.in"
void pushNullArray(stack *Stack)
{
-#line 1136 "runtime.in"
+#line 1146 "runtime.in"
{Stack->push<array*>(0); return;}
}
-#line 1140 "runtime.in"
+#line 1150 "runtime.in"
void pushNullRecord(stack *Stack)
{
-#line 1141 "runtime.in"
+#line 1151 "runtime.in"
{Stack->push<frame*>(0); return;}
}
-#line 1145 "runtime.in"
+#line 1155 "runtime.in"
void pushNullFunction(stack *Stack)
{
-#line 1146 "runtime.in"
+#line 1156 "runtime.in"
{Stack->push(nullfunc::instance()); return;}
}
@@ -1126,183 +1136,183 @@ void pushNullFunction(stack *Stack)
// Put the default value token on the stack (in place of an argument when
// making a function call).
-#line 1155 "runtime.in"
+#line 1165 "runtime.in"
void pushDefault(stack *Stack)
{
-#line 1156 "runtime.in"
+#line 1166 "runtime.in"
{Stack->push(def); return;}
}
// Test if the value on the stack is the default value token.
-#line 1162 "runtime.in"
+#line 1172 "runtime.in"
void isDefault(stack *Stack)
{
item i=vm::pop(Stack);
-#line 1163 "runtime.in"
+#line 1173 "runtime.in"
{Stack->push<bool>(isdefault(i)); return;}
}
// Logical operations
-#line 1169 "runtime.in"
+#line 1179 "runtime.in"
// bool !(bool b);
void gen8(stack *Stack)
{
bool b=vm::pop<bool>(Stack);
-#line 1170 "runtime.in"
+#line 1180 "runtime.in"
{Stack->push<bool>(!b); return;}
}
-#line 1175 "runtime.in"
+#line 1185 "runtime.in"
void boolMemEq(stack *Stack)
{
frame * b=vm::pop<frame *>(Stack);
frame * a=vm::pop<frame *>(Stack);
-#line 1176 "runtime.in"
+#line 1186 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 1180 "runtime.in"
+#line 1190 "runtime.in"
void boolMemNeq(stack *Stack)
{
frame * b=vm::pop<frame *>(Stack);
frame * a=vm::pop<frame *>(Stack);
-#line 1181 "runtime.in"
+#line 1191 "runtime.in"
{Stack->push<bool>(a != b); return;}
}
-#line 1185 "runtime.in"
+#line 1195 "runtime.in"
void boolFuncEq(stack *Stack)
{
callable * b=vm::pop<callable *>(Stack);
callable * a=vm::pop<callable *>(Stack);
-#line 1186 "runtime.in"
+#line 1196 "runtime.in"
{Stack->push<bool>(a->compare(b)); return;}
}
-#line 1190 "runtime.in"
+#line 1200 "runtime.in"
void boolFuncNeq(stack *Stack)
{
callable * b=vm::pop<callable *>(Stack);
callable * a=vm::pop<callable *>(Stack);
-#line 1191 "runtime.in"
+#line 1201 "runtime.in"
{Stack->push<bool>(!(a->compare(b))); return;}
}
// Bit operations
-#line 1197 "runtime.in"
+#line 1207 "runtime.in"
// Int AND(Int a, Int b);
void gen13(stack *Stack)
{
Int b=vm::pop<Int>(Stack);
Int a=vm::pop<Int>(Stack);
-#line 1198 "runtime.in"
+#line 1208 "runtime.in"
{Stack->push<Int>(a & b); return;}
}
-#line 1203 "runtime.in"
+#line 1213 "runtime.in"
// Int OR(Int a, Int b);
void gen14(stack *Stack)
{
Int b=vm::pop<Int>(Stack);
Int a=vm::pop<Int>(Stack);
-#line 1204 "runtime.in"
+#line 1214 "runtime.in"
{Stack->push<Int>(a | b); return;}
}
-#line 1208 "runtime.in"
+#line 1218 "runtime.in"
// Int XOR(Int a, Int b);
void gen15(stack *Stack)
{
Int b=vm::pop<Int>(Stack);
Int a=vm::pop<Int>(Stack);
-#line 1209 "runtime.in"
+#line 1219 "runtime.in"
{Stack->push<Int>(a ^ b); return;}
}
-#line 1213 "runtime.in"
+#line 1223 "runtime.in"
// Int NOT(Int a);
void gen16(stack *Stack)
{
Int a=vm::pop<Int>(Stack);
-#line 1214 "runtime.in"
+#line 1224 "runtime.in"
{Stack->push<Int>(~a); return;}
}
// Casts
-#line 1220 "runtime.in"
+#line 1230 "runtime.in"
void pairToGuide(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 1221 "runtime.in"
+#line 1231 "runtime.in"
{Stack->push<guide*>(new pairguide(z)); return;}
}
-#line 1226 "runtime.in"
+#line 1236 "runtime.in"
void pathToGuide(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 1227 "runtime.in"
+#line 1237 "runtime.in"
{Stack->push<guide*>(new pathguide(p)); return;}
}
-#line 1231 "runtime.in"
+#line 1241 "runtime.in"
void guideToPath(stack *Stack)
{
guide * g=vm::pop<guide *>(Stack);
-#line 1232 "runtime.in"
+#line 1242 "runtime.in"
{Stack->push<path>(g->solve()); return;}
}
// Picture operations
-#line 1238 "runtime.in"
+#line 1248 "runtime.in"
void newPicture(stack *Stack)
{
-#line 1239 "runtime.in"
+#line 1249 "runtime.in"
{Stack->push<picture*>(new picture()); return;}
}
-#line 1244 "runtime.in"
+#line 1254 "runtime.in"
// bool empty(picture *f);
void gen21(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1245 "runtime.in"
+#line 1255 "runtime.in"
{Stack->push<bool>(f->null()); return;}
}
-#line 1249 "runtime.in"
+#line 1259 "runtime.in"
// void erase(picture *f);
void gen22(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1250 "runtime.in"
+#line 1260 "runtime.in"
f->nodes.clear();
}
-#line 1254 "runtime.in"
+#line 1264 "runtime.in"
// pair min(picture *f);
void gen23(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1255 "runtime.in"
+#line 1265 "runtime.in"
{Stack->push<pair>(f->bounds().Min()); return;}
}
-#line 1259 "runtime.in"
+#line 1269 "runtime.in"
// pair max(picture *f);
void gen24(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1260 "runtime.in"
+#line 1270 "runtime.in"
{Stack->push<pair>(f->bounds().Max()); return;}
}
-#line 1264 "runtime.in"
+#line 1274 "runtime.in"
// void label(picture *f, string *s, string *size, transform t, pair position, pair align, pen p);
void gen25(stack *Stack)
{
@@ -1313,26 +1323,51 @@ void gen25(stack *Stack)
string * size=vm::pop<string *>(Stack);
string * s=vm::pop<string *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1266 "runtime.in"
+#line 1276 "runtime.in"
f->append(new drawLabel(*s,*size,t,position,align,p));
}
-#line 1270 "runtime.in"
+#line 1280 "runtime.in"
// bool labels(picture *f);
void gen26(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1271 "runtime.in"
+#line 1281 "runtime.in"
{Stack->push<bool>(f->havelabels()); return;}
}
-#line 1275 "runtime.in"
-// patharray* _texpath(string *s, pen p=CURRENTPEN);
+#line 1285 "runtime.in"
+// realarray* texsize(string *s, pen p=CURRENTPEN);
void gen27(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
string * s=vm::pop<string *>(Stack);
-#line 1276 "runtime.in"
+#line 1286 "runtime.in"
+ texinit();
+ processDataStruct &pd=processData();
+
+ string texengine=getSetting<string>("tex");
+ const char **abort=texabort(texengine);
+ setpen(pd.tex,texengine,p);
+
+ double width,height,depth;
+ if(!texbounds(width,height,depth,pd.tex,*s,abort,false,true))
+ {Stack->push<realarray*>(new array(0)); return;}
+
+ array *t=new array(3);
+ (*t)[0]=width;
+ (*t)[1]=height;
+ (*t)[2]=depth;
+ {Stack->push<realarray*>(t); return;}
+}
+
+#line 1305 "runtime.in"
+// patharray* _texpath(string *s, pen p=CURRENTPEN);
+void gen28(stack *Stack)
+{
+ pen p=vm::pop<pen>(Stack,CURRENTPEN);
+ string * s=vm::pop<string *>(Stack);
+#line 1306 "runtime.in"
array *P=new array(0);
if(s->empty()) {Stack->push<patharray*>(P); return;}
@@ -1349,18 +1384,19 @@ void gen27(stack *Stack)
if(!pdf) {
tex.verbatimline("\\special{ps:");
- tex.verbatimline(ASYo);
+ tex.verbatimline(ASYx);
+ tex.verbatimline(ASYy);
tex.verbatimline("/ASY1 true def");
- tex.verbatimline("/v {neg exch 4 copy 4 2 roll 2 copy 6 2 roll 2 copy (M) print ASYo ASYo (L) print ASYo add ASYo (L) print add ASYo add ASYo (L) print add ASYo ASYo (c) print} bind def");
- tex.verbatimline("/show {ASY1 {(Z) "+currentpoint+
- "/ASY1 false def} if currentpoint newpath moveto false charpath "+
+ tex.verbatimline("/v {neg exch 4 copy 4 2 roll 2 copy 6 2 roll 2 copy (M) print ASYy ASYx (L) print ASYy add ASYx (L) print add ASYy add ASYx (L) print add ASYy ASYx (c) print} bind def");
+ tex.verbatimline("/show {"+ASY1+
+ "currentpoint newpath moveto false charpath "+
pathforall+"} bind def}");
}
tex.verbatimline(*s+"%");
tex.epilogue(true);
tex.close();
- // TODO: Put in common subproutine (cf. teprocess).
+ // TODO: Put in common subproutine (cf. texprocess).
string aux=auxname(prefix,"aux");
unlink(aux.c_str());
string program=texprogram();
@@ -1388,16 +1424,8 @@ void gen27(stack *Stack)
std::ofstream ps(psname.c_str());
if(!ps) cannotwrite(psname);
- ps << ASYo << newl
- << "/ASY1 true def" << newl
- << "/fill {ASY1 {(Z) " << currentpoint << "/ASY1 false def} if "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl
- << "/stroke {ASY1 {(Z) " << currentpoint
- << "/ASY1 false def} if strokepath "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl;
-
+ showpath(ps);
+
ostringstream cmd;
cmd << "'" << getSetting<string>("gs")
<< "' -q -dNOCACHE -dNOPAUSE -dBATCH";
@@ -1446,13 +1474,13 @@ void gen27(stack *Stack)
pdf ? twelvepercent : -twelvepercent)); return;}
}
-#line 1390 "runtime.in"
+#line 1413 "runtime.in"
// patharray* textpath(string *s, pen p=CURRENTPEN);
-void gen28(stack *Stack)
+void gen29(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
string * s=vm::pop<string *>(Stack);
-#line 1391 "runtime.in"
+#line 1414 "runtime.in"
array *P=new array(0);
if(s->empty()) {Stack->push<patharray*>(P); return;}
@@ -1475,15 +1503,7 @@ void gen28(stack *Stack)
std::ofstream ps(psname.c_str());
if(!ps) cannotwrite(psname);
- ps << ASYo << newl
- << "/ASY1 true def" << newl
- << "/fill {ASY1 {(Z) " << currentpoint << "/ASY1 false def} if "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl
- << "/stroke {ASY1 {(Z) " << currentpoint
- << "/ASY1 false def} if strokepath "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << endl;
+ showpath(ps);
ostringstream pipe;
pipe << getSetting<string>("textcommand") << " '" << textname << "'";
@@ -1523,13 +1543,13 @@ void gen28(stack *Stack)
{Stack->push<patharray*>(readpath(psname,keep,tenpercent,tenpercent)); return;}
}
-#line 1462 "runtime.in"
+#line 1477 "runtime.in"
// patharray* _strokepath(path g, pen p=CURRENTPEN);
-void gen29(stack *Stack)
+void gen30(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
path g=vm::pop<path>(Stack);
-#line 1463 "runtime.in"
+#line 1478 "runtime.in"
array *P=new array(0);
if(g.size() == 0) {Stack->push<patharray*>(P); return;}
@@ -1539,8 +1559,9 @@ void gen29(stack *Stack)
bbox b;
psfile ps(psname,false);
ps.prologue(b);
- ps.verbatimline(ASYo);
- ps.verbatimline("/stroke {(Z) "+currentpoint+pathforall+"} bind def");
+ ps.verbatimline(ASYx);
+ ps.verbatimline(ASYy);
+ ps.verbatimline("/stroke {"+ASYinit+pathforall+"} bind def");
ps.resetpen();
ps.setpen(p);
ps.write(g);
@@ -1552,33 +1573,33 @@ void gen29(stack *Stack)
{Stack->push<patharray*>(readpath(psname,getSetting<bool>("keep"))); return;}
}
-#line 1486 "runtime.in"
+#line 1502 "runtime.in"
// void _draw(picture *f, path g, pen p);
-void gen30(stack *Stack)
+void gen31(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
path g=vm::pop<path>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1487 "runtime.in"
+#line 1503 "runtime.in"
f->append(new drawPath(g,p));
}
-#line 1491 "runtime.in"
+#line 1507 "runtime.in"
// void fill(picture *f, patharray *g, pen p=CURRENTPEN, bool copy=true);
-void gen31(stack *Stack)
+void gen32(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
pen p=vm::pop<pen>(Stack,CURRENTPEN);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1492 "runtime.in"
+#line 1508 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawFill(*copyarray(g),false,p));
}
-#line 1497 "runtime.in"
+#line 1513 "runtime.in"
// void latticeshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray2 *p, bool copy=true);
-void gen32(stack *Stack)
+void gen33(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
penarray2 * p=vm::pop<penarray2 *>(Stack);
@@ -1586,14 +1607,14 @@ void gen32(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1499 "runtime.in"
+#line 1515 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawLatticeShade(*copyarray(g),stroke,fillrule,*copyarray(p)));
}
-#line 1504 "runtime.in"
+#line 1520 "runtime.in"
// void axialshade(picture *f, patharray *g, bool stroke=false, pen pena, pair a, pen penb, pair b, bool copy=true);
-void gen33(stack *Stack)
+void gen34(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
pair b=vm::pop<pair>(Stack);
@@ -1603,14 +1624,14 @@ void gen33(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1506 "runtime.in"
+#line 1522 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawAxialShade(*copyarray(g),stroke,pena,a,penb,b));
}
-#line 1511 "runtime.in"
+#line 1527 "runtime.in"
// void radialshade(picture *f, patharray *g, bool stroke=false, pen pena, pair a, real ra, pen penb, pair b, real rb, bool copy=true);
-void gen34(stack *Stack)
+void gen35(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
real rb=vm::pop<real>(Stack);
@@ -1622,14 +1643,14 @@ void gen34(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1513 "runtime.in"
+#line 1529 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawRadialShade(*copyarray(g),stroke,pena,a,ra,penb,b,rb));
}
-#line 1518 "runtime.in"
+#line 1534 "runtime.in"
// void gouraudshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray *p, pairarray *z, Intarray *edges, bool copy=true);
-void gen35(stack *Stack)
+void gen36(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
Intarray * edges=vm::pop<Intarray *>(Stack);
@@ -1639,7 +1660,7 @@ void gen35(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1521 "runtime.in"
+#line 1537 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
checkArrays(p,z);
checkArrays(z,edges);
@@ -1647,9 +1668,9 @@ void gen35(stack *Stack)
*copyarray(z),*copyarray(edges)));
}
-#line 1529 "runtime.in"
+#line 1545 "runtime.in"
// void gouraudshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray *p, Intarray *edges, bool copy=true);
-void gen36(stack *Stack)
+void gen37(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
Intarray * edges=vm::pop<Intarray *>(Stack);
@@ -1658,7 +1679,7 @@ void gen36(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1532 "runtime.in"
+#line 1548 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
size_t n=checkArrays(p,edges);
size_t m=checkArray(g);
@@ -1679,9 +1700,9 @@ void gen36(stack *Stack)
*z,*copyarray(edges)));
}
-#line 1553 "runtime.in"
+#line 1569 "runtime.in"
// void tensorshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray2 *p, patharray *b=NULL, pairarray2 *z=emptyarray, bool copy=true);
-void gen37(stack *Stack)
+void gen38(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
pairarray2 * z=vm::pop<pairarray2 *>(Stack,emptyarray);
@@ -1691,7 +1712,7 @@ void gen37(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1556 "runtime.in"
+#line 1572 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
array *(*copyarray2)(array *a)=copy ? copyArray2: nop;
if(b == NULL) b=g;
@@ -1703,9 +1724,9 @@ void gen37(stack *Stack)
*copyarray(b),*copyarray2(z)));
}
-#line 1568 "runtime.in"
+#line 1584 "runtime.in"
// void functionshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, string shader=emptystring, bool copy=true);
-void gen38(stack *Stack)
+void gen39(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
string shader=vm::pop<string>(Stack,emptystring);
@@ -1713,176 +1734,176 @@ void gen38(stack *Stack)
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1571 "runtime.in"
+#line 1587 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawFunctionShade(*copyarray(g),stroke,fillrule,shader));
}
// Clip a picture to a superpath using the given fill rule.
// Subsequent additions to the picture will not be affected by the clipping.
-#line 1578 "runtime.in"
+#line 1594 "runtime.in"
// void clip(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, bool copy=true);
-void gen39(stack *Stack)
+void gen40(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
pen fillrule=vm::pop<pen>(Stack,CURRENTPEN);
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1580 "runtime.in"
+#line 1596 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
drawClipBegin *begin=new drawClipBegin(*copyarray(g),stroke,fillrule,true);
f->enclose(begin,new drawClipEnd(true,begin));
}
-#line 1586 "runtime.in"
+#line 1602 "runtime.in"
// void beginclip(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, bool copy=true);
-void gen40(stack *Stack)
+void gen41(stack *Stack)
{
bool copy=vm::pop<bool>(Stack,true);
pen fillrule=vm::pop<pen>(Stack,CURRENTPEN);
bool stroke=vm::pop<bool>(Stack,false);
patharray * g=vm::pop<patharray *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1588 "runtime.in"
+#line 1604 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
f->append(new drawClipBegin(*copyarray(g),stroke,fillrule,false));
}
-#line 1593 "runtime.in"
+#line 1609 "runtime.in"
// void endclip(picture *f);
-void gen41(stack *Stack)
+void gen42(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1594 "runtime.in"
+#line 1610 "runtime.in"
f->append(new drawClipEnd(false));
}
-#line 1598 "runtime.in"
+#line 1614 "runtime.in"
// void gsave(picture *f);
-void gen42(stack *Stack)
+void gen43(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1599 "runtime.in"
+#line 1615 "runtime.in"
f->append(new drawGsave());
}
-#line 1603 "runtime.in"
+#line 1619 "runtime.in"
// void grestore(picture *f);
-void gen43(stack *Stack)
+void gen44(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1604 "runtime.in"
+#line 1620 "runtime.in"
f->append(new drawGrestore());
}
-#line 1608 "runtime.in"
+#line 1624 "runtime.in"
// void begingroup(picture *f);
-void gen44(stack *Stack)
+void gen45(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1609 "runtime.in"
+#line 1625 "runtime.in"
f->append(new drawBegin());
}
-#line 1613 "runtime.in"
+#line 1629 "runtime.in"
// void endgroup(picture *f);
-void gen45(stack *Stack)
+void gen46(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1614 "runtime.in"
+#line 1630 "runtime.in"
f->append(new drawEnd());
}
-#line 1618 "runtime.in"
+#line 1634 "runtime.in"
// void add(picture *dest, picture *src);
-void gen46(stack *Stack)
+void gen47(stack *Stack)
{
picture * src=vm::pop<picture *>(Stack);
picture * dest=vm::pop<picture *>(Stack);
-#line 1619 "runtime.in"
+#line 1635 "runtime.in"
dest->add(*src);
}
-#line 1623 "runtime.in"
+#line 1639 "runtime.in"
// void prepend(picture *dest, picture *src);
-void gen47(stack *Stack)
+void gen48(stack *Stack)
{
picture * src=vm::pop<picture *>(Stack);
picture * dest=vm::pop<picture *>(Stack);
-#line 1624 "runtime.in"
+#line 1640 "runtime.in"
dest->prepend(*src);
}
-#line 1628 "runtime.in"
+#line 1644 "runtime.in"
// void postscript(picture *f, string s);
-void gen48(stack *Stack)
+void gen49(stack *Stack)
{
string s=vm::pop<string>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1629 "runtime.in"
+#line 1645 "runtime.in"
f->append(new drawVerbatim(PostScript,s));
}
-#line 1633 "runtime.in"
+#line 1649 "runtime.in"
// void tex(picture *f, string s);
-void gen49(stack *Stack)
+void gen50(stack *Stack)
{
string s=vm::pop<string>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1634 "runtime.in"
+#line 1650 "runtime.in"
f->append(new drawVerbatim(TeX,s));
}
-#line 1638 "runtime.in"
+#line 1654 "runtime.in"
// void postscript(picture *f, string s, pair min, pair max);
-void gen50(stack *Stack)
+void gen51(stack *Stack)
{
pair max=vm::pop<pair>(Stack);
pair min=vm::pop<pair>(Stack);
string s=vm::pop<string>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1639 "runtime.in"
+#line 1655 "runtime.in"
f->append(new drawVerbatim(PostScript,s,min,max));
}
-#line 1643 "runtime.in"
+#line 1659 "runtime.in"
// void tex(picture *f, string s, pair min, pair max);
-void gen51(stack *Stack)
+void gen52(stack *Stack)
{
pair max=vm::pop<pair>(Stack);
pair min=vm::pop<pair>(Stack);
string s=vm::pop<string>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1644 "runtime.in"
+#line 1660 "runtime.in"
f->append(new drawVerbatim(TeX,s,min,max));
}
-#line 1648 "runtime.in"
+#line 1664 "runtime.in"
// void texpreamble(string s);
-void gen52(stack *Stack)
+void gen53(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 1649 "runtime.in"
+#line 1665 "runtime.in"
string t=s+"\n";
processDataStruct &pd=processData();
pd.TeXpipepreamble.push_back(t);
pd.TeXpreamble.push_back(t);
}
-#line 1656 "runtime.in"
+#line 1672 "runtime.in"
// void deletepreamble();
-void gen53(stack *)
+void gen54(stack *)
{
-#line 1657 "runtime.in"
+#line 1673 "runtime.in"
if(getSetting<bool>("inlinetex")) {
unlink(auxname(outname(),"pre").c_str());
}
}
-#line 1663 "runtime.in"
+#line 1679 "runtime.in"
// void _labelpath(picture *f, string s, string size, path g, string justify, pair offset, pen p);
-void gen54(stack *Stack)
+void gen55(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
pair offset=vm::pop<pair>(Stack);
@@ -1891,42 +1912,42 @@ void gen54(stack *Stack)
string size=vm::pop<string>(Stack);
string s=vm::pop<string>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1665 "runtime.in"
+#line 1681 "runtime.in"
f->append(new drawLabelPath(s,size,g,justify,offset,p));
}
-#line 1669 "runtime.in"
+#line 1685 "runtime.in"
// void texreset();
-void gen55(stack *)
+void gen56(stack *)
{
-#line 1670 "runtime.in"
+#line 1686 "runtime.in"
processDataStruct &pd=processData();
pd.TeXpipepreamble.clear();
pd.TeXpreamble.clear();
pd.tex.pipeclose();
}
-#line 1677 "runtime.in"
+#line 1693 "runtime.in"
// void layer(picture *f);
-void gen56(stack *Stack)
+void gen57(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1678 "runtime.in"
+#line 1694 "runtime.in"
f->append(new drawLayer());
}
-#line 1682 "runtime.in"
+#line 1698 "runtime.in"
// void newpage(picture *f);
-void gen57(stack *Stack)
+void gen58(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 1683 "runtime.in"
+#line 1699 "runtime.in"
f->append(new drawNewPage());
}
-#line 1687 "runtime.in"
+#line 1703 "runtime.in"
// void _image(picture *f, realarray2 *data, pair initial, pair final, penarray *palette=NULL, transform t=identity, bool copy=true, bool antialias=false);
-void gen58(stack *Stack)
+void gen59(stack *Stack)
{
bool antialias=vm::pop<bool>(Stack,false);
bool copy=vm::pop<bool>(Stack,true);
@@ -1936,16 +1957,16 @@ void gen58(stack *Stack)
pair initial=vm::pop<pair>(Stack);
realarray2 * data=vm::pop<realarray2 *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1690 "runtime.in"
+#line 1706 "runtime.in"
array *(*copyarray)(array *a)=copy ? copyArray: nop;
array *(*copyarray2)(array *a)=copy ? copyArray2: nop;
f->append(new drawImage(*copyarray2(data),*copyarray(palette),
t*matrix(initial,final),antialias));
}
-#line 1697 "runtime.in"
+#line 1713 "runtime.in"
// void _image(picture *f, penarray2 *data, pair initial, pair final, transform t=identity, bool copy=true, bool antialias=false);
-void gen59(stack *Stack)
+void gen60(stack *Stack)
{
bool antialias=vm::pop<bool>(Stack,false);
bool copy=vm::pop<bool>(Stack,true);
@@ -1954,38 +1975,38 @@ void gen59(stack *Stack)
pair initial=vm::pop<pair>(Stack);
penarray2 * data=vm::pop<penarray2 *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 1699 "runtime.in"
+#line 1715 "runtime.in"
array *(*copyarray2)(array *a)=copy ? copyArray2: nop;
f->append(new drawImage(*copyarray2(data),t*matrix(initial,final),antialias));
}
-#line 1704 "runtime.in"
+#line 1720 "runtime.in"
// string nativeformat();
-void gen60(stack *Stack)
+void gen61(stack *Stack)
{
-#line 1705 "runtime.in"
+#line 1721 "runtime.in"
{Stack->push<string>(nativeformat()); return;}
}
-#line 1709 "runtime.in"
+#line 1725 "runtime.in"
// bool latex();
-void gen61(stack *Stack)
+void gen62(stack *Stack)
{
-#line 1710 "runtime.in"
+#line 1726 "runtime.in"
{Stack->push<bool>(latex(getSetting<string>("tex"))); return;}
}
-#line 1714 "runtime.in"
+#line 1730 "runtime.in"
// bool pdf();
-void gen62(stack *Stack)
+void gen63(stack *Stack)
{
-#line 1715 "runtime.in"
+#line 1731 "runtime.in"
{Stack->push<bool>(pdf(getSetting<string>("tex"))); return;}
}
-#line 1719 "runtime.in"
+#line 1735 "runtime.in"
// void shipout(string prefix=emptystring, picture *f, picture *preamble=NULL, string format=emptystring, bool wait=false, bool view=true, callableTransform *xform);
-void gen63(stack *Stack)
+void gen64(stack *Stack)
{
callableTransform * xform=vm::pop<callableTransform *>(Stack);
bool view=vm::pop<bool>(Stack,true);
@@ -1994,7 +2015,7 @@ void gen63(stack *Stack)
picture * preamble=vm::pop<picture *>(Stack,NULL);
picture * f=vm::pop<picture *>(Stack);
string prefix=vm::pop<string>(Stack,emptystring);
-#line 1722 "runtime.in"
+#line 1738 "runtime.in"
if(prefix.empty()) prefix=outname();
picture *result=new picture;
@@ -2037,9 +2058,9 @@ void gen63(stack *Stack)
result->shipout(preamble,prefix,format,0.0,wait,view);
}
-#line 1765 "runtime.in"
+#line 1781 "runtime.in"
// void shipout3(string prefix, picture *f, string format=emptystring, real width, real height, real angle, triple m, triple M, realarray2 *t, realarray *background, triplearray *lights, realarray2 *diffuse, realarray2 *ambient, realarray2 *specular, bool viewportlighting, bool view=true);
-void gen64(stack *Stack)
+void gen65(stack *Stack)
{
bool view=vm::pop<bool>(Stack,true);
bool viewportlighting=vm::pop<bool>(Stack);
@@ -2057,7 +2078,7 @@ void gen64(stack *Stack)
string format=vm::pop<string>(Stack,emptystring);
picture * f=vm::pop<picture *>(Stack);
string prefix=vm::pop<string>(Stack);
-#line 1770 "runtime.in"
+#line 1786 "runtime.in"
size_t n=checkArrays(lights,diffuse);
checkEqual(n,checkArray(ambient));
checkEqual(n,checkArray(specular));
@@ -2068,25 +2089,25 @@ void gen64(stack *Stack)
copyArray2C(specular,false,4),viewportlighting,view);
}
-#line 1781 "runtime.in"
+#line 1797 "runtime.in"
// void shipout3(string prefix, picture *f);
-void gen65(stack *Stack)
+void gen66(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
string prefix=vm::pop<string>(Stack);
-#line 1782 "runtime.in"
+#line 1798 "runtime.in"
f->shipout3(prefix);
}
-#line 1786 "runtime.in"
+#line 1802 "runtime.in"
// void deconstruct(picture *f, picture *preamble=NULL, real magnification=1, callableTransform *xform);
-void gen66(stack *Stack)
+void gen67(stack *Stack)
{
callableTransform * xform=vm::pop<callableTransform *>(Stack);
real magnification=vm::pop<real>(Stack,1);
picture * preamble=vm::pop<picture *>(Stack,NULL);
picture * f=vm::pop<picture *>(Stack);
-#line 1788 "runtime.in"
+#line 1804 "runtime.in"
unsigned level=0;
unsigned n=0;
@@ -2217,214 +2238,214 @@ void gen66(stack *Stack)
}
}
-#line 1919 "runtime.in"
+#line 1935 "runtime.in"
// void purge(Int divisor=0);
-void gen67(stack *Stack)
+void gen68(stack *Stack)
{
Int divisor=vm::pop<Int>(Stack,0);
-#line 1920 "runtime.in"
+#line 1936 "runtime.in"
purge(divisor);
}
// Pen operations
-#line 1926 "runtime.in"
+#line 1942 "runtime.in"
void newPen(stack *Stack)
{
-#line 1927 "runtime.in"
+#line 1943 "runtime.in"
{Stack->push<pen>(pen()); return;}
}
-#line 1932 "runtime.in"
+#line 1948 "runtime.in"
// bool ==(pen a, pen b);
-void gen69(stack *Stack)
+void gen70(stack *Stack)
{
pen b=vm::pop<pen>(Stack);
pen a=vm::pop<pen>(Stack);
-#line 1933 "runtime.in"
+#line 1949 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 1937 "runtime.in"
+#line 1953 "runtime.in"
// bool !=(pen a, pen b);
-void gen70(stack *Stack)
+void gen71(stack *Stack)
{
pen b=vm::pop<pen>(Stack);
pen a=vm::pop<pen>(Stack);
-#line 1938 "runtime.in"
+#line 1954 "runtime.in"
{Stack->push<bool>(a != b); return;}
}
-#line 1942 "runtime.in"
+#line 1958 "runtime.in"
// pen +(pen a, pen b);
-void gen71(stack *Stack)
+void gen72(stack *Stack)
{
pen b=vm::pop<pen>(Stack);
pen a=vm::pop<pen>(Stack);
-#line 1943 "runtime.in"
+#line 1959 "runtime.in"
{Stack->push<pen>(a+b); return;}
}
-#line 1947 "runtime.in"
+#line 1963 "runtime.in"
// pen *(real a, pen b);
-void gen72(stack *Stack)
+void gen73(stack *Stack)
{
pen b=vm::pop<pen>(Stack);
real a=vm::pop<real>(Stack);
-#line 1948 "runtime.in"
+#line 1964 "runtime.in"
{Stack->push<pen>(a*b); return;}
}
-#line 1952 "runtime.in"
+#line 1968 "runtime.in"
// pen *(pen a, real b);
-void gen73(stack *Stack)
+void gen74(stack *Stack)
{
real b=vm::pop<real>(Stack);
pen a=vm::pop<pen>(Stack);
-#line 1953 "runtime.in"
+#line 1969 "runtime.in"
{Stack->push<pen>(b*a); return;}
}
-#line 1957 "runtime.in"
+#line 1973 "runtime.in"
// pair max(pen p);
-void gen74(stack *Stack)
+void gen75(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 1958 "runtime.in"
+#line 1974 "runtime.in"
{Stack->push<pair>(p.bounds().Max()); return;}
}
-#line 1962 "runtime.in"
+#line 1978 "runtime.in"
// pair min(pen p);
-void gen75(stack *Stack)
+void gen76(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 1963 "runtime.in"
+#line 1979 "runtime.in"
{Stack->push<pair>(p.bounds().Min()); return;}
}
// Reset the meaning of pen default attributes.
-#line 1968 "runtime.in"
+#line 1984 "runtime.in"
// void resetdefaultpen();
-void gen76(stack *)
+void gen77(stack *)
{
-#line 1969 "runtime.in"
+#line 1985 "runtime.in"
processData().defaultpen=camp::pen::initialpen();
}
-#line 1973 "runtime.in"
+#line 1989 "runtime.in"
// void defaultpen(pen p);
-void gen77(stack *Stack)
+void gen78(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 1974 "runtime.in"
+#line 1990 "runtime.in"
processData().defaultpen=pen(resolvepen,p);
}
-#line 1978 "runtime.in"
+#line 1994 "runtime.in"
// pen defaultpen();
-void gen78(stack *Stack)
+void gen79(stack *Stack)
{
-#line 1979 "runtime.in"
+#line 1995 "runtime.in"
{Stack->push<pen>(processData().defaultpen); return;}
}
-#line 1983 "runtime.in"
+#line 1999 "runtime.in"
// bool invisible(pen p);
-void gen79(stack *Stack)
+void gen80(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 1984 "runtime.in"
+#line 2000 "runtime.in"
{Stack->push<bool>(p.invisible()); return;}
}
-#line 1988 "runtime.in"
+#line 2004 "runtime.in"
// pen invisible();
-void gen80(stack *Stack)
+void gen81(stack *Stack)
{
-#line 1989 "runtime.in"
+#line 2005 "runtime.in"
{Stack->push<pen>(pen(invisiblepen)); return;}
}
-#line 1993 "runtime.in"
+#line 2009 "runtime.in"
// pen gray(pen p);
-void gen81(stack *Stack)
+void gen82(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 1994 "runtime.in"
+#line 2010 "runtime.in"
p.togrey();
{Stack->push<pen>(p); return;}
}
-#line 1999 "runtime.in"
+#line 2015 "runtime.in"
// pen rgb(pen p);
-void gen82(stack *Stack)
+void gen83(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2000 "runtime.in"
+#line 2016 "runtime.in"
p.torgb();
{Stack->push<pen>(p); return;}
}
-#line 2005 "runtime.in"
+#line 2021 "runtime.in"
// pen cmyk(pen p);
-void gen83(stack *Stack)
+void gen84(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2006 "runtime.in"
+#line 2022 "runtime.in"
p.tocmyk();
{Stack->push<pen>(p); return;}
}
-#line 2011 "runtime.in"
+#line 2027 "runtime.in"
// pen interp(pen a, pen b, real t);
-void gen84(stack *Stack)
+void gen85(stack *Stack)
{
real t=vm::pop<real>(Stack);
pen b=vm::pop<pen>(Stack);
pen a=vm::pop<pen>(Stack);
-#line 2012 "runtime.in"
+#line 2028 "runtime.in"
{Stack->push<pen>(interpolate(a,b,t)); return;}
}
-#line 2016 "runtime.in"
+#line 2032 "runtime.in"
// pen rgb(real r, real g, real b);
-void gen85(stack *Stack)
+void gen86(stack *Stack)
{
real b=vm::pop<real>(Stack);
real g=vm::pop<real>(Stack);
real r=vm::pop<real>(Stack);
-#line 2017 "runtime.in"
+#line 2033 "runtime.in"
{Stack->push<pen>(pen(r,g,b)); return;}
}
-#line 2021 "runtime.in"
+#line 2037 "runtime.in"
// pen cmyk(real c, real m, real y, real k);
-void gen86(stack *Stack)
+void gen87(stack *Stack)
{
real k=vm::pop<real>(Stack);
real y=vm::pop<real>(Stack);
real m=vm::pop<real>(Stack);
real c=vm::pop<real>(Stack);
-#line 2022 "runtime.in"
+#line 2038 "runtime.in"
{Stack->push<pen>(pen(c,m,y,k)); return;}
}
-#line 2026 "runtime.in"
+#line 2042 "runtime.in"
// pen gray(real gray);
-void gen87(stack *Stack)
+void gen88(stack *Stack)
{
real gray=vm::pop<real>(Stack);
-#line 2027 "runtime.in"
+#line 2043 "runtime.in"
{Stack->push<pen>(pen(gray)); return;}
}
-#line 2031 "runtime.in"
+#line 2047 "runtime.in"
// realarray* colors(pen p);
-void gen88(stack *Stack)
+void gen89(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2032 "runtime.in"
+#line 2048 "runtime.in"
size_t n=ColorComponents[p.colorspace()];
array *a=new array(n);
@@ -2451,60 +2472,60 @@ void gen88(stack *Stack)
{Stack->push<realarray*>(a); return;}
}
-#line 2059 "runtime.in"
+#line 2075 "runtime.in"
// string colorspace(pen p);
-void gen89(stack *Stack)
+void gen90(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2060 "runtime.in"
+#line 2076 "runtime.in"
string s=ColorDeviceSuffix[p.colorspace()];
std::transform(s.begin(),s.end(),s.begin(),tolower);
{Stack->push<string>(s); return;}
}
-#line 2066 "runtime.in"
+#line 2082 "runtime.in"
// pen pattern(string *s);
-void gen90(stack *Stack)
+void gen91(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 2067 "runtime.in"
+#line 2083 "runtime.in"
{Stack->push<pen>(pen(setpattern,*s)); return;}
}
-#line 2071 "runtime.in"
+#line 2087 "runtime.in"
// string pattern(pen p);
-void gen91(stack *Stack)
+void gen92(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2072 "runtime.in"
+#line 2088 "runtime.in"
{Stack->push<string>(p.fillpattern()); return;}
}
-#line 2076 "runtime.in"
+#line 2092 "runtime.in"
// pen fillrule(Int n);
-void gen92(stack *Stack)
+void gen93(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 2077 "runtime.in"
+#line 2093 "runtime.in"
{Stack->push<pen>(pen(n >= 0 && n < nFill ? (FillRule) n : DEFFILL)); return;}
}
-#line 2081 "runtime.in"
+#line 2097 "runtime.in"
// Int fillrule(pen p);
-void gen93(stack *Stack)
+void gen94(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2082 "runtime.in"
+#line 2098 "runtime.in"
{Stack->push<Int>(p.Fillrule()); return;}
}
-#line 2086 "runtime.in"
+#line 2102 "runtime.in"
// pen opacity(real opacity=1.0, string blend=defaulttransparency);
-void gen94(stack *Stack)
+void gen95(stack *Stack)
{
string blend=vm::pop<string>(Stack,defaulttransparency);
real opacity=vm::pop<real>(Stack,1.0);
-#line 2087 "runtime.in"
+#line 2103 "runtime.in"
for(Int i=0; i < nBlendMode; ++i)
if(blend == BlendMode[i]) {Stack->push<pen>(pen(Transparency(blend,opacity))); return;}
@@ -2513,357 +2534,357 @@ void gen94(stack *Stack)
error(buf);
}
-#line 2096 "runtime.in"
+#line 2112 "runtime.in"
// real opacity(pen p);
-void gen95(stack *Stack)
+void gen96(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2097 "runtime.in"
+#line 2113 "runtime.in"
{Stack->push<real>(p.opacity()); return;}
}
-#line 2101 "runtime.in"
+#line 2117 "runtime.in"
// string blend(pen p);
-void gen96(stack *Stack)
+void gen97(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2102 "runtime.in"
+#line 2118 "runtime.in"
{Stack->push<string>(p.blend()); return;}
}
-#line 2106 "runtime.in"
+#line 2122 "runtime.in"
// pen linetype(string *s, real offset=0, bool scale=true, bool adjust=true);
-void gen97(stack *Stack)
+void gen98(stack *Stack)
{
bool adjust=vm::pop<bool>(Stack,true);
bool scale=vm::pop<bool>(Stack,true);
real offset=vm::pop<real>(Stack,0);
string * s=vm::pop<string *>(Stack);
-#line 2107 "runtime.in"
+#line 2123 "runtime.in"
{Stack->push<pen>(pen(LineType(*s,offset,scale,adjust))); return;}
}
-#line 2111 "runtime.in"
+#line 2127 "runtime.in"
// string linetype(pen p=CURRENTPEN);
-void gen98(stack *Stack)
+void gen99(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2112 "runtime.in"
+#line 2128 "runtime.in"
{Stack->push<string>(p.stroke()); return;}
}
-#line 2116 "runtime.in"
+#line 2132 "runtime.in"
// real offset(pen p);
-void gen99(stack *Stack)
+void gen100(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2117 "runtime.in"
+#line 2133 "runtime.in"
{Stack->push<real>(p.linetype().offset); return;}
}
-#line 2121 "runtime.in"
+#line 2137 "runtime.in"
// bool scale(pen p);
-void gen100(stack *Stack)
+void gen101(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2122 "runtime.in"
+#line 2138 "runtime.in"
{Stack->push<bool>(p.linetype().scale); return;}
}
-#line 2126 "runtime.in"
+#line 2142 "runtime.in"
// bool adjust(pen p);
-void gen101(stack *Stack)
+void gen102(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2127 "runtime.in"
+#line 2143 "runtime.in"
{Stack->push<bool>(p.linetype().adjust); return;}
}
-#line 2131 "runtime.in"
+#line 2147 "runtime.in"
// pen adjust(pen p, real arclength, bool cyclic);
-void gen102(stack *Stack)
+void gen103(stack *Stack)
{
bool cyclic=vm::pop<bool>(Stack);
real arclength=vm::pop<real>(Stack);
pen p=vm::pop<pen>(Stack);
-#line 2132 "runtime.in"
+#line 2148 "runtime.in"
{Stack->push<pen>(adjustdash(p,arclength,cyclic)); return;}
}
-#line 2136 "runtime.in"
+#line 2152 "runtime.in"
// pen linecap(Int n);
-void gen103(stack *Stack)
+void gen104(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 2137 "runtime.in"
+#line 2153 "runtime.in"
{Stack->push<pen>(pen(setlinecap,n >= 0 && n < nCap ? n : DEFCAP)); return;}
}
-#line 2141 "runtime.in"
+#line 2157 "runtime.in"
// Int linecap(pen p=CURRENTPEN);
-void gen104(stack *Stack)
+void gen105(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2142 "runtime.in"
+#line 2158 "runtime.in"
{Stack->push<Int>(p.cap()); return;}
}
-#line 2146 "runtime.in"
+#line 2162 "runtime.in"
// pen linejoin(Int n);
-void gen105(stack *Stack)
+void gen106(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 2147 "runtime.in"
+#line 2163 "runtime.in"
{Stack->push<pen>(pen(setlinejoin,n >= 0 && n < nJoin ? n : DEFJOIN)); return;}
}
-#line 2151 "runtime.in"
+#line 2167 "runtime.in"
// Int linejoin(pen p=CURRENTPEN);
-void gen106(stack *Stack)
+void gen107(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2152 "runtime.in"
+#line 2168 "runtime.in"
{Stack->push<Int>(p.join()); return;}
}
-#line 2156 "runtime.in"
+#line 2172 "runtime.in"
// pen miterlimit(real x);
-void gen107(stack *Stack)
+void gen108(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 2157 "runtime.in"
+#line 2173 "runtime.in"
{Stack->push<pen>(pen(setmiterlimit,x >= 1.0 ? x : DEFJOIN)); return;}
}
-#line 2161 "runtime.in"
+#line 2177 "runtime.in"
// real miterlimit(pen p=CURRENTPEN);
-void gen108(stack *Stack)
+void gen109(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2162 "runtime.in"
+#line 2178 "runtime.in"
{Stack->push<real>(p.miter()); return;}
}
-#line 2166 "runtime.in"
+#line 2182 "runtime.in"
// pen linewidth(real x);
-void gen109(stack *Stack)
+void gen110(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 2167 "runtime.in"
+#line 2183 "runtime.in"
{Stack->push<pen>(pen(setlinewidth,x >= 0.0 ? x : DEFWIDTH)); return;}
}
-#line 2171 "runtime.in"
+#line 2187 "runtime.in"
// real linewidth(pen p=CURRENTPEN);
-void gen110(stack *Stack)
+void gen111(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2172 "runtime.in"
+#line 2188 "runtime.in"
{Stack->push<real>(p.width()); return;}
}
-#line 2176 "runtime.in"
+#line 2192 "runtime.in"
// pen fontcommand(string *s);
-void gen111(stack *Stack)
+void gen112(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 2177 "runtime.in"
+#line 2193 "runtime.in"
{Stack->push<pen>(pen(setfont,*s)); return;}
}
-#line 2181 "runtime.in"
+#line 2197 "runtime.in"
// string font(pen p=CURRENTPEN);
-void gen112(stack *Stack)
+void gen113(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2182 "runtime.in"
+#line 2198 "runtime.in"
{Stack->push<string>(p.Font()); return;}
}
-#line 2186 "runtime.in"
+#line 2202 "runtime.in"
// pen fontsize(real size, real lineskip);
-void gen113(stack *Stack)
+void gen114(stack *Stack)
{
real lineskip=vm::pop<real>(Stack);
real size=vm::pop<real>(Stack);
-#line 2187 "runtime.in"
+#line 2203 "runtime.in"
{Stack->push<pen>(pen(setfontsize,size > 0.0 ? size : 0.0,
lineskip > 0.0 ? lineskip : 0.0)); return;}
}
-#line 2192 "runtime.in"
+#line 2208 "runtime.in"
// real fontsize(pen p=CURRENTPEN);
-void gen114(stack *Stack)
+void gen115(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2193 "runtime.in"
+#line 2209 "runtime.in"
{Stack->push<real>(p.size()); return;}
}
-#line 2197 "runtime.in"
+#line 2213 "runtime.in"
// real lineskip(pen p=CURRENTPEN);
-void gen115(stack *Stack)
+void gen116(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2198 "runtime.in"
+#line 2214 "runtime.in"
{Stack->push<real>(p.Lineskip()); return;}
}
-#line 2202 "runtime.in"
+#line 2218 "runtime.in"
// pen overwrite(Int n);
-void gen116(stack *Stack)
+void gen117(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 2203 "runtime.in"
+#line 2219 "runtime.in"
{Stack->push<pen>(pen(setoverwrite,n >= 0 && n < nOverwrite ? (overwrite_t) n :
DEFWRITE)); return;}
}
-#line 2208 "runtime.in"
+#line 2224 "runtime.in"
// Int overwrite(pen p=CURRENTPEN);
-void gen117(stack *Stack)
+void gen118(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2209 "runtime.in"
+#line 2225 "runtime.in"
{Stack->push<Int>(p.Overwrite()); return;}
}
-#line 2213 "runtime.in"
+#line 2229 "runtime.in"
// pen basealign(Int n);
-void gen118(stack *Stack)
+void gen119(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 2214 "runtime.in"
+#line 2230 "runtime.in"
{Stack->push<pen>(pen(n >= 0 && n < nBaseLine ? (BaseLine) n : DEFBASE)); return;}
}
-#line 2218 "runtime.in"
+#line 2234 "runtime.in"
// Int basealign(pen p=CURRENTPEN);
-void gen119(stack *Stack)
+void gen120(stack *Stack)
{
pen p=vm::pop<pen>(Stack,CURRENTPEN);
-#line 2219 "runtime.in"
+#line 2235 "runtime.in"
{Stack->push<Int>(p.Baseline()); return;}
}
-#line 2223 "runtime.in"
+#line 2239 "runtime.in"
// transform transform(pen p);
-void gen120(stack *Stack)
+void gen121(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2224 "runtime.in"
+#line 2240 "runtime.in"
{Stack->push<transform>(p.getTransform()); return;}
}
-#line 2228 "runtime.in"
+#line 2244 "runtime.in"
// path nib(pen p);
-void gen121(stack *Stack)
+void gen122(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2229 "runtime.in"
+#line 2245 "runtime.in"
{Stack->push<path>(p.Path()); return;}
}
-#line 2233 "runtime.in"
+#line 2249 "runtime.in"
// pen makepen(path p);
-void gen122(stack *Stack)
+void gen123(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2234 "runtime.in"
+#line 2250 "runtime.in"
{Stack->push<pen>(pen(p)); return;}
}
-#line 2238 "runtime.in"
+#line 2254 "runtime.in"
// pen colorless(pen p);
-void gen123(stack *Stack)
+void gen124(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
-#line 2239 "runtime.in"
+#line 2255 "runtime.in"
p.colorless();
{Stack->push<pen>(p); return;}
}
// Interactive mode
-#line 2245 "runtime.in"
+#line 2261 "runtime.in"
// bool interactive();
-void gen124(stack *Stack)
+void gen125(stack *Stack)
{
-#line 2246 "runtime.in"
+#line 2262 "runtime.in"
{Stack->push<bool>(interact::interactive); return;}
}
-#line 2251 "runtime.in"
+#line 2267 "runtime.in"
// bool uptodate();
-void gen125(stack *Stack)
+void gen126(stack *Stack)
{
-#line 2252 "runtime.in"
+#line 2268 "runtime.in"
{Stack->push<bool>(interact::uptodate); return;}
}
// System commands
-#line 2258 "runtime.in"
+#line 2274 "runtime.in"
// Int system(string s);
-void gen126(stack *Stack)
+void gen127(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 2259 "runtime.in"
+#line 2275 "runtime.in"
if(safe) error("system() call disabled; override with option -nosafe");
if(s.empty()) {Stack->push<Int>(0); return;}
else {Stack->push<Int>(System(s.c_str())); return;}
}
-#line 2266 "runtime.in"
+#line 2282 "runtime.in"
// bool view();
-void gen127(stack *Stack)
+void gen128(stack *Stack)
{
-#line 2267 "runtime.in"
+#line 2283 "runtime.in"
{Stack->push<bool>(view()); return;}
}
-#line 2271 "runtime.in"
+#line 2287 "runtime.in"
// string asydir();
-void gen128(stack *Stack)
+void gen129(stack *Stack)
{
-#line 2272 "runtime.in"
+#line 2288 "runtime.in"
{Stack->push<string>(systemDir); return;}
}
-#line 2276 "runtime.in"
+#line 2292 "runtime.in"
// string locale(string s=emptystring);
-void gen129(stack *Stack)
+void gen130(stack *Stack)
{
string s=vm::pop<string>(Stack,emptystring);
-#line 2277 "runtime.in"
+#line 2293 "runtime.in"
char *L=setlocale(LC_ALL,s.empty() ? NULL : s.c_str());
{Stack->push<string>(L != NULL ? string(L) : ""); return;}
}
-#line 2282 "runtime.in"
+#line 2298 "runtime.in"
// void abort(string s=emptystring);
-void gen130(stack *Stack)
+void gen131(stack *Stack)
{
string s=vm::pop<string>(Stack,emptystring);
-#line 2283 "runtime.in"
+#line 2299 "runtime.in"
if(s.empty()) throw handled_error();
error(s.c_str());
}
-#line 2288 "runtime.in"
+#line 2304 "runtime.in"
// void exit();
-void gen131(stack *)
+void gen132(stack *)
{
-#line 2289 "runtime.in"
+#line 2305 "runtime.in"
throw quit();
}
-#line 2293 "runtime.in"
+#line 2309 "runtime.in"
// void assert(bool b, string s=emptystring);
-void gen132(stack *Stack)
+void gen133(stack *Stack)
{
string s=vm::pop<string>(Stack,emptystring);
bool b=vm::pop<bool>(Stack);
-#line 2294 "runtime.in"
+#line 2310 "runtime.in"
flush(cout);
if(!b) {
ostringstream buf;
@@ -2873,34 +2894,34 @@ void gen132(stack *Stack)
}
}
-#line 2304 "runtime.in"
+#line 2320 "runtime.in"
// void sleep(Int seconds);
-void gen133(stack *Stack)
+void gen134(stack *Stack)
{
Int seconds=vm::pop<Int>(Stack);
-#line 2305 "runtime.in"
+#line 2321 "runtime.in"
if(seconds <= 0) return;
sleep(seconds);
}
-#line 2310 "runtime.in"
+#line 2326 "runtime.in"
// void usleep(Int microseconds);
-void gen134(stack *Stack)
+void gen135(stack *Stack)
{
Int microseconds=vm::pop<Int>(Stack);
-#line 2311 "runtime.in"
+#line 2327 "runtime.in"
if(microseconds <= 0) return;
usleep((unsigned long) microseconds);
}
-#line 2316 "runtime.in"
+#line 2332 "runtime.in"
// void _eval(string *s, bool embedded, bool interactiveWrite=false);
-void gen135(stack *Stack)
+void gen136(stack *Stack)
{
bool interactiveWrite=vm::pop<bool>(Stack,false);
bool embedded=vm::pop<bool>(Stack);
string * s=vm::pop<string *>(Stack);
-#line 2317 "runtime.in"
+#line 2333 "runtime.in"
if (embedded) {
trans::coenv *e=Stack->getEnvironment();
vm::interactiveStack *is=dynamic_cast<vm::interactiveStack *>(Stack);
@@ -2914,13 +2935,13 @@ void gen135(stack *Stack)
}
}
-#line 2331 "runtime.in"
+#line 2347 "runtime.in"
// void _eval(runnable *s, bool embedded);
-void gen136(stack *Stack)
+void gen137(stack *Stack)
{
bool embedded=vm::pop<bool>(Stack);
runnable * s=vm::pop<runnable *>(Stack);
-#line 2332 "runtime.in"
+#line 2348 "runtime.in"
absyntax::block *ast=new absyntax::block(s->getPos(), false);
ast->add(s);
@@ -2937,42 +2958,42 @@ void gen136(stack *Stack)
}
}
-#line 2349 "runtime.in"
+#line 2365 "runtime.in"
// string location();
-void gen137(stack *Stack)
+void gen138(stack *Stack)
{
-#line 2350 "runtime.in"
+#line 2366 "runtime.in"
ostringstream buf;
buf << getPos();
{Stack->push<string>(buf.str()); return;}
}
// Wrapper for the stack::load() method.
-#line 2356 "runtime.in"
+#line 2372 "runtime.in"
void loadModule(stack *Stack)
{
string * index=vm::pop<string *>(Stack);
-#line 2357 "runtime.in"
+#line 2373 "runtime.in"
Stack->load(*index);
}
-#line 2361 "runtime.in"
+#line 2377 "runtime.in"
// string cd(string s=emptystring);
-void gen139(stack *Stack)
+void gen140(stack *Stack)
{
string s=vm::pop<string>(Stack,emptystring);
-#line 2362 "runtime.in"
+#line 2378 "runtime.in"
if(!s.empty() && !globalwrite()) writeDisabled();
{Stack->push<string>(setPath(s.c_str())); return;}
}
-#line 2367 "runtime.in"
+#line 2383 "runtime.in"
// void list(string *s, bool imports=false);
-void gen140(stack *Stack)
+void gen141(stack *Stack)
{
bool imports=vm::pop<bool>(Stack,false);
string * s=vm::pop<string *>(Stack);
-#line 2368 "runtime.in"
+#line 2384 "runtime.in"
if(*s == "-") return;
trans::genv ge;
symbol *name=symbol::trans(*s);
@@ -2982,144 +3003,144 @@ void gen140(stack *Stack)
// Path operations
-#line 2378 "runtime.in"
+#line 2394 "runtime.in"
void nullPath(stack *Stack)
{
-#line 2379 "runtime.in"
+#line 2395 "runtime.in"
{Stack->push<path>(nullpath); return;}
}
-#line 2384 "runtime.in"
+#line 2400 "runtime.in"
// bool ==(path a, path b);
-void gen142(stack *Stack)
+void gen143(stack *Stack)
{
path b=vm::pop<path>(Stack);
path a=vm::pop<path>(Stack);
-#line 2385 "runtime.in"
+#line 2401 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 2389 "runtime.in"
+#line 2405 "runtime.in"
// bool !=(path a, path b);
-void gen143(stack *Stack)
+void gen144(stack *Stack)
{
path b=vm::pop<path>(Stack);
path a=vm::pop<path>(Stack);
-#line 2390 "runtime.in"
+#line 2406 "runtime.in"
{Stack->push<bool>(!(a == b)); return;}
}
-#line 2394 "runtime.in"
+#line 2410 "runtime.in"
// pair point(path p, Int t);
-void gen144(stack *Stack)
+void gen145(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2395 "runtime.in"
+#line 2411 "runtime.in"
{Stack->push<pair>(p.point((Int) t)); return;}
}
-#line 2399 "runtime.in"
+#line 2415 "runtime.in"
// pair point(path p, real t);
-void gen145(stack *Stack)
+void gen146(stack *Stack)
{
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2400 "runtime.in"
+#line 2416 "runtime.in"
{Stack->push<pair>(p.point(t)); return;}
}
-#line 2404 "runtime.in"
+#line 2420 "runtime.in"
// pair precontrol(path p, Int t);
-void gen146(stack *Stack)
+void gen147(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2405 "runtime.in"
+#line 2421 "runtime.in"
{Stack->push<pair>(p.precontrol((Int) t)); return;}
}
-#line 2409 "runtime.in"
+#line 2425 "runtime.in"
// pair precontrol(path p, real t);
-void gen147(stack *Stack)
+void gen148(stack *Stack)
{
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2410 "runtime.in"
+#line 2426 "runtime.in"
{Stack->push<pair>(p.precontrol(t)); return;}
}
-#line 2414 "runtime.in"
+#line 2430 "runtime.in"
// pair postcontrol(path p, Int t);
-void gen148(stack *Stack)
+void gen149(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2415 "runtime.in"
+#line 2431 "runtime.in"
{Stack->push<pair>(p.postcontrol((Int) t)); return;}
}
-#line 2419 "runtime.in"
+#line 2435 "runtime.in"
// pair postcontrol(path p, real t);
-void gen149(stack *Stack)
+void gen150(stack *Stack)
{
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2420 "runtime.in"
+#line 2436 "runtime.in"
{Stack->push<pair>(p.postcontrol(t)); return;}
}
-#line 2424 "runtime.in"
+#line 2440 "runtime.in"
// pair dir(path p, Int t, Int sign=0, bool normalize=true);
-void gen150(stack *Stack)
+void gen151(stack *Stack)
{
bool normalize=vm::pop<bool>(Stack,true);
Int sign=vm::pop<Int>(Stack,0);
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2425 "runtime.in"
+#line 2441 "runtime.in"
{Stack->push<pair>(p.dir(t,sign,normalize)); return;}
}
-#line 2429 "runtime.in"
+#line 2445 "runtime.in"
// pair dir(path p, real t, bool normalize=true);
-void gen151(stack *Stack)
+void gen152(stack *Stack)
{
bool normalize=vm::pop<bool>(Stack,true);
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2430 "runtime.in"
+#line 2446 "runtime.in"
{Stack->push<pair>(p.dir(t,normalize)); return;}
}
-#line 2434 "runtime.in"
+#line 2450 "runtime.in"
// pair accel(path p, Int t, Int sign=0);
-void gen152(stack *Stack)
+void gen153(stack *Stack)
{
Int sign=vm::pop<Int>(Stack,0);
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2435 "runtime.in"
+#line 2451 "runtime.in"
{Stack->push<pair>(p.accel(t,sign)); return;}
}
-#line 2439 "runtime.in"
+#line 2455 "runtime.in"
// pair accel(path p, real t);
-void gen153(stack *Stack)
+void gen154(stack *Stack)
{
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2440 "runtime.in"
+#line 2456 "runtime.in"
{Stack->push<pair>(p.accel(t)); return;}
}
-#line 2444 "runtime.in"
+#line 2460 "runtime.in"
// real radius(path p, real t);
-void gen154(stack *Stack)
+void gen155(stack *Stack)
{
real t=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2445 "runtime.in"
+#line 2461 "runtime.in"
pair v=p.dir(t,false);
pair a=p.accel(t);
real d=dot(a,v);
@@ -3130,40 +3151,40 @@ void gen154(stack *Stack)
{Stack->push<real>(denom > 0 ? r/sqrt(denom) : 0.0); return;}
}
-#line 2456 "runtime.in"
+#line 2472 "runtime.in"
// path reverse(path p);
-void gen155(stack *Stack)
+void gen156(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2457 "runtime.in"
+#line 2473 "runtime.in"
{Stack->push<path>(p.reverse()); return;}
}
-#line 2461 "runtime.in"
+#line 2477 "runtime.in"
// path subpath(path p, Int a, Int b);
-void gen156(stack *Stack)
+void gen157(stack *Stack)
{
Int b=vm::pop<Int>(Stack);
Int a=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2462 "runtime.in"
+#line 2478 "runtime.in"
{Stack->push<path>(p.subpath((Int) a, (Int) b)); return;}
}
-#line 2466 "runtime.in"
+#line 2482 "runtime.in"
// path subpath(path p, real a, real b);
-void gen157(stack *Stack)
+void gen158(stack *Stack)
{
real b=vm::pop<real>(Stack);
real a=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2467 "runtime.in"
+#line 2483 "runtime.in"
{Stack->push<path>(p.subpath(a,b)); return;}
}
-#line 2471 "runtime.in"
+#line 2487 "runtime.in"
// path nurb(pair z0, pair z1, pair z2, pair z3, real w0, real w1, real w2, real w3, Int m);
-void gen158(stack *Stack)
+void gen159(stack *Stack)
{
Int m=vm::pop<Int>(Stack);
real w3=vm::pop<real>(Stack);
@@ -3174,93 +3195,93 @@ void gen158(stack *Stack)
pair z2=vm::pop<pair>(Stack);
pair z1=vm::pop<pair>(Stack);
pair z0=vm::pop<pair>(Stack);
-#line 2473 "runtime.in"
+#line 2489 "runtime.in"
{Stack->push<path>(nurb(z0,z1,z2,z3,w0,w1,w2,w3,m)); return;}
}
-#line 2477 "runtime.in"
+#line 2493 "runtime.in"
// Int length(path p);
-void gen159(stack *Stack)
+void gen160(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2478 "runtime.in"
+#line 2494 "runtime.in"
{Stack->push<Int>(p.length()); return;}
}
-#line 2482 "runtime.in"
+#line 2498 "runtime.in"
// bool cyclic(path p);
-void gen160(stack *Stack)
+void gen161(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2483 "runtime.in"
+#line 2499 "runtime.in"
{Stack->push<bool>(p.cyclic()); return;}
}
-#line 2487 "runtime.in"
+#line 2503 "runtime.in"
// bool straight(path p, Int t);
-void gen161(stack *Stack)
+void gen162(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path p=vm::pop<path>(Stack);
-#line 2488 "runtime.in"
+#line 2504 "runtime.in"
{Stack->push<bool>(p.straight(t)); return;}
}
-#line 2492 "runtime.in"
+#line 2508 "runtime.in"
// path unstraighten(path p);
-void gen162(stack *Stack)
+void gen163(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2493 "runtime.in"
+#line 2509 "runtime.in"
{Stack->push<path>(p.unstraighten()); return;}
}
-#line 2497 "runtime.in"
+#line 2513 "runtime.in"
// bool piecewisestraight(path p);
-void gen163(stack *Stack)
+void gen164(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2498 "runtime.in"
+#line 2514 "runtime.in"
{Stack->push<bool>(p.piecewisestraight()); return;}
}
-#line 2502 "runtime.in"
+#line 2518 "runtime.in"
// real arclength(path p);
-void gen164(stack *Stack)
+void gen165(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2503 "runtime.in"
+#line 2519 "runtime.in"
{Stack->push<real>(p.arclength()); return;}
}
-#line 2507 "runtime.in"
+#line 2523 "runtime.in"
// real arctime(path p, real dval);
-void gen165(stack *Stack)
+void gen166(stack *Stack)
{
real dval=vm::pop<real>(Stack);
path p=vm::pop<path>(Stack);
-#line 2508 "runtime.in"
+#line 2524 "runtime.in"
{Stack->push<real>(p.arctime(dval)); return;}
}
-#line 2512 "runtime.in"
+#line 2528 "runtime.in"
// real dirtime(path p, pair z);
-void gen166(stack *Stack)
+void gen167(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
path p=vm::pop<path>(Stack);
-#line 2513 "runtime.in"
+#line 2529 "runtime.in"
{Stack->push<real>(p.directiontime(z)); return;}
}
-#line 2517 "runtime.in"
+#line 2533 "runtime.in"
// realarray* intersect(path p, path q, real fuzz=-1);
-void gen167(stack *Stack)
+void gen168(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
path q=vm::pop<path>(Stack);
path p=vm::pop<path>(Stack);
-#line 2518 "runtime.in"
+#line 2534 "runtime.in"
bool exact=fuzz <= 0.0;
if(fuzz < 0)
fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
@@ -3276,14 +3297,14 @@ void gen167(stack *Stack)
{Stack->push<realarray*>(new array(0)); return;}
}
-#line 2534 "runtime.in"
+#line 2550 "runtime.in"
// realarray2* intersections(path p, path q, real fuzz=-1);
-void gen168(stack *Stack)
+void gen169(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
path q=vm::pop<path>(Stack);
path p=vm::pop<path>(Stack);
-#line 2535 "runtime.in"
+#line 2551 "runtime.in"
bool exact=fuzz <= 0.0;
if(fuzz < 0.0)
fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
@@ -3313,15 +3334,15 @@ void gen168(stack *Stack)
{Stack->push<realarray2*>(V); return;}
}
-#line 2565 "runtime.in"
+#line 2581 "runtime.in"
// realarray* intersections(path p, explicit pair a, explicit pair b, real fuzz=-1);
-void gen169(stack *Stack)
+void gen170(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
path p=vm::pop<path>(Stack);
-#line 2566 "runtime.in"
+#line 2582 "runtime.in"
if(fuzz < 0)
fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
::max(length(a),length(b)));
@@ -3337,15 +3358,15 @@ void gen169(stack *Stack)
// Return the intersection point of the extensions of the line segments
// PQ and pq.
-#line 2582 "runtime.in"
+#line 2598 "runtime.in"
// pair extension(pair P, pair Q, pair p, pair q);
-void gen170(stack *Stack)
+void gen171(stack *Stack)
{
pair q=vm::pop<pair>(Stack);
pair p=vm::pop<pair>(Stack);
pair Q=vm::pop<pair>(Stack);
pair P=vm::pop<pair>(Stack);
-#line 2583 "runtime.in"
+#line 2599 "runtime.in"
pair ac=P-Q;
pair bd=q-p;
real det=ac.getx()*bd.gety()-ac.gety()*bd.getx();
@@ -3353,49 +3374,49 @@ void gen170(stack *Stack)
{Stack->push<pair>(P+((p.getx()-P.getx())*bd.gety()-(p.gety()-P.gety())*bd.getx())*ac/det); return;}
}
-#line 2591 "runtime.in"
+#line 2607 "runtime.in"
// Int size(path p);
-void gen171(stack *Stack)
+void gen172(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2592 "runtime.in"
+#line 2608 "runtime.in"
{Stack->push<Int>(p.size()); return;}
}
-#line 2596 "runtime.in"
+#line 2612 "runtime.in"
// path &(path p, path q);
-void gen172(stack *Stack)
+void gen173(stack *Stack)
{
path q=vm::pop<path>(Stack);
path p=vm::pop<path>(Stack);
-#line 2597 "runtime.in"
+#line 2613 "runtime.in"
{Stack->push<path>(camp::concat(p,q)); return;}
}
-#line 2601 "runtime.in"
+#line 2617 "runtime.in"
// pair min(path p);
-void gen173(stack *Stack)
+void gen174(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2602 "runtime.in"
+#line 2618 "runtime.in"
{Stack->push<pair>(p.min()); return;}
}
-#line 2606 "runtime.in"
+#line 2622 "runtime.in"
// pair max(path p);
-void gen174(stack *Stack)
+void gen175(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2607 "runtime.in"
+#line 2623 "runtime.in"
{Stack->push<pair>(p.max()); return;}
}
-#line 2611 "runtime.in"
+#line 2627 "runtime.in"
// realarray* mintimes(path p);
-void gen175(stack *Stack)
+void gen176(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2612 "runtime.in"
+#line 2628 "runtime.in"
array *V=new array(2);
pair z=p.mintimes();
(*V)[0]=z.getx();
@@ -3403,12 +3424,12 @@ void gen175(stack *Stack)
{Stack->push<realarray*>(V); return;}
}
-#line 2620 "runtime.in"
+#line 2636 "runtime.in"
// realarray* maxtimes(path p);
-void gen176(stack *Stack)
+void gen177(stack *Stack)
{
path p=vm::pop<path>(Stack);
-#line 2621 "runtime.in"
+#line 2637 "runtime.in"
array *V=new array(2);
pair z=p.maxtimes();
(*V)[0]=z.getx();
@@ -3416,90 +3437,90 @@ void gen176(stack *Stack)
{Stack->push<realarray*>(V); return;}
}
-#line 2629 "runtime.in"
+#line 2645 "runtime.in"
// real relativedistance(real theta, real phi, real t, bool atleast);
-void gen177(stack *Stack)
+void gen178(stack *Stack)
{
bool atleast=vm::pop<bool>(Stack);
real t=vm::pop<real>(Stack);
real phi=vm::pop<real>(Stack);
real theta=vm::pop<real>(Stack);
-#line 2630 "runtime.in"
+#line 2646 "runtime.in"
{Stack->push<real>(camp::velocity(theta,phi,tension(t,atleast))); return;}
}
-#line 2634 "runtime.in"
+#line 2650 "runtime.in"
// Int windingnumber(patharray *p, pair z);
-void gen178(stack *Stack)
+void gen179(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
patharray * p=vm::pop<patharray *>(Stack);
-#line 2635 "runtime.in"
+#line 2651 "runtime.in"
{Stack->push<Int>(windingnumber(p,z)); return;}
}
-#line 2639 "runtime.in"
+#line 2655 "runtime.in"
// bool inside(explicit patharray *g, pair z, pen fillrule=CURRENTPEN);
-void gen179(stack *Stack)
+void gen180(stack *Stack)
{
pen fillrule=vm::pop<pen>(Stack,CURRENTPEN);
pair z=vm::pop<pair>(Stack);
patharray * g=vm::pop<patharray *>(Stack);
-#line 2640 "runtime.in"
+#line 2656 "runtime.in"
{Stack->push<bool>(fillrule.inside(windingnumber(g,z))); return;}
}
-#line 2644 "runtime.in"
+#line 2660 "runtime.in"
// bool inside(path g, pair z, pen fillrule=CURRENTPEN);
-void gen180(stack *Stack)
+void gen181(stack *Stack)
{
pen fillrule=vm::pop<pen>(Stack,CURRENTPEN);
pair z=vm::pop<pair>(Stack);
path g=vm::pop<path>(Stack);
-#line 2645 "runtime.in"
+#line 2661 "runtime.in"
{Stack->push<bool>(fillrule.inside(g.windingnumber(z))); return;}
}
// Determine the side of a--b that c lies on
// (negative=left, zero=on line, positive=right).
-#line 2651 "runtime.in"
+#line 2667 "runtime.in"
// real side(pair a, pair b, pair c);
-void gen181(stack *Stack)
+void gen182(stack *Stack)
{
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 2652 "runtime.in"
+#line 2668 "runtime.in"
{Stack->push<real>(orient2d(a,b,c)); return;}
}
// Determine the side of the counterclockwise circle through a,b,c that d
// lies on (negative=inside, 0=on circle, positive=right).
-#line 2658 "runtime.in"
+#line 2674 "runtime.in"
// real incircle(pair a, pair b, pair c, pair d);
-void gen182(stack *Stack)
+void gen183(stack *Stack)
{
pair d=vm::pop<pair>(Stack);
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 2659 "runtime.in"
+#line 2675 "runtime.in"
{Stack->push<real>(incircle(a.getx(),a.gety(),b.getx(),b.gety(),c.getx(),c.gety(),
d.getx(),d.gety())); return;}
}
// Path3 operations
-#line 2666 "runtime.in"
+#line 2682 "runtime.in"
// path3 path3(triplearray *pre, triplearray *point, triplearray *post, boolarray *straight, bool cyclic);
-void gen183(stack *Stack)
+void gen184(stack *Stack)
{
bool cyclic=vm::pop<bool>(Stack);
boolarray * straight=vm::pop<boolarray *>(Stack);
triplearray * post=vm::pop<triplearray *>(Stack);
triplearray * point=vm::pop<triplearray *>(Stack);
triplearray * pre=vm::pop<triplearray *>(Stack);
-#line 2668 "runtime.in"
+#line 2684 "runtime.in"
size_t n=checkArrays(pre,point);
checkEqual(n,checkArray(post));
checkEqual(n,checkArray(straight));
@@ -3514,144 +3535,144 @@ void gen183(stack *Stack)
{Stack->push<path3>(path3(nodes,(Int) n,cyclic)); return;}
}
-#line 2684 "runtime.in"
+#line 2700 "runtime.in"
void nullPath3(stack *Stack)
{
-#line 2685 "runtime.in"
+#line 2701 "runtime.in"
{Stack->push<path3>(nullpath3); return;}
}
-#line 2689 "runtime.in"
+#line 2705 "runtime.in"
// bool ==(path3 a, path3 b);
-void gen185(stack *Stack)
+void gen186(stack *Stack)
{
path3 b=vm::pop<path3>(Stack);
path3 a=vm::pop<path3>(Stack);
-#line 2690 "runtime.in"
+#line 2706 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 2694 "runtime.in"
+#line 2710 "runtime.in"
// bool !=(path3 a, path3 b);
-void gen186(stack *Stack)
+void gen187(stack *Stack)
{
path3 b=vm::pop<path3>(Stack);
path3 a=vm::pop<path3>(Stack);
-#line 2695 "runtime.in"
+#line 2711 "runtime.in"
{Stack->push<bool>(!(a == b)); return;}
}
-#line 2699 "runtime.in"
+#line 2715 "runtime.in"
// triple point(path3 p, Int t);
-void gen187(stack *Stack)
+void gen188(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2700 "runtime.in"
+#line 2716 "runtime.in"
{Stack->push<triple>(p.point((Int) t)); return;}
}
-#line 2704 "runtime.in"
+#line 2720 "runtime.in"
// triple point(path3 p, real t);
-void gen188(stack *Stack)
+void gen189(stack *Stack)
{
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2705 "runtime.in"
+#line 2721 "runtime.in"
{Stack->push<triple>(p.point(t)); return;}
}
-#line 2709 "runtime.in"
+#line 2725 "runtime.in"
// triple precontrol(path3 p, Int t);
-void gen189(stack *Stack)
+void gen190(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2710 "runtime.in"
+#line 2726 "runtime.in"
{Stack->push<triple>(p.precontrol((Int) t)); return;}
}
-#line 2714 "runtime.in"
+#line 2730 "runtime.in"
// triple precontrol(path3 p, real t);
-void gen190(stack *Stack)
+void gen191(stack *Stack)
{
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2715 "runtime.in"
+#line 2731 "runtime.in"
{Stack->push<triple>(p.precontrol(t)); return;}
}
-#line 2719 "runtime.in"
+#line 2735 "runtime.in"
// triple postcontrol(path3 p, Int t);
-void gen191(stack *Stack)
+void gen192(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2720 "runtime.in"
+#line 2736 "runtime.in"
{Stack->push<triple>(p.postcontrol((Int) t)); return;}
}
-#line 2724 "runtime.in"
+#line 2740 "runtime.in"
// triple postcontrol(path3 p, real t);
-void gen192(stack *Stack)
+void gen193(stack *Stack)
{
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2725 "runtime.in"
+#line 2741 "runtime.in"
{Stack->push<triple>(p.postcontrol(t)); return;}
}
-#line 2729 "runtime.in"
+#line 2745 "runtime.in"
// triple dir(path3 p, Int t, Int sign=0, bool normalize=true);
-void gen193(stack *Stack)
+void gen194(stack *Stack)
{
bool normalize=vm::pop<bool>(Stack,true);
Int sign=vm::pop<Int>(Stack,0);
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2730 "runtime.in"
+#line 2746 "runtime.in"
{Stack->push<triple>(p.dir(t,sign,normalize)); return;}
}
-#line 2734 "runtime.in"
+#line 2750 "runtime.in"
// triple dir(path3 p, real t, bool normalize=true);
-void gen194(stack *Stack)
+void gen195(stack *Stack)
{
bool normalize=vm::pop<bool>(Stack,true);
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2735 "runtime.in"
+#line 2751 "runtime.in"
{Stack->push<triple>(p.dir(t,normalize)); return;}
}
-#line 2739 "runtime.in"
+#line 2755 "runtime.in"
// triple accel(path3 p, Int t, Int sign=0);
-void gen195(stack *Stack)
+void gen196(stack *Stack)
{
Int sign=vm::pop<Int>(Stack,0);
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2740 "runtime.in"
+#line 2756 "runtime.in"
{Stack->push<triple>(p.accel(t,sign)); return;}
}
-#line 2744 "runtime.in"
+#line 2760 "runtime.in"
// triple accel(path3 p, real t);
-void gen196(stack *Stack)
+void gen197(stack *Stack)
{
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2745 "runtime.in"
+#line 2761 "runtime.in"
{Stack->push<triple>(p.accel(t)); return;}
}
-#line 2749 "runtime.in"
+#line 2765 "runtime.in"
// real radius(path3 p, real t);
-void gen197(stack *Stack)
+void gen198(stack *Stack)
{
real t=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2750 "runtime.in"
+#line 2766 "runtime.in"
triple v=p.dir(t,false);
triple a=p.accel(t);
real d=dot(a,v);
@@ -3662,16 +3683,16 @@ void gen197(stack *Stack)
{Stack->push<real>(denom > 0 ? r/sqrt(denom) : 0.0); return;}
}
-#line 2761 "runtime.in"
+#line 2777 "runtime.in"
// real radius(triple z0, triple c0, triple c1, triple z1, real t);
-void gen198(stack *Stack)
+void gen199(stack *Stack)
{
real t=vm::pop<real>(Stack);
triple z1=vm::pop<triple>(Stack);
triple c1=vm::pop<triple>(Stack);
triple c0=vm::pop<triple>(Stack);
triple z0=vm::pop<triple>(Stack);
-#line 2762 "runtime.in"
+#line 2778 "runtime.in"
triple v=(3.0*(z1-z0)+9.0*(c0-c1))*t*t+(6.0*(z0+c1)-12.0*c0)*t+3.0*(c0-z0);
triple a=6.0*(z1-z0+3.0*(c0-c1))*t+6.0*(z0+c1)-12.0*c0;
real d=dot(a,v);
@@ -3682,85 +3703,85 @@ void gen198(stack *Stack)
{Stack->push<real>(denom > 0 ? r/sqrt(denom) : 0.0); return;}
}
-#line 2773 "runtime.in"
+#line 2789 "runtime.in"
// path3 reverse(path3 p);
-void gen199(stack *Stack)
+void gen200(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2774 "runtime.in"
+#line 2790 "runtime.in"
{Stack->push<path3>(p.reverse()); return;}
}
-#line 2778 "runtime.in"
+#line 2794 "runtime.in"
// path3 subpath(path3 p, Int a, Int b);
-void gen200(stack *Stack)
+void gen201(stack *Stack)
{
Int b=vm::pop<Int>(Stack);
Int a=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2779 "runtime.in"
+#line 2795 "runtime.in"
{Stack->push<path3>(p.subpath((Int) a, (Int) b)); return;}
}
-#line 2783 "runtime.in"
+#line 2799 "runtime.in"
// path3 subpath(path3 p, real a, real b);
-void gen201(stack *Stack)
+void gen202(stack *Stack)
{
real b=vm::pop<real>(Stack);
real a=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2784 "runtime.in"
+#line 2800 "runtime.in"
{Stack->push<path3>(p.subpath(a,b)); return;}
}
-#line 2788 "runtime.in"
+#line 2804 "runtime.in"
// Int length(path3 p);
-void gen202(stack *Stack)
+void gen203(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2789 "runtime.in"
+#line 2805 "runtime.in"
{Stack->push<Int>(p.length()); return;}
}
-#line 2793 "runtime.in"
+#line 2809 "runtime.in"
// bool cyclic(path3 p);
-void gen203(stack *Stack)
+void gen204(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2794 "runtime.in"
+#line 2810 "runtime.in"
{Stack->push<bool>(p.cyclic()); return;}
}
-#line 2798 "runtime.in"
+#line 2814 "runtime.in"
// bool straight(path3 p, Int t);
-void gen204(stack *Stack)
+void gen205(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2799 "runtime.in"
+#line 2815 "runtime.in"
{Stack->push<bool>(p.straight(t)); return;}
}
// Return the component of vector v perpendicular to a unit vector u.
-#line 2804 "runtime.in"
+#line 2820 "runtime.in"
// triple perp(triple v, triple u);
-void gen205(stack *Stack)
+void gen206(stack *Stack)
{
triple u=vm::pop<triple>(Stack);
triple v=vm::pop<triple>(Stack);
-#line 2805 "runtime.in"
+#line 2821 "runtime.in"
{Stack->push<triple>(v-dot(v,u)*u); return;}
}
// Return the maximum perpendicular deviation of segment i of path3 g
// from a straight line.
-#line 2811 "runtime.in"
+#line 2827 "runtime.in"
// real straightness(path3 p, Int t);
-void gen206(stack *Stack)
+void gen207(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2812 "runtime.in"
+#line 2828 "runtime.in"
if(p.straight(t)) {Stack->push<real>(0); return;}
triple z0=p.point(t);
triple u=unit(p.point(t+1)-z0);
@@ -3770,55 +3791,55 @@ void gen206(stack *Stack)
// Return the maximum perpendicular deviation of z0..controls c0 and c1..z1
// from a straight line.
-#line 2822 "runtime.in"
+#line 2838 "runtime.in"
// real straightness(triple z0, triple c0, triple c1, triple z1);
-void gen207(stack *Stack)
+void gen208(stack *Stack)
{
triple z1=vm::pop<triple>(Stack);
triple c1=vm::pop<triple>(Stack);
triple c0=vm::pop<triple>(Stack);
triple z0=vm::pop<triple>(Stack);
-#line 2823 "runtime.in"
+#line 2839 "runtime.in"
triple u=unit(z1-z0);
{Stack->push<real>(::max(length(perp(c0-z0,u)),length(perp(c1-z0,u)))); return;}
}
-#line 2828 "runtime.in"
+#line 2844 "runtime.in"
// bool piecewisestraight(path3 p);
-void gen208(stack *Stack)
+void gen209(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2829 "runtime.in"
+#line 2845 "runtime.in"
{Stack->push<bool>(p.piecewisestraight()); return;}
}
-#line 2833 "runtime.in"
+#line 2849 "runtime.in"
// real arclength(path3 p);
-void gen209(stack *Stack)
+void gen210(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2834 "runtime.in"
+#line 2850 "runtime.in"
{Stack->push<real>(p.arclength()); return;}
}
-#line 2838 "runtime.in"
+#line 2854 "runtime.in"
// real arctime(path3 p, real dval);
-void gen210(stack *Stack)
+void gen211(stack *Stack)
{
real dval=vm::pop<real>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2839 "runtime.in"
+#line 2855 "runtime.in"
{Stack->push<real>(p.arctime(dval)); return;}
}
-#line 2843 "runtime.in"
+#line 2859 "runtime.in"
// realarray* intersect(path3 p, path3 q, real fuzz=-1);
-void gen211(stack *Stack)
+void gen212(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
path3 q=vm::pop<path3>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2844 "runtime.in"
+#line 2860 "runtime.in"
bool exact=fuzz <= 0.0;
if(fuzz < 0)
fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
@@ -3835,14 +3856,14 @@ void gen211(stack *Stack)
{Stack->push<realarray*>(new array(0)); return;}
}
-#line 2861 "runtime.in"
+#line 2877 "runtime.in"
// realarray2* intersections(path3 p, path3 q, real fuzz=-1);
-void gen212(stack *Stack)
+void gen213(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
path3 q=vm::pop<path3>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2862 "runtime.in"
+#line 2878 "runtime.in"
bool exact=fuzz <= 0.0;
if(fuzz < 0)
fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
@@ -3874,14 +3895,14 @@ void gen212(stack *Stack)
{Stack->push<realarray2*>(V); return;}
}
-#line 2894 "runtime.in"
+#line 2910 "runtime.in"
// realarray2* intersections(path3 p, triplearray2 *P, real fuzz=-1);
-void gen213(stack *Stack)
+void gen214(stack *Stack)
{
real fuzz=vm::pop<real>(Stack,-1);
triplearray2 * P=vm::pop<triplearray2 *>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2895 "runtime.in"
+#line 2911 "runtime.in"
triple *A=copyTripleArray2C(P,true,4);
if(fuzz <= 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())),
norm(A,16));
@@ -3900,49 +3921,49 @@ void gen213(stack *Stack)
{Stack->push<realarray2*>(W); return;} // Sorting will done in asy.
}
-#line 2914 "runtime.in"
+#line 2930 "runtime.in"
// Int size(path3 p);
-void gen214(stack *Stack)
+void gen215(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2915 "runtime.in"
+#line 2931 "runtime.in"
{Stack->push<Int>(p.size()); return;}
}
-#line 2919 "runtime.in"
+#line 2935 "runtime.in"
// path3 &(path3 p, path3 q);
-void gen215(stack *Stack)
+void gen216(stack *Stack)
{
path3 q=vm::pop<path3>(Stack);
path3 p=vm::pop<path3>(Stack);
-#line 2920 "runtime.in"
+#line 2936 "runtime.in"
{Stack->push<path3>(camp::concat(p,q)); return;}
}
-#line 2924 "runtime.in"
+#line 2940 "runtime.in"
// triple min(path3 p);
-void gen216(stack *Stack)
+void gen217(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2925 "runtime.in"
+#line 2941 "runtime.in"
{Stack->push<triple>(p.min()); return;}
}
-#line 2929 "runtime.in"
+#line 2945 "runtime.in"
// triple max(path3 p);
-void gen217(stack *Stack)
+void gen218(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2930 "runtime.in"
+#line 2946 "runtime.in"
{Stack->push<triple>(p.max()); return;}
}
-#line 2934 "runtime.in"
+#line 2950 "runtime.in"
// realarray* mintimes(path3 p);
-void gen218(stack *Stack)
+void gen219(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2935 "runtime.in"
+#line 2951 "runtime.in"
array *V=new array(3);
triple v=p.mintimes();
(*V)[0]=v.getx();
@@ -3951,12 +3972,12 @@ void gen218(stack *Stack)
{Stack->push<realarray*>(V); return;}
}
-#line 2944 "runtime.in"
+#line 2960 "runtime.in"
// realarray* maxtimes(path3 p);
-void gen219(stack *Stack)
+void gen220(stack *Stack)
{
path3 p=vm::pop<path3>(Stack);
-#line 2945 "runtime.in"
+#line 2961 "runtime.in"
array *V=new array(3);
triple v=p.maxtimes();
(*V)[0]=v.getx();
@@ -3965,30 +3986,30 @@ void gen219(stack *Stack)
{Stack->push<realarray*>(V); return;}
}
-#line 2954 "runtime.in"
+#line 2970 "runtime.in"
// path3 *(realarray2 *t, path3 g);
-void gen220(stack *Stack)
+void gen221(stack *Stack)
{
path3 g=vm::pop<path3>(Stack);
realarray2 * t=vm::pop<realarray2 *>(Stack);
-#line 2955 "runtime.in"
+#line 2971 "runtime.in"
{Stack->push<path3>(transformed(*t,g)); return;}
}
// Guide operations
-#line 2961 "runtime.in"
+#line 2977 "runtime.in"
void nullGuide(stack *Stack)
{
-#line 2962 "runtime.in"
+#line 2978 "runtime.in"
{Stack->push<guide*>(new pathguide(path())); return;}
}
-#line 2967 "runtime.in"
+#line 2983 "runtime.in"
void dotsGuide(stack *Stack)
{
guidearray * a=vm::pop<guidearray *>(Stack);
-#line 2968 "runtime.in"
+#line 2984 "runtime.in"
guidevector v;
size_t size=checkArray(a);
for (size_t i=0; i < size; ++i)
@@ -3997,11 +4018,11 @@ void dotsGuide(stack *Stack)
{Stack->push<guide*>(new multiguide(v)); return;}
}
-#line 2977 "runtime.in"
+#line 2993 "runtime.in"
void dashesGuide(stack *Stack)
{
guidearray * a=vm::pop<guidearray *>(Stack);
-#line 2978 "runtime.in"
+#line 2994 "runtime.in"
static camp::curlSpec curly;
static specguide curlout(&curly, camp::OUT);
static specguide curlin(&curly, camp::IN);
@@ -4027,179 +4048,179 @@ void dashesGuide(stack *Stack)
{Stack->push<guide*>(new multiguide(v)); return;}
}
-#line 3004 "runtime.in"
+#line 3020 "runtime.in"
void newCycleToken(stack *Stack)
{
-#line 3005 "runtime.in"
+#line 3021 "runtime.in"
{Stack->push<cycleToken>(cycleToken()); return;}
}
-#line 3009 "runtime.in"
+#line 3025 "runtime.in"
// guide* operator cast(cycleToken tok);
-void gen225(stack *Stack)
+void gen226(stack *Stack)
{
cycleToken tok=vm::pop<cycleToken>(Stack);
-#line 3010 "runtime.in"
+#line 3026 "runtime.in"
// Avoid unused variable warning messages.
unused(&tok);
{Stack->push<guide*>(new cycletokguide()); return;}
}
-#line 3016 "runtime.in"
+#line 3032 "runtime.in"
// guide* operator spec(pair z, Int p);
-void gen226(stack *Stack)
+void gen227(stack *Stack)
{
Int p=vm::pop<Int>(Stack);
pair z=vm::pop<pair>(Stack);
-#line 3017 "runtime.in"
+#line 3033 "runtime.in"
camp::side d=(camp::side) p;
camp::dirSpec *sp=new camp::dirSpec(z);
{Stack->push<guide*>(new specguide(sp,d)); return;}
}
-#line 3024 "runtime.in"
+#line 3040 "runtime.in"
// curlSpecifier operator curl(real gamma, Int p);
-void gen227(stack *Stack)
+void gen228(stack *Stack)
{
Int p=vm::pop<Int>(Stack);
real gamma=vm::pop<real>(Stack);
-#line 3025 "runtime.in"
+#line 3041 "runtime.in"
camp::side s=(camp::side) p;
{Stack->push<curlSpecifier>(curlSpecifier(gamma,s)); return;}
}
-#line 3030 "runtime.in"
+#line 3046 "runtime.in"
void curlSpecifierValuePart(stack *Stack)
{
curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
-#line 3031 "runtime.in"
+#line 3047 "runtime.in"
{Stack->push<real>(spec.getValue()); return;}
}
-#line 3035 "runtime.in"
+#line 3051 "runtime.in"
void curlSpecifierSidePart(stack *Stack)
{
curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
-#line 3036 "runtime.in"
+#line 3052 "runtime.in"
{Stack->push<Int>(spec.getSide()); return;}
}
-#line 3040 "runtime.in"
+#line 3056 "runtime.in"
// guide* operator cast(curlSpecifier spec);
-void gen230(stack *Stack)
+void gen231(stack *Stack)
{
curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
-#line 3041 "runtime.in"
+#line 3057 "runtime.in"
{Stack->push<guide*>(new specguide(spec)); return;}
}
-#line 3045 "runtime.in"
+#line 3061 "runtime.in"
// tensionSpecifier operator tension(real tout, real tin, bool atleast);
-void gen231(stack *Stack)
+void gen232(stack *Stack)
{
bool atleast=vm::pop<bool>(Stack);
real tin=vm::pop<real>(Stack);
real tout=vm::pop<real>(Stack);
-#line 3046 "runtime.in"
+#line 3062 "runtime.in"
{Stack->push<tensionSpecifier>(tensionSpecifier(tout, tin, atleast)); return;}
}
-#line 3050 "runtime.in"
+#line 3066 "runtime.in"
void tensionSpecifierOutPart(stack *Stack)
{
tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
-#line 3051 "runtime.in"
+#line 3067 "runtime.in"
{Stack->push<real>(t.getOut()); return;}
}
-#line 3055 "runtime.in"
+#line 3071 "runtime.in"
void tensionSpecifierInPart(stack *Stack)
{
tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
-#line 3056 "runtime.in"
+#line 3072 "runtime.in"
{Stack->push<real>(t.getIn()); return;}
}
-#line 3060 "runtime.in"
+#line 3076 "runtime.in"
void tensionSpecifierAtleastPart(stack *Stack)
{
tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
-#line 3061 "runtime.in"
+#line 3077 "runtime.in"
{Stack->push<bool>(t.getAtleast()); return;}
}
-#line 3065 "runtime.in"
+#line 3081 "runtime.in"
// guide* operator cast(tensionSpecifier t);
-void gen235(stack *Stack)
+void gen236(stack *Stack)
{
tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
-#line 3066 "runtime.in"
+#line 3082 "runtime.in"
{Stack->push<guide*>(new tensionguide(t)); return;}
}
-#line 3070 "runtime.in"
+#line 3086 "runtime.in"
// guide* operator controls(pair zout, pair zin);
-void gen236(stack *Stack)
+void gen237(stack *Stack)
{
pair zin=vm::pop<pair>(Stack);
pair zout=vm::pop<pair>(Stack);
-#line 3071 "runtime.in"
+#line 3087 "runtime.in"
{Stack->push<guide*>(new controlguide(zout, zin)); return;}
}
-#line 3075 "runtime.in"
+#line 3091 "runtime.in"
// Int size(guide *g);
-void gen237(stack *Stack)
+void gen238(stack *Stack)
{
guide * g=vm::pop<guide *>(Stack);
-#line 3076 "runtime.in"
+#line 3092 "runtime.in"
flatguide f;
g->flatten(f,false);
{Stack->push<Int>(f.size()); return;}
}
-#line 3082 "runtime.in"
+#line 3098 "runtime.in"
// Int length(guide *g);
-void gen238(stack *Stack)
+void gen239(stack *Stack)
{
guide * g=vm::pop<guide *>(Stack);
-#line 3083 "runtime.in"
+#line 3099 "runtime.in"
flatguide f;
g->flatten(f,false);
{Stack->push<Int>(g->cyclic() ? f.size() : f.size()-1); return;}
}
-#line 3089 "runtime.in"
+#line 3105 "runtime.in"
// bool cyclic(guide *g);
-void gen239(stack *Stack)
+void gen240(stack *Stack)
{
guide * g=vm::pop<guide *>(Stack);
-#line 3090 "runtime.in"
+#line 3106 "runtime.in"
flatguide f;
g->flatten(f,false);
{Stack->push<bool>(g->cyclic()); return;}
}
-#line 3096 "runtime.in"
+#line 3112 "runtime.in"
// pair point(guide *g, Int t);
-void gen240(stack *Stack)
+void gen241(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
guide * g=vm::pop<guide *>(Stack);
-#line 3097 "runtime.in"
+#line 3113 "runtime.in"
flatguide f;
g->flatten(f,false);
{Stack->push<pair>(f.Nodes(adjustedIndex(t,f.size(),g->cyclic())).z); return;}
}
-#line 3103 "runtime.in"
+#line 3119 "runtime.in"
// pairarray* dirSpecifier(guide *g, Int t);
-void gen241(stack *Stack)
+void gen242(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
guide * g=vm::pop<guide *>(Stack);
-#line 3104 "runtime.in"
+#line 3120 "runtime.in"
flatguide f;
g->flatten(f,false);
Int n=f.size();
@@ -4210,13 +4231,13 @@ void gen241(stack *Stack)
{Stack->push<pairarray*>(c); return;}
}
-#line 3115 "runtime.in"
+#line 3131 "runtime.in"
// pairarray* controlSpecifier(guide *g, Int t);
-void gen242(stack *Stack)
+void gen243(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
guide * g=vm::pop<guide *>(Stack);
-#line 3116 "runtime.in"
+#line 3132 "runtime.in"
flatguide f;
g->flatten(f,false);
Int n=f.size();
@@ -4232,13 +4253,13 @@ void gen242(stack *Stack)
} else {Stack->push<pairarray*>(new array(0)); return;}
}
-#line 3132 "runtime.in"
+#line 3148 "runtime.in"
// tensionSpecifier tensionSpecifier(guide *g, Int t);
-void gen243(stack *Stack)
+void gen244(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
guide * g=vm::pop<guide *>(Stack);
-#line 3133 "runtime.in"
+#line 3149 "runtime.in"
flatguide f;
g->flatten(f,false);
Int n=f.size();
@@ -4247,13 +4268,13 @@ void gen243(stack *Stack)
{Stack->push<tensionSpecifier>(tensionSpecifier(curr.tout.val,f.Nodes(t+1).tin.val,curr.tout.atleast)); return;}
}
-#line 3142 "runtime.in"
+#line 3158 "runtime.in"
// realarray* curlSpecifier(guide *g, Int t);
-void gen244(stack *Stack)
+void gen245(stack *Stack)
{
Int t=vm::pop<Int>(Stack);
guide * g=vm::pop<guide *>(Stack);
-#line 3143 "runtime.in"
+#line 3159 "runtime.in"
flatguide f;
g->flatten(f,false);
Int n=f.size();
@@ -4266,12 +4287,12 @@ void gen244(stack *Stack)
{Stack->push<realarray*>(c); return;}
}
-#line 3156 "runtime.in"
+#line 3172 "runtime.in"
// guide* reverse(guide *g);
-void gen245(stack *Stack)
+void gen246(stack *Stack)
{
guide * g=vm::pop<guide *>(Stack);
-#line 3157 "runtime.in"
+#line 3173 "runtime.in"
flatguide f;
g->flatten(f,false);
if(f.precyclic())
@@ -4326,21 +4347,21 @@ void gen245(stack *Stack)
// Three-dimensional picture and surface operations
-#line 3212 "runtime.in"
+#line 3228 "runtime.in"
// void _draw(picture *f, path3 g, pen p);
-void gen246(stack *Stack)
+void gen247(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
path3 g=vm::pop<path3>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 3213 "runtime.in"
+#line 3229 "runtime.in"
if(g.size() > 0)
f->append(new drawPath3(g,p));
}
-#line 3219 "runtime.in"
+#line 3235 "runtime.in"
// void draw(picture *f, triplearray2 *g, bool straight, penarray *p, real opacity, real shininess, real granularity, triple normal, bool lighton, penarray *colors);
-void gen247(stack *Stack)
+void gen248(stack *Stack)
{
penarray * colors=vm::pop<penarray *>(Stack);
bool lighton=vm::pop<bool>(Stack);
@@ -4352,80 +4373,80 @@ void gen247(stack *Stack)
bool straight=vm::pop<bool>(Stack);
triplearray2 * g=vm::pop<triplearray2 *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 3222 "runtime.in"
+#line 3238 "runtime.in"
f->append(new drawSurface(*g,straight,*p,opacity,shininess,granularity,
normal,lighton,*colors));
}
-#line 3227 "runtime.in"
+#line 3243 "runtime.in"
// triple min3(picture *f);
-void gen248(stack *Stack)
+void gen249(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 3228 "runtime.in"
+#line 3244 "runtime.in"
{Stack->push<triple>(f->bounds3().Min()); return;}
}
-#line 3232 "runtime.in"
+#line 3248 "runtime.in"
// triple max3(picture *f);
-void gen249(stack *Stack)
+void gen250(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 3233 "runtime.in"
+#line 3249 "runtime.in"
{Stack->push<triple>(f->bounds3().Max()); return;}
}
-#line 3237 "runtime.in"
+#line 3253 "runtime.in"
// pair min(picture *f, realarray2 *t);
-void gen250(stack *Stack)
+void gen251(stack *Stack)
{
realarray2 * t=vm::pop<realarray2 *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 3238 "runtime.in"
+#line 3254 "runtime.in"
real *T=copyArray2C(t,4);
pair m=f->bounds(::min,xproject,yproject,T);
delete[] T;
{Stack->push<pair>(m); return;}
}
-#line 3245 "runtime.in"
+#line 3261 "runtime.in"
// pair max(picture *f, realarray2 *t);
-void gen251(stack *Stack)
+void gen252(stack *Stack)
{
realarray2 * t=vm::pop<realarray2 *>(Stack);
picture * f=vm::pop<picture *>(Stack);
-#line 3246 "runtime.in"
+#line 3262 "runtime.in"
real *T=copyArray2C(t,4);
pair M=f->bounds(::max,xproject,yproject,T);
delete[] T;
{Stack->push<pair>(M); return;}
}
-#line 3253 "runtime.in"
+#line 3269 "runtime.in"
// pair minratio(picture *f);
-void gen252(stack *Stack)
+void gen253(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 3254 "runtime.in"
+#line 3270 "runtime.in"
{Stack->push<pair>(f->bounds(::min,xratio,yratio)); return;}
}
-#line 3258 "runtime.in"
+#line 3274 "runtime.in"
// pair maxratio(picture *f);
-void gen253(stack *Stack)
+void gen254(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 3259 "runtime.in"
+#line 3275 "runtime.in"
{Stack->push<pair>(f->bounds(::max,xratio,yratio)); return;}
}
-#line 3263 "runtime.in"
+#line 3279 "runtime.in"
// triple minbound(triplearray2 *P, triple b);
-void gen254(stack *Stack)
+void gen255(stack *Stack)
{
triple b=vm::pop<triple>(Stack);
triplearray2 * P=vm::pop<triplearray2 *>(Stack);
-#line 3264 "runtime.in"
+#line 3280 "runtime.in"
real *A=copyTripleArray2Components(P,true,4);
b=triple(bound(A,::min,b.getx(),sqrtFuzz*norm(A,16)),
bound(A+16,::min,b.gety(),sqrtFuzz*norm(A+16,16)),
@@ -4434,13 +4455,13 @@ void gen254(stack *Stack)
{Stack->push<triple>(b); return;}
}
-#line 3273 "runtime.in"
+#line 3289 "runtime.in"
// triple maxbound(triplearray2 *P, triple b);
-void gen255(stack *Stack)
+void gen256(stack *Stack)
{
triple b=vm::pop<triple>(Stack);
triplearray2 * P=vm::pop<triplearray2 *>(Stack);
-#line 3274 "runtime.in"
+#line 3290 "runtime.in"
real *A=copyTripleArray2Components(P,true,4);
b=triple(bound(A,::max,b.getx(),sqrtFuzz*norm(A,16)),
bound(A+16,::max,b.gety(),sqrtFuzz*norm(A+16,16)),
@@ -4449,14 +4470,14 @@ void gen255(stack *Stack)
{Stack->push<triple>(b); return;}
}
-#line 3283 "runtime.in"
+#line 3299 "runtime.in"
// pair minbound(triplearray2 *P, realarray2 *t, pair b);
-void gen256(stack *Stack)
+void gen257(stack *Stack)
{
pair b=vm::pop<pair>(Stack);
realarray2 * t=vm::pop<realarray2 *>(Stack);
triplearray2 * P=vm::pop<triplearray2 *>(Stack);
-#line 3284 "runtime.in"
+#line 3300 "runtime.in"
triple *A=copyTripleArray2C(P,true,4);
real *T=copyArray2C(t,4);
real fuzz=sqrtFuzz*norm(A,16);
@@ -4467,14 +4488,14 @@ void gen256(stack *Stack)
{Stack->push<pair>(b); return;}
}
-#line 3295 "runtime.in"
+#line 3311 "runtime.in"
// pair maxbound(triplearray2 *P, realarray2 *t, pair b);
-void gen257(stack *Stack)
+void gen258(stack *Stack)
{
pair b=vm::pop<pair>(Stack);
realarray2 * t=vm::pop<realarray2 *>(Stack);
triplearray2 * P=vm::pop<triplearray2 *>(Stack);
-#line 3296 "runtime.in"
+#line 3312 "runtime.in"
triple *A=copyTripleArray2C(P,true,4);
real *T=copyArray2C(t,4);
real fuzz=sqrtFuzz*norm(A,16);
@@ -4485,38 +4506,38 @@ void gen257(stack *Stack)
{Stack->push<pair>(b); return;}
}
-#line 3307 "runtime.in"
+#line 3323 "runtime.in"
// pair max(path3 g, realarray2 *t);
-void gen258(stack *Stack)
+void gen259(stack *Stack)
{
realarray2 * t=vm::pop<realarray2 *>(Stack);
path3 g=vm::pop<path3>(Stack);
-#line 3308 "runtime.in"
+#line 3324 "runtime.in"
real *T=copyArray2C(t,4);
pair b=g.bounds(::max,xproject,yproject,T);
delete[] T;
{Stack->push<pair>(b); return;}
}
-#line 3315 "runtime.in"
+#line 3331 "runtime.in"
// pair min(path3 g, realarray2 *t);
-void gen259(stack *Stack)
+void gen260(stack *Stack)
{
realarray2 * t=vm::pop<realarray2 *>(Stack);
path3 g=vm::pop<path3>(Stack);
-#line 3316 "runtime.in"
+#line 3332 "runtime.in"
real *T=copyArray2C(t,4);
pair b=g.bounds(::min,xproject,yproject,T);
delete[] T;
{Stack->push<pair>(b); return;}
}
-#line 3323 "runtime.in"
+#line 3339 "runtime.in"
// real change2(triplearray2 *a);
-void gen260(stack *Stack)
+void gen261(stack *Stack)
{
triplearray2 * a=vm::pop<triplearray2 *>(Stack);
-#line 3324 "runtime.in"
+#line 3340 "runtime.in"
size_t n=checkArray(a);
if(n == 0) {Stack->push<real>(0.0); return;}
@@ -4537,241 +4558,241 @@ void gen260(stack *Stack)
{Stack->push<real>(M); return;}
}
-#line 3345 "runtime.in"
+#line 3361 "runtime.in"
// bool is3D(picture *f);
-void gen261(stack *Stack)
+void gen262(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
-#line 3346 "runtime.in"
+#line 3362 "runtime.in"
{Stack->push<bool>(f->have3D()); return;}
}
-#line 3350 "runtime.in"
+#line 3366 "runtime.in"
// pair bezier(pair a, pair b, pair c, pair d, real t);
-void gen262(stack *Stack)
+void gen263(stack *Stack)
{
real t=vm::pop<real>(Stack);
pair d=vm::pop<pair>(Stack);
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 3351 "runtime.in"
+#line 3367 "runtime.in"
real onemt=1-t;
real onemt2=onemt*onemt;
{Stack->push<pair>(onemt2*onemt*a+t*(3.0*(onemt2*b+t*onemt*c)+t*t*d)); return;}
}
-#line 3357 "runtime.in"
+#line 3373 "runtime.in"
// pair bezierP(pair a, pair b, pair c, pair d, real t);
-void gen263(stack *Stack)
+void gen264(stack *Stack)
{
real t=vm::pop<real>(Stack);
pair d=vm::pop<pair>(Stack);
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 3358 "runtime.in"
+#line 3374 "runtime.in"
{Stack->push<pair>(3.0*(t*t*(d-a+3.0*(b-c))+t*(2.0*(a+c)-4.0*b)+b-a)); return;}
}
-#line 3362 "runtime.in"
+#line 3378 "runtime.in"
// pair bezierPP(pair a, pair b, pair c, pair d, real t);
-void gen264(stack *Stack)
+void gen265(stack *Stack)
{
real t=vm::pop<real>(Stack);
pair d=vm::pop<pair>(Stack);
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 3363 "runtime.in"
+#line 3379 "runtime.in"
{Stack->push<pair>(6.0*(t*(d-a+3.0*(b-c))+a+c-2.0*b)); return;}
}
-#line 3367 "runtime.in"
+#line 3383 "runtime.in"
// pair bezierPPP(pair a, pair b, pair c, pair d);
-void gen265(stack *Stack)
+void gen266(stack *Stack)
{
pair d=vm::pop<pair>(Stack);
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 3368 "runtime.in"
+#line 3384 "runtime.in"
{Stack->push<pair>(6.0*(d-a+3.0*(b-c))); return;}
}
-#line 3372 "runtime.in"
+#line 3388 "runtime.in"
// triple bezier(triple a, triple b, triple c, triple d, real t);
-void gen266(stack *Stack)
+void gen267(stack *Stack)
{
real t=vm::pop<real>(Stack);
triple d=vm::pop<triple>(Stack);
triple c=vm::pop<triple>(Stack);
triple b=vm::pop<triple>(Stack);
triple a=vm::pop<triple>(Stack);
-#line 3373 "runtime.in"
+#line 3389 "runtime.in"
real onemt=1-t;
real onemt2=onemt*onemt;
{Stack->push<triple>(onemt2*onemt*a+t*(3.0*(onemt2*b+t*onemt*c)+t*t*d)); return;}
}
-#line 3379 "runtime.in"
+#line 3395 "runtime.in"
// triple bezierP(triple a, triple b, triple c, triple d, real t);
-void gen267(stack *Stack)
+void gen268(stack *Stack)
{
real t=vm::pop<real>(Stack);
triple d=vm::pop<triple>(Stack);
triple c=vm::pop<triple>(Stack);
triple b=vm::pop<triple>(Stack);
triple a=vm::pop<triple>(Stack);
-#line 3380 "runtime.in"
+#line 3396 "runtime.in"
{Stack->push<triple>(3.0*(t*t*(d-a+3.0*(b-c))+t*(2.0*(a+c)-4.0*b)+b-a)); return;}
}
-#line 3384 "runtime.in"
+#line 3400 "runtime.in"
// triple bezierPP(triple a, triple b, triple c, triple d, real t);
-void gen268(stack *Stack)
+void gen269(stack *Stack)
{
real t=vm::pop<real>(Stack);
triple d=vm::pop<triple>(Stack);
triple c=vm::pop<triple>(Stack);
triple b=vm::pop<triple>(Stack);
triple a=vm::pop<triple>(Stack);
-#line 3385 "runtime.in"
+#line 3401 "runtime.in"
{Stack->push<triple>(6.0*(t*(d-a+3.0*(b-c))+a+c-2.0*b)); return;}
}
-#line 3389 "runtime.in"
+#line 3405 "runtime.in"
// triple bezierPPP(triple a, triple b, triple c, triple d);
-void gen269(stack *Stack)
+void gen270(stack *Stack)
{
triple d=vm::pop<triple>(Stack);
triple c=vm::pop<triple>(Stack);
triple b=vm::pop<triple>(Stack);
triple a=vm::pop<triple>(Stack);
-#line 3390 "runtime.in"
+#line 3406 "runtime.in"
{Stack->push<triple>(6.0*(d-a+3.0*(b-c))); return;}
}
// String operations
-#line 3396 "runtime.in"
+#line 3412 "runtime.in"
void emptyString(stack *Stack)
{
-#line 3397 "runtime.in"
+#line 3413 "runtime.in"
{Stack->push<string>(emptystring); return;}
}
-#line 3402 "runtime.in"
+#line 3418 "runtime.in"
// Int length(string *s);
-void gen271(stack *Stack)
+void gen272(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 3403 "runtime.in"
+#line 3419 "runtime.in"
{Stack->push<Int>((Int) s->length()); return;}
}
-#line 3407 "runtime.in"
+#line 3423 "runtime.in"
// Int find(string *s, string t, Int pos=0);
-void gen272(stack *Stack)
+void gen273(stack *Stack)
{
Int pos=vm::pop<Int>(Stack,0);
string t=vm::pop<string>(Stack);
string * s=vm::pop<string *>(Stack);
-#line 3408 "runtime.in"
+#line 3424 "runtime.in"
size_t n=s->find(t,pos);
{Stack->push<Int>(n == string::npos ? (Int) -1 : (Int) n); return;}
}
-#line 3413 "runtime.in"
+#line 3429 "runtime.in"
// Int rfind(string *s, string t, Int pos=-1);
-void gen273(stack *Stack)
+void gen274(stack *Stack)
{
Int pos=vm::pop<Int>(Stack,-1);
string t=vm::pop<string>(Stack);
string * s=vm::pop<string *>(Stack);
-#line 3414 "runtime.in"
+#line 3430 "runtime.in"
size_t n=s->rfind(t,pos);
{Stack->push<Int>(n == string::npos ? (Int) -1 : (Int) n); return;}
}
-#line 3419 "runtime.in"
+#line 3435 "runtime.in"
// string reverse(string s);
-void gen274(stack *Stack)
+void gen275(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 3420 "runtime.in"
+#line 3436 "runtime.in"
reverse(s.begin(),s.end());
{Stack->push<string>(s); return;}
}
-#line 3425 "runtime.in"
+#line 3441 "runtime.in"
// string insert(string s, Int pos, string t);
-void gen275(stack *Stack)
+void gen276(stack *Stack)
{
string t=vm::pop<string>(Stack);
Int pos=vm::pop<Int>(Stack);
string s=vm::pop<string>(Stack);
-#line 3426 "runtime.in"
+#line 3442 "runtime.in"
if ((size_t) pos < s.length())
{Stack->push<string>(s.insert(pos,t)); return;}
{Stack->push<string>(s); return;}
}
-#line 3432 "runtime.in"
+#line 3448 "runtime.in"
// string substr(string* s, Int pos, Int n=-1);
-void gen276(stack *Stack)
+void gen277(stack *Stack)
{
Int n=vm::pop<Int>(Stack,-1);
Int pos=vm::pop<Int>(Stack);
string* s=vm::pop<string*>(Stack);
-#line 3433 "runtime.in"
+#line 3449 "runtime.in"
if ((size_t) pos < s->length())
{Stack->push<string>(s->substr(pos,n)); return;}
{Stack->push<string>(emptystring); return;}
}
-#line 3439 "runtime.in"
+#line 3455 "runtime.in"
// string erase(string s, Int pos, Int n);
-void gen277(stack *Stack)
+void gen278(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
Int pos=vm::pop<Int>(Stack);
string s=vm::pop<string>(Stack);
-#line 3440 "runtime.in"
+#line 3456 "runtime.in"
if ((size_t) pos < s.length())
{Stack->push<string>(s.erase(pos,n)); return;}
{Stack->push<string>(s); return;}
}
-#line 3446 "runtime.in"
+#line 3462 "runtime.in"
// string downcase(string s);
-void gen278(stack *Stack)
+void gen279(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 3447 "runtime.in"
+#line 3463 "runtime.in"
std::transform(s.begin(),s.end(),s.begin(),tolower);
{Stack->push<string>(s); return;}
}
-#line 3452 "runtime.in"
+#line 3468 "runtime.in"
// string upcase(string s);
-void gen279(stack *Stack)
+void gen280(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 3453 "runtime.in"
+#line 3469 "runtime.in"
std::transform(s.begin(),s.end(),s.begin(),toupper);
{Stack->push<string>(s); return;}
}
// returns a string constructed by translating all occurrences of the string
// from in an array of string pairs {from,to} to the string to in string s.
-#line 3460 "runtime.in"
+#line 3476 "runtime.in"
// string replace(string *S, stringarray2 *translate);
-void gen280(stack *Stack)
+void gen281(stack *Stack)
{
stringarray2 * translate=vm::pop<stringarray2 *>(Stack);
string * S=vm::pop<string *>(Stack);
-#line 3461 "runtime.in"
+#line 3477 "runtime.in"
size_t size=checkArray(translate);
for(size_t i=0; i < size; i++) {
array *a=read<array*>(translate,i);
@@ -4795,13 +4816,13 @@ void gen280(stack *Stack)
{Stack->push<string>(buf.str()); return;}
}
-#line 3485 "runtime.in"
+#line 3501 "runtime.in"
// string format(string *format, Int x);
-void gen281(stack *Stack)
+void gen282(stack *Stack)
{
Int x=vm::pop<Int>(Stack);
string * format=vm::pop<string *>(Stack);
-#line 3486 "runtime.in"
+#line 3502 "runtime.in"
const char *f=format->c_str();
checkformat(f,true);
@@ -4815,14 +4836,14 @@ void gen281(stack *Stack)
{Stack->push<string>(s); return;}
}
-#line 3500 "runtime.in"
+#line 3516 "runtime.in"
// string format(string *format, real x, string locale=emptystring);
-void gen282(stack *Stack)
+void gen283(stack *Stack)
{
string locale=vm::pop<string>(Stack,emptystring);
real x=vm::pop<real>(Stack);
string * format=vm::pop<string *>(Stack);
-#line 3501 "runtime.in"
+#line 3517 "runtime.in"
ostringstream out;
checkformat(format->c_str(),false);
@@ -4939,12 +4960,12 @@ void gen282(stack *Stack)
{Stack->push<string>(out.str()); return;}
}
-#line 3618 "runtime.in"
+#line 3634 "runtime.in"
// Int hex(string s);
-void gen283(stack *Stack)
+void gen284(stack *Stack)
{
string s=vm::pop<string>(Stack);
-#line 3619 "runtime.in"
+#line 3635 "runtime.in"
istringstream is(s);
is.setf(std::ios::hex,std::ios::basefield);
Int value;
@@ -4954,36 +4975,36 @@ void gen283(stack *Stack)
error(buf);
}
-#line 3629 "runtime.in"
+#line 3645 "runtime.in"
// string string(Int x);
-void gen284(stack *Stack)
+void gen285(stack *Stack)
{
Int x=vm::pop<Int>(Stack);
-#line 3630 "runtime.in"
+#line 3646 "runtime.in"
ostringstream buf;
buf << x;
{Stack->push<string>(buf.str()); return;}
}
-#line 3636 "runtime.in"
+#line 3652 "runtime.in"
// string string(real x, Int digits=DBL_DIG);
-void gen285(stack *Stack)
+void gen286(stack *Stack)
{
Int digits=vm::pop<Int>(Stack,DBL_DIG);
real x=vm::pop<real>(Stack);
-#line 3637 "runtime.in"
+#line 3653 "runtime.in"
ostringstream buf;
buf.precision(digits);
buf << x;
{Stack->push<string>(buf.str()); return;}
}
-#line 3644 "runtime.in"
+#line 3660 "runtime.in"
// string time(string format=defaulttimeformat);
-void gen286(stack *Stack)
+void gen287(stack *Stack)
{
string format=vm::pop<string>(Stack,defaulttimeformat);
-#line 3645 "runtime.in"
+#line 3661 "runtime.in"
#ifdef HAVE_STRFTIME
const time_t bintime=time(NULL);
if(!strftime(Time,nTime,format.c_str(),localtime(&bintime))) {Stack->push<string>(""); return;}
@@ -4993,13 +5014,13 @@ void gen286(stack *Stack)
#endif
}
-#line 3655 "runtime.in"
+#line 3671 "runtime.in"
// string time(Int seconds, string format=defaulttimeformat);
-void gen287(stack *Stack)
+void gen288(stack *Stack)
{
string format=vm::pop<string>(Stack,defaulttimeformat);
Int seconds=vm::pop<Int>(Stack);
-#line 3656 "runtime.in"
+#line 3672 "runtime.in"
#ifdef HAVE_STRFTIME
const time_t bintime=seconds;
if(!strftime(Time,nTime,format.c_str(),localtime(&bintime))) {Stack->push<string>(""); return;}
@@ -5011,13 +5032,13 @@ void gen287(stack *Stack)
#endif
}
-#line 3668 "runtime.in"
+#line 3684 "runtime.in"
// Int seconds(string t=emptystring, string format=emptystring);
-void gen288(stack *Stack)
+void gen289(stack *Stack)
{
string format=vm::pop<string>(Stack,emptystring);
string t=vm::pop<string>(Stack,emptystring);
-#line 3669 "runtime.in"
+#line 3685 "runtime.in"
#if defined(HAVE_STRPTIME)
const time_t bintime=time(NULL);
tm tm=*localtime(&bintime);
@@ -5028,11 +5049,11 @@ void gen288(stack *Stack)
#endif
}
-#line 3680 "runtime.in"
+#line 3696 "runtime.in"
// realarray* _cputime();
-void gen289(stack *Stack)
+void gen290(stack *Stack)
{
-#line 3681 "runtime.in"
+#line 3697 "runtime.in"
static const real ticktime=1.0/sysconf(_SC_CLK_TCK);
struct tms buf;
@@ -5047,234 +5068,234 @@ void gen289(stack *Stack)
// Math
-#line 3696 "runtime.in"
+#line 3712 "runtime.in"
// real ^(real x, Int y);
-void gen290(stack *Stack)
+void gen291(stack *Stack)
{
Int y=vm::pop<Int>(Stack);
real x=vm::pop<real>(Stack);
-#line 3697 "runtime.in"
+#line 3713 "runtime.in"
{Stack->push<real>(pow(x,y)); return;}
}
-#line 3702 "runtime.in"
+#line 3718 "runtime.in"
// pair ^(pair z, Int y);
-void gen291(stack *Stack)
+void gen292(stack *Stack)
{
Int y=vm::pop<Int>(Stack);
pair z=vm::pop<pair>(Stack);
-#line 3703 "runtime.in"
+#line 3719 "runtime.in"
{Stack->push<pair>(pow(z,y)); return;}
}
-#line 3707 "runtime.in"
+#line 3723 "runtime.in"
// Int quotient(Int x, Int y);
-void gen292(stack *Stack)
+void gen293(stack *Stack)
{
Int y=vm::pop<Int>(Stack);
Int x=vm::pop<Int>(Stack);
-#line 3708 "runtime.in"
+#line 3724 "runtime.in"
if(y == 0) dividebyzero();
if(y == -1) {Stack->push<Int>(Negate(x)); return;}
// Implementation-independent definition of integer division: round down
{Stack->push<Int>((x-portableMod(x,y))/y); return;}
}
-#line 3715 "runtime.in"
+#line 3731 "runtime.in"
// Int abs(Int x);
-void gen293(stack *Stack)
+void gen294(stack *Stack)
{
Int x=vm::pop<Int>(Stack);
-#line 3716 "runtime.in"
+#line 3732 "runtime.in"
{Stack->push<Int>(Abs(x)); return;}
}
-#line 3720 "runtime.in"
+#line 3736 "runtime.in"
// Int sgn(real x);
-void gen294(stack *Stack)
+void gen295(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3721 "runtime.in"
+#line 3737 "runtime.in"
{Stack->push<Int>(sgn(x)); return;}
}
-#line 3725 "runtime.in"
+#line 3741 "runtime.in"
// Int rand();
-void gen295(stack *Stack)
+void gen296(stack *Stack)
{
-#line 3726 "runtime.in"
+#line 3742 "runtime.in"
{Stack->push<Int>(rand()); return;}
}
-#line 3730 "runtime.in"
+#line 3746 "runtime.in"
// void srand(Int seed);
-void gen296(stack *Stack)
+void gen297(stack *Stack)
{
Int seed=vm::pop<Int>(Stack);
-#line 3731 "runtime.in"
+#line 3747 "runtime.in"
srand(intcast(seed));
}
// a random number uniformly distributed in the interval [0,1]
-#line 3736 "runtime.in"
+#line 3752 "runtime.in"
// real unitrand();
-void gen297(stack *Stack)
+void gen298(stack *Stack)
{
-#line 3737 "runtime.in"
+#line 3753 "runtime.in"
{Stack->push<real>(((real) rand())/RAND_MAX); return;}
}
-#line 3741 "runtime.in"
+#line 3757 "runtime.in"
// Int ceil(real x);
-void gen298(stack *Stack)
+void gen299(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3742 "runtime.in"
+#line 3758 "runtime.in"
{Stack->push<Int>(Intcast(ceil(x))); return;}
}
-#line 3746 "runtime.in"
+#line 3762 "runtime.in"
// Int floor(real x);
-void gen299(stack *Stack)
+void gen300(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3747 "runtime.in"
+#line 3763 "runtime.in"
{Stack->push<Int>(Intcast(floor(x))); return;}
}
-#line 3751 "runtime.in"
+#line 3767 "runtime.in"
// Int round(real x);
-void gen300(stack *Stack)
+void gen301(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3752 "runtime.in"
+#line 3768 "runtime.in"
if(validInt(x)) {Stack->push<Int>(Round(x)); return;}
integeroverflow(0);
}
-#line 3757 "runtime.in"
+#line 3773 "runtime.in"
// Int Ceil(real x);
-void gen301(stack *Stack)
+void gen302(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3758 "runtime.in"
+#line 3774 "runtime.in"
{Stack->push<Int>(Ceil(x)); return;}
}
-#line 3762 "runtime.in"
+#line 3778 "runtime.in"
// Int Floor(real x);
-void gen302(stack *Stack)
+void gen303(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3763 "runtime.in"
+#line 3779 "runtime.in"
{Stack->push<Int>(Floor(x)); return;}
}
-#line 3767 "runtime.in"
+#line 3783 "runtime.in"
// Int Round(real x);
-void gen303(stack *Stack)
+void gen304(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3768 "runtime.in"
+#line 3784 "runtime.in"
{Stack->push<Int>(Round(Intcap(x))); return;}
}
-#line 3772 "runtime.in"
+#line 3788 "runtime.in"
// real fmod(real x, real y);
-void gen304(stack *Stack)
+void gen305(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 3773 "runtime.in"
+#line 3789 "runtime.in"
if (y == 0.0) dividebyzero();
{Stack->push<real>(fmod(x,y)); return;}
}
-#line 3778 "runtime.in"
+#line 3794 "runtime.in"
// real atan2(real y, real x);
-void gen305(stack *Stack)
+void gen306(stack *Stack)
{
real x=vm::pop<real>(Stack);
real y=vm::pop<real>(Stack);
-#line 3779 "runtime.in"
+#line 3795 "runtime.in"
{Stack->push<real>(atan2(y,x)); return;}
}
-#line 3783 "runtime.in"
+#line 3799 "runtime.in"
// real hypot(real x, real y);
-void gen306(stack *Stack)
+void gen307(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 3784 "runtime.in"
+#line 3800 "runtime.in"
{Stack->push<real>(hypot(x,y)); return;}
}
-#line 3788 "runtime.in"
+#line 3804 "runtime.in"
// real remainder(real x, real y);
-void gen307(stack *Stack)
+void gen308(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 3789 "runtime.in"
+#line 3805 "runtime.in"
{Stack->push<real>(remainder(x,y)); return;}
}
-#line 3793 "runtime.in"
+#line 3809 "runtime.in"
// real J(Int n, real x);
-void gen308(stack *Stack)
+void gen309(stack *Stack)
{
real x=vm::pop<real>(Stack);
Int n=vm::pop<Int>(Stack);
-#line 3794 "runtime.in"
+#line 3810 "runtime.in"
{Stack->push<real>(jn(n,x)); return;}
}
-#line 3798 "runtime.in"
+#line 3814 "runtime.in"
// real Y(Int n, real x);
-void gen309(stack *Stack)
+void gen310(stack *Stack)
{
real x=vm::pop<real>(Stack);
Int n=vm::pop<Int>(Stack);
-#line 3799 "runtime.in"
+#line 3815 "runtime.in"
{Stack->push<real>(yn(n,x)); return;}
}
-#line 3803 "runtime.in"
+#line 3819 "runtime.in"
// real erf(real x);
-void gen310(stack *Stack)
+void gen311(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3804 "runtime.in"
+#line 3820 "runtime.in"
{Stack->push<real>(erf(x)); return;}
}
-#line 3808 "runtime.in"
+#line 3824 "runtime.in"
// real erfc(real x);
-void gen311(stack *Stack)
+void gen312(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3809 "runtime.in"
+#line 3825 "runtime.in"
{Stack->push<real>(erfc(x)); return;}
}
-#line 3813 "runtime.in"
+#line 3829 "runtime.in"
// Int factorial(Int n);
-void gen312(stack *Stack)
+void gen313(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 3814 "runtime.in"
+#line 3830 "runtime.in"
if(n < 0) error(invalidargument);
{Stack->push<Int>(factorial(n)); return;}
}
-#line 3818 "runtime.in"
+#line 3834 "runtime.in"
// Int choose(Int n, Int k);
-void gen313(stack *Stack)
+void gen314(stack *Stack)
{
Int k=vm::pop<Int>(Stack);
Int n=vm::pop<Int>(Stack);
-#line 3819 "runtime.in"
+#line 3835 "runtime.in"
if(n < 0 || k < 0 || k > n) error(invalidargument);
Int f=1;
Int r=n-k;
@@ -5285,12 +5306,12 @@ void gen313(stack *Stack)
{Stack->push<Int>(f); return;}
}
-#line 3829 "runtime.in"
+#line 3845 "runtime.in"
// real gamma(real x);
-void gen314(stack *Stack)
+void gen315(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3830 "runtime.in"
+#line 3846 "runtime.in"
#ifdef HAVE_TGAMMA
{Stack->push<real>(tgamma(x)); return;}
#else
@@ -5300,23 +5321,23 @@ void gen314(stack *Stack)
}
// Complex Gamma function
-#line 3840 "runtime.in"
+#line 3856 "runtime.in"
// pair gamma(explicit pair z);
-void gen315(stack *Stack)
+void gen316(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 3841 "runtime.in"
+#line 3857 "runtime.in"
{Stack->push<pair>(gamma(z)); return;}
}
-#line 3845 "runtime.in"
+#line 3861 "runtime.in"
// realarray* quadraticroots(real a, real b, real c);
-void gen316(stack *Stack)
+void gen317(stack *Stack)
{
real c=vm::pop<real>(Stack);
real b=vm::pop<real>(Stack);
real a=vm::pop<real>(Stack);
-#line 3846 "runtime.in"
+#line 3862 "runtime.in"
quadraticroots q(a,b,c);
array *roots=new array(q.roots);
if(q.roots >= 1) (*roots)[0]=q.t1;
@@ -5324,14 +5345,14 @@ void gen316(stack *Stack)
{Stack->push<realarray*>(roots); return;}
}
-#line 3854 "runtime.in"
+#line 3870 "runtime.in"
// pairarray* quadraticroots(explicit pair a, explicit pair b, explicit pair c);
-void gen317(stack *Stack)
+void gen318(stack *Stack)
{
pair c=vm::pop<pair>(Stack);
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 3855 "runtime.in"
+#line 3871 "runtime.in"
Quadraticroots q(a,b,c);
array *roots=new array(q.roots);
if(q.roots >= 1) (*roots)[0]=q.z1;
@@ -5339,15 +5360,15 @@ void gen317(stack *Stack)
{Stack->push<pairarray*>(roots); return;}
}
-#line 3863 "runtime.in"
+#line 3879 "runtime.in"
// realarray* cubicroots(real a, real b, real c, real d);
-void gen318(stack *Stack)
+void gen319(stack *Stack)
{
real d=vm::pop<real>(Stack);
real c=vm::pop<real>(Stack);
real b=vm::pop<real>(Stack);
real a=vm::pop<real>(Stack);
-#line 3864 "runtime.in"
+#line 3880 "runtime.in"
cubicroots q(a,b,c,d);
array *roots=new array(q.roots);
if(q.roots >= 1) (*roots)[0]=q.t1;
@@ -5358,103 +5379,103 @@ void gen318(stack *Stack)
// Transforms
-#line 3875 "runtime.in"
+#line 3891 "runtime.in"
// bool ==(transform a, transform b);
-void gen319(stack *Stack)
+void gen320(stack *Stack)
{
transform b=vm::pop<transform>(Stack);
transform a=vm::pop<transform>(Stack);
-#line 3876 "runtime.in"
+#line 3892 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 3881 "runtime.in"
+#line 3897 "runtime.in"
// bool !=(transform a, transform b);
-void gen320(stack *Stack)
+void gen321(stack *Stack)
{
transform b=vm::pop<transform>(Stack);
transform a=vm::pop<transform>(Stack);
-#line 3882 "runtime.in"
+#line 3898 "runtime.in"
{Stack->push<bool>(a != b); return;}
}
-#line 3886 "runtime.in"
+#line 3902 "runtime.in"
// transform +(transform a, transform b);
-void gen321(stack *Stack)
+void gen322(stack *Stack)
{
transform b=vm::pop<transform>(Stack);
transform a=vm::pop<transform>(Stack);
-#line 3887 "runtime.in"
+#line 3903 "runtime.in"
{Stack->push<transform>(a+b); return;}
}
-#line 3891 "runtime.in"
+#line 3907 "runtime.in"
// transform *(transform a, transform b);
-void gen322(stack *Stack)
+void gen323(stack *Stack)
{
transform b=vm::pop<transform>(Stack);
transform a=vm::pop<transform>(Stack);
-#line 3892 "runtime.in"
+#line 3908 "runtime.in"
{Stack->push<transform>(a*b); return;}
}
-#line 3896 "runtime.in"
+#line 3912 "runtime.in"
// pair *(transform t, pair z);
-void gen323(stack *Stack)
+void gen324(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
transform t=vm::pop<transform>(Stack);
-#line 3897 "runtime.in"
+#line 3913 "runtime.in"
{Stack->push<pair>(t*z); return;}
}
-#line 3901 "runtime.in"
+#line 3917 "runtime.in"
// path *(transform t, path g);
-void gen324(stack *Stack)
+void gen325(stack *Stack)
{
path g=vm::pop<path>(Stack);
transform t=vm::pop<transform>(Stack);
-#line 3902 "runtime.in"
+#line 3918 "runtime.in"
{Stack->push<path>(transformed(t,g)); return;}
}
-#line 3906 "runtime.in"
+#line 3922 "runtime.in"
// pen *(transform t, pen p);
-void gen325(stack *Stack)
+void gen326(stack *Stack)
{
pen p=vm::pop<pen>(Stack);
transform t=vm::pop<transform>(Stack);
-#line 3907 "runtime.in"
+#line 3923 "runtime.in"
{Stack->push<pen>(transformed(t,p)); return;}
}
-#line 3911 "runtime.in"
+#line 3927 "runtime.in"
// picture* *(transform t, picture *f);
-void gen326(stack *Stack)
+void gen327(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
transform t=vm::pop<transform>(Stack);
-#line 3912 "runtime.in"
+#line 3928 "runtime.in"
{Stack->push<picture*>(transformed(t,f)); return;}
}
-#line 3916 "runtime.in"
+#line 3932 "runtime.in"
// picture* *(realarray2 *t, picture *f);
-void gen327(stack *Stack)
+void gen328(stack *Stack)
{
picture * f=vm::pop<picture *>(Stack);
realarray2 * t=vm::pop<realarray2 *>(Stack);
-#line 3917 "runtime.in"
+#line 3933 "runtime.in"
{Stack->push<picture*>(transformed(*t,f)); return;}
}
-#line 3921 "runtime.in"
+#line 3937 "runtime.in"
// transform ^(transform t, Int n);
-void gen328(stack *Stack)
+void gen329(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
transform t=vm::pop<transform>(Stack);
-#line 3922 "runtime.in"
+#line 3938 "runtime.in"
transform T;
if(n < 0) {
n=-n;
@@ -5464,55 +5485,55 @@ void gen328(stack *Stack)
{Stack->push<transform>(T); return;}
}
-#line 3932 "runtime.in"
+#line 3948 "runtime.in"
void transformXPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3933 "runtime.in"
+#line 3949 "runtime.in"
{Stack->push<real>(t.getx()); return;}
}
-#line 3937 "runtime.in"
+#line 3953 "runtime.in"
void transformYPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3938 "runtime.in"
+#line 3954 "runtime.in"
{Stack->push<real>(t.gety()); return;}
}
-#line 3942 "runtime.in"
+#line 3958 "runtime.in"
void transformXXPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3943 "runtime.in"
+#line 3959 "runtime.in"
{Stack->push<real>(t.getxx()); return;}
}
-#line 3947 "runtime.in"
+#line 3963 "runtime.in"
void transformXYPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3948 "runtime.in"
+#line 3964 "runtime.in"
{Stack->push<real>(t.getxy()); return;}
}
-#line 3952 "runtime.in"
+#line 3968 "runtime.in"
void transformYXPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3953 "runtime.in"
+#line 3969 "runtime.in"
{Stack->push<real>(t.getyx()); return;}
}
-#line 3957 "runtime.in"
+#line 3973 "runtime.in"
void transformYYPart(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3958 "runtime.in"
+#line 3974 "runtime.in"
{Stack->push<real>(t.getyy()); return;}
}
-#line 3962 "runtime.in"
+#line 3978 "runtime.in"
void real6ToTransform(stack *Stack)
{
real yy=vm::pop<real>(Stack);
@@ -5521,765 +5542,765 @@ void real6ToTransform(stack *Stack)
real xx=vm::pop<real>(Stack);
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 3964 "runtime.in"
+#line 3980 "runtime.in"
{Stack->push<transform>(transform(x,y,xx,xy,yx,yy)); return;}
}
-#line 3968 "runtime.in"
+#line 3984 "runtime.in"
// transform shift(transform t);
-void gen336(stack *Stack)
+void gen337(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3969 "runtime.in"
+#line 3985 "runtime.in"
{Stack->push<transform>(transform(t.getx(),t.gety(),0,0,0,0)); return;}
}
-#line 3973 "runtime.in"
+#line 3989 "runtime.in"
// transform shiftless(transform t);
-void gen337(stack *Stack)
+void gen338(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3974 "runtime.in"
+#line 3990 "runtime.in"
{Stack->push<transform>(transform(0,0,t.getxx(),t.getxy(),t.getyx(),t.getyy())); return;}
}
-#line 3978 "runtime.in"
+#line 3994 "runtime.in"
// transform identity();
void transformIdentity(stack *Stack)
{
-#line 3979 "runtime.in"
+#line 3995 "runtime.in"
{Stack->push<transform>(identity); return;}
}
-#line 3983 "runtime.in"
+#line 3999 "runtime.in"
// transform inverse(transform t);
-void gen339(stack *Stack)
+void gen340(stack *Stack)
{
transform t=vm::pop<transform>(Stack);
-#line 3984 "runtime.in"
+#line 4000 "runtime.in"
{Stack->push<transform>(inverse(t)); return;}
}
-#line 3988 "runtime.in"
+#line 4004 "runtime.in"
// transform shift(pair z);
-void gen340(stack *Stack)
+void gen341(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 3989 "runtime.in"
+#line 4005 "runtime.in"
{Stack->push<transform>(shift(z)); return;}
}
-#line 3993 "runtime.in"
+#line 4009 "runtime.in"
// transform shift(real x, real y);
-void gen341(stack *Stack)
+void gen342(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 3994 "runtime.in"
+#line 4010 "runtime.in"
{Stack->push<transform>(shift(pair(x,y))); return;}
}
-#line 3998 "runtime.in"
+#line 4014 "runtime.in"
// transform xscale(real x);
-void gen342(stack *Stack)
+void gen343(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 3999 "runtime.in"
+#line 4015 "runtime.in"
{Stack->push<transform>(xscale(x)); return;}
}
-#line 4003 "runtime.in"
+#line 4019 "runtime.in"
// transform yscale(real y);
-void gen343(stack *Stack)
+void gen344(stack *Stack)
{
real y=vm::pop<real>(Stack);
-#line 4004 "runtime.in"
+#line 4020 "runtime.in"
{Stack->push<transform>(yscale(y)); return;}
}
-#line 4008 "runtime.in"
+#line 4024 "runtime.in"
// transform scale(real x);
-void gen344(stack *Stack)
+void gen345(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 4009 "runtime.in"
+#line 4025 "runtime.in"
{Stack->push<transform>(scale(x)); return;}
}
-#line 4013 "runtime.in"
+#line 4029 "runtime.in"
// transform scale(real x, real y);
-void gen345(stack *Stack)
+void gen346(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 4014 "runtime.in"
+#line 4030 "runtime.in"
{Stack->push<transform>(xscale(x)*yscale(y)); return;}
}
-#line 4018 "runtime.in"
+#line 4034 "runtime.in"
// transform slant(real s);
-void gen346(stack *Stack)
+void gen347(stack *Stack)
{
real s=vm::pop<real>(Stack);
-#line 4019 "runtime.in"
+#line 4035 "runtime.in"
{Stack->push<transform>(slant(s)); return;}
}
-#line 4023 "runtime.in"
+#line 4039 "runtime.in"
// transform rotate(real angle, pair z=0);
-void gen347(stack *Stack)
+void gen348(stack *Stack)
{
pair z=vm::pop<pair>(Stack,0);
real angle=vm::pop<real>(Stack);
-#line 4024 "runtime.in"
+#line 4040 "runtime.in"
{Stack->push<transform>(rotatearound(z,radians(angle))); return;}
}
-#line 4028 "runtime.in"
+#line 4044 "runtime.in"
// transform reflect(pair a, pair b);
-void gen348(stack *Stack)
+void gen349(stack *Stack)
{
pair b=vm::pop<pair>(Stack);
pair a=vm::pop<pair>(Stack);
-#line 4029 "runtime.in"
+#line 4045 "runtime.in"
{Stack->push<transform>(reflectabout(a,b)); return;}
}
// Pair operations
-#line 4035 "runtime.in"
+#line 4051 "runtime.in"
void pairZero(stack *Stack)
{
-#line 4036 "runtime.in"
+#line 4052 "runtime.in"
{Stack->push<pair>(zero); return;}
}
-#line 4041 "runtime.in"
+#line 4057 "runtime.in"
void realRealToPair(stack *Stack)
{
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 4042 "runtime.in"
+#line 4058 "runtime.in"
{Stack->push<pair>(pair(x,y)); return;}
}
-#line 4046 "runtime.in"
+#line 4062 "runtime.in"
void pairNegate(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4047 "runtime.in"
+#line 4063 "runtime.in"
{Stack->push<pair>(-z); return;}
}
-#line 4051 "runtime.in"
+#line 4067 "runtime.in"
// real xpart(pair z);
void pairXPart(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4052 "runtime.in"
+#line 4068 "runtime.in"
{Stack->push<real>(z.getx()); return;}
}
-#line 4056 "runtime.in"
+#line 4072 "runtime.in"
// real ypart(pair z);
void pairYPart(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4057 "runtime.in"
+#line 4073 "runtime.in"
{Stack->push<real>(z.gety()); return;}
}
-#line 4061 "runtime.in"
+#line 4077 "runtime.in"
// real length(pair z);
-void gen354(stack *Stack)
+void gen355(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4062 "runtime.in"
+#line 4078 "runtime.in"
{Stack->push<real>(z.length()); return;}
}
-#line 4066 "runtime.in"
+#line 4082 "runtime.in"
// real abs(pair z);
-void gen355(stack *Stack)
+void gen356(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4067 "runtime.in"
+#line 4083 "runtime.in"
{Stack->push<real>(z.length()); return;}
}
-#line 4071 "runtime.in"
+#line 4087 "runtime.in"
// pair sqrt(explicit pair z);
-void gen356(stack *Stack)
+void gen357(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4072 "runtime.in"
+#line 4088 "runtime.in"
{Stack->push<pair>(Sqrt(z)); return;}
}
// Return the angle of z in radians.
-#line 4077 "runtime.in"
+#line 4093 "runtime.in"
// real angle(pair z, bool warn=true);
-void gen357(stack *Stack)
+void gen358(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
pair z=vm::pop<pair>(Stack);
-#line 4078 "runtime.in"
+#line 4094 "runtime.in"
if(!warn && z.getx() == 0.0 && z.gety() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(z.angle()); return;}
}
// Return the angle of z in degrees in the interval [0,360).
-#line 4084 "runtime.in"
+#line 4100 "runtime.in"
// real degrees(pair z, bool warn=true);
-void gen358(stack *Stack)
+void gen359(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
pair z=vm::pop<pair>(Stack);
-#line 4085 "runtime.in"
+#line 4101 "runtime.in"
if(!warn && z.getx() == 0.0 && z.gety() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(principalBranch(degrees(z.angle()))); return;}
}
// Convert degrees to radians.
-#line 4091 "runtime.in"
+#line 4107 "runtime.in"
// real radians(real degrees);
-void gen359(stack *Stack)
+void gen360(stack *Stack)
{
real degrees=vm::pop<real>(Stack);
-#line 4092 "runtime.in"
+#line 4108 "runtime.in"
{Stack->push<real>(radians(degrees)); return;}
}
// Convert radians to degrees.
-#line 4097 "runtime.in"
+#line 4113 "runtime.in"
// real degrees(real radians);
-void gen360(stack *Stack)
+void gen361(stack *Stack)
{
real radians=vm::pop<real>(Stack);
-#line 4098 "runtime.in"
+#line 4114 "runtime.in"
{Stack->push<real>(degrees(radians)); return;}
}
// Convert radians to degrees in [0,360).
-#line 4103 "runtime.in"
+#line 4119 "runtime.in"
// real Degrees(real radians);
-void gen361(stack *Stack)
+void gen362(stack *Stack)
{
real radians=vm::pop<real>(Stack);
-#line 4104 "runtime.in"
+#line 4120 "runtime.in"
{Stack->push<real>(principalBranch(degrees(radians))); return;}
}
-#line 4108 "runtime.in"
+#line 4124 "runtime.in"
// real Sin(real deg);
-void gen362(stack *Stack)
+void gen363(stack *Stack)
{
real deg=vm::pop<real>(Stack);
-#line 4109 "runtime.in"
+#line 4125 "runtime.in"
{Stack->push<real>(sin(radians(deg))); return;}
}
-#line 4113 "runtime.in"
+#line 4129 "runtime.in"
// real Cos(real deg);
-void gen363(stack *Stack)
+void gen364(stack *Stack)
{
real deg=vm::pop<real>(Stack);
-#line 4114 "runtime.in"
+#line 4130 "runtime.in"
{Stack->push<real>(cos(radians(deg))); return;}
}
-#line 4118 "runtime.in"
+#line 4134 "runtime.in"
// real Tan(real deg);
-void gen364(stack *Stack)
+void gen365(stack *Stack)
{
real deg=vm::pop<real>(Stack);
-#line 4119 "runtime.in"
+#line 4135 "runtime.in"
{Stack->push<real>(tan(radians(deg))); return;}
}
-#line 4123 "runtime.in"
+#line 4139 "runtime.in"
// real aSin(real x);
-void gen365(stack *Stack)
+void gen366(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 4124 "runtime.in"
+#line 4140 "runtime.in"
{Stack->push<real>(degrees(asin(x))); return;}
}
-#line 4128 "runtime.in"
+#line 4144 "runtime.in"
// real aCos(real x);
-void gen366(stack *Stack)
+void gen367(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 4129 "runtime.in"
+#line 4145 "runtime.in"
{Stack->push<real>(degrees(acos(x))); return;}
}
-#line 4133 "runtime.in"
+#line 4149 "runtime.in"
// real aTan(real x);
-void gen367(stack *Stack)
+void gen368(stack *Stack)
{
real x=vm::pop<real>(Stack);
-#line 4134 "runtime.in"
+#line 4150 "runtime.in"
{Stack->push<real>(degrees(atan(x))); return;}
}
-#line 4138 "runtime.in"
+#line 4154 "runtime.in"
// pair unit(pair z);
-void gen368(stack *Stack)
+void gen369(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4139 "runtime.in"
+#line 4155 "runtime.in"
{Stack->push<pair>(unit(z)); return;}
}
-#line 4143 "runtime.in"
+#line 4159 "runtime.in"
// pair dir(real degrees);
-void gen369(stack *Stack)
+void gen370(stack *Stack)
{
real degrees=vm::pop<real>(Stack);
-#line 4144 "runtime.in"
+#line 4160 "runtime.in"
{Stack->push<pair>(expi(radians(degrees))); return;}
}
-#line 4148 "runtime.in"
+#line 4164 "runtime.in"
// pair dir(explicit pair z);
-void gen370(stack *Stack)
+void gen371(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4149 "runtime.in"
+#line 4165 "runtime.in"
{Stack->push<pair>(unit(z)); return;}
}
-#line 4153 "runtime.in"
+#line 4169 "runtime.in"
// pair expi(real angle);
-void gen371(stack *Stack)
+void gen372(stack *Stack)
{
real angle=vm::pop<real>(Stack);
-#line 4154 "runtime.in"
+#line 4170 "runtime.in"
{Stack->push<pair>(expi(angle)); return;}
}
-#line 4158 "runtime.in"
+#line 4174 "runtime.in"
// pair exp(explicit pair z);
-void gen372(stack *Stack)
+void gen373(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4159 "runtime.in"
+#line 4175 "runtime.in"
{Stack->push<pair>(exp(z)); return;}
}
-#line 4163 "runtime.in"
+#line 4179 "runtime.in"
// pair log(explicit pair z);
-void gen373(stack *Stack)
+void gen374(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4164 "runtime.in"
+#line 4180 "runtime.in"
{Stack->push<pair>(pair(log(z.length()),z.angle())); return;}
}
-#line 4168 "runtime.in"
+#line 4184 "runtime.in"
// pair sin(explicit pair z);
-void gen374(stack *Stack)
+void gen375(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4169 "runtime.in"
+#line 4185 "runtime.in"
{Stack->push<pair>(sin(z)); return;}
}
-#line 4173 "runtime.in"
+#line 4189 "runtime.in"
// pair cos(explicit pair z);
-void gen375(stack *Stack)
+void gen376(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4174 "runtime.in"
+#line 4190 "runtime.in"
{Stack->push<pair>(pair(cos(z.getx())*cosh(z.gety()),-sin(z.getx())*sinh(z.gety()))); return;}
}
-#line 4178 "runtime.in"
+#line 4194 "runtime.in"
// pair conj(pair z);
-void gen376(stack *Stack)
+void gen377(stack *Stack)
{
pair z=vm::pop<pair>(Stack);
-#line 4179 "runtime.in"
+#line 4195 "runtime.in"
{Stack->push<pair>(conj(z)); return;}
}
-#line 4183 "runtime.in"
+#line 4199 "runtime.in"
// pair realmult(pair z, pair w);
-void gen377(stack *Stack)
+void gen378(stack *Stack)
{
pair w=vm::pop<pair>(Stack);
pair z=vm::pop<pair>(Stack);
-#line 4184 "runtime.in"
+#line 4200 "runtime.in"
{Stack->push<pair>(pair (z.getx()*w.getx(),z.gety()*w.gety())); return;}
}
-#line 4188 "runtime.in"
+#line 4204 "runtime.in"
// triple realmult(triple u, triple v);
-void gen378(stack *Stack)
+void gen379(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
triple u=vm::pop<triple>(Stack);
-#line 4189 "runtime.in"
+#line 4205 "runtime.in"
{Stack->push<triple>(triple (u.getx()*v.getx(),u.gety()*v.gety(),u.getz()*v.getz())); return;}
}
// To avoid confusion, a dot product requires explicit pair arguments.
-#line 4194 "runtime.in"
+#line 4210 "runtime.in"
// real dot(explicit pair z, explicit pair w);
-void gen379(stack *Stack)
+void gen380(stack *Stack)
{
pair w=vm::pop<pair>(Stack);
pair z=vm::pop<pair>(Stack);
-#line 4195 "runtime.in"
+#line 4211 "runtime.in"
{Stack->push<real>(dot(z,w)); return;}
}
// Triple operations
-#line 4201 "runtime.in"
+#line 4217 "runtime.in"
void tripleZero(stack *Stack)
{
-#line 4202 "runtime.in"
+#line 4218 "runtime.in"
static triple zero;
{Stack->push<triple>(zero); return;}
}
-#line 4208 "runtime.in"
+#line 4224 "runtime.in"
void realRealRealToTriple(stack *Stack)
{
real z=vm::pop<real>(Stack);
real y=vm::pop<real>(Stack);
real x=vm::pop<real>(Stack);
-#line 4209 "runtime.in"
+#line 4225 "runtime.in"
{Stack->push<triple>(triple(x,y,z)); return;}
}
-#line 4213 "runtime.in"
+#line 4229 "runtime.in"
// real xpart(triple v);
void tripleXPart(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4214 "runtime.in"
+#line 4230 "runtime.in"
{Stack->push<real>(v.getx()); return;}
}
-#line 4218 "runtime.in"
+#line 4234 "runtime.in"
// real ypart(triple v);
void tripleYPart(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4219 "runtime.in"
+#line 4235 "runtime.in"
{Stack->push<real>(v.gety()); return;}
}
-#line 4223 "runtime.in"
+#line 4239 "runtime.in"
// real zpart(triple v);
void tripleZPart(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4224 "runtime.in"
+#line 4240 "runtime.in"
{Stack->push<real>(v.getz()); return;}
}
-#line 4228 "runtime.in"
+#line 4244 "runtime.in"
// triple *(real x, triple v);
-void gen385(stack *Stack)
+void gen386(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
real x=vm::pop<real>(Stack);
-#line 4229 "runtime.in"
+#line 4245 "runtime.in"
{Stack->push<triple>(x*v); return;}
}
-#line 4233 "runtime.in"
+#line 4249 "runtime.in"
// triple *(triple v, real x);
-void gen386(stack *Stack)
+void gen387(stack *Stack)
{
real x=vm::pop<real>(Stack);
triple v=vm::pop<triple>(Stack);
-#line 4234 "runtime.in"
+#line 4250 "runtime.in"
{Stack->push<triple>(v*x); return;}
}
-#line 4238 "runtime.in"
+#line 4254 "runtime.in"
// triple /(triple v, real x);
-void gen387(stack *Stack)
+void gen388(stack *Stack)
{
real x=vm::pop<real>(Stack);
triple v=vm::pop<triple>(Stack);
-#line 4239 "runtime.in"
+#line 4255 "runtime.in"
{Stack->push<triple>(v/x); return;}
}
-#line 4243 "runtime.in"
+#line 4259 "runtime.in"
// real length(triple v);
-void gen388(stack *Stack)
+void gen389(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4244 "runtime.in"
+#line 4260 "runtime.in"
{Stack->push<real>(v.length()); return;}
}
-#line 4248 "runtime.in"
+#line 4264 "runtime.in"
// real abs(triple v);
-void gen389(stack *Stack)
+void gen390(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4249 "runtime.in"
+#line 4265 "runtime.in"
{Stack->push<real>(v.length()); return;}
}
-#line 4253 "runtime.in"
+#line 4269 "runtime.in"
// real polar(triple v, bool warn=true);
-void gen390(stack *Stack)
+void gen391(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
triple v=vm::pop<triple>(Stack);
-#line 4254 "runtime.in"
+#line 4270 "runtime.in"
if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(v.polar()); return;}
}
-#line 4259 "runtime.in"
+#line 4275 "runtime.in"
// real azimuth(triple v, bool warn=true);
-void gen391(stack *Stack)
+void gen392(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
triple v=vm::pop<triple>(Stack);
-#line 4260 "runtime.in"
+#line 4276 "runtime.in"
if(!warn && v.getx() == 0.0 && v.gety() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(v.azimuth()); return;}
}
-#line 4265 "runtime.in"
+#line 4281 "runtime.in"
// real colatitude(triple v, bool warn=true);
-void gen392(stack *Stack)
+void gen393(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
triple v=vm::pop<triple>(Stack);
-#line 4266 "runtime.in"
+#line 4282 "runtime.in"
if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(degrees(v.polar())); return;}
}
-#line 4271 "runtime.in"
+#line 4287 "runtime.in"
// real latitude(triple v, bool warn=true);
-void gen393(stack *Stack)
+void gen394(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
triple v=vm::pop<triple>(Stack);
-#line 4272 "runtime.in"
+#line 4288 "runtime.in"
if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(90.0-degrees(v.polar())); return;}
}
// Return the longitude of v in [0,360).
-#line 4278 "runtime.in"
+#line 4294 "runtime.in"
// real longitude(triple v, bool warn=true);
-void gen394(stack *Stack)
+void gen395(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
triple v=vm::pop<triple>(Stack);
-#line 4279 "runtime.in"
+#line 4295 "runtime.in"
if(!warn && v.getx() == 0.0 && v.gety() == 0.0) {Stack->push<real>(0.0); return;}
{Stack->push<real>(principalBranch(degrees(v.azimuth()))); return;}
}
-#line 4284 "runtime.in"
+#line 4300 "runtime.in"
// triple unit(triple v);
-void gen395(stack *Stack)
+void gen396(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
-#line 4285 "runtime.in"
+#line 4301 "runtime.in"
{Stack->push<triple>(unit(v)); return;}
}
-#line 4289 "runtime.in"
+#line 4305 "runtime.in"
// real dot(triple u, triple v);
-void gen396(stack *Stack)
+void gen397(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
triple u=vm::pop<triple>(Stack);
-#line 4290 "runtime.in"
+#line 4306 "runtime.in"
{Stack->push<real>(dot(u,v)); return;}
}
-#line 4294 "runtime.in"
+#line 4310 "runtime.in"
// triple cross(triple u, triple v);
-void gen397(stack *Stack)
+void gen398(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
triple u=vm::pop<triple>(Stack);
-#line 4295 "runtime.in"
+#line 4311 "runtime.in"
{Stack->push<triple>(cross(u,v)); return;}
}
-#line 4299 "runtime.in"
+#line 4315 "runtime.in"
// triple expi(real polar, real azimuth);
-void gen398(stack *Stack)
+void gen399(stack *Stack)
{
real azimuth=vm::pop<real>(Stack);
real polar=vm::pop<real>(Stack);
-#line 4300 "runtime.in"
+#line 4316 "runtime.in"
{Stack->push<triple>(expi(polar,azimuth)); return;}
}
-#line 4304 "runtime.in"
+#line 4320 "runtime.in"
// triple dir(real colatitude, real longitude);
-void gen399(stack *Stack)
+void gen400(stack *Stack)
{
real longitude=vm::pop<real>(Stack);
real colatitude=vm::pop<real>(Stack);
-#line 4305 "runtime.in"
+#line 4321 "runtime.in"
{Stack->push<triple>(expi(radians(colatitude),radians(longitude))); return;}
}
// System routines
-#line 4311 "runtime.in"
+#line 4327 "runtime.in"
// void atupdate(callable *f);
-void gen400(stack *Stack)
+void gen401(stack *Stack)
{
callable * f=vm::pop<callable *>(Stack);
-#line 4312 "runtime.in"
+#line 4328 "runtime.in"
processData().atUpdateFunction=f;
}
-#line 4317 "runtime.in"
+#line 4333 "runtime.in"
// callable* atupdate();
-void gen401(stack *Stack)
+void gen402(stack *Stack)
{
-#line 4318 "runtime.in"
+#line 4334 "runtime.in"
{Stack->push<callable*>(processData().atUpdateFunction); return;}
}
-#line 4322 "runtime.in"
+#line 4338 "runtime.in"
// void atexit(callable *f);
-void gen402(stack *Stack)
+void gen403(stack *Stack)
{
callable * f=vm::pop<callable *>(Stack);
-#line 4323 "runtime.in"
+#line 4339 "runtime.in"
processData().atExitFunction=f;
}
-#line 4327 "runtime.in"
+#line 4343 "runtime.in"
// callable* atexit();
-void gen403(stack *Stack)
+void gen404(stack *Stack)
{
-#line 4328 "runtime.in"
+#line 4344 "runtime.in"
{Stack->push<callable*>(processData().atExitFunction); return;}
}
-#line 4332 "runtime.in"
+#line 4348 "runtime.in"
// void atbreakpoint(callableBp *f);
-void gen404(stack *Stack)
+void gen405(stack *Stack)
{
callableBp * f=vm::pop<callableBp *>(Stack);
-#line 4333 "runtime.in"
+#line 4349 "runtime.in"
processData().atBreakpointFunction=f;
}
-#line 4337 "runtime.in"
+#line 4353 "runtime.in"
// void breakpoint(runnable *s=NULL);
-void gen405(stack *Stack)
+void gen406(stack *Stack)
{
runnable * s=vm::pop<runnable *>(Stack,NULL);
-#line 4338 "runtime.in"
+#line 4354 "runtime.in"
breakpoint(Stack,s);
}
-#line 4342 "runtime.in"
+#line 4358 "runtime.in"
// string locatefile(string file);
-void gen406(stack *Stack)
+void gen407(stack *Stack)
{
string file=vm::pop<string>(Stack);
-#line 4343 "runtime.in"
+#line 4359 "runtime.in"
{Stack->push<string>(locateFile(file)); return;}
}
-#line 4347 "runtime.in"
+#line 4363 "runtime.in"
// void stop(string file, Int line, runnable *s=NULL);
-void gen407(stack *Stack)
+void gen408(stack *Stack)
{
runnable * s=vm::pop<runnable *>(Stack,NULL);
Int line=vm::pop<Int>(Stack);
string file=vm::pop<string>(Stack);
-#line 4348 "runtime.in"
+#line 4364 "runtime.in"
file=locateFile(file);
clear(file,line);
cout << "setting breakpoint at " << file << ": " << line << endl;
bplist.push_back(bpinfo(file,line,s));
}
-#line 4355 "runtime.in"
+#line 4371 "runtime.in"
// void breakpoints();
-void gen408(stack *)
+void gen409(stack *)
{
-#line 4356 "runtime.in"
+#line 4372 "runtime.in"
for(mem::list<bpinfo>::iterator p=bplist.begin(); p != bplist.end(); ++p)
cout << p->f.name() << ": " << p->f.line() << endl;
}
-#line 4361 "runtime.in"
+#line 4377 "runtime.in"
// void clear(string file, Int line);
-void gen409(stack *Stack)
+void gen410(stack *Stack)
{
Int line=vm::pop<Int>(Stack);
string file=vm::pop<string>(Stack);
-#line 4362 "runtime.in"
+#line 4378 "runtime.in"
file=locateFile(file);
clear(file,line,true);
}
-#line 4367 "runtime.in"
+#line 4383 "runtime.in"
// void clear();
-void gen410(stack *)
+void gen411(stack *)
{
-#line 4368 "runtime.in"
+#line 4384 "runtime.in"
bplist.clear();
}
// Strip directory from string
-#line 4373 "runtime.in"
+#line 4389 "runtime.in"
// string stripdirectory(string *s);
-void gen411(stack *Stack)
+void gen412(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 4374 "runtime.in"
+#line 4390 "runtime.in"
{Stack->push<string>(stripDir(*s)); return;}
}
// Strip directory from string
-#line 4379 "runtime.in"
+#line 4395 "runtime.in"
// string stripfile(string *s);
-void gen412(stack *Stack)
+void gen413(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 4380 "runtime.in"
+#line 4396 "runtime.in"
{Stack->push<string>(stripFile(*s)); return;}
}
// Strip file extension from string
-#line 4385 "runtime.in"
+#line 4401 "runtime.in"
// string stripextension(string *s);
-void gen413(stack *Stack)
+void gen414(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 4386 "runtime.in"
+#line 4402 "runtime.in"
{Stack->push<string>(stripExt(*s)); return;}
}
// Call ImageMagick convert.
-#line 4391 "runtime.in"
+#line 4407 "runtime.in"
// Int convert(string args=emptystring, string file=emptystring, string format=emptystring);
-void gen414(stack *Stack)
+void gen415(stack *Stack)
{
string format=vm::pop<string>(Stack,emptystring);
string file=vm::pop<string>(Stack,emptystring);
string args=vm::pop<string>(Stack,emptystring);
-#line 4393 "runtime.in"
+#line 4409 "runtime.in"
ostringstream cmd;
string name=convertname(file,format);
@@ -6295,14 +6316,14 @@ void gen414(stack *Stack)
}
// Call ImageMagick animate.
-#line 4409 "runtime.in"
+#line 4425 "runtime.in"
// Int animate(string args=emptystring, string file=emptystring, string format=emptystring);
-void gen415(stack *Stack)
+void gen416(stack *Stack)
{
string format=vm::pop<string>(Stack,emptystring);
string file=vm::pop<string>(Stack,emptystring);
string args=vm::pop<string>(Stack,emptystring);
-#line 4411 "runtime.in"
+#line 4427 "runtime.in"
#ifndef __CYGWIN__
string name=convertname(file,format,false);
if(view()) {
@@ -6316,12 +6337,12 @@ void gen415(stack *Stack)
}
// Delete file named s.
-#line 4425 "runtime.in"
+#line 4441 "runtime.in"
// Int delete(string *s);
-void gen416(stack *Stack)
+void gen417(stack *Stack)
{
string * s=vm::pop<string *>(Stack);
-#line 4426 "runtime.in"
+#line 4442 "runtime.in"
checkLocal(*s);
Int rc=unlink(s->c_str());
if(rc == 0 && verbose > 0)
@@ -6330,13 +6351,13 @@ void gen416(stack *Stack)
}
// Rename file "from" to file "to".
-#line 4435 "runtime.in"
+#line 4451 "runtime.in"
// Int rename(string *from, string *to);
-void gen417(stack *Stack)
+void gen418(stack *Stack)
{
string * to=vm::pop<string *>(Stack);
string * from=vm::pop<string *>(Stack);
-#line 4436 "runtime.in"
+#line 4452 "runtime.in"
checkLocal(*from);
checkLocal(*to);
Int rc=rename(from->c_str(),to->c_str());
@@ -6349,10 +6370,10 @@ void gen417(stack *Stack)
// Array operations
// Create an empty array.
-#line 4449 "runtime.in"
+#line 4465 "runtime.in"
void emptyArray(stack *Stack)
{
-#line 4450 "runtime.in"
+#line 4466 "runtime.in"
{Stack->push<array*>(new array(0)); return;}
}
@@ -6361,11 +6382,11 @@ void emptyArray(stack *Stack)
// is popped off the stack, followed by each dimension in reverse order.
// The array itself is technically a one dimensional array of one
// dimension arrays and so on.
-#line 4459 "runtime.in"
+#line 4475 "runtime.in"
void newDeepArray(stack *Stack)
{
Int depth=vm::pop<Int>(Stack);
-#line 4460 "runtime.in"
+#line 4476 "runtime.in"
assert(depth > 0);
Int *dims = new Int[depth];
@@ -6384,11 +6405,11 @@ void newDeepArray(stack *Stack)
// Creates an array with elements already specified. First, the number
// of elements is popped off the stack, followed by each element in
// reverse order.
-#line 4479 "runtime.in"
+#line 4495 "runtime.in"
void newInitializedArray(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 4480 "runtime.in"
+#line 4496 "runtime.in"
assert(n >= 0);
array *a = new array(n);
@@ -6401,12 +6422,12 @@ void newInitializedArray(stack *Stack)
// Similar to newInitializedArray, but after the n elements, append another
// array to it.
-#line 4493 "runtime.in"
+#line 4509 "runtime.in"
void newAppendedArray(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
array* tail=vm::pop<array*>(Stack);
-#line 4494 "runtime.in"
+#line 4510 "runtime.in"
assert(n >= 0);
array *a = new array(n);
@@ -6421,13 +6442,13 @@ void newAppendedArray(stack *Stack)
// The function T[] array(int n, T value, int depth=0) produces a array of n
// copies of x, where each copy is copied up to depth.
-#line 4509 "runtime.in"
+#line 4525 "runtime.in"
void newDuplicateArray(stack *Stack)
{
Int depth=vm::pop<Int>(Stack,Int_MAX);
item value=vm::pop(Stack);
Int n=vm::pop<Int>(Stack);
-#line 4510 "runtime.in"
+#line 4526 "runtime.in"
if(n < 0) error("cannot create a negative length array");
if(depth < 0) error("cannot copy to a negative depth");
@@ -6435,12 +6456,12 @@ void newDuplicateArray(stack *Stack)
}
// Read an element from an array. Checks for initialization & bounds.
-#line 4518 "runtime.in"
+#line 4534 "runtime.in"
void arrayRead(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4519 "runtime.in"
+#line 4535 "runtime.in"
item& i=arrayRead(a,n);
if (i.empty()) {
ostringstream buf;
@@ -6451,50 +6472,50 @@ void arrayRead(stack *Stack)
}
// Slice a substring from an array.
-#line 4530 "runtime.in"
+#line 4546 "runtime.in"
void arraySliceRead(stack *Stack)
{
Int right=vm::pop<Int>(Stack);
Int left=vm::pop<Int>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4531 "runtime.in"
+#line 4547 "runtime.in"
checkArray(a);
{Stack->push(a->slice(left, right)); return;}
}
// Slice a substring from an array. This implements the cases a[i:] and a[:]
// where the endpoint is not given, and assumed to be the length of the array.
-#line 4538 "runtime.in"
+#line 4554 "runtime.in"
void arraySliceReadToEnd(stack *Stack)
{
Int left=vm::pop<Int>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4539 "runtime.in"
+#line 4555 "runtime.in"
size_t len=checkArray(a);
{Stack->push(a->slice(left, (Int)len)); return;}
}
// Read an element from an array of arrays. Check bounds and initialize
// as necessary.
-#line 4546 "runtime.in"
+#line 4562 "runtime.in"
void arrayArrayRead(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4547 "runtime.in"
+#line 4563 "runtime.in"
item& i=arrayRead(a,n);
if (i.empty()) i=new array(0);
{Stack->push(i); return;}
}
// Write an element to an array. Increase size if necessary.
-#line 4554 "runtime.in"
+#line 4570 "runtime.in"
void arrayWrite(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
array * a=vm::pop<array *>(Stack);
item value=vm::pop(Stack);
-#line 4555 "runtime.in"
+#line 4571 "runtime.in"
size_t len=checkArray(a);
bool cyclic=a->cyclic();
if(cyclic && len > 0) n=imod(n,len);
@@ -6508,27 +6529,27 @@ void arrayWrite(stack *Stack)
{Stack->push(value); return;}
}
-#line 4569 "runtime.in"
+#line 4585 "runtime.in"
void arraySliceWrite(stack *Stack)
{
Int right=vm::pop<Int>(Stack);
Int left=vm::pop<Int>(Stack);
array * dest=vm::pop<array *>(Stack);
array * src=vm::pop<array *>(Stack);
-#line 4570 "runtime.in"
+#line 4586 "runtime.in"
checkArray(src);
checkArray(dest);
dest->setSlice(left, right, src);
{Stack->push<array*>(src); return;}
}
-#line 4577 "runtime.in"
+#line 4593 "runtime.in"
void arraySliceWriteToEnd(stack *Stack)
{
Int left=vm::pop<Int>(Stack);
array * dest=vm::pop<array *>(Stack);
array * src=vm::pop<array *>(Stack);
-#line 4578 "runtime.in"
+#line 4594 "runtime.in"
checkArray(src);
size_t len=checkArray(dest);
dest->setSlice(left, (Int) len, src);
@@ -6536,20 +6557,20 @@ void arraySliceWriteToEnd(stack *Stack)
}
// Returns the length of an array.
-#line 4586 "runtime.in"
+#line 4602 "runtime.in"
void arrayLength(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4587 "runtime.in"
+#line 4603 "runtime.in"
{Stack->push<Int>((Int) checkArray(a)); return;}
}
// Returns an array of integers representing the keys of the array.
-#line 4592 "runtime.in"
+#line 4608 "runtime.in"
void arrayKeys(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4593 "runtime.in"
+#line 4609 "runtime.in"
size_t size=checkArray(a);
array *keys=new array();
@@ -6563,22 +6584,22 @@ void arrayKeys(stack *Stack)
}
// Return the cyclic flag for an array.
-#line 4607 "runtime.in"
+#line 4623 "runtime.in"
void arrayCyclicFlag(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4608 "runtime.in"
+#line 4624 "runtime.in"
checkArray(a);
{Stack->push<bool>(a->cyclic()); return;}
}
// Check to see if an array element is initialized.
-#line 4614 "runtime.in"
+#line 4630 "runtime.in"
void arrayInitializedHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
Int n=vm::pop<Int>(Stack);
-#line 4615 "runtime.in"
+#line 4631 "runtime.in"
size_t len=checkArray(a);
bool cyclic=a->cyclic();
if(cyclic && len > 0) n=imod(n,len);
@@ -6588,62 +6609,62 @@ void arrayInitializedHelper(stack *Stack)
}
// Returns the initialize method for an array.
-#line 4625 "runtime.in"
+#line 4641 "runtime.in"
void arrayInitialized(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4626 "runtime.in"
+#line 4642 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayInitializedHelper),a)); return;}
}
// The helper function for the cyclic method that sets the cyclic flag.
-#line 4631 "runtime.in"
+#line 4647 "runtime.in"
void arrayCyclicHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
bool b=vm::pop<bool>(Stack);
-#line 4632 "runtime.in"
+#line 4648 "runtime.in"
checkArray(a);
a->cyclic(b);
}
// Set the cyclic flag for an array.
-#line 4638 "runtime.in"
+#line 4654 "runtime.in"
void arrayCyclic(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4639 "runtime.in"
+#line 4655 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayCyclicHelper),a)); return;}
}
// The helper function for the push method that does the actual operation.
-#line 4644 "runtime.in"
+#line 4660 "runtime.in"
void arrayPushHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
item x=vm::pop(Stack);
-#line 4645 "runtime.in"
+#line 4661 "runtime.in"
checkArray(a);
a->push(x);
{Stack->push(x); return;}
}
// Returns the push method for an array.
-#line 4652 "runtime.in"
+#line 4668 "runtime.in"
void arrayPush(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4653 "runtime.in"
+#line 4669 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayPushHelper),a)); return;}
}
// The helper function for the append method that appends b to a.
-#line 4658 "runtime.in"
+#line 4674 "runtime.in"
void arrayAppendHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
array * b=vm::pop<array *>(Stack);
-#line 4659 "runtime.in"
+#line 4675 "runtime.in"
checkArray(a);
size_t size=checkArray(b);
for(size_t i=0; i < size; i++)
@@ -6651,20 +6672,20 @@ void arrayAppendHelper(stack *Stack)
}
// Returns the append method for an array.
-#line 4667 "runtime.in"
+#line 4683 "runtime.in"
void arrayAppend(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4668 "runtime.in"
+#line 4684 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayAppendHelper),a)); return;}
}
// The helper function for the pop method.
-#line 4673 "runtime.in"
+#line 4689 "runtime.in"
void arrayPopHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4674 "runtime.in"
+#line 4690 "runtime.in"
size_t asize=checkArray(a);
if(asize == 0)
error("cannot pop element from empty array");
@@ -6672,22 +6693,22 @@ void arrayPopHelper(stack *Stack)
}
// Returns the pop method for an array.
-#line 4682 "runtime.in"
+#line 4698 "runtime.in"
void arrayPop(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4683 "runtime.in"
+#line 4699 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayPopHelper),a)); return;}
}
// The helper function for the insert method.
-#line 4688 "runtime.in"
+#line 4704 "runtime.in"
void arrayInsertHelper(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
array * x=vm::pop<array *>(Stack);
Int i=vm::pop<Int>(Stack);
-#line 4689 "runtime.in"
+#line 4705 "runtime.in"
size_t asize=checkArray(a);
checkArray(x);
if(a->cyclic() && asize > 0) i=imod(i,asize);
@@ -6697,39 +6718,39 @@ void arrayInsertHelper(stack *Stack)
}
// Returns the insert method for an array.
-#line 4699 "runtime.in"
+#line 4715 "runtime.in"
void arrayInsert(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4700 "runtime.in"
+#line 4716 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayInsertHelper),a)); return;}
}
// Returns the delete method for an array.
-#line 4705 "runtime.in"
+#line 4721 "runtime.in"
void arrayDelete(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4706 "runtime.in"
+#line 4722 "runtime.in"
{Stack->push<callable*>(new thunk(new bfunc(arrayDeleteHelper),a)); return;}
}
-#line 4710 "runtime.in"
+#line 4726 "runtime.in"
void arrayAlias(stack *Stack)
{
array * b=vm::pop<array *>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4711 "runtime.in"
+#line 4727 "runtime.in"
{Stack->push<bool>(a==b); return;}
}
// Return array formed by indexing array a with elements of integer array b
-#line 4716 "runtime.in"
+#line 4732 "runtime.in"
void arrayIntArray(stack *Stack)
{
array * b=vm::pop<array *>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4717 "runtime.in"
+#line 4733 "runtime.in"
size_t asize=checkArray(a);
size_t bsize=checkArray(b);
array *r=new array(bsize);
@@ -6747,13 +6768,13 @@ void arrayIntArray(stack *Stack)
// returns the complement of the integer array a in {0,2,...,n-1},
// so that b[complement(a,b.length)] yields the complement of b[a].
-#line 4735 "runtime.in"
+#line 4751 "runtime.in"
// Intarray* complement(Intarray *a, Int n);
-void gen448(stack *Stack)
+void gen449(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
Intarray * a=vm::pop<Intarray *>(Stack);
-#line 4736 "runtime.in"
+#line 4752 "runtime.in"
size_t asize=checkArray(a);
array *r=new array(0);
bool *keep=new bool[n];
@@ -6770,12 +6791,12 @@ void gen448(stack *Stack)
}
// Generate the sequence {f(i) : i=0,1,...n-1} given a function f and integer n
-#line 4753 "runtime.in"
+#line 4769 "runtime.in"
void arraySequence(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
callable * f=vm::pop<callable *>(Stack);
-#line 4754 "runtime.in"
+#line 4770 "runtime.in"
if(n < 0) n=0;
array *a=new array(n);
for(Int i=0; i < n; ++i) {
@@ -6787,12 +6808,12 @@ void arraySequence(stack *Stack)
}
// Return the array {0,1,...n-1}
-#line 4766 "runtime.in"
+#line 4782 "runtime.in"
// Intarray* sequence(Int n);
-void gen450(stack *Stack)
+void gen451(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 4767 "runtime.in"
+#line 4783 "runtime.in"
if(n < 0) n=0;
array *a=new array(n);
for(Int i=0; i < n; ++i) {
@@ -6802,12 +6823,12 @@ void gen450(stack *Stack)
}
// Apply a function to each element of an array
-#line 4777 "runtime.in"
+#line 4793 "runtime.in"
void arrayFunction(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
callable * f=vm::pop<callable *>(Stack);
-#line 4778 "runtime.in"
+#line 4794 "runtime.in"
size_t size=checkArray(a);
array *b=new array(size);
for(size_t i=0; i < size; ++i) {
@@ -6818,12 +6839,12 @@ void arrayFunction(stack *Stack)
{Stack->push<array*>(b); return;}
}
-#line 4789 "runtime.in"
+#line 4805 "runtime.in"
void arraySort(stack *Stack)
{
callable * f=vm::pop<callable *>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4790 "runtime.in"
+#line 4806 "runtime.in"
array *c=copyArray(a);
compareFunc=f;
FuncStack=Stack;
@@ -6831,12 +6852,12 @@ void arraySort(stack *Stack)
{Stack->push<array*>(c); return;}
}
-#line 4798 "runtime.in"
+#line 4814 "runtime.in"
// bool all(boolarray *a);
-void gen453(stack *Stack)
+void gen454(stack *Stack)
{
boolarray * a=vm::pop<boolarray *>(Stack);
-#line 4799 "runtime.in"
+#line 4815 "runtime.in"
size_t size=checkArray(a);
bool c=true;
for(size_t i=0; i < size; i++)
@@ -6844,12 +6865,12 @@ void gen453(stack *Stack)
{Stack->push<bool>(c); return;}
}
-#line 4807 "runtime.in"
+#line 4823 "runtime.in"
// boolarray* !(boolarray* a);
-void gen454(stack *Stack)
+void gen455(stack *Stack)
{
boolarray* a=vm::pop<boolarray*>(Stack);
-#line 4808 "runtime.in"
+#line 4824 "runtime.in"
size_t size=checkArray(a);
array *c=new array(size);
for(size_t i=0; i < size; i++)
@@ -6857,12 +6878,12 @@ void gen454(stack *Stack)
{Stack->push<boolarray*>(c); return;}
}
-#line 4816 "runtime.in"
+#line 4832 "runtime.in"
// Int sum(boolarray *a);
-void gen455(stack *Stack)
+void gen456(stack *Stack)
{
boolarray * a=vm::pop<boolarray *>(Stack);
-#line 4817 "runtime.in"
+#line 4833 "runtime.in"
size_t size=checkArray(a);
Int sum=0;
for(size_t i=0; i < size; i++)
@@ -6870,19 +6891,19 @@ void gen455(stack *Stack)
{Stack->push<Int>(sum); return;}
}
-#line 4825 "runtime.in"
+#line 4841 "runtime.in"
void arrayCopy(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4826 "runtime.in"
+#line 4842 "runtime.in"
{Stack->push<array*>(copyArray(a)); return;}
}
-#line 4830 "runtime.in"
+#line 4846 "runtime.in"
void arrayConcat(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4831 "runtime.in"
+#line 4847 "runtime.in"
// a is an array of arrays to be concatenated together.
// The signature is
// T[] concat(... T[][] a);
@@ -6909,27 +6930,27 @@ void arrayConcat(stack *Stack)
{Stack->push<array*>(result); return;}
}
-#line 4858 "runtime.in"
+#line 4874 "runtime.in"
void array2Copy(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4859 "runtime.in"
+#line 4875 "runtime.in"
{Stack->push<array*>(copyArray2(a)); return;}
}
-#line 4863 "runtime.in"
+#line 4879 "runtime.in"
void array3Copy(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4864 "runtime.in"
+#line 4880 "runtime.in"
{Stack->push<array*>(copyArray3(a)); return;}
}
-#line 4868 "runtime.in"
+#line 4884 "runtime.in"
void array2Transpose(stack *Stack)
{
array * a=vm::pop<array *>(Stack);
-#line 4869 "runtime.in"
+#line 4885 "runtime.in"
size_t asize=checkArray(a);
array *c=new array(0);
for(size_t i=0; i < asize; i++) {
@@ -6956,12 +6977,12 @@ void array2Transpose(stack *Stack)
// permutation (021 or 120, etc; original is 012).
// Transpose by sending respective members to the permutated locations:
// return the array obtained by putting a[i][j][k] into position perm{ijk}.
-#line 4896 "runtime.in"
+#line 4912 "runtime.in"
void array3Transpose(stack *Stack)
{
array * perm=vm::pop<array *>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 4897 "runtime.in"
+#line 4913 "runtime.in"
const size_t DIM=3;
if(checkArray(perm) != DIM) {
@@ -7045,13 +7066,13 @@ void array3Transpose(stack *Stack)
// In a boolean array, find the index of the nth true value or -1 if not found
// If n is negative, search backwards.
-#line 4981 "runtime.in"
+#line 4997 "runtime.in"
// Int find(boolarray *a, Int n=1);
-void gen462(stack *Stack)
+void gen463(stack *Stack)
{
Int n=vm::pop<Int>(Stack,1);
boolarray * a=vm::pop<boolarray *>(Stack);
-#line 4982 "runtime.in"
+#line 4998 "runtime.in"
size_t size=checkArray(a);
Int j=-1;
@@ -7068,13 +7089,13 @@ void gen462(stack *Stack)
{Stack->push<Int>(j); return;}
}
-#line 4999 "runtime.in"
+#line 5015 "runtime.in"
// bool ==(realarray2 *a, realarray2 *b);
-void gen463(stack *Stack)
+void gen464(stack *Stack)
{
realarray2 * b=vm::pop<realarray2 *>(Stack);
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5000 "runtime.in"
+#line 5016 "runtime.in"
size_t n=checkArray(a);
if(n != checkArray(b)) {Stack->push<bool>(false); return;}
@@ -7094,13 +7115,13 @@ void gen463(stack *Stack)
// construct vector obtained by replacing those elements of b for which the
// corresponding elements of a are false by the corresponding element of c.
-#line 5020 "runtime.in"
+#line 5036 "runtime.in"
void arrayConditional(stack *Stack)
{
array * c=vm::pop<array *>(Stack);
array * b=vm::pop<array *>(Stack);
array * a=vm::pop<array *>(Stack);
-#line 5021 "runtime.in"
+#line 5037 "runtime.in"
size_t size=checkArray(a);
array *r=new array(size);
if(b && c) {
@@ -7124,21 +7145,21 @@ void arrayConditional(stack *Stack)
}
// Return an n x n identity matrix.
-#line 5045 "runtime.in"
+#line 5061 "runtime.in"
// realarray2* identity(Int n);
-void gen465(stack *Stack)
+void gen466(stack *Stack)
{
Int n=vm::pop<Int>(Stack);
-#line 5046 "runtime.in"
+#line 5062 "runtime.in"
{Stack->push<realarray2*>(Identity(n)); return;}
}
// Return the diagonal matrix with diagonal entries given by a.
-#line 5051 "runtime.in"
+#line 5067 "runtime.in"
void diagonal(stack *Stack)
{
realarray * a=vm::pop<realarray *>(Stack);
-#line 5052 "runtime.in"
+#line 5068 "runtime.in"
size_t n=checkArray(a);
array *c=new array(n);
for(size_t i=0; i < n; ++i) {
@@ -7154,12 +7175,12 @@ void diagonal(stack *Stack)
}
// Return the inverse of an n x n matrix a using Gauss-Jordan elimination.
-#line 5068 "runtime.in"
+#line 5084 "runtime.in"
// realarray2* inverse(realarray2 *a);
-void gen467(stack *Stack)
+void gen468(stack *Stack)
{
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5069 "runtime.in"
+#line 5085 "runtime.in"
a=copyArray2(a);
size_t n=checkArray(a);
checkSquare(a);
@@ -7252,14 +7273,14 @@ void gen467(stack *Stack)
// Solve the linear equation ax=b by LU decomposition, returning the
// solution x, where a is an n x n matrix and b is an array of length n.
// If no solution exists, return an empty array.
-#line 5162 "runtime.in"
+#line 5178 "runtime.in"
// realarray* solve(realarray2 *a, realarray *b, bool warn=true);
-void gen468(stack *Stack)
+void gen469(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
realarray * b=vm::pop<realarray *>(Stack);
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5163 "runtime.in"
+#line 5179 "runtime.in"
size_t n=checkArray(a);
if(n == 0) {Stack->push<realarray*>(new array(0)); return;}
@@ -7309,14 +7330,14 @@ void gen468(stack *Stack)
// Solve the linear equation ax=b by LU decomposition, returning the
// solution x, where a is an n x n matrix and b is an n x m matrix.
// If no solution exists, return an empty array.
-#line 5213 "runtime.in"
+#line 5229 "runtime.in"
// realarray2* solve(realarray2 *a, realarray2 *b, bool warn=true);
-void gen469(stack *Stack)
+void gen470(stack *Stack)
{
bool warn=vm::pop<bool>(Stack,true);
realarray2 * b=vm::pop<realarray2 *>(Stack);
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5214 "runtime.in"
+#line 5230 "runtime.in"
size_t n=checkArray(a);
if(n == 0) {Stack->push<realarray2*>(new array(0)); return;}
@@ -7377,12 +7398,12 @@ void gen469(stack *Stack)
}
// Compute the determinant of an n x n matrix.
-#line 5275 "runtime.in"
+#line 5291 "runtime.in"
// real determinant(realarray2 *a);
-void gen470(stack *Stack)
+void gen471(stack *Stack)
{
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5276 "runtime.in"
+#line 5292 "runtime.in"
real *A=copyArray2C(a);
size_t n=checkArray(a);
@@ -7396,13 +7417,13 @@ void gen470(stack *Stack)
{Stack->push<real>(det); return;}
}
-#line 5290 "runtime.in"
+#line 5306 "runtime.in"
// realarray* *(realarray2 *a, realarray *b);
-void gen471(stack *Stack)
+void gen472(stack *Stack)
{
realarray * b=vm::pop<realarray *>(Stack);
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5291 "runtime.in"
+#line 5307 "runtime.in"
size_t n=checkArray(a);
size_t m=checkArray(b);
array *c=new array(n);
@@ -7419,13 +7440,13 @@ void gen471(stack *Stack)
{Stack->push<realarray*>(c); return;}
}
-#line 5308 "runtime.in"
+#line 5324 "runtime.in"
// realarray2* *(realarray2 *a, realarray2 *b);
-void gen472(stack *Stack)
+void gen473(stack *Stack)
{
realarray2 * b=vm::pop<realarray2 *>(Stack);
realarray2 * a=vm::pop<realarray2 *>(Stack);
-#line 5309 "runtime.in"
+#line 5325 "runtime.in"
size_t n=checkArray(a);
size_t nb=checkArray(b);
@@ -7459,23 +7480,23 @@ void gen472(stack *Stack)
{Stack->push<realarray2*>(c); return;}
}
-#line 5343 "runtime.in"
+#line 5359 "runtime.in"
// triple *(realarray2 *t, triple v);
-void gen473(stack *Stack)
+void gen474(stack *Stack)
{
triple v=vm::pop<triple>(Stack);
realarray2 * t=vm::pop<realarray2 *>(Stack);
-#line 5344 "runtime.in"
+#line 5360 "runtime.in"
{Stack->push<triple>(*t*v); return;}
}
-#line 5348 "runtime.in"
+#line 5364 "runtime.in"
// pair project(triple v, realarray2 *t);
-void gen474(stack *Stack)
+void gen475(stack *Stack)
{
realarray2 * t=vm::pop<realarray2 *>(Stack);
triple v=vm::pop<triple>(Stack);
-#line 5349 "runtime.in"
+#line 5365 "runtime.in"
size_t n=checkArray(t);
if(n != 4) error(incommensurate);
array *t0=read<array*>(t,0);
@@ -7500,13 +7521,13 @@ void gen474(stack *Stack)
}
// Compute the dot product of vectors a and b.
-#line 5374 "runtime.in"
+#line 5390 "runtime.in"
// real dot(realarray *a, realarray *b);
-void gen475(stack *Stack)
+void gen476(stack *Stack)
{
realarray * b=vm::pop<realarray *>(Stack);
realarray * a=vm::pop<realarray *>(Stack);
-#line 5375 "runtime.in"
+#line 5391 "runtime.in"
size_t n=checkArrays(a,b);
real sum=0.0;
for(size_t i=0; i < n; ++i)
@@ -7521,15 +7542,15 @@ void gen475(stack *Stack)
// [ a[2] b[2] c[2] ]
// [ ... ]
// [ c[n-1] a[n-1] b[n-1] ]
-#line 5390 "runtime.in"
+#line 5406 "runtime.in"
// realarray* tridiagonal(realarray *a, realarray *b, realarray *c, realarray *f);
-void gen476(stack *Stack)
+void gen477(stack *Stack)
{
realarray * f=vm::pop<realarray *>(Stack);
realarray * c=vm::pop<realarray *>(Stack);
realarray * b=vm::pop<realarray *>(Stack);
realarray * a=vm::pop<realarray *>(Stack);
-#line 5391 "runtime.in"
+#line 5407 "runtime.in"
size_t n=checkArrays(a,b);
checkEqual(n,checkArray(c));
checkEqual(n,checkArray(f));
@@ -7626,16 +7647,16 @@ void gen476(stack *Stack)
}
// Root solve by Newton-Raphson
-#line 5488 "runtime.in"
+#line 5504 "runtime.in"
// real newton(Int iterations=100, callableReal *f, callableReal *fprime, real x, bool verbose=false);
-void gen477(stack *Stack)
+void gen478(stack *Stack)
{
bool verbose=vm::pop<bool>(Stack,false);
real x=vm::pop<real>(Stack);
callableReal * fprime=vm::pop<callableReal *>(Stack);
callableReal * f=vm::pop<callableReal *>(Stack);
Int iterations=vm::pop<Int>(Stack,100);
-#line 5490 "runtime.in"
+#line 5506 "runtime.in"
static const real fuzz=1000.0*DBL_EPSILON;
Int i=0;
size_t oldPrec=0;
@@ -7681,9 +7702,9 @@ void gen477(stack *Stack)
// Root solve by Newton-Raphson bisection
// cf. routine rtsafe (Press et al., Numerical Recipes, 1991).
-#line 5536 "runtime.in"
+#line 5552 "runtime.in"
// real newton(Int iterations=100, callableReal *f, callableReal *fprime, real x1, real x2, bool verbose=false);
-void gen478(stack *Stack)
+void gen479(stack *Stack)
{
bool verbose=vm::pop<bool>(Stack,false);
real x2=vm::pop<real>(Stack);
@@ -7691,7 +7712,7 @@ void gen478(stack *Stack)
callableReal * fprime=vm::pop<callableReal *>(Stack);
callableReal * f=vm::pop<callableReal *>(Stack);
Int iterations=vm::pop<Int>(Stack,100);
-#line 5538 "runtime.in"
+#line 5554 "runtime.in"
static const real fuzz=1000.0*DBL_EPSILON;
size_t oldPrec=0;
if(verbose)
@@ -7769,16 +7790,16 @@ void gen478(stack *Stack)
{Stack->push<real>((j == iterations) ? DBL_MAX : x); return;}
}
-#line 5616 "runtime.in"
+#line 5632 "runtime.in"
// real simpson(callableReal *f, real a, real b, real acc=DBL_EPSILON, real dxmax=0);
-void gen479(stack *Stack)
+void gen480(stack *Stack)
{
real dxmax=vm::pop<real>(Stack,0);
real acc=vm::pop<real>(Stack,DBL_EPSILON);
real b=vm::pop<real>(Stack);
real a=vm::pop<real>(Stack);
callableReal * f=vm::pop<callableReal *>(Stack);
-#line 5618 "runtime.in"
+#line 5634 "runtime.in"
real integral;
if(dxmax == 0) dxmax=b-a;
Func=f;
@@ -7789,12 +7810,12 @@ void gen479(stack *Stack)
}
// Compute the fast Fourier transform of a pair array
-#line 5629 "runtime.in"
+#line 5645 "runtime.in"
void pairArrayFFT(stack *Stack)
{
Int sign=vm::pop<Int>(Stack,1);
pairarray * a=vm::pop<pairarray *>(Stack);
-#line 5630 "runtime.in"
+#line 5646 "runtime.in"
unsigned n=(unsigned) checkArray(a);
#ifdef HAVE_LIBFFTW3
array *c=new array(n);
@@ -7822,12 +7843,12 @@ void pairArrayFFT(stack *Stack)
{Stack->push<pairarray*>(c); return;}
}
-#line 5658 "runtime.in"
+#line 5674 "runtime.in"
// Intarray2* triangulate(pairarray *z);
-void gen481(stack *Stack)
+void gen482(stack *Stack)
{
pairarray * z=vm::pop<pairarray *>(Stack);
-#line 5659 "runtime.in"
+#line 5675 "runtime.in"
size_t nv=checkArray(z);
// Call robust version of Gilles Dumoulin's port of Paul Bourke's
// triangulation code.
@@ -7863,55 +7884,55 @@ void gen481(stack *Stack)
// File operations
-#line 5695 "runtime.in"
+#line 5711 "runtime.in"
// bool ==(file *a, file *b);
-void gen482(stack *Stack)
+void gen483(stack *Stack)
{
file * b=vm::pop<file *>(Stack);
file * a=vm::pop<file *>(Stack);
-#line 5696 "runtime.in"
+#line 5712 "runtime.in"
{Stack->push<bool>(a == b); return;}
}
-#line 5701 "runtime.in"
+#line 5717 "runtime.in"
// bool !=(file *a, file *b);
-void gen483(stack *Stack)
+void gen484(stack *Stack)
{
file * b=vm::pop<file *>(Stack);
file * a=vm::pop<file *>(Stack);
-#line 5702 "runtime.in"
+#line 5718 "runtime.in"
{Stack->push<bool>(a != b); return;}
}
-#line 5706 "runtime.in"
+#line 5722 "runtime.in"
void nullFile(stack *Stack)
{
-#line 5707 "runtime.in"
+#line 5723 "runtime.in"
{Stack->push<file*>(&camp::nullfile); return;}
}
-#line 5711 "runtime.in"
+#line 5727 "runtime.in"
// file* input(string name, bool check=true, string comment=commentchar);
-void gen485(stack *Stack)
+void gen486(stack *Stack)
{
string comment=vm::pop<string>(Stack,commentchar);
bool check=vm::pop<bool>(Stack,true);
string name=vm::pop<string>(Stack);
-#line 5712 "runtime.in"
+#line 5728 "runtime.in"
char c=comment.empty() ? (char) 0 : comment[0];
file *f=new ifile(name,c,check);
f->open();
{Stack->push<file*>(f); return;}
}
-#line 5719 "runtime.in"
+#line 5735 "runtime.in"
// file* output(string name, bool update=false, string comment=commentchar);
-void gen486(stack *Stack)
+void gen487(stack *Stack)
{
string comment=vm::pop<string>(Stack,commentchar);
bool update=vm::pop<bool>(Stack,false);
string name=vm::pop<string>(Stack);
-#line 5720 "runtime.in"
+#line 5736 "runtime.in"
file *f;
if(update) {
char c=comment.empty() ? (char) 0 : comment[0];
@@ -7922,13 +7943,13 @@ void gen486(stack *Stack)
{Stack->push<file*>(f); return;}
}
-#line 5731 "runtime.in"
+#line 5747 "runtime.in"
// file* xinput(string name, bool check=true);
-void gen487(stack *Stack)
+void gen488(stack *Stack)
{
bool check=vm::pop<bool>(Stack,true);
string name=vm::pop<string>(Stack);
-#line 5732 "runtime.in"
+#line 5748 "runtime.in"
#ifdef HAVE_RPC_RPC_H
file *f=new ixfile(name,check);
f->open();
@@ -7941,13 +7962,13 @@ void gen487(stack *Stack)
#endif
}
-#line 5745 "runtime.in"
+#line 5761 "runtime.in"
// file* xoutput(string name, bool update=false);
-void gen488(stack *Stack)
+void gen489(stack *Stack)
{
bool update=vm::pop<bool>(Stack,false);
string name=vm::pop<string>(Stack);
-#line 5746 "runtime.in"
+#line 5762 "runtime.in"
#ifdef HAVE_RPC_RPC_H
file *f;
if(update)
@@ -7964,25 +7985,25 @@ void gen488(stack *Stack)
#endif
}
-#line 5763 "runtime.in"
+#line 5779 "runtime.in"
// file* binput(string name, bool check=true);
-void gen489(stack *Stack)
+void gen490(stack *Stack)
{
bool check=vm::pop<bool>(Stack,true);
string name=vm::pop<string>(Stack);
-#line 5764 "runtime.in"
+#line 5780 "runtime.in"
file *f=new ibfile(name,check);
f->open();
{Stack->push<file*>(f); return;}
}
-#line 5770 "runtime.in"
+#line 5786 "runtime.in"
// file* boutput(string name, bool update=false);
-void gen490(stack *Stack)
+void gen491(stack *Stack)
{
bool update=vm::pop<bool>(Stack,false);
string name=vm::pop<string>(Stack);
-#line 5771 "runtime.in"
+#line 5787 "runtime.in"
file *f;
if(update) f=new iobfile(name);
else f=new obfile(name);
@@ -7991,77 +8012,77 @@ void gen490(stack *Stack)
{Stack->push<file*>(f); return;}
}
-#line 5780 "runtime.in"
+#line 5796 "runtime.in"
// bool eof(file *File);
-void gen491(stack *Stack)
+void gen492(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5781 "runtime.in"
+#line 5797 "runtime.in"
{Stack->push<bool>(File->eof()); return;}
}
-#line 5785 "runtime.in"
+#line 5801 "runtime.in"
// bool eol(file *File);
-void gen492(stack *Stack)
+void gen493(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5786 "runtime.in"
+#line 5802 "runtime.in"
{Stack->push<bool>(File->eol()); return;}
}
-#line 5790 "runtime.in"
+#line 5806 "runtime.in"
// bool error(file *File);
-void gen493(stack *Stack)
+void gen494(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5791 "runtime.in"
+#line 5807 "runtime.in"
{Stack->push<bool>(File->error()); return;}
}
-#line 5795 "runtime.in"
+#line 5811 "runtime.in"
// void clear(file *File);
-void gen494(stack *Stack)
+void gen495(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5796 "runtime.in"
+#line 5812 "runtime.in"
File->clear();
}
-#line 5800 "runtime.in"
+#line 5816 "runtime.in"
// void close(file *File);
-void gen495(stack *Stack)
+void gen496(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5801 "runtime.in"
+#line 5817 "runtime.in"
File->close();
}
-#line 5805 "runtime.in"
+#line 5821 "runtime.in"
// Int precision(file *File=NULL, Int digits=0);
-void gen496(stack *Stack)
+void gen497(stack *Stack)
{
Int digits=vm::pop<Int>(Stack,0);
file * File=vm::pop<file *>(Stack,NULL);
-#line 5806 "runtime.in"
+#line 5822 "runtime.in"
if(File == 0) File=&camp::Stdout;
{Stack->push<Int>(File->precision(digits)); return;}
}
-#line 5811 "runtime.in"
+#line 5827 "runtime.in"
// void flush(file *File);
-void gen497(stack *Stack)
+void gen498(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5812 "runtime.in"
+#line 5828 "runtime.in"
File->flush();
}
-#line 5816 "runtime.in"
+#line 5832 "runtime.in"
// string getc(file *File);
-void gen498(stack *Stack)
+void gen499(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5817 "runtime.in"
+#line 5833 "runtime.in"
char c=0;
if(File->isOpen()) File->read(c);
static char str[1];
@@ -8069,189 +8090,189 @@ void gen498(stack *Stack)
{Stack->push<string>(string(str)); return;}
}
-#line 5825 "runtime.in"
+#line 5841 "runtime.in"
// Int tell(file *File);
-void gen499(stack *Stack)
+void gen500(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5826 "runtime.in"
+#line 5842 "runtime.in"
{Stack->push<Int>(File->tell()); return;}
}
-#line 5830 "runtime.in"
+#line 5846 "runtime.in"
// void seek(file *File, Int pos);
-void gen500(stack *Stack)
+void gen501(stack *Stack)
{
Int pos=vm::pop<Int>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5831 "runtime.in"
+#line 5847 "runtime.in"
File->seek(pos,pos >= 0);
}
-#line 5835 "runtime.in"
+#line 5851 "runtime.in"
// void seekeof(file *File);
-void gen501(stack *Stack)
+void gen502(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5836 "runtime.in"
+#line 5852 "runtime.in"
File->seek(0,false);
}
// Set file dimensions
-#line 5841 "runtime.in"
+#line 5857 "runtime.in"
// file* dimension(file *File, Int nx);
-void gen502(stack *Stack)
+void gen503(stack *Stack)
{
Int nx=vm::pop<Int>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5842 "runtime.in"
+#line 5858 "runtime.in"
File->dimension(nx);
{Stack->push<file*>(File); return;}
}
-#line 5847 "runtime.in"
+#line 5863 "runtime.in"
// file* dimension(file *File, Int nx, Int ny);
-void gen503(stack *Stack)
+void gen504(stack *Stack)
{
Int ny=vm::pop<Int>(Stack);
Int nx=vm::pop<Int>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5848 "runtime.in"
+#line 5864 "runtime.in"
File->dimension(nx,ny);
{Stack->push<file*>(File); return;}
}
-#line 5853 "runtime.in"
+#line 5869 "runtime.in"
// file* dimension(file *File, Int nx, Int ny, Int nz);
-void gen504(stack *Stack)
+void gen505(stack *Stack)
{
Int nz=vm::pop<Int>(Stack);
Int ny=vm::pop<Int>(Stack);
Int nx=vm::pop<Int>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5854 "runtime.in"
+#line 5870 "runtime.in"
File->dimension(nx,ny,nz);
{Stack->push<file*>(File); return;}
}
// Set file to read comma-separated values
-#line 5860 "runtime.in"
+#line 5876 "runtime.in"
// file* csv(file *File, bool b=true);
-void gen505(stack *Stack)
+void gen506(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
file * File=vm::pop<file *>(Stack);
-#line 5861 "runtime.in"
+#line 5877 "runtime.in"
File->CSVMode(b);
{Stack->push<file*>(File); return;}
}
// Set file to read whitespace-separated values
-#line 5867 "runtime.in"
+#line 5883 "runtime.in"
// file* word(file *File, bool b=true);
-void gen506(stack *Stack)
+void gen507(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
file * File=vm::pop<file *>(Stack);
-#line 5868 "runtime.in"
+#line 5884 "runtime.in"
File->WordMode(b);
{Stack->push<file*>(File); return;}
}
// Set file to read arrays in line-at-a-time mode
-#line 5874 "runtime.in"
+#line 5890 "runtime.in"
// file* line(file *File, bool b=true);
-void gen507(stack *Stack)
+void gen508(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
file * File=vm::pop<file *>(Stack);
-#line 5875 "runtime.in"
+#line 5891 "runtime.in"
File->LineMode(b);
{Stack->push<file*>(File); return;}
}
// Set file to read/write single-precision XDR values.
-#line 5881 "runtime.in"
+#line 5897 "runtime.in"
// file* single(file *File, bool b=true);
-void gen508(stack *Stack)
+void gen509(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
file * File=vm::pop<file *>(Stack);
-#line 5882 "runtime.in"
+#line 5898 "runtime.in"
File->SingleReal(b);
File->SingleInt(b);
{Stack->push<file*>(File); return;}
}
// Set file to read/write single-precision real XDR values.
-#line 5889 "runtime.in"
+#line 5905 "runtime.in"
// file* single(file *File, real x, bool b=true);
-void gen509(stack *Stack)
+void gen510(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
real x=vm::pop<real>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5890 "runtime.in"
+#line 5906 "runtime.in"
File->SingleReal(b);
unused(&x);
{Stack->push<file*>(File); return;}
}
// Set file to read/write single-precision int XDR values.
-#line 5897 "runtime.in"
+#line 5913 "runtime.in"
// file* single(file *File, Int x, bool b=true);
-void gen510(stack *Stack)
+void gen511(stack *Stack)
{
bool b=vm::pop<bool>(Stack,true);
Int x=vm::pop<Int>(Stack);
file * File=vm::pop<file *>(Stack);
-#line 5898 "runtime.in"
+#line 5914 "runtime.in"
File->SingleInt(b);
unused(&x);
{Stack->push<file*>(File); return;}
}
// Set file to read an array1 (1 Int size followed by a 1d array)
-#line 5905 "runtime.in"
+#line 5921 "runtime.in"
// file* read1(file *File);
-void gen511(stack *Stack)
+void gen512(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5906 "runtime.in"
+#line 5922 "runtime.in"
File->dimension(-2);
{Stack->push<file*>(File); return;}
}
// Set file to read an array2 (2 Int sizes followed by a 2d array)
-#line 5912 "runtime.in"
+#line 5928 "runtime.in"
// file* read2(file *File);
-void gen512(stack *Stack)
+void gen513(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5913 "runtime.in"
+#line 5929 "runtime.in"
File->dimension(-2,-2);
{Stack->push<file*>(File); return;}
}
// Set file to read an array3 (3 Int sizes followed by a 3d array)
-#line 5919 "runtime.in"
+#line 5935 "runtime.in"
// file* read3(file *File);
-void gen513(stack *Stack)
+void gen514(stack *Stack)
{
file * File=vm::pop<file *>(Stack);
-#line 5920 "runtime.in"
+#line 5936 "runtime.in"
File->dimension(-2,-2,-2);
{Stack->push<file*>(File); return;}
}
// Return the last n lines of the history named name.
-#line 5926 "runtime.in"
+#line 5942 "runtime.in"
// stringarray* history(string name, Int n=1);
-void gen514(stack *Stack)
+void gen515(stack *Stack)
{
Int n=vm::pop<Int>(Stack,1);
string name=vm::pop<string>(Stack);
-#line 5927 "runtime.in"
+#line 5943 "runtime.in"
#if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES)
bool newhistory=historyMap.find(name) == historyMap.end();
@@ -8283,12 +8304,12 @@ void gen514(stack *Stack)
}
// Return the last n lines of the interactive history.
-#line 5959 "runtime.in"
+#line 5975 "runtime.in"
// stringarray* history(Int n=0);
-void gen515(stack *Stack)
+void gen516(stack *Stack)
{
Int n=vm::pop<Int>(Stack,0);
-#line 5960 "runtime.in"
+#line 5976 "runtime.in"
#if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES)
{Stack->push<stringarray*>(get_history(n)); return;}
#else
@@ -8299,14 +8320,14 @@ void gen515(stack *Stack)
// Prompt for a string using prompt, the GNU readline library, and a
// local history named name.
-#line 5971 "runtime.in"
+#line 5987 "runtime.in"
// string readline(string prompt=emptystring, string name=emptystring, bool tabcompletion=false);
-void gen516(stack *Stack)
+void gen517(stack *Stack)
{
bool tabcompletion=vm::pop<bool>(Stack,false);
string name=vm::pop<string>(Stack,emptystring);
string prompt=vm::pop<string>(Stack,emptystring);
-#line 5973 "runtime.in"
+#line 5989 "runtime.in"
if(!isatty(STDIN_FILENO))
{Stack->push<string>(emptystring); return;}
#if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES)
@@ -8348,14 +8369,14 @@ void gen516(stack *Stack)
// Save a string in a local history named name.
// If store=true, store the local history in the file historyfilename(name).
-#line 6015 "runtime.in"
+#line 6031 "runtime.in"
// void saveline(string name, string value, bool store=true);
-void gen517(stack *Stack)
+void gen518(stack *Stack)
{
bool store=vm::pop<bool>(Stack,true);
string value=vm::pop<string>(Stack);
string name=vm::pop<string>(Stack);
-#line 6016 "runtime.in"
+#line 6032 "runtime.in"
#if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES)
store_history(&history_save);
bool newhistory=historyMap.find(name) == historyMap.end();
@@ -8382,11 +8403,11 @@ void gen517(stack *Stack)
#endif
}
-#line 6043 "runtime.in"
+#line 6059 "runtime.in"
// void generate_random_backtrace();
-void gen518(stack *)
+void gen519(stack *)
{
-#line 6044 "runtime.in"
+#line 6060 "runtime.in"
#if defined(USEGC) && defined(GC_DEBUG) && defined(GC_BACKTRACE)
GC_generate_random_backtrace();
#else
@@ -8394,12 +8415,12 @@ void gen518(stack *)
#endif
}
-#line 6052 "runtime.in"
+#line 6068 "runtime.in"
// void print_random_addresses(Int n=1);
-void gen519(stack *Stack)
+void gen520(stack *Stack)
{
Int n=vm::pop<Int>(Stack,1);
-#line 6053 "runtime.in"
+#line 6069 "runtime.in"
#if defined(USEGC) && defined(GC_DEBUG) && defined(GC_BACKTRACE)
GC_gcollect();
for (Int i=0; i < n; ++i)
@@ -8416,876 +8437,878 @@ namespace trans {
void gen_base_venv(venv &ve)
{
-#line 1167 "runtime.in"
+#line 1177 "runtime.in"
addFunc(ve, run::gen8, primBoolean(), "!", formal(primBoolean(), "b", false, false));
-#line 1195 "runtime.in"
+#line 1205 "runtime.in"
addFunc(ve, run::gen13, primInt(), "AND", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
-#line 1203 "runtime.in"
+#line 1213 "runtime.in"
addFunc(ve, run::gen14, primInt(), "OR", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
-#line 1208 "runtime.in"
+#line 1218 "runtime.in"
addFunc(ve, run::gen15, primInt(), "XOR", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
-#line 1213 "runtime.in"
+#line 1223 "runtime.in"
addFunc(ve, run::gen16, primInt(), "NOT", formal(primInt(), "a", false, false));
-#line 1244 "runtime.in"
+#line 1254 "runtime.in"
addFunc(ve, run::gen21, primBoolean(), "empty", formal(primPicture(), "f", false, false));
-#line 1249 "runtime.in"
+#line 1259 "runtime.in"
addFunc(ve, run::gen22, primVoid(), "erase", formal(primPicture(), "f", false, false));
-#line 1254 "runtime.in"
+#line 1264 "runtime.in"
addFunc(ve, run::gen23, primPair(), "min", formal(primPicture(), "f", false, false));
-#line 1259 "runtime.in"
+#line 1269 "runtime.in"
addFunc(ve, run::gen24, primPair(), "max", formal(primPicture(), "f", false, false));
-#line 1264 "runtime.in"
+#line 1274 "runtime.in"
addFunc(ve, run::gen25, primVoid(), "label", formal(primPicture(), "f", false, false), formal(primString(), "s", false, false), formal(primString(), "size", false, false), formal(primTransform(), "t", false, false), formal(primPair(), "position", false, false), formal(primPair(), "align", false, false), formal(primPen(), "p", false, false));
-#line 1270 "runtime.in"
+#line 1280 "runtime.in"
addFunc(ve, run::gen26, primBoolean(), "labels", formal(primPicture(), "f", false, false));
-#line 1275 "runtime.in"
- addFunc(ve, run::gen27, pathArray() , "_texpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false));
-#line 1390 "runtime.in"
- addFunc(ve, run::gen28, pathArray() , "textpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false));
-#line 1462 "runtime.in"
- addFunc(ve, run::gen29, pathArray() , "_strokepath", formal(primPath(), "g", false, false), formal(primPen(), "p", true, false));
-#line 1486 "runtime.in"
- addFunc(ve, run::gen30, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath(), "g", false, false), formal(primPen(), "p", false, false));
-#line 1491 "runtime.in"
- addFunc(ve, run::gen31, primVoid(), "fill", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primPen(), "p", true, false), formal(primBoolean(), "copy", true, false));
-#line 1497 "runtime.in"
- addFunc(ve, run::gen32, primVoid(), "latticeshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(primBoolean(), "copy", true, false));
-#line 1504 "runtime.in"
- addFunc(ve, run::gen33, primVoid(), "axialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primBoolean(), "copy", true, false));
-#line 1511 "runtime.in"
- addFunc(ve, run::gen34, primVoid(), "radialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primReal(), "ra", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primReal(), "rb", false, false), formal(primBoolean(), "copy", true, false));
-#line 1518 "runtime.in"
- addFunc(ve, run::gen35, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(pairArray(), "z", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false));
-#line 1529 "runtime.in"
- addFunc(ve, run::gen36, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false));
-#line 1553 "runtime.in"
- addFunc(ve, run::gen37, primVoid(), "tensorshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(pathArray() , "b", true, false), formal(pairArray2(), "z", true, false), formal(primBoolean(), "copy", true, false));
-#line 1568 "runtime.in"
- addFunc(ve, run::gen38, primVoid(), "functionshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primString() , "shader", true, false), formal(primBoolean(), "copy", true, false));
-#line 1576 "runtime.in"
- addFunc(ve, run::gen39, primVoid(), "clip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false));
-#line 1586 "runtime.in"
- addFunc(ve, run::gen40, primVoid(), "beginclip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false));
-#line 1593 "runtime.in"
- addFunc(ve, run::gen41, primVoid(), "endclip", formal(primPicture(), "f", false, false));
-#line 1598 "runtime.in"
- addFunc(ve, run::gen42, primVoid(), "gsave", formal(primPicture(), "f", false, false));
-#line 1603 "runtime.in"
- addFunc(ve, run::gen43, primVoid(), "grestore", formal(primPicture(), "f", false, false));
-#line 1608 "runtime.in"
- addFunc(ve, run::gen44, primVoid(), "begingroup", formal(primPicture(), "f", false, false));
-#line 1613 "runtime.in"
- addFunc(ve, run::gen45, primVoid(), "endgroup", formal(primPicture(), "f", false, false));
-#line 1618 "runtime.in"
- addFunc(ve, run::gen46, primVoid(), "add", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false));
-#line 1623 "runtime.in"
- addFunc(ve, run::gen47, primVoid(), "prepend", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false));
-#line 1628 "runtime.in"
- addFunc(ve, run::gen48, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false));
-#line 1633 "runtime.in"
- addFunc(ve, run::gen49, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false));
-#line 1638 "runtime.in"
- addFunc(ve, run::gen50, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false));
-#line 1643 "runtime.in"
- addFunc(ve, run::gen51, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false));
-#line 1648 "runtime.in"
- addFunc(ve, run::gen52, primVoid(), "texpreamble", formal(primString() , "s", false, false));
-#line 1656 "runtime.in"
- addFunc(ve, run::gen53, primVoid(), "deletepreamble");
-#line 1663 "runtime.in"
- addFunc(ve, run::gen54, primVoid(), "_labelpath", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primString() , "size", false, false), formal(primPath(), "g", false, false), formal(primString() , "justify", false, false), formal(primPair(), "offset", false, false), formal(primPen(), "p", false, false));
-#line 1669 "runtime.in"
- addFunc(ve, run::gen55, primVoid(), "texreset");
-#line 1677 "runtime.in"
- addFunc(ve, run::gen56, primVoid(), "layer", formal(primPicture(), "f", false, false));
-#line 1682 "runtime.in"
- addFunc(ve, run::gen57, primVoid(), "newpage", formal(primPicture(), "f", false, false));
-#line 1687 "runtime.in"
- addFunc(ve, run::gen58, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(realArray2(), "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(penArray() , "palette", true, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false));
-#line 1697 "runtime.in"
- addFunc(ve, run::gen59, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(penArray2() , "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false));
-#line 1704 "runtime.in"
- addFunc(ve, run::gen60, primString() , "nativeformat");
-#line 1709 "runtime.in"
- addFunc(ve, run::gen61, primBoolean(), "latex");
-#line 1714 "runtime.in"
- addFunc(ve, run::gen62, primBoolean(), "pdf");
-#line 1719 "runtime.in"
- addFunc(ve, run::gen63, primVoid(), "shipout", formal(primString() , "prefix", true, false), formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primString() , "format", true, false), formal(primBoolean(), "wait", true, false), formal(primBoolean(), "view", true, false), formal(transformFunction(), "xform", false, false));
-#line 1765 "runtime.in"
- addFunc(ve, run::gen64, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false), formal(primString() , "format", true, false), formal(primReal(), "width", false, false), formal(primReal(), "height", false, false), formal(primReal(), "angle", false, false), formal(primTriple(), "m", false, false), formal(primTriple(), "m", false, false), formal(realArray2(), "t", false, false), formal(realArray(), "background", false, false), formal(tripleArray(), "lights", false, false), formal(realArray2(), "diffuse", false, false), formal(realArray2(), "ambient", false, false), formal(realArray2(), "specular", false, false), formal(primBoolean(), "viewportlighting", false, false), formal(primBoolean(), "view", true, false));
+#line 1285 "runtime.in"
+ addFunc(ve, run::gen27, realArray(), "texsize", formal(primString(), "s", false, false), formal(primPen(), "p", true, false));
+#line 1305 "runtime.in"
+ addFunc(ve, run::gen28, pathArray() , "_texpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false));
+#line 1413 "runtime.in"
+ addFunc(ve, run::gen29, pathArray() , "textpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false));
+#line 1477 "runtime.in"
+ addFunc(ve, run::gen30, pathArray() , "_strokepath", formal(primPath(), "g", false, false), formal(primPen(), "p", true, false));
+#line 1502 "runtime.in"
+ addFunc(ve, run::gen31, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath(), "g", false, false), formal(primPen(), "p", false, false));
+#line 1507 "runtime.in"
+ addFunc(ve, run::gen32, primVoid(), "fill", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primPen(), "p", true, false), formal(primBoolean(), "copy", true, false));
+#line 1513 "runtime.in"
+ addFunc(ve, run::gen33, primVoid(), "latticeshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(primBoolean(), "copy", true, false));
+#line 1520 "runtime.in"
+ addFunc(ve, run::gen34, primVoid(), "axialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primBoolean(), "copy", true, false));
+#line 1527 "runtime.in"
+ addFunc(ve, run::gen35, primVoid(), "radialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primReal(), "ra", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primReal(), "rb", false, false), formal(primBoolean(), "copy", true, false));
+#line 1534 "runtime.in"
+ addFunc(ve, run::gen36, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(pairArray(), "z", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false));
+#line 1545 "runtime.in"
+ addFunc(ve, run::gen37, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false));
+#line 1569 "runtime.in"
+ addFunc(ve, run::gen38, primVoid(), "tensorshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(pathArray() , "b", true, false), formal(pairArray2(), "z", true, false), formal(primBoolean(), "copy", true, false));
+#line 1584 "runtime.in"
+ addFunc(ve, run::gen39, primVoid(), "functionshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primString() , "shader", true, false), formal(primBoolean(), "copy", true, false));
+#line 1592 "runtime.in"
+ addFunc(ve, run::gen40, primVoid(), "clip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false));
+#line 1602 "runtime.in"
+ addFunc(ve, run::gen41, primVoid(), "beginclip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false));
+#line 1609 "runtime.in"
+ addFunc(ve, run::gen42, primVoid(), "endclip", formal(primPicture(), "f", false, false));
+#line 1614 "runtime.in"
+ addFunc(ve, run::gen43, primVoid(), "gsave", formal(primPicture(), "f", false, false));
+#line 1619 "runtime.in"
+ addFunc(ve, run::gen44, primVoid(), "grestore", formal(primPicture(), "f", false, false));
+#line 1624 "runtime.in"
+ addFunc(ve, run::gen45, primVoid(), "begingroup", formal(primPicture(), "f", false, false));
+#line 1629 "runtime.in"
+ addFunc(ve, run::gen46, primVoid(), "endgroup", formal(primPicture(), "f", false, false));
+#line 1634 "runtime.in"
+ addFunc(ve, run::gen47, primVoid(), "add", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false));
+#line 1639 "runtime.in"
+ addFunc(ve, run::gen48, primVoid(), "prepend", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false));
+#line 1644 "runtime.in"
+ addFunc(ve, run::gen49, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false));
+#line 1649 "runtime.in"
+ addFunc(ve, run::gen50, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false));
+#line 1654 "runtime.in"
+ addFunc(ve, run::gen51, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false));
+#line 1659 "runtime.in"
+ addFunc(ve, run::gen52, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false));
+#line 1664 "runtime.in"
+ addFunc(ve, run::gen53, primVoid(), "texpreamble", formal(primString() , "s", false, false));
+#line 1672 "runtime.in"
+ addFunc(ve, run::gen54, primVoid(), "deletepreamble");
+#line 1679 "runtime.in"
+ addFunc(ve, run::gen55, primVoid(), "_labelpath", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primString() , "size", false, false), formal(primPath(), "g", false, false), formal(primString() , "justify", false, false), formal(primPair(), "offset", false, false), formal(primPen(), "p", false, false));
+#line 1685 "runtime.in"
+ addFunc(ve, run::gen56, primVoid(), "texreset");
+#line 1693 "runtime.in"
+ addFunc(ve, run::gen57, primVoid(), "layer", formal(primPicture(), "f", false, false));
+#line 1698 "runtime.in"
+ addFunc(ve, run::gen58, primVoid(), "newpage", formal(primPicture(), "f", false, false));
+#line 1703 "runtime.in"
+ addFunc(ve, run::gen59, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(realArray2(), "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(penArray() , "palette", true, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false));
+#line 1713 "runtime.in"
+ addFunc(ve, run::gen60, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(penArray2() , "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false));
+#line 1720 "runtime.in"
+ addFunc(ve, run::gen61, primString() , "nativeformat");
+#line 1725 "runtime.in"
+ addFunc(ve, run::gen62, primBoolean(), "latex");
+#line 1730 "runtime.in"
+ addFunc(ve, run::gen63, primBoolean(), "pdf");
+#line 1735 "runtime.in"
+ addFunc(ve, run::gen64, primVoid(), "shipout", formal(primString() , "prefix", true, false), formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primString() , "format", true, false), formal(primBoolean(), "wait", true, false), formal(primBoolean(), "view", true, false), formal(transformFunction(), "xform", false, false));
#line 1781 "runtime.in"
- addFunc(ve, run::gen65, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false));
-#line 1786 "runtime.in"
- addFunc(ve, run::gen66, primVoid(), "deconstruct", formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primReal(), "magnification", true, false), formal(transformFunction(), "xform", false, false));
-#line 1919 "runtime.in"
- addFunc(ve, run::gen67, primVoid(), "purge", formal(primInt(), "divisor", true, false));
-#line 1932 "runtime.in"
- addFunc(ve, run::gen69, primBoolean(), "==", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
-#line 1937 "runtime.in"
- addFunc(ve, run::gen70, primBoolean(), "!=", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
-#line 1942 "runtime.in"
- addFunc(ve, run::gen71, primPen(), "+", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
-#line 1947 "runtime.in"
- addFunc(ve, run::gen72, primPen(), "*", formal(primReal(), "a", false, false), formal(primPen(), "b", false, false));
-#line 1952 "runtime.in"
- addFunc(ve, run::gen73, primPen(), "*", formal(primPen(), "a", false, false), formal(primReal(), "b", false, false));
-#line 1957 "runtime.in"
- addFunc(ve, run::gen74, primPair(), "max", formal(primPen(), "p", false, false));
-#line 1962 "runtime.in"
- addFunc(ve, run::gen75, primPair(), "min", formal(primPen(), "p", false, false));
-#line 1967 "runtime.in"
- addFunc(ve, run::gen76, primVoid(), "resetdefaultpen");
+ addFunc(ve, run::gen65, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false), formal(primString() , "format", true, false), formal(primReal(), "width", false, false), formal(primReal(), "height", false, false), formal(primReal(), "angle", false, false), formal(primTriple(), "m", false, false), formal(primTriple(), "m", false, false), formal(realArray2(), "t", false, false), formal(realArray(), "background", false, false), formal(tripleArray(), "lights", false, false), formal(realArray2(), "diffuse", false, false), formal(realArray2(), "ambient", false, false), formal(realArray2(), "specular", false, false), formal(primBoolean(), "viewportlighting", false, false), formal(primBoolean(), "view", true, false));
+#line 1797 "runtime.in"
+ addFunc(ve, run::gen66, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false));
+#line 1802 "runtime.in"
+ addFunc(ve, run::gen67, primVoid(), "deconstruct", formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primReal(), "magnification", true, false), formal(transformFunction(), "xform", false, false));
+#line 1935 "runtime.in"
+ addFunc(ve, run::gen68, primVoid(), "purge", formal(primInt(), "divisor", true, false));
+#line 1948 "runtime.in"
+ addFunc(ve, run::gen70, primBoolean(), "==", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
+#line 1953 "runtime.in"
+ addFunc(ve, run::gen71, primBoolean(), "!=", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
+#line 1958 "runtime.in"
+ addFunc(ve, run::gen72, primPen(), "+", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
+#line 1963 "runtime.in"
+ addFunc(ve, run::gen73, primPen(), "*", formal(primReal(), "a", false, false), formal(primPen(), "b", false, false));
+#line 1968 "runtime.in"
+ addFunc(ve, run::gen74, primPen(), "*", formal(primPen(), "a", false, false), formal(primReal(), "b", false, false));
#line 1973 "runtime.in"
- addFunc(ve, run::gen77, primVoid(), "defaultpen", formal(primPen(), "p", false, false));
+ addFunc(ve, run::gen75, primPair(), "max", formal(primPen(), "p", false, false));
#line 1978 "runtime.in"
- addFunc(ve, run::gen78, primPen(), "defaultpen");
+ addFunc(ve, run::gen76, primPair(), "min", formal(primPen(), "p", false, false));
#line 1983 "runtime.in"
- addFunc(ve, run::gen79, primBoolean(), "invisible", formal(primPen(), "p", false, false));
-#line 1988 "runtime.in"
- addFunc(ve, run::gen80, primPen(), "invisible");
-#line 1993 "runtime.in"
- addFunc(ve, run::gen81, primPen(), "gray", formal(primPen(), "p", false, false));
+ addFunc(ve, run::gen77, primVoid(), "resetdefaultpen");
+#line 1989 "runtime.in"
+ addFunc(ve, run::gen78, primVoid(), "defaultpen", formal(primPen(), "p", false, false));
+#line 1994 "runtime.in"
+ addFunc(ve, run::gen79, primPen(), "defaultpen");
#line 1999 "runtime.in"
- addFunc(ve, run::gen82, primPen(), "rgb", formal(primPen(), "p", false, false));
-#line 2005 "runtime.in"
- addFunc(ve, run::gen83, primPen(), "cmyk", formal(primPen(), "p", false, false));
-#line 2011 "runtime.in"
- addFunc(ve, run::gen84, primPen(), "interp", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false), formal(primReal(), "t", false, false));
-#line 2016 "runtime.in"
- addFunc(ve, run::gen85, primPen(), "rgb", formal(primReal(), "r", false, false), formal(primReal(), "g", false, false), formal(primReal(), "b", false, false));
+ addFunc(ve, run::gen80, primBoolean(), "invisible", formal(primPen(), "p", false, false));
+#line 2004 "runtime.in"
+ addFunc(ve, run::gen81, primPen(), "invisible");
+#line 2009 "runtime.in"
+ addFunc(ve, run::gen82, primPen(), "gray", formal(primPen(), "p", false, false));
+#line 2015 "runtime.in"
+ addFunc(ve, run::gen83, primPen(), "rgb", formal(primPen(), "p", false, false));
#line 2021 "runtime.in"
- addFunc(ve, run::gen86, primPen(), "cmyk", formal(primReal(), "c", false, false), formal(primReal(), "m", false, false), formal(primReal(), "y", false, false), formal(primReal(), "k", false, false));
-#line 2026 "runtime.in"
- addFunc(ve, run::gen87, primPen(), "gray", formal(primReal(), "gray", false, false));
-#line 2031 "runtime.in"
- addFunc(ve, run::gen88, realArray(), "colors", formal(primPen(), "p", false, false));
-#line 2059 "runtime.in"
- addFunc(ve, run::gen89, primString() , "colorspace", formal(primPen(), "p", false, false));
-#line 2066 "runtime.in"
- addFunc(ve, run::gen90, primPen(), "pattern", formal(primString(), "s", false, false));
-#line 2071 "runtime.in"
- addFunc(ve, run::gen91, primString() , "pattern", formal(primPen(), "p", false, false));
-#line 2076 "runtime.in"
- addFunc(ve, run::gen92, primPen(), "fillrule", formal(primInt(), "n", false, false));
-#line 2081 "runtime.in"
- addFunc(ve, run::gen93, primInt(), "fillrule", formal(primPen(), "p", false, false));
-#line 2086 "runtime.in"
- addFunc(ve, run::gen94, primPen(), "opacity", formal(primReal(), "opacity", true, false), formal(primString() , "blend", true, false));
-#line 2096 "runtime.in"
- addFunc(ve, run::gen95, primReal(), "opacity", formal(primPen(), "p", false, false));
-#line 2101 "runtime.in"
- addFunc(ve, run::gen96, primString() , "blend", formal(primPen(), "p", false, false));
-#line 2106 "runtime.in"
- addFunc(ve, run::gen97, primPen(), "linetype", formal(primString(), "s", false, false), formal(primReal(), "offset", true, false), formal(primBoolean(), "scale", true, false), formal(primBoolean(), "adjust", true, false));
-#line 2111 "runtime.in"
- addFunc(ve, run::gen98, primString() , "linetype", formal(primPen(), "p", true, false));
-#line 2116 "runtime.in"
- addFunc(ve, run::gen99, primReal(), "offset", formal(primPen(), "p", false, false));
-#line 2121 "runtime.in"
- addFunc(ve, run::gen100, primBoolean(), "scale", formal(primPen(), "p", false, false));
-#line 2126 "runtime.in"
- addFunc(ve, run::gen101, primBoolean(), "adjust", formal(primPen(), "p", false, false));
-#line 2131 "runtime.in"
- addFunc(ve, run::gen102, primPen(), "adjust", formal(primPen(), "p", false, false), formal(primReal(), "arclength", false, false), formal(primBoolean(), "cyclic", false, false));
-#line 2136 "runtime.in"
- addFunc(ve, run::gen103, primPen(), "linecap", formal(primInt(), "n", false, false));
-#line 2141 "runtime.in"
- addFunc(ve, run::gen104, primInt(), "linecap", formal(primPen(), "p", true, false));
-#line 2146 "runtime.in"
- addFunc(ve, run::gen105, primPen(), "linejoin", formal(primInt(), "n", false, false));
-#line 2151 "runtime.in"
- addFunc(ve, run::gen106, primInt(), "linejoin", formal(primPen(), "p", true, false));
-#line 2156 "runtime.in"
- addFunc(ve, run::gen107, primPen(), "miterlimit", formal(primReal(), "x", false, false));
-#line 2161 "runtime.in"
- addFunc(ve, run::gen108, primReal(), "miterlimit", formal(primPen(), "p", true, false));
-#line 2166 "runtime.in"
- addFunc(ve, run::gen109, primPen(), "linewidth", formal(primReal(), "x", false, false));
-#line 2171 "runtime.in"
- addFunc(ve, run::gen110, primReal(), "linewidth", formal(primPen(), "p", true, false));
-#line 2176 "runtime.in"
- addFunc(ve, run::gen111, primPen(), "fontcommand", formal(primString(), "s", false, false));
-#line 2181 "runtime.in"
- addFunc(ve, run::gen112, primString() , "font", formal(primPen(), "p", true, false));
-#line 2186 "runtime.in"
- addFunc(ve, run::gen113, primPen(), "fontsize", formal(primReal(), "size", false, false), formal(primReal(), "lineskip", false, false));
+ addFunc(ve, run::gen84, primPen(), "cmyk", formal(primPen(), "p", false, false));
+#line 2027 "runtime.in"
+ addFunc(ve, run::gen85, primPen(), "interp", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false), formal(primReal(), "t", false, false));
+#line 2032 "runtime.in"
+ addFunc(ve, run::gen86, primPen(), "rgb", formal(primReal(), "r", false, false), formal(primReal(), "g", false, false), formal(primReal(), "b", false, false));
+#line 2037 "runtime.in"
+ addFunc(ve, run::gen87, primPen(), "cmyk", formal(primReal(), "c", false, false), formal(primReal(), "m", false, false), formal(primReal(), "y", false, false), formal(primReal(), "k", false, false));
+#line 2042 "runtime.in"
+ addFunc(ve, run::gen88, primPen(), "gray", formal(primReal(), "gray", false, false));
+#line 2047 "runtime.in"
+ addFunc(ve, run::gen89, realArray(), "colors", formal(primPen(), "p", false, false));
+#line 2075 "runtime.in"
+ addFunc(ve, run::gen90, primString() , "colorspace", formal(primPen(), "p", false, false));
+#line 2082 "runtime.in"
+ addFunc(ve, run::gen91, primPen(), "pattern", formal(primString(), "s", false, false));
+#line 2087 "runtime.in"
+ addFunc(ve, run::gen92, primString() , "pattern", formal(primPen(), "p", false, false));
+#line 2092 "runtime.in"
+ addFunc(ve, run::gen93, primPen(), "fillrule", formal(primInt(), "n", false, false));
+#line 2097 "runtime.in"
+ addFunc(ve, run::gen94, primInt(), "fillrule", formal(primPen(), "p", false, false));
+#line 2102 "runtime.in"
+ addFunc(ve, run::gen95, primPen(), "opacity", formal(primReal(), "opacity", true, false), formal(primString() , "blend", true, false));
+#line 2112 "runtime.in"
+ addFunc(ve, run::gen96, primReal(), "opacity", formal(primPen(), "p", false, false));
+#line 2117 "runtime.in"
+ addFunc(ve, run::gen97, primString() , "blend", formal(primPen(), "p", false, false));
+#line 2122 "runtime.in"
+ addFunc(ve, run::gen98, primPen(), "linetype", formal(primString(), "s", false, false), formal(primReal(), "offset", true, false), formal(primBoolean(), "scale", true, false), formal(primBoolean(), "adjust", true, false));
+#line 2127 "runtime.in"
+ addFunc(ve, run::gen99, primString() , "linetype", formal(primPen(), "p", true, false));
+#line 2132 "runtime.in"
+ addFunc(ve, run::gen100, primReal(), "offset", formal(primPen(), "p", false, false));
+#line 2137 "runtime.in"
+ addFunc(ve, run::gen101, primBoolean(), "scale", formal(primPen(), "p", false, false));
+#line 2142 "runtime.in"
+ addFunc(ve, run::gen102, primBoolean(), "adjust", formal(primPen(), "p", false, false));
+#line 2147 "runtime.in"
+ addFunc(ve, run::gen103, primPen(), "adjust", formal(primPen(), "p", false, false), formal(primReal(), "arclength", false, false), formal(primBoolean(), "cyclic", false, false));
+#line 2152 "runtime.in"
+ addFunc(ve, run::gen104, primPen(), "linecap", formal(primInt(), "n", false, false));
+#line 2157 "runtime.in"
+ addFunc(ve, run::gen105, primInt(), "linecap", formal(primPen(), "p", true, false));
+#line 2162 "runtime.in"
+ addFunc(ve, run::gen106, primPen(), "linejoin", formal(primInt(), "n", false, false));
+#line 2167 "runtime.in"
+ addFunc(ve, run::gen107, primInt(), "linejoin", formal(primPen(), "p", true, false));
+#line 2172 "runtime.in"
+ addFunc(ve, run::gen108, primPen(), "miterlimit", formal(primReal(), "x", false, false));
+#line 2177 "runtime.in"
+ addFunc(ve, run::gen109, primReal(), "miterlimit", formal(primPen(), "p", true, false));
+#line 2182 "runtime.in"
+ addFunc(ve, run::gen110, primPen(), "linewidth", formal(primReal(), "x", false, false));
+#line 2187 "runtime.in"
+ addFunc(ve, run::gen111, primReal(), "linewidth", formal(primPen(), "p", true, false));
#line 2192 "runtime.in"
- addFunc(ve, run::gen114, primReal(), "fontsize", formal(primPen(), "p", true, false));
+ addFunc(ve, run::gen112, primPen(), "fontcommand", formal(primString(), "s", false, false));
#line 2197 "runtime.in"
- addFunc(ve, run::gen115, primReal(), "lineskip", formal(primPen(), "p", true, false));
+ addFunc(ve, run::gen113, primString() , "font", formal(primPen(), "p", true, false));
#line 2202 "runtime.in"
- addFunc(ve, run::gen116, primPen(), "overwrite", formal(primInt(), "n", false, false));
+ addFunc(ve, run::gen114, primPen(), "fontsize", formal(primReal(), "size", false, false), formal(primReal(), "lineskip", false, false));
#line 2208 "runtime.in"
- addFunc(ve, run::gen117, primInt(), "overwrite", formal(primPen(), "p", true, false));
+ addFunc(ve, run::gen115, primReal(), "fontsize", formal(primPen(), "p", true, false));
#line 2213 "runtime.in"
- addFunc(ve, run::gen118, primPen(), "basealign", formal(primInt(), "n", false, false));
+ addFunc(ve, run::gen116, primReal(), "lineskip", formal(primPen(), "p", true, false));
#line 2218 "runtime.in"
- addFunc(ve, run::gen119, primInt(), "basealign", formal(primPen(), "p", true, false));
-#line 2223 "runtime.in"
- addFunc(ve, run::gen120, primTransform(), "transform", formal(primPen(), "p", false, false));
-#line 2228 "runtime.in"
- addFunc(ve, run::gen121, primPath(), "nib", formal(primPen(), "p", false, false));
-#line 2233 "runtime.in"
- addFunc(ve, run::gen122, primPen(), "makepen", formal(primPath(), "p", false, false));
-#line 2238 "runtime.in"
- addFunc(ve, run::gen123, primPen(), "colorless", formal(primPen(), "p", false, false));
+ addFunc(ve, run::gen117, primPen(), "overwrite", formal(primInt(), "n", false, false));
+#line 2224 "runtime.in"
+ addFunc(ve, run::gen118, primInt(), "overwrite", formal(primPen(), "p", true, false));
+#line 2229 "runtime.in"
+ addFunc(ve, run::gen119, primPen(), "basealign", formal(primInt(), "n", false, false));
+#line 2234 "runtime.in"
+ addFunc(ve, run::gen120, primInt(), "basealign", formal(primPen(), "p", true, false));
+#line 2239 "runtime.in"
+ addFunc(ve, run::gen121, primTransform(), "transform", formal(primPen(), "p", false, false));
#line 2244 "runtime.in"
- addFunc(ve, run::gen124, primBoolean(), "interactive");
-#line 2251 "runtime.in"
- addFunc(ve, run::gen125, primBoolean(), "uptodate");
-#line 2256 "runtime.in"
- addFunc(ve, run::gen126, primInt(), "system", formal(primString() , "s", false, false));
-#line 2266 "runtime.in"
- addFunc(ve, run::gen127, primBoolean(), "view");
-#line 2271 "runtime.in"
- addFunc(ve, run::gen128, primString() , "asydir");
-#line 2276 "runtime.in"
- addFunc(ve, run::gen129, primString() , "locale", formal(primString() , "s", true, false));
+ addFunc(ve, run::gen122, primPath(), "nib", formal(primPen(), "p", false, false));
+#line 2249 "runtime.in"
+ addFunc(ve, run::gen123, primPen(), "makepen", formal(primPath(), "p", false, false));
+#line 2254 "runtime.in"
+ addFunc(ve, run::gen124, primPen(), "colorless", formal(primPen(), "p", false, false));
+#line 2260 "runtime.in"
+ addFunc(ve, run::gen125, primBoolean(), "interactive");
+#line 2267 "runtime.in"
+ addFunc(ve, run::gen126, primBoolean(), "uptodate");
+#line 2272 "runtime.in"
+ addFunc(ve, run::gen127, primInt(), "system", formal(primString() , "s", false, false));
#line 2282 "runtime.in"
- addFunc(ve, run::gen130, primVoid(), "abort", formal(primString() , "s", true, false));
-#line 2288 "runtime.in"
- addFunc(ve, run::gen131, primVoid(), "exit");
-#line 2293 "runtime.in"
- addFunc(ve, run::gen132, primVoid(), "assert", formal(primBoolean(), "b", false, false), formal(primString() , "s", true, false));
+ addFunc(ve, run::gen128, primBoolean(), "view");
+#line 2287 "runtime.in"
+ addFunc(ve, run::gen129, primString() , "asydir");
+#line 2292 "runtime.in"
+ addFunc(ve, run::gen130, primString() , "locale", formal(primString() , "s", true, false));
+#line 2298 "runtime.in"
+ addFunc(ve, run::gen131, primVoid(), "abort", formal(primString() , "s", true, false));
#line 2304 "runtime.in"
- addFunc(ve, run::gen133, primVoid(), "sleep", formal(primInt(), "seconds", false, false));
-#line 2310 "runtime.in"
- addFunc(ve, run::gen134, primVoid(), "usleep", formal(primInt(), "microseconds", false, false));
-#line 2316 "runtime.in"
- addFunc(ve, run::gen135, primVoid(), "_eval", formal(primString(), "s", false, false), formal(primBoolean(), "embedded", false, false), formal(primBoolean(), "interactivewrite", true, false));
-#line 2331 "runtime.in"
- addFunc(ve, run::gen136, primVoid(), "_eval", formal(primCode(), "s", false, false), formal(primBoolean(), "embedded", false, false));
-#line 2349 "runtime.in"
- addFunc(ve, run::gen137, primString() , "location");
-#line 2361 "runtime.in"
- addFunc(ve, run::gen139, primString() , "cd", formal(primString() , "s", true, false));
-#line 2367 "runtime.in"
- addFunc(ve, run::gen140, primVoid(), "list", formal(primString(), "s", false, false), formal(primBoolean(), "imports", true, false));
-#line 2384 "runtime.in"
- addFunc(ve, run::gen142, primBoolean(), "==", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false));
-#line 2389 "runtime.in"
- addFunc(ve, run::gen143, primBoolean(), "!=", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false));
-#line 2394 "runtime.in"
- addFunc(ve, run::gen144, primPair(), "point", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2399 "runtime.in"
- addFunc(ve, run::gen145, primPair(), "point", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2404 "runtime.in"
- addFunc(ve, run::gen146, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2409 "runtime.in"
- addFunc(ve, run::gen147, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2414 "runtime.in"
- addFunc(ve, run::gen148, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2419 "runtime.in"
- addFunc(ve, run::gen149, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2424 "runtime.in"
- addFunc(ve, run::gen150, primPair(), "dir", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false));
-#line 2429 "runtime.in"
- addFunc(ve, run::gen151, primPair(), "dir", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false));
-#line 2434 "runtime.in"
- addFunc(ve, run::gen152, primPair(), "accel", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false));
-#line 2439 "runtime.in"
- addFunc(ve, run::gen153, primPair(), "accel", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2444 "runtime.in"
- addFunc(ve, run::gen154, primReal(), "radius", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2456 "runtime.in"
- addFunc(ve, run::gen155, primPath(), "reverse", formal(primPath(), "p", false, false));
-#line 2461 "runtime.in"
- addFunc(ve, run::gen156, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
-#line 2466 "runtime.in"
- addFunc(ve, run::gen157, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false));
-#line 2471 "runtime.in"
- addFunc(ve, run::gen158, primPath(), "nurb", formal(primPair(), "z0", false, false), formal(primPair(), "z1", false, false), formal(primPair(), "z2", false, false), formal(primPair(), "z3", false, false), formal(primReal(), "w0", false, false), formal(primReal(), "w1", false, false), formal(primReal(), "w2", false, false), formal(primReal(), "w3", false, false), formal(primInt(), "m", false, false));
+ addFunc(ve, run::gen132, primVoid(), "exit");
+#line 2309 "runtime.in"
+ addFunc(ve, run::gen133, primVoid(), "assert", formal(primBoolean(), "b", false, false), formal(primString() , "s", true, false));
+#line 2320 "runtime.in"
+ addFunc(ve, run::gen134, primVoid(), "sleep", formal(primInt(), "seconds", false, false));
+#line 2326 "runtime.in"
+ addFunc(ve, run::gen135, primVoid(), "usleep", formal(primInt(), "microseconds", false, false));
+#line 2332 "runtime.in"
+ addFunc(ve, run::gen136, primVoid(), "_eval", formal(primString(), "s", false, false), formal(primBoolean(), "embedded", false, false), formal(primBoolean(), "interactivewrite", true, false));
+#line 2347 "runtime.in"
+ addFunc(ve, run::gen137, primVoid(), "_eval", formal(primCode(), "s", false, false), formal(primBoolean(), "embedded", false, false));
+#line 2365 "runtime.in"
+ addFunc(ve, run::gen138, primString() , "location");
+#line 2377 "runtime.in"
+ addFunc(ve, run::gen140, primString() , "cd", formal(primString() , "s", true, false));
+#line 2383 "runtime.in"
+ addFunc(ve, run::gen141, primVoid(), "list", formal(primString(), "s", false, false), formal(primBoolean(), "imports", true, false));
+#line 2400 "runtime.in"
+ addFunc(ve, run::gen143, primBoolean(), "==", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false));
+#line 2405 "runtime.in"
+ addFunc(ve, run::gen144, primBoolean(), "!=", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false));
+#line 2410 "runtime.in"
+ addFunc(ve, run::gen145, primPair(), "point", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2415 "runtime.in"
+ addFunc(ve, run::gen146, primPair(), "point", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2420 "runtime.in"
+ addFunc(ve, run::gen147, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2425 "runtime.in"
+ addFunc(ve, run::gen148, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2430 "runtime.in"
+ addFunc(ve, run::gen149, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2435 "runtime.in"
+ addFunc(ve, run::gen150, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2440 "runtime.in"
+ addFunc(ve, run::gen151, primPair(), "dir", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false));
+#line 2445 "runtime.in"
+ addFunc(ve, run::gen152, primPair(), "dir", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false));
+#line 2450 "runtime.in"
+ addFunc(ve, run::gen153, primPair(), "accel", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false));
+#line 2455 "runtime.in"
+ addFunc(ve, run::gen154, primPair(), "accel", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2460 "runtime.in"
+ addFunc(ve, run::gen155, primReal(), "radius", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2472 "runtime.in"
+ addFunc(ve, run::gen156, primPath(), "reverse", formal(primPath(), "p", false, false));
#line 2477 "runtime.in"
- addFunc(ve, run::gen159, primInt(), "length", formal(primPath(), "p", false, false));
+ addFunc(ve, run::gen157, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
#line 2482 "runtime.in"
- addFunc(ve, run::gen160, primBoolean(), "cyclic", formal(primPath(), "p", false, false));
+ addFunc(ve, run::gen158, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false));
#line 2487 "runtime.in"
- addFunc(ve, run::gen161, primBoolean(), "straight", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2492 "runtime.in"
- addFunc(ve, run::gen162, primPath(), "unstraighten", formal(primPath(), "p", false, false));
-#line 2497 "runtime.in"
- addFunc(ve, run::gen163, primBoolean(), "piecewisestraight", formal(primPath(), "p", false, false));
-#line 2502 "runtime.in"
- addFunc(ve, run::gen164, primReal(), "arclength", formal(primPath(), "p", false, false));
-#line 2507 "runtime.in"
- addFunc(ve, run::gen165, primReal(), "arctime", formal(primPath(), "p", false, false), formal(primReal(), "dval", false, false));
-#line 2512 "runtime.in"
- addFunc(ve, run::gen166, primReal(), "dirtime", formal(primPath(), "p", false, false), formal(primPair(), "z", false, false));
-#line 2517 "runtime.in"
- addFunc(ve, run::gen167, realArray(), "intersect", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false));
-#line 2534 "runtime.in"
- addFunc(ve, run::gen168, realArray2(), "intersections", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false));
-#line 2565 "runtime.in"
- addFunc(ve, run::gen169, realArray(), "intersections", formal(primPath(), "p", false, false), formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primReal(), "fuzz", true, false));
-#line 2580 "runtime.in"
- addFunc(ve, run::gen170, primPair(), "extension", formal(primPair(), "p", false, false), formal(primPair(), "q", false, false), formal(primPair(), "p", false, false), formal(primPair(), "q", false, false));
-#line 2591 "runtime.in"
- addFunc(ve, run::gen171, primInt(), "size", formal(primPath(), "p", false, false));
+ addFunc(ve, run::gen159, primPath(), "nurb", formal(primPair(), "z0", false, false), formal(primPair(), "z1", false, false), formal(primPair(), "z2", false, false), formal(primPair(), "z3", false, false), formal(primReal(), "w0", false, false), formal(primReal(), "w1", false, false), formal(primReal(), "w2", false, false), formal(primReal(), "w3", false, false), formal(primInt(), "m", false, false));
+#line 2493 "runtime.in"
+ addFunc(ve, run::gen160, primInt(), "length", formal(primPath(), "p", false, false));
+#line 2498 "runtime.in"
+ addFunc(ve, run::gen161, primBoolean(), "cyclic", formal(primPath(), "p", false, false));
+#line 2503 "runtime.in"
+ addFunc(ve, run::gen162, primBoolean(), "straight", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2508 "runtime.in"
+ addFunc(ve, run::gen163, primPath(), "unstraighten", formal(primPath(), "p", false, false));
+#line 2513 "runtime.in"
+ addFunc(ve, run::gen164, primBoolean(), "piecewisestraight", formal(primPath(), "p", false, false));
+#line 2518 "runtime.in"
+ addFunc(ve, run::gen165, primReal(), "arclength", formal(primPath(), "p", false, false));
+#line 2523 "runtime.in"
+ addFunc(ve, run::gen166, primReal(), "arctime", formal(primPath(), "p", false, false), formal(primReal(), "dval", false, false));
+#line 2528 "runtime.in"
+ addFunc(ve, run::gen167, primReal(), "dirtime", formal(primPath(), "p", false, false), formal(primPair(), "z", false, false));
+#line 2533 "runtime.in"
+ addFunc(ve, run::gen168, realArray(), "intersect", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false));
+#line 2550 "runtime.in"
+ addFunc(ve, run::gen169, realArray2(), "intersections", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false));
+#line 2581 "runtime.in"
+ addFunc(ve, run::gen170, realArray(), "intersections", formal(primPath(), "p", false, false), formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primReal(), "fuzz", true, false));
#line 2596 "runtime.in"
- addFunc(ve, run::gen172, primPath(), "&", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false));
-#line 2601 "runtime.in"
- addFunc(ve, run::gen173, primPair(), "min", formal(primPath(), "p", false, false));
-#line 2606 "runtime.in"
- addFunc(ve, run::gen174, primPair(), "max", formal(primPath(), "p", false, false));
-#line 2611 "runtime.in"
- addFunc(ve, run::gen175, realArray(), "mintimes", formal(primPath(), "p", false, false));
-#line 2620 "runtime.in"
- addFunc(ve, run::gen176, realArray(), "maxtimes", formal(primPath(), "p", false, false));
-#line 2629 "runtime.in"
- addFunc(ve, run::gen177, primReal(), "relativedistance", formal(primReal(), "theta", false, false), formal(primReal(), "phi", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "atleast", false, false));
-#line 2634 "runtime.in"
- addFunc(ve, run::gen178, primInt(), "windingnumber", formal(pathArray() , "p", false, false), formal(primPair(), "z", false, false));
-#line 2639 "runtime.in"
- addFunc(ve, run::gen179, primBoolean(), "inside", formal(pathArray() , "g", false, true), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false));
-#line 2644 "runtime.in"
- addFunc(ve, run::gen180, primBoolean(), "inside", formal(primPath(), "g", false, false), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false));
-#line 2649 "runtime.in"
- addFunc(ve, run::gen181, primReal(), "side", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false));
-#line 2656 "runtime.in"
- addFunc(ve, run::gen182, primReal(), "incircle", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false));
-#line 2664 "runtime.in"
- addFunc(ve, run::gen183, primPath3(), "path3", formal(tripleArray(), "pre", false, false), formal(tripleArray(), "point", false, false), formal(tripleArray(), "post", false, false), formal(boolArray(), "straight", false, false), formal(primBoolean(), "cyclic", false, false));
-#line 2689 "runtime.in"
- addFunc(ve, run::gen185, primBoolean(), "==", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false));
-#line 2694 "runtime.in"
- addFunc(ve, run::gen186, primBoolean(), "!=", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false));
-#line 2699 "runtime.in"
- addFunc(ve, run::gen187, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2704 "runtime.in"
- addFunc(ve, run::gen188, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2709 "runtime.in"
- addFunc(ve, run::gen189, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2714 "runtime.in"
- addFunc(ve, run::gen190, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2719 "runtime.in"
- addFunc(ve, run::gen191, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2724 "runtime.in"
- addFunc(ve, run::gen192, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2729 "runtime.in"
- addFunc(ve, run::gen193, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false));
-#line 2734 "runtime.in"
- addFunc(ve, run::gen194, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false));
-#line 2739 "runtime.in"
- addFunc(ve, run::gen195, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false));
-#line 2744 "runtime.in"
- addFunc(ve, run::gen196, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2749 "runtime.in"
- addFunc(ve, run::gen197, primReal(), "radius", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
-#line 2761 "runtime.in"
- addFunc(ve, run::gen198, primReal(), "radius", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false), formal(primReal(), "t", false, false));
-#line 2773 "runtime.in"
- addFunc(ve, run::gen199, primPath3(), "reverse", formal(primPath3(), "p", false, false));
-#line 2778 "runtime.in"
- addFunc(ve, run::gen200, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
-#line 2783 "runtime.in"
- addFunc(ve, run::gen201, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false));
-#line 2788 "runtime.in"
- addFunc(ve, run::gen202, primInt(), "length", formal(primPath3(), "p", false, false));
-#line 2793 "runtime.in"
- addFunc(ve, run::gen203, primBoolean(), "cyclic", formal(primPath3(), "p", false, false));
-#line 2798 "runtime.in"
- addFunc(ve, run::gen204, primBoolean(), "straight", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2803 "runtime.in"
- addFunc(ve, run::gen205, primTriple(), "perp", formal(primTriple(), "v", false, false), formal(primTriple(), "u", false, false));
+ addFunc(ve, run::gen171, primPair(), "extension", formal(primPair(), "p", false, false), formal(primPair(), "q", false, false), formal(primPair(), "p", false, false), formal(primPair(), "q", false, false));
+#line 2607 "runtime.in"
+ addFunc(ve, run::gen172, primInt(), "size", formal(primPath(), "p", false, false));
+#line 2612 "runtime.in"
+ addFunc(ve, run::gen173, primPath(), "&", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false));
+#line 2617 "runtime.in"
+ addFunc(ve, run::gen174, primPair(), "min", formal(primPath(), "p", false, false));
+#line 2622 "runtime.in"
+ addFunc(ve, run::gen175, primPair(), "max", formal(primPath(), "p", false, false));
+#line 2627 "runtime.in"
+ addFunc(ve, run::gen176, realArray(), "mintimes", formal(primPath(), "p", false, false));
+#line 2636 "runtime.in"
+ addFunc(ve, run::gen177, realArray(), "maxtimes", formal(primPath(), "p", false, false));
+#line 2645 "runtime.in"
+ addFunc(ve, run::gen178, primReal(), "relativedistance", formal(primReal(), "theta", false, false), formal(primReal(), "phi", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "atleast", false, false));
+#line 2650 "runtime.in"
+ addFunc(ve, run::gen179, primInt(), "windingnumber", formal(pathArray() , "p", false, false), formal(primPair(), "z", false, false));
+#line 2655 "runtime.in"
+ addFunc(ve, run::gen180, primBoolean(), "inside", formal(pathArray() , "g", false, true), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false));
+#line 2660 "runtime.in"
+ addFunc(ve, run::gen181, primBoolean(), "inside", formal(primPath(), "g", false, false), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false));
+#line 2665 "runtime.in"
+ addFunc(ve, run::gen182, primReal(), "side", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false));
+#line 2672 "runtime.in"
+ addFunc(ve, run::gen183, primReal(), "incircle", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false));
+#line 2680 "runtime.in"
+ addFunc(ve, run::gen184, primPath3(), "path3", formal(tripleArray(), "pre", false, false), formal(tripleArray(), "point", false, false), formal(tripleArray(), "post", false, false), formal(boolArray(), "straight", false, false), formal(primBoolean(), "cyclic", false, false));
+#line 2705 "runtime.in"
+ addFunc(ve, run::gen186, primBoolean(), "==", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false));
+#line 2710 "runtime.in"
+ addFunc(ve, run::gen187, primBoolean(), "!=", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false));
+#line 2715 "runtime.in"
+ addFunc(ve, run::gen188, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2720 "runtime.in"
+ addFunc(ve, run::gen189, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2725 "runtime.in"
+ addFunc(ve, run::gen190, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2730 "runtime.in"
+ addFunc(ve, run::gen191, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2735 "runtime.in"
+ addFunc(ve, run::gen192, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2740 "runtime.in"
+ addFunc(ve, run::gen193, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2745 "runtime.in"
+ addFunc(ve, run::gen194, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false));
+#line 2750 "runtime.in"
+ addFunc(ve, run::gen195, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false));
+#line 2755 "runtime.in"
+ addFunc(ve, run::gen196, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false));
+#line 2760 "runtime.in"
+ addFunc(ve, run::gen197, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2765 "runtime.in"
+ addFunc(ve, run::gen198, primReal(), "radius", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false));
+#line 2777 "runtime.in"
+ addFunc(ve, run::gen199, primReal(), "radius", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false), formal(primReal(), "t", false, false));
+#line 2789 "runtime.in"
+ addFunc(ve, run::gen200, primPath3(), "reverse", formal(primPath3(), "p", false, false));
+#line 2794 "runtime.in"
+ addFunc(ve, run::gen201, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false));
+#line 2799 "runtime.in"
+ addFunc(ve, run::gen202, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false));
+#line 2804 "runtime.in"
+ addFunc(ve, run::gen203, primInt(), "length", formal(primPath3(), "p", false, false));
#line 2809 "runtime.in"
- addFunc(ve, run::gen206, primReal(), "straightness", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
-#line 2820 "runtime.in"
- addFunc(ve, run::gen207, primReal(), "straightness", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false));
-#line 2828 "runtime.in"
- addFunc(ve, run::gen208, primBoolean(), "piecewisestraight", formal(primPath3(), "p", false, false));
-#line 2833 "runtime.in"
- addFunc(ve, run::gen209, primReal(), "arclength", formal(primPath3(), "p", false, false));
-#line 2838 "runtime.in"
- addFunc(ve, run::gen210, primReal(), "arctime", formal(primPath3(), "p", false, false), formal(primReal(), "dval", false, false));
-#line 2843 "runtime.in"
- addFunc(ve, run::gen211, realArray(), "intersect", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false));
-#line 2861 "runtime.in"
- addFunc(ve, run::gen212, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false));
-#line 2894 "runtime.in"
- addFunc(ve, run::gen213, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(tripleArray2(), "p", false, false), formal(primReal(), "fuzz", true, false));
-#line 2914 "runtime.in"
- addFunc(ve, run::gen214, primInt(), "size", formal(primPath3(), "p", false, false));
-#line 2919 "runtime.in"
- addFunc(ve, run::gen215, primPath3(), "&", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false));
-#line 2924 "runtime.in"
- addFunc(ve, run::gen216, primTriple(), "min", formal(primPath3(), "p", false, false));
-#line 2929 "runtime.in"
- addFunc(ve, run::gen217, primTriple(), "max", formal(primPath3(), "p", false, false));
-#line 2934 "runtime.in"
- addFunc(ve, run::gen218, realArray(), "mintimes", formal(primPath3(), "p", false, false));
-#line 2944 "runtime.in"
- addFunc(ve, run::gen219, realArray(), "maxtimes", formal(primPath3(), "p", false, false));
-#line 2954 "runtime.in"
- addFunc(ve, run::gen220, primPath3(), "*", formal(realArray2(), "t", false, false), formal(primPath3(), "g", false, false));
-#line 3009 "runtime.in"
- addFunc(ve, run::gen225, primGuide(), "operator cast", formal(primCycleToken(), "tok", false, false));
-#line 3016 "runtime.in"
- addFunc(ve, run::gen226, primGuide(), "operator spec", formal(primPair(), "z", false, false), formal(primInt(), "p", false, false));
-#line 3024 "runtime.in"
- addFunc(ve, run::gen227, primCurlSpecifier(), "operator curl", formal(primReal(), "gamma", false, false), formal(primInt(), "p", false, false));
+ addFunc(ve, run::gen204, primBoolean(), "cyclic", formal(primPath3(), "p", false, false));
+#line 2814 "runtime.in"
+ addFunc(ve, run::gen205, primBoolean(), "straight", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2819 "runtime.in"
+ addFunc(ve, run::gen206, primTriple(), "perp", formal(primTriple(), "v", false, false), formal(primTriple(), "u", false, false));
+#line 2825 "runtime.in"
+ addFunc(ve, run::gen207, primReal(), "straightness", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false));
+#line 2836 "runtime.in"
+ addFunc(ve, run::gen208, primReal(), "straightness", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false));
+#line 2844 "runtime.in"
+ addFunc(ve, run::gen209, primBoolean(), "piecewisestraight", formal(primPath3(), "p", false, false));
+#line 2849 "runtime.in"
+ addFunc(ve, run::gen210, primReal(), "arclength", formal(primPath3(), "p", false, false));
+#line 2854 "runtime.in"
+ addFunc(ve, run::gen211, primReal(), "arctime", formal(primPath3(), "p", false, false), formal(primReal(), "dval", false, false));
+#line 2859 "runtime.in"
+ addFunc(ve, run::gen212, realArray(), "intersect", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false));
+#line 2877 "runtime.in"
+ addFunc(ve, run::gen213, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false));
+#line 2910 "runtime.in"
+ addFunc(ve, run::gen214, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(tripleArray2(), "p", false, false), formal(primReal(), "fuzz", true, false));
+#line 2930 "runtime.in"
+ addFunc(ve, run::gen215, primInt(), "size", formal(primPath3(), "p", false, false));
+#line 2935 "runtime.in"
+ addFunc(ve, run::gen216, primPath3(), "&", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false));
+#line 2940 "runtime.in"
+ addFunc(ve, run::gen217, primTriple(), "min", formal(primPath3(), "p", false, false));
+#line 2945 "runtime.in"
+ addFunc(ve, run::gen218, primTriple(), "max", formal(primPath3(), "p", false, false));
+#line 2950 "runtime.in"
+ addFunc(ve, run::gen219, realArray(), "mintimes", formal(primPath3(), "p", false, false));
+#line 2960 "runtime.in"
+ addFunc(ve, run::gen220, realArray(), "maxtimes", formal(primPath3(), "p", false, false));
+#line 2970 "runtime.in"
+ addFunc(ve, run::gen221, primPath3(), "*", formal(realArray2(), "t", false, false), formal(primPath3(), "g", false, false));
+#line 3025 "runtime.in"
+ addFunc(ve, run::gen226, primGuide(), "operator cast", formal(primCycleToken(), "tok", false, false));
+#line 3032 "runtime.in"
+ addFunc(ve, run::gen227, primGuide(), "operator spec", formal(primPair(), "z", false, false), formal(primInt(), "p", false, false));
#line 3040 "runtime.in"
- addFunc(ve, run::gen230, primGuide(), "operator cast", formal(primCurlSpecifier(), "spec", false, false));
-#line 3045 "runtime.in"
- addFunc(ve, run::gen231, primTensionSpecifier(), "operator tension", formal(primReal(), "tout", false, false), formal(primReal(), "tin", false, false), formal(primBoolean(), "atleast", false, false));
-#line 3065 "runtime.in"
- addFunc(ve, run::gen235, primGuide(), "operator cast", formal(primTensionSpecifier(), "t", false, false));
-#line 3070 "runtime.in"
- addFunc(ve, run::gen236, primGuide(), "operator controls", formal(primPair(), "zout", false, false), formal(primPair(), "zin", false, false));
-#line 3075 "runtime.in"
- addFunc(ve, run::gen237, primInt(), "size", formal(primGuide(), "g", false, false));
-#line 3082 "runtime.in"
- addFunc(ve, run::gen238, primInt(), "length", formal(primGuide(), "g", false, false));
-#line 3089 "runtime.in"
- addFunc(ve, run::gen239, primBoolean(), "cyclic", formal(primGuide(), "g", false, false));
-#line 3096 "runtime.in"
- addFunc(ve, run::gen240, primPair(), "point", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
-#line 3103 "runtime.in"
- addFunc(ve, run::gen241, pairArray(), "dirSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
-#line 3115 "runtime.in"
- addFunc(ve, run::gen242, pairArray(), "controlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
-#line 3132 "runtime.in"
- addFunc(ve, run::gen243, primTensionSpecifier(), "tensionSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
-#line 3142 "runtime.in"
- addFunc(ve, run::gen244, realArray(), "curlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
-#line 3156 "runtime.in"
- addFunc(ve, run::gen245, primGuide(), "reverse", formal(primGuide(), "g", false, false));
-#line 3210 "runtime.in"
- addFunc(ve, run::gen246, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath3(), "g", false, false), formal(primPen(), "p", false, false));
-#line 3219 "runtime.in"
- addFunc(ve, run::gen247, primVoid(), "draw", formal(primPicture(), "f", false, false), formal(tripleArray2(), "g", false, false), formal(primBoolean(), "straight", false, false), formal(penArray() , "p", false, false), formal(primReal(), "opacity", false, false), formal(primReal(), "shininess", false, false), formal(primReal(), "granularity", false, false), formal(primTriple(), "normal", false, false), formal(primBoolean(), "lighton", false, false), formal(penArray() , "colors", false, false));
-#line 3227 "runtime.in"
- addFunc(ve, run::gen248, primTriple(), "min3", formal(primPicture(), "f", false, false));
-#line 3232 "runtime.in"
- addFunc(ve, run::gen249, primTriple(), "max3", formal(primPicture(), "f", false, false));
-#line 3237 "runtime.in"
- addFunc(ve, run::gen250, primPair(), "min", formal(primPicture(), "f", false, false), formal(realArray2(), "t", false, false));
-#line 3245 "runtime.in"
- addFunc(ve, run::gen251, primPair(), "max", formal(primPicture(), "f", false, false), formal(realArray2(), "t", false, false));
+ addFunc(ve, run::gen228, primCurlSpecifier(), "operator curl", formal(primReal(), "gamma", false, false), formal(primInt(), "p", false, false));
+#line 3056 "runtime.in"
+ addFunc(ve, run::gen231, primGuide(), "operator cast", formal(primCurlSpecifier(), "spec", false, false));
+#line 3061 "runtime.in"
+ addFunc(ve, run::gen232, primTensionSpecifier(), "operator tension", formal(primReal(), "tout", false, false), formal(primReal(), "tin", false, false), formal(primBoolean(), "atleast", false, false));
+#line 3081 "runtime.in"
+ addFunc(ve, run::gen236, primGuide(), "operator cast", formal(primTensionSpecifier(), "t", false, false));
+#line 3086 "runtime.in"
+ addFunc(ve, run::gen237, primGuide(), "operator controls", formal(primPair(), "zout", false, false), formal(primPair(), "zin", false, false));
+#line 3091 "runtime.in"
+ addFunc(ve, run::gen238, primInt(), "size", formal(primGuide(), "g", false, false));
+#line 3098 "runtime.in"
+ addFunc(ve, run::gen239, primInt(), "length", formal(primGuide(), "g", false, false));
+#line 3105 "runtime.in"
+ addFunc(ve, run::gen240, primBoolean(), "cyclic", formal(primGuide(), "g", false, false));
+#line 3112 "runtime.in"
+ addFunc(ve, run::gen241, primPair(), "point", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
+#line 3119 "runtime.in"
+ addFunc(ve, run::gen242, pairArray(), "dirSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
+#line 3131 "runtime.in"
+ addFunc(ve, run::gen243, pairArray(), "controlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
+#line 3148 "runtime.in"
+ addFunc(ve, run::gen244, primTensionSpecifier(), "tensionSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
+#line 3158 "runtime.in"
+ addFunc(ve, run::gen245, realArray(), "curlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
+#line 3172 "runtime.in"
+ addFunc(ve, run::gen246, primGuide(), "reverse", formal(primGuide(), "g", false, false));
+#line 3226 "runtime.in"
+ addFunc(ve, run::gen247, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath3(), "g", false, false), formal(primPen(), "p", false, false));
+#line 3235 "runtime.in"
+ addFunc(ve, run::gen248, primVoid(), "draw", formal(primPicture(), "f", false, false), formal(tripleArray2(), "g", false, false), formal(primBoolean(), "straight", false, false), formal(penArray() , "p", false, false), formal(primReal(), "opacity", false, false), formal(primReal(), "shininess", false, false), formal(primReal(), "granularity", false, false), formal(primTriple(), "normal", false, false), formal(primBoolean(), "lighton", false, false), formal(penArray() , "colors", false, false));
+#line 3243 "runtime.in"
+ addFunc(ve, run::gen249, primTriple(), "min3", formal(primPicture(), "f", false, false));
+#line 3248 "runtime.in"
+ addFunc(ve, run::gen250, primTriple(), "max3", formal(primPicture(), "f", false, false));
#line 3253 "runtime.in"
- addFunc(ve, run::gen252, primPair(), "minratio", formal(primPicture(), "f", false, false));
-#line 3258 "runtime.in"
- addFunc(ve, run::gen253, primPair(), "maxratio", formal(primPicture(), "f", false, false));
-#line 3263 "runtime.in"
- addFunc(ve, run::gen254, primTriple(), "minbound", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false));
-#line 3273 "runtime.in"
- addFunc(ve, run::gen255, primTriple(), "maxbound", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false));
-#line 3283 "runtime.in"
- addFunc(ve, run::gen256, primPair(), "minbound", formal(tripleArray2(), "p", false, false), formal(realArray2(), "t", false, false), formal(primPair(), "b", false, false));
-#line 3295 "runtime.in"
- addFunc(ve, run::gen257, primPair(), "maxbound", formal(tripleArray2(), "p", false, false), formal(realArray2(), "t", false, false), formal(primPair(), "b", false, false));
-#line 3307 "runtime.in"
- addFunc(ve, run::gen258, primPair(), "max", formal(primPath3(), "g", false, false), formal(realArray2(), "t", false, false));
-#line 3315 "runtime.in"
- addFunc(ve, run::gen259, primPair(), "min", formal(primPath3(), "g", false, false), formal(realArray2(), "t", false, false));
+ addFunc(ve, run::gen251, primPair(), "min", formal(primPicture(), "f", false, false), formal(realArray2(), "t", false, false));
+#line 3261 "runtime.in"
+ addFunc(ve, run::gen252, primPair(), "max", formal(primPicture(), "f", false, false), formal(realArray2(), "t", false, false));
+#line 3269 "runtime.in"
+ addFunc(ve, run::gen253, primPair(), "minratio", formal(primPicture(), "f", false, false));
+#line 3274 "runtime.in"
+ addFunc(ve, run::gen254, primPair(), "maxratio", formal(primPicture(), "f", false, false));
+#line 3279 "runtime.in"
+ addFunc(ve, run::gen255, primTriple(), "minbound", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false));
+#line 3289 "runtime.in"
+ addFunc(ve, run::gen256, primTriple(), "maxbound", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false));
+#line 3299 "runtime.in"
+ addFunc(ve, run::gen257, primPair(), "minbound", formal(tripleArray2(), "p", false, false), formal(realArray2(), "t", false, false), formal(primPair(), "b", false, false));
+#line 3311 "runtime.in"
+ addFunc(ve, run::gen258, primPair(), "maxbound", formal(tripleArray2(), "p", false, false), formal(realArray2(), "t", false, false), formal(primPair(), "b", false, false));
#line 3323 "runtime.in"
- addFunc(ve, run::gen260, primReal(), "change2", formal(tripleArray2(), "a", false, false));
-#line 3345 "runtime.in"
- addFunc(ve, run::gen261, primBoolean(), "is3D", formal(primPicture(), "f", false, false));
-#line 3350 "runtime.in"
- addFunc(ve, run::gen262, primPair(), "bezier", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3357 "runtime.in"
- addFunc(ve, run::gen263, primPair(), "bezierP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3362 "runtime.in"
- addFunc(ve, run::gen264, primPair(), "bezierPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3367 "runtime.in"
- addFunc(ve, run::gen265, primPair(), "bezierPPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false));
-#line 3372 "runtime.in"
- addFunc(ve, run::gen266, primTriple(), "bezier", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3379 "runtime.in"
- addFunc(ve, run::gen267, primTriple(), "bezierP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3384 "runtime.in"
- addFunc(ve, run::gen268, primTriple(), "bezierPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
-#line 3389 "runtime.in"
- addFunc(ve, run::gen269, primTriple(), "bezierPPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false));
-#line 3402 "runtime.in"
- addFunc(ve, run::gen271, primInt(), "length", formal(primString(), "s", false, false));
-#line 3407 "runtime.in"
- addFunc(ve, run::gen272, primInt(), "find", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false));
-#line 3413 "runtime.in"
- addFunc(ve, run::gen273, primInt(), "rfind", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false));
-#line 3419 "runtime.in"
- addFunc(ve, run::gen274, primString() , "reverse", formal(primString() , "s", false, false));
-#line 3425 "runtime.in"
- addFunc(ve, run::gen275, primString() , "insert", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primString() , "t", false, false));
-#line 3432 "runtime.in"
- addFunc(ve, run::gen276, primString() , "substr", formal(primString(), "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", true, false));
-#line 3439 "runtime.in"
- addFunc(ve, run::gen277, primString() , "erase", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", false, false));
-#line 3446 "runtime.in"
- addFunc(ve, run::gen278, primString() , "downcase", formal(primString() , "s", false, false));
-#line 3452 "runtime.in"
- addFunc(ve, run::gen279, primString() , "upcase", formal(primString() , "s", false, false));
-#line 3458 "runtime.in"
- addFunc(ve, run::gen280, primString() , "replace", formal(primString(), "s", false, false), formal(stringArray2(), "translate", false, false));
-#line 3485 "runtime.in"
- addFunc(ve, run::gen281, primString() , "format", formal(primString(), "format", false, false), formal(primInt(), "x", false, false));
-#line 3500 "runtime.in"
- addFunc(ve, run::gen282, primString() , "format", formal(primString(), "format", false, false), formal(primReal(), "x", false, false), formal(primString() , "locale", true, false));
-#line 3618 "runtime.in"
- addFunc(ve, run::gen283, primInt(), "hex", formal(primString() , "s", false, false));
-#line 3629 "runtime.in"
- addFunc(ve, run::gen284, primString() , "string", formal(primInt(), "x", false, false));
-#line 3636 "runtime.in"
- addFunc(ve, run::gen285, primString() , "string", formal(primReal(), "x", false, false), formal(primInt(), "digits", true, false));
-#line 3644 "runtime.in"
- addFunc(ve, run::gen286, primString() , "time", formal(primString() , "format", true, false));
-#line 3655 "runtime.in"
- addFunc(ve, run::gen287, primString() , "time", formal(primInt(), "seconds", false, false), formal(primString() , "format", true, false));
-#line 3668 "runtime.in"
- addFunc(ve, run::gen288, primInt(), "seconds", formal(primString() , "t", true, false), formal(primString() , "format", true, false));
-#line 3680 "runtime.in"
- addFunc(ve, run::gen289, realArray(), "_cputime");
-#line 3694 "runtime.in"
- addFunc(ve, run::gen290, primReal(), "^", formal(primReal(), "x", false, false), formal(primInt(), "y", false, false));
-#line 3702 "runtime.in"
- addFunc(ve, run::gen291, primPair(), "^", formal(primPair(), "z", false, false), formal(primInt(), "y", false, false));
-#line 3707 "runtime.in"
- addFunc(ve, run::gen292, primInt(), "quotient", formal(primInt(), "x", false, false), formal(primInt(), "y", false, false));
-#line 3715 "runtime.in"
- addFunc(ve, run::gen293, primInt(), "abs", formal(primInt(), "x", false, false));
-#line 3720 "runtime.in"
- addFunc(ve, run::gen294, primInt(), "sgn", formal(primReal(), "x", false, false));
-#line 3725 "runtime.in"
- addFunc(ve, run::gen295, primInt(), "rand");
-#line 3730 "runtime.in"
- addFunc(ve, run::gen296, primVoid(), "srand", formal(primInt(), "seed", false, false));
-#line 3735 "runtime.in"
- addFunc(ve, run::gen297, primReal(), "unitrand");
+ addFunc(ve, run::gen259, primPair(), "max", formal(primPath3(), "g", false, false), formal(realArray2(), "t", false, false));
+#line 3331 "runtime.in"
+ addFunc(ve, run::gen260, primPair(), "min", formal(primPath3(), "g", false, false), formal(realArray2(), "t", false, false));
+#line 3339 "runtime.in"
+ addFunc(ve, run::gen261, primReal(), "change2", formal(tripleArray2(), "a", false, false));
+#line 3361 "runtime.in"
+ addFunc(ve, run::gen262, primBoolean(), "is3D", formal(primPicture(), "f", false, false));
+#line 3366 "runtime.in"
+ addFunc(ve, run::gen263, primPair(), "bezier", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3373 "runtime.in"
+ addFunc(ve, run::gen264, primPair(), "bezierP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3378 "runtime.in"
+ addFunc(ve, run::gen265, primPair(), "bezierPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3383 "runtime.in"
+ addFunc(ve, run::gen266, primPair(), "bezierPPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false));
+#line 3388 "runtime.in"
+ addFunc(ve, run::gen267, primTriple(), "bezier", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3395 "runtime.in"
+ addFunc(ve, run::gen268, primTriple(), "bezierP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3400 "runtime.in"
+ addFunc(ve, run::gen269, primTriple(), "bezierPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false));
+#line 3405 "runtime.in"
+ addFunc(ve, run::gen270, primTriple(), "bezierPPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false));
+#line 3418 "runtime.in"
+ addFunc(ve, run::gen272, primInt(), "length", formal(primString(), "s", false, false));
+#line 3423 "runtime.in"
+ addFunc(ve, run::gen273, primInt(), "find", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false));
+#line 3429 "runtime.in"
+ addFunc(ve, run::gen274, primInt(), "rfind", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false));
+#line 3435 "runtime.in"
+ addFunc(ve, run::gen275, primString() , "reverse", formal(primString() , "s", false, false));
+#line 3441 "runtime.in"
+ addFunc(ve, run::gen276, primString() , "insert", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primString() , "t", false, false));
+#line 3448 "runtime.in"
+ addFunc(ve, run::gen277, primString() , "substr", formal(primString(), "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", true, false));
+#line 3455 "runtime.in"
+ addFunc(ve, run::gen278, primString() , "erase", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", false, false));
+#line 3462 "runtime.in"
+ addFunc(ve, run::gen279, primString() , "downcase", formal(primString() , "s", false, false));
+#line 3468 "runtime.in"
+ addFunc(ve, run::gen280, primString() , "upcase", formal(primString() , "s", false, false));
+#line 3474 "runtime.in"
+ addFunc(ve, run::gen281, primString() , "replace", formal(primString(), "s", false, false), formal(stringArray2(), "translate", false, false));
+#line 3501 "runtime.in"
+ addFunc(ve, run::gen282, primString() , "format", formal(primString(), "format", false, false), formal(primInt(), "x", false, false));
+#line 3516 "runtime.in"
+ addFunc(ve, run::gen283, primString() , "format", formal(primString(), "format", false, false), formal(primReal(), "x", false, false), formal(primString() , "locale", true, false));
+#line 3634 "runtime.in"
+ addFunc(ve, run::gen284, primInt(), "hex", formal(primString() , "s", false, false));
+#line 3645 "runtime.in"
+ addFunc(ve, run::gen285, primString() , "string", formal(primInt(), "x", false, false));
+#line 3652 "runtime.in"
+ addFunc(ve, run::gen286, primString() , "string", formal(primReal(), "x", false, false), formal(primInt(), "digits", true, false));
+#line 3660 "runtime.in"
+ addFunc(ve, run::gen287, primString() , "time", formal(primString() , "format", true, false));
+#line 3671 "runtime.in"
+ addFunc(ve, run::gen288, primString() , "time", formal(primInt(), "seconds", false, false), formal(primString() , "format", true, false));
+#line 3684 "runtime.in"
+ addFunc(ve, run::gen289, primInt(), "seconds", formal(primString() , "t", true, false), formal(primString() , "format", true, false));
+#line 3696 "runtime.in"
+ addFunc(ve, run::gen290, realArray(), "_cputime");
+#line 3710 "runtime.in"
+ addFunc(ve, run::gen291, primReal(), "^", formal(primReal(), "x", false, false), formal(primInt(), "y", false, false));
+#line 3718 "runtime.in"
+ addFunc(ve, run::gen292, primPair(), "^", formal(primPair(), "z", false, false), formal(primInt(), "y", false, false));
+#line 3723 "runtime.in"
+ addFunc(ve, run::gen293, primInt(), "quotient", formal(primInt(), "x", false, false), formal(primInt(), "y", false, false));
+#line 3731 "runtime.in"
+ addFunc(ve, run::gen294, primInt(), "abs", formal(primInt(), "x", false, false));
+#line 3736 "runtime.in"
+ addFunc(ve, run::gen295, primInt(), "sgn", formal(primReal(), "x", false, false));
#line 3741 "runtime.in"
- addFunc(ve, run::gen298, primInt(), "ceil", formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen296, primInt(), "rand");
#line 3746 "runtime.in"
- addFunc(ve, run::gen299, primInt(), "floor", formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen297, primVoid(), "srand", formal(primInt(), "seed", false, false));
#line 3751 "runtime.in"
- addFunc(ve, run::gen300, primInt(), "round", formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen298, primReal(), "unitrand");
#line 3757 "runtime.in"
- addFunc(ve, run::gen301, primInt(), "Ceil", formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen299, primInt(), "ceil", formal(primReal(), "x", false, false));
#line 3762 "runtime.in"
- addFunc(ve, run::gen302, primInt(), "Floor", formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen300, primInt(), "floor", formal(primReal(), "x", false, false));
#line 3767 "runtime.in"
- addFunc(ve, run::gen303, primInt(), "Round", formal(primReal(), "x", false, false));
-#line 3772 "runtime.in"
- addFunc(ve, run::gen304, primReal(), "fmod", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+ addFunc(ve, run::gen301, primInt(), "round", formal(primReal(), "x", false, false));
+#line 3773 "runtime.in"
+ addFunc(ve, run::gen302, primInt(), "Ceil", formal(primReal(), "x", false, false));
#line 3778 "runtime.in"
- addFunc(ve, run::gen305, primReal(), "atan2", formal(primReal(), "y", false, false), formal(primReal(), "x", false, false));
+ addFunc(ve, run::gen303, primInt(), "Floor", formal(primReal(), "x", false, false));
#line 3783 "runtime.in"
- addFunc(ve, run::gen306, primReal(), "hypot", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+ addFunc(ve, run::gen304, primInt(), "Round", formal(primReal(), "x", false, false));
#line 3788 "runtime.in"
- addFunc(ve, run::gen307, primReal(), "remainder", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
-#line 3793 "runtime.in"
- addFunc(ve, run::gen308, primReal(), "J", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false));
-#line 3798 "runtime.in"
- addFunc(ve, run::gen309, primReal(), "Y", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false));
-#line 3803 "runtime.in"
- addFunc(ve, run::gen310, primReal(), "erf", formal(primReal(), "x", false, false));
-#line 3808 "runtime.in"
- addFunc(ve, run::gen311, primReal(), "erfc", formal(primReal(), "x", false, false));
-#line 3813 "runtime.in"
- addFunc(ve, run::gen312, primInt(), "factorial", formal(primInt(), "n", false, false));
-#line 3818 "runtime.in"
- addFunc(ve, run::gen313, primInt(), "choose", formal(primInt(), "n", false, false), formal(primInt(), "k", false, false));
+ addFunc(ve, run::gen305, primReal(), "fmod", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+#line 3794 "runtime.in"
+ addFunc(ve, run::gen306, primReal(), "atan2", formal(primReal(), "y", false, false), formal(primReal(), "x", false, false));
+#line 3799 "runtime.in"
+ addFunc(ve, run::gen307, primReal(), "hypot", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+#line 3804 "runtime.in"
+ addFunc(ve, run::gen308, primReal(), "remainder", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+#line 3809 "runtime.in"
+ addFunc(ve, run::gen309, primReal(), "J", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false));
+#line 3814 "runtime.in"
+ addFunc(ve, run::gen310, primReal(), "Y", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false));
+#line 3819 "runtime.in"
+ addFunc(ve, run::gen311, primReal(), "erf", formal(primReal(), "x", false, false));
+#line 3824 "runtime.in"
+ addFunc(ve, run::gen312, primReal(), "erfc", formal(primReal(), "x", false, false));
#line 3829 "runtime.in"
- addFunc(ve, run::gen314, primReal(), "gamma", formal(primReal(), "x", false, false));
-#line 3839 "runtime.in"
- addFunc(ve, run::gen315, primPair(), "gamma", formal(primPair(), "z", false, true));
+ addFunc(ve, run::gen313, primInt(), "factorial", formal(primInt(), "n", false, false));
+#line 3834 "runtime.in"
+ addFunc(ve, run::gen314, primInt(), "choose", formal(primInt(), "n", false, false), formal(primInt(), "k", false, false));
#line 3845 "runtime.in"
- addFunc(ve, run::gen316, realArray(), "quadraticroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false));
-#line 3854 "runtime.in"
- addFunc(ve, run::gen317, pairArray(), "quadraticroots", formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primPair(), "c", false, true));
-#line 3863 "runtime.in"
- addFunc(ve, run::gen318, realArray(), "cubicroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false), formal(primReal(), "d", false, false));
-#line 3873 "runtime.in"
- addFunc(ve, run::gen319, primBoolean(), "==", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
-#line 3881 "runtime.in"
- addFunc(ve, run::gen320, primBoolean(), "!=", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
-#line 3886 "runtime.in"
- addFunc(ve, run::gen321, primTransform(), "+", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
-#line 3891 "runtime.in"
- addFunc(ve, run::gen322, primTransform(), "*", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
-#line 3896 "runtime.in"
- addFunc(ve, run::gen323, primPair(), "*", formal(primTransform(), "t", false, false), formal(primPair(), "z", false, false));
-#line 3901 "runtime.in"
- addFunc(ve, run::gen324, primPath(), "*", formal(primTransform(), "t", false, false), formal(primPath(), "g", false, false));
-#line 3906 "runtime.in"
- addFunc(ve, run::gen325, primPen(), "*", formal(primTransform(), "t", false, false), formal(primPen(), "p", false, false));
-#line 3911 "runtime.in"
- addFunc(ve, run::gen326, primPicture(), "*", formal(primTransform(), "t", false, false), formal(primPicture(), "f", false, false));
-#line 3916 "runtime.in"
- addFunc(ve, run::gen327, primPicture(), "*", formal(realArray2(), "t", false, false), formal(primPicture(), "f", false, false));
-#line 3921 "runtime.in"
- addFunc(ve, run::gen328, primTransform(), "^", formal(primTransform(), "t", false, false), formal(primInt(), "n", false, false));
-#line 3968 "runtime.in"
- addFunc(ve, run::gen336, primTransform(), "shift", formal(primTransform(), "t", false, false));
-#line 3973 "runtime.in"
- addFunc(ve, run::gen337, primTransform(), "shiftless", formal(primTransform(), "t", false, false));
-#line 3978 "runtime.in"
+ addFunc(ve, run::gen315, primReal(), "gamma", formal(primReal(), "x", false, false));
+#line 3855 "runtime.in"
+ addFunc(ve, run::gen316, primPair(), "gamma", formal(primPair(), "z", false, true));
+#line 3861 "runtime.in"
+ addFunc(ve, run::gen317, realArray(), "quadraticroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false));
+#line 3870 "runtime.in"
+ addFunc(ve, run::gen318, pairArray(), "quadraticroots", formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primPair(), "c", false, true));
+#line 3879 "runtime.in"
+ addFunc(ve, run::gen319, realArray(), "cubicroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false), formal(primReal(), "d", false, false));
+#line 3889 "runtime.in"
+ addFunc(ve, run::gen320, primBoolean(), "==", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
+#line 3897 "runtime.in"
+ addFunc(ve, run::gen321, primBoolean(), "!=", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
+#line 3902 "runtime.in"
+ addFunc(ve, run::gen322, primTransform(), "+", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
+#line 3907 "runtime.in"
+ addFunc(ve, run::gen323, primTransform(), "*", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
+#line 3912 "runtime.in"
+ addFunc(ve, run::gen324, primPair(), "*", formal(primTransform(), "t", false, false), formal(primPair(), "z", false, false));
+#line 3917 "runtime.in"
+ addFunc(ve, run::gen325, primPath(), "*", formal(primTransform(), "t", false, false), formal(primPath(), "g", false, false));
+#line 3922 "runtime.in"
+ addFunc(ve, run::gen326, primPen(), "*", formal(primTransform(), "t", false, false), formal(primPen(), "p", false, false));
+#line 3927 "runtime.in"
+ addFunc(ve, run::gen327, primPicture(), "*", formal(primTransform(), "t", false, false), formal(primPicture(), "f", false, false));
+#line 3932 "runtime.in"
+ addFunc(ve, run::gen328, primPicture(), "*", formal(realArray2(), "t", false, false), formal(primPicture(), "f", false, false));
+#line 3937 "runtime.in"
+ addFunc(ve, run::gen329, primTransform(), "^", formal(primTransform(), "t", false, false), formal(primInt(), "n", false, false));
+#line 3984 "runtime.in"
+ addFunc(ve, run::gen337, primTransform(), "shift", formal(primTransform(), "t", false, false));
+#line 3989 "runtime.in"
+ addFunc(ve, run::gen338, primTransform(), "shiftless", formal(primTransform(), "t", false, false));
+#line 3994 "runtime.in"
addFunc(ve, run::transformIdentity, primTransform(), "identity");
-#line 3983 "runtime.in"
- addFunc(ve, run::gen339, primTransform(), "inverse", formal(primTransform(), "t", false, false));
-#line 3988 "runtime.in"
- addFunc(ve, run::gen340, primTransform(), "shift", formal(primPair(), "z", false, false));
-#line 3993 "runtime.in"
- addFunc(ve, run::gen341, primTransform(), "shift", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
-#line 3998 "runtime.in"
- addFunc(ve, run::gen342, primTransform(), "xscale", formal(primReal(), "x", false, false));
-#line 4003 "runtime.in"
- addFunc(ve, run::gen343, primTransform(), "yscale", formal(primReal(), "y", false, false));
-#line 4008 "runtime.in"
- addFunc(ve, run::gen344, primTransform(), "scale", formal(primReal(), "x", false, false));
-#line 4013 "runtime.in"
- addFunc(ve, run::gen345, primTransform(), "scale", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
-#line 4018 "runtime.in"
- addFunc(ve, run::gen346, primTransform(), "slant", formal(primReal(), "s", false, false));
-#line 4023 "runtime.in"
- addFunc(ve, run::gen347, primTransform(), "rotate", formal(primReal(), "angle", false, false), formal(primPair(), "z", true, false));
-#line 4028 "runtime.in"
- addFunc(ve, run::gen348, primTransform(), "reflect", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false));
-#line 4051 "runtime.in"
+#line 3999 "runtime.in"
+ addFunc(ve, run::gen340, primTransform(), "inverse", formal(primTransform(), "t", false, false));
+#line 4004 "runtime.in"
+ addFunc(ve, run::gen341, primTransform(), "shift", formal(primPair(), "z", false, false));
+#line 4009 "runtime.in"
+ addFunc(ve, run::gen342, primTransform(), "shift", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+#line 4014 "runtime.in"
+ addFunc(ve, run::gen343, primTransform(), "xscale", formal(primReal(), "x", false, false));
+#line 4019 "runtime.in"
+ addFunc(ve, run::gen344, primTransform(), "yscale", formal(primReal(), "y", false, false));
+#line 4024 "runtime.in"
+ addFunc(ve, run::gen345, primTransform(), "scale", formal(primReal(), "x", false, false));
+#line 4029 "runtime.in"
+ addFunc(ve, run::gen346, primTransform(), "scale", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
+#line 4034 "runtime.in"
+ addFunc(ve, run::gen347, primTransform(), "slant", formal(primReal(), "s", false, false));
+#line 4039 "runtime.in"
+ addFunc(ve, run::gen348, primTransform(), "rotate", formal(primReal(), "angle", false, false), formal(primPair(), "z", true, false));
+#line 4044 "runtime.in"
+ addFunc(ve, run::gen349, primTransform(), "reflect", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false));
+#line 4067 "runtime.in"
addFunc(ve, run::pairXPart, primReal(), "xpart", formal(primPair(), "z", false, false));
-#line 4056 "runtime.in"
+#line 4072 "runtime.in"
addFunc(ve, run::pairYPart, primReal(), "ypart", formal(primPair(), "z", false, false));
-#line 4061 "runtime.in"
- addFunc(ve, run::gen354, primReal(), "length", formal(primPair(), "z", false, false));
-#line 4066 "runtime.in"
- addFunc(ve, run::gen355, primReal(), "abs", formal(primPair(), "z", false, false));
-#line 4071 "runtime.in"
- addFunc(ve, run::gen356, primPair(), "sqrt", formal(primPair(), "z", false, true));
-#line 4076 "runtime.in"
- addFunc(ve, run::gen357, primReal(), "angle", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false));
-#line 4083 "runtime.in"
- addFunc(ve, run::gen358, primReal(), "degrees", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false));
-#line 4090 "runtime.in"
- addFunc(ve, run::gen359, primReal(), "radians", formal(primReal(), "degrees", false, false));
-#line 4096 "runtime.in"
- addFunc(ve, run::gen360, primReal(), "degrees", formal(primReal(), "radians", false, false));
-#line 4102 "runtime.in"
- addFunc(ve, run::gen361, primReal(), "Degrees", formal(primReal(), "radians", false, false));
-#line 4108 "runtime.in"
- addFunc(ve, run::gen362, primReal(), "Sin", formal(primReal(), "deg", false, false));
-#line 4113 "runtime.in"
- addFunc(ve, run::gen363, primReal(), "Cos", formal(primReal(), "deg", false, false));
+#line 4077 "runtime.in"
+ addFunc(ve, run::gen355, primReal(), "length", formal(primPair(), "z", false, false));
+#line 4082 "runtime.in"
+ addFunc(ve, run::gen356, primReal(), "abs", formal(primPair(), "z", false, false));
+#line 4087 "runtime.in"
+ addFunc(ve, run::gen357, primPair(), "sqrt", formal(primPair(), "z", false, true));
+#line 4092 "runtime.in"
+ addFunc(ve, run::gen358, primReal(), "angle", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false));
+#line 4099 "runtime.in"
+ addFunc(ve, run::gen359, primReal(), "degrees", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false));
+#line 4106 "runtime.in"
+ addFunc(ve, run::gen360, primReal(), "radians", formal(primReal(), "degrees", false, false));
+#line 4112 "runtime.in"
+ addFunc(ve, run::gen361, primReal(), "degrees", formal(primReal(), "radians", false, false));
#line 4118 "runtime.in"
- addFunc(ve, run::gen364, primReal(), "Tan", formal(primReal(), "deg", false, false));
-#line 4123 "runtime.in"
- addFunc(ve, run::gen365, primReal(), "aSin", formal(primReal(), "x", false, false));
-#line 4128 "runtime.in"
- addFunc(ve, run::gen366, primReal(), "aCos", formal(primReal(), "x", false, false));
-#line 4133 "runtime.in"
- addFunc(ve, run::gen367, primReal(), "aTan", formal(primReal(), "x", false, false));
-#line 4138 "runtime.in"
- addFunc(ve, run::gen368, primPair(), "unit", formal(primPair(), "z", false, false));
-#line 4143 "runtime.in"
- addFunc(ve, run::gen369, primPair(), "dir", formal(primReal(), "degrees", false, false));
-#line 4148 "runtime.in"
- addFunc(ve, run::gen370, primPair(), "dir", formal(primPair(), "z", false, true));
-#line 4153 "runtime.in"
- addFunc(ve, run::gen371, primPair(), "expi", formal(primReal(), "angle", false, false));
-#line 4158 "runtime.in"
- addFunc(ve, run::gen372, primPair(), "exp", formal(primPair(), "z", false, true));
-#line 4163 "runtime.in"
- addFunc(ve, run::gen373, primPair(), "log", formal(primPair(), "z", false, true));
-#line 4168 "runtime.in"
- addFunc(ve, run::gen374, primPair(), "sin", formal(primPair(), "z", false, true));
-#line 4173 "runtime.in"
- addFunc(ve, run::gen375, primPair(), "cos", formal(primPair(), "z", false, true));
-#line 4178 "runtime.in"
- addFunc(ve, run::gen376, primPair(), "conj", formal(primPair(), "z", false, false));
-#line 4183 "runtime.in"
- addFunc(ve, run::gen377, primPair(), "realmult", formal(primPair(), "z", false, false), formal(primPair(), "w", false, false));
-#line 4188 "runtime.in"
- addFunc(ve, run::gen378, primTriple(), "realmult", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
-#line 4193 "runtime.in"
- addFunc(ve, run::gen379, primReal(), "dot", formal(primPair(), "z", false, true), formal(primPair(), "w", false, true));
-#line 4213 "runtime.in"
+ addFunc(ve, run::gen362, primReal(), "Degrees", formal(primReal(), "radians", false, false));
+#line 4124 "runtime.in"
+ addFunc(ve, run::gen363, primReal(), "Sin", formal(primReal(), "deg", false, false));
+#line 4129 "runtime.in"
+ addFunc(ve, run::gen364, primReal(), "Cos", formal(primReal(), "deg", false, false));
+#line 4134 "runtime.in"
+ addFunc(ve, run::gen365, primReal(), "Tan", formal(primReal(), "deg", false, false));
+#line 4139 "runtime.in"
+ addFunc(ve, run::gen366, primReal(), "aSin", formal(primReal(), "x", false, false));
+#line 4144 "runtime.in"
+ addFunc(ve, run::gen367, primReal(), "aCos", formal(primReal(), "x", false, false));
+#line 4149 "runtime.in"
+ addFunc(ve, run::gen368, primReal(), "aTan", formal(primReal(), "x", false, false));
+#line 4154 "runtime.in"
+ addFunc(ve, run::gen369, primPair(), "unit", formal(primPair(), "z", false, false));
+#line 4159 "runtime.in"
+ addFunc(ve, run::gen370, primPair(), "dir", formal(primReal(), "degrees", false, false));
+#line 4164 "runtime.in"
+ addFunc(ve, run::gen371, primPair(), "dir", formal(primPair(), "z", false, true));
+#line 4169 "runtime.in"
+ addFunc(ve, run::gen372, primPair(), "expi", formal(primReal(), "angle", false, false));
+#line 4174 "runtime.in"
+ addFunc(ve, run::gen373, primPair(), "exp", formal(primPair(), "z", false, true));
+#line 4179 "runtime.in"
+ addFunc(ve, run::gen374, primPair(), "log", formal(primPair(), "z", false, true));
+#line 4184 "runtime.in"
+ addFunc(ve, run::gen375, primPair(), "sin", formal(primPair(), "z", false, true));
+#line 4189 "runtime.in"
+ addFunc(ve, run::gen376, primPair(), "cos", formal(primPair(), "z", false, true));
+#line 4194 "runtime.in"
+ addFunc(ve, run::gen377, primPair(), "conj", formal(primPair(), "z", false, false));
+#line 4199 "runtime.in"
+ addFunc(ve, run::gen378, primPair(), "realmult", formal(primPair(), "z", false, false), formal(primPair(), "w", false, false));
+#line 4204 "runtime.in"
+ addFunc(ve, run::gen379, primTriple(), "realmult", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
+#line 4209 "runtime.in"
+ addFunc(ve, run::gen380, primReal(), "dot", formal(primPair(), "z", false, true), formal(primPair(), "w", false, true));
+#line 4229 "runtime.in"
addFunc(ve, run::tripleXPart, primReal(), "xpart", formal(primTriple(), "v", false, false));
-#line 4218 "runtime.in"
+#line 4234 "runtime.in"
addFunc(ve, run::tripleYPart, primReal(), "ypart", formal(primTriple(), "v", false, false));
-#line 4223 "runtime.in"
+#line 4239 "runtime.in"
addFunc(ve, run::tripleZPart, primReal(), "zpart", formal(primTriple(), "v", false, false));
-#line 4228 "runtime.in"
- addFunc(ve, run::gen385, primTriple(), "*", formal(primReal(), "x", false, false), formal(primTriple(), "v", false, false));
-#line 4233 "runtime.in"
- addFunc(ve, run::gen386, primTriple(), "*", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false));
-#line 4238 "runtime.in"
- addFunc(ve, run::gen387, primTriple(), "/", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false));
-#line 4243 "runtime.in"
- addFunc(ve, run::gen388, primReal(), "length", formal(primTriple(), "v", false, false));
-#line 4248 "runtime.in"
- addFunc(ve, run::gen389, primReal(), "abs", formal(primTriple(), "v", false, false));
-#line 4253 "runtime.in"
- addFunc(ve, run::gen390, primReal(), "polar", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4244 "runtime.in"
+ addFunc(ve, run::gen386, primTriple(), "*", formal(primReal(), "x", false, false), formal(primTriple(), "v", false, false));
+#line 4249 "runtime.in"
+ addFunc(ve, run::gen387, primTriple(), "*", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false));
+#line 4254 "runtime.in"
+ addFunc(ve, run::gen388, primTriple(), "/", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false));
#line 4259 "runtime.in"
- addFunc(ve, run::gen391, primReal(), "azimuth", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
-#line 4265 "runtime.in"
- addFunc(ve, run::gen392, primReal(), "colatitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
-#line 4271 "runtime.in"
- addFunc(ve, run::gen393, primReal(), "latitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
-#line 4277 "runtime.in"
- addFunc(ve, run::gen394, primReal(), "longitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
-#line 4284 "runtime.in"
- addFunc(ve, run::gen395, primTriple(), "unit", formal(primTriple(), "v", false, false));
-#line 4289 "runtime.in"
- addFunc(ve, run::gen396, primReal(), "dot", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
-#line 4294 "runtime.in"
- addFunc(ve, run::gen397, primTriple(), "cross", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
-#line 4299 "runtime.in"
- addFunc(ve, run::gen398, primTriple(), "expi", formal(primReal(), "polar", false, false), formal(primReal(), "azimuth", false, false));
-#line 4304 "runtime.in"
- addFunc(ve, run::gen399, primTriple(), "dir", formal(primReal(), "colatitude", false, false), formal(primReal(), "longitude", false, false));
-#line 4309 "runtime.in"
- addFunc(ve, run::gen400, primVoid(), "atupdate", formal(voidFunction(), "f", false, false));
-#line 4317 "runtime.in"
- addFunc(ve, run::gen401, voidFunction(), "atupdate");
-#line 4322 "runtime.in"
- addFunc(ve, run::gen402, primVoid(), "atexit", formal(voidFunction(), "f", false, false));
-#line 4327 "runtime.in"
- addFunc(ve, run::gen403, voidFunction(), "atexit");
-#line 4332 "runtime.in"
- addFunc(ve, run::gen404, primVoid(), "atbreakpoint", formal(breakpointFunction(), "f", false, false));
-#line 4337 "runtime.in"
- addFunc(ve, run::gen405, primVoid(), "breakpoint", formal(primCode(), "s", true, false));
-#line 4342 "runtime.in"
- addFunc(ve, run::gen406, primString() , "locatefile", formal(primString() , "file", false, false));
-#line 4347 "runtime.in"
- addFunc(ve, run::gen407, primVoid(), "stop", formal(primString() , "file", false, false), formal(primInt(), "line", false, false), formal(primCode(), "s", true, false));
-#line 4355 "runtime.in"
- addFunc(ve, run::gen408, primVoid(), "breakpoints");
-#line 4361 "runtime.in"
- addFunc(ve, run::gen409, primVoid(), "clear", formal(primString() , "file", false, false), formal(primInt(), "line", false, false));
-#line 4367 "runtime.in"
- addFunc(ve, run::gen410, primVoid(), "clear");
-#line 4372 "runtime.in"
- addFunc(ve, run::gen411, primString() , "stripdirectory", formal(primString(), "s", false, false));
-#line 4378 "runtime.in"
- addFunc(ve, run::gen412, primString() , "stripfile", formal(primString(), "s", false, false));
-#line 4384 "runtime.in"
- addFunc(ve, run::gen413, primString() , "stripextension", formal(primString(), "s", false, false));
-#line 4390 "runtime.in"
- addFunc(ve, run::gen414, primInt(), "convert", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false));
-#line 4408 "runtime.in"
- addFunc(ve, run::gen415, primInt(), "animate", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false));
+ addFunc(ve, run::gen389, primReal(), "length", formal(primTriple(), "v", false, false));
+#line 4264 "runtime.in"
+ addFunc(ve, run::gen390, primReal(), "abs", formal(primTriple(), "v", false, false));
+#line 4269 "runtime.in"
+ addFunc(ve, run::gen391, primReal(), "polar", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4275 "runtime.in"
+ addFunc(ve, run::gen392, primReal(), "azimuth", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4281 "runtime.in"
+ addFunc(ve, run::gen393, primReal(), "colatitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4287 "runtime.in"
+ addFunc(ve, run::gen394, primReal(), "latitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4293 "runtime.in"
+ addFunc(ve, run::gen395, primReal(), "longitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false));
+#line 4300 "runtime.in"
+ addFunc(ve, run::gen396, primTriple(), "unit", formal(primTriple(), "v", false, false));
+#line 4305 "runtime.in"
+ addFunc(ve, run::gen397, primReal(), "dot", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
+#line 4310 "runtime.in"
+ addFunc(ve, run::gen398, primTriple(), "cross", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false));
+#line 4315 "runtime.in"
+ addFunc(ve, run::gen399, primTriple(), "expi", formal(primReal(), "polar", false, false), formal(primReal(), "azimuth", false, false));
+#line 4320 "runtime.in"
+ addFunc(ve, run::gen400, primTriple(), "dir", formal(primReal(), "colatitude", false, false), formal(primReal(), "longitude", false, false));
+#line 4325 "runtime.in"
+ addFunc(ve, run::gen401, primVoid(), "atupdate", formal(voidFunction(), "f", false, false));
+#line 4333 "runtime.in"
+ addFunc(ve, run::gen402, voidFunction(), "atupdate");
+#line 4338 "runtime.in"
+ addFunc(ve, run::gen403, primVoid(), "atexit", formal(voidFunction(), "f", false, false));
+#line 4343 "runtime.in"
+ addFunc(ve, run::gen404, voidFunction(), "atexit");
+#line 4348 "runtime.in"
+ addFunc(ve, run::gen405, primVoid(), "atbreakpoint", formal(breakpointFunction(), "f", false, false));
+#line 4353 "runtime.in"
+ addFunc(ve, run::gen406, primVoid(), "breakpoint", formal(primCode(), "s", true, false));
+#line 4358 "runtime.in"
+ addFunc(ve, run::gen407, primString() , "locatefile", formal(primString() , "file", false, false));
+#line 4363 "runtime.in"
+ addFunc(ve, run::gen408, primVoid(), "stop", formal(primString() , "file", false, false), formal(primInt(), "line", false, false), formal(primCode(), "s", true, false));
+#line 4371 "runtime.in"
+ addFunc(ve, run::gen409, primVoid(), "breakpoints");
+#line 4377 "runtime.in"
+ addFunc(ve, run::gen410, primVoid(), "clear", formal(primString() , "file", false, false), formal(primInt(), "line", false, false));
+#line 4383 "runtime.in"
+ addFunc(ve, run::gen411, primVoid(), "clear");
+#line 4388 "runtime.in"
+ addFunc(ve, run::gen412, primString() , "stripdirectory", formal(primString(), "s", false, false));
+#line 4394 "runtime.in"
+ addFunc(ve, run::gen413, primString() , "stripfile", formal(primString(), "s", false, false));
+#line 4400 "runtime.in"
+ addFunc(ve, run::gen414, primString() , "stripextension", formal(primString(), "s", false, false));
+#line 4406 "runtime.in"
+ addFunc(ve, run::gen415, primInt(), "convert", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false));
#line 4424 "runtime.in"
- addFunc(ve, run::gen416, primInt(), "delete", formal(primString(), "s", false, false));
-#line 4434 "runtime.in"
- addFunc(ve, run::gen417, primInt(), "rename", formal(primString(), "from", false, false), formal(primString(), "to", false, false));
-#line 4733 "runtime.in"
- addFunc(ve, run::gen448, IntArray(), "complement", formal(IntArray(), "a", false, false), formal(primInt(), "n", false, false));
-#line 4765 "runtime.in"
- addFunc(ve, run::gen450, IntArray(), "sequence", formal(primInt(), "n", false, false));
-#line 4798 "runtime.in"
- addFunc(ve, run::gen453, primBoolean(), "all", formal(boolArray(), "a", false, false));
-#line 4807 "runtime.in"
- addFunc(ve, run::gen454, boolArray(), "!", formal(boolArray(), "a", false, false));
-#line 4816 "runtime.in"
- addFunc(ve, run::gen455, primInt(), "sum", formal(boolArray(), "a", false, false));
-#line 4979 "runtime.in"
- addFunc(ve, run::gen462, primInt(), "find", formal(boolArray(), "a", false, false), formal(primInt(), "n", true, false));
-#line 4999 "runtime.in"
- addFunc(ve, run::gen463, primBoolean(), "==", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false));
-#line 5044 "runtime.in"
- addFunc(ve, run::gen465, realArray2(), "identity", formal(primInt(), "n", false, false));
-#line 5067 "runtime.in"
- addFunc(ve, run::gen467, realArray2(), "inverse", formal(realArray2(), "a", false, false));
-#line 5159 "runtime.in"
- addFunc(ve, run::gen468, realArray(), "solve", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false), formal(primBoolean(), "warn", true, false));
-#line 5210 "runtime.in"
- addFunc(ve, run::gen469, realArray2(), "solve", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false), formal(primBoolean(), "warn", true, false));
-#line 5274 "runtime.in"
- addFunc(ve, run::gen470, primReal(), "determinant", formal(realArray2(), "a", false, false));
+ addFunc(ve, run::gen416, primInt(), "animate", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false));
+#line 4440 "runtime.in"
+ addFunc(ve, run::gen417, primInt(), "delete", formal(primString(), "s", false, false));
+#line 4450 "runtime.in"
+ addFunc(ve, run::gen418, primInt(), "rename", formal(primString(), "from", false, false), formal(primString(), "to", false, false));
+#line 4749 "runtime.in"
+ addFunc(ve, run::gen449, IntArray(), "complement", formal(IntArray(), "a", false, false), formal(primInt(), "n", false, false));
+#line 4781 "runtime.in"
+ addFunc(ve, run::gen451, IntArray(), "sequence", formal(primInt(), "n", false, false));
+#line 4814 "runtime.in"
+ addFunc(ve, run::gen454, primBoolean(), "all", formal(boolArray(), "a", false, false));
+#line 4823 "runtime.in"
+ addFunc(ve, run::gen455, boolArray(), "!", formal(boolArray(), "a", false, false));
+#line 4832 "runtime.in"
+ addFunc(ve, run::gen456, primInt(), "sum", formal(boolArray(), "a", false, false));
+#line 4995 "runtime.in"
+ addFunc(ve, run::gen463, primInt(), "find", formal(boolArray(), "a", false, false), formal(primInt(), "n", true, false));
+#line 5015 "runtime.in"
+ addFunc(ve, run::gen464, primBoolean(), "==", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false));
+#line 5060 "runtime.in"
+ addFunc(ve, run::gen466, realArray2(), "identity", formal(primInt(), "n", false, false));
+#line 5083 "runtime.in"
+ addFunc(ve, run::gen468, realArray2(), "inverse", formal(realArray2(), "a", false, false));
+#line 5175 "runtime.in"
+ addFunc(ve, run::gen469, realArray(), "solve", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false), formal(primBoolean(), "warn", true, false));
+#line 5226 "runtime.in"
+ addFunc(ve, run::gen470, realArray2(), "solve", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false), formal(primBoolean(), "warn", true, false));
#line 5290 "runtime.in"
- addFunc(ve, run::gen471, realArray(), "*", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false));
-#line 5308 "runtime.in"
- addFunc(ve, run::gen472, realArray2(), "*", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false));
-#line 5343 "runtime.in"
- addFunc(ve, run::gen473, primTriple(), "*", formal(realArray2(), "t", false, false), formal(primTriple(), "v", false, false));
-#line 5348 "runtime.in"
- addFunc(ve, run::gen474, primPair(), "project", formal(primTriple(), "v", false, false), formal(realArray2(), "t", false, false));
-#line 5373 "runtime.in"
- addFunc(ve, run::gen475, primReal(), "dot", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false));
-#line 5383 "runtime.in"
- addFunc(ve, run::gen476, realArray(), "tridiagonal", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false), formal(realArray(), "c", false, false), formal(realArray(), "f", false, false));
-#line 5487 "runtime.in"
- addFunc(ve, run::gen477, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x", false, false), formal(primBoolean(), "verbose", true, false));
-#line 5534 "runtime.in"
- addFunc(ve, run::gen478, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x1", false, false), formal(primReal(), "x2", false, false), formal(primBoolean(), "verbose", true, false));
-#line 5616 "runtime.in"
- addFunc(ve, run::gen479, primReal(), "simpson", formal(realRealFunction(), "f", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "acc", true, false), formal(primReal(), "dxmax", true, false));
-#line 5658 "runtime.in"
- addFunc(ve, run::gen481, IntArray2(), "triangulate", formal(pairArray(), "z", false, false));
-#line 5693 "runtime.in"
- addFunc(ve, run::gen482, primBoolean(), "==", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false));
-#line 5701 "runtime.in"
- addFunc(ve, run::gen483, primBoolean(), "!=", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false));
-#line 5711 "runtime.in"
- addFunc(ve, run::gen485, primFile(), "input", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false), formal(primString() , "comment", true, false));
-#line 5719 "runtime.in"
- addFunc(ve, run::gen486, primFile(), "output", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false), formal(primString() , "comment", true, false));
-#line 5731 "runtime.in"
- addFunc(ve, run::gen487, primFile(), "xinput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false));
-#line 5745 "runtime.in"
- addFunc(ve, run::gen488, primFile(), "xoutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false));
-#line 5763 "runtime.in"
- addFunc(ve, run::gen489, primFile(), "binput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false));
-#line 5770 "runtime.in"
- addFunc(ve, run::gen490, primFile(), "boutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false));
-#line 5780 "runtime.in"
- addFunc(ve, run::gen491, primBoolean(), "eof", formal(primFile(), "file", false, false));
-#line 5785 "runtime.in"
- addFunc(ve, run::gen492, primBoolean(), "eol", formal(primFile(), "file", false, false));
-#line 5790 "runtime.in"
- addFunc(ve, run::gen493, primBoolean(), "error", formal(primFile(), "file", false, false));
-#line 5795 "runtime.in"
- addFunc(ve, run::gen494, primVoid(), "clear", formal(primFile(), "file", false, false));
-#line 5800 "runtime.in"
- addFunc(ve, run::gen495, primVoid(), "close", formal(primFile(), "file", false, false));
-#line 5805 "runtime.in"
- addFunc(ve, run::gen496, primInt(), "precision", formal(primFile(), "file", true, false), formal(primInt(), "digits", true, false));
+ addFunc(ve, run::gen471, primReal(), "determinant", formal(realArray2(), "a", false, false));
+#line 5306 "runtime.in"
+ addFunc(ve, run::gen472, realArray(), "*", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false));
+#line 5324 "runtime.in"
+ addFunc(ve, run::gen473, realArray2(), "*", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false));
+#line 5359 "runtime.in"
+ addFunc(ve, run::gen474, primTriple(), "*", formal(realArray2(), "t", false, false), formal(primTriple(), "v", false, false));
+#line 5364 "runtime.in"
+ addFunc(ve, run::gen475, primPair(), "project", formal(primTriple(), "v", false, false), formal(realArray2(), "t", false, false));
+#line 5389 "runtime.in"
+ addFunc(ve, run::gen476, primReal(), "dot", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false));
+#line 5399 "runtime.in"
+ addFunc(ve, run::gen477, realArray(), "tridiagonal", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false), formal(realArray(), "c", false, false), formal(realArray(), "f", false, false));
+#line 5503 "runtime.in"
+ addFunc(ve, run::gen478, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x", false, false), formal(primBoolean(), "verbose", true, false));
+#line 5550 "runtime.in"
+ addFunc(ve, run::gen479, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x1", false, false), formal(primReal(), "x2", false, false), formal(primBoolean(), "verbose", true, false));
+#line 5632 "runtime.in"
+ addFunc(ve, run::gen480, primReal(), "simpson", formal(realRealFunction(), "f", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "acc", true, false), formal(primReal(), "dxmax", true, false));
+#line 5674 "runtime.in"
+ addFunc(ve, run::gen482, IntArray2(), "triangulate", formal(pairArray(), "z", false, false));
+#line 5709 "runtime.in"
+ addFunc(ve, run::gen483, primBoolean(), "==", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false));
+#line 5717 "runtime.in"
+ addFunc(ve, run::gen484, primBoolean(), "!=", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false));
+#line 5727 "runtime.in"
+ addFunc(ve, run::gen486, primFile(), "input", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false), formal(primString() , "comment", true, false));
+#line 5735 "runtime.in"
+ addFunc(ve, run::gen487, primFile(), "output", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false), formal(primString() , "comment", true, false));
+#line 5747 "runtime.in"
+ addFunc(ve, run::gen488, primFile(), "xinput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false));
+#line 5761 "runtime.in"
+ addFunc(ve, run::gen489, primFile(), "xoutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false));
+#line 5779 "runtime.in"
+ addFunc(ve, run::gen490, primFile(), "binput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false));
+#line 5786 "runtime.in"
+ addFunc(ve, run::gen491, primFile(), "boutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false));
+#line 5796 "runtime.in"
+ addFunc(ve, run::gen492, primBoolean(), "eof", formal(primFile(), "file", false, false));
+#line 5801 "runtime.in"
+ addFunc(ve, run::gen493, primBoolean(), "eol", formal(primFile(), "file", false, false));
+#line 5806 "runtime.in"
+ addFunc(ve, run::gen494, primBoolean(), "error", formal(primFile(), "file", false, false));
#line 5811 "runtime.in"
- addFunc(ve, run::gen497, primVoid(), "flush", formal(primFile(), "file", false, false));
+ addFunc(ve, run::gen495, primVoid(), "clear", formal(primFile(), "file", false, false));
#line 5816 "runtime.in"
- addFunc(ve, run::gen498, primString() , "getc", formal(primFile(), "file", false, false));
-#line 5825 "runtime.in"
- addFunc(ve, run::gen499, primInt(), "tell", formal(primFile(), "file", false, false));
-#line 5830 "runtime.in"
- addFunc(ve, run::gen500, primVoid(), "seek", formal(primFile(), "file", false, false), formal(primInt(), "pos", false, false));
-#line 5835 "runtime.in"
- addFunc(ve, run::gen501, primVoid(), "seekeof", formal(primFile(), "file", false, false));
-#line 5840 "runtime.in"
- addFunc(ve, run::gen502, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false));
-#line 5847 "runtime.in"
- addFunc(ve, run::gen503, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false), formal(primInt(), "ny", false, false));
-#line 5853 "runtime.in"
- addFunc(ve, run::gen504, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false), formal(primInt(), "ny", false, false), formal(primInt(), "nz", false, false));
-#line 5859 "runtime.in"
- addFunc(ve, run::gen505, primFile(), "csv", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
-#line 5866 "runtime.in"
- addFunc(ve, run::gen506, primFile(), "word", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
-#line 5873 "runtime.in"
- addFunc(ve, run::gen507, primFile(), "line", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
-#line 5880 "runtime.in"
- addFunc(ve, run::gen508, primFile(), "single", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
-#line 5888 "runtime.in"
- addFunc(ve, run::gen509, primFile(), "single", formal(primFile(), "file", false, false), formal(primReal(), "x", false, false), formal(primBoolean(), "b", true, false));
+ addFunc(ve, run::gen496, primVoid(), "close", formal(primFile(), "file", false, false));
+#line 5821 "runtime.in"
+ addFunc(ve, run::gen497, primInt(), "precision", formal(primFile(), "file", true, false), formal(primInt(), "digits", true, false));
+#line 5827 "runtime.in"
+ addFunc(ve, run::gen498, primVoid(), "flush", formal(primFile(), "file", false, false));
+#line 5832 "runtime.in"
+ addFunc(ve, run::gen499, primString() , "getc", formal(primFile(), "file", false, false));
+#line 5841 "runtime.in"
+ addFunc(ve, run::gen500, primInt(), "tell", formal(primFile(), "file", false, false));
+#line 5846 "runtime.in"
+ addFunc(ve, run::gen501, primVoid(), "seek", formal(primFile(), "file", false, false), formal(primInt(), "pos", false, false));
+#line 5851 "runtime.in"
+ addFunc(ve, run::gen502, primVoid(), "seekeof", formal(primFile(), "file", false, false));
+#line 5856 "runtime.in"
+ addFunc(ve, run::gen503, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false));
+#line 5863 "runtime.in"
+ addFunc(ve, run::gen504, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false), formal(primInt(), "ny", false, false));
+#line 5869 "runtime.in"
+ addFunc(ve, run::gen505, primFile(), "dimension", formal(primFile(), "file", false, false), formal(primInt(), "nx", false, false), formal(primInt(), "ny", false, false), formal(primInt(), "nz", false, false));
+#line 5875 "runtime.in"
+ addFunc(ve, run::gen506, primFile(), "csv", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
+#line 5882 "runtime.in"
+ addFunc(ve, run::gen507, primFile(), "word", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
+#line 5889 "runtime.in"
+ addFunc(ve, run::gen508, primFile(), "line", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
#line 5896 "runtime.in"
- addFunc(ve, run::gen510, primFile(), "single", formal(primFile(), "file", false, false), formal(primInt(), "x", false, false), formal(primBoolean(), "b", true, false));
+ addFunc(ve, run::gen509, primFile(), "single", formal(primFile(), "file", false, false), formal(primBoolean(), "b", true, false));
#line 5904 "runtime.in"
- addFunc(ve, run::gen511, primFile(), "read1", formal(primFile(), "file", false, false));
-#line 5911 "runtime.in"
- addFunc(ve, run::gen512, primFile(), "read2", formal(primFile(), "file", false, false));
-#line 5918 "runtime.in"
- addFunc(ve, run::gen513, primFile(), "read3", formal(primFile(), "file", false, false));
-#line 5925 "runtime.in"
- addFunc(ve, run::gen514, stringArray(), "history", formal(primString() , "name", false, false), formal(primInt(), "n", true, false));
-#line 5958 "runtime.in"
- addFunc(ve, run::gen515, stringArray(), "history", formal(primInt(), "n", true, false));
-#line 5969 "runtime.in"
- addFunc(ve, run::gen516, primString() , "readline", formal(primString() , "prompt", true, false), formal(primString() , "name", true, false), formal(primBoolean(), "tabcompletion", true, false));
-#line 6013 "runtime.in"
- addFunc(ve, run::gen517, primVoid(), "saveline", formal(primString() , "name", false, false), formal(primString() , "value", false, false), formal(primBoolean(), "store", true, false));
-#line 6043 "runtime.in"
- addFunc(ve, run::gen518, primVoid(), "generate_random_backtrace");
-#line 6052 "runtime.in"
- addFunc(ve, run::gen519, primVoid(), "print_random_addresses", formal(primInt(), "n", true, false));
+ addFunc(ve, run::gen510, primFile(), "single", formal(primFile(), "file", false, false), formal(primReal(), "x", false, false), formal(primBoolean(), "b", true, false));
+#line 5912 "runtime.in"
+ addFunc(ve, run::gen511, primFile(), "single", formal(primFile(), "file", false, false), formal(primInt(), "x", false, false), formal(primBoolean(), "b", true, false));
+#line 5920 "runtime.in"
+ addFunc(ve, run::gen512, primFile(), "read1", formal(primFile(), "file", false, false));
+#line 5927 "runtime.in"
+ addFunc(ve, run::gen513, primFile(), "read2", formal(primFile(), "file", false, false));
+#line 5934 "runtime.in"
+ addFunc(ve, run::gen514, primFile(), "read3", formal(primFile(), "file", false, false));
+#line 5941 "runtime.in"
+ addFunc(ve, run::gen515, stringArray(), "history", formal(primString() , "name", false, false), formal(primInt(), "n", true, false));
+#line 5974 "runtime.in"
+ addFunc(ve, run::gen516, stringArray(), "history", formal(primInt(), "n", true, false));
+#line 5985 "runtime.in"
+ addFunc(ve, run::gen517, primString() , "readline", formal(primString() , "prompt", true, false), formal(primString() , "name", true, false), formal(primBoolean(), "tabcompletion", true, false));
+#line 6029 "runtime.in"
+ addFunc(ve, run::gen518, primVoid(), "saveline", formal(primString() , "name", false, false), formal(primString() , "value", false, false), formal(primBoolean(), "store", true, false));
+#line 6059 "runtime.in"
+ addFunc(ve, run::gen519, primVoid(), "generate_random_backtrace");
+#line 6068 "runtime.in"
+ addFunc(ve, run::gen520, primVoid(), "print_random_addresses", formal(primInt(), "n", true, false));
}
} // namespace trans
diff --git a/Build/source/utils/asymptote/runtime.in b/Build/source/utils/asymptote/runtime.in
index b921b6217e2..ecaf3d61d31 100644
--- a/Build/source/utils/asymptote/runtime.in
+++ b/Build/source/utils/asymptote/runtime.in
@@ -962,9 +962,25 @@ inline triple perp(triple v, triple u)
return v-dot(v,u)*u;
}
-string ASYo="/ASYo {( ) print 12 string cvs print} bind def";
-string pathforall="{(M) print ASYo ASYo} {(L) print ASYo ASYo} {(C) print ASYo ASYo ASYo ASYo ASYo ASYo} {(c) print} pathforall";
-string currentpoint="print currentpoint ASYo ASYo ";
+string ASYx="/ASYx {( ) print ASYX sub 12 string cvs print} bind def";
+string ASYy="/ASYy {( ) print ASYY sub 12 string cvs print} bind def";
+string pathforall="{(M) print ASYy ASYx} {(L) print ASYy ASYx} {(C) print ASYy ASYx ASYy ASYx ASYy ASYx} {(c) print} pathforall";
+string currentpoint="print currentpoint ASYy ASYx ";
+string ASYinit="/ASYX currentpoint pop def /ASYY currentpoint exch pop def ";
+string ASY1="ASY1 {"+ASYinit+"/ASY1 false def} if ";
+
+void showpath(std::ofstream& ps)
+{
+ ps << ASYx << newl
+ << ASYy << newl
+ << "/ASY1 true def" << newl
+ << "/fill {" << ASY1
+ << pathforall << " (M) " << currentpoint
+ << "currentpoint newpath moveto } bind def" << newl
+ << "/stroke {" << ASY1 << "strokepath "
+ << pathforall << " (M) " << currentpoint
+ << "currentpoint newpath moveto } bind def" << endl;
+}
array *readpath(const string& psname, bool keep,
double hscale=1.0, double vscale=1.0)
@@ -995,7 +1011,6 @@ array *readpath(const string& psname, bool keep,
bool cyclic=false;
bool active=false;
- pair offset;
while(!buf.eof()) {
char c;
buf >> c;
@@ -1023,13 +1038,13 @@ array *readpath(const string& psname, bool keep,
}
active=false;
cyclic=false;
- node.pre=node.point=readpair(buf,hscale,vscale)-offset;
+ node.pre=node.point=readpair(buf,hscale,vscale);
node.straight=false;
break;
}
case 'L':
{
- pair point=readpair(buf,hscale,vscale)-offset;
+ pair point=readpair(buf,hscale,vscale);
pair delta=(point-node.point)*third;
node.post=node.point+delta;
node.straight=true;
@@ -1041,9 +1056,9 @@ array *readpath(const string& psname, bool keep,
}
case 'C':
{
- pair point=readpair(buf,hscale,vscale)-offset;
- pair pre=readpair(buf,hscale,vscale)-offset;
- node.post=readpair(buf,hscale,vscale)-offset;
+ pair point=readpair(buf,hscale,vscale);
+ pair pre=readpair(buf,hscale,vscale);
+ node.post=readpair(buf,hscale,vscale);
node.straight=false;
nodes.push_back(node);
active=true;
@@ -1056,11 +1071,6 @@ array *readpath(const string& psname, bool keep,
cyclic=true;
break;
}
- case 'Z':
- {
- offset=readpair(buf,hscale,vscale);
- break;
- }
}
}
@@ -1272,6 +1282,26 @@ bool labels(picture *f)
return f->havelabels();
}
+realarray *texsize(string *s, pen p=CURRENTPEN)
+{
+ texinit();
+ processDataStruct &pd=processData();
+
+ string texengine=getSetting<string>("tex");
+ const char **abort=texabort(texengine);
+ setpen(pd.tex,texengine,p);
+
+ double width,height,depth;
+ if(!texbounds(width,height,depth,pd.tex,*s,abort,false,true))
+ return new array(0);
+
+ array *t=new array(3);
+ (*t)[0]=width;
+ (*t)[1]=height;
+ (*t)[2]=depth;
+ return t;
+}
+
patharray *_texpath(string *s, pen p=CURRENTPEN)
{
array *P=new array(0);
@@ -1290,18 +1320,19 @@ patharray *_texpath(string *s, pen p=CURRENTPEN)
if(!pdf) {
tex.verbatimline("\\special{ps:");
- tex.verbatimline(ASYo);
+ tex.verbatimline(ASYx);
+ tex.verbatimline(ASYy);
tex.verbatimline("/ASY1 true def");
- tex.verbatimline("/v {neg exch 4 copy 4 2 roll 2 copy 6 2 roll 2 copy (M) print ASYo ASYo (L) print ASYo add ASYo (L) print add ASYo add ASYo (L) print add ASYo ASYo (c) print} bind def");
- tex.verbatimline("/show {ASY1 {(Z) "+currentpoint+
- "/ASY1 false def} if currentpoint newpath moveto false charpath "+
+ tex.verbatimline("/v {neg exch 4 copy 4 2 roll 2 copy 6 2 roll 2 copy (M) print ASYy ASYx (L) print ASYy add ASYx (L) print add ASYy add ASYx (L) print add ASYy ASYx (c) print} bind def");
+ tex.verbatimline("/show {"+ASY1+
+ "currentpoint newpath moveto false charpath "+
pathforall+"} bind def}");
}
tex.verbatimline(*s+"%");
tex.epilogue(true);
tex.close();
- // TODO: Put in common subproutine (cf. teprocess).
+ // TODO: Put in common subproutine (cf. texprocess).
string aux=auxname(prefix,"aux");
unlink(aux.c_str());
string program=texprogram();
@@ -1329,16 +1360,8 @@ patharray *_texpath(string *s, pen p=CURRENTPEN)
std::ofstream ps(psname.c_str());
if(!ps) cannotwrite(psname);
- ps << ASYo << newl
- << "/ASY1 true def" << newl
- << "/fill {ASY1 {(Z) " << currentpoint << "/ASY1 false def} if "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl
- << "/stroke {ASY1 {(Z) " << currentpoint
- << "/ASY1 false def} if strokepath "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl;
-
+ showpath(ps);
+
ostringstream cmd;
cmd << "'" << getSetting<string>("gs")
<< "' -q -dNOCACHE -dNOPAUSE -dBATCH";
@@ -1411,15 +1434,7 @@ patharray *textpath(string *s, pen p=CURRENTPEN)
std::ofstream ps(psname.c_str());
if(!ps) cannotwrite(psname);
- ps << ASYo << newl
- << "/ASY1 true def" << newl
- << "/fill {ASY1 {(Z) " << currentpoint << "/ASY1 false def} if "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << newl
- << "/stroke {ASY1 {(Z) " << currentpoint
- << "/ASY1 false def} if strokepath "
- << pathforall << " (M) " << currentpoint
- << "currentpoint newpath moveto } bind def" << endl;
+ showpath(ps);
ostringstream pipe;
pipe << getSetting<string>("textcommand") << " '" << textname << "'";
@@ -1470,8 +1485,9 @@ patharray *_strokepath(path g, pen p=CURRENTPEN)
bbox b;
psfile ps(psname,false);
ps.prologue(b);
- ps.verbatimline(ASYo);
- ps.verbatimline("/stroke {(Z) "+currentpoint+pathforall+"} bind def");
+ ps.verbatimline(ASYx);
+ ps.verbatimline(ASYy);
+ ps.verbatimline("/stroke {"+ASYinit+pathforall+"} bind def");
ps.resetpen();
ps.setpen(p);
ps.write(g);
diff --git a/Build/source/utils/asymptote/settings.cc b/Build/source/utils/asymptote/settings.cc
index 3af58073c3a..5c24dba4e93 100644
--- a/Build/source/utils/asymptote/settings.cc
+++ b/Build/source/utils/asymptote/settings.cc
@@ -1339,13 +1339,6 @@ const char *endspecial() {
return "}%";
}
-// Default TeX units.
-const char *texunits(const string& texengine)
-{
- return xe(texengine) ? "bp" : "pt";
-}
-
-
bool fataltex[]={false,true};
const char *pdftexerrors[]={"! "," ==> Fatal error",NULL};
const char *texerrors[]={"! ",NULL};
diff --git a/Build/source/utils/asymptote/settings.h b/Build/source/utils/asymptote/settings.h
index 7261313a1fd..e7b3a6301ce 100644
--- a/Build/source/utils/asymptote/settings.h
+++ b/Build/source/utils/asymptote/settings.h
@@ -107,7 +107,6 @@ const char *beginpicture(const string& texengine);
const char *endpicture(const string& texengine);
const char *beginspecial(const string& texengine);
const char *endspecial();
-const char *texunits(const string& texengine);
extern bool fataltex[];
const char **texabort(const string& texengine);
diff --git a/Build/source/utils/asymptote/texfile.cc b/Build/source/utils/asymptote/texfile.cc
index ef81e38d816..eb6a2c33c57 100644
--- a/Build/source/utils/asymptote/texfile.cc
+++ b/Build/source/utils/asymptote/texfile.cc
@@ -14,7 +14,6 @@
using std::ofstream;
using settings::getSetting;
-
namespace camp {
texfile::texfile(const string& texname, const bbox& box, bool pipe)
@@ -137,7 +136,6 @@ void texfile::prologue()
void texfile::beginlayer(const string& psname, bool postscript)
{
- const char *units=settings::texunits(texengine);
if(box.right > box.left && box.top > box.bottom) {
if(postscript) {
if(settings::context(texengine))
@@ -150,14 +148,12 @@ void texfile::beginlayer(const string& psname, bool postscript)
*out << "{" << psname << "}%" << newl;
}
if(!inlinetex)
- *out << "\\kern " << (box.left-box.right)*ps2tex << units
- << "%" << newl;
+ *out << "\\kern " << (box.left-box.right)*ps2tex << "pt%" << newl;
} else {
*out << "\\leavevmode\\vbox to " << (box.top-box.bottom)*ps2tex
- << units << "{}%" << newl;
+ << "pt{}%" << newl;
if(inlinetex)
- *out << "\\kern " << (box.right-box.left)*ps2tex << units
- << "%" << newl;
+ *out << "\\kern " << (box.right-box.left)*ps2tex << "pt%" << newl;
}
}
}
@@ -165,8 +161,7 @@ void texfile::beginlayer(const string& psname, bool postscript)
void texfile::endlayer()
{
if(inlinetex && (box.right > box.left && box.top > box.bottom))
- *out << "\\kern " << (box.left-box.right)*ps2tex
- << settings::texunits(texengine) << "%" << newl;
+ *out << "\\kern " << (box.left-box.right)*ps2tex << "pt%" << newl;
}
void texfile::writeshifted(path p, bool newPath)
diff --git a/Build/source/utils/asymptote/texfile.h b/Build/source/utils/asymptote/texfile.h
index f2a5d22dccd..32862613b51 100644
--- a/Build/source/utils/asymptote/texfile.h
+++ b/Build/source/utils/asymptote/texfile.h
@@ -26,9 +26,6 @@
namespace camp {
-const double tex2ps=72.0/72.27;
-const double ps2tex=1.0/tex2ps;
-
template<class T>
void texdocumentclass(T& out, bool pipe=false)
{