(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(filecreated "29-Mar-88 18:49:26" {phylum}<lisp>lyric>patches>xxfill-patch.\;1
 1002   

      |changes| |to:|  (vars xxfill-patchcoms)
                       (fns circshade.blt))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(prettycomprint xxfill-patchcoms)

(rpaqq xxfill-patchcoms
 ((fns circshade.blt)))
(defineq

(circshade.blt

  (lambda (stream centerx centery radius texture operation)
(* \; "Edited 29-Mar-88 18:43 by briggs")

          
          (* * |GenericBlt| |circle| |shader,| |check| |args| * *)


    (|if|
 (and (numberp centerx)
               (numberp centery)
               (numberp radius)
               (streamp stream)
               (texturep texture))
        |then|
 (\\circshade.blt centerx centery radius texture stream operation)
      |else|
 (error "Bad argument(s)"))))
)
(putprops xxfill-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
  (filemap (nil (396 918 (circshade.blt 406 . 916)))))
stop