summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/runlabel.in
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/asymptote/runlabel.in')
-rw-r--r--Build/source/utils/asymptote/runlabel.in399
1 files changed, 399 insertions, 0 deletions
diff --git a/Build/source/utils/asymptote/runlabel.in b/Build/source/utils/asymptote/runlabel.in
new file mode 100644
index 00000000000..fde2c42a031
--- /dev/null
+++ b/Build/source/utils/asymptote/runlabel.in
@@ -0,0 +1,399 @@
+/*****
+ * runlabel.in
+ *
+ * Runtime functions for label operations.
+ *
+ *****/
+
+pen => primPen()
+pair => primPair()
+path => primPath()
+picture* => primPicture()
+transform => primTransform()
+realarray* => realArray()
+patharray* => pathArray()
+
+#include "picture.h"
+#include "drawlabel.h"
+
+using namespace camp;
+using namespace vm;
+using namespace settings;
+
+typedef array realarray;
+typedef array patharray;
+
+using types::realArray;
+using types::pathArray;
+
+void cannotread(const string& s)
+{
+ ostringstream buf;
+ buf << "Cannot read from " << s;
+ error(buf);
+}
+
+void cannotwrite(const string& s)
+{
+ ostringstream buf;
+ buf << "Cannot write to " << s;
+ error(buf);
+}
+
+pair readpair(stringstream& s, double hscale=1.0, double vscale=1.0)
+{
+ double x,y;
+ s >> y;
+ s >> x;
+ return pair(hscale*x,vscale*y);
+}
+
+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 vsign=1.0)
+{
+ double vscale=vsign*hscale;
+ array *P=new array(0);
+ mem::vector<string> cmd;
+ cmd.push_back(getSetting<string>("gs"));
+ cmd.push_back("-q");
+ cmd.push_back("-dNOPAUSE");
+ cmd.push_back("-dBATCH");
+ if(safe) cmd.push_back("-dSAFER");
+#ifdef __CYGWIN__
+ const string null="NUL";
+#else
+ const string null="/dev/null";
+#endif
+ cmd.push_back("-sDEVICE=epswrite");
+ cmd.push_back("-sOutputFile="+null);
+ cmd.push_back(psname);
+ iopipestream gs(cmd,"gs","Ghostscript");
+ stringstream buf;
+ while(true) {
+ string out;
+ gs >> out;
+ if(out.empty() && !gs.running()) break;
+ buf << out;
+ }
+ if(verbose > 2) cout << endl;
+
+ mem::vector<solvedKnot> nodes;
+ solvedKnot node;
+ bool cyclic=false;
+ bool active=false;
+
+ while(!buf.eof()) {
+ char c;
+ buf >> c;
+ switch(c) {
+ case 'M':
+ {
+ if(active) {
+ if(cyclic) {
+ if(node.point == nodes[0].point)
+ nodes[0].pre=node.pre;
+ else {
+ pair delta=(nodes[0].point-node.point)*third;
+ node.post=node.point+delta;
+ nodes[0].pre=nodes[0].point-delta;
+ node.straight=true;
+ nodes.push_back(node);
+ }
+ } else {
+ node.post=node.point;
+ node.straight=false;
+ nodes.push_back(node);
+ }
+ P->push(path(nodes,nodes.size(),cyclic));
+ nodes.clear();
+ }
+ active=false;
+ cyclic=false;
+ node.pre=node.point=readpair(buf,hscale,vscale);
+ node.straight=false;
+ break;
+ }
+ case 'L':
+ {
+ pair point=readpair(buf,hscale,vscale);
+ pair delta=(point-node.point)*third;
+ node.post=node.point+delta;
+ node.straight=true;
+ nodes.push_back(node);
+ active=true;
+ node.pre=point-delta;
+ node.point=point;
+ break;
+ }
+ case 'C':
+ {
+ 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;
+ node.pre=pre;
+ node.point=point;
+ break;
+ }
+ case 'c':
+ {
+ cyclic=true;
+ break;
+ }
+ }
+ }
+
+ if(!keep)
+ unlink(psname.c_str());
+ return P;
+}
+
+// Autogenerated routines:
+
+
+void label(picture *f, string *s, string *size, transform t, pair position,
+ pair align, pen p)
+{
+ f->append(new drawLabel(*s,*size,t,position,align,p));
+}
+
+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);
+ if(s->empty()) return P;
+
+ string prefix=outname();
+ spaceToUnderscore(prefix);
+ string psname=auxname(prefix,"ps");
+ string texname=auxname(prefix,"tex");
+ string dviname=auxname(prefix,"dvi");
+ bbox b;
+ string texengine=getSetting<string>("tex");
+ bool pdf=settings::pdf(texengine);
+ texfile tex(texname,b,true);
+ tex.miniprologue();
+ tex.setfont(p);
+
+ if(!pdf) {
+ tex.verbatimline("\\special{ps:");
+ tex.verbatimline(ASYx);
+ tex.verbatimline(ASYy);
+ tex.verbatimline("/ASY1 true def");
+ tex.verbatimline("/v {"+ASY1+"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();
+
+ int status=opentex(texname,prefix);
+
+ string pdfname;
+ if(!status) {
+ if(pdf) {
+ pdfname=auxname(prefix,"pdf");
+ std::ofstream ps(psname.c_str());
+ if(!ps) cannotwrite(psname);
+
+ showpath(ps);
+
+ mem::vector<string> cmd;
+ cmd.push_back(getSetting<string>("gs"));
+ cmd.push_back("-q");
+ cmd.push_back("-dNOCACHE");
+ cmd.push_back("-dNOPAUSE");
+ cmd.push_back("-dBATCH");
+ if(safe) cmd.push_back("-dSAFER");
+ cmd.push_back("-sDEVICE=epswrite");
+ cmd.push_back("-sOutputFile=-");
+ cmd.push_back(pdfname);
+ iopipestream gs(cmd,"gs","Ghostscript");
+
+ gs.block(false);
+ while(true) {
+ string line;
+ gs >> line;
+ if(line.empty() && !gs.running()) break;
+ ps << line;
+ }
+ ps.close();
+ } else {
+ mem::vector<string> dcmd;
+ dcmd.push_back(getSetting<string>("dvips"));
+ dcmd.push_back("-R");
+ dcmd.push_back("-Pdownload35");
+ dcmd.push_back("-D600");
+ push_split(dcmd,getSetting<string>("dvipsOptions"));
+ if(verbose <= 2) dcmd.push_back("-q");
+ dcmd.push_back("-o"+psname);
+ dcmd.push_back(dviname);
+ status=System(dcmd,0,true,"dvips");
+ }
+ }
+
+ if(status != 0)
+ error("texpath failed");
+
+ bool keep=getSetting<bool>("keep");
+ if(!keep) { // Delete temporary files.
+ unlink(texname.c_str());
+ if(!getSetting<bool>("keepaux"))
+ unlink(auxname(prefix,"aux").c_str());
+ unlink(auxname(prefix,"log").c_str());
+ if(pdf)
+ unlink(pdfname.c_str());
+ else
+ unlink(dviname.c_str());
+ if(settings::context(texengine)) {
+ unlink(auxname(prefix,"top").c_str());
+ unlink(auxname(prefix,"tua").c_str());
+ unlink(auxname(prefix,"tui").c_str());
+ }
+ }
+ return pdf ? readpath(psname,keep,0.1) : readpath(psname,keep,0.12,-1.0);
+}
+
+patharray *textpath(string *s, pen p=CURRENTPEN)
+{
+ array *P=new array(0);
+ if(s->empty()) return P;
+
+ string prefix=outname();
+ spaceToUnderscore(prefix);
+ string outputname=auxname(prefix,getSetting<string>("textoutformat"));
+
+ string textname=auxname(prefix,getSetting<string>("textextension"));
+ std::ofstream text(textname.c_str());
+
+ if(!text) cannotwrite(textname);
+
+ text << getSetting<string>("textprologue") << newl
+ << p.Font() << newl
+ << *s << newl
+ << getSetting<string>("textepilogue") << endl;
+ text.close();
+
+ string psname=auxname(prefix,"ps");
+ std::ofstream ps(psname.c_str());
+ if(!ps) cannotwrite(psname);
+
+ showpath(ps);
+
+ mem::vector<string> cmd;
+ cmd.push_back(getSetting<string>("textcommand"));
+ push_split(cmd,getSetting<string>("textcommandOptions"));
+ cmd.push_back(textname);
+ iopipestream typesetter(cmd);
+
+ mem::vector<string> cmd2;
+ cmd2.push_back(getSetting<string>("gs"));
+ cmd2.push_back("-q");
+ cmd2.push_back("-dNOCACHE");
+ cmd2.push_back("-dNOPAUSE");
+ cmd2.push_back("-dBATCH");
+ if(safe) cmd2.push_back("-dSAFER");
+ cmd2.push_back("-sDEVICE=epswrite");
+ cmd2.push_back("-sOutputFile=-");
+ cmd2.push_back("-");
+ iopipestream gs(cmd2,"gs","Ghostscript");
+ gs.block(false);
+
+ // TODO: Simplify by connecting the pipes directly.
+ while(true) {
+ string out;
+ if(typesetter.isopen()) {
+ typesetter >> out;
+ if(!out.empty()) gs << out;
+ else if(!typesetter.running()) {
+ typesetter.pipeclose();
+ gs.eof();
+ }
+ }
+ string out2;
+ gs >> out2;
+ if(out2.empty() && !gs.running()) break;
+ ps << out2;
+ }
+ ps.close();
+
+ if(verbose > 2) cout << endl;
+
+ bool keep=getSetting<bool>("keep");
+ if(!keep) // Delete temporary files.
+ unlink(textname.c_str());
+ return readpath(psname,keep,0.1);
+}
+
+patharray *_strokepath(path g, pen p=CURRENTPEN)
+{
+ array *P=new array(0);
+ if(g.size() == 0) return P;
+
+ string prefix=outname();
+ spaceToUnderscore(prefix);
+ string psname=auxname(prefix,"ps");
+ bbox b;
+ psfile ps(psname,false);
+ ps.prologue(b);
+ ps.verbatimline(ASYx);
+ ps.verbatimline(ASYy);
+ ps.verbatimline("/stroke {"+ASYinit+pathforall+"} bind def");
+ ps.resetpen();
+ ps.setpen(p);
+ ps.write(g);
+ ps.strokepath();
+ ps.stroke();
+ ps.verbatimline("(M) "+currentpoint);
+ ps.epilogue();
+ ps.close();
+ return readpath(psname,getSetting<bool>("keep"));
+}