-- ps.lua-- lua interface to postscript-- Luiz Henrique de Figueiredo (lhf@csg.uwaterloo.ca)-- 14 May 96PS={}function P(x) write(x.."\n")end-------------------------------------------------------------------- control --function PS.open(title) if title==nil then title="(no title)" end P("%!PS-Adobe-2.0 EPSF-1.2") P("%%Title: "..title) P("%%Creator: ps.lua from Lua 2.4") P("%%CreationDate: "..date()) P("%%Pages: (atend)") P("%%BoundingBox: (atend)") P("%%EndComments") P("%%BeginProcSet: ps.lua") P("/s { stroke } bind def") P("/f { fill } bind def") P("/m { moveto } bind def") P("/l { lineto } bind def") P("/L { moveto lineto stroke } bind def") P("/t { show } bind def") P("/o { 0 360 arc stroke } bind def") P("/O { 0 360 arc fill } bind def") P("/p { 3 0 360 arc fil } bind def") P("/F { findfont exch scalefont setfont } bind def") P("/LS { 0 setdash } bind def") P("/LW { setlinewidth } bind def") P("%%EndProcSet: ps.lua") P("%%EndProlog") P("%%BeginSetup") P("0 setlinewidth") P("1 setlinejoin") P("1 setlinecap") P("10 /Times-Roman F") P("%%EndSetup\n") P("%%Page: 1 1")-- cxmin=dv.xmin; cxmax=dv.xmax; cymin=dv.ymin; cymax=dv.ymax xmin=1000; xmax=-1000; ymin=1000; ymax=-1000 page=1endfunction PS.close() P("stroke") P("showpage") P("%%Trailer") P("%%Pages: "..page) P("%%BoundingBox: "..xmin.." "..ymin.." "..xmax.." "..ymax) P("%%EOF")endfunction PS.clear() if (empty) then return end page=page+1 P("showpage") P("%%Page: "..page.." "..page) empty=1endfunction PS.comment(s) P("% "..s)end--------------------------------------------------------------- direct color --function PS.rgbcolor(r,g,b) P(r.." "..g.." "..b.." setrgbcolor")endfunction PS.gray(g) P(g.." setgray")end---------------------------------------------------------------- named color --function PS.color(c) P("C"..c)endfunction PS.defrgbcolor(c,r,g,b) P("/C"..c.." { "..r.." "..g.." "..b.." setrgbcolor } def")endfunction PS.defgraycolor(c,g) P("/C"..c.." { "..g.." setgray } def")end----------------------------------------------------------------------- line --function PS.line(x1,y1,x2,y2) P(x2.." "..y2.." "..x1.." "..y1.." L") PS.update(x1,y1) PS.update(x2,y2)endfunction PS.moveto(x,y) P(x.." "..y.." m") PS.update(x,y)endfunction PS.lineto(x,y) P(x.." "..y.." l") PS.update(x,y)endfunction PS.linewidth(w) P(w.." LW")endfunction PS.linestyle(s) P("["..s.."] LS")end----------------------------------------------------------------------- text --function PS.font(name,size) if (size==nil) then size=10 end P(size.." /"..name.." F")endfunction PS.text(x,y,s) P(x.." "..y.."m ("..s..") t") PS.update(x,y)end--------------------------------------------------------------------- circle --function PS.circle(x,y,r) P(x.." "..y.." "..r.." o") PS.update(x-r,y-r) PS.update(x+r,y+r)endfunction PS.disk(x,y,r) P(x.." "..y.." "..r.." O") PS.update(x-r,y-r) PS.update(x+r,y+r)endfunction PS.dot(x,y) P(x.." "..y.." p") PS.update(x-r,y-r) PS.update(x+r,y+r)end------------------------------------------------------------------------ box --function PS.rectangle(xmin,xmax,ymin,ymax) P(xmin.." "..ymin.." m "..   xmax.." "..ymin.." l "..   xmax.." "..ymax.." l "..   xmin.." "..ymax.." l s") PS.update(xmin,ymin) PS.update(xmax,ymax)endfunction PS.box(xmin,xmax,ymin,ymax) P(xmin.." "..ymin.." m "..   xmax.." "..ymin.." l "..   xmax.." "..ymax.." l "..   xmin.." "..ymax.." l f") PS.update(xmin,ymin) PS.update(xmax,ymax)end-------------------------------------------------------- update bounding box --function PS.update(x,y)-- if (x>=cxmin and x<=cxmax and y>=cxmin and y<=cxmax) then  if (x<xmin) then xmin=x elseif (x>xmax) then xmax=x end  if (y<ymin) then ymin=y elseif (y>ymax) then ymax=y end  empty=0-- endend