Re: [Q] with-clip-rect

[slh@digitool.com (Steve Hain)]

At 8:17 AM 6/8/95, Peter Berck wrote:
>Hi,
>
>Fiddling around with the 'apropos' function in mcl 2.0, I came across
>'with-clip-rect'. It looks like something I could use, but I could not
>find any documentation for it. I tried views and rectangles &c. as
>arguments, but it didn't quite work, and I couldn't find anything in
>the manual either.
>
>Does someone know how to use this?
>
>TIA,
>-peter
>
>-------------------------------------------------------------------
>Peter.Berck@kub.nl                               berck@uia.ua.ac.be
>Dye ick maech lyden / Dye moet ic myden.
>Die ick nyet lyden en maech / Dye sie ick alle den daech.

(defparameter w (make-instance 'window))

(with-focused-view w
  (rlet ((a-rect :rect
                 :topleft #@(30 30)
                 :bottomright #@(60 60))
         (b-rect :rect
                 :topleft #@(0 0)
                 :bottomright #@(100 100)))
    (with-clip-rect a-rect
      (#_InvertRect b-rect))))

- Steve Hain

Digitool, Inc.
______________________________________________________________________________
                       One Main Street   7th Floor   Cambridge, MA 02142   USA
                              Internet: slh@digitool.com   AppleLink: digitool
                                      World Wide Web: http://www.digitool.com/
                                         Tel: 617 441-5000   Fax: 617 576-7680