ditroff print in landscape orientation on an Apple laserwriter

Ross Parker parker at zaphod.mpr.ca
Tue Nov 21 06:09:02 AEST 1989


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 at 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



More information about the Comp.unix.wizards mailing list