* ps-print problems
@ 2005-08-16 23:05 Sebastian Luque
2005-08-17 8:23 ` Peter Dyballa
0 siblings, 1 reply; 16+ messages in thread
From: Sebastian Luque @ 2005-08-16 23:05 UTC (permalink / raw)
ps-print-buffer and similar functions, e.g. ps-print-region, have stopped
working properly in my system (GNU Emacs 21.4.1 (i386-pc-linux-gnu, X
toolkit, Xaw3d scroll bars) of 2005-03-17 on trouble, modified by
Debian). No error gets detected by Emacs, so I got no backtrace, although
the only thing that gets printed is the following text:
,-----[ ps-print-buffer printed output ]
| # ERROR: configurationerror
| # OFFENDING COMMAND: setpageadvice
|
| # STACK:
|
| -dictionary-
|
| # ERRORINFO:
|
| false
| /ManualFeed
`-----
Googling for this is not yielding anything, so I don't have much to play
around with. My only suspicion is that this has to do with lpr, which I
recently upgraded in my system (Debian unstable). Has anybody else
experienced this or have any pointers?
Thanks in advance,
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-16 23:05 ps-print problems Sebastian Luque
@ 2005-08-17 8:23 ` Peter Dyballa
[not found] ` <bdb4c83504fd5b7980a45a53b7d1a344-Ebz0p6Y2lXc@public.gmane.org>
2005-08-17 14:08 ` Sebastian Luque
0 siblings, 2 replies; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 8:23 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 01:05 schrieb Sebastian Luque:
> ,-----[ ps-print-buffer printed output ]
> | # ERROR: configurationerror
> | # OFFENDING COMMAND: setpageadvice
> |
> | # STACK:
> |
> | -dictionary-
> |
> | # ERRORINFO:
> |
> | false
> | /ManualFeed
> `-----
>
There is PostScript interpreter involved in this. Parts of the
PostScript code it is interpreting is meant for a different hardware,
i.e. a specific PostScript printer.
I think the error can come from some customization in PostScript
printing. There is a group (PS Print?) where you can switch on or off
manual feeding of your printer. Could you toggle that setting?
Can you try *not* to spool for printing, i.e. passing all output to the
operating system, but redirect the PS output into a buffer? I think the
variable to be set to non-nil is pr-spool-p. Once you get the PS code
in that buffer, you can save it to a file and pass it to gs to see what
it finds.
What puzzles me is the setpageadvice error. I think this is only useful
in a hard RIP, i.e. inside the PostScript printer. Can it be that you
set up CUPS particles to do something with the stuff to be printed?
--
Greetings
Pete
These are my principles and if you don't like them... well, I have
others. - Groucho Marx
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
[not found] ` <bdb4c83504fd5b7980a45a53b7d1a344-Ebz0p6Y2lXc@public.gmane.org>
@ 2005-08-17 11:57 ` Jochen Küpper
0 siblings, 0 replies; 16+ messages in thread
From: Jochen Küpper @ 2005-08-17 11:57 UTC (permalink / raw)
Peter Dyballa <Peter_Dyballa-Ebz0p6Y2lXc@public.gmane.org> writes:
> I think the error can come from some customization in PostScript
> printing. There is a group (PS Print?) where you can switch on or off
> manual feeding of your printer. Could you toggle that setting?
Or use C-u ps-print-buffer:
,----[ C-h f ps-print-buffer RET ]
| ps-print-buffer is an interactive autoloaded Lisp function in `ps-print'.
| It is bound to <menu-bar> <file> <ps-print-buffer>.
| (ps-print-buffer &optional FILENAME)
|
| Generate and print a PostScript image of the buffer.
|
| Interactively, when you use a prefix argument (C-u), the command prompts the
| user for a file name, and saves the PostScript image in that file instead of
| sending it to the printer.
|
| Noninteractively, the argument FILENAME is treated as follows: if it is nil,
| send the image to the printer. If FILENAME is a string, save the PostScript
| image in a file with that name.
`----
Greetings,
Jochen
--
Einigkeit und Recht und Freiheit http://www.Jochen-Kuepper.de
Liberté, Égalité, Fraternité GnuPG key: CC1B0B4D
(Part 3 you find in my messages before fall 2003.)
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 8:23 ` Peter Dyballa
[not found] ` <bdb4c83504fd5b7980a45a53b7d1a344-Ebz0p6Y2lXc@public.gmane.org>
@ 2005-08-17 14:08 ` Sebastian Luque
2005-08-17 14:53 ` Peter Dyballa
2005-08-17 14:57 ` Peter Dyballa
1 sibling, 2 replies; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 14:08 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 1533 bytes --]
Thank you Peter and Jochen,
Peter Dyballa <Peter_Dyballa@Web.DE> wrote:
[...]
> I think the error can come from some customization in PostScript
> printing. There is a group (PS Print?) where you can switch on or off
> manual feeding of your printer. Could you toggle that setting?
Actually, I had left this at default value of nil (off). In fact, the
error occurs even with 'emacs -q', although ps-print was working perfectly
until a few days ago (last time I printed something from Emacs). Printing
still works ok from other apps, and I haven't (consciously) touched
anything on CUPS, as I'm not so experienced with it.
> Can you try *not* to spool for printing, i.e. passing all output to the
> operating system, but redirect the PS output into a buffer? I think the
> variable to be set to non-nil is pr-spool-p. Once you get the PS code in
> that buffer, you can save it to a file and pass it to gs to see what it
> finds.
Ok, I've tried that and got output with several lines like this:
ESP Ghostscript 815.00: Error: Font Renderer Plugin ( FreeType ) return code = -1
I've checked the file to look for some clues, but the PostScript language
is over my head and can't make sense of the output. I'm attaching the
file, in case someone with more experience thinks it's necessary.
> What puzzles me is the setpageadvice error.
Googling for this turns up a couple of hits relating to problems with
paper size, but I think that's unlikely in my case (see my first
paragraph).
Thanks again,
--
Sebastian P. Luque
[-- Attachment #2: ps-print-out.ps --]
[-- Type: text/plain, Size: 33844 bytes --]
%!PS-Adobe-3.0
%%Title: timbyact.R
%%Creator: Sebastian Luque (using ps-print v6.5.5)
%%CreationDate: 08:30:17 Aug 17 2005
%%Orientation: Portrait
%%DocumentNeededResources: font Times-Roman Times-Italic
%%+ font Courier
%%+ font Courier-Bold
%%+ font Courier-Oblique
%%+ font Courier-BoldOblique
%%+ font Helvetica
%%+ font Helvetica-Bold
%%DocumentMedia: Letter 612 792 0 () ()
%%PageOrder: Ascend
%%Pages: (atend)
%%Requirements:
%%EndComments
%%BeginDefaults
%%PageMedia: Letter
%%EndDefaults
%%BeginProlog
/languagelevel where{pop}{/languagelevel 1 def}ifelse
/ErrorMessage 1 def
% === BEGIN ps-print prologue 0
% version: 6.0
% Copyright (C) 2000, 2001 Free Software Foundation, Inc.
%
% This file is part of GNU Emacs.
%
% GNU Emacs is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2, or (at your option)
% any later version.
%
% GNU Emacs is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with GNU Emacs; see the file COPYING. If not, write to the
% Free Software Foundation, Inc., 59 Temple Place - Suite 330,
% Boston, MA 02111-1307, USA.
% As a special exception, the copyright holders of this module give
% you permission to include the module in a Postscript file generated
% by Emacs or other free software together with the result of
% converting text to be printed, regardless of the license terms of
% that text, and to use under terms of your choice the page images
% resulting from formatting said combination. If you modify this
% module, you may extend this exception to your version of the module
% but you are not obligated to do so. If you do not wish to do so,
% delete this exception statement from your version.
%%BeginProcSet: ErrorHandler
% Downloaded Error Break-page handler
% Adapted from:
% PostScript Language Program Design,
% Adobe Systems Incorporated.
% Appendix A, pages 217-219
/ps$brkpage where{pop}
{
/ps$brkpage 64 dict def
ps$brkpage begin
/tx 0 def/ty 0 def/toy 0 def/tox 0 def
/prnt{
dup type/stringtype ne{=string cvs}if
dup length 6 mul
/tx exch def/ty 10 def
currentpoint/toy exch def/tox exch def
1 setgray newpath
tox toy 2 sub moveto
0 ty rlineto tx 0 rlineto
0 ty neg rlineto
closepath fill
tox toy moveto 0 setgray show
}bind def
/nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
/=={/cp 0 def typeprint nl}def
/typeprint{dup type dup currentdict exch known{exec}{unknowntype}ifelse}readonly def
/lmargin 72 def
/rmargin 72 def
/tprint{
dup length cp add rmargin gt{nl/cp 0 def}if
dup length cp add/cp exch def
prnt
}readonly def
/cvsprint{=string cvs tprint( )tprint}readonly def
/unknowntype{exch pop cvlit(??)tprint cvsprint}readonly def
/integertype{cvsprint}readonly def
/realtype{cvsprint}readonly def
/booleantype{cvsprint}readonly def
/operatortype{(//)tprint cvsprint}readonly def
/marktype{pop(-mark-)tprint}readonly def
/dicttype{pop(-dictionary-)tprint}readonly def
/nulltype{pop(-null-)tprint}readonly def
/filetype{pop(-filestream-)tprint}readonly def
/savetype{pop(-savelevel-)tprint}readonly def
/fonttype{pop(-fontid-)tprint}readonly def
/nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
/stringtype{
dup rcheck
{(\()tprint tprint(\))tprint}
{pop(-string-)tprint}ifelse}readonly def
/arraytype{
dup rcheck
{dup xcheck
{({)tprint{typeprint}forall(})tprint}
{([)tprint{typeprint}forall(])tprint}ifelse}
{pop(-array-)tprint}ifelse}readonly def
/packedarraytype{
dup rcheck
{dup xcheck
{({)tprint{typeprint}forall(})tprint}
{([)tprint{typeprint}forall(])tprint}ifelse}
{pop(-packedarray-)tprint}ifelse}readonly def
/courier/Courier findfont 10 scalefont def
/OLDhandleerror errordict/handleerror get def
end %ps$brkpage
/handleerror{
systemdict begin $error begin ps$brkpage begin
newerror
{/newerror false store vmstatus pop pop 0 ne{grestoreall}if
initgraphics
ErrorMessage 1 and 0 ne{ % print on paper
courier setfont lmargin 720 moveto
(# ERROR: )prnt errorname prnt nl
(# OFFENDING COMMAND: )prnt/command load prnt
$error/ostack known
{nl nl(# STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
$error/errorinfo known
{nl nl(# ERRORINFO:)prnt nl nl $error/errorinfo get aload length{==}repeat}if
systemdict/showpage get exec}if
ErrorMessage 2 and 0 ne{ % send back to printing system
(\%\%[ Error: )print errorname =print
(; OffendingCommand: )print/command load =print
$error/errorinfo known
{(; ErrorInfo:)print $error/errorinfo get aload length{( )=print =print}repeat}if
( ]\%\%)= flush
(\%\%[ Rest of job is ignored ]\%\%)= flush}if
/newerror true store}if
end end end
stop
} % handleerror
dup 0 systemdict put % replace name by actual dict object
dup 4 ps$brkpage put % replace name by dict object
bind readonly
errordict 3 1 roll put % put proc in errordict as /handleerror
}ifelse
%%EndProcSet
% operators for language level 2 only
(<<)cvn where % << operator
{pop/BMark(<<)cvn load def}
{/BMark{mark}bind def}ifelse
(>>)cvn where % >> operator
{pop/EMark(>>)cvn load def}
{/EMark{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def}ifelse
/setpagedevice where % setpagedevice
{pop}
{/setpagedevice{pop}bind def}ifelse
/packedarray where % packedarray
{pop}
{/packedarray{array astore readonly}bind def}ifelse
% device dependent operators
/DefOp{
dup where{pop pop pop}
{exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
/duplexmode/setduplexmode DefOp
/tumble/settumble DefOp
% === END ps-print prologue 0
%%BeginProcSet: UserDefinedPrologue
%%EndProcSet
/LandscapeMode false def
/UpsideDown false def
/NumberOfColumns 1 def
/LandscapePageHeight 792.0 def
/PrintPageWidth 498.6141732283465 def
/PrintWidth 498.6141732283465 def
/PrintHeight 663.5861732283464 def
/LeftMargin 56.69291338582677 def
/RightMargin 56.69291338582677 def
/InterColumn 56.69291338582677 def
/BottomMargin 42.51968503937008 def
/TopMargin 42.51968503937008 def
/HeaderOffset 28.346456692913385 def
/HeaderPad 0 def
/FooterOffset 28.346456692913385 def
/FooterPad 1.734 def
/FooterLines 2 def
/ShowNofN true def
/SwitchHeader false def
/PrintOnlyOneHeader false def
/PrintHeader false def
/PrintHeaderFrame true def
/HeaderFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
/PrintFooter true def
/PrintFooterFrame true def
/FooterFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
/LineSpacing 0 def
/ParagraphSpacing 0 def
/LineHeight 12.66 def
/LinesPerColumn 53 def
/WarnPaperSize true def
/Zebra false def
/PrintLineNumber false def
/SyncLineZebra false def
/ZebraFollow 0 def
/PrintLineStep 1 def
/PrintLineStart 1 def
/LineNumberColor [0.000 0.000 0.000] def
/ZebraHeight 3 def
/ZebraColor 0.950 def
/BackgroundColor [1.000 1.000 1.000] def
/UseSetpagedevice false def
/PageWidth PrintPageWidth LeftMargin add RightMargin add def
/N-Up 1 def
/N-Up-Landscape false def
/N-Up-Border true def
/N-Up-Lines 1 def
/N-Up-Columns 1 def
/N-Up-Missing 0 def
/N-Up-Margin 28.346456692913385 def
/N-Up-Repeat N-Up-Lines def
/N-Up-End N-Up-Columns def
/N-Up-XColumn PageWidth def
/N-Up-YColumn 0 def
/N-Up-XLine N-Up-End 1 sub PageWidth mul neg def
/N-Up-YLine LandscapePageHeight neg def
/N-Up-XStart 0 def
/N-Up-YStart 0 def
% === BEGIN ps-print prologue 1
% version: 6.0
% Copyright (C) 2000, 2001 Free Software Foundation, Inc.
%
% This file is part of GNU Emacs.
%
% GNU Emacs is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2, or (at your option)
% any later version.
%
% GNU Emacs is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with GNU Emacs; see the file COPYING. If not, write to the
% Free Software Foundation, Inc., 59 Temple Place - Suite 330,
% Boston, MA 02111-1307, USA.
% As a special exception, the copyright holders of this module give
% you permission to include the module in a Postscript file generated
% by Emacs or other free software together with the result of
% converting text to be printed, regardless of the license terms of
% that text, and to use under terms of your choice the page images
% resulting from formatting said combination. If you modify this
% module, you may extend this exception to your version of the module
% but you are not obligated to do so. If you do not wish to do so,
% delete this exception statement from your version.
% ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
/ISOLatin1Encoding where{pop}{
% -- The ISO Latin-1 encoding vector isn't known, so define it.
% -- The first half is the same as the standard encoding,
% -- except for minus instead of hyphen at code 055.
/ISOLatin1Encoding
StandardEncoding 0 45 getinterval aload pop
/minus
StandardEncoding 46 82 getinterval aload pop
%*** NOTE: the following are missing in the Adobe documentation,
%*** but appear in the displayed table:
%*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
% 0200 (128)
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/dotlessi/grave/acute/circumflex/tilde/macron/breve/dotaccent
/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut/ogonek/caron
% 0240 (160)
/space/exclamdown/cent/sterling
/currency/yen/brokenbar/section
/dieresis/copyright/ordfeminine/guillemotleft
/logicalnot/hyphen/registered/macron
/degree/plusminus/twosuperior/threesuperior
/acute/mu/paragraph/periodcentered
/cedilla/onesuperior/ordmasculine/guillemotright
/onequarter/onehalf/threequarters/questiondown
% 0300 (192)
/Agrave/Aacute/Acircumflex/Atilde
/Adieresis/Aring/AE/Ccedilla
/Egrave/Eacute/Ecircumflex/Edieresis
/Igrave/Iacute/Icircumflex/Idieresis
/Eth/Ntilde/Ograve/Oacute
/Ocircumflex/Otilde/Odieresis/multiply
/Oslash/Ugrave/Uacute/Ucircumflex
/Udieresis/Yacute/Thorn/germandbls
% 0340 (224)
/agrave/aacute/acircumflex/atilde
/adieresis/aring/ae/ccedilla
/egrave/eacute/ecircumflex/edieresis
/igrave/iacute/icircumflex/idieresis
/eth/ntilde/ograve/oacute
/ocircumflex/otilde/odieresis/divide
/oslash/ugrave/uacute/ucircumflex
/udieresis/yacute/thorn/ydieresis
256 packedarray def
}ifelse
/reencodeFontISO{ %def
dup
length 12 add dict % Make a new font (a new dict the same size
% as the old one) with room for our new symbols.
begin % Make the new font the current dictionary.
% Copy each of the symbols from the old dictionary
% to the new one except for the font ID.
{1 index/FID ne{def}{pop pop}ifelse}forall
% Override the encoding with the ISOLatin1 encoding.
currentdict/FontType get 0 ne{/Encoding ISOLatin1Encoding def}if
% Use the font's bounding box to determine the ascent, descent,
% and overall height; don't forget that these values have to be
% transformed using the font's matrix.
% ^ (x2 y2)
% | |
% | v
% | +----+ - -
% | | | ^
% | | | | Ascent (usually > 0)
% | | | |
% (0 0) -> +--+----+-------->
% | | |
% | | v Descent (usually < 0)
% (x1 y1) --> +----+ - -
currentdict/FontType get 0 ne
{/FontBBox load aload pop % -- x1 y1 x2 y2
FontMatrix transform/Ascent exch def pop
FontMatrix transform/Descent exch def pop}
{/PrimaryFont FDepVector 0 get def
PrimaryFont/FontBBox get aload pop
PrimaryFont/FontMatrix get transform/Ascent exch def pop
PrimaryFont/FontMatrix get transform/Descent exch def pop}ifelse
/FontHeight Ascent Descent sub def % use `sub' because descent < 0
% Define these in case they're not in the FontInfo
% (also, here they're easier to get to).
/UnderlinePosition Descent 0.70 mul def
/OverlinePosition Descent UnderlinePosition sub Ascent add def
/StrikeoutPosition Ascent 0.30 mul def
/LineThickness FontHeight 0.05 mul def
/Xshadow FontHeight 0.08 mul def
/Yshadow FontHeight -0.09 mul def
/SpaceBackground Descent neg UnderlinePosition add def
/XBox Descent neg def
/YBox LineThickness 0.7 mul def
currentdict % Leave the new font on the stack
end % Stop using the font as the current dictionary.
definefont % Put the font into the font dictionary
pop % Discard the returned font.
}bind def
% Font definition
/DefFont{findfont exch scalefont reencodeFontISO}def
% Font selection
/F{
findfont
dup/Ascent get/Ascent exch def
dup/Descent get/Descent exch def
dup/FontHeight get/FontHeight exch def
dup/UnderlinePosition get/UnderlinePosition exch def
dup/OverlinePosition get/OverlinePosition exch def
dup/StrikeoutPosition get/StrikeoutPosition exch def
dup/LineThickness get/LineThickness exch def
dup/Xshadow get/Xshadow exch def
dup/Yshadow get/Yshadow exch def
dup/SpaceBackground get/SpaceBackground exch def
dup/XBox get/XBox exch def
dup/YBox get/YBox exch def
setfont
}def
/FG/setrgbcolor load def
/bg false def
/BG{
dup/bg exch def
{[4 1 roll]}
{[1.0 1.0 1.0]}
ifelse
/bgcolor exch def
}def
% B width C
% +-----------+
% | Ascent (usually > 0)
% A + +
% | Descent (usually < 0)
% +-----------+
% E width D
/dobackground{ % width --
currentpoint % -- width x y
gsave
newpath
moveto % A (x y)
0 Ascent rmoveto % B
dup 0 rlineto % C
0 Descent Ascent sub rlineto % D
neg 0 rlineto % E
closepath
FillBgColor
grestore
}def
/eolbg{ % dobackground until right margin
PrintWidth % -- x-eol
currentpoint pop % -- cur-x
sub % -- width until eol
dobackground
}def
/LineHS LineHeight LineSpacing add def
/ParagraphHS LineHeight ParagraphSpacing add def
/PSL{/h exch def bg{eolbg}if 0 currentpoint exch pop h sub moveto}def
/PLN{PrintLineNumber{doLineNumber}if}def
/SL{LineHS PSL isLineStep pop}def % Soft Linefeed
/PHL{ParagraphHS PSL PLN}def % Paragraph Hard Linefeed
/LHL{LineHS PSL PLN}def % Hard Linefeed
% Some debug
/dcp{currentpoint exch 40 string cvs print(, )print =}def
/dp{print 2 copy exch 40 string cvs print(, )print =}def
/W{
( )stringwidth % Get the width of a space in the current font.
pop % Discard the Y component.
mul % Multiply the width of a space
% by the number of spaces to plot
bg{dup dobackground}if
0 rmoveto
}def
/Effect 0 def
/EffectUnderline false def
/EffectStrikeout false def
/EffectOverline false def
/EffectShadow false def
/EffectBox false def
/EffectOutline false def
% effect: 1 - underline 2 - strikeout 4 - overline
% 8 - shadow 16 - box 32 - outline
/EF{
/Effect exch def
/EffectUnderline Effect 1 and 0 ne def
/EffectStrikeout Effect 2 and 0 ne def
/EffectOverline Effect 4 and 0 ne def
/EffectShadow Effect 8 and 0 ne def
/EffectBox Effect 16 and 0 ne def
/EffectOutline Effect 32 and 0 ne def
}def
% stack: string |- --
/S{
/xx currentpoint dup Descent add/yy exch def
Ascent add/YY exch def def
dup stringwidth pop xx add/XX exch def
EffectShadow{
/yy yy Yshadow add def
/XX XX Xshadow add def
}if
bg{
true
EffectBox
{SpaceBackground doBox}
{xx yy XX YY doRect}
ifelse
}if % background
EffectBox {false 0 doBox}if % box
EffectShadow {dup doShadow}if % shadow
EffectOutline
{true doOutline} % outline
{show} % normal text
ifelse
EffectUnderline{UnderlinePosition Hline}if % underline
EffectStrikeout{StrikeoutPosition Hline}if % strikeout
EffectOverline {OverlinePosition Hline}if % overline
}bind def
% stack: position |- --
/Hline{
currentpoint exch pop add dup
gsave
newpath
xx exch moveto
XX exch lineto
closepath
LineThickness setlinewidth stroke
grestore
}bind def
% stack: fill-or-not delta |- --
/doBox{
/dd exch def
xx XBox sub dd sub yy YBox sub dd sub
XX XBox add dd add YY YBox add dd add
doRect
}bind def
% stack: fill-or-not lower-x lower-y upper-x upper-y |- --
/doRect{
/rYY exch def
/rXX exch def
/ryy exch def
/rxx exch def
gsave
newpath
rXX rYY moveto
rxx rYY lineto
rxx ryy lineto
rXX ryy lineto
closepath
% top of stack: fill-or-not
{FillBgColor}
{LineThickness setlinewidth stroke}ifelse
grestore
}bind def
% stack: string |- --
/doShadow{
gsave
Xshadow Yshadow rmoveto
false doOutline
grestore
}bind def
/st 1 string def
% stack: string fill-or-not |- --
/doOutline{
/-fillp- exch def
/-ox- currentpoint/-oy- exch def def
gsave
LineThickness setlinewidth
{st 0 3 -1 roll put
st dup true charpath
-fillp- {gsave FillBgColor grestore}if
stroke stringwidth
-oy- add/-oy- exch def
-ox- add/-ox- exch def
-ox- -oy- moveto
}forall
grestore
-ox- -oy- moveto
}bind def
% stack: --
/FillBgColor{bgcolor aload pop setrgbcolor fill}bind def
% stack: -- |- boolean
/isLineStep{
SyncLineZebra
{PLScounter 0 gt % or zebra
{/PLScounter PLScounter 1 sub def PLScounter 0 eq}
{false}ifelse
PrintLineStep 1 gt
{/PrintLineStep PrintLineStep 1 sub def}
{/PrintLineStep ZebraHeight def
/PLScounter PrintLineStart def}ifelse}
{LineNumber PrintLineStart sub PrintLineStep mod 0 eq}ifelse % or line step
}def
% stack: --
/doLineNumber{
/LineNumber where
{pop
isLineStep % or line step
LineNumber Lines ge or % or last line
{currentfont
gsave
LineNumberColor SetColor
/L0 findfont setfont
LineNumber Lines ge
{(end )}
{LineNumber 6 string cvs( )strcat}ifelse
dup stringwidth pop neg 0 rmoveto
show
grestore
setfont}if
/LineNumber LineNumber 1 add def
}if
}def
% stack: color-specifier |- --
/SetColor{dup type/realtype eq{setgray}{aload pop setrgbcolor}ifelse}def
% stack: --
/printZebra{
gsave
ZebraColor SetColor
/double-zebra ZebraHeight ZebraHeight add def
/yiter double-zebra LineHS mul neg def
/xiter PrintWidth InterColumn add def
/zebra-line LinesPrinted def
NumberOfColumns{LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat
grestore
}def
% stack: lines-per-column |- --
/doColumnZebra{
/lpc exch def
gsave
ZebraFollow 1 and 0 ne{
/H ZebraHeight zebra-line ZebraHeight mod sub def
/lpc lpc H sub def
zebra-line double-zebra mod ZebraHeight lt
{H doZebra % "black" stripe followed by a "white" stripe
/lpc lpc ZebraHeight sub def
H ZebraHeight add}
{H}ifelse % "white" stripe
LineHS mul neg 0 exch rmoveto
/zebra-line zebra-line LinesPerColumn add def
}if
/zspacing 0 def
lpc dup double-zebra idiv{ZebraHeight doZebra 0 yiter rmoveto}repeat
double-zebra mod dup 0 le{pop}
{dup ZebraHeight gt
{pop ZebraHeight}
{/zspacing LineSpacing def
ZebraFollow 2 and 0 ne{pop ZebraHeight}if}ifelse
doZebra}ifelse
grestore
}def
% stack: zebra-height (in lines) |- --
/doZebra{
/zh exch 0.05 sub LineHS mul zspacing sub def
gsave
0 LineHeight 0.65 mul rmoveto
PrintWidth 0 rlineto
0 zh neg rlineto
PrintWidth neg 0 rlineto
0 zh rlineto
fill
grestore
}def
% stack: --
/printBackground{
/BackgroundColor where{
pop gsave BackgroundColor SetColor
NumberOfColumns{
gsave
0 LineHeight 0.65 mul rmoveto
PrintWidth 0 rlineto
0 PrintHeight neg rlineto
PrintWidth neg 0 rlineto
0 PrintHeight rlineto
fill
grestore
PrintWidth InterColumn add 0 rmoveto
}repeat
grestore
}if
}def
% tx ty rotation xscale yscale xpos ypos BeginBackImage
/BeginBackImage{
/-save-image- save def
/showpage{}def
translate
scale
rotate
translate
}def
/EndBackImage{-save-image- restore}def
% string fontsize fontname rotation gray xpos ypos ShowBackText
/ShowBackText{
gsave
translate
setgray
rotate
findfont exch dup/-offset- exch -0.25 mul def scalefont setfont
0 -offset- moveto
/-saveLineThickness- LineThickness def
/LineThickness 1 def
false doOutline
/LineThickness -saveLineThickness- def
grestore
}def
/SetPageSize{
BMark/PageSize[PageWidth LandscapePageHeight LandscapeMode{exch}if]EMark setpagedevice
}def
/BeginDoc{
% ---- Remember space width of the normal text font `f0'.
/SpaceWidth/f0 findfont setfont( )stringwidth pop def
% ---- save the state of the document (useful for ghostscript!)
/docState save def
% ---- [andrewi] set PageSize based on chosen dimensions
UseSetpagedevice{
WarnPaperSize{SetPageSize}{mark{SetPageSize}stopped cleartomark}ifelse
}if
/ColumnWidth PrintWidth InterColumn add def
% ---- define where printing will start
/f0 F % this installs Ascent
/PrintStartY PrintHeight Ascent sub def
/ColumnIndex 1 def
/N-Up-Counter N-Up-End 1 sub def
/PLScounter PrintLineStart def
}def
/EndDoc{
% ---- restore the state of the document (useful for ghostscript!)
docState restore
}def
/BeginDSCPage{
% ---- when 1st column, save the state of the page
ColumnIndex 1 eq{/pageState save def}if
% ---- save the state of the column
/columnState save def
}def
/PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def
/BeginPage{
/LinesPrinted exch def
% ---- when 1st column, print all background effects
ColumnIndex 1 eq{
0 PrintStartY moveto % move to where printing will start
printBackground
Zebra{printZebra}if
printGlobalBackground
printLocalBackground
}if
PrintOnlyOneHeader{ColumnIndex 1 eq}{true}ifelse
dup PrintHeader and{
PrintHeaderFrame{HeaderFrame}if
HeaderText
}if
PrintFooter and{
PrintFooterFrame{FooterFrame}if
FooterText
}if
0 PrintStartY moveto % move to where printing will start
/LineNumber where
{pop
SyncLineZebra
{/H PageNumber 1 sub NumberOfColumns mul ColumnIndex 1 sub add
LinesPerColumn mul ZebraHeight mod def
/PLScounter H PrintLineStart ge{0}{PrintLineStart H sub}ifelse def
/PrintLineStep ZebraHeight H sub def}if}if
PLN
}def
/EndPage{bg{eolbg}if}def
/EndDSCPage{
ColumnIndex NumberOfColumns eq{
% ---- restore the state of the page
pageState restore
/ColumnIndex 1 def
% ---- N-up printing
N-Up 1 gt{
N-Up-Counter 0 gt
{% ---- Next page on same row
/N-Up-Counter N-Up-Counter 1 sub def
N-Up-XColumn N-Up-YColumn}
{% ---- Next page on next line
/N-Up-Counter N-Up-End 1 sub def
N-Up-XLine N-Up-YLine}ifelse
translate
}if
}{ % else
% ---- restore the state of the current column
columnState restore
% ---- and translate to the next column
ColumnWidth 0 translate
/ColumnIndex ColumnIndex 1 add def
}ifelse
}def
/TextStart{
LeftMargin BottomMargin
PrintFooter{
FooterPad add
FooterLines FooterLineHeight mul add
FooterPad add
FooterOffset add}if
}def
% stack: number-of-pages-per-sheet |- --
/BeginSheet{
/sheetState save def
/pages-per-sheet exch def
% ---- translate to bottom-right corner of Portrait page
LandscapeMode{
LandscapePageHeight 0 translate
90 rotate
}if
% ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
/JackGhostscript where{pop 1 27.7 29.7 div scale}if
UpsideDown{PageWidth LandscapePageHeight translate 180 rotate}if
% ---- N-Up printing
N-Up 1 gt{
% ---- landscape
N-Up-Landscape{
PageWidth 0 translate
90 rotate
}if
N-Up-Margin dup translate
% ---- scale
LandscapeMode{
/HH PageWidth def
/WW LandscapePageHeight def
}{
/HH LandscapePageHeight def
/WW PageWidth def
}ifelse
/xx 0 def
N-Up-Landscape{
/ww WW WW mul N-Up-Lines HH mul div def
/cc HH N-Up-Columns N-Up-Missing add div def
ww cc gt{/xx WW def/WW cc ww div WW mul def/xx xx WW sub def}if
}{
/hh HH N-Up-Columns N-Up-Missing add div def
/cc HH N-Up-Lines div def
hh cc gt{/xx WW def/WW cc hh div WW mul def/xx xx WW sub def}if
}ifelse
WW N-Up-Margin sub N-Up-Margin sub
N-Up-Landscape
{N-Up-Lines div HH}
{N-Up-Columns N-Up-Missing add div WW}ifelse
div dup scale
LandscapeMode{/yy 0 def}{/yy xx def/xx 0 def}ifelse
xx N-Up-Repeat 1 sub LandscapePageHeight mul yy add translate
% ---- go to start position in page matrix
N-Up-XStart N-Up-Missing 0.5 mul
LandscapeMode
{LandscapePageHeight mul N-Up-YStart add}
{PageWidth mul add N-Up-YStart}ifelse
translate
}if
% ---- translate to lower left corner of TEXT
TextStart translate
% ---- N-up printing
N-Up 1 gt N-Up-Border and pages-per-sheet 0 gt and{
% ---- page border
gsave
0 setgray
TextStart exch neg exch neg moveto
N-Up-Repeat
{N-Up-End
{gsave
PageWidth 0 rlineto
0 LandscapePageHeight rlineto
PageWidth neg 0 rlineto
closepath stroke
grestore
/pages-per-sheet pages-per-sheet 1 sub def
pages-per-sheet 0 le{exit}if
N-Up-XColumn N-Up-YColumn rmoveto
}repeat
pages-per-sheet 0 le{exit}if
N-Up-XLine N-Up-XColumn sub N-Up-YLine rmoveto
}repeat
grestore
}if
}def
/EndSheet{
showpage
sheetState restore
}def
/SetHeaderLines{ % nb-lines --
/HeaderLines exch def
% ---- bottom up
HeaderPad
HeaderLines 1 sub HeaderLineHeight mul add
HeaderTitleLineHeight add
HeaderPad add
/HeaderHeight exch def
}def
/SetFooterLines{ % nb-lines --
/FooterLines exch def
% ---- bottom up
FooterPad
FooterLines FooterLineHeight mul add
FooterPad add
/FooterHeight exch def
}def
% |---------|
% | tm |
% |---------|
% | header |
% |-+-------| <-- (x y)
% | ho |
% |---------|
% | text |
% |---------|
% | fo |
% |---------|
% | footer |
% |-+-------| <-- (0 0)
% | bm |
% |---------|
% -- |- x y
/HeaderFrameStart{0 PrintHeight HeaderOffset add}def
/FooterFrameStart{0 FooterHeight FooterOffset add neg}def
/doFramePath{
/h exch def
PrintHeaderWidth 0 rlineto
0 h rlineto
PrintHeaderWidth neg 0 rlineto
0 h neg rlineto
}def
/HeaderFramePath{HeaderHeight doFramePath}def
/FooterFramePath{FooterHeight doFramePath}def
% /path-fun /start-fun vector-property doFrame
/doFrame{
/vecFrame exch def
/startFrame exch load def
/pathFrame exch load def
gsave
vecFrame 2 get setlinewidth % frame border width
% ---- do the shadow of the next rectangle
startFrame moveto
1 -1 rmoveto
pathFrame
vecFrame 4 get SetColor fill % frame shadow color
% ---- do the next rectangle ...
startFrame moveto
pathFrame
gsave vecFrame 1 get SetColor fill grestore % frame background
gsave vecFrame 3 get SetColor stroke grestore % frame border color
grestore
}def
/HeaderFrame{/HeaderFramePath /HeaderFrameStart HeaderFrameProperties doFrame}def
/FooterFrame{/FooterFramePath /FooterFrameStart FooterFrameProperties doFrame}def
/HeaderStart{
HeaderFrameStart
exch HeaderPad add exch % horizontal pad
% ---- bottom up
HeaderPad add % vertical pad
HeaderDescent sub
HeaderLineHeight HeaderLines 1 sub mul add
}def
/FooterStart{
FooterFrameStart
exch FooterPad add exch % horizontal pad
% ---- bottom up
FooterPad add % vertical pad
FooterDescent sub
FooterLineHeight FooterLines 1 sub mul add
}def
/strcat{
dup length 3 -1 roll dup length dup 4 -1 roll add string dup
0 5 -1 roll putinterval
dup 4 2 roll exch putinterval
}def
/pagenumberstring{
PageNumber 32 string cvs
ShowNofN{(/)strcat PageCount 32 string cvs strcat}if
}def
% lines is-right HeaderOrFooterTextLines
/HeaderOrFooterTextLines{
/is_right exch def
HFStart moveto
{ % ---- process the lines
aload pop
exch F
gsave
dup xcheck{exec}if
is_right{
dup stringwidth pop
PrintHeaderWidth exch sub HFPad HFPad add sub 0 rmoveto
}if
HFColor SetColor
show
grestore
0 HFLineHeight neg rmoveto
}forall
}def
% right-lines left-lines /start lineheight pad fore-color HeaderOrFooterText
/HeaderOrFooterText{
/HFColor exch def
/HFPad exch def
/HFLineHeight exch def
/HFStart exch load def
% -- rightLines leftLines -- at stack
% ---- hack: `PN 1 and' == `PN 2 modulo'
% ---- if even page number and duplex, then exchange left and right
PageNumber 1 and 0 eq SwitchHeader and{exch}if
% ---- process the left lines
false HeaderOrFooterTextLines
% ---- process the right lines
true HeaderOrFooterTextLines
}def
/HeaderText{
HeaderLinesRight HeaderLinesLeft
/HeaderStart HeaderLineHeight HeaderPad
HeaderFrameProperties 0 get
HeaderOrFooterText
}def
/FooterText{
FooterLinesRight FooterLinesLeft
/FooterStart FooterLineHeight FooterPad
FooterFrameProperties 0 get
HeaderOrFooterText
}def
/ReportFontInfo{
2 copy
/t0 3 1 roll DefFont
/t0 F
/lh FontHeight def
/sw( )stringwidth pop def
/aw(01234567890abcdefghijklmnopqrstuvwxyz)dup length exch
stringwidth pop exch div def
/t1 12/Helvetica-Oblique DefFont
/t1 F
gsave
(languagelevel = )show
languagelevel 32 string cvs show
grestore
0 FontHeight neg rmoveto
gsave
(For )show
128 string cvs show
( )show
32 string cvs show
( point, the line height is )show
lh 32 string cvs show
(, the space width is )show
sw 32 string cvs show
(,)show
grestore
0 FontHeight neg rmoveto
gsave
(and a crude estimate of average character width is )show
aw 32 string cvs show
(.)show
grestore
0 FontHeight neg rmoveto
}def
% cm to point
/cm{72 mul 2.54 div}def
/ReportAllFontInfo{
% key = font name value = font dictionary
FontDirectory{pop 10 exch ReportFontInfo}forall
}def
% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage
% 3 cm 20 cm moveto ReportAllFontInfo showpage
% === END ps-print prologue 1
/printGlobalBackground{
}def
/printLocalBackground{
}def
/h0 14(Helvetica-Bold)cvn DefFont
/h1 10(Helvetica)cvn DefFont
/L0 6(Times-Italic)cvn DefFont
/H0 10(Helvetica)cvn DefFont
% ---- These lines must be kept together because...
/h0 F
/HeaderTitleLineHeight FontHeight def
/h1 F
/HeaderLineHeight FontHeight def
/HeaderDescent Descent def
/H0 F
/FooterLineHeight FontHeight def
/FooterDescent Descent def
% ---- ...because `F' has a side-effect on `FontHeight' and `Descent'
/f0 12(Courier)cvn DefFont
/f1 12(Courier-Bold)cvn DefFont
/f2 12(Courier-Oblique)cvn DefFont
/f3 12(Courier-BoldOblique)cvn DefFont
/SpaceWidthRatio 0.600000 def
%%EndProlog
%%BeginSetup
%%BeginFeature: *ManualFeed False
BMark /ManualFeed false EMark setpagedevice
%%EndFeature
BeginDoc
%%EndSetup
%%Page: 1 1
/Lines 32 def
/PageCount 1 def
1 BeginSheet
BeginDSCPage
/LineNumber 1 def
/PageNumber 1 def
/FooterLinesLeft[
[/H0 (timbyact.R)]
[/H0 (~/Scripts/R/pkgs/diveMove/src/R/)]
]def
/FooterLinesRight[
[/H0 /pagenumberstring load]
[/H0 (08/17/2005)]
]def
2 SetFooterLines
0 BeginPage
/f0 F
false BG
0.000 0.000 0.000 FG
0 EF
("timbyact" <-) S
LHL
( function\(dattim, act\)) S
LHL
({) S
LHL
( ## Purpose: Calculate durations of activity phases) S
LHL
( ## ----------------------------------------------------------------) S
SL
(------) S
LHL
( ## Arguments: dattim = chron object with date and time;) S
LHL
( ## act = numeric vector representing activity for each row) S
LHL
( ## ----------------------------------------------------------------) S
SL
(------) S
LHL
( ## Author: Sebastian Luque) S
LHL
( ## ----------------------------------------------------------------) S
SL
(------) S
LHL
( ## Lagged differences in activity; 0 = no change from previous acti) S
SL
(vity) S
LHL
( diffact <- diff\(act\)) S
LHL
( interval <- as.numeric\(diff\(dattim[1:2]\)\)) S
LHL
( ## vector defining the points where activity changes) S
LHL
( ## First element = first time - first lagged time difference, follo) S
SL
(wed by) S
LHL
( ## all times when activity changed, followed by) S
LHL
( ## last element = last time + first lagged difference) S
LHL
( timbr <- c\(dattim[1] - interval,) S
LHL
( dattim[which\(diffact !=0\)],) S
LHL
( dattim[length\(dattim\)] + interval\)) S
LHL
( ## Create the factor to break all sequences with the same activity) S
LHL
( cuttimbr <- cut\(dattim, br = timbr\)) S
LHL
( timsplit <- split\(dattim, cuttimbr\)) S
LHL
( begtim <- sapply\(timsplit, "[", 1\)) S
LHL
( endtim <- sapply\(timsplit, function\(x\) {x[length\(x\)]}\)) S
LHL
( duration <- endtim - begtim + interval) S
LHL
( list\(tim.breaks = cuttimbr,) S
LHL
( tim.peract = duration,) S
LHL
( begtim = begtim,) S
LHL
( endtim = endtim\)) S
LHL
(}) S
PHL
EndPage
EndDSCPage
EndSheet
%%Trailer
%%Pages: 1
EndDoc
%%EOF
[-- Attachment #3: Type: text/plain, Size: 152 bytes --]
_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 14:08 ` Sebastian Luque
@ 2005-08-17 14:53 ` Peter Dyballa
2005-08-17 15:26 ` Sebastian Luque
` (2 more replies)
2005-08-17 14:57 ` Peter Dyballa
1 sibling, 3 replies; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 14:53 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 16:08 schrieb Sebastian Luque:
> ESP Ghostscript 815.00: Error: Font Renderer Plugin ( FreeType )
> return code = -1
>
I think that's it!
I am using Ghostscript 8.51 and can see your attachment in gv that it
is the function timbyact from the R file timbyact.R in
~/Scripts/R/pkgs/diveMove/src/R/ from 08/17/2005.
Actually there should not be any reason why gs is being invoked.
Except, it's an error message from CUPS, which is a product of the
company ESP! GNU just should 'wrap' the text into PostScript and pass
this to the printing system, no gs needed for Emacs. (Maybe except the
case when Emacs is taught to prepare the output for a non-PS printer,
then it would need to convert PS to EscP2/PJL or such -- I never used
such scrap so I am no help here.)
To find out a bit more: try to print *not* to the print spooler but a
file or buffer (you received advice). Any error here?
Then take this file or save the buffer to a file and try to view it in
gs/gsx/gv or whatever you use to view PS files. (Or can you retrieve
from the PS file the text with ps2ascii?) Any error?
Finally send the PS file via lp/lpr to the printer. Any error now?
I am quite sure that only the last attempt will produce an error making
sure that the CUPS based printing system is not OK. Do you have the
right PPD file for your printer? In case it's not a PS printer: can you
print other PS or PDF files (both might be coming from TeX)?
--
Greetings
Pete
There's no place like ~
(UNIX Guru)
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 14:08 ` Sebastian Luque
2005-08-17 14:53 ` Peter Dyballa
@ 2005-08-17 14:57 ` Peter Dyballa
2005-08-17 16:15 ` Sebastian Luque
1 sibling, 1 reply; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 14:57 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 16:08 schrieb Sebastian Luque:
> %%DocumentMedia: Letter 612 792 0 () ()
>
Just saw this: is your printer really using non standard 'letter'
format? Or is it using ISO A4?
You should customize that! It might cause the error (like filling
diesel in your car equipped with a gas motor) ...
--
Greetings
Pete
Sorry my terrible English, my native language Lisp!
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 14:53 ` Peter Dyballa
@ 2005-08-17 15:26 ` Sebastian Luque
2005-08-17 19:50 ` Peter Dyballa
2005-08-17 15:51 ` Sebastian Luque
[not found] ` <mailman.4056.1124294719.20277.help-gnu-emacs@gnu.org>
2 siblings, 1 reply; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 15:26 UTC (permalink / raw)
Cc: help-gnu-emacs
On Wed, 17 Aug 2005 16:53:11 +0200,
Peter Dyballa <Peter_Dyballa@Web.DE> wrote:
[...]
> To find out a bit more: try to print *not* to the print spooler but a
> file or buffer (you received advice). Any error here?
I think there was a misunderstanding. This is precisely what I did in my
previous message:
1. Open my file ~/Scripts/R/pkgs/diveMove/src/R/timbyact.R, which is the
function in my attachment, only a few lines long. I should note that
the failure occurs with any file or buffer that I print.
2. C-u ps-print-buffer and saved it to ps-print-out.ps (thanks Jochen)
3. Opened ps-print-out.ps with gv.
So that last step gave me the error lines like the one I showed.
[...]
> I am quite sure that only the last attempt will produce an error making
> sure that the CUPS based printing system is not OK. Do you have the
> right PPD file for your printer? In case it's not a PS printer: can you
> print other PS or PDF files (both might be coming from TeX)?
Yes, everything prints fine outside Emacs, and it has been since I first
configured my system. It's only stuff that I print with ps-print in Emacs
that stopped working in the last few days.
Now I just found out that print-buffer prints without errors, but...the
left margin is cut off by one column, the right margin looks fine. It
smells as if this might be related to the ps-print error (maybe the
setpageadvice message?)
Thanks,
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 14:53 ` Peter Dyballa
2005-08-17 15:26 ` Sebastian Luque
@ 2005-08-17 15:51 ` Sebastian Luque
2005-08-17 20:00 ` Peter Dyballa
[not found] ` <mailman.4056.1124294719.20277.help-gnu-emacs@gnu.org>
2 siblings, 1 reply; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 15:51 UTC (permalink / raw)
Peter Dyballa <Peter_Dyballa@Web.DE> wrote:
[...]
> Finally send the PS file via lp/lpr to the printer. Any error now?
I forgot to add that I also get the error using 'lpr ps-print-out.ps' from
a shell.
I'm quite stuck now.
Cheers,
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 14:57 ` Peter Dyballa
@ 2005-08-17 16:15 ` Sebastian Luque
2005-08-17 20:07 ` Peter Dyballa
0 siblings, 1 reply; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 16:15 UTC (permalink / raw)
Peter Dyballa <Peter_Dyballa@Web.DE> wrote:
[...]
> Just saw this: is your printer really using non standard 'letter'
> format? Or is it using ISO A4?
Yes, it is letter size paper, and I've set the printer driver to use this
size (in KDE print manager), as well as in texconfig (for all the
TeX/LaTeX related programs).
> You should customize that! It might cause the error (like filling diesel
> in your car equipped with a gas motor) ...
Is there any other place where this needs to be customized, besides those
mentioned above?
Cheers,
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
[not found] ` <mailman.4056.1124294719.20277.help-gnu-emacs@gnu.org>
@ 2005-08-17 16:23 ` Ralf Angeli
2005-08-17 16:53 ` Sebastian Luque
2005-08-17 17:05 ` Sebastian Luque
0 siblings, 2 replies; 16+ messages in thread
From: Ralf Angeli @ 2005-08-17 16:23 UTC (permalink / raw)
* Sebastian Luque (2005-08-17) writes:
> I forgot to add that I also get the error using 'lpr ps-print-out.ps' from
> a shell.
>
> I'm quite stuck now.
Is that with gs-esp 8+8.15rc3 on Debian/sid? There are quite some
error reports about the problem with the font renderer at
<URL:http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=323430>. A
downgrade should help as a workaround.
--
Ralf
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 16:23 ` Ralf Angeli
@ 2005-08-17 16:53 ` Sebastian Luque
2005-08-17 17:05 ` Sebastian Luque
1 sibling, 0 replies; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 16:53 UTC (permalink / raw)
Ralf Angeli <dev.null@iwi.uni-sb.de> wrote:
[...]
> Is that with gs-esp 8+8.15rc3 on Debian/sid?
Yes indeed, and that makes sense as I haven't changed anything in Emacs
that could have caused these recent errors, so I can only see a possible
culprit outside of it.
Thank you, I'll try downgrading gs-esp for the moment and see if that
solves the problem.
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 16:23 ` Ralf Angeli
2005-08-17 16:53 ` Sebastian Luque
@ 2005-08-17 17:05 ` Sebastian Luque
1 sibling, 0 replies; 16+ messages in thread
From: Sebastian Luque @ 2005-08-17 17:05 UTC (permalink / raw)
Ralf Angeli <dev.null@iwi.uni-sb.de> wrote:
[...]
> Is that with gs-esp 8+8.15rc3 on Debian/sid?
Yep, that was it, I downgraded to the testing version, and ps-print is
working fine again.
Thank you!
--
Sebastian P. Luque
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 15:26 ` Sebastian Luque
@ 2005-08-17 19:50 ` Peter Dyballa
2005-08-17 20:22 ` Lennart Borgman
0 siblings, 1 reply; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 19:50 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 17:26 schrieb Sebastian Luque:
> Now I just found out that print-buffer prints without errors, but...the
> left margin is cut off by one column, the right margin looks fine. It
> smells as if this might be related to the ps-print error (maybe the
> setpageadvice message?)
>
Fine, that it's not a real GNU Emacs problem (BTW: I found one too when
working on the problem: when I want to ps-print-*-with-faces a `list´
face is missing!). And fine that you now see that margin problem: I am
sure it comes from the fact that GNU Emacs creates PostScript print
jobs for the U.S. letter format while your printer uses the world wide
ISO A4 format. You should customize printing and PS printing
particularly that they match!
--
Greetings
Pete
A child of five could understand this! Fetch me a child of five.
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 15:51 ` Sebastian Luque
@ 2005-08-17 20:00 ` Peter Dyballa
0 siblings, 0 replies; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 20:00 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 17:51 schrieb Sebastian Luque:
>
>> Finally send the PS file via lp/lpr to the printer. Any error now?
>
> I forgot to add that I also get the error using 'lpr ps-print-out.ps'
> from
> a shell.
So it is what I thought at once: the ESP CUPS software fails! (Great?)
>
> I'm quite stuck now.
>
Try http://localhost:631/!
--
Greetings
Pete
The box said "Use Windows 95 or better," so I got a Macintosh
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 16:15 ` Sebastian Luque
@ 2005-08-17 20:07 ` Peter Dyballa
0 siblings, 0 replies; 16+ messages in thread
From: Peter Dyballa @ 2005-08-17 20:07 UTC (permalink / raw)
Cc: help-gnu-emacs
Am 17.08.2005 um 18:15 schrieb Sebastian Luque:
>> You should customize that! It might cause the error (like filling
>> diesel
>> in your car equipped with a gas motor) ...
>
> Is there any other place where this needs to be customized, besides
> those
> mentioned above?
>
In the first line it's the PostScript group that then reveals some
topics. The other object is AUCTeX, in case you use it. This is enough:
more than 100 things to customize!
--
Greetings
Pete
"A designer knows he has arrived at perfection not when there is no
longer anything to add, but when there is no longer anything to take
away."
- Antoine de Saint-Exupéry
^ permalink raw reply [flat|nested] 16+ messages in thread
* Re: ps-print problems
2005-08-17 19:50 ` Peter Dyballa
@ 2005-08-17 20:22 ` Lennart Borgman
0 siblings, 0 replies; 16+ messages in thread
From: Lennart Borgman @ 2005-08-17 20:22 UTC (permalink / raw)
Cc: Sebastian Luque, help-gnu-emacs
Peter Dyballa wrote:
>
> Am 17.08.2005 um 17:26 schrieb Sebastian Luque:
>
>> Now I just found out that print-buffer prints without errors, but...the
>> left margin is cut off by one column, the right margin looks fine. It
>> smells as if this might be related to the ps-print error (maybe the
>> setpageadvice message?)
>>
>
> Fine, that it's not a real GNU Emacs problem (BTW: I found one too
> when working on the problem: when I want to ps-print-*-with-faces a
> `list´ face is missing!). And fine that you now see that margin
> problem: I am sure it comes from the fact that GNU Emacs creates
> PostScript print jobs for the U.S. letter format while your printer
> uses the world wide ISO A4 format. You should customize printing and
> PS printing particularly that they match!
This might also partly be an Emacs problem indeed, at least on MS
Windows since there Emacs does not fetch the registry setting for
printing format.
^ permalink raw reply [flat|nested] 16+ messages in thread
end of thread, other threads:[~2005-08-17 20:22 UTC | newest]
Thread overview: 16+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-08-16 23:05 ps-print problems Sebastian Luque
2005-08-17 8:23 ` Peter Dyballa
[not found] ` <bdb4c83504fd5b7980a45a53b7d1a344-Ebz0p6Y2lXc@public.gmane.org>
2005-08-17 11:57 ` Jochen Küpper
2005-08-17 14:08 ` Sebastian Luque
2005-08-17 14:53 ` Peter Dyballa
2005-08-17 15:26 ` Sebastian Luque
2005-08-17 19:50 ` Peter Dyballa
2005-08-17 20:22 ` Lennart Borgman
2005-08-17 15:51 ` Sebastian Luque
2005-08-17 20:00 ` Peter Dyballa
[not found] ` <mailman.4056.1124294719.20277.help-gnu-emacs@gnu.org>
2005-08-17 16:23 ` Ralf Angeli
2005-08-17 16:53 ` Sebastian Luque
2005-08-17 17:05 ` Sebastian Luque
2005-08-17 14:57 ` Peter Dyballa
2005-08-17 16:15 ` Sebastian Luque
2005-08-17 20:07 ` Peter Dyballa
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).