parker@zaphod.mpr.ca (Ross Parker) (11/21/89)
In response to the requests I've received, here's a set of diffs to Adobe transcript v2.1 to add page rotation... ----snip----snip----snip----snip----snip----snip----snip----snip----snip ----snip *** psdit.c Wed Sep 14 22:17:18 1988 --- psdit.c Mon Nov 20 10:41:31 1989 *************** *** 163,168 private int resolution; /* device resolution */ private int minhoriz; /* minimum horizontal motion */ private int minvert; /* minimum vertical motion */ private int onspecial; private int specfont; --- 160,166 ----- private int resolution; /* device resolution */ private int minhoriz; /* minimum horizontal motion */ private int minvert; /* minimum vertical motion */ + private int rot=0; /* 90 degree rotation */ private int onspecial; private int specfont; *************** *** 313,318 if (spage <= 0) spage = 9999; break; } argc--; argv++; --- 311,319 ----- if (spage <= 0) spage = 9999; break; + case 'r': /* rotate by 90 degrees */ + rot++; + break; } argc--; argv++; *************** *** 864,869 t_slant (0); setfont (1); /* set font */ printf("xi\n"); printf("%%%%EndProlog\n"); } --- 865,875 ----- t_slant (0); setfont (1); /* set font */ printf("xi\n"); + if (rot) /* 90 degree page rotation */ + { + printf("90 rotate 0 -4811 translate\n"); + printf("/pagesave save def\n"); + } printf("%%%%EndProlog\n"); } ----snip----snip----snip----snip----snip----snip----snip----snip----snip ----snip Hope this helps! Ross Parker | Why do they put me down? Microtel Pacific Research Ltd. | Make out that I'm a clown? Burnaby, B.C., | I drink scotch whisky all Canada, eh? uunet!ubc-cs!mpre!parker | day long (604)293-5495 parker@mpre.mpr.ca | Yeah I'm gonna save my money Disclaimer: | (gonna put it all away...) My fingers are doing all the work... | 'Cause I'm a Scotsman