Translations and a fast highlight-output-record for lines

• To: swm@harlequin.com, clim@BBN.COM
• Subject: Translations and a fast highlight-output-record for lines
• From: Gregory M Anderson <gma@bitterroot.apl.washington.edu>
• Date: Wed, 13 Jul 1994 09:21-0700

In light of the discussion on replaying output records and the
difficulty in getting the translations correct, will the following
function always translate correctly, or have I just been lucky?

(defmethod clim:highlight-output-record
	   ((record clim-internals::lines-output-record) stream state)
  (declare (ignore state))
  (when stream
    (multiple-value-bind (xoff yoff)
	(convert-from-relative-to-absolute-coordinates 
	  stream (output-record-parent record))
      (with-translation (stream xoff yoff)
			(with-drawing-options (stream :ink +flipping-ink+
						      :line-style (make-line-style :thickness 2))
					      (with-slots (clim-internals::position-seq) record
							  (medium-draw-lines* stream clim-internals::position-seq)
							  ))))))

• Translations and a fast highlight-output-record for lines
• From: Scott McKay <swm@harlequin.com>

• Prev: command name in a menu bar From: Scott McKay <swm@harlequin.com> Date: Tue, 28 Jun 94 16:12:25 EDT
• Next: Translations and a fast highlight-output-record for lines
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)