File [qv]<IDL>NEXT>TWOD-GRAPHICS-PACKAGE!3

(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "TWOD-GRAPHICS" (USE "LISP") (NICKNAMES 
"TDG") (PREFIX-NAME "TDG")))
(il:filecreated "15-Nov-88 17:37:58" il:{qv}<idl>next>twod-graphics-package.\;3 5968   

      il:|changes| il:|to:|  (xcl:file-environments "TWOD-GRAPHICS-PACKAGE")

      il:|previous| il:|date:| "30-Aug-88 17:41:56" il:{qv}<idl>next>twod-graphics-package.\;2)


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

(il:prettycomprint il:twod-graphics-packagecoms)

(il:rpaqq il:twod-graphics-packagecoms ((il:declare\: il:docopy il:donteval@load (il:p (export (quote (make-position copy-position position-p position-x position-y make-region copy-region region-p region-left region-right region-bottom region-top region-width region-height subregion-p intersect-regions inside-p stream-clipping-region stream-scale stream-x stream-y stream-bitblt stream-bltshade stream-draw-line stream-draw-to stream-move-to stream-relative-move-to stream-reset stream-string-region stream-scroll stream-texture stream-font stream-margin stream-line-feed make-bitmap bitmap-p bitmap-width bitmap-height make-window window-p window-width window-height window-region window-title window-border window-dsp window-icon shrunken-window-p window-method add-window-method delete-window-method window-prop add-window-prop delete-window-prop open-window-p open-window close-window to-top-window clear-window move-window redisplay-window reshape-window invert-window expand-window width-if-window height-if-window window-min-size main-window-min-size window-max-size main-window attached-windows attach-window attach-menu detach-window detach-all-windows print-prompt get-position get-region position-region window-cursor mouse-state-p last-mouse-state-p until-mouse-state get-mouse-state last-mouse-x last-mouse-y make-menu menu-p copy-menu menu-items menu-when-selected-fn pop-up-menu window-from-menu menu-prop make-font coerce-font font-p font-family font-size font-face font-ascent font-descent font-height default-font char-code-width char-width string-width string-region *black-shade* *white-shade* *gray-shade* clipped-bitblt clipped-bltshade clipped-draw-line clipped-draw-between clipped-draw-to clipped-relative-draw-to clipped-plot-at clipped-princ linear-transform linear-transform-p lt-a lt-m view-port view-port-p copy-view-port vp-parent-stream vp-stream-subregion vp-world-region vp-world-to-stream-x vp-world-to-stream-y vp-stream-to-world-x vp-stream-to-world-y make-view-port adjust-view-port compute-transform compute-world-region apply-transform apply-scale-transform stream-to-world-x stream-to-world-length-x stream-to-world-y stream-to-world-length-y world-to-stream-x world-to-stream-length-x world-to-stream-y world-to-stream-length-y stream-to-world world-to-stream stream-region-to-world-region world-region-to-stream-region bitblt bltshade draw-line draw-between draw-to relative-draw-to relative-draw-to-point draw-to-point move-to move-to-point relative-move-to relative-move-to-point plot-at)) (find-package "TWOD-GRAPHICS")))) (xcl:file-environments "TWOD-GRAPHICS-PACKAGE")))
(il:declare\: il:docopy il:donteval@load 

(export (quote (make-position copy-position position-p position-x position-y make-region copy-region region-p region-left region-right region-bottom region-top region-width region-height subregion-p intersect-regions inside-p stream-clipping-region stream-scale stream-x stream-y stream-bitblt stream-bltshade stream-draw-line stream-draw-to stream-move-to stream-relative-move-to stream-reset stream-string-region stream-scroll stream-texture stream-font stream-margin stream-line-feed make-bitmap bitmap-p bitmap-width bitmap-height make-window window-p window-width window-height window-region window-title window-border window-dsp window-icon shrunken-window-p window-method add-window-method delete-window-method window-prop add-window-prop delete-window-prop open-window-p open-window close-window to-top-window clear-window move-window redisplay-window reshape-window invert-window expand-window width-if-window height-if-window window-min-size main-window-min-size window-max-size main-window attached-windows attach-window attach-menu detach-window detach-all-windows print-prompt get-position get-region position-region window-cursor mouse-state-p last-mouse-state-p until-mouse-state get-mouse-state last-mouse-x last-mouse-y make-menu menu-p copy-menu menu-items menu-when-selected-fn pop-up-menu window-from-menu menu-prop make-font coerce-font font-p font-family font-size font-face font-ascent font-descent font-height default-font char-code-width char-width string-width string-region *black-shade* *white-shade* *gray-shade* clipped-bitblt clipped-bltshade clipped-draw-line clipped-draw-between clipped-draw-to clipped-relative-draw-to clipped-plot-at clipped-princ linear-transform linear-transform-p lt-a lt-m view-port view-port-p copy-view-port vp-parent-stream vp-stream-subregion vp-world-region vp-world-to-stream-x vp-world-to-stream-y vp-stream-to-world-x vp-stream-to-world-y make-view-port adjust-view-port compute-transform compute-world-region apply-transform apply-scale-transform stream-to-world-x stream-to-world-length-x stream-to-world-y stream-to-world-length-y world-to-stream-x world-to-stream-length-x world-to-stream-y world-to-stream-length-y stream-to-world world-to-stream stream-region-to-world-region world-region-to-stream-region bitblt bltshade draw-line draw-between draw-to relative-draw-to relative-draw-to-point draw-to-point move-to move-to-point relative-move-to relative-move-to-point plot-at)) (find-package "TWOD-GRAPHICS"))
)

(xcl:define-file-environment "TWOD-GRAPHICS-PACKAGE" :package (xcl:defpackage "TWOD-GRAPHICS" (:use "LISP" "PT") (:nicknames "TDG") (:prefix-name "TDG")) :compiler :compile-file :readtable "XCL")
(il:putprops il:twod-graphics-package il:copyright ("Xerox Corporation" 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop