Newsgroups: comp.sys.xerox
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!news2.near.net!news.mathworks.com!udel!gatech!howland.reston.ans.net!Germany.EU.net!EU.net!sun4nl!klomp.nl
From: Sysop@klomp.nl
Subject: Problems with printjob Xerox DocuTech 135!!
Message-ID: <3.47986062.Klomp.Infoserver@klomp.nl>
Sender: news@inter.NL.net (News at news)
Organization: NLnet
Date: Mon, 27 Mar 1995 23:20:13 GMT
Lines: 170

Is there anyone overseas (US or so) who has a Xerox DocuTech 135 printer 
connected through a Sun Sparcstation with a softwareRIP (Solei.9)?
We are having problems with a postscript job with the Novell xerox network 
server. There seems to be a bug in their software which doen't enable me to 
run this testjob.
We would like to know if this job runs on a DocuTech when send through a Sun 
with the software-RIP Solei.9.

Please react through E-mail to
John ter Welle
sysop@klomp.nl

--------->>>  cut here   <<<-----------
/numsets 100 def

/tray1 { << /MediaColor (white) >> setpagedevice } bind def
/tray2 { << /MediaColor (green) >> setpagedevice } bind def



/inch { 72 mul } bind def

/mm { inch 25.4 div } bind def

/starside {

	72 0 lineto
	currentpoint translate
	-144 rotate
} def

/star {
	gsave
	
	moveto
	currentpoint translate
	4 { starside } repeat
	closepath
	
	
	0.5 setgray fill
	
	grestore
	stroke
} def


/drawimage1 {
	gsave
	translate
	
	0.25 mm setlinewidth 	
	5   mm 35 mm moveto
	100 mm 35 mm lineto
	
	5   mm 36 mm moveto
	100 mm 36 mm lineto
	
	(Helvetica) findfont 9 scalefont setfont
	
	5 mm 148 mm 10 mm sub moveto (Atlas software) show
	5 mm 148 mm 20 mm sub moveto (Buys Ballotstraat 17-19) show
	5 mm 148 mm 30 mm sub moveto (3846 BG  Harderwijk) show
	
	grestore
} bind def

/drawimage2 {
	gsave
	translate
	
	50.25 mm 70 mm star
	
	grestore
} bind def

/drawimage3 {
	gsave
	translate
	
		
	grestore

} bind def


/printset {
	/savepoint save def
	tray1
	0   mm 0   mm drawimage1
	105 mm 0   mm drawimage1
	0   mm 148 mm drawimage1
	105 mm 148 mm drawimage1
	showpage
	savepoint restore
	
	/savepoint save def
	tray2
	0   mm 0   mm drawimage1
	105 mm 0   mm drawimage1
	0   mm 148 mm drawimage1
	105 mm 148 mm drawimage1
	showpage
	savepoint restore
	
	/savepoint save def
	tray1
	0   mm 0   mm drawimage2
	105 mm 0   mm drawimage2
	0   mm 148 mm drawimage2
	105 mm 148 mm drawimage2
	showpage
	savepoint restore
	
	/savepoint save def
	tray2
	0   mm 0   mm drawimage1
	105 mm 0   mm drawimage1
	0   mm 148 mm drawimage1
	105 mm 148 mm drawimage1
	showpage
	savepoint restore
	
	/savepoint save def
	tray1
	0   mm 0   mm drawimage2
	105 mm 0   mm drawimage2
	0   mm 148 mm drawimage2
	105 mm 148 mm drawimage2
	showpage
	savepoint restore
	
	/savepoint save def
	tray1
	0   mm 0   mm drawimage2
	105 mm 0   mm drawimage2
	0   mm 148 mm drawimage2
	105 mm 148 mm drawimage2
	showpage
	savepoint restore
	
	/savepoint save def
	tray2
	0   mm 0   mm drawimage1
	105 mm 0   mm drawimage1
	0   mm 148 mm drawimage1
	105 mm 148 mm drawimage1
	showpage
	savepoint restore
	
	/savepoint save def
	tray2
	0   mm 0   mm drawimage1
	105 mm 0   mm drawimage1
	0   mm 148 mm drawimage1
	105 mm 148 mm drawimage1
	showpage
	savepoint restore
	
} bind def

/printtest {
	a4
	numsets { printset } repeat
} bind def

printtest



