File [qv]<IDL>NEXT>PLOT-PACKAGE!19

(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "PLOT" (USE "LISP" "PT" "TWOD-GRAPHICS")))
(il:filecreated " 1-Dec-88 13:01:10" il:{qv}<idl>next>plot-package.\;19 6556   

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

      il:|previous| il:|date:| "15-Nov-88 17:44:19" il:{qv}<idl>next>plot-package.\;18)


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

(il:prettycomprint il:plot-packagecoms)

(il:rpaqq il:plot-packagecoms ((il:declare\: il:docopy il:donteval@load (il:p (export (quote (plot plot-p plot-objects plot-window plot-view-port plot-prompt-window plot-x-lower plot-x-upper plot-y-lower plot-y-upper scale-info make-scale-info scale-info-p copy-scale-info si-x-interval si-x-axis-info si-x-tic-info si-y-interval si-y-axis-info y-tic-info axis-interval make-axis-interval interval-min interval-max interval-length axis-info make-axis-info ai-interval-fn ai-tic-info-fn tic-info tic-info-p make-tic-info ti-min ti-max ti-inc ti-n ti-length margin margin-p make-margin margin-label margin-tic-list margin-tic-list-fn extent extent-p make-extent extent-min-x extent-max-x extent-min-y extent-max-y plot-object plot-object-p plot-methods plot-methods-p make-plot-methods pm-draw-fn pm-erase-fn pm-highlight-fn pm-lowlight-fn pm-extent-fn pm-distance-fn pm-label-fn pm-move-fn pm-copy-fn pm-put-fn pm-get-fn plot-prop plot-object-prop make-plot copy-plot open-plot-window close-plot-window redraw-plot-window closest-plot-object deselect-plot-object print-plot-prompt *small-plot-font* *large-plot-font* draw-plot update-view-port box-region tics-p setf-tics-p make-tic-lists get-tic-list tic-list-fn setf-tic-list-fn default-tic-list-fn tic-info-fn setf-tic-info-fn default-tic-info-fn interval-fn setf-interval-fn extend-axis default-interval-fn extended-interval-fn no-change-interval-fn rescale-plot rescale-x-axis rescale-y-axis add-extent-to-extent add-position-to-extent scale plot-world-extent setf-plot-world-extent plot-interval setf-plot-interval region-to-extent extent-to-region plot-label setf-plot-label draw-plot-object erase-plot-object highlight-plot-object lowlight-plot-object plot-object-extent distance-to-plot-object label-plot-object unlabel-plot-object move-plot-object copy-plot-object add-plot-object add-plot-objects adjust-scale-p plot-objects-extent delete-plot-object delete-plot-objects translate-plot-object default-when-selected-fn plot-menu setf-plot-menu plot-menu-items setf-plot-menu-items add-plot-menu-items delete-plot-menu-items *default-middle-menu* *default-right-menu* relabel-selected-object delete-selected-object undelete-last-object default-menu fix-right-menu unfix-right-menu which-plot print-plot print-plot-object read-plot read-plot-object make-plot-image-object make-plot-bitmap-object *plot-imageobj-fns* define-plot-object type-of-object *star* *circle* *cross* bitmap-to-symbol symbol-to-bitmap *dash* *dot* *dot-dash* *shade-1* *shade-2* *shade-3* *shade-4* *shade-5* *shade-6* *shade-7* *shade-8* label-generic l1-metric l1-metric-xy positions-list-extent positions-list-distance no-extent connect-positions plot-object-error make-point plot-point plot-points make-curve plot-curve make-polygon plot-polygon make-rectangle plot-rectangle make-text plot-text compound plot-compound make-line plot-line make-graph plot-graph)) (find-package "PLOT")))) (xcl:file-environments "PLOT-PACKAGE")))
(il:declare\: il:docopy il:donteval@load 

(export (quote (plot plot-p plot-objects plot-window plot-view-port plot-prompt-window plot-x-lower plot-x-upper plot-y-lower plot-y-upper scale-info make-scale-info scale-info-p copy-scale-info si-x-interval si-x-axis-info si-x-tic-info si-y-interval si-y-axis-info y-tic-info axis-interval make-axis-interval interval-min interval-max interval-length axis-info make-axis-info ai-interval-fn ai-tic-info-fn tic-info tic-info-p make-tic-info ti-min ti-max ti-inc ti-n ti-length margin margin-p make-margin margin-label margin-tic-list margin-tic-list-fn extent extent-p make-extent extent-min-x extent-max-x extent-min-y extent-max-y plot-object plot-object-p plot-methods plot-methods-p make-plot-methods pm-draw-fn pm-erase-fn pm-highlight-fn pm-lowlight-fn pm-extent-fn pm-distance-fn pm-label-fn pm-move-fn pm-copy-fn pm-put-fn pm-get-fn plot-prop plot-object-prop make-plot copy-plot open-plot-window close-plot-window redraw-plot-window closest-plot-object deselect-plot-object print-plot-prompt *small-plot-font* *large-plot-font* draw-plot update-view-port box-region tics-p setf-tics-p make-tic-lists get-tic-list tic-list-fn setf-tic-list-fn default-tic-list-fn tic-info-fn setf-tic-info-fn default-tic-info-fn interval-fn setf-interval-fn extend-axis default-interval-fn extended-interval-fn no-change-interval-fn rescale-plot rescale-x-axis rescale-y-axis add-extent-to-extent add-position-to-extent scale plot-world-extent setf-plot-world-extent plot-interval setf-plot-interval region-to-extent extent-to-region plot-label setf-plot-label draw-plot-object erase-plot-object highlight-plot-object lowlight-plot-object plot-object-extent distance-to-plot-object label-plot-object unlabel-plot-object move-plot-object copy-plot-object add-plot-object add-plot-objects adjust-scale-p plot-objects-extent delete-plot-object delete-plot-objects translate-plot-object default-when-selected-fn plot-menu setf-plot-menu plot-menu-items setf-plot-menu-items add-plot-menu-items delete-plot-menu-items *default-middle-menu* *default-right-menu* relabel-selected-object delete-selected-object undelete-last-object default-menu fix-right-menu unfix-right-menu which-plot print-plot print-plot-object read-plot read-plot-object make-plot-image-object make-plot-bitmap-object *plot-imageobj-fns* define-plot-object type-of-object *star* *circle* *cross* bitmap-to-symbol symbol-to-bitmap *dash* *dot* *dot-dash* *shade-1* *shade-2* *shade-3* *shade-4* *shade-5* *shade-6* *shade-7* *shade-8* label-generic l1-metric l1-metric-xy positions-list-extent positions-list-distance no-extent connect-positions plot-object-error make-point plot-point plot-points make-curve plot-curve make-polygon plot-polygon make-rectangle plot-rectangle make-text plot-text compound plot-compound make-line plot-line make-graph plot-graph)) (find-package "PLOT"))
)

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