CLIM clipping to postscript stream doesn`t work

• To: swm@harlequin.com
• Subject: CLIM clipping to postscript stream doesn`t work
• From: Gregory M Anderson <gma@bitterroot.apl.washington.edu>
• Date: Tue, 19 Jul 1994 16:55-0700
• Cc: clim@BBN.COM

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

• CLIM clipping to postscript stream doesn`t work
• From: Scott McKay <swm@harlequin.com>

• Prev: Controlling TOGGLE-BUTTON type in a VIEW
• Next: Re: When is a frame *really* up?
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)