CLIM mail archive
[Prev][Next][Index][Thread]
Postscript output in CLIM 1.1 (under Allegro 4.1)
Lines drawn to a POSTSCRIPT-STREAM using :LINE-UNIT :POINT result in
erroneous PostScript (see below).
With kind regards,
--
Simon Leinen.
Laboratoire d'Intelligence Artificielle
Ecole Polytechnique Federale de Lausanne
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File Name: ps-bug.lisp
;;; Description: Generate buggy PostScript using CLIM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package "CLIM-USER")
(defun test ()
(with-open-file (out "buggy.ps"
:direction :output
:if-exists :supersede)
(with-output-to-postscript-stream (out out)
(draw-line* out
0 0 100 100
:line-unit :point
:line-thickness 1))))
#|
(test) generates the following output file; note the "NIL" argument to
setlinewidth!
%! nonconforming
%%Creator: Symbolics CLIM
%%DocumentFonts: (atend)
%%EndComments
statusdict /waittimeout 30 put
/fontarray 30 array def
/f {fontarray exch get setfont} def
/estfont {findfont exch scalefont fontarray 3 1 roll put} def
/m {moveto} def
%%EndProlog
NIL setlinewidth
0.00 0.00 0.00 setrgbcolor
newpath
36 756 m 156 636 lineto
stroke
showpage
%%Trailer
%%DocumentFonts:
|#
0,,
References:
Main Index |
Thread Index