123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813 |
- #include <u.h>
- #include <libc.h>
- #include <draw.h>
- #include <memdraw.h>
- #include <bio.h>
- #include "pslib.h"
- /* implement PsLib;
- /*
- /* include "sys.m";
- /* sys: Sys;
- /*
- /* include "draw.m";
- /* draw : Draw;
- /* Image, Display,Rect,Point : import draw;
- /*
- /* include "bufio.m";
- /* bufmod : Bufio;
- /*
- /* include "tk.m";
- /* tk: Tk;
- /* Toplevel: import tk;
- /*
- /* Iobuf : import bufmod;
- /*
- /* include "string.m";
- /* str : String;
- /*
- /* include "daytime.m";
- /* time : Daytime;
- /*
- /* include "pslib.m";
- /*
- /* ASCII,RUNE,IMAGE : con iota;
- /*
- */
- struct iteminfo {
- int itype;
- int offset; /* offset from the start of line. */
- int width; /* width.... */
- int ascent; /* ascent of the item */
- int font; /* font */
- int line; /* line its on */
- char *buf;
- };
- struct lineinfo {
- int xorg;
- int yorg;
- int width;
- int height;
- int ascent;
- };
- /* font_arr := array[256] of {* => (-1,"")};
- /* remap := array[20] of (string,string);
- /*
- /* PXPI : con 100;
- /* PTPI : con 100;
- /*
- */
- char *noinit = "pslib not properly initialized";
- /*
- */
- static int boxes;
- static int debug;
- static int totitems;
- static int totlines;
- static int curfont;
- static char *def_font;
- static int def_font_type;
- static int curfonttype;
- static int pagestart;
- static int started;
- static int bps;
- static int width;
- static int height;
- static int iwidth;
- static int iheight;
- static int xstart;
- static int ystart;
- static double xmagnification = 1.0, ymagnification = 1.0;
- static int rotation = 0;
- static int landscape = 0;
- static char *Patch = nil;
- /* ctxt : ref Draw->Context;
- /* t : ref Toplevel;
- */
- char*
- psinit(int box, int deb) { /* d: ref Toplevel, */
- /* t=d; */
- debug = deb;
- totlines=0;
- totitems=0;
- pagestart=0;
- boxes=box; /* #box; */
- curfont=0;
- /* e := loadfonts();
- /* if (e != "")
- /* return e;
- */
- started=1;
- return "";
- }
- /* stats() : (int,int,int)
- /* {
- /* return (totitems,totlines,curfont);
- /* }
- /*
- /* loadfonts() : string
- /* {
- /* input : string;
- /* iob:=bufmod->open("/fonts/psrename",bufmod->OREAD);
- /* if (iob==nil)
- /* return sys->sprint("can't open /fonts/psrename: %r");
- /* i:=0;
- /* while((input=iob.gets('\n'))!=nil){
- /* (tkfont,psfont):=str->splitl(input," ");
- /* psfont=psfont[1:len psfont -1];
- /* remap[i]=(tkfont,psfont);
- /* i++;
- /* }
- /* return "";
- /* }
- /*
- */
- static char *username;
- int
- preamble(Biobuf *ioutb, Rectangle bb) {
- if (!started) return 1;
- username = getuser();
- if(bb.max.x == 0 && bb.max.y == 0) {
- bb.max.x = 612;
- bb.max.y = 792;
- }
- Bprint(ioutb, "%%!PS-Adobe-3.0\n");
- Bprint(ioutb, "%%%%Creator: PsLib 1.0 (%s)\n",username);
- Bprint(ioutb, "%%%%CreationDate: %s", ctime(time(nil)));
- Bprint(ioutb, "%%%%Pages: (atend) \n");
- Bprint(ioutb, "%%%%BoundingBox: %d %d %d %d\n", bb.min.x, bb.min.y, bb.max.x, bb.max.y);
- Bprint(ioutb, "%%%%EndComments\n");
- Bprint(ioutb, "%%%%BeginProlog\n");
- Bprint(ioutb, "/doimage {\n");
- Bprint(ioutb, "/grey exch def\n");
- Bprint(ioutb, "/bps exch def\n");
- Bprint(ioutb, "/width exch def\n");
- Bprint(ioutb, "/height exch def\n");
- Bprint(ioutb, "/xstart exch def\n");
- Bprint(ioutb, "/ystart exch def\n");
- Bprint(ioutb, "/iwidth exch def\n");
- Bprint(ioutb, "/ascent exch def\n");
- Bprint(ioutb, "/iheight exch def\n");
- Bprint(ioutb, "gsave\n");
- if(boxes)
- Bprint(ioutb, "xstart ystart iwidth iheight rectstroke\n");
- /* # if bps==8, use inferno colormap; else (bps < 8) it's grayscale or true color */
- Bprint(ioutb, "bps 8 eq grey false eq and {\n");
- Bprint(ioutb, " [/Indexed /DeviceRGB 255 <\n");
- Bprint(ioutb, " ffffff ffffaa ffff55 ffff00 ffaaff ffaaaa ffaa55 ffaa00 ff55ff ff55aa ff5555 ff5500\n");
- Bprint(ioutb, " ff00ff ff00aa ff0055 ff0000 ee0000 eeeeee eeee9e eeee4f eeee00 ee9eee ee9e9e ee9e4f\n");
- Bprint(ioutb, " ee9e00 ee4fee ee4f9e ee4f4f ee4f00 ee00ee ee009e ee004f dd0049 dd0000 dddddd dddd93\n");
- Bprint(ioutb, " dddd49 dddd00 dd93dd dd9393 dd9349 dd9300 dd49dd dd4993 dd4949 dd4900 dd00dd dd0093\n");
- Bprint(ioutb, " cc0088 cc0044 cc0000 cccccc cccc88 cccc44 cccc00 cc88cc cc8888 cc8844 cc8800 cc44cc\n");
- Bprint(ioutb, " cc4488 cc4444 cc4400 cc00cc aaffaa aaff55 aaff00 aaaaff bbbbbb bbbb5d bbbb00 aa55ff\n");
- Bprint(ioutb, " bb5dbb bb5d5d bb5d00 aa00ff bb00bb bb005d bb0000 aaffff 9eeeee 9eee9e 9eee4f 9eee00\n");
- Bprint(ioutb, " 9e9eee aaaaaa aaaa55 aaaa00 9e4fee aa55aa aa5555 aa5500 9e00ee aa00aa aa0055 aa0000\n");
- Bprint(ioutb, " 990000 93dddd 93dd93 93dd49 93dd00 9393dd 999999 99994c 999900 9349dd 994c99 994c4c\n");
- Bprint(ioutb, " 994c00 9300dd 990099 99004c 880044 880000 88cccc 88cc88 88cc44 88cc00 8888cc 888888\n");
- Bprint(ioutb, " 888844 888800 8844cc 884488 884444 884400 8800cc 880088 55ff55 55ff00 55aaff 5dbbbb\n");
- Bprint(ioutb, " 5dbb5d 5dbb00 5555ff 5d5dbb 777777 777700 5500ff 5d00bb 770077 770000 55ffff 55ffaa\n");
- Bprint(ioutb, " 4fee9e 4fee4f 4fee00 4f9eee 55aaaa 55aa55 55aa00 4f4fee 5555aa 666666 666600 4f00ee\n");
- Bprint(ioutb, " 5500aa 660066 660000 4feeee 49dddd 49dd93 49dd49 49dd00 4993dd 4c9999 4c994c 4c9900\n");
- Bprint(ioutb, " 4949dd 4c4c99 555555 555500 4900dd 4c0099 550055 550000 440000 44cccc 44cc88 44cc44\n");
- Bprint(ioutb, " 44cc00 4488cc 448888 448844 448800 4444cc 444488 444444 444400 4400cc 440088 440044\n");
- Bprint(ioutb, " 00ff00 00aaff 00bbbb 00bb5d 00bb00 0055ff 005dbb 007777 007700 0000ff 0000bb 000077\n");
- Bprint(ioutb, " 333333 00ffff 00ffaa 00ff55 00ee4f 00ee00 009eee 00aaaa 00aa55 00aa00 004fee 0055aa\n");
- Bprint(ioutb, " 006666 006600 0000ee 0000aa 000066 222222 00eeee 00ee9e 00dd93 00dd49 00dd00 0093dd\n");
- Bprint(ioutb, " 009999 00994c 009900 0049dd 004c99 005555 005500 0000dd 000099 000055 111111 00dddd\n");
- Bprint(ioutb, " 00cccc 00cc88 00cc44 00cc00 0088cc 008888 008844 008800 0044cc 004488 004444 004400\n");
- Bprint(ioutb, " 0000cc 000088 000044 000000>\n");
- Bprint(ioutb, " ] setcolorspace\n");
- Bprint(ioutb, " /decodemat [0 255] def\n");
- Bprint(ioutb, "}\n");
- /* # else, bps != 8 */
- Bprint(ioutb, "{\n");
- /* is it greyscale or is it 24-bit color? */
- Bprint(ioutb, " grey true eq {\n");
- Bprint(ioutb, " [/DeviceGray] setcolorspace\n");
- Bprint(ioutb, " /decodemat [1 0] def\n");
- Bprint(ioutb, " }\n");
- Bprint(ioutb, " {\n");
- /* must be color */
- Bprint(ioutb, " [/DeviceRGB] setcolorspace\n");
- Bprint(ioutb, " /bps 8 def\n");
- Bprint(ioutb, " /decodemat [1 0 1 0 1 0] def\n");
- Bprint(ioutb, " }\n");
- Bprint(ioutb, " ifelse\n");
- Bprint(ioutb, "}\n");
- Bprint(ioutb, "ifelse\n");
- Bprint(ioutb, "/xmagnification %g def\n", xmagnification);
- Bprint(ioutb, "/ymagnification %g def\n", ymagnification);
- Bprint(ioutb, "/rotation %d def\n", rotation);
- Bprint(ioutb, "xstart ystart translate rotation rotate\n");
- Bprint(ioutb, "iwidth xmagnification mul iheight ymagnification mul scale\n");
- Bprint(ioutb, "<<\n");
- Bprint(ioutb, " /ImageType 1\n");
- Bprint(ioutb, " /Width width \n");
- Bprint(ioutb, " /Height height \n");
- Bprint(ioutb, " /BitsPerComponent bps %% bits/sample\n");
- Bprint(ioutb, " /Decode decodemat %% Brazil/Inferno cmap or DeviceGray value\n");
- Bprint(ioutb, " /ImageMatrix [width 0 0 height neg 0 height]\n");
- Bprint(ioutb, " /DataSource currentfile /ASCII85Decode filter\n");
- Bprint(ioutb, ">> \n");
- Bprint(ioutb, "image\n");
- Bprint(ioutb, "grestore\n");
- Bprint(ioutb, "} def\n");
- Bprint(ioutb, "%%%%EndProlog\n");
- if (Patch != nil)
- Bprint(ioutb, "%s\n", Patch);
- return 0;
- }
- int
- trailer(Biobuf *ioutb ,int pages) {
- if(!started)
- return 1;
- Bprint(ioutb, "%%%%Trailer\n%%%%Pages: %d\n%%%%EOF\n", pages);
- return 0;
- }
- void
- printnewpage(int pagenum, int end, Biobuf *ioutb)
- {
- if (!started) return;
- if (end){
- /* # bounding box */
- if (boxes){
- Bprint(ioutb, "18 18 moveto 594 18 lineto 594 774 lineto 18 774 lineto closepath stroke\n");
- }
- Bprint(ioutb, "showpage\n%%%%EndPage %d %d\n", pagenum, pagenum);
- } else
- Bprint(ioutb, "%%%%Page: %d %d\n", pagenum, pagenum);
- }
- /* int
- /* printimage(FILE *ioutb, struct lineinfo line, struct iteminfo imag) {
- /* int RM;
- /*
- /* RM=612-18;
- /* class:=tk->cmd(t,"winfo class "+imag.buf);
- /* #sys->print("Looking for [%s] of type [%s]\n",imag.buf,class);
- /* if (line.xorg+imag.offset+imag.width>RM)
- /* imag.width=RM-line.xorg-imag.offset;
- /* case class {
- /* "button" or "menubutton" =>
- /* # try to get the text out and print it....
- /* ioutb.puts(sys->sprint("%d %d moveto\n",line.xorg+imag.offset,
- /* line.yorg));
- /* msg:=tk->cmd(t,sys->sprint("%s cget -text",imag.buf));
- /* ft:=tk->cmd(t,sys->sprint("%s cget -font",imag.buf));
- /* sys->print("font is [%s]\n",ft);
- /* ioutb.puts(sys->sprint("%d %d %d %d rectstroke\n",
- /* line.xorg+imag.offset,line.yorg,imag.width,
- /* line.height));
- /* return (class,msg);
- /* "label" =>
- /* (im,im2,err) := tk->imageget(t,imag.buf);
- /* if (im!=nil){
- /* bps := 1<<im.ldepth;
- /* ioutb.puts(sys->sprint("%d %d %d %d %d %d %d %d doimage\n",
- /* im.r.dy(),line.ascent,im.r.dx(),line.yorg,
- /* line.xorg+imag.offset,im.r.dy(), im.r.dx(), bps));
- /* imagebits(ioutb,im);
- /* }
- /* return (class,"");
- /* "entry" =>
- /* ioutb.puts(sys->sprint("%d %d moveto\n",line.xorg+imag.offset,
- /* line.yorg));
- /* ioutb.puts(sys->sprint("%d %d %d %d rectstroke\n",
- /* line.xorg+imag.offset,line.yorg,imag.width,
- /* line.height));
- /* return (class,"");
- /* * =>
- /* sys->print("Unhandled class [%s]\n",class);
- /* return (class,"Error");
- /*
- /* }
- /* return ("","");
- /* }
- /*
- /* printline(ioutb: ref Iobuf,line : lineinfo,items : array of iteminfo)
- /* {
- /* xstart:=line.xorg;
- /* wid:=xstart;
- /* # items
- /* if (len items == 0) return;
- /* for(j:=0;j<len items;j++){
- /* msg:="";
- /* class:="";
- /* if (items[j].itype==IMAGE)
- /* (class,msg)=printimage(ioutb,line,items[j]);
- /* if (items[j].itype!=IMAGE || class=="button"|| class=="menubutton"){
- /* setfont(ioutb,items[j].font);
- /* if (msg!=""){
- /* # position the text in the center of the label
- /* # moveto curpoint
- /* # (msg) stringwidth pop xstart sub 2 div
- /* ioutb.puts(sys->sprint("%d %d moveto\n",xstart+items[j].offset,
- /* line.yorg+line.height-line.ascent));
- /* ioutb.puts(sys->sprint("(%s) dup stringwidth pop 2 div",
- /* msg));
- /* ioutb.puts(" 0 rmoveto show\n");
- /* }
- /* else {
- /* ioutb.puts(sys->sprint("%d %d moveto\n",
- /* xstart+items[j].offset,line.yorg+line.height
- /* -line.ascent));
- /* ioutb.puts(sys->sprint("(%s) show\n",items[j].buf));
- /* }
- /* }
- /* wid=xstart+items[j].offset+items[j].width;
- /* }
- /* if (boxes)
- /* ioutb.puts(sys->sprint("%d %d %d %d rectstroke\n",line.xorg,line.yorg,
- /* wid,line.height));
- /* }
- /*
- /* setfont(ioutb: ref Iobuf,font : int){
- /* ftype : int;
- /* fname : string;
- /* if ((curfonttype&font)!=curfonttype){
- /* for(f:=0;f<curfont;f++){
- /* (ftype,fname)=font_arr[f];
- /* if ((ftype&font)==ftype)
- /* break;
- /* }
- /* if (f==curfont){
- /* fname=def_font;
- /* ftype=def_font_type;
- /* }
- /* ioutb.puts(sys->sprint("%s setfont\n",fname));
- /* curfonttype=ftype;
- /* }
- /* }
- /*
- /* parseTkline(ioutb: ref Iobuf,input : string) : string
- /* {
- /* if (!started) return noinit;
- /* thisline : lineinfo;
- /* PS:=792-18-18; # page size in points
- /* TM:=792-18; # top margin in points
- /* LM:=18; # left margin 1/4 in. in
- /* BM:=18; # bottom margin 1/4 in. in
- /* x : int;
- /* (x,input)=str->toint(input,10);
- /* thisline.xorg=(x*PTPI)/PXPI;
- /* (x,input)=str->toint(input,10);
- /* thisline.yorg=(x*PTPI)/PXPI;
- /* (x,input)=str->toint(input,10);
- /* thisline.width=(x*PTPI)/PXPI;
- /* (x,input)=str->toint(input,10);
- /* thisline.height=(x*PTPI)/PXPI;
- /* (x,input)=str->toint(input,10);
- /* thisline.ascent=(x*PTPI)/PXPI;
- /* (x,input)=str->toint(input,10);
- /* # thisline.numitems=x;
- /* if (thisline.width==0 || thisline.height==0)
- /* return "";
- /* if (thisline.yorg+thisline.height-pagestart>PS){
- /* pagestart=thisline.yorg;
- /* return "newpage";
- /* # must resend this line....
- /* }
- /* thisline.yorg=TM-thisline.yorg-thisline.height+pagestart;
- /* thisline.xorg+=LM;
- /* (items, err) :=getline(totlines,input);
- /* if(err != nil)
- /* return err;
- /* totitems+=len items;
- /* totlines++;
- /* printline(ioutb,thisline,items);
- /* return "";
- /* }
- /*
- /*
- /* getfonts(input: string) : string
- /* {
- /* if (!started) return "Error";
- /* tkfont,psfont : string;
- /* j : int;
- /* retval := "";
- /* if (input[0]=='%')
- /* return "";
- /* # get a line of the form
- /* # 5::/fonts/lucida/moo.16.font
- /* # translate it to...
- /* # 32 f32.16
- /* # where 32==1<<5 and f32.16 is a postscript function that loads the
- /* # appropriate postscript font (from remap)
- /* # and writes it to fonts....
- /* (bits,font):=str->toint(input,10);
- /* if (bits!=-1)
- /* bits=1<<bits;
- /* else{
- /* bits=1;
- /* def_font_type=bits;
- /* curfonttype=def_font_type;
- /* }
- /* font=font[2:];
- /* for(i:=0;i<len remap;i++){
- /* (tkfont,psfont)=remap[i];
- /* if (tkfont==font)
- /* break;
- /* }
- /* if (i==len remap)
- /* psfont="Times-Roman";
- /* (font,nil)=str->splitr(font,".");
- /* (nil,font)=str->splitr(font[0:len font-1],".");
- /* (fsize,nil):=str->toint(font,10);
- /* fsize=(PTPI*3*fsize)/(2*PXPI);
- /* enc_font:="f"+string bits+"."+string fsize;
- /* ps_func:="/"+enc_font+" /"+psfont+" findfont "+string fsize+
- /* " scalefont def\n";
- /* sy_font:="sy"+string fsize;
- /* xtra_func:="/"+sy_font+" /Symbol findfont "+string fsize+
- /* " scalefont def\n";
- /* for(i=0;i<len font_arr;i++){
- /* (j,font)=font_arr[i];
- /* if (j==-1) break;
- /* }
- /* if (j==len font_arr)
- /* return "Error";
- /* font_arr[i]=(bits,enc_font);
- /* if (bits==1)
- /* def_font=enc_font;
- /* curfont++;
- /* retval+= ps_func;
- /* retval+= xtra_func;
- /* return retval;
- /* }
- /*
- /* deffont() : string
- /* {
- /* return def_font;
- /* }
- /*
- /* getline(k : int, input : string) : (array of iteminfo, string)
- /* {
- /* lineval,args : string;
- /* j, nb : int;
- /* lw:=0;
- /* wid:=0;
- /* flags:=0;
- /* item_arr := array[32] of {* => iteminfo(-1,-1,-1,-1,-1,-1,"")};
- /* curitem:=0;
- /* while(input!=nil){
- /* (nil,input)=str->splitl(input,"[");
- /* if (input==nil)
- /* break;
- /* com:=input[1];
- /* input=input[2:];
- /* case com {
- /* 'A' =>
- /* nb=0;
- /* # get the width of the item
- /* (wid,input)=str->toint(input,10);
- /* wid=(wid*PTPI)/PXPI;
- /* if (input[0]!='{')
- /* return (nil, sys->sprint(
- /* "line %d item %d Bad Syntax : '{' expected",
- /* k,curitem));
- /* # get the args.
- /* (args,input)=str->splitl(input,"}");
- /* # get the flags.
- /* # assume there is only one int flag..
- /* (flags,args)=str->toint(args[1:],16);
- /* if (args!=nil && debug){
- /* sys->print("line %d item %d extra flags=%s\n",
- /* k,curitem,args);
- /* }
- /* if (flags<1024) flags=1;
- /* item_arr[curitem].font=flags;
- /* item_arr[curitem].offset=lw;
- /* item_arr[curitem].width=wid;
- /* lw+=wid;
- /* for(j=1;j<len input;j++){
- /* if ((input[j]==')')||(input[j]=='('))
- /* lineval[len lineval]='\\';
- /* if (input[j]=='[')
- /* nb++;
- /* if (input[j]==']')
- /* if (nb==0)
- /* break;
- /* else
- /* nb--;
- /* lineval[len lineval]=input[j];
- /* }
- /* if (j<len input)
- /* input=input[j:];
- /* item_arr[curitem].buf=lineval;
- /* item_arr[curitem].line=k;
- /* item_arr[curitem].itype=ASCII;
- /* curitem++;
- /* lineval="";
- /* 'R' =>
- /* nb=0;
- /* # get the width of the item
- /* (wid,input)=str->toint(input,10);
- /* wid=(wid*PTPI)/PXPI;
- /* if (input[0]!='{')
- /* return (nil, "Bad Syntax : '{' expected");
- /* # get the args.
- /* (args,input)=str->splitl(input,"}");
- /* # get the flags.
- /* # assume there is only one int flag..
- /* (flags,args)=str->toint(args[1:],16);
- /* if (args!=nil && debug){
- /* sys->print("line %d item %d Bad Syntax args=%s",
- /* k,curitem,args);
- /* }
- /* item_arr[curitem].font=flags;
- /* item_arr[curitem].offset=lw;
- /* item_arr[curitem].width=wid;
- /* lw+=wid;
- /* for(j=1;j<len input;j++){
- /* if (input[j]=='[')
- /* nb++;
- /* if (input[j]==']')
- /* if (nb==0)
- /* break;
- /* else
- /* nb--;
- /* case input[j] {
- /* 8226 => # bullet
- /* lineval+="\\267 ";
- /* 169 => # copyright
- /* lineval+="\\251 ";
- /* curitem++;
- /* * =>
- /* lineval[len lineval]=input[j];
- /* }
- /* }
- /* if (j>len input)
- /* input=input[j:];
- /* item_arr[curitem].buf=lineval;
- /* item_arr[curitem].line=k;
- /* item_arr[curitem].itype=RUNE;
- /* curitem++;
- /* lineval="";
- /* 'N' or 'C'=>
- /* # next item
- /* for(j=0;j<len input;j++)
- /* if (input[j]==']')
- /* break;
- /* if (j>len input)
- /* input=input[j:];
- /* 'T' =>
- /* (wid,input)=str->toint(input,10);
- /* wid=(wid*PTPI)/PXPI;
- /* item_arr[curitem].offset=lw;
- /* item_arr[curitem].width=wid;
- /* lw+=wid;
- /* lineval[len lineval]='\t';
- /* # next item
- /* for(j=0;j<len input;j++)
- /* if (input[j]==']')
- /* break;
- /* if (j>len input)
- /* input=input[j:];
- /* item_arr[curitem].buf=lineval;
- /* item_arr[curitem].line=k;
- /* item_arr[curitem].itype=ASCII;
- /* curitem++;
- /* lineval="";
- /* 'W' =>
- /* (wid,input)=str->toint(input,10);
- /* wid=(wid*PTPI)/PXPI;
- /* item_arr[curitem].offset=lw;
- /* item_arr[curitem].width=wid;
- /* item_arr[curitem].itype=IMAGE;
- /* lw+=wid;
- /* # next item
- /* for(j=1;j<len input;j++){
- /* if (input[j]==']')
- /* break;
- /* lineval[len lineval]=input[j];
- /* }
- /* item_arr[curitem].buf=lineval;
- /* if (j>len input)
- /* input=input[j:];
- /* curitem++;
- /* lineval="";
- /* * =>
- /* # next item
- /* for(j=0;j<len input;j++)
- /* if (input[j]==']')
- /* break;
- /* if (j>len input)
- /* input=input[j:];
- /*
- /* }
- /* }
- /* return (item_arr[0:curitem], "");
- /* }
- */
- void
- cmap2ascii85(uchar *b, uchar *c) {
- int i;
- unsigned long i1;
- /* fprintf(stderr, "addr=0x%x %x %x %x %x\n", b, b[0], b[1], b[2], b[3]); */
- b--; /* one-index b */
- c--; /* one-index c */
- i1 = (b[1]<<24)+(b[2]<<16)+(b[3]<<8)+b[4];
- if(i1 == 0){
- c[1] = 'z';
- c[2] = '\0';
- return;
- }
- for(i=0; i<=4; i++){
- c[5-i] = '!' + (i1 % 85);
- i1 /= 85;
- }
- c[6] = '\0';
- }
- static uchar *arr = nil;
- ulong onesbits = ~0;
- void
- imagebits(Biobuf *ioutb, Memimage *im)
- {
- int spb;
- int bitoff;
- int j, n, n4, i, bpl, nrest;
- int lsf;
- uchar c85[6], *data, *src, *dst;
- Memimage *tmp;
- Rectangle r;
- tmp = nil;
- if (debug)
- fprint(2, "imagebits, r=%d %d %d %d, depth=%d\n",
- im->r.min.x, im->r.min.y, im->r.max.x, im->r.max.y, im->depth);
- width = Dx(im->r);
- height = Dy(im->r);
- bps = im->depth; /* # bits per sample */
- bitoff = 0; /* # bit offset of beginning sample within first byte */
- if (bps < 8) {
- spb = 8 / bps;
- bitoff = (im->r.min.x % spb) * bps;
- }
- if (bitoff != 0) {
- /* # Postscript image wants beginning of line at beginning of byte */
- r = im->r;
- r.min.x -= bitoff/im->depth;
- r.max.x -= bitoff/im->depth;
- tmp = allocmemimage(r, im->chan);
- if(tmp == nil){
- fprint(2, "p9bitpost: allocmemimage failed: %r\n");
- exits("alloc");
- }
- memimagedraw(tmp, r, im, im->r.min, nil, ZP, S);
- im = tmp;
- }
- lsf = 0;
- /* compact data to remove word-boundary padding */
- bpl = bytesperline(im->r, im->depth);
- n = bpl*Dy(im->r);
- data = malloc(n);
- if(data == nil){
- fprint(2, "p9bitpost: malloc failed: %r\n");
- exits("malloc");
- }
- for(i=0; i<Dy(im->r); i++){
- /* memmove(data+bpl*i, byteaddr(im, Pt(im->r.min.x, im->r.min.y+i)), bpl); with inversion */
- dst = data+bpl*i;
- src = byteaddr(im, Pt(im->r.min.x, im->r.min.y+i));
- for(j=0; j<bpl; j++)
- *dst++ = 255 - *src++;
- }
- n4 = (n / 4) * 4;
- for (i = 0; i < n4; i += 4){
- cmap2ascii85(data+i, c85);
- lsf += strlen((char *)c85);
- Bprint(ioutb, "%s", c85);
- if (lsf > 74) {
- Bprint(ioutb, "\n");
- lsf = 0;
- }
- }
- nrest = n - n4;
- if (nrest != 0) {
- uchar foo[4];
- for (i=0; i<nrest; i++)
- foo[i] = data[n4+i];
- for (i=nrest; i<4; i++)
- foo[i] = '\0';
- cmap2ascii85(foo, c85);
- if (strcmp((char *)c85, "z") == 0 )
- strcpy((char *)c85, "!!!!!");
- Bprint(ioutb, "%.*s", nrest+1, c85);
- }
- Bprint(ioutb, "\n~>");
- Bprint(ioutb, "\n");
- freememimage(tmp);
- }
- int
- image2psfile(int fd, Memimage *im, int dpi) {
- Rectangle r;
- Rectangle bbox;
- int e;
- int xmargin = 36;
- int ymargin = 36;
- double paperaspectratio;
- double imageaspectratio;
- Biobuf ioutb;
- Memimage *tmp;
- if(im->depth >= 8 && im->chan != CMAP8 && im->chan != GREY8){
- /*
- * the postscript libraries can only handle [1248]-bit grey, 8-bit cmap,
- * and 24-bit color, so convert.
- */
- tmp = allocmemimage(im->r, strtochan("b8g8r8"));
- if(tmp == nil)
- return 1;
- memimagedraw(tmp, tmp->r, im, im->r.min, nil, ZP, S);
- freememimage(im);
- im = tmp;
- }
- Binit(&ioutb, fd, OWRITE);
- r = im->r;
- width = Dx(r);
- height = Dy(r);
- imageaspectratio = (double) width / (double) height;
- if (landscape) {
- paperaspectratio = ((double)paperlength - (ymargin * 2)) / ((double)paperwidth - (xmargin * 2));
- if (dpi > 0) {
- iwidth = width * 72 / dpi;
- iheight = height * 72 / dpi;
- } else if (imageaspectratio > paperaspectratio) {
- iwidth = paperlength - (ymargin * 2);
- iheight = iwidth / imageaspectratio;
- } else {
- iheight = paperwidth - (xmargin * 2);
- iwidth = iheight * imageaspectratio;
- }
- xstart = paperwidth - xmargin - (iheight * ymagnification);
- ystart = paperlength - ymargin;
- rotation = -90;
- } else {
- paperaspectratio = ((double)paperwidth - (xmargin * 2)) / ((double)paperlength - (ymargin * 2));
- if (dpi > 0) {
- iwidth = width * 72 / dpi;
- iheight = height * 72 / dpi;
- } else if (imageaspectratio > paperaspectratio) {
- iwidth = paperwidth - (xmargin * 2);
- iheight = iwidth / imageaspectratio;
- } else {
- iheight = paperlength - (ymargin * 2);
- iwidth = iheight * imageaspectratio;
- }
- xstart = xmargin;
- ystart = paperlength - ymargin - (iheight * ymagnification);
- rotation = 0;
- }
- bbox = Rect(xstart,ystart,xstart+iwidth,ystart+iheight);
- e = preamble(&ioutb, bbox);
- if(e != 0)
- return e;
- Bprint(&ioutb, "%%%%Page: 1\n%%%%BeginPageSetup\n");
- Bprint(&ioutb, "/pgsave save def\n");
- Bprint(&ioutb, "%%%%EndPageSetup\n");
- bps = im->depth;
- Bprint(&ioutb, "%d 0 %d %d %d %d %d %d %s doimage\n", iheight, iwidth, ystart, xstart, height, width, bps, im->flags&Fgrey ? "true" : "false");
- imagebits(&ioutb, im);
- Bprint(&ioutb, "pgsave restore\nshowpage\n");
- e = trailer(&ioutb, 1);
- if(e != 0)
- return e;
- Bterm(&ioutb);
- return 0;
- }
- /* set local variables by string and pointer to its value
- * the variables are:
- * int magnification
- * int landscape
- * char *Patch
- */
- void
- psopt(char *s, void *val)
- {
- if(s == nil)
- return;
- if(strcmp("xmagnification", s) == 0)
- xmagnification = *((double *)val);
- if(strcmp("ymagnification", s) == 0)
- ymagnification = *((double *)val);
- if(strcmp("landscape", s) == 0)
- landscape = *((int *)val);
- if(strcmp("Patch", s) == 0)
- Patch = *((char **)val);
- }
|