CLIM clipping to postscript stream doesn`t work

• To: gma@bitterroot.apl.washington.edu
• Subject: CLIM clipping to postscript stream doesn`t work
• From: Scott McKay <swm@harlequin.com>
• Date: Wed, 20 Jul 94 16:28:48 EDT
• Cc: swm@harlequin.com, clim@BBN.COM
• In-Reply-To: Gregory M Anderson's message of Tue, 19 Jul 1994 16:55-0700 <19940719235514.1.GMA@BITTERROOT.apl.washington.edu>

   Date: Tue, 19 Jul 1994 16:55-0700
   From: Gregory M Anderson <gma@BITTERROOT.apl.washington.edu>

   Finally getting back to this:

   Here is an example that fails on Genera and Allegro, CLIM2.

   (defun draw-sucker ()
     (with-open-file (file-stream "test.ps"
				  :direction :output
				  :if-exists :new-version)
		     (let* ((xmin 0) (ymin 0) (xmax 200) (ymax 200)
			    (clip-region (clim::make-bounding-rectangle xmin ymin xmax ymax)))
		       (clim::with-output-to-postscript-stream 
			(stream file-stream)
			(clim::draw-rectangle* stream xmin ymin xmax ymax :filled nil)
			(clim::draw-line* stream 0 0 500 500 
					  :line-thickness 3
					  :clipping-region clip-region)))))

This is now fixed in LispWorks.  It will eventually make its way back
into Genera and Lucid.

• CLIM clipping to postscript stream doesn`t work
• From: Gregory M Anderson <gma@bitterroot.apl.washington.edu>

• Prev: Finish on release--not supported?
• Next: Re: Bad table/border interaction
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)