From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- graphics/asymptote/runlabel.in | 484 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 484 insertions(+) create mode 100644 graphics/asymptote/runlabel.in (limited to 'graphics/asymptote/runlabel.in') diff --git a/graphics/asymptote/runlabel.in b/graphics/asymptote/runlabel.in new file mode 100644 index 0000000000..9503a0b0ee --- /dev/null +++ b/graphics/asymptote/runlabel.in @@ -0,0 +1,484 @@ +/***** + * runlabel.in + * + * Runtime functions for label operations. + * + *****/ + +pen => primPen() + pair => primPair() + path => primPath() + picture* => primPicture() + transform => primTransform() + realarray* => realArray() + stringarray* => stringArray() + penarray* => penArray() + patharray* => pathArray() + patharray2* => pathArray2() + +#include "picture.h" +#include "drawlabel.h" +#include "locate.h" + +using namespace camp; +using namespace vm; +using namespace settings; + +typedef array realarray; +typedef array stringarray; +typedef array penarray; +typedef array patharray; +typedef array patharray2; + +using types::realArray; +using types::stringArray; +using types::penArray; +using types::pathArray; +using types::pathArray2; + +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 endpath(std::ostream& ps) +{ + ps << ASY1 << pathforall << " (M) " << currentpoint + << "currentpoint newpath moveto} bind def" << endl; +} + +void fillpath(std::ostream& ps) +{ + ps << "/fill {closepath "; + endpath(ps); +} + +void showpath(std::ostream& ps) +{ + ps << ASYx << newl + << ASYy << newl + << "/ASY1 true def" << newl + << "/stroke {strokepath "; + endpath(ps); + fillpath(ps); +} + +array *readpath(const string& psname, bool keep, bool pdf=false, + double hscale=1.0, double vsign=1.0) +{ + double vscale=vsign*hscale; + array *PP=new array(0); + + char *oldPath=NULL; + string dir=stripFile(outname()); + if(!dir.empty()) { + oldPath=getPath(); + setPath(dir.c_str()); + } + + mem::vector cmd; + cmd.push_back(getSetting("gs")); + cmd.push_back("-q"); + cmd.push_back("-dBATCH"); + cmd.push_back("-P"); + if(safe) cmd.push_back("-dSAFER"); +#ifdef __MSDOS__ + const string null="NUL"; +#else + const string null="/dev/null"; +#endif + string epsdriver=getSetting("epsdriver"); + cmd.push_back("-sDEVICE="+epsdriver); + cmd.push_back("-sOutputFile="+null); + cmd.push_back(stripDir(psname)); + iopipestream gs(cmd,"gs","Ghostscript"); + while(gs.running()) { + stringstream buf; + string s=gs.readline(); + if(s.empty()) break; + if(!pdf) gs << newl; + +// Workaround broken stringstream container in MacOS 10.9 libc++. +#if defined(__APPLE__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__ ) + for(string::iterator i=s.begin(); i != s.end(); ++i) { + if(isalpha(*i) && *i != 'e') {buf << " ";} + buf << *i; + } +#else + buf << s; +#endif + + if(verbose > 2) cout << endl; + + mem::vector nodes; + solvedKnot node; + bool active=false; + + array *P=new array(0); + PP->push(P); + + while(!buf.eof()) { + char c; + buf >> c; + if(c == '>') break; + + switch(c) { + case 'M': + { + 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': + { + if(active) { + 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); + } + P->push(path(nodes,nodes.size(),true)); // Discard noncyclic paths + nodes.clear(); + } + active=false; + node.straight=false; + break; + } + } + } + } + + if(oldPath != NULL) + setPath(oldPath); + + if(!keep) + unlink(psname.c_str()); + return PP; +} + +// 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("tex"); + setpen(pd.tex,texengine,p); + + double width,height,depth; + texbounds(width,height,depth,pd.tex,*s); + + array *t=new array(3); + (*t)[0]=width; + (*t)[1]=height; + (*t)[2]=depth; + return t; +} + +patharray2 *_texpath(stringarray *s, penarray *p) +{ + size_t n=checkArrays(s,p); + if(n == 0) return new array(0); + + string prefix=cleanpath(outname()); + string psname=auxname(prefix,"ps"); + string texname=auxname(prefix,"tex"); + string dviname=auxname(prefix,"dvi"); + bbox b; + string texengine=getSetting("tex"); + bool xe=settings::xe(texengine) || settings::lua(texengine) || + settings::context(texengine); + texfile tex(texname,b,true); + tex.miniprologue(); + + for(size_t i=0; i < n; ++i) { + tex.setfont(read(p,i)); + if(i != 0) { + if(texengine == "context") + tex.verbatimline("}\\page\\hbox{%"); + else if(texengine == "luatex" || texengine == "tex" || + texengine == "pdftex") + tex.verbatimline("\\eject"); + else + tex.verbatimline("\\newpage"); + } + if(!xe) { + tex.verbatimline("\\special{ps:"); + tex.verbatimline(ASYx); + tex.verbatimline(ASYy); + tex.verbatimline("/ASY1 true def"); + tex.verbatimline("/show {"+ASY1+ + "currentpoint newpath moveto false charpath "+pathforall+ + "} bind def"); + tex.verbatimline("/V {"+ASY1+"Ry neg Rx 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(read(s,i)+"\\ %"); + } + + tex.epilogue(true); + tex.close(); + + int status=opentex(texname,prefix,!xe); + + string pdfname,pdfname2,psname2; + bool keep=getSetting("keep"); + + bool legacygs=false; + if(!status) { + if(xe) { +// Use legacy ghostscript driver for gs-9.13 and earlier. + string epsdriver=getSetting("epsdriver"); + legacygs=epsdriver == "epswrite"; + + pdfname=auxname(prefix,"pdf"); + pdfname2=auxname(prefix+"_","pdf"); + psname2=auxname(prefix+"_","ps"); + if(!fs::exists(pdfname)) return new array(n); + std::ofstream ps(psname.c_str(),std::ios::binary); + if(!ps) cannotwrite(psname); + + showpath(ps); + + mem::vector pcmd; + pcmd.push_back(getSetting("gs")); + pcmd.push_back("-q"); + pcmd.push_back("-dNOCACHE"); + pcmd.push_back("-dNOPAUSE"); + pcmd.push_back("-dBATCH"); + if(safe) pcmd.push_back("-dSAFER"); + pcmd.push_back("-sDEVICE=pdfwrite"); + pcmd.push_back("-sOutputFile="+pdfname2); + pcmd.push_back(pdfname); + status=System(pcmd,0,true,"gs"); + if(status == 0) { + mem::vector cmd; + cmd.push_back(getSetting("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="+epsdriver); + // Work around eps2write bug that forces all postscript to first page. + cmd.push_back("-sOutputFile="+psname2+(legacygs ? "" : "%d")); + cmd.push_back(pdfname2); + status=System(cmd,0,true,"gs"); + + if(legacygs) { + std::ifstream in(psname2.c_str()); + ps << in.rdbuf(); + } else { + for(unsigned int i=1; i <= n ; ++i) { + ostringstream buf; + buf << psname2 << i; + const string& s=buf.str(); + const char *name=s.c_str(); + std::ifstream in(name,std::ios::binary); + ps << in.rdbuf(); + ps << "(>\n) print flush\n"; + in.close(); + if(!keep) unlink(name); + } + } + ps.close(); + } + } else { + if(!fs::exists(dviname)) return new array(n); + mem::vector dcmd; + dcmd.push_back(getSetting("dvips")); + dcmd.push_back("-R"); + dcmd.push_back("-Pdownload35"); + dcmd.push_back("-D600"); + push_split(dcmd,getSetting("dvipsOptions")); + if(verbose <= 2) dcmd.push_back("-q"); + dcmd.push_back("-o"+psname); + dcmd.push_back(dviname); + status=System(dcmd,0,true,"dvips"); + } + } else + error("texpath failed"); + + if(!keep) { // Delete temporary files. + unlink(texname.c_str()); + if(!getSetting("keepaux")) + unlink(auxname(prefix,"aux").c_str()); + unlink(auxname(prefix,"log").c_str()); + if(xe) { + unlink(pdfname.c_str()); + unlink(pdfname2.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,"tuc").c_str()); + unlink(auxname(prefix,"tui").c_str()); + } + } + return xe ? readpath(psname,keep,!legacygs,0.1) : + readpath(psname,keep,false,0.12,-1.0); +} + +patharray2 *textpath(stringarray *s, penarray *p) +{ + size_t n=checkArrays(s,p); + if(n == 0) return new array(0); + + string prefix=cleanpath(outname()); + string outputname=auxname(prefix,getSetting("textoutformat")); + + string textname=auxname(prefix,getSetting("textextension")); + std::ofstream text(textname.c_str()); + + if(!text) cannotwrite(textname); + + for(size_t i=0; i < n; ++i) { + text << getSetting("textprologue") << newl + << read(p,i).Font() << newl + << read(s,i) << newl + << getSetting("textepilogue") << endl; + } + text.close(); + + string psname=auxname(prefix,"ps"); + std::ofstream ps(psname.c_str()); + if(!ps) cannotwrite(psname); + + showpath(ps); + + mem::vector cmd; + cmd.push_back(getSetting("textcommand")); + push_split(cmd,getSetting("textcommandOptions")); + cmd.push_back(textname); + iopipestream typesetter(cmd); + typesetter.block(true,false); + + mem::vector cmd2; + cmd2.push_back(getSetting("gs")); + cmd2.push_back("-q"); + cmd2.push_back("-dNOCACHE"); + cmd2.push_back("-dNOPAUSE"); + cmd2.push_back("-dBATCH"); + cmd2.push_back("-P"); + if(safe) cmd2.push_back("-dSAFER"); + cmd2.push_back("-sDEVICE="+getSetting("epsdriver")); + cmd2.push_back("-sOutputFile=-"); + cmd2.push_back("-"); + iopipestream gs(cmd2,"gs","Ghostscript"); + gs.block(false,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("keep"); + if(!keep) // Delete temporary files. + unlink(textname.c_str()); + return readpath(psname,keep,false,0.1); +} + +patharray *_strokepath(path g, pen p=CURRENTPEN) +{ + array *P=new array(0); + if(g.size() == 0) return P; + + string prefix=cleanpath(outname()); + 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(p); + ps.verbatimline("(M) "+currentpoint); + ps.epilogue(); + ps.close(); + array *a=readpath(psname,getSetting("keep")); + return a->size() > 0 ? read(a,0) : a; +} -- cgit v1.2.3