(FILECREATED " 9-Mar-87 17:36:41" {QV}<KAPLAN>IDL>LOADIDLDEMO.;4
 912    

      changes to:  (FNS LOADIDLDEMO)

      previous date: " 6-Mar-87 11:54:31" {QV}<KAPLAN>IDL>LOADIDLDEMO.;2)


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LOADIDLDEMOCOMS)

(RPAQQ LOADIDLDEMOCOMS
 ((FNS LOADIDLDEMO)))
(DEFINEQ

(LOADIDLDEMO

  [LAMBDA NIL                                                (* rmk: " 9-Mar-87 17:34")

    (
BKSYSBUF
 " ")
    (
CNDIR
 (
QUOTE
 {QV}<PEDERSEN>LISP>KOTO>))
    (
LOAD
 (
QUOTE
 EARRAY.DCOM))
    (
LOAD
 (
QUOTE
 IDLARRAY.DCOM))
    (
LOAD
 (
QUOTE
 {QV}<KAPLAN>IDL>IDLDEMO.DCOM))          (* To get various files in)

    (
FILESLOAD
 VECTORPLOT)
    (
SETQ
 GAUSS (
RESHAPE
 (
ASVECTOR*
 3 400)
			     (
NORMALS
 1200])
)
(PUTPROPS LOADIDLDEMO COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (343 830 (LOADIDLDEMO 353 . 828)))))
STOP