home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-07-30 | 1.1 MB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| DOSIMG Disk Image (archive/dosimg)
| magic
| Supported |
| 66%
| dexvert
| Alias PIX Image (image/aliasPIX)
| ext
| Supported |
| 66%
| dexvert
| GEM Raster Bitmap (image/gem)
| ext
| Supported |
| 66%
| dexvert
| DaVinci (image/daVinci)
| ext
| Supported |
| 46%
| dexvert
| Disk Image (archive/diskImage)
| ext
| Supported |
| 1%
| dexvert
| AIX/BFF backup/restore (archive/aixBackupRestore)
| ext
| Unsupported |
| 1%
| dexvert
| The Duplicator Toolkit disk image (archive/duplicatorToolkitDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| PTS-DOS disk image (archive/ptsDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QNX volume disk image (archive/qnxVolumeDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| SNATCH-IT Disk Image (archive/snatchItDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| Android boot image (archive/androidBootImage)
| ext
| Unsupported |
| 1%
| dexvert
| Paragon DOS disk image (archive/paragonDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QEMU QCOW Image (archive/qemuQCOWImage)
| ext
| Unsupported |
| 1%
| dexvert
| Davilex Games game data format (other/davilexGamesGameDataFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Eclipse Image (other/eclipseImage)
| ext
| Unsupported |
| 1%
| dexvert
| InfoComics game data (other/infoComicsGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Garmin map (other/garminMap)
| ext
| Unsupported |
| 1%
| dexvert
| Piklib/BlooMoo graphic data (other/piklibGraphicData)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| DOSIMG disk image (80t/15s)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4f 0f 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |O.......|........|
|00000010| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000020| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000030| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000040| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000050| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000060| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000070| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000080| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000090| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|000000a0| 01 01 01 01 01 01 98 17 | ff 2e 2f 74 6d 70 2f 5f |........|../tmp/_|
|000000b0| 6c 62 6c 2f 70 72 64 3d | 61 75 74 6f 63 61 64 2f |lbl/prd=|autocad/|
|000000c0| 74 79 70 3d 6e 33 38 36 | 2f 72 65 6c 3d 31 30 2f |typ=n386|/rel=10/|
|000000d0| 76 6f 6c 3d 30 35 ff 00 | 37 ff 20 03 36 34 34 20 |vol=05..|7. .644 |
|000000e0| 00 20 31 32 30 34 37 20 | 00 ff 20 04 31 32 20 00 |. 12047 |.. .12 .|
|000000f0| ff 20 0a 32 20 20 34 34 | 37 35 30 37 31 32 37 34 |. .2 44|75071274|
|00000100| 20 20 31 33 35 31 35 00 | 20 ff 00 ff ff 00 65 34 | 13515.| .....e4|
|00000110| 0a ff 00 ff ff 00 c3 78 | 6f 88 01 04 ff 00 03 11 |.......x|o.......|
|00000120| eb 87 01 ff 00 18 f0 dc | 87 01 46 35 ff 00 03 20 |........|..F5... |
|00000130| 00 00 7c df 87 01 82 df | 87 01 11 eb 87 01 2e 2f |..|.....|......./|
|00000140| 74 6d 70 2f 69 6e 69 74 | 2e 61 63 61 64 ff 00 55 |tmp/init|.acad..U|
|00000150| ff 20 03 37 35 35 20 00 | 20 31 32 30 34 37 20 00 |. .755 .| 12047 .|
|00000160| ff 20 04 31 32 20 00 ff | 20 06 31 33 36 31 32 20 |. .12 ..| .13612 |
|00000170| 20 34 34 37 35 30 37 31 | 32 37 35 ff 20 03 36 37 | 4475071|275. .67|
|00000180| 32 31 00 20 ff 00 ff ff | 00 65 23 0a 23 09 40 28 |21. ....|.e#.#.@(|
|00000190| 23 29 20 69 6e 69 74 2e | 61 63 61 64 20 31 2e 30 |#) init.|acad 1.0|
|000001a0| 20 38 39 2f 30 33 2f 31 | 32 20 0a 23 0a 23 ff 20 | 89/03/1|2 .#.#. |
|000001b0| 07 43 6f 70 79 72 69 67 | 68 74 20 28 43 29 20 41 |.Copyrig|ht (C) A|
|000001c0| 75 74 6f 64 65 73 6b 2c | 20 49 6e 63 6f 72 70 6f |utodesk,| Incorpo|
|000001d0| 72 61 74 65 64 2c 20 31 | 39 38 39 2e 0a 23 ff 20 |rated, 1|989..#. |
|000001e0| 07 54 68 69 73 20 4d 6f | 64 75 6c 65 20 63 6f 6e |.This Mo|dule con|
|000001f0| 74 61 69 6e 73 20 50 72 | 6f 70 72 69 65 74 61 72 |tains Pr|oprietar|
|00000200| 79 20 49 6e 66 6f 72 6d | 61 74 69 6f 6e 20 6f 66 |y Inform|ation of|
|00000210| 0a 23 ff 20 07 41 75 74 | 6f 64 65 73 6b 2c 20 49 |.#. .Aut|odesk, I|
|00000220| 6e 63 6f 72 70 6f 72 61 | 74 65 64 2c 20 61 6e 64 |ncorpora|ted, and|
|00000230| 20 73 68 6f 75 6c 64 20 | 62 65 20 74 72 65 61 74 | should |be treat|
|00000240| 65 64 0a 23 ff 20 07 61 | 73 20 43 6f 6e 66 69 64 |ed.#. .a|s Confid|
|00000250| 65 6e 74 69 61 6c 2e 0a | 23 0a 23 ff 20 07 54 68 |ential..|#.#. .Th|
|00000260| 69 73 20 73 63 72 69 70 | 74 20 6c 69 6e 6b 73 20 |is scrip|t links |
|00000270| 74 68 65 20 67 72 61 70 | 68 69 63 73 20 61 6e 64 |the grap|hics and|
|00000280| 20 62 6c 6f 63 6b 20 64 | 65 76 69 63 65 20 69 6e | block d|evice in|
|00000290| 74 6f 20 0a 23 ff 20 07 | 74 68 65 20 6b 65 72 6e |to .#. .|the kern|
|000002a0| 65 6c 2e 0a 23 0a 0a 50 | 41 54 48 3d 2f 62 69 6e |el..#..P|ATH=/bin|
|000002b0| 3a 2f 75 73 72 2f 62 69 | 6e 3a 2f 65 74 63 3a 2f |:/usr/bi|n:/etc:/|
|000002c0| 65 74 63 2f 63 6f 6e 66 | 2f 62 69 6e 0a 74 6d 70 |etc/conf|/bin.tmp|
|000002d0| 3d 2f 74 6d 70 2f 69 64 | 64 24 24 0a 50 45 52 4d |=/tmp/id|d$$.PERM|
|000002e0| 3d 2f 65 74 63 2f 70 65 | 72 6d 73 2f 69 6e 73 74 |=/etc/pe|rms/inst|
|000002f0| ff 09 03 23 20 4f 53 20 | 28 6c 69 6e 6b 20 6b 69 |...# OS |(link ki|
|00000300| 74 29 20 70 65 72 6d 6c | 69 73 74 0a 73 65 74 3d |t) perml|ist.set=|
|00000310| 22 49 6e 73 74 61 6c 6c | 61 62 6c 65 20 44 65 76 |"Install|able Dev|
|00000320| 69 63 65 20 44 72 69 76 | 65 72 22 0a 44 45 56 49 |ice Driv|er".DEVI|
|00000330| 43 45 3d 22 61 63 61 64 | 22 0a 0a 3a 20 24 7b 4f |CE="acad|"..: ${O|
|00000340| 4b 3d 30 7d 20 24 7b 46 | 41 49 4c 3d 31 7d 0a 0a |K=0} ${F|AIL=1}..|
|00000350| 23 20 46 75 6e 63 74 69 | 6f 6e 20 44 65 66 69 6e |# Functi|on Defin|
|00000360| 69 74 69 6f 6e 0a 23 20 | 50 72 6f 6d 70 74 20 66 |ition.# |Prompt f|
|00000370| 6f 72 20 79 65 73 20 6f | 72 20 6e 6f 20 61 6e 73 |or yes o|r no ans|
|00000380| 77 65 72 20 2d 20 72 65 | 74 75 72 6e 73 20 6e 6f |wer - re|turns no|
|00000390| 6e 2d 7a 65 72 6f 20 66 | 6f 72 20 6e 6f 0a 67 65 |n-zero f|or no.ge|
|000003a0| 74 79 6e 28 29 20 7b 0a | 09 77 68 69 6c 65 09 65 |tyn() {.|.while.e|
|000003b0| 63 68 6f 20 22 5c 6e 24 | 2a 20 28 79 2f 6e 29 20 |cho "\n$|* (y/n) |
|000003c0| 5c 63 22 3e 26 32 0a 09 | 64 6f 09 72 65 61 64 20 |\c">&2..|do.read |
|000003d0| 79 6e 20 72 65 73 74 0a | 09 09 63 61 73 65 20 24 |yn rest.|..case $|
|000003e0| 79 6e 20 69 6e 0a 09 09 | 5b 79 59 5d 29 09 72 65 |yn in...|[yY]).re|
|000003f0| 74 75 72 6e 20 30 20 ff | 09 04 3b 3b 0a 09 09 5b |turn 0 .|..;;...[|
|00000400| 6e 4e 5d 29 09 72 65 74 | 75 72 6e 20 31 ff 09 04 |nN]).ret|urn 1...|
|00000410| 3b 3b 0a 09 09 2a 29 09 | 65 63 68 6f 20 22 50 6c |;;...*).|echo "Pl|
|00000420| 65 61 73 65 20 61 6e 73 | 77 65 72 20 79 20 6f 72 |ease ans|wer y or|
|00000430| 20 6e 22 20 3e 26 32 09 | 09 3b 3b 0a 09 09 65 73 | n" >&2.|.;;...es|
|00000440| 61 63 0a 09 64 6f 6e 65 | 0a 7d 0a 0a 23 20 52 65 |ac..done|.}..# Re|
|00000450| 6d 6f 76 65 20 74 65 6d | 70 20 66 69 6c 65 73 20 |move tem|p files |
|00000460| 61 6e 64 20 65 78 69 74 | 20 77 69 74 68 20 74 68 |and exit| with th|
|00000470| 65 20 73 74 61 74 75 73 | 20 70 61 73 73 65 64 20 |e status| passed |
|00000480| 61 73 20 61 72 67 75 6d | 65 6e 74 0a 23 20 55 73 |as argum|ent.# Us|
|00000490| 61 67 65 3a 20 63 6c 65 | 61 6e 75 70 20 73 74 61 |age: cle|anup sta|
|000004a0| 74 75 73 0a 23 0a 63 6c | 65 61 6e 75 70 28 29 20 |tus.#.cl|eanup() |
|000004b0| 7b 0a 09 74 72 61 70 20 | 27 27 20 31 20 32 20 33 |{..trap |'' 1 2 3|
|000004c0| 20 31 35 0a 09 5b 20 22 | 24 74 6d 70 22 20 5d 20 | 15..[ "|$tmp" ] |
|000004d0| 26 26 20 72 6d 20 2d 66 | 20 24 74 6d 70 2a 0a 09 |&& rm -f| $tmp*..|
|000004e0| 65 78 69 74 20 24 31 0a | 7d 0a 0a 23 20 54 65 73 |exit $1.|}..# Tes|
|000004f0| 74 20 74 6f 20 73 65 65 | 20 69 66 20 6c 69 6e 6b |t to see| if link|
|00000500| 20 6b 69 74 20 69 73 20 | 69 6e 73 74 61 6c 6c 65 | kit is |installe|
|00000510| 64 ff 09 07 ff 20 03 0a | 63 68 6b 6c 69 6e 6b 6b |d.... ..|chklinkk|
|00000520| 69 74 28 29 20 7b 0a ff | 20 04 75 6e 74 69 6c 09 |it() {..| .until.|
|00000530| 66 69 78 70 65 72 6d 20 | 2d 69 20 2d 64 20 4c 49 |fixperm |-i -d LI|
|00000540| 4e 4b 20 24 50 45 52 4d | 0a ff 20 04 64 6f 09 63 |NK $PERM|.. .do.c|
|00000550| 61 73 65 20 24 3f 20 69 | 6e 0a 09 34 29 09 65 63 |ase $? i|n..4).ec|
|00000560| 68 6f 20 22 5c 74 54 68 | 65 20 4c 69 6e 6b 20 4b |ho "\tTh|e Link K|
|00000570| 69 74 20 69 73 20 6e 6f | 74 20 69 6e 73 74 61 6c |it is no|t instal|
|00000580| 6c 65 64 2e 22 20 3e 26 | 32 09 09 3b 3b 0a 09 35 |led." >&|2..;;..5|
|00000590| 29 09 65 63 68 6f 20 22 | 5c 74 54 68 65 20 4c 69 |).echo "|\tThe Li|
|000005a0| 6e 6b 20 4b 69 74 20 69 | 73 20 6f 6e 6c 79 20 70 |nk Kit i|s only p|
|000005b0| 61 72 74 69 61 6c 6c 79 | 20 69 6e 73 74 61 6c 6c |artially| install|
|000005c0| 65 64 2e 22 20 3e 26 32 | 09 3b 3b 0a 09 2a 29 09 |ed." >&2|.;;..*).|
|000005d0| 65 63 68 6f 20 22 5c 74 | 45 72 72 6f 72 20 74 65 |echo "\t|Error te|
|000005e0| 73 74 69 6e 67 20 66 6f | 72 20 4c 69 6e 6b 20 4b |sting fo|r Link K|
|000005f0| 69 74 2e 20 45 78 69 74 | 69 6e 67 2e 22 3b 20 65 |it. Exit|ing."; e|
|00000600| 78 69 74 20 24 46 41 49 | 4c 09 3b 3b 0a 09 65 73 |xit $FAI|L.;;..es|
|00000610| 61 63 0a 09 23 20 4e 6f | 74 20 66 75 6c 6c 79 20 |ac..# No|t fully |
|00000620| 69 6e 73 74 61 6c 6c 65 | 64 2e 20 44 6f 20 73 6f |installe|d. Do so|
|00000630| 20 68 65 72 65 0a 09 77 | 68 69 6c 65 09 65 63 68 | here..w|hile.ech|
|00000640| 6f 20 22 5c 74 44 6f 20 | 79 6f 75 20 77 69 73 68 |o "\tDo |you wish|
|00000650| 20 74 6f 20 69 6e 73 74 | 61 6c 6c 20 69 74 20 6e | to inst|all it n|
|00000660| 6f 77 3f 20 28 79 2f 6e | 29 20 5c 63 22 0a 09 64 |ow? (y/n|) \c"..d|
|00000670| 6f 09 72 65 61 64 20 41 | 4e 53 57 45 52 0a 09 09 |o.read A|NSWER...|
|00000680| 63 61 73 65 20 24 41 4e | 53 57 45 52 20 69 6e 0a |case $AN|SWER in.|
|00000690| 09 09 59 7c 79 29 09 63 | 75 73 74 6f 6d 20 2d 6f |..Y|y).c|ustom -o|
|000006a0| 20 2d 69 20 4c 49 4e 4b | 0a ff 09 03 62 72 65 61 | -i LINK|....brea|
|000006b0| 6b 0a ff 09 03 3b 3b 0a | 09 09 4e 7c 6e 29 09 65 |k....;;.|..N|n).e|
|000006c0| 63 68 6f 20 22 5c 74 44 | 72 69 76 65 72 73 20 63 |cho "\tD|rivers c|
|000006d0| 61 6e 6e 6f 74 20 62 65 | 20 69 6e 73 74 61 6c 6c |annot be| install|
|000006e0| 65 64 20 77 69 74 68 6f | 75 74 20 74 68 65 20 4c |ed witho|ut the L|
|000006f0| 69 6e 6b 20 4b 69 74 2e | 22 0a ff 09 03 65 78 69 |ink Kit.|"....exi|
|00000700| 74 20 24 46 41 49 4c 0a | ff 09 03 3b 3b 0a 09 09 |t $FAIL.|...;;...|
|00000710| 2a 29 09 65 63 68 6f 20 | 22 5c 74 50 6c 65 61 73 |*).echo |"\tPleas|
|00000720| 65 20 61 6e 73 77 65 72 | 20 27 79 27 20 6f 72 20 |e answer| 'y' or |
|00000730| 27 6e 27 2e 20 5c 63 22 | 0a ff 09 03 3b 3b 0a 09 |'n'. \c"|....;;..|
|00000740| 09 65 73 61 63 0a 09 64 | 6f 6e 65 0a ff 20 04 64 |.esac..d|one.. .d|
|00000750| 6f 6e 65 0a 7d 0a 0a 23 | 20 52 65 2d 6c 69 6e 6b |one.}..#| Re-link|
|00000760| 20 6e 65 77 20 6b 65 72 | 6e 65 6c 0a 72 65 6c 69 | new ker|nel.reli|
|00000770| 6e 6b 28 29 20 7b 0a 23 | 20 58 65 6e 69 78 20 32 |nk() {.#| Xenix 2|
|00000780| 2e 33 20 72 65 6c 69 6e | 6b 0a ff 20 04 74 65 73 |.3 relin|k.. .tes|
|00000790| 74 20 2d 73 20 2f 78 65 | 6e 69 78 0a ff 20 04 69 |t -s /xe|nix.. .i|
|000007a0| 66 20 5b 20 24 3f 20 2d | 65 71 20 30 20 5d 20 3b |f [ $? -|eq 0 ] ;|
|000007b0| 20 74 68 65 6e 0a 09 65 | 63 68 6f 20 22 5c 74 52 | then..e|cho "\tR|
|000007c0| 65 2d 6c 69 6e 6b 69 6e | 67 20 74 68 65 20 6b 65 |e-linkin|g the ke|
|000007d0| 72 6e 65 6c 20 ff 2e 03 | 22 20 3e 26 32 0a 09 63 |rnel ...|" >&2..c|
|000007e0| 64 20 2f 75 73 72 2f 73 | 79 73 2f 63 6f 6e 66 0a |d /usr/s|ys/conf.|
|000007f0| 09 2e 2f 6c 69 6e 6b 5f | 78 65 6e 69 78 20 3e 20 |../link_|xenix > |
|00000800| 6b 6d 61 6b 65 6c 6f 67 | 20 32 3e 26 31 20 7c 7c |kmakelog| 2>&1 |||
|00000810| 20 7b 0a 09 09 65 63 68 | 6f 20 22 5c 6e 5c 74 45 | {...ech|o "\n\tE|
|00000820| 72 72 6f 72 3a 20 4b 65 | 72 6e 65 6c 20 6c 69 6e |rror: Ke|rnel lin|
|00000830| 6b 20 66 61 69 6c 65 64 | 2e 0a 09 09 43 68 65 63 |k failed|....Chec|
|00000840| 6b 20 2f 75 73 72 2f 73 | 79 73 2f 63 6f 6e 66 2f |k /usr/s|ys/conf/|
|00000850| 6b 6d 61 6b 65 6c 6f 67 | 20 66 6f 72 20 64 65 74 |kmakelog| for det|
|00000860| 61 69 6c 73 2e 22 20 3e | 26 32 0a 09 09 63 6c 65 |ails." >|&2...cle|
|00000870| 61 6e 75 70 20 31 0a 09 | 7d 0a 09 72 6d 20 2d 66 |anup 1..|}..rm -f|
|00000880| 20 6b 6d 61 6b 65 6c 6f | 67 0a ff 20 04 66 69 0a | kmakelo|g.. .fi.|
|00000890| 23 20 58 65 6e 69 78 20 | 33 2e 32 20 72 65 6c 69 |# Xenix |3.2 reli|
|000008a0| 6e 6b 0a ff 20 04 74 65 | 73 74 20 2d 73 20 2f 75 |nk.. .te|st -s /u|
|000008b0| 6e 69 78 0a ff 20 04 69 | 66 20 5b 20 24 3f 20 2d |nix.. .i|f [ $? -|
|000008c0| 65 71 20 30 20 5d 20 3b | 20 74 68 65 6e 0a 09 63 |eq 0 ] ;| then..c|
|000008d0| 64 20 2f 65 74 63 2f 63 | 6f 6e 66 2f 63 66 2e 64 |d /etc/c|onf/cf.d|
|000008e0| 0a 09 65 63 68 6f 20 22 | 5c 6e 5c 74 52 65 2d 6c |..echo "|\n\tRe-l|
|000008f0| 69 6e 6b 69 6e 67 20 74 | 68 65 20 6b 65 72 6e 65 |inking t|he kerne|
|00000900| 6c 20 ff 2e 03 5c 6e 22 | 20 3e 26 32 0a 09 69 64 |l ...\n"| >&2..id|
|00000910| 62 75 69 6c 64 0a ff 20 | 04 66 69 0a 7d 0a 0a 69 |build.. |.fi.}..i|
|00000920| 6e 73 74 61 6c 6c 6b 65 | 72 6e 65 6c 28 29 20 7b |nstallke|rnel() {|
|00000930| 0a ff 20 04 65 63 68 6f | 20 22 5c 6e 5c 74 4b 65 |.. .echo| "\n\tKe|
|00000940| 72 6e 65 6c 20 77 69 74 | 68 20 64 72 69 76 65 72 |rnel wit|h driver|
|00000950| 20 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 28 73 29 | modific|ation(s)|
|00000960| 20 69 73 20 69 6e 20 2f | 75 73 72 2f 73 79 73 2f | is in /|usr/sys/|
|00000970| 63 6f 6e 66 2f 78 65 6e | 69 78 22 3e 26 32 0a ff |conf/xen|ix">&2..|
|00000980| 20 04 67 65 74 79 6e 20 | 22 5c 74 44 6f 20 79 6f | .getyn |"\tDo yo|
|00000990| 75 20 77 61 6e 74 20 74 | 68 69 73 20 6b 65 72 6e |u want t|his kern|
|000009a0| 65 6c 20 74 6f 20 62 6f | 6f 74 20 62 79 20 64 65 |el to bo|ot by de|
|000009b0| 66 61 75 6c 74 3f 22 20 | 7c 7c 20 7b 0a 20 20 23 |fault?" ||| {. #|
|000009c0| 20 73 65 6c 65 63 74 65 | 64 20 6e 6f 2e 0a 20 20 | selecte|d no.. |
|000009d0| 65 63 68 6f 20 22 5c 6e | 5c 74 43 68 61 6e 67 65 |echo "\n|\tChange|
|000009e0| 73 20 77 69 6c 6c 20 6e | 6f 74 20 62 65 20 72 65 |s will n|ot be re|
|000009f0| 66 6c 65 63 74 65 64 20 | 75 6e 6c 65 73 73 20 2f |flected |unless /|
|00000a00| 75 73 72 2f 73 79 73 2f | 63 6f 6e 66 2f 78 65 6e |usr/sys/|conf/xen|
|00000a10| 69 78 20 69 73 20 63 6f | 70 69 65 64 20 0a ff 20 |ix is co|pied .. |
|00000a20| 08 74 6f 20 2f 78 65 6e | 69 78 2c 20 6f 72 20 74 |.to /xen|ix, or t|
|00000a30| 68 65 20 70 61 74 68 6e | 61 6d 65 20 6f 66 20 74 |he pathn|ame of t|
|00000a40| 68 65 20 6b 65 72 6e 65 | 6c 20 77 69 74 68 20 74 |he kerne|l with t|
|00000a50| 68 65 20 63 68 61 6e 67 | 65 73 20 69 73 20 65 6e |he chang|es is en|
|00000a60| 74 65 72 65 64 0a ff 20 | 08 65 78 70 6c 69 63 69 |tered.. |.explici|
|00000a70| 74 6c 79 20 61 74 20 74 | 68 65 20 27 42 6f 6f 74 |tly at t|he 'Boot|
|00000a80| 3a 20 27 20 70 72 6f 6d | 70 74 22 20 3e 26 32 0a |: ' prom|pt" >&2.|
|00000a90| 20 09 ff 20 04 72 65 74 | 75 72 6e 20 24 4f 4b 0a | .. .ret|urn $OK.|
|00000aa0| ff 20 04 7d 0a ff 20 04 | 23 20 59 65 73 2c 20 69 |. .}.. .|# Yes, i|
|00000ab0| 6e 73 74 61 6c 6c 20 6b | 65 72 6e 65 6c 20 77 69 |nstall k|ernel wi|
|00000ac0| 74 68 20 74 61 70 65 20 | 64 72 69 76 65 72 20 69 |th tape |driver i|
|00000ad0| 6e 20 64 65 66 61 75 6c | 74 20 6c 6f 63 61 74 69 |n defaul|t locati|
|00000ae0| 6f 6e 0a ff 20 04 2e 2f | 68 64 69 6e 73 74 61 6c |on.. ../|hdinstal|
|00000af0| 6c 20 3e 20 68 64 69 6e | 73 74 6c 6f 67 20 32 3e |l > hdin|stlog 2>|
|00000b00| 26 31 20 7c 7c 20 7b 0a | 09 ff 20 04 65 63 68 6f |&1 || {.|.. .echo|
|00000b10| 20 22 5c 6e 5c 74 45 72 | 72 6f 72 3a 20 20 68 64 | "\n\tEr|ror: hd|
|00000b20| 69 6e 73 74 61 6c 6c 20 | 66 61 69 6c 65 64 20 74 |install |failed t|
|00000b30| 6f 20 69 6e 73 74 61 6c | 6c 20 6e 65 77 20 6b 65 |o instal|l new ke|
|00000b40| 72 6e 65 6c 20 69 6e 20 | 2f 78 65 6e 69 78 2e 0a |rnel in |/xenix..|
|00000b50| 43 68 65 63 6b 20 2f 75 | 73 72 2f 73 79 73 2f 63 |Check /u|sr/sys/c|
|00000b60| 6f 6e 66 2f 68 64 69 6e | 73 74 6c 6f 67 20 66 6f |onf/hdin|stlog fo|
|00000b70| 72 20 64 65 74 61 69 6c | 73 2e 22 20 3e 26 32 0a |r detail|s." >&2.|
|00000b80| 09 ff 20 04 72 65 74 75 | 72 6e 20 24 4f 4b 0a ff |.. .retu|rn $OK..|
|00000b90| 20 04 7d 0a ff 20 04 72 | 6d 20 2d 66 20 68 64 69 | .}.. .r|m -f hdi|
|00000ba0| 6e 73 74 6c 6f 67 0a ff | 20 04 65 63 68 6f 20 22 |nstlog..| .echo "|
|00000bb0| 5c 6e 5c 74 54 68 65 20 | 6e 65 77 20 6b 65 72 6e |\n\tThe |new kern|
|00000bc0| 65 6c 20 69 73 20 69 6e | 73 74 61 6c 6c 65 64 20 |el is in|stalled |
|00000bd0| 69 6e 20 2f 78 65 6e 69 | 78 2e 22 3e 26 32 0a ff |in /xeni|x.">&2..|
|00000be0| 20 04 65 63 68 6f 20 22 | 5c 6e 5c 74 52 65 62 6f | .echo "|\n\tRebo|
|00000bf0| 6f 74 20 79 6f 75 72 20 | 73 79 73 74 65 6d 20 74 |ot your |system t|
|00000c00| 6f 20 61 63 74 69 76 61 | 74 65 20 69 74 2e 5c 6e |o activa|te it.\n|
|00000c10| 22 3e 26 32 0a 7d 0a 0a | 23 20 6d 61 69 6e 28 29 |">&2.}..|# main()|
|00000c20| 20 2d 20 73 74 61 72 74 | 69 6e 67 20 70 6f 69 6e | - start|ing poin|
|00000c30| 74 20 66 6f 72 20 61 63 | 74 69 6f 6e 20 69 6e 20 |t for ac|tion in |
|00000c40| 73 63 72 69 70 74 0a 63 | 64 20 2f 0a 0a 23 20 43 |script.c|d /..# C|
|00000c50| 6c 65 61 6e 20 75 70 20 | 61 6e 64 20 65 78 69 74 |lean up |and exit|
|00000c60| 20 61 66 74 65 72 20 73 | 69 67 6e 61 6c 73 0a 74 | after s|ignals.t|
|00000c70| 72 61 70 20 22 63 6c 65 | 61 6e 75 70 20 24 46 41 |rap "cle|anup $FA|
|00000c80| 49 4c 22 20 31 20 32 20 | 33 20 31 35 0a 0a 23 20 |IL" 1 2 |3 15..# |
|00000c90| 43 68 65 63 6b 20 74 6f | 20 73 65 65 20 74 68 61 |Check to| see tha|
|00000ca0| 74 20 74 68 65 20 6c 69 | 6e 6b 20 6b 69 74 20 69 |t the li|nk kit i|
|00000cb0| 73 20 69 6e 73 74 61 6c | 6c 65 64 2c 20 73 69 6e |s instal|led, sin|
|00000cc0| 63 65 20 64 72 69 76 65 | 72 73 20 63 61 6e 6e 6f |ce drive|rs canno|
|00000cd0| 74 20 62 65 20 69 6e 73 | 74 61 6c 6c 65 64 20 77 |t be ins|talled w|
|00000ce0| 69 74 68 6f 75 74 20 69 | 74 2e 0a 0a 63 68 6b 6c |ithout i|t...chkl|
|00000cf0| 69 6e 6b 6b 69 74 0a 0a | 23 69 6e 73 74 61 6c 6c |inkkit..|#install|
|00000d00| 20 61 63 61 64 20 64 72 | 69 76 65 72 2e 0a 0a 23 | acad dr|iver...#|
|00000d10| ff 2a 12 20 69 6e 73 74 | 61 6c 6c 20 61 63 61 64 |.*. inst|all acad|
|00000d20| 20 6f 6e 20 58 65 6e 69 | 78 20 32 2e 33 20 ff 2a | on Xeni|x 2.3 .*|
|00000d30| 1f 0a 74 65 73 74 20 2d | 73 20 2f 78 65 6e 69 78 |..test -|s /xenix|
|00000d40| 0a 69 66 20 5b 20 24 3f | 20 2d 65 71 20 30 20 5d |.if [ $?| -eq 0 ]|
|00000d50| 20 3b 20 74 68 65 6e 0a | 63 64 20 2f 75 73 72 2f | ; then.|cd /usr/|
|00000d60| 73 79 73 2f 63 6f 6e 66 | 0a 0a 23 0a 23 ff 20 07 |sys/conf|..#.#. .|
|00000d70| 41 64 64 20 6c 69 62 61 | 63 61 64 2e 61 20 74 6f |Add liba|cad.a to|
|00000d80| 20 6c 69 6e 6b 5f 78 65 | 6e 69 78 20 73 63 72 69 | link_xe|nix scri|
|00000d90| 70 74 20 69 66 20 66 69 | 72 73 74 20 74 69 6d 65 |pt if fi|rst time|
|00000da0| 20 69 6e 73 74 61 6c 6c | 69 6e 67 2e 0a 23 0a 69 | install|ing..#.i|
|00000db0| 66 20 5b 20 21 20 22 60 | 66 67 72 65 70 20 22 6c |f [ ! "`|fgrep "l|
|00000dc0| 69 62 61 63 61 64 5c 2e | 61 22 20 6c 69 6e 6b 5f |ibacad\.|a" link_|
|00000dd0| 78 65 6e 69 78 60 22 20 | 5d 20 3b 20 74 68 65 6e |xenix`" |] ; then|
|00000de0| 0a 63 70 20 2e 2f 6c 69 | 6e 6b 5f 78 65 6e 69 78 |.cp ./li|nk_xenix|
|00000df0| 20 2e 2f 6c 69 6e 6b 5f | 78 65 6e 69 78 2e 6f 6c | ./link_|xenix.ol|
|00000e00| 64 0a 65 64 20 2d 20 2e | 2f 6c 69 6e 6b 5f 78 65 |d.ed - .|/link_xe|
|00000e10| 6e 69 78 20 3c 3c 20 21 | 20 3e 20 2f 64 65 76 2f |nix << !| > /dev/|
|00000e20| 6e 75 6c 6c 0a 2f 6c 69 | 62 6d 64 65 70 2e 61 2f |null./li|bmdep.a/|
|00000e30| 0a 69 0a ff 20 08 6c 69 | 62 61 63 61 64 2e 61 20 |.i.. .li|bacad.a |
|00000e40| 5c 5c 0a 2e 0a 77 0a 71 | 0a 21 0a 66 69 0a 0a 23 |\\...w.q|.!.fi..#|
|00000e50| 0a 23 ff 20 07 49 66 20 | 74 68 65 20 67 72 61 70 |.#. .If |the grap|
|00000e60| 68 69 63 73 20 64 65 76 | 69 63 65 20 68 61 73 20 |hics dev|ice has |
|00000e70| 63 68 61 6e 67 65 64 20 | 73 69 6e 63 65 20 70 72 |changed |since pr|
|00000e80| 65 76 69 6f 75 73 20 69 | 6e 73 74 61 6c 6c 61 74 |evious i|nstallat|
|00000e90| 69 6f 6e 0a 23 ff 20 07 | 64 65 6c 65 74 65 20 74 |ion.#. .|delete t|
|00000ea0| 68 65 20 61 70 70 72 6f | 70 72 69 61 74 65 20 6c |he appro|priate l|
|00000eb0| 69 6e 65 73 20 66 72 6f | 6d 20 6d 61 73 74 65 72 |ines fro|m master|
|00000ec0| 20 61 6e 64 20 78 65 6e | 69 78 63 6f 6e 66 20 66 | and xen|ixconf f|
|00000ed0| 69 6c 65 73 2e 0a 23 0a | 69 66 20 5b 20 22 60 66 |iles..#.|if [ "`f|
|00000ee0| 67 72 65 70 20 22 61 63 | 61 64 22 20 6d 61 73 74 |grep "ac|ad" mast|
|00000ef0| 65 72 20 78 65 6e 69 78 | 63 6f 6e 66 60 22 20 5d |er xenix|conf`" ]|
|00000f00| 0a 74 68 65 6e 0a 09 69 | 66 20 67 65 74 79 6e 20 |.then..i|f getyn |
|00000f10| 22 5c 74 41 75 74 6f 43 | 41 44 27 73 20 64 65 76 |"\tAutoC|AD's dev|
|00000f20| 69 63 65 20 64 72 69 76 | 65 72 20 63 75 72 72 65 |ice driv|er curre|
|00000f30| 6e 74 6c 79 20 69 6e 73 | 74 61 6c 6c 65 64 2e 20 |ntly ins|talled. |
|00000f40| 44 6f 20 79 6f 75 20 77 | 69 73 68 20 5c 0a ff 20 |Do you w|ish \.. |
|00000f50| 08 09 20 5c 6e 5c 74 74 | 6f 20 72 65 69 6e 73 74 |.. \n\tt|o reinst|
|00000f60| 61 6c 6c 20 74 68 69 73 | 20 64 72 69 76 65 72 20 |all this| driver |
|00000f70| 63 61 75 73 69 6e 67 20 | 6b 65 72 6e 65 6c 20 72 |causing |kernel r|
|00000f80| 65 62 75 69 6c 64 3f 22 | 20 0a 09 74 68 65 6e 0a |ebuild?"| ..then.|
|00000f90| 09 09 63 70 20 2e 2f 6d | 61 73 74 65 72 20 2e 2f |..cp ./m|aster ./|
|00000fa0| 6d 61 73 74 65 72 2e 6f | 6c 64 0a 09 09 63 70 20 |master.o|ld...cp |
|00000fb0| 2e 2f 78 65 6e 69 78 63 | 6f 6e 66 20 2e 2f 78 65 |./xenixc|onf ./xe|
|00000fc0| 6e 69 78 63 6f 6e 66 2e | 6f 6c 64 0a 09 09 66 67 |nixconf.|old...fg|
|00000fd0| 72 65 70 20 2d 76 20 22 | 61 63 61 64 22 20 6d 61 |rep -v "|acad" ma|
|00000fe0| 73 74 65 72 20 3e 20 2f | 74 6d 70 2f 6d 61 73 74 |ster > /|tmp/mast|
|00000ff0| 65 72 0a 09 09 6d 76 20 | 2f 74 6d 70 2f 6d 61 73 |er...mv |/tmp/mas|
|00001000| 74 65 72 20 2e 0a 09 09 | 66 67 72 65 70 20 2d 76 |ter ....|fgrep -v|
|00001010| 20 22 61 63 61 64 22 20 | 78 65 6e 69 78 63 6f 6e | "acad" |xenixcon|
|00001020| 66 20 3e 20 2f 74 6d 70 | 2f 78 65 6e 69 78 63 6f |f > /tmp|/xenixco|
|00001030| 6e 66 0a 09 09 6d 76 20 | 2f 74 6d 70 2f 78 65 6e |nf...mv |/tmp/xen|
|00001040| 69 78 63 6f 6e 66 20 2e | 0a 09 66 69 0a 66 69 0a |ixconf .|..fi.fi.|
|00001050| 0a 23 0a 23 ff 20 07 47 | 65 74 20 6e 65 78 74 20 |.#.#. .G|et next |
|00001060| 6d 61 6a 6f 72 20 6e 75 | 6d 62 65 72 73 20 61 6e |major nu|mbers an|
|00001070| 64 20 6d 61 6b 65 20 64 | 65 76 69 63 65 73 0a 23 |d make d|evices.#|
|00001080| 0a 69 66 20 5b 20 21 20 | 22 60 66 67 72 65 70 20 |.if [ ! |"`fgrep |
|00001090| 22 61 63 61 64 22 20 6d | 61 73 74 65 72 20 78 65 |"acad" m|aster xe|
|000010a0| 6e 69 78 63 6f 6e 66 60 | 22 20 5d 0a 74 68 65 6e |nixconf`|" ].then|
|000010b0| 0a ff 20 08 43 47 4d 41 | 4a 3d 60 2e 2f 63 6f 6e |.. .CGMA|J=`./con|
|000010c0| 66 69 67 75 72 65 20 2d | 6a 20 4e 45 58 54 4d 41 |figure -|j NEXTMA|
|000010d0| 4a 4f 52 60 0a ff 20 08 | 63 61 73 65 20 24 43 47 |JOR`.. .|case $CG|
|000010e0| 4d 41 4a 20 69 6e 0a ff | 20 08 5b 30 2d 39 5d 2a |MAJ in..| .[0-9]*|
|000010f0| 29 0a ff 20 10 2e 2f 63 | 6f 6e 66 69 67 75 72 65 |).. ../c|onfigure|
|00001100| 20 2d 63 20 2d 6d 20 24 | 43 47 4d 41 4a 20 2d 61 | -c -m $|CGMAJ -a|
|00001110| 20 22 24 44 45 56 49 43 | 45 22 69 6e 69 74 20 22 | "$DEVIC|E"init "|
|00001120| 24 44 45 56 49 43 45 22 | 6f 70 65 6e 20 22 24 44 |$DEVICE"|open "$D|
|00001130| 45 56 49 43 45 22 63 6c | 6f 73 65 20 22 24 44 45 |EVICE"cl|ose "$DE|
|00001140| 56 49 43 45 22 69 6f 63 | 74 6c 20 20 3b 3b 0a ff |VICE"ioc|tl ;;..|
|00001150| 20 08 2a 29 0a ff 20 18 | 65 63 68 6f 20 22 5c 74 | .*).. .|echo "\t|
|00001160| 45 72 72 6f 72 3a 20 69 | 6e 76 61 6c 69 64 20 6e |Error: i|nvalid n|
|00001170| 75 6d 62 65 72 20 72 65 | 74 75 72 6e 65 64 20 66 |umber re|turned f|
|00001180| 72 6f 6d 20 2e 2f 63 6f | 6e 66 69 67 75 72 65 2e |rom ./co|nfigure.|
|00001190| 22 0a ff 20 18 65 78 69 | 74 20 24 46 41 49 4c 20 |".. .exi|t $FAIL |
|000011a0| 20 3b 3b 0a ff 20 08 65 | 73 61 63 0a 0a ff 20 08 | ;;.. .e|sac... .|
|000011b0| 72 6d 20 2d 72 66 20 2f | 64 65 76 2f 63 67 61 63 |rm -rf /|dev/cgac|
|000011c0| 61 64 0a ff 20 08 6d 6b | 6e 6f 64 20 2f 64 65 76 |ad.. .mk|nod /dev|
|000011d0| 2f 63 67 61 63 61 64 20 | 63 20 24 43 47 4d 41 4a |/cgacad |c $CGMAJ|
|000011e0| 20 30 0a ff 20 08 63 68 | 6d 6f 64 20 ff 36 03 20 | 0.. .ch|mod .6. |
|000011f0| 2f 64 65 76 2f 63 67 61 | 63 61 64 0a 66 69 0a 0a |/dev/cga|cad.fi..|
|00001200| 23 20 52 65 6c 69 6e 6b | 20 74 68 65 20 6b 65 72 |# Relink| the ker|
|00001210| 6e 65 6c 20 77 69 74 68 | 20 74 68 65 20 6e 65 77 |nel with| the new|
|00001220| 20 64 72 69 76 65 72 20 | 69 6e 66 6f 72 6d 61 74 | driver |informat|
|00001230| 69 6f 6e 20 0a 65 63 68 | 6f 20 22 5c 6e 5c 74 41 |ion .ech|o "\n\tA|
|00001240| 75 74 6f 43 41 44 20 6e | 65 65 64 73 20 74 6f 20 |utoCAD n|eeds to |
|00001250| 72 65 6c 69 6e 6b 20 74 | 68 65 20 6b 65 72 6e 65 |relink t|he kerne|
|00001260| 6c 20 62 65 66 6f 72 65 | 20 69 74 20 63 61 6e 20 |l before| it can |
|00001270| 62 65 20 75 73 65 64 2e | 22 0a 69 66 20 67 65 74 |be used.|".if get|
|00001280| 79 6e 20 22 5c 74 44 6f | 20 79 6f 75 20 77 69 73 |yn "\tDo| you wis|
|00001290| 68 20 74 6f 20 72 65 6c | 69 6e 6b 20 74 68 65 20 |h to rel|ink the |
|000012a0| 6b 65 72 6e 65 6c 20 6e | 6f 77 3f 22 0a 74 68 65 |kernel n|ow?".the|
|000012b0| 6e 0a 09 72 65 6c 69 6e | 6b 20 0a 23 20 49 6e 73 |n..relin|k .# Ins|
|000012c0| 74 61 6c 6c 20 74 68 65 | 20 6b 65 72 6e 65 6c 20 |tall the| kernel |
|000012d0| 69 6e 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 6c |in the d|efault l|
|000012e0| 6f 63 61 74 69 6f 6e 20 | 28 58 65 6e 69 78 20 32 |ocation |(Xenix 2|
|000012f0| 2e 33 29 0a ff 20 08 69 | 6e 73 74 61 6c 6c 6b 65 |.3).. .i|nstallke|
|00001300| 72 6e 65 6c 0a 65 6c 73 | 65 20 0a 09 65 63 68 6f |rnel.els|e ..echo|
|00001310| 20 22 5c 6e 5c 74 41 75 | 74 6f 43 41 44 20 77 69 | "\n\tAu|toCAD wi|
|00001320| 6c 6c 20 6e 6f 74 20 77 | 6f 72 6b 20 75 6e 74 69 |ll not w|ork unti|
|00001330| 6c 20 74 68 65 20 6b 65 | 72 6e 65 6c 20 69 73 20 |l the ke|rnel is |
|00001340| 72 65 6c 69 6e 6b 65 64 | 2e 22 20 3e 26 32 0a 66 |relinked|." >&2.f|
|00001350| 69 0a 66 69 0a 0a 23 20 | ff 2a 11 20 45 4e 44 20 |i.fi..# |.*. END |
|00001360| 58 65 6e 69 78 20 32 2e | 33 20 6b 65 72 6e 65 6c |Xenix 2.|3 kernel|
|00001370| 20 69 6e 73 74 61 6c 6c | 61 74 69 6f 6e 20 ff 2a | install|ation .*|
|00001380| 17 0a 23 0a 23 20 ff 2a | 11 20 49 6e 73 74 61 6c |..#.# .*|. Instal|
|00001390| 6c 20 41 75 74 6f 43 41 | 44 20 6f 6e 20 78 65 6e |l AutoCA|D on xen|
|000013a0| 69 78 20 33 2e 32 20 ff | 2a 1c 0a 74 65 73 74 20 |ix 3.2 .|*..test |
|000013b0| 2d 73 20 2f 75 6e 69 78 | 0a 69 66 20 5b 20 24 3f |-s /unix|.if [ $?|
|000013c0| 20 2d 65 71 20 30 20 5d | 20 3b 20 74 68 65 6e 0a | -eq 0 ]| ; then.|
|000013d0| ff 20 04 63 64 20 2f 74 | 6d 70 2f 49 44 2f 61 63 |. .cd /t|mp/ID/ac|
|000013e0| 61 64 0a ff 20 04 6d 76 | 20 44 72 69 76 65 72 20 |ad.. .mv| Driver |
|000013f0| 44 72 69 76 65 72 2e 6f | 0a ff 20 04 69 64 63 68 |Driver.o|.. .idch|
|00001400| 65 63 6b 20 2d 70 20 22 | 24 44 45 56 49 43 45 22 |eck -p "|$DEVICE"|
|00001410| 0a ff 20 04 69 66 20 5b | 20 24 3f 20 2d 6c 74 20 |.. .if [| $? -lt |
|00001420| 31 36 20 5d 20 3b 20 74 | 68 65 6e 0a 09 65 63 68 |16 ] ; t|hen..ech|
|00001430| 6f 20 22 5c 6e 5c 74 41 | 75 74 6f 43 41 44 20 6e |o "\n\tA|utoCAD n|
|00001440| 65 65 64 73 20 74 6f 20 | 72 65 6c 69 6e 6b 20 74 |eeds to |relink t|
|00001450| 68 65 20 6b 65 72 6e 65 | 6c 20 62 65 66 6f 72 65 |he kerne|l before|
|00001460| 20 69 74 20 63 61 6e 20 | 62 65 20 75 73 65 64 2e | it can |be used.|
|00001470| 22 0a 09 69 66 20 67 65 | 74 79 6e 20 22 5c 74 44 |"..if ge|tyn "\tD|
|00001480| 6f 20 79 6f 75 20 77 69 | 73 68 20 74 6f 20 72 65 |o you wi|sh to re|
|00001490| 6c 69 6e 6b 20 74 68 65 | 20 6b 65 72 6e 65 6c 20 |link the| kernel |
|000014a0| 6e 6f 77 3f 22 0a ff 20 | 04 09 74 68 65 6e 0a 09 |now?".. |..then..|
|000014b0| ff 20 04 69 64 69 6e 73 | 74 61 6c 6c 20 2d 61 20 |. .idins|tall -a |
|000014c0| 2d 65 20 2d 6b 20 22 24 | 44 45 56 49 43 45 22 0a |-e -k "$|DEVICE".|
|000014d0| 09 ff 20 04 72 65 6c 69 | 6e 6b 20 0a ff 20 04 09 |.. .reli|nk .. ..|
|000014e0| 65 6c 73 65 20 0a 09 ff | 20 04 65 63 68 6f 20 22 |else ...| .echo "|
|000014f0| 5c 6e 5c 74 41 75 74 6f | 43 41 44 20 77 69 6c 6c |\n\tAuto|CAD will|
|00001500| 20 6e 6f 74 20 77 6f 72 | 6b 20 75 6e 74 69 6c 20 | not wor|k until |
|00001510| 74 68 65 20 6b 65 72 6e | 65 6c 20 69 73 20 72 65 |the kern|el is re|
|00001520| 6c 69 6e 6b 65 64 2e 22 | 20 3e 26 32 0a ff 20 04 |linked."| >&2.. .|
|00001530| 09 66 69 0a ff 20 04 65 | 6c 73 65 0a 09 69 66 20 |.fi.. .e|lse..if |
|00001540| 67 65 74 79 6e 20 22 5c | 74 41 75 74 6f 43 41 44 |getyn "\|tAutoCAD|
|00001550| 27 73 20 64 65 76 69 63 | 65 20 64 72 69 76 65 72 |'s devic|e driver|
|00001560| 20 63 75 72 72 65 6e 74 | 6c 79 20 69 6e 73 74 61 | current|ly insta|
|00001570| 6c 6c 65 64 2e 20 44 6f | 20 79 6f 75 20 77 69 73 |lled. Do| you wis|
|00001580| 68 20 5c 0a ff 20 08 09 | 20 5c 6e 5c 74 74 6f 20 |h \.. ..| \n\tto |
|00001590| 72 65 69 6e 73 74 61 6c | 6c 20 74 68 69 73 20 64 |reinstal|l this d|
|000015a0| 72 69 76 65 72 20 63 61 | 75 73 69 6e 67 20 6b 65 |river ca|using ke|
|000015b0| 72 6e 65 6c 20 72 65 62 | 75 69 6c 64 3f 22 20 0a |rnel reb|uild?" .|
|000015c0| 09 74 68 65 6e 0a 09 ff | 20 04 69 64 69 6e 73 74 |.then...| .idinst|
|000015d0| 61 6c 6c 20 2d 75 20 2d | 65 20 2d 6b 20 22 24 44 |all -u -|e -k "$D|
|000015e0| 45 56 49 43 45 22 0a 09 | ff 20 04 72 65 6c 69 6e |EVICE"..|. .relin|
|000015f0| 6b 0a 09 66 69 0a ff 20 | 04 66 69 0a 66 69 ff 0a |k..fi.. |.fi.fi..|
|00001600| 03 23 20 4d 61 6b 65 20 | 61 63 61 64 20 6f 6e 65 |.# Make |acad one|
|00001610| 20 66 69 6c 65 20 69 66 | 20 35 20 31 2f 32 20 69 | file if| 5 1/2 i|
|00001620| 6e 63 68 20 64 69 73 6b | 73 0a 63 64 20 2f 75 73 |nch disk|s.cd /us|
|00001630| 72 2f 61 63 61 64 2f 61 | 63 61 64 0a 74 65 73 74 |r/acad/a|cad.test|
|00001640| 20 2d 73 20 78 61 61 0a | 69 66 20 5b 20 24 3f 20 | -s xaa.|if [ $? |
|00001650| 2d 65 71 20 30 20 5d 20 | 3b 20 74 68 65 6e 0a ff |-eq 0 ] |; then..|
|00001660| 20 04 6d 76 20 61 63 61 | 64 20 78 61 62 0a ff 20 | .mv aca|d xab.. |
|00001670| 04 6d 76 20 78 61 61 20 | 61 63 61 64 0a ff 20 04 |.mv xaa |acad.. .|
|00001680| 6d 76 20 78 61 62 20 78 | 61 61 0a ff 20 04 63 61 |mv xab x|aa.. .ca|
|00001690| 74 20 78 61 61 20 3e 3e | 20 61 63 61 64 0a ff 20 |t xaa >>| acad.. |
|000016a0| 04 72 6d 20 78 61 61 0a | ff 20 04 63 68 6d 6f 64 |.rm xaa.|. .chmod|
|000016b0| 20 37 35 35 20 61 63 61 | 64 0a 66 69 0a 0a 23 20 | 755 aca|d.fi..# |
|000016c0| 66 69 78 2d 75 70 20 63 | 75 73 74 6f 6d 20 66 69 |fix-up c|ustom fi|
|000016d0| 6c 65 20 6c 69 73 74 0a | 63 64 20 2f 65 74 63 2f |le list.|cd /etc/|
|000016e0| 70 65 72 6d 73 0a 63 70 | 20 61 75 74 6f 63 61 64 |perms.cp| autocad|
|000016f0| 20 61 63 61 64 74 65 6d | 70 0a 73 65 64 20 2f 78 | acadtem|p.sed /x|
|00001700| 61 61 2f 64 20 61 63 61 | 64 74 65 6d 70 20 3e 20 |aa/d aca|dtemp > |
|00001710| 74 6d 70 31 0a 73 65 64 | 20 2f 44 72 69 76 65 72 |tmp1.sed| /Driver|
|00001720| 2f 64 20 74 6d 70 31 20 | 3e 20 74 6d 70 32 0a 73 |/d tmp1 |> tmp2.s|
|00001730| 65 64 20 2f 4d 61 73 74 | 65 72 2f 64 20 74 6d 70 |ed /Mast|er/d tmp|
|00001740| 32 20 3e 20 74 6d 70 33 | 0a 73 65 64 20 2f 4e 6f |2 > tmp3|.sed /No|
|00001750| 64 65 2f 64 20 74 6d 70 | 33 20 3e 20 74 6d 70 34 |de/d tmp|3 > tmp4|
|00001760| 0a 73 65 64 20 2f 53 79 | 73 74 65 6d 2f 64 20 74 |.sed /Sy|stem/d t|
|00001770| 6d 70 34 20 3e 20 61 75 | 74 6f 63 61 64 0a 72 6d |mp4 > au|tocad.rm|
|00001780| 20 61 63 61 64 74 65 6d | 70 20 74 6d 70 5b 31 2d | acadtem|p tmp[1-|
|00001790| 34 5d 0a 0a 23 20 72 65 | 6d 6f 76 65 20 74 6d 70 |4]..# re|move tmp|
|000017a0| 20 73 75 62 64 69 72 65 | 63 74 6f 72 79 20 49 44 | subdire|ctory ID|
|000017b0| 0a 63 64 20 2f 74 6d 70 | 0a 72 6d 20 2d 72 20 49 |.cd /tmp|.rm -r I|
|000017c0| 44 0a 0a 65 78 69 74 20 | 24 4f 4b 0a 2d 75 20 2d |D..exit |$OK.-u -|
|000017d0| 65 20 2d 6b 20 22 24 44 | 45 56 49 43 45 22 0a 09 |e -k "$D|EVICE"..|
|000017e0| ff 20 04 72 65 6c 69 6e | 6b 0a 09 66 69 0a ff 20 |. .relin|k..fi.. |
|000017f0| 04 66 69 0a 66 69 ff 0a | 03 23 20 4d 61 6b 65 20 |.fi.fi..|.# Make |
|00001800| 61 63 61 64 20 6f 6e 65 | 20 66 69 6c 65 20 69 66 |acad one| file if|
|00001810| 20 35 20 31 2f 32 20 69 | 6e 63 68 20 64 69 73 6b | 5 1/2 i|nch disk|
|00001820| 73 0a 63 64 20 2f 75 73 | 72 2f 61 63 61 64 2f 61 |s.cd /us|r/acad/a|
|00001830| 63 61 64 0a 74 65 73 74 | 20 2d 73 20 78 61 61 0a |cad.test| -s xaa.|
|00001840| 53 1c ff 2e 2f 75 73 72 | 2f 61 63 61 64 2f 62 6f |S.../usr|/acad/bo|
|00001850| 6e 75 73 2f 73 6f 75 72 | 63 65 2f 61 63 61 64 2e |nus/sour|ce/acad.|
|00001860| 6d 6e 75 ff 00 44 ff 20 | 03 34 34 30 20 00 20 31 |mnu..D. |.440 . 1|
|00001870| 32 30 34 37 20 00 ff 20 | 04 31 32 20 00 ff 20 05 |2047 .. |.12 .. .|
|00001880| 31 34 37 32 35 31 20 20 | 34 35 30 33 32 37 35 31 |147251 |45032751|
|00001890| 36 32 20 20 31 32 31 31 | 33 00 20 ff 00 ff ff 00 |62 1211|3. .....|
|000018a0| 65 ff 2a 03 42 55 54 54 | 4f 4e 53 0a 3b 0a 24 70 |e.*.BUTT|ONS.;.$p|
|000018b0| 31 3d 2a 0a 5e 63 5e 63 | 0a 5e 42 0a 5e 4f 0a 5e |1=*.^c^c|.^B.^O.^|
|000018c0| 47 0a 5e 44 0a 5e 45 0a | 5e 54 0a ff 2a 03 41 55 |G.^D.^E.|^T..*.AU|
|000018d0| 58 31 0a 3b 0a 24 70 31 | 3d 2a 0a 5e 43 5e 43 0a |X1.;.$p1|=*.^C^C.|
|000018e0| 5e 42 0a 5e 4f 0a 5e 47 | 0a 5e 44 0a 5e 45 0a 5e |^B.^O.^G|.^D.^E.^|
|000018f0| 54 0a 0a ff 2a 03 50 4f | 50 31 0a 5b 54 6f 6f 6c |T...*.PO|P1.[Tool|
|00001900| 73 5d 0a 5b 4f 53 4e 41 | 50 5d 5e 43 5e 43 24 70 |s].[OSNA|P]^C^C$p|
|00001910| 31 3d 20 24 70 31 3d 2a | 20 4f 53 4e 41 50 20 5c |1= $p1=*| OSNAP \|
|00001920| 0a 43 45 4e 74 65 72 0a | 45 4e 44 70 6f 69 6e 74 |.CENter.|ENDpoint|
|00001930| 0a 49 4e 53 65 72 74 0a | 5b 49 4e 54 65 72 73 65 |.INSert.|[INTerse|
|00001940| 63 74 69 6f 6e 5d 49 4e | 54 0a 4d 49 44 70 6f 69 |ction]IN|T.MIDpoi|
|00001950| 6e 74 0a 4e 45 41 72 65 | 73 74 0a 4e 4f 44 65 0a |nt.NEAre|st.NODe.|
|00001960| 5b 50 45 52 70 65 6e 64 | 69 63 75 6c 61 72 5d 50 |[PERpend|icular]P|
|00001970| 45 52 0a 51 55 41 64 72 | 61 6e 74 0a 5b 51 55 49 |ER.QUAdr|ant.[QUI|
|00001980| 43 4b 2c 5d 51 55 49 43 | 4b 2c 5e 5a 24 70 31 3d |CK,]QUIC|K,^Z$p1=|
|00001990| 2a 0a 54 41 4e 67 65 6e | 74 0a 4e 4f 4e 45 0a 5b |*.TANgen|t.NONE.[|
|000019a0| 7e 2d 2d 5d 0a 5b 46 49 | 4c 54 45 52 53 ff 2e 03 |~--].[FI|LTERS...|
|000019b0| ff 20 03 5d 24 70 31 3d | 66 69 6c 74 65 72 73 20 |. .]$p1=|filters |
|000019c0| 24 70 31 3d 2a 0a 5b 43 | 61 6e 63 65 6c 5d 5e 43 |$p1=*.[C|ancel]^C|
|000019d0| 5e 43 0a 5b 55 5d 5e 43 | 5e 43 55 0a 5b 52 65 64 |^C.[U]^C|^CU.[Red|
|000019e0| 6f 5d 5e 43 5e 43 52 45 | 44 4f 0a 5b 4c 69 73 74 |o]^C^CRE|DO.[List|
|000019f0| 5d 5e 43 5e 43 4c 49 53 | 54 0a 0a 2a 2a 66 69 6c |]^C^CLIS|T..**fil|
|00001a00| 74 65 72 73 0a 5b 46 69 | 6c 74 65 72 73 5d 0a 2e |ters.[Fi|lters]..|
|00001a10| 58 0a 2e 59 0a 2e 5a 0a | 2e 58 59 0a 2e 58 5a 0a |X..Y..Z.|.XY..XZ.|
|00001a20| 2e 59 5a 0a 5b 54 4f 4f | 4c 53 ff 2e 03 5d 24 70 |.YZ.[TOO|LS...]$p|
|00001a30| 31 3d 20 24 70 31 3d 2a | 0a 0a ff 2a 03 50 4f 50 |1= $p1=*|...*.POP|
|00001a40| 32 0a 5b 44 72 61 77 5d | 0a 5b 4c 69 6e 65 5d 2a |2.[Draw]|.[Line]*|
|00001a50| 5e 43 5e 43 24 53 3d 58 | 20 24 73 3d 6c 69 6e 65 |^C^C$S=X| $s=line|
|00001a60| 20 6c 69 6e 65 0a 5b 41 | 72 63 5d 2a 5e 43 5e 43 | line.[A|rc]*^C^C|
|00001a70| 24 53 3d 58 20 24 73 3d | 70 6f 70 61 72 63 20 61 |$S=X $s=|poparc a|
|00001a80| 72 63 0a 5b 43 69 72 63 | 6c 65 5d 2a 5e 43 5e 43 |rc.[Circ|le]*^C^C|
|00001a90| 24 53 3d 58 20 24 73 3d | 70 6f 70 63 69 72 63 6c |$S=X $s=|popcircl|
|00001aa0| 20 63 69 72 63 6c 65 0a | 5b 50 6f 6c 79 6c 69 6e | circle.|[Polylin|
|00001ab0| 65 5d 2a 5e 43 5e 43 24 | 53 3d 58 20 24 73 3d 70 |e]*^C^C$|S=X $s=p|
|00001ac0| 6c 69 6e 65 20 70 6c 69 | 6e 65 0a 5b 33 44 20 50 |line pli|ne.[3D P|
|00001ad0| 6f 6c 79 6c 69 6e 65 5d | 2a 5e 43 5e 43 24 53 3d |olyline]|*^C^C$S=|
|00001ae0| 58 20 24 53 3d 33 64 70 | 6f 6c 79 20 33 64 70 6f |X $S=3dp|oly 3dpo|
|00001af0| 6c 79 0a 5b 49 6e 73 65 | 72 74 5d 5e 43 5e 43 73 |ly.[Inse|rt]^C^Cs|
|00001b00| 65 74 76 61 72 20 61 74 | 74 64 69 61 20 31 20 24 |etvar at|tdia 1 $|
|00001b10| 53 3d 58 20 24 73 3d 69 | 6e 73 65 72 74 20 69 6e |S=X $s=i|nsert in|
|00001b20| 73 65 72 74 0a 5b 44 74 | 65 78 74 5d 2a 5e 43 5e |sert.[Dt|ext]*^C^|
|00001b30| 43 24 53 3d 58 20 24 73 | 3d 44 74 65 78 74 20 44 |C$S=X $s|=Dtext D|
|00001b40| 74 65 78 74 0a 5b 48 61 | 74 63 68 ff 2e 03 5d 5e |text.[Ha|tch...]^|
|00001b50| 43 5e 43 24 69 3d 68 61 | 74 63 68 31 20 24 69 3d |C^C$i=ha|tch1 $i=|
|00001b60| 2a 0a 5b 33 44 20 43 6f | 6e 73 74 72 75 63 74 69 |*.[3D Co|nstructi|
|00001b70| 6f 6e ff 2e 03 5d 24 69 | 3d 33 64 6f 62 6a 65 63 |on...]$i|=3dobjec|
|00001b80| 74 73 20 24 69 3d 2a 0a | 0a ff 2a 03 50 4f 50 33 |ts $i=*.|..*.POP3|
|00001b90| 0a 5b 4d 6f 64 69 66 79 | 5d 0a 5b 45 72 61 73 65 |.[Modify|].[Erase|
|00001ba0| 5d 2a 5e 43 5e 43 24 53 | 3d 58 20 24 73 3d 65 72 |]*^C^C$S|=X $s=er|
|00001bb0| 61 73 65 20 65 72 61 73 | 65 20 73 69 20 61 75 74 |ase eras|e si aut|
|00001bc0| 6f 0a 5b 4d 6f 76 65 5d | 2a 5e 43 5e 43 24 53 3d |o.[Move]|*^C^C$S=|
|00001bd0| 58 20 24 73 3d 6d 6f 76 | 65 20 6d 6f 76 65 20 73 |X $s=mov|e move s|
|00001be0| 69 20 61 75 74 6f 0a 5b | 43 6f 70 79 5d 2a 5e 43 |i auto.[|Copy]*^C|
|00001bf0| 5e 43 24 53 3d 58 20 24 | 73 3d 63 6f 70 79 20 63 |^C$S=X $|s=copy c|
|00001c00| 6f 70 79 20 73 69 20 61 | 75 74 6f 0a 5b 50 72 6f |opy si a|uto.[Pro|
|00001c10| 70 65 72 74 69 65 73 5d | 2a 5e 43 5e 43 24 53 3d |perties]|*^C^C$S=|
|00001c20| 58 20 24 53 3d 63 68 70 | 72 6f 70 20 63 68 70 72 |X $S=chp|rop chpr|
|00001c30| 6f 70 20 73 69 20 61 75 | 74 6f 0a 5b 42 72 65 61 |op si au|to.[Brea|
|00001c40| 6b 5d 2a 5e 43 5e 43 24 | 53 3d 58 20 24 53 3d 62 |k]*^C^C$|S=X $S=b|
|00001c50| 72 65 61 6b 20 62 72 65 | 61 6b 0a 5b 46 69 6c 6c |reak bre|ak.[Fill|
|00001c60| 65 74 5d 2a 5e 43 5e 43 | 24 53 3d 58 20 24 53 3d |et]*^C^C|$S=X $S=|
|00001c70| 66 69 6c 6c 65 74 20 66 | 69 6c 6c 65 74 0a 5b 4d |fillet f|illet.[M|
|00001c80| 69 72 72 6f 72 5d 2a 5e | 43 5e 43 24 53 3d 58 20 |irror]*^|C^C$S=X |
|00001c90| 24 53 3d 6d 69 72 72 6f | 72 20 6d 69 72 72 6f 72 |$S=mirro|r mirror|
|00001ca0| 20 61 75 74 6f 0a 5b 54 | 72 69 6d 5d 2a 5e 43 5e | auto.[T|rim]*^C^|
|00001cb0| 43 24 53 3d 58 20 24 73 | 3d 74 72 69 6d 20 74 72 |C$S=X $s|=trim tr|
|00001cc0| 69 6d 20 61 75 74 6f 0a | 5b 45 78 74 65 6e 64 5d |im auto.|[Extend]|
|00001cd0| 2a 5e 43 5e 43 24 53 3d | 58 20 24 73 3d 65 78 74 |*^C^C$S=|X $s=ext|
|00001ce0| 65 6e 64 20 65 78 74 65 | 6e 64 20 61 75 74 6f 0a |end exte|nd auto.|
|00001cf0| 5b 53 74 72 65 74 63 68 | 5d 2a 5e 43 5e 43 24 53 |[Stretch|]*^C^C$S|
|00001d00| 3d 58 20 24 73 3d 73 74 | 72 65 74 63 68 20 73 74 |=X $s=st|retch st|
|00001d10| 72 65 74 63 68 20 63 72 | 6f 73 73 69 6e 67 0a 5b |retch cr|ossing.[|
|00001d20| 45 64 69 74 20 50 6f 6c | 79 6c 69 6e 65 73 5d 5e |Edit Pol|ylines]^|
|00001d30| 43 5e 43 5e 50 2b 0a 28 | 64 65 66 75 6e 20 6d 3a |C^C^P+.(|defun m:|
|00001d40| 70 31 28 2f 20 6d 3a 70 | 61 20 6d 3a 70 63 20 6d |p1(/ m:p|a m:pc m|
|00001d50| 3a 64 20 6d 3a 77 29 28 | 6d 65 6e 75 63 6d 64 20 |:d m:w)(|menucmd |
|00001d60| 22 53 3d 58 22 29 28 6d | 65 6e 75 63 6d 64 20 22 |"S=X")(m|enucmd "|
|00001d70| 53 3d 50 53 45 4c 22 29 | 3b 2b 0a 28 73 65 74 71 |S=PSEL")|;+.(setq|
|00001d80| 20 6d 3a 64 20 54 29 28 | 77 68 69 6c 65 20 6d 3a | m:d T)(|while m:|
|00001d90| 64 20 28 73 65 74 71 20 | 6d 3a 70 63 20 28 73 73 |d (setq |m:pc (ss|
|00001da0| 67 65 74 29 29 28 73 65 | 74 71 20 6d 3a 70 61 20 |get))(se|tq m:pa |
|00001db0| 28 73 73 6e 61 6d 65 20 | 6d 3a 70 63 20 30 29 29 |(ssname |m:pc 0))|
|00001dc0| 3b 2b 0a 28 69 66 28 3d | 28 63 64 72 28 61 73 73 |;+.(if(=|(cdr(ass|
|00001dd0| 6f 63 20 30 20 28 65 6e | 74 67 65 74 20 6d 3a 70 |oc 0 (en|tget m:p|
|00001de0| 61 ff 29 03 20 22 50 4f | 4c 59 4c 49 4e 45 22 29 |a.). "PO|LYLINE")|
|00001df0| 28 70 72 6f 67 6e 28 73 | 65 74 71 20 6d 3a 64 20 |(progn(s|etq m:d |
|00001e00| 6e 69 6c 29 2b 0a 28 6d | 3a 70 32 20 6d 3a 70 61 |nil)+.(m|:p2 m:pa|
|00001e10| 20 6d 3a 70 63 29 29 28 | 70 72 6f 67 6e 28 70 72 | m:pc))(|progn(pr|
|00001e20| 6f 6d 70 74 20 22 45 6e | 74 69 74 79 20 73 65 6c |ompt "En|tity sel|
|00001e30| 65 63 74 65 64 20 69 73 | 20 6e 6f 74 20 61 20 70 |ected is| not a p|
|00001e40| 6f 6c 79 6c 69 6e 65 22 | 29 28 74 65 72 70 72 69 |olyline"|)(terpri|
|00001e50| 29 3b 2b 0a 28 69 66 20 | 28 6d 65 6d 62 65 72 20 |);+.(if |(member |
|00001e60| 28 63 64 72 20 28 61 73 | 73 6f 63 20 30 20 28 65 |(cdr (as|soc 0 (e|
|00001e70| 6e 74 67 65 74 20 6d 3a | 70 61 ff 29 03 20 27 28 |ntget m:|pa.). '(|
|00001e80| 22 4c 49 4e 45 22 20 22 | 41 52 43 22 29 29 28 70 |"LINE" "|ARC"))(p|
|00001e90| 72 6f 67 6e 2b 0a 28 69 | 6e 69 74 67 65 74 20 22 |rogn+.(i|nitget "|
|00001ea0| 59 65 73 20 4e 6f 22 29 | 28 73 65 74 71 20 6d 3a |Yes No")|(setq m:|
|00001eb0| 77 20 28 67 65 74 6b 77 | 6f 72 64 20 22 44 6f 20 |w (getkw|ord "Do |
|00001ec0| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 74 75 72 6e |you want| to turn|
|00001ed0| 20 69 74 20 69 6e 74 6f | 20 6f 6e 65 3f 20 3c 59 | it into| one? <Y|
|00001ee0| 3e 22 29 29 3b 2b 0a 28 | 69 66 20 28 6f 72 20 28 |>"));+.(|if (or (|
|00001ef0| 3d 20 6d 3a 77 20 22 59 | 65 73 22 29 28 6e 75 6c |= m:w "Y|es")(nul|
|00001f00| 6c 20 6d 3a 77 29 29 28 | 70 72 6f 67 6e 28 73 65 |l m:w))(|progn(se|
|00001f10| 74 71 20 6d 3a 64 20 6e | 69 6c 29 28 6d 65 6e 75 |tq m:d n|il)(menu|
|00001f20| 63 6d 64 20 22 53 3d 58 | 22 29 3b 2b 0a 28 6d 65 |cmd "S=X|");+.(me|
|00001f30| 6e 75 63 6d 64 20 22 53 | 3d 50 30 22 29 28 63 6f |nucmd "S|=P0")(co|
|00001f40| 6d 6d 61 6e 64 20 22 50 | 45 44 49 54 22 20 6d 3a |mmand "P|EDIT" m:|
|00001f50| 70 61 20 22 79 65 73 22 | 20 70 61 75 73 65 ff 29 |pa "yes"| pause.)|
|00001f60| 09 2b 0a 28 64 65 66 75 | 6e 20 6d 3a 70 32 28 6d |.+.(defu|n m:p2(m|
|00001f70| 3a 70 61 20 6d 3a 70 63 | 20 2f 20 6d 3a 70 62 29 |:pa m:pc| / m:pb)|
|00001f80| 28 6d 65 6e 75 63 6d 64 | 20 22 53 3d 58 22 29 2b |(menucmd| "S=X")+|
|00001f90| 0a 28 69 66 20 28 3d 20 | 28 73 65 74 71 20 6d 3a |.(if (= |(setq m:|
|00001fa0| 70 62 20 28 63 64 72 20 | 28 61 73 73 6f 63 20 37 |pb (cdr |(assoc 7|
|00001fb0| 30 20 28 65 6e 74 67 65 | 74 20 6d 3a 70 61 ff 29 |0 (entge|t m:pa.)|
|00001fc0| 04 20 6e 69 6c 29 28 6d | 65 6e 75 63 6d 64 20 22 |. nil)(m|enucmd "|
|00001fd0| 53 3d 50 30 22 29 3b 2b | 0a 28 70 72 6f 67 6e 20 |S=P0");+|.(progn |
|00001fe0| 28 73 65 74 71 20 6d 3a | 70 62 20 28 2f 20 6d 3a |(setq m:|pb (/ m:|
|00001ff0| 70 62 20 32 29 29 28 69 | 66 20 28 3e 3d 20 6d 3a |pb 2))(i|f (>= m:|
|00002000| 70 62 20 38 29 28 6d 65 | 6e 75 63 6d 64 20 22 53 |pb 8)(me|nucmd "S|
|00002010| 3d 50 31 36 22 29 3b 2b | 0a 28 69 66 28 3c 20 6d |=P16");+|.(if(< m|
|00002020| 3a 70 62 20 34 29 28 6d | 65 6e 75 63 6d 64 20 22 |:pb 4)(m|enucmd "|
|00002030| 53 3d 50 30 22 29 28 6d | 65 6e 75 63 6d 64 20 22 |S=P0")(m|enucmd "|
|00002040| 53 3d 50 38 22 ff 29 05 | 28 63 6f 6d 6d 61 6e 64 |S=P8".).|(command|
|00002050| 20 22 50 45 44 49 54 22 | 20 6d 3a 70 61 20 70 61 | "PEDIT"| m:pa pa|
|00002060| 75 73 65 29 29 2b 0a 28 | 64 65 66 75 6e 20 70 65 |use))+.(|defun pe|
|00002070| 72 72 6f 72 20 28 6d 73 | 67 29 28 73 65 74 71 20 |rror (ms|g)(setq |
|00002080| 2a 65 72 72 6f 72 2a 20 | 6d 3a 65 72 72 20 6d 3a |*error* |m:err m:|
|00002090| 65 72 72 20 6e 69 6c 29 | 28 70 72 69 6e 63 29 29 |err nil)|(princ))|
|000020a0| 2b 0a 28 64 65 66 75 6e | 20 43 3a 50 45 44 49 54 |+.(defun| C:PEDIT|
|000020b0| 4d 20 28 2f 20 6d 3a 65 | 72 72 29 28 73 65 74 71 |M (/ m:e|rr)(setq|
|000020c0| 20 6d 3a 65 72 72 20 2a | 65 72 72 6f 72 2a 20 2a | m:err *|error* *|
|000020d0| 65 72 72 6f 72 2a 20 70 | 65 72 72 6f 72 29 28 6d |error* p|error)(m|
|000020e0| 3a 70 31 29 3b 2b 0a 28 | 73 65 74 71 20 2a 65 72 |:p1);+.(|setq *er|
|000020f0| 72 6f 72 2a 20 6d 3a 65 | 72 72 20 6d 3a 65 72 72 |ror* m:e|rr m:err|
|00002100| 20 6e 69 6c 29 28 70 72 | 69 6e 63 29 29 28 70 72 | nil)(pr|inc))(pr|
|00002110| 69 6e 63 29 20 50 45 44 | 49 54 4d 20 5e 50 0a 0a |inc) PED|ITM ^P..|
|00002120| ff 2a 03 50 4f 50 34 0a | 5b 44 69 73 70 6c 61 79 |.*.POP4.|[Display|
|00002130| 5d 0a 5b 52 65 64 72 61 | 77 5d 27 72 65 64 72 61 |].[Redra|w]'redra|
|00002140| 77 0a 5b 7e 2d 2d 5d 0a | 5b 5a 6f 6f 6d 20 57 69 |w.[~--].|[Zoom Wi|
|00002150| 6e 64 6f 77 5d 27 7a 6f | 6f 6d 20 77 0a 5b 5a 6f |ndow]'zo|om w.[Zo|
|00002160| 6f 6d 20 50 72 65 76 69 | 6f 75 73 5d 27 7a 6f 6f |om Previ|ous]'zoo|
|00002170| 6d 20 70 0a 5b 5a 6f 6f | 6d 20 41 6c 6c 5d 5e 43 |m p.[Zoo|m All]^C|
|00002180| 5e 43 7a 6f 6f 6d 20 61 | 0a 5b 5a 6f 6f 6d 20 44 |^Czoom a|.[Zoom D|
|00002190| 79 6e 61 6d 69 63 5d 27 | 7a 6f 6f 6d 20 64 0a 5b |ynamic]'|zoom d.[|
|000021a0| 7e 2d 2d 5d 0a 5b 50 61 | 6e 5d 27 70 61 6e 0a 5b |~--].[Pa|n]'pan.[|
|000021b0| 44 76 69 65 77 20 4f 70 | 74 69 6f 6e 73 ff 2e 03 |Dview Op|tions...|
|000021c0| 5d 5e 43 5e 43 24 69 3d | 64 76 69 65 77 69 20 24 |]^C^C$i=|dviewi $|
|000021d0| 69 3d 2a 0a 5b 56 70 6f | 69 6e 74 20 33 44 ff 2e |i=*.[Vpo|int 3D..|
|000021e0| 03 5d 5e 43 5e 43 24 53 | 3d 58 20 24 53 3d 56 50 |.]^C^C$S|=X $S=VP|
|000021f0| 4f 49 4e 54 33 44 20 24 | 69 3d 33 64 76 69 65 77 |OINT3D $|i=3dview|
|00002200| 73 20 24 69 3d 2a 0a 5b | 7e 2d 2d 5d 0a 5b 50 6c |s $i=*.[|~--].[Pl|
|00002210| 61 6e 20 56 69 65 77 20 | 28 55 43 53 29 5d 5e 43 |an View |(UCS)]^C|
|00002220| 5e 43 70 6c 61 6e 3b 3b | 0a 5b 50 6c 61 6e 20 56 |^Cplan;;|.[Plan V|
|00002230| 69 65 77 20 28 57 6f 72 | 6c 64 29 5d 5e 43 5e 43 |iew (Wor|ld)]^C^C|
|00002240| 70 6c 61 6e 20 77 6f 0a | 5b 7e 2d 2d 5d 0a 5b 53 |plan wo.|[~--].[S|
|00002250| 65 74 20 56 69 65 77 70 | 6f 72 74 73 ff 2e 03 5d |et Viewp|orts...]|
|00002260| 5e 43 5e 43 24 53 3d 58 | 20 24 53 3d 76 70 6f 72 |^C^C$S=X| $S=vpor|
|00002270| 74 73 20 24 69 3d 76 70 | 6f 72 74 69 20 24 69 3d |ts $i=vp|orti $i=|
|00002280| 2a 0a 0a ff 2a 03 50 4f | 50 35 0a 5b 53 65 74 74 |*...*.PO|P5.[Sett|
|00002290| 69 6e 67 73 5d 0a 5b 55 | 43 53 20 44 69 61 6c 6f |ings].[U|CS Dialo|
|000022a0| 67 75 65 ff 2e 03 5d 5e | 43 5e 43 64 64 75 63 73 |gue...]^|C^Cdducs|
|000022b0| 0a 5b 55 43 53 20 4f 70 | 74 69 6f 6e 73 ff 2e 03 |.[UCS Op|tions...|
|000022c0| 5d 24 69 3d 75 63 73 20 | 24 69 3d 2a 0a 5b 55 43 |]$i=ucs |$i=*.[UC|
|000022d0| 53 20 50 72 65 76 69 6f | 75 73 5d 5e 43 5e 43 55 |S Previo|us]^C^CU|
|000022e0| 43 53 20 50 0a 5b 7e 2d | 2d 5d 0a 5b 44 72 61 77 |CS P.[~-|-].[Draw|
|000022f0| 69 6e 67 20 41 69 64 73 | ff 2e 03 5d 27 64 64 72 |ing Aids|...]'ddr|
|00002300| 6d 6f 64 65 73 0a 5b 45 | 6e 74 69 74 79 20 43 72 |modes.[E|ntity Cr|
|00002310| 65 61 74 69 6f 6e ff 2e | 03 5d 27 64 64 65 6d 6f |eation..|.]'ddemo|
|00002320| 64 65 73 0a 5b 4d 6f 64 | 69 66 79 20 4c 61 79 65 |des.[Mod|ify Laye|
|00002330| 72 ff 2e 03 5d 27 64 64 | 6c 6d 6f 64 65 73 0a 0a |r...]'dd|lmodes..|
|00002340| ff 2a 03 50 4f 50 36 0a | 5b 4f 70 74 69 6f 6e 73 |.*.POP6.|[Options|
|00002350| 5d 0a 5b 41 73 68 61 64 | 65 ff 2e 03 5d 5e 43 5e |].[Ashad|e...]^C^|
|00002360| 43 5e 50 28 70 72 6f 67 | 6e 28 73 65 74 71 20 6d |C^P(prog|n(setq m|
|00002370| 3a 65 72 72 20 2a 65 72 | 72 6f 72 2a 29 28 70 72 |:err *er|ror*)(pr|
|00002380| 69 6e 63 29 29 2b 0a 28 | 64 65 66 75 6e 20 2a 65 |inc))+.(|defun *e|
|00002390| 72 72 6f 72 2a 20 28 6d | 73 67 29 28 70 72 69 6e |rror* (m|sg)(prin|
|000023a0| 63 20 6d 73 67 29 28 73 | 65 74 71 20 2a 65 72 72 |c msg)(s|etq *err|
|000023b0| 6f 72 2a 20 6d 3a 65 72 | 72 20 6d 3a 65 72 72 20 |or* m:er|r m:err |
|000023c0| 6e 69 6c 29 28 70 72 69 | 6e 63 29 29 2b 0a 28 63 |nil)(pri|nc))+.(c|
|000023d0| 6f 6e 64 20 28 28 6e 75 | 6c 6c 20 43 3a 53 43 45 |ond ((nu|ll C:SCE|
|000023e0| 4e 45 29 28 76 6d 6f 6e | 29 28 69 66 20 28 2f 3d |NE)(vmon|)(if (/=|
|000023f0| 20 6e 69 6c 20 28 66 69 | 6e 64 66 69 6c 65 20 22 | nil (fi|ndfile "|
|00002400| 61 73 68 61 64 65 2e 6c | 73 70 22 29 29 3b 2b 0a |ashade.l|sp"));+.|
|00002410| 28 70 72 6f 67 6e 20 28 | 74 65 72 70 72 69 29 28 |(progn (|terpri)(|
|00002420| 70 72 6f 6d 70 74 20 22 | 50 6c 65 61 73 65 20 77 |prompt "|Please w|
|00002430| 61 69 74 ff 2e 03 20 20 | 4c 6f 61 64 69 6e 67 20 |ait... |Loading |
|00002440| 61 73 68 61 64 65 2e 20 | 20 22 29 28 6c 6f 61 64 |ashade. | ")(load|
|00002450| 20 22 61 73 68 61 64 65 | 22 29 2b 0a 28 6d 65 6e | "ashade|")+.(men|
|00002460| 75 63 6d 64 20 22 49 3d | 41 53 22 29 28 6d 65 6e |ucmd "I=|AS")(men|
|00002470| 75 63 6d 64 20 22 49 3d | 2a 22 29 28 73 65 74 71 |ucmd "I=|*")(setq|
|00002480| 20 2a 65 72 72 6f 72 2a | 20 6d 3a 65 72 72 20 6d | *error*| m:err m|
|00002490| 3a 65 72 72 20 6e 69 6c | 29 29 28 70 72 6f 67 6e |:err nil|))(progn|
|000024a0| 20 28 74 65 72 70 72 69 | 29 3b 2b 0a 28 70 72 6f | (terpri|);+.(pro|
|000024b0| 6d 70 74 20 22 54 68 65 | 20 66 69 6c 65 20 27 41 |mpt "The| file 'A|
|000024c0| 73 68 61 64 65 2e 6c 73 | 70 27 20 77 61 73 20 6e |shade.ls|p' was n|
|000024d0| 6f 74 20 66 6f 75 6e 64 | 20 69 6e 20 79 6f 75 72 |ot found| in your|
|000024e0| 20 63 75 72 72 65 6e 74 | 20 73 65 61 72 63 68 20 | current| search |
|000024f0| 64 69 72 65 63 74 6f 72 | 69 65 73 2e 22 29 2b 0a |director|ies.")+.|
|00002500| 28 74 65 72 70 72 69 29 | 28 70 72 6f 6d 70 74 20 |(terpri)|(prompt |
|00002510| 22 43 68 65 63 6b 20 79 | 6f 75 72 20 41 75 74 6f |"Check y|our Auto|
|00002520| 53 68 61 64 65 20 4d 61 | 6e 75 61 6c 20 66 6f 72 |Shade Ma|nual for|
|00002530| 20 69 6e 73 74 61 6c 6c | 61 74 69 6f 6e 20 69 6e | install|ation in|
|00002540| 73 74 72 75 63 74 69 6f | 6e 73 2e 22 29 3b 2b 0a |structio|ns.");+.|
|00002550| 28 73 65 74 71 20 2a 65 | 72 72 6f 72 2a 20 6d 3a |(setq *e|rror* m:|
|00002560| 65 72 72 20 6d 3a 65 72 | 72 20 6e 69 6c 29 28 70 |err m:er|r nil)(p|
|00002570| 72 69 6e 63 ff 29 04 2b | 0a 28 54 20 28 73 65 74 |rinc.).+|.(T (set|
|00002580| 71 20 2a 65 72 72 6f 72 | 2a 20 6d 3a 65 72 72 20 |q *error|* m:err |
|00002590| 6d 3a 65 72 72 20 6e 69 | 6c 29 28 6d 65 6e 75 63 |m:err ni|l)(menuc|
|000025a0| 6d 64 20 22 49 3d 41 53 | 22 29 28 6d 65 6e 75 63 |md "I=AS|")(menuc|
|000025b0| 6d 64 20 22 49 3d 2a 22 | 29 28 70 72 69 6e 63 ff |md "I=*"|)(princ.|
|000025c0| 29 03 20 5e 50 0a 5b 46 | 6f 6e 74 73 ff 2e 03 5d |). ^P.[F|onts...]|
|000025d0| 5e 43 5e 43 24 69 3d 66 | 6f 6e 74 73 31 20 24 69 |^C^C$i=f|onts1 $i|
|000025e0| 3d 2a 0a 0a ff 2a 03 50 | 4f 50 37 0a 5b 46 69 6c |=*...*.P|OP7.[Fil|
|000025f0| 65 20 5d 0a 5b 53 61 76 | 65 20 5d 5e 43 5e 43 53 |e ].[Sav|e ]^C^CS|
|00002600| 61 76 65 3b 0a 5b 45 6e | 64 20 20 5d 5e 43 5e 43 |ave;.[En|d ]^C^C|
|00002610| 65 6e 64 0a 5b 51 75 69 | 74 20 5d 5e 43 5e 43 24 |end.[Qui|t ]^C^C$|
|00002620| 53 3d 58 20 24 73 3d 71 | 75 69 74 20 71 75 69 74 |S=X $s=q|uit quit|
|00002630| 0a 5b 7e 2d 2d 20 20 5d | 0a 5b 50 6c 6f 74 20 5d |.[~-- ]|.[Plot ]|
|00002640| 5e 43 5e 43 70 6c 6f 74 | 0a 5b 50 72 69 6e 74 5d |^C^Cplot|.[Print]|
|00002650| 5e 43 5e 43 70 72 70 6c | 6f 74 0a 0a ff 2a 03 50 |^C^Cprpl|ot...*.P|
|00002660| 4f 50 38 0a 5b 48 65 6c | 70 5d 0a 5b 48 65 6c 70 |OP8.[Hel|p].[Help|
|00002670| 5d 27 68 65 6c 70 0a 0a | ff 2a 03 69 63 6f 6e 0a |]'help..|.*.icon.|
|00002680| 2a 2a 70 6f 6c 79 0a 5b | 53 65 74 20 50 6f 6c 79 |**poly.[|Set Poly|
|00002690| 6d 65 73 68 20 61 6e 64 | 20 50 6f 6c 79 6c 69 6e |mesh and| Polylin|
|000026a0| 65 20 56 61 72 69 61 62 | 6c 65 73 5d 0a 5b 61 63 |e Variab|les].[ac|
|000026b0| 61 64 28 70 6d 71 29 5d | 27 73 65 74 76 61 72 20 |ad(pmq)]|'setvar |
|000026c0| 73 75 72 66 74 79 70 65 | 20 35 0a 5b 61 63 61 64 |surftype| 5.[acad|
|000026d0| 28 70 6d 63 29 5d 27 73 | 65 74 76 61 72 20 73 75 |(pmc)]'s|etvar su|
|000026e0| 72 66 74 79 70 65 20 36 | 0a 5b 61 63 61 64 28 70 |rftype 6|.[acad(p|
|000026f0| 6d 62 29 5d 27 73 65 74 | 76 61 72 20 73 75 72 66 |mb)]'set|var surf|
|00002700| 74 79 70 65 20 38 0a 5b | 61 63 61 64 28 70 6c 71 |type 8.[|acad(plq|
|00002710| 29 5d 27 73 65 74 76 61 | 72 20 73 70 6c 69 6e 65 |)]'setva|r spline|
|00002720| 74 79 70 65 20 35 0a 5b | 61 63 61 64 28 70 6c 63 |type 5.[|acad(plc|
|00002730| 29 5d 27 73 65 74 76 61 | 72 20 73 70 6c 69 6e 65 |)]'setva|r spline|
|00002740| 74 79 70 65 20 36 0a 5b | 20 53 65 74 20 53 50 4c |type 6.[| Set SPL|
|00002750| 49 4e 45 53 45 47 53 5d | 27 73 65 74 76 61 72 20 |INESEGS]|'setvar |
|00002760| 73 70 6c 69 6e 65 73 65 | 67 73 20 5c 0a 5b 20 53 |splinese|gs \.[ S|
|00002770| 65 74 20 53 50 4c 46 52 | 41 4d 45 5d 27 73 65 74 |et SPLFR|AME]'set|
|00002780| 76 61 72 20 73 70 6c 66 | 72 61 6d 65 20 5c 0a 5b |var splf|rame \.[|
|00002790| 20 53 65 74 20 44 45 4e | 53 49 54 59 5d 27 73 65 | Set DEN|SITY]'se|
|000027a0| 74 76 61 72 20 73 75 72 | 66 75 20 5c 27 73 65 74 |tvar sur|fu \'set|
|000027b0| 76 61 72 20 73 75 72 66 | 76 20 5c 0a 5b 20 45 78 |var surf|v \.[ Ex|
|000027c0| 69 74 5d 24 70 33 3d 70 | 6f 70 33 ff 0a 03 2a 2a |it]$p3=p|op3...**|
|000027d0| 61 73 0a 5b 53 65 6c 65 | 63 74 20 41 73 68 61 64 |as.[Sele|ct Ashad|
|000027e0| 65 20 43 6f 6d 6d 61 6e | 64 5d 0a 5b 61 63 61 64 |e Comman|d].[acad|
|000027f0| 28 63 61 6d 65 72 61 29 | 5d 5e 43 5e 43 24 53 3d |(camera)|]^C^C$S=|
|00002800| 58 20 24 53 3d 43 41 4d | 45 52 41 20 63 61 6d 65 |X $S=CAM|ERA came|
|00002810| 72 61 20 ff 5c 03 24 69 | 3d 61 73 20 24 69 3d 2a |ra .\.$i|=as $i=*|
|00002820| 0a 5b 61 63 61 64 28 63 | 61 6d 76 69 65 77 29 5d |.[acad(c|amview)]|
|00002830| 5e 43 5e 43 24 53 3d 58 | 20 24 53 3d 41 53 48 41 |^C^C$S=X| $S=ASHA|
|00002840| 44 45 20 63 61 6d 76 69 | 65 77 0a 5b 61 63 61 64 |DE camvi|ew.[acad|
|00002850| 28 70 6f 69 6e 74 29 5d | 5e 43 5e 43 24 53 3d 58 |(point)]|^C^C$S=X|
|00002860| 20 24 53 3d 4c 49 47 48 | 54 53 20 4c 49 47 48 54 | $S=LIGH|TS LIGHT|
|00002870| 20 5c 70 20 5c 24 69 3d | 61 73 20 24 69 3d 2a 0a | \p \$i=|as $i=*.|
|00002880| 5b 61 63 61 64 28 64 69 | 72 65 63 74 65 64 29 5d |[acad(di|rected)]|
|00002890| 5e 43 5e 43 24 53 3d 58 | 20 24 53 3d 4c 49 47 48 |^C^C$S=X| $S=LIGH|
|000028a0| 54 53 20 4c 49 47 48 54 | 20 5c 64 20 5c 5c 24 69 |TS LIGHT| \d \\$i|
|000028b0| 3d 61 73 20 24 69 3d 2a | 0a 5b 61 63 61 64 28 73 |=as $i=*|.[acad(s|
|000028c0| 63 65 6e 65 29 5d 5e 43 | 5e 43 24 53 3d 58 20 24 |cene)]^C|^C$S=X $|
|000028d0| 53 3d 41 43 54 49 4f 4e | 20 73 63 65 6e 65 0a 5b |S=ACTION| scene.[|
|000028e0| 61 63 61 64 28 66 69 6c | 6d 72 6f 6c 6c 29 5d 5e |acad(fil|mroll)]^|
|000028f0| 43 5e 43 24 53 3d 58 20 | 24 53 3d 41 43 54 49 4f |C^C$S=X |$S=ACTIO|
|00002900| 4e 20 66 69 6c 6d 72 6f | 6c 6c 0a 5b 20 45 78 69 |N filmro|ll.[ Exi|
|00002910| 74 5d 5e 63 5e 63 0a 0a | 2a 2a 75 63 73 0a 5b 55 |t]^c^c..|**ucs.[U|
|00002920| 73 65 72 20 43 6f 6f 72 | 64 69 6e 61 74 65 20 53 |ser Coor|dinate S|
|00002930| 79 73 74 65 6d 20 4f 70 | 74 69 6f 6e 73 5d 0a 5b |ystem Op|tions].[|
|00002940| 20 53 65 74 20 74 6f 20 | 57 6f 72 6c 64 5d 5e 43 | Set to |World]^C|
|00002950| 5e 43 75 63 73 20 77 6f | 72 6c 64 0a 5b 61 63 61 |^Cucs wo|rld.[aca|
|00002960| 64 28 6c 65 66 74 29 5d | 5e 63 5e 63 5e 50 28 73 |d(left)]|^c^c^P(s|
|00002970| 65 74 76 61 72 22 6c 61 | 73 74 70 6f 69 6e 74 22 |etvar"la|stpoint"|
|00002980| 28 74 72 61 6e 73 28 67 | 65 74 76 61 72 22 75 63 |(trans(g|etvar"uc|
|00002990| 73 6f 72 67 22 29 30 20 | 31 29 29 28 70 72 69 6e |sorg")0 |1))(prin|
|000029a0| 63 29 20 2b 0a 75 63 73 | 20 33 70 20 5c 40 30 2c |c) +.ucs| 3p \@0,|
|000029b0| 2d 31 2c 30 20 40 30 2c | 30 2c 31 20 5e 50 0a 5b |-1,0 @0,|0,1 ^P.[|
|000029c0| 20 53 65 74 20 74 6f 20 | 53 63 72 65 65 6e 5d 5e | Set to |Screen]^|
|000029d0| 43 5e 43 75 63 73 20 76 | 69 65 77 0a 5b 61 63 61 |C^Cucs v|iew.[aca|
|000029e0| 64 28 74 6f 70 29 5d 5e | 63 5e 63 5e 50 28 73 65 |d(top)]^|c^c^P(se|
|000029f0| 74 76 61 72 22 6c 61 73 | 74 70 6f 69 6e 74 22 28 |tvar"las|tpoint"(|
|00002a00| 74 72 61 6e 73 28 67 65 | 74 76 61 72 22 75 63 73 |trans(ge|tvar"ucs|
|00002a10| 6f 72 67 22 29 30 20 31 | 29 29 28 70 72 69 6e 63 |org")0 1|))(princ|
|00002a20| 29 20 2b 0a 75 63 73 20 | 33 70 20 5c 40 31 2c 30 |) +.ucs |3p \@1,0|
|00002a30| 2c 30 20 40 30 2c 31 2c | 30 20 5e 50 0a 5b 61 63 |,0 @0,1,|0 ^P.[ac|
|00002a40| 61 64 28 66 72 6f 6e 74 | 29 5d 5e 63 5e 63 5e 50 |ad(front|)]^c^c^P|
|00002a50| 28 73 65 74 76 61 72 22 | 6c 61 73 74 70 6f 69 6e |(setvar"|lastpoin|
|00002a60| 74 22 28 74 72 61 6e 73 | 28 67 65 74 76 61 72 22 |t"(trans|(getvar"|
|00002a70| 75 63 73 6f 72 67 22 29 | 30 20 31 29 29 28 70 72 |ucsorg")|0 1))(pr|
|00002a80| 69 6e 63 29 20 2b 0a 75 | 63 73 20 33 70 20 5c 40 |inc) +.u|cs 3p \@|
|00002a90| 31 2c 30 2c 30 20 40 30 | 2c 30 2c 31 20 5e 50 0a |1,0,0 @0|,0,1 ^P.|
|00002aa0| 5b 61 63 61 64 28 62 6f | 74 74 6f 6d 29 5d 5e 63 |[acad(bo|ttom)]^c|
|00002ab0| 5e 63 5e 50 28 73 65 74 | 76 61 72 22 6c 61 73 74 |^c^P(set|var"last|
|00002ac0| 70 6f 69 6e 74 22 28 74 | 72 61 6e 73 28 67 65 74 |point"(t|rans(get|
|00002ad0| 76 61 72 22 75 63 73 6f | 72 67 22 29 30 20 31 29 |var"ucso|rg")0 1)|
|00002ae0| 29 28 70 72 69 6e 63 29 | 20 2b 0a 75 63 73 20 33 |)(princ)| +.ucs 3|
|00002af0| 70 20 5c 40 31 2c 30 2c | 30 20 40 30 2c 2d 31 2c |p \@1,0,|0 @0,-1,|
|00002b00| 30 20 5e 50 0a 5b 61 63 | 61 64 28 62 61 63 6b 29 |0 ^P.[ac|ad(back)|
|00002b10| 5d 5e 63 5e 63 5e 50 28 | 73 65 74 76 61 72 22 6c |]^c^c^P(|setvar"l|
|00002b20| 61 73 74 70 6f 69 6e 74 | 22 28 74 72 61 6e 73 28 |astpoint|"(trans(|
|00002b30| 67 65 74 76 61 72 22 75 | 63 73 6f 72 67 22 29 30 |getvar"u|csorg")0|
|00002b40| 20 31 29 29 28 70 72 69 | 6e 63 29 20 2b 0a 75 63 | 1))(pri|nc) +.uc|
|00002b50| 73 20 33 70 20 5c 40 2d | 31 2c 30 2c 30 20 40 30 |s 3p \@-|1,0,0 @0|
|00002b60| 2c 30 2c 31 20 5e 50 0a | 5b 61 63 61 64 28 72 69 |,0,1 ^P.|[acad(ri|
|00002b70| 67 68 74 29 5d 5e 63 5e | 63 5e 50 28 73 65 74 76 |ght)]^c^|c^P(setv|
|00002b80| 61 72 22 6c 61 73 74 70 | 6f 69 6e 74 22 28 74 72 |ar"lastp|oint"(tr|
|00002b90| 61 6e 73 28 67 65 74 76 | 61 72 22 75 63 73 6f 72 |ans(getv|ar"ucsor|
|00002ba0| 67 22 29 30 20 31 29 29 | 28 70 72 69 6e 63 29 20 |g")0 1))|(princ) |
|00002bb0| 2b 0a 75 63 73 20 33 70 | 20 5c 40 30 2c 31 2c 30 |+.ucs 3p| \@0,1,0|
|00002bc0| 20 40 30 2c 30 2c 31 20 | 5e 50 0a 5b 20 45 78 69 | @0,0,1 |^P.[ Exi|
|00002bd0| 74 5d 5e 63 5e 63 0a 0a | 2a 2a 33 44 56 69 65 77 |t]^c^c..|**3DView|
|00002be0| 73 0a 5b 53 65 6c 65 63 | 74 20 56 69 65 77 20 44 |s.[Selec|t View D|
|00002bf0| 69 72 65 63 74 69 6f 6e | 5d 0a 5b 61 63 61 64 28 |irection|].[acad(|
|00002c00| 75 6c 29 5d 5e 43 5e 43 | 56 50 4f 49 4e 54 20 52 |ul)]^C^C|VPOINT R|
|00002c10| 3b 3c 3c 31 33 35 3b 0a | 5b 61 63 61 64 28 6c 29 |;<<135;.|[acad(l)|
|00002c20| 5d 5e 43 5e 43 56 50 4f | 49 4e 54 20 52 3b 3c 3c |]^C^CVPO|INT R;<<|
|00002c30| 31 38 30 3b 0a 5b 61 63 | 61 64 28 6c 6c 29 5d 5e |180;.[ac|ad(ll)]^|
|00002c40| 43 5e 43 56 50 4f 49 4e | 54 20 52 3b 3c 3c 32 32 |C^CVPOIN|T R;<<22|
|00002c50| 35 3b 0a 5b 61 63 61 64 | 28 75 73 65 72 29 5d 0a |5;.[acad|(user)].|
|00002c60| 5b 61 63 61 64 28 75 29 | 5d 5e 43 5e 43 56 50 4f |[acad(u)|]^C^CVPO|
|00002c70| 49 4e 54 20 52 3b 3c 3c | 39 30 3b 0a 5b 61 63 61 |INT R;<<|90;.[aca|
|00002c80| 64 28 70 29 5d 5e 43 5e | 43 76 70 6f 69 6e 74 20 |d(p)]^C^|Cvpoint |
|00002c90| 30 2c 30 2c 31 0a 5b 61 | 63 61 64 28 6c 6f 29 5d |0,0,1.[a|cad(lo)]|
|00002ca0| 5e 43 5e 43 56 50 4f 49 | 4e 54 20 52 3b 3c 3c 32 |^C^CVPOI|NT R;<<2|
|00002cb0| 37 30 3b 0a 5b 61 63 61 | 64 28 75 73 65 72 29 5d |70;.[aca|d(user)]|
|00002cc0| 0a 5b 61 63 61 64 28 75 | 72 29 5d 5e 43 5e 43 56 |.[acad(u|r)]^C^CV|
|00002cd0| 50 4f 49 4e 54 20 52 3b | 3c 3c 34 35 3b 0a 5b 61 |POINT R;|<<45;.[a|
|00002ce0| 63 61 64 28 72 29 5d 5e | 43 5e 43 56 50 4f 49 4e |cad(r)]^|C^CVPOIN|
|00002cf0| 54 20 52 3b 3c 3c 30 3b | 0a 5b 61 63 61 64 28 6c |T R;<<0;|.[acad(l|
|00002d00| 72 29 5d 5e 43 5e 43 56 | 50 4f 49 4e 54 20 52 3b |r)]^C^CV|POINT R;|
|00002d10| 3c 3c 33 31 35 3b 0a 5b | 61 63 61 64 28 75 73 65 |<<315;.[|acad(use|
|00002d20| 72 29 5d 0a 5b 61 63 61 | 64 28 74 29 5d 56 50 4f |r)].[aca|d(t)]VPO|
|00002d30| 49 4e 54 3b 3b 0a 5b 61 | 63 61 64 28 68 29 5d 24 |INT;;.[a|cad(h)]$|
|00002d40| 53 3d 58 20 24 53 3d 48 | 49 44 45 0a 5b 20 45 78 |S=X $S=H|IDE.[ Ex|
|00002d50| 69 74 5d 5e 63 5e 63 0a | 0a 2a 2a 64 76 69 65 77 |it]^c^c.|.**dview|
|00002d60| 69 0a 5b 44 56 49 45 57 | 20 4f 70 74 69 6f 6e 73 |i.[DVIEW| Options|
|00002d70| 5d 0a 5b 61 63 61 64 28 | 64 76 63 61 29 5d 5e 43 |].[acad(|dvca)]^C|
|00002d80| 5e 43 24 53 3d 58 20 24 | 53 3d 44 56 49 45 57 20 |^C$S=X $|S=DVIEW |
|00002d90| 73 65 6c 65 63 74 3b 5c | 64 76 69 65 77 3b 70 3b |select;\|dview;p;|
|00002da0| 3b 63 61 3b 5c 5c 3b 0a | 5b 61 63 61 64 28 64 76 |;ca;\\;.|[acad(dv|
|00002db0| 7a 6f 29 5d 5e 43 5e 43 | 24 53 3d 58 20 24 53 3d |zo)]^C^C|$S=X $S=|
|00002dc0| 44 56 49 45 57 20 73 65 | 6c 65 63 74 3b 5c 64 76 |DVIEW se|lect;\dv|
|00002dd0| 69 65 77 3b 70 3b 3b 7a | 3b 5c 3b 0a 5b 61 63 61 |iew;p;;z|;\;.[aca|
|00002de0| 64 28 64 76 70 61 29 5d | 5e 43 5e 43 24 53 3d 58 |d(dvpa)]|^C^C$S=X|
|00002df0| 20 24 53 3d 44 56 49 45 | 57 20 73 65 6c 65 63 74 | $S=DVIE|W select|
|00002e00| 3b 5c 64 76 69 65 77 3b | 70 3b 3b 70 61 3b 5c 5c |;\dview;|p;;pa;\\|
|00002e10| 3b 0a 5b 20 45 78 69 74 | 5d 5e 63 5e 63 0a 0a 2a |;.[ Exit|]^c^c..*|
|00002e20| 2a 33 44 4f 62 6a 65 63 | 74 73 0a 5b 33 44 20 4f |*3DObjec|ts.[3D O|
|00002e30| 62 6a 65 63 74 73 20 61 | 6e 64 20 33 44 20 53 75 |bjects a|nd 3D Su|
|00002e40| 72 66 61 63 65 20 43 6f | 6d 6d 61 6e 64 73 5d 0a |rface Co|mmands].|
|00002e50| 5b 61 63 61 64 28 62 6f | 78 33 64 29 5d 5e 43 5e |[acad(bo|x3d)]^C^|
|00002e60| 43 5e 50 28 70 72 6f 67 | 6e 28 73 65 74 71 20 6d |C^P(prog|n(setq m|
|00002e70| 3a 65 72 72 20 2a 65 72 | 72 6f 72 2a 29 28 70 72 |:err *er|ror*)(pr|
|00002e80| 69 6e 31 29 29 2b 0a 28 | 64 65 66 75 6e 20 6d 3a |in1))+.(|defun m:|
|00002e90| 6c 33 64 20 28 29 28 63 | 6f 6e 64 20 28 28 6e 75 |l3d ()(c|ond ((nu|
|00002ea0| 6c 6c 20 43 3a 42 4f 58 | 29 28 76 6d 6f 6e 29 28 |ll C:BOX|)(vmon)(|
|00002eb0| 69 66 20 28 2f 3d 20 6e | 69 6c 20 28 66 69 6e 64 |if (/= n|il (find|
|00002ec0| 66 69 6c 65 20 22 33 64 | 2e 6c 73 70 22 29 29 2b |file "3d|.lsp"))+|
|00002ed0| 0a 28 70 72 6f 67 6e 20 | 28 74 65 72 70 72 69 29 |.(progn |(terpri)|
|00002ee0| 28 70 72 6f 6d 70 74 20 | 22 50 6c 65 61 73 65 20 |(prompt |"Please |
|00002ef0| 77 61 69 74 ff 2e 03 20 | 20 4c 6f 61 64 69 6e 67 |wait... | Loading|
|00002f00| 20 33 44 20 4f 62 6a 65 | 63 74 73 2e 20 20 22 29 | 3D Obje|cts. ")|
|00002f10| 3b 2b 0a 28 6c 6f 61 64 | 20 22 33 64 22 29 28 6d |;+.(load| "3d")(m|
|00002f20| 65 6e 75 63 6d 64 20 22 | 53 3d 58 22 29 28 6d 65 |enucmd "|S=X")(me|
|00002f30| 6e 75 63 6d 64 20 22 53 | 3d 33 44 32 22 29 28 70 |nucmd "S|=3D2")(p|
|00002f40| 72 69 6e 63 29 29 28 70 | 72 6f 67 6e 20 28 74 65 |rinc))(p|rogn (te|
|00002f50| 72 70 72 69 29 28 70 72 | 6f 6d 70 74 20 2b 0a 22 |rpri)(pr|ompt +."|
|00002f60| 54 68 65 20 66 69 6c 65 | 20 60 33 64 2e 6c 73 70 |The file| `3d.lsp|
|00002f70| 27 20 77 61 73 20 6e 6f | 74 20 66 6f 75 6e 64 20 |' was no|t found |
|00002f80| 69 6e 20 79 6f 75 72 20 | 63 75 72 72 65 6e 74 20 |in your |current |
|00002f90| 73 65 61 72 63 68 20 70 | 61 74 68 20 64 69 72 65 |search p|ath dire|
|00002fa0| 63 74 6f 72 69 65 73 2e | 20 22 29 28 74 65 72 70 |ctories.| ")(terp|
|00002fb0| 72 69 29 3b 2b 0a 28 70 | 72 6f 6d 70 74 20 22 43 |ri);+.(p|rompt "C|
|00002fc0| 68 65 63 6b 20 69 6e 73 | 74 61 6c 6c 61 74 69 6f |heck ins|tallatio|
|00002fd0| 6e 20 6f 66 20 74 68 65 | 20 53 75 70 70 6f 72 74 |n of the| Support|
|00002fe0| 20 46 69 6c 65 73 20 61 | 6e 64 20 74 72 79 20 61 | Files a|nd try a|
|00002ff0| 67 61 69 6e 2e 22 29 2b | 0a 28 70 72 69 6e 63 ff |gain.")+|.(princ.|
|00003000| 29 04 28 54 20 28 70 72 | 69 6e 63 ff 29 03 28 63 |).(T (pr|inc.).(c|
|00003010| 6f 6e 64 20 28 28 6e 6f | 74 20 28 6e 75 6c 6c 20 |ond ((no|t (null |
|00003020| 43 3a 42 4f 58 29 29 28 | 43 3a 42 4f 58 29 29 28 |C:BOX))(|C:BOX))(|
|00003030| 54 20 28 70 72 69 6e 63 | ff 29 03 3b 2b 0a 28 73 |T (princ|.).;+.(s|
|00003040| 65 74 71 20 2a 65 72 72 | 6f 72 2a 20 6d 3a 65 72 |etq *err|or* m:er|
|00003050| 72 20 6d 3a 65 72 72 20 | 6e 69 6c 29 29 28 64 65 |r m:err |nil))(de|
|00003060| 66 75 6e 20 2a 65 72 72 | 6f 72 2a 20 28 6d 73 67 |fun *err|or* (msg|
|00003070| 29 28 70 72 69 6e 63 20 | 6d 73 67 29 2b 0a 28 73 |)(princ |msg)+.(s|
|00003080| 65 74 71 20 2a 65 72 72 | 6f 72 2a 20 6d 3a 65 72 |etq *err|or* m:er|
|00003090| 72 20 6d 3a 65 72 72 20 | 6e 69 6c 29 28 70 72 69 |r m:err |nil)(pri|
|000030a0| 6e 31 29 29 28 6d 3a 6c | 33 64 29 28 70 72 69 6e |n1))(m:l|3d)(prin|
|000030b0| 63 29 20 5e 50 0a 5b 61 | 63 61 64 28 77 65 64 67 |c) ^P.[a|cad(wedg|
|000030c0| 65 29 5d 5e 43 5e 43 5e | 50 28 70 72 6f 67 6e 28 |e)]^C^C^|P(progn(|
|000030d0| 73 65 74 71 20 6d 3a 65 | 72 72 20 2a 65 72 72 6f |setq m:e|rr *erro|
|000030e0| 72 2a 29 28 70 72 69 6e | 63 29 29 3b 2b 0a 28 64 |r*)(prin|c));+.(d|
|000030f0| 65 66 75 6e 20 6d 3a 6c | 33 64 20 28 29 28 63 6f |efun m:l|3d ()(co|
|00003100| 6e 64 20 28 28 6e 75 6c | 6c 20 43 3a 42 4f 58 29 |nd ((nul|l C:BOX)|
|00003110| 28 76 6d 6f 6e 29 28 69 | 66 20 28 2f 3d 20 6e 69 |(vmon)(i|f (/= ni|
|00003120| 6c 20 28 66 69 6e 64 66 | 69 6c 65 20 22 33 64 2e |l (findf|ile "3d.|
|00003130| 6c 73 70 22 29 29 2b 0a | 28 70 72 6f 67 6e 20 28 |lsp"))+.|(progn (|
|00003140| 74 65 72 70 72 69 29 28 | 70 72 6f 6d 70 74 20 22 |terpri)(|prompt "|
|00003150| 50 6c 65 61 73 65 20 77 | 61 69 74 ff 2e 03 20 20 |Please w|ait... |
|00003160| 4c 6f 61 64 69 6e 67 20 | 33 44 20 4f 62 6a 65 63 |Loading |3D Objec|
|00003170| 74 73 2e 20 20 22 29 3b | 2b 0a 28 6c 6f 61 64 20 |ts. ");|+.(load |
|00003180| 22 33 64 22 29 28 6d 65 | 6e 75 63 6d 64 20 22 53 |"3d")(me|nucmd "S|
|00003190| 3d 58 22 29 28 6d 65 6e | 75 63 6d 64 20 22 53 3d |=X")(men|ucmd "S=|
|000031a0| 33 44 32 22 29 28 70 72 | 69 6e 63 29 29 28 70 72 |3D2")(pr|inc))(pr|
|000031b0| 6f 67 6e 20 28 74 65 72 | 70 72 69 29 28 70 72 6f |ogn (ter|pri)(pro|
|000031c0| 6d 70 74 20 2b 0a 22 54 | 68 65 20 66 69 6c 65 20 |mpt +."T|he file |
|000031d0| 60 33 64 2e 6c 73 70 27 | 20 77 61 73 20 6e 6f 74 |`3d.lsp'| was not|
|000031e0| 20 66 6f 75 6e 64 20 69 | 6e 20 79 6f 75 72 20 63 | found i|n your c|
|000031f0| 75 72 72 65 6e 74 20 73 | 65 61 72 63 68 20 70 61 |urrent s|earch pa|
|00003200| 74 68 20 64 69 72 65 63 | 74 6f 72 69 65 73 2e 20 |th direc|tories. |
|00003210| 22 29 28 74 65 72 70 72 | 69 29 3b 2b 0a 28 70 72 |")(terpr|i);+.(pr|
|00003220| 6f 6d 70 74 20 22 43 68 | 65 63 6b 20 69 6e 73 74 |ompt "Ch|eck inst|
|00003230| 61 6c 6c 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |allation| of the |
|00003240| 53 75 70 70 6f 72 74 20 | 46 69 6c 65 73 20 61 6e |Support |Files an|
|00003250| 64 20 74 72 79 20 61 67 | 61 69 6e 2e 22 29 2b 0a |d try ag|ain.")+.|
|00003260| 28 70 72 69 6e 63 ff 29 | 04 28 54 20 28 70 72 69 |(princ.)|.(T (pri|
|00003270| 6e 63 ff 29 03 28 63 6f | 6e 64 20 28 28 6e 6f 74 |nc.).(co|nd ((not|
|00003280| 20 28 6e 75 6c 6c 20 43 | 3a 57 45 44 47 45 29 29 | (null C|:WEDGE))|
|00003290| 28 43 3a 57 45 44 47 45 | 29 29 28 54 20 28 70 72 |(C:WEDGE|))(T (pr|
|000032a0| 69 6e 63 ff 29 03 3b 2b | 0a 28 73 65 74 71 20 2a |inc.).;+|.(setq *|
|000032b0| 65 72 72 6f 72 2a 20 6d | 3a 65 72 72 20 6d 3a 65 |error* m|:err m:e|
|000032c0| 72 72 20 6e 69 6c 29 29 | 28 64 65 66 75 6e 20 2a |rr nil))|(defun *|
|000032d0| 65 72 72 6f 72 2a 20 28 | 6d 73 67 29 28 70 72 69 |error* (|msg)(pri|
|000032e0| 6e 63 20 6d 73 67 29 2b | 0a 28 73 65 74 71 20 2a |nc msg)+|.(setq *|
|000032f0| 65 72 72 6f 72 2a 20 6d | 3a 65 72 72 20 6d 3a 65 |error* m|:err m:e|
|00003300| 72 72 20 6e 69 6c 29 28 | 70 72 69 6e 31 29 29 28 |rr nil)(|prin1))(|
|00003310| 6d 3a 6c 33 64 29 28 70 | 72 69 6e 63 29 20 5e 50 |m:l3d)(p|rinc) ^P|
|00003320| 0a 5b 61 63 61 64 28 72 | 65 76 29 5d 5e 43 5e 43 |.[acad(r|ev)]^C^C|
|00003330| 24 53 3d 58 20 24 53 3d | 33 44 20 72 65 76 73 75 |$S=X $S=|3D revsu|
|00003340| 72 66 0a 5b 61 63 61 64 | 28 73 75 72 66 74 61 62 |rf.[acad|(surftab|
|00003350| 31 29 5d 27 73 65 74 76 | 61 72 20 73 75 72 66 74 |1)]'setv|ar surft|
|00003360| 61 62 31 20 5c 24 49 3d | 2a 0a 5b 61 63 61 64 28 |ab1 \$I=|*.[acad(|
|00003370| 70 79 72 61 6d 69 64 29 | 5d 5e 43 5e 43 5e 50 28 |pyramid)|]^C^C^P(|
|00003380| 70 72 6f 67 6e 28 73 65 | 74 71 20 6d 3a 65 72 72 |progn(se|tq m:err|
|00003390| 20 2a 65 72 72 6f 72 2a | 29 28 70 72 69 6e 63 29 | *error*|)(princ)|
|000033a0| 29 2b 0a 28 64 65 66 75 | 6e 20 6d 3a 6c 33 64 20 |)+.(defu|n m:l3d |
|000033b0| 28 29 28 63 6f 6e 64 20 | 28 28 6e 75 6c 6c 20 43 |()(cond |((null C|
|000033c0| 3a 42 4f 58 29 28 76 6d | 6f 6e 29 28 69 66 20 28 |:BOX)(vm|on)(if (|
|000033d0| 2f 3d 20 6e 69 6c 20 28 | 66 69 6e 64 66 69 6c 65 |/= nil (|findfile|
|000033e0| 20 22 33 64 2e 6c 73 70 | 22 29 29 2b 0a 28 70 72 | "3d.lsp|"))+.(pr|
|000033f0| 6f 67 6e 20 28 74 65 72 | 70 72 69 29 28 70 72 6f |ogn (ter|pri)(pro|
|00003400| 6d 70 74 20 22 50 6c 65 | 61 73 65 20 77 61 69 74 |mpt "Ple|ase wait|
|00003410| ff 2e 03 20 20 4c 6f 61 | 64 69 6e 67 20 33 44 20 |... Loa|ding 3D |
|00003420| 4f 62 6a 65 63 74 73 2e | 20 20 22 29 3b 2b 0a 28 |Objects.| ");+.(|
|00003430| 6c 6f 61 64 20 22 33 64 | 22 29 28 6d 65 6e 75 63 |load "3d|")(menuc|
|00003440| 6d 64 20 22 53 3d 58 22 | 29 28 6d 65 6e 75 63 6d |md "S=X"|)(menucm|
|00003450| 64 20 22 53 3d 33 44 32 | 22 29 28 70 72 69 6e 63 |d "S=3D2|")(princ|
|00003460| 29 29 28 70 72 6f 67 6e | 20 28 74 65 72 70 72 69 |))(progn| (terpri|
|00003470| 29 28 70 72 6f 6d 70 74 | 20 2b 0a 22 54 68 65 20 |)(prompt| +."The |
|00003480| 66 69 6c 65 20 60 33 64 | 2e 6c 73 70 27 20 77 61 |file `3d|.lsp' wa|
|00003490| 73 20 6e 6f 74 f3 1d ff | 20 66 6f 75 6e 64 20 69 |s not...| found i|
|000034a0| 6e 20 79 6f 75 72 20 63 | 75 72 72 65 6e 74 20 73 |n your c|urrent s|
|000034b0| 65 61 72 63 68 20 70 61 | 74 68 20 64 69 72 65 63 |earch pa|th direc|
|000034c0| 74 6f 72 69 65 73 2e 20 | 22 29 28 74 65 72 70 72 |tories. |")(terpr|
|000034d0| 69 29 3b 2b 0a 28 70 72 | 6f 6d 70 74 20 22 43 68 |i);+.(pr|ompt "Ch|
|000034e0| 65 63 6b 20 69 6e 73 74 | 61 6c 6c 61 74 69 6f 6e |eck inst|allation|
|000034f0| 20 6f 66 20 74 68 65 20 | 53 75 70 70 6f 72 74 20 | of the |Support |
|00003500| 46 69 6c 65 73 20 61 6e | 64 20 74 72 79 20 61 67 |Files an|d try ag|
|00003510| 61 69 6e 2e 22 29 2b 0a | 28 70 72 69 6e 63 ff 29 |ain.")+.|(princ.)|
|00003520| 04 28 54 20 28 70 72 69 | 6e 63 ff 29 03 28 63 6f |.(T (pri|nc.).(co|
|00003530| 6e 64 20 28 28 6e 6f 74 | 20 28 6e 75 6c 6c 20 43 |nd ((not| (null C|
|00003540| 3a 50 59 52 41 4d 49 44 | 29 29 28 43 3a 50 59 52 |:PYRAMID|))(C:PYR|
|00003550| 41 4d 49 44 29 29 28 54 | 20 28 70 72 69 6e 63 ff |AMID))(T| (princ.|
|00003560| 29 03 3b 2b 0a 28 73 65 | 74 71 20 2a 65 72 72 6f |).;+.(se|tq *erro|
|00003570| 72 2a 20 6d 3a 65 72 72 | 20 6d 3a 65 72 72 20 6e |r* m:err| m:err n|
|00003580| 69 6c 29 29 28 64 65 66 | 75 6e 20 2a 65 72 72 6f |il))(def|un *erro|
|00003590| 72 2a 20 28 6d 73 67 29 | 28 70 72 69 6e 63 20 6d |r* (msg)|(princ m|
|000035a0| 73 67 29 2b 0a 28 73 65 | 74 71 20 2a 65 72 72 6f |sg)+.(se|tq *erro|
|000035b0| 72 2a 20 6d 3a 65 72 72 | 20 6d 3a 65 72 72 20 6e |r* m:err| m:err n|
|000035c0| 69 6c 29 28 70 72 69 6e | 31 29 29 28 6d 3a 6c 33 |il)(prin|1))(m:l3|
|000035d0| 64 29 28 70 72 69 6e 63 | 29 20 5e 50 0a 5b 61 63 |d)(princ|) ^P.[ac|
|000035e0| 61 64 28 63 6f 6e 65 29 | 5d 5e 43 5e 43 5e 50 28 |ad(cone)|]^C^C^P(|
|000035f0| 70 72 6f 67 6e 28 73 65 | 74 71 20 6d 3a 65 72 72 |progn(se|tq m:err|
|00003600| 20 2a 65 72 72 6f 72 2a | 29 28 70 72 69 6e 63 29 | *error*|)(princ)|
|00003610| 29 3b 2b 0a 28 64 65 66 | 75 6e 20 6d 3a 6c 33 64 |);+.(def|un m:l3d|
|00003620| 20 28 29 28 63 6f 6e 64 | 20 28 28 6e 75 6c 6c 20 | ()(cond| ((null |
|00003630| 43 3a 42 4f 58 29 28 76 | 6d 6f 6e 29 28 69 66 20 |C:BOX)(v|mon)(if |
|00003640| 28 2f 3d 20 6e 69 6c 20 | 28 66 69 6e 64 66 69 6c |(/= nil |(findfil|
|00003650| 65 20 22 33 64 2e 6c 73 | 70 22 29 29 2b 0a 28 70 |e "3d.ls|p"))+.(p|
|00003660| 72 6f 67 6e 20 28 74 65 | 72 70 72 69 29 28 70 72 |rogn (te|rpri)(pr|
|00003670| 6f 6d 70 74 20 22 50 6c | 65 61 73 65 20 77 61 69 |ompt "Pl|ease wai|
|00003680| 74 ff 2e 03 20 20 4c 6f | 61 64 69 6e 67 20 33 44 |t... Lo|ading 3D|
|00003690| 20 4f 62 6a 65 63 74 73 | 2e 20 20 22 29 3b 2b 0a | Objects|. ");+.|
|000036a0| 28 6c 6f 61 64 20 22 33 | 64 22 29 28 6d 65 6e 75 |(load "3|d")(menu|
|000036b0| 63 6d 64 20 22 53 3d 58 | 22 29 28 6d 65 6e 75 63 |cmd "S=X|")(menuc|
|000036c0| 6d 64 20 22 53 3d 33 44 | 32 22 29 28 70 72 69 6e |md "S=3D|2")(prin|
|000036d0| 63 29 29 28 70 72 6f 67 | 6e 20 28 74 65 72 70 72 |c))(prog|n (terpr|
|000036e0| 69 29 28 70 72 6f 6d 70 | 74 20 2b 0a 22 54 68 65 |i)(promp|t +."The|
|000036f0| 20 66 69 6c 65 20 60 33 | 64 2e 6c 73 70 27 20 77 | file `3|d.lsp' w|
|00003700| 61 73 20 6e 6f 74 20 66 | 6f 75 6e 64 20 69 6e 20 |as not f|ound in |
|00003710| 79 6f 75 72 20 63 75 72 | 72 65 6e 74 20 73 65 61 |your cur|rent sea|
|00003720| 72 63 68 20 70 61 74 68 | 20 64 69 72 65 63 74 6f |rch path| directo|
|00003730| 72 69 65 73 2e 20 22 29 | 28 74 65 72 70 72 69 29 |ries. ")|(terpri)|
|00003740| 3b 2b 0a 28 70 72 6f 6d | 70 74 20 22 43 68 65 63 |;+.(prom|pt "Chec|
|00003750| 6b 20 69 6e 73 74 61 6c | 6c 61 74 69 6f 6e 20 6f |k instal|lation o|
|00003760| 66 20 74 68 65 20 53 75 | 70 70 6f 72 74 20 46 69 |f the Su|pport Fi|
|00003770| 6c 65 73 20 61 6e 64 20 | 74 72 79 20 61 67 61 69 |les and |try agai|
|00003780| 6e 2e 22 29 2b 0a 28 70 | 72 69 6e 63 ff 29 04 28 |n.")+.(p|rinc.).(|
|00003790| 54 20 28 70 72 69 6e 63 | ff 29 03 28 63 6f 6e 64 |T (princ|.).(cond|
|000037a0| 20 28 28 6e 6f 74 20 28 | 6e 75 6c 6c 20 43 3a 43 | ((not (|null C:C|
|000037b0| 4f 4e 45 29 29 28 43 3a | 43 4f 4e 45 29 29 28 54 |ONE))(C:|CONE))(T|
|000037c0| 20 28 70 72 69 6e 63 ff | 29 03 3b 2b 0a 28 73 65 | (princ.|).;+.(se|
|000037d0| 74 71 20 2a 65 72 72 6f | 72 2a 20 6d 3a 65 72 72 |tq *erro|r* m:err|
|000037e0| 20 6d 3a 65 72 72 20 6e | 69 6c 29 29 28 64 65 66 | m:err n|il))(def|
|000037f0| 75 6e 20 2a 65 72 72 6f | 72 2a 20 28 6d 73 67 29 |un *erro|r* (msg)|
|00003800| 28 70 72 69 6e 63 20 6d | 73 67 29 2b 0a 28 73 65 |(princ m|sg)+.(se|
|00003810| 74 71 20 2a 65 72 72 6f | 72 2a 20 6d 3a 65 72 72 |tq *erro|r* m:err|
|00003820| 20 6d 3a 65 72 72 20 6e | 69 6c 29 28 70 72 69 6e | m:err n|il)(prin|
|00003830| 31 29 29 28 6d 3a 6c 33 | 64 29 28 70 72 69 6e 63 |1))(m:l3|d)(princ|
|00003840| 29 20 5e 50 0a 5b 61 63 | 61 64 28 72 75 6c 29 5d |) ^P.[ac|ad(rul)]|
|00003850| 5e 43 5e 43 24 53 3d 58 | 20 24 53 3d 33 44 20 72 |^C^C$S=X| $S=3D r|
|00003860| 75 6c 65 73 75 72 66 0a | 5b 61 63 61 64 28 73 75 |ulesurf.|[acad(su|
|00003870| 72 66 74 61 62 32 29 5d | 27 73 65 74 76 61 72 20 |rftab2)]|'setvar |
|00003880| 73 75 72 66 74 61 62 32 | 20 5c 24 49 3d 2a 0a 5b |surftab2| \$I=*.[|
|00003890| 61 63 61 64 28 64 6f 6d | 65 29 5d 5e 43 5e 43 5e |acad(dom|e)]^C^C^|
|000038a0| 50 28 70 72 6f 67 6e 28 | 73 65 74 71 20 6d 3a 65 |P(progn(|setq m:e|
|000038b0| 72 72 20 2a 65 72 72 6f | 72 2a 29 28 70 72 69 6e |rr *erro|r*)(prin|
|000038c0| 63 29 29 3b 2b 0a 28 64 | 65 66 75 6e 20 6d 3a 6c |c));+.(d|efun m:l|
|000038d0| 33 64 20 28 29 28 63 6f | 6e 64 20 28 28 6e 75 6c |3d ()(co|nd ((nul|
|000038e0| 6c 20 43 3a 42 4f 58 29 | 28 76 6d 6f 6e 29 28 69 |l C:BOX)|(vmon)(i|
|000038f0| 66 20 28 2f 3d 20 6e 69 | 6c 20 28 66 69 6e 64 66 |f (/= ni|l (findf|
|00003900| 69 6c 65 20 22 33 64 2e | 6c 73 70 22 29 29 2b 0a |ile "3d.|lsp"))+.|
|00003910| 28 70 72 6f 67 6e 20 28 | 74 65 72 70 72 69 29 28 |(progn (|terpri)(|
|00003920| 70 72 6f 6d 70 74 20 22 | 50 6c 65 61 73 65 20 77 |prompt "|Please w|
|00003930| 61 69 74 ff 2e 03 20 20 | 4c 6f 61 64 69 6e 67 20 |ait... |Loading |
|00003940| 33 44 20 4f 62 6a 65 63 | 74 73 2e 20 20 22 29 3b |3D Objec|ts. ");|
|00003950| 2b 0a 28 6c 6f 61 64 20 | 22 33 64 22 29 28 6d 65 |+.(load |"3d")(me|
|00003960| 6e 75 63 6d 64 20 22 53 | 3d 58 22 29 28 6d 65 6e |nucmd "S|=X")(men|
|00003970| 75 63 6d 64 20 22 53 3d | 33 44 32 22 29 28 70 72 |ucmd "S=|3D2")(pr|
|00003980| 69 6e 63 29 29 28 70 72 | 6f 67 6e 20 28 74 65 72 |inc))(pr|ogn (ter|
|00003990| 70 72 69 29 28 70 72 6f | 6d 70 74 20 2b 0a 22 54 |pri)(pro|mpt +."T|
|000039a0| 68 65 20 66 69 6c 65 20 | 60 33 64 2e 6c 73 70 27 |he file |`3d.lsp'|
|000039b0| 20 77 61 73 20 6e 6f 74 | 20 66 6f 75 6e 64 20 69 | was not| found i|
|000039c0| 6e 20 79 6f 75 72 20 63 | 75 72 72 65 6e 74 20 73 |n your c|urrent s|
|000039d0| 65 61 72 63 68 20 70 61 | 74 68 20 64 69 72 65 63 |earch pa|th direc|
|000039e0| 74 6f 72 69 65 73 2e 20 | 22 29 28 74 65 72 70 72 |tories. |")(terpr|
|000039f0| 69 29 3b 2b 0a 28 70 72 | 6f 6d 70 74 20 22 43 68 |i);+.(pr|ompt "Ch|
|00003a00| 65 63 6b 20 69 6e 73 74 | 61 6c 6c 61 74 69 6f 6e |eck inst|allation|
|00003a10| 20 6f 66 20 74 68 65 20 | 53 75 70 70 6f 72 74 20 | of the |Support |
|00003a20| 46 69 6c 65 73 20 61 6e | 64 20 74 72 79 20 61 67 |Files an|d try ag|
|00003a30| 61 69 6e 2e 22 29 2b 0a | 28 70 72 69 6e 63 ff 29 |ain.")+.|(princ.)|
|00003a40| 04 28 54 20 28 70 72 69 | 6e 63 ff 29 03 28 63 6f |.(T (pri|nc.).(co|
|00003a50| 6e 64 20 28 28 6e 6f 74 | 20 28 6e 75 6c 6c 20 43 |nd ((not| (null C|
|00003a60| 3a 44 4f 4d 45 29 29 28 | 43 3a 44 4f 4d 45 29 29 |:DOME))(|C:DOME))|
|00003a70| 28 54 20 28 70 72 69 6e | 63 ff 29 03 3b 2b 0a 28 |(T (prin|c.).;+.(|
|00003a80| 73 65 74 71 20 2a 65 72 | 72 6f 72 2a 20 6d 3a 65 |setq *er|ror* m:e|
|00003a90| 72 72 20 6d 3a 65 72 72 | 20 6e 69 6c 29 29 28 64 |rr m:err| nil))(d|
|00003aa0| 65 66 75 6e 20 2a 65 72 | 72 6f 72 2a 20 28 6d 73 |efun *er|ror* (ms|
|00003ab0| 67 29 28 70 72 69 6e 63 | 20 6d 73 67 29 2b 0a 28 |g)(princ| msg)+.(|
|00003ac0| 73 65 74 71 20 2a 65 72 | 72 6f 72 2a 20 6d 3a 65 |setq *er|ror* m:e|
|00003ad0| 72 72 20 6d 3a 65 72 72 | 20 6e 69 6c 29 28 70 72 |rr m:err| nil)(pr|
|00003ae0| 69 6e 31 29 29 28 6d 3a | 6c 33 64 29 28 70 72 69 |in1))(m:|l3d)(pri|
|00003af0| 6e 63 29 20 5e 50 0a 5b | 61 63 61 64 28 64 69 73 |nc) ^P.[|acad(dis|
|00003b00| 68 29 5d 5e 43 5e 43 5e | 50 28 70 72 6f 67 6e 28 |h)]^C^C^|P(progn(|
|00003b10| 73 65 74 71 20 6d 3a 65 | 72 72 20 2a 65 72 72 6f |setq m:e|rr *erro|
|00003b20| 72 2a 29 28 70 72 69 6e | 63 29 29 3b 2b 0a 28 64 |r*)(prin|c));+.(d|
|00003b30| 65 66 75 6e 20 6d 3a 6c | 33 64 20 28 29 28 63 6f |efun m:l|3d ()(co|
|00003b40| 6e 64 20 28 28 6e 75 6c | 6c 20 43 3a 42 4f 58 29 |nd ((nul|l C:BOX)|
|00003b50| 28 76 6d 6f 6e 29 28 69 | 66 20 28 2f 3d 20 6e 69 |(vmon)(i|f (/= ni|
|00003b60| 6c 20 28 66 69 6e 64 66 | 69 6c 65 20 22 33 64 2e |l (findf|ile "3d.|
|00003b70| 6c 73 70 22 29 29 2b 0a | 28 70 72 6f 67 6e 20 28 |lsp"))+.|(progn (|
|00003b80| 74 65 72 70 72 69 29 28 | 70 72 6f 6d 70 74 20 22 |terpri)(|prompt "|
|00003b90| 50 6c 65 61 73 65 20 77 | 61 69 74 ff 2e 03 20 20 |Please w|ait... |
|00003ba0| 4c 6f 61 64 69 6e 67 20 | 33 44 20 4f 62 6a 65 63 |Loading |3D Objec|
|00003bb0| 74 73 2e 20 20 22 29 3b | 2b 0a 28 6c 6f 61 64 20 |ts. ");|+.(load |
|00003bc0| 22 33 64 22 29 28 6d 65 | 6e 75 63 6d 64 20 22 53 |"3d")(me|nucmd "S|
|00003bd0| 3d 58 22 29 28 6d 65 6e | 75 63 6d 64 20 22 53 3d |=X")(men|ucmd "S=|
|00003be0| 33 44 32 22 29 28 70 72 | 69 6e 63 29 29 28 70 72 |3D2")(pr|inc))(pr|
|00003bf0| 6f 67 6e 20 28 74 65 72 | 70 72 69 29 28 70 72 6f |ogn (ter|pri)(pro|
|00003c00| 6d 70 74 20 2b 0a 22 54 | 68 65 20 66 69 6c 65 20 |mpt +."T|he file |
|00003c10| 60 33 64 2e 6c 73 70 27 | 20 77 61 73 20 6e 6f 74 |`3d.lsp'| was not|
|00003c20| 20 66 6f 75 6e 64 20 69 | 6e 20 79 6f 75 72 20 63 | found i|n your c|
|00003c30| 75 72 72 65 6e 74 20 73 | 65 61 72 63 68 20 70 61 |urrent s|earch pa|
|00003c40| 74 68 20 64 69 72 65 63 | 74 6f 72 69 65 73 2e 20 |th direc|tories. |
|00003c50| 22 29 28 74 65 72 70 72 | 69 29 3b 2b 0a 28 70 72 |")(terpr|i);+.(pr|
|00003c60| 6f 6d 70 74 20 22 43 68 | 65 63 6b 20 69 6e 73 74 |ompt "Ch|eck inst|
|00003c70| 61 6c 6c 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |allation| of the |
|00003c80| 53 75 70 70 6f 72 74 20 | 46 69 6c 65 73 20 61 6e |Support |Files an|
|00003c90| 64 20 74 72 79 20 61 67 | 61 69 6e 2e 22 29 2b 0a |d try ag|ain.")+.|
|00003ca0| 28 70 72 69 6e 63 ff 29 | 04 28 54 20 28 70 72 69 |(princ.)|.(T (pri|
|00003cb0| 6e 63 ff 29 03 28 63 6f | 6e 64 20 28 28 6e 6f 74 |nc.).(co|nd ((not|
|00003cc0| 20 28 6e 75 6c 6c 20 43 | 3a 44 49 53 48 29 29 28 | (null C|:DISH))(|
|00003cd0| 43 3a 44 49 53 48 29 29 | 28 54 20 28 70 72 69 6e |C:DISH))|(T (prin|
|00003ce0| 63 ff 29 03 3b 2b 0a 28 | 73 65 74 71 20 2a 65 72 |c.).;+.(|setq *er|
|00003cf0| 72 6f 72 2a 20 6d 3a 65 | 72 72 20 6d 3a 65 72 72 |ror* m:e|rr m:err|
|00003d00| 20 6e 69 6c 29 29 28 64 | 65 66 75 6e 20 2a 65 72 | nil))(d|efun *er|
|00003d10| 72 6f 72 2a 20 28 6d 73 | 67 29 28 70 72 69 6e 63 |ror* (ms|g)(princ|
|00003d20| 20 6d 73 67 29 2b 0a 28 | 73 65 74 71 20 2a 65 72 | msg)+.(|setq *er|
|00003d30| 72 6f 72 2a 20 6d 3a 65 | 72 72 20 6d 3a 65 72 72 |ror* m:e|rr m:err|
|00003d40| 20 6e 69 6c 29 28 70 72 | 69 6e 31 29 29 28 6d 3a | nil)(pr|in1))(m:|
|00003d50| 6c 33 64 29 28 70 72 69 | 6e 63 29 20 5e 50 0a 5b |l3d)(pri|nc) ^P.[|
|00003d60| 61 63 61 64 28 65 64 67 | 29 5d 5e 43 5e 43 24 53 |acad(edg|)]^C^C$S|
|00003d70| 3d 58 20 24 53 3d 33 44 | 20 65 64 67 65 73 75 72 |=X $S=3D| edgesur|
|00003d80| 66 0a 5b 61 63 61 64 28 | 6d 65 73 68 29 5d 5e 43 |f.[acad(|mesh)]^C|
|00003d90| 5e 43 5e 50 28 70 72 6f | 67 6e 28 73 65 74 71 20 |^C^P(pro|gn(setq |
|00003da0| 6d 3a 65 72 72 20 2a 65 | 72 72 6f 72 2a 29 28 70 |m:err *e|rror*)(p|
|00003db0| 72 69 6e 63 29 29 3b 2b | 0a 28 64 65 66 75 6e 20 |rinc));+|.(defun |
|00003dc0| 6d 3a 6c 33 64 20 28 29 | 28 63 6f 6e 64 20 28 28 |m:l3d ()|(cond ((|
|00003dd0| 6e 75 6c 6c 20 43 3a 42 | 4f 58 29 28 76 6d 6f 6e |null C:B|OX)(vmon|
|00003de0| 29 28 69 66 20 28 2f 3d | 20 6e 69 6c 20 28 66 69 |)(if (/=| nil (fi|
|00003df0| 6e 64 66 69 6c 65 20 22 | 33 64 2e 6c 73 70 22 29 |ndfile "|3d.lsp")|
|00003e00| 29 2b 0a 28 70 72 6f 67 | 6e 20 28 74 65 72 70 72 |)+.(prog|n (terpr|
|00003e10| 69 29 28 70 72 6f 6d 70 | 74 20 22 50 6c 65 61 73 |i)(promp|t "Pleas|
|00003e20| 65 20 77 61 69 74 ff 2e | 03 20 20 4c 6f 61 64 69 |e wait..|. Loadi|
|00003e30| 6e 67 20 33 44 20 4f 62 | 6a 65 63 74 73 2e 20 20 |ng 3D Ob|jects. |
|00003e40| 22 29 3b 2b 0a 28 6c 6f | 61 64 20 22 33 64 22 29 |");+.(lo|ad "3d")|
|00003e50| 28 6d 65 6e 75 63 6d 64 | 20 22 53 3d 58 22 29 28 |(menucmd| "S=X")(|
|00003e60| 6d 65 6e 75 63 6d 64 20 | 22 53 3d 33 44 32 22 29 |menucmd |"S=3D2")|
|00003e70| 28 70 72 69 6e 63 29 29 | 28 70 72 6f 67 6e 20 28 |(princ))|(progn (|
|00003e80| 74 65 72 70 72 69 29 28 | 70 72 6f 6d 70 74 20 2b |terpri)(|prompt +|
|00003e90| 0a 22 54 68 65 20 66 69 | 6c 65 20 60 33 64 2e 6c |."The fi|le `3d.l|
|00003ea0| 73 70 27 20 77 61 73 20 | 6e 6f 74 20 66 6f 75 6e |sp' was |not foun|
|00003eb0| 64 20 69 6e 20 79 6f 75 | 72 20 63 75 72 72 65 6e |d in you|r curren|
|00003ec0| 74 20 73 65 61 72 63 68 | 20 70 61 74 68 20 64 69 |t search| path di|
|00003ed0| 72 65 63 74 6f 72 69 65 | 73 2e 20 22 29 28 74 65 |rectorie|s. ")(te|
|00003ee0| 72 70 72 69 29 3b 2b 0a | 28 70 72 6f 6d 70 74 20 |rpri);+.|(prompt |
|00003ef0| 22 43 68 65 63 6b 20 69 | 6e 73 74 61 6c 6c 61 74 |"Check i|nstallat|
|00003f00| 69 6f 6e 20 6f 66 20 74 | 68 65 20 53 75 70 70 6f |ion of t|he Suppo|
|00003f10| 72 74 20 46 69 6c 65 73 | 20 61 6e 64 20 74 72 79 |rt Files| and try|
|00003f20| 20 61 67 61 69 6e 2e 22 | 29 2b 0a 28 70 72 69 6e | again."|)+.(prin|
|00003f30| 63 ff 29 04 28 54 20 28 | 70 72 69 6e 63 ff 29 03 |c.).(T (|princ.).|
|00003f40| 28 63 6f 6e 64 20 28 28 | 6e 6f 74 20 28 6e 75 6c |(cond ((|not (nul|
|00003f50| 6c 20 43 3a 4d 45 53 48 | 29 29 28 43 3a 4d 45 53 |l C:MESH|))(C:MES|
|00003f60| 48 29 29 28 54 20 28 70 | 72 69 6e 63 ff 29 03 3b |H))(T (p|rinc.).;|
|00003f70| 2b 0a 28 73 65 74 71 20 | 2a 65 72 72 6f 72 2a 20 |+.(setq |*error* |
|00003f80| 6d 3a 65 72 72 20 6d 3a | 65 72 72 20 6e 69 6c 29 |m:err m:|err nil)|
|00003f90| 29 28 64 65 66 75 6e 20 | 2a 65 72 72 6f 72 2a 20 |)(defun |*error* |
|00003fa0| 28 6d 73 67 29 28 70 72 | 69 6e 63 20 6d 73 67 29 |(msg)(pr|inc msg)|
|00003fb0| 2b 0a 28 73 65 74 71 20 | 2a 65 72 72 6f 72 2a 20 |+.(setq |*error* |
|00003fc0| 6d 3a 65 72 72 20 6d 3a | 65 72 72 20 6e 69 6c 29 |m:err m:|err nil)|
|00003fd0| 28 70 72 69 6e 31 29 29 | 28 6d 3a 6c 33 64 29 28 |(prin1))|(m:l3d)(|
|00003fe0| 70 72 69 6e 63 29 20 5e | 50 0a 5b 61 63 61 64 28 |princ) ^|P.[acad(|
|00003ff0| 73 70 68 65 72 65 29 5d | 5e 43 5e 43 5e 50 28 70 |sphere)]|^C^C^P(p|
|00004000| 72 6f 67 6e 28 73 65 74 | 71 20 6d 3a 65 72 72 20 |rogn(set|q m:err |
|00004010| 2a 65 72 72 6f 72 2a 29 | 28 70 72 69 6e 63 29 29 |*error*)|(princ))|
|00004020| 3b 2b 0a 28 64 65 66 75 | 6e 20 6d 3a 6c 33 64 20 |;+.(defu|n m:l3d |
|00004030| 28 29 28 63 6f 6e 64 20 | 28 28 6e 75 6c 6c 20 43 |()(cond |((null C|
|00004040| 3a 42 4f 58 29 28 76 6d | 6f 6e 29 28 69 66 20 28 |:BOX)(vm|on)(if (|
|00004050| 2f 3d 20 6e 69 6c 20 28 | 66 69 6e 64 66 69 6c 65 |/= nil (|findfile|
|00004060| 20 22 33 64 2e 6c 73 70 | 22 29 29 2b 0a 28 70 72 | "3d.lsp|"))+.(pr|
|00004070| 6f 67 6e 20 28 74 65 72 | 70 72 69 29 28 70 72 6f |ogn (ter|pri)(pro|
|00004080| 6d 70 74 20 22 50 6c 65 | 61 73 65 20 77 61 69 74 |mpt "Ple|ase wait|
|00004090| ff 2e 03 20 20 4c 6f 61 | 64 69 6e 67 20 33 44 20 |... Loa|ding 3D |
|000040a0| 4f 62 6a 65 63 74 73 2e | 20 20 22 29 3b 2b 0a 28 |Objects.| ");+.(|
|000040b0| 6c 6f 61 64 20 22 33 64 | 22 29 28 6d 65 6e 75 63 |load "3d|")(menuc|
|000040c0| 6d 64 20 22 53 3d 58 22 | 29 28 6d 65 6e 75 63 6d |md "S=X"|)(menucm|
|000040d0| 64 20 22 53 3d 33 44 32 | 22 29 28 70 72 69 6e 63 |d "S=3D2|")(princ|
|000040e0| 29 29 28 70 72 6f 67 6e | 20 28 74 65 72 70 72 69 |))(progn| (terpri|
|000040f0| 29 28 70 72 6f 6d 70 74 | 20 2b 0a 22 54 68 65 20 |)(prompt| +."The |
|00004100| 66 69 6c 65 20 60 33 64 | 2e 6c 73 70 27 20 77 61 |file `3d|.lsp' wa|
|00004110| 73 20 6e 6f 74 20 66 6f | 75 6e 64 20 69 6e 20 79 |s not fo|und in y|
|00004120| 6f 75 72 20 63 75 72 72 | 65 6e 74 20 73 65 61 72 |our curr|ent sear|
|00004130| 63 68 20 70 61 74 68 20 | 64 69 72 65 63 74 6f 72 |ch path |director|
|00004140| 69 65 73 2e 20 22 29 28 | 74 65 72 70 72 69 29 3b |ies. ")(|terpri);|
|00004150| 2b 0a 28 70 72 6f 6d 70 | 74 20 22 43 68 65 63 6b |+.(promp|t "Check|
|00004160| 20 69 6e 73 74 61 6c 6c | 61 74 69 6f 6e 20 6f 66 | install|ation of|
|00004170| 20 74 68 65 20 53 75 70 | 70 6f 72 74 20 46 69 6c | the Sup|port Fil|
|00004180| 65 73 20 61 6e 64 20 74 | 72 79 20 61 67 61 69 6e |es and t|ry again|
|00004190| 2e 22 29 2b 0a 28 70 72 | 69 6e 63 ff 29 04 28 54 |.")+.(pr|inc.).(T|
|000041a0| 20 28 70 72 69 6e 63 ff | 29 03 28 63 6f 6e 64 20 | (princ.|).(cond |
|000041b0| 28 28 6e 6f 74 20 28 6e | 75 6c 6c 20 43 3a 53 50 |((not (n|ull C:SP|
|000041c0| 48 45 52 45 29 29 28 43 | 3a 53 50 48 45 52 45 29 |HERE))(C|:SPHERE)|
|000041d0| 29 28 54 20 28 70 72 69 | 6e 63 ff 29 03 3b 2b 0a |)(T (pri|nc.).;+.|
|000041e0| 28 73 65 74 71 20 2a 65 | 72 72 6f 72 2a 20 6d 3a |(setq *e|rror* m:|
|000041f0| 65 72 72 20 6d 3a 65 72 | 72 20 6e 69 6c 29 29 28 |err m:er|r nil))(|
|00004200| 64 65 66 75 6e 20 2a 65 | 72 72 6f 72 2a 20 28 6d |defun *e|rror* (m|
|00004210| 73 67 29 28 70 72 69 6e | 63 20 6d 73 67 29 2b 0a |sg)(prin|c msg)+.|
|00004220| 28 73 65 74 71 20 2a 65 | 72 72 6f 72 2a 20 6d 3a |(setq *e|rror* m:|
|00004230| 65 72 72 20 6d 3a 65 72 | 72 20 6e 69 6c 29 28 70 |err m:er|r nil)(p|
|00004240| 72 69 6e 31 29 29 28 6d | 3a 6c 33 64 29 28 70 72 |rin1))(m|:l3d)(pr|
|00004250| 69 6e 63 29 20 5e 50 0a | 5b 61 63 61 64 28 74 6f |inc) ^P.|[acad(to|
|00004260| 72 75 73 29 5d 5e 43 5e | 43 5e 50 28 70 72 6f 67 |rus)]^C^|C^P(prog|
|00004270| 6e 28 73 65 74 71 20 6d | 3a 65 72 72 20 2a 65 72 |n(setq m|:err *er|
|00004280| 72 6f 72 2a 29 28 70 72 | 69 6e 63 29 29 3b 2b 0a |ror*)(pr|inc));+.|
|00004290| 28 64 65 66 75 6e 20 6d | 3a 6c 33 64 20 28 29 28 |(defun m|:l3d ()(|
|000042a0| 63 6f 6e 64 20 28 28 6e | 75 6c 6c 20 43 3a 42 4f |cond ((n|ull C:BO|
|000042b0| 58 29 28 76 6d 6f 6e 29 | 28 69 66 20 28 2f 3d 20 |X)(vmon)|(if (/= |
|000042c0| 6e 69 6c 20 28 66 69 6e | 64 66 69 6c 65 20 22 33 |nil (fin|dfile "3|
|000042d0| 64 2e 6c 73 70 22 29 29 | 2b 0a 28 70 72 6f 67 6e |d.lsp"))|+.(progn|
|000042e0| 20 28 74 65 72 70 72 69 | 29 28 70 72 6f 6d 70 74 | (terpri|)(prompt|
|000042f0| 20 22 50 6c 65 61 73 65 | 20 77 61 69 74 ff 2e 03 | "Please| wait...|
|00004300| 20 20 4c 6f 61 64 69 6e | 67 20 33 44 20 4f 62 6a | Loadin|g 3D Obj|
|00004310| 65 63 74 73 2e 20 20 22 | 29 3b 2b 0a 28 6c 6f 61 |ects. "|);+.(loa|
|00004320| 64 20 22 33 64 22 29 28 | 6d 65 6e 75 63 6d 64 20 |d "3d")(|menucmd |
|00004330| 22 53 3d 58 22 29 28 6d | 65 6e 75 63 6d 64 20 22 |"S=X")(m|enucmd "|
|00004340| 53 3d 33 44 32 22 29 29 | 28 70 72 6f 67 6e 20 28 |S=3D2"))|(progn (|
|00004350| 74 65 72 70 72 69 29 28 | 70 72 6f 6d 70 74 20 2b |terpri)(|prompt +|
|00004360| 0a 22 54 68 65 20 66 69 | 6c 65 20 60 33 64 2e 6c |."The fi|le `3d.l|
|00004370| 73 70 27 20 77 61 73 20 | 6e 6f 74 20 66 6f 75 6e |sp' was |not foun|
|00004380| 64 20 69 6e 20 79 6f 75 | 72 20 63 75 72 72 65 6e |d in you|r curren|
|00004390| 74 20 73 65 61 72 63 68 | 20 70 61 74 68 20 64 69 |t search| path di|
|000043a0| 72 65 63 74 6f 72 69 65 | 73 2e 20 22 29 28 74 65 |rectorie|s. ")(te|
|000043b0| 72 70 72 69 29 3b 2b 0a | 28 70 72 6f 6d 70 74 20 |rpri);+.|(prompt |
|000043c0| 22 43 68 65 63 6b 20 69 | 6e 73 74 61 6c 6c 61 74 |"Check i|nstallat|
|000043d0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 53 75 70 70 6f |ion of t|he Suppo|
|000043e0| 72 74 20 46 69 6c 65 73 | 20 61 6e 64 20 74 72 79 |rt Files| and try|
|000043f0| 20 61 67 61 69 6e 2e 22 | 29 2b 0a 28 70 72 69 6e | again."|)+.(prin|
|00004400| 63 ff 29 04 28 54 20 28 | 70 72 69 6e 63 ff 29 03 |c.).(T (|princ.).|
|00004410| 28 63 6f 6e 64 20 28 28 | 6e 6f 74 20 28 6e 75 6c |(cond ((|not (nul|
|00004420| 6c 20 43 3a 54 4f 52 55 | 53 29 29 28 43 3a 54 4f |l C:TORU|S))(C:TO|
|00004430| 52 55 53 29 29 28 54 20 | 28 70 72 69 6e 63 ff 29 |RUS))(T |(princ.)|
|00004440| 03 3b 2b 0a 28 73 65 74 | 71 20 2a 65 72 72 6f 72 |.;+.(set|q *error|
|00004450| 2a 20 6d 3a 65 72 72 20 | 6d 3a 65 72 72 20 6e 69 |* m:err |m:err ni|
|00004460| 6c 29 29 28 64 65 66 75 | 6e 20 2a 65 72 72 6f 72 |l))(defu|n *error|
|00004470| 2a 20 28 6d 73 67 29 28 | 70 72 69 6e 63 20 6d 73 |* (msg)(|princ ms|
|00004480| 67 29 2b 0a 28 73 65 74 | 71 20 2a 65 72 72 6f 72 |g)+.(set|q *error|
|00004490| 2a 20 6d 3a 65 72 72 20 | 6d 3a 65 72 72 20 6e 69 |* m:err |m:err ni|
|000044a0| 6c 29 28 70 72 69 6e 31 | 29 29 28 6d 3a 6c 33 64 |l)(prin1|))(m:l3d|
|000044b0| 29 28 70 72 69 6e 63 29 | 20 5e 50 0a 5b 61 63 61 |)(princ)| ^P.[aca|
|000044c0| 64 28 74 61 62 29 5d 5e | 43 5e 43 24 53 3d 58 20 |d(tab)]^|C^C$S=X |
|000044d0| 24 53 3d 33 44 20 74 61 | 62 73 75 72 66 0a 5b 20 |$S=3D ta|bsurf.[ |
|000044e0| 45 78 69 74 5d 5e 63 5e | 63 0a 0a 2a 2a 66 6f 6e |Exit]^c^|c..**fon|
|000044f0| 74 73 31 0a 5b 53 65 6c | 65 63 74 20 54 65 78 74 |ts1.[Sel|ect Text|
|00004500| 20 46 6f 6e 74 5d 0a 5b | 61 63 61 64 28 72 6f 6d | Font].[|acad(rom|
|00004510| 61 6e 73 29 5d 5e 63 5e | 63 73 74 79 6c 65 20 72 |ans)]^c^|cstyle r|
|00004520| 6f 6d 61 6e 73 20 72 6f | 6d 61 6e 73 0a 5b 61 63 |omans ro|mans.[ac|
|00004530| 61 64 28 72 6f 6d 61 6e | 63 29 5d 5e 63 5e 63 73 |ad(roman|c)]^c^cs|
|00004540| 74 79 6c 65 20 72 6f 6d | 61 6e 63 20 72 6f 6d 61 |tyle rom|anc roma|
|00004550| 6e 63 0a 5b 61 63 61 64 | 28 69 74 61 6c 69 63 63 |nc.[acad|(italicc|
|00004560| 29 5d 5e 63 5e 63 73 74 | 79 6c 65 20 69 74 61 6c |)]^c^cst|yle ital|
|00004570| 69 63 63 20 69 74 61 6c | 69 63 63 0a 5b 61 63 61 |icc ital|icc.[aca|
|00004580| 64 28 72 6f 6d 61 6e 64 | 29 5d 5e 63 5e 63 73 74 |d(romand|)]^c^cst|
|00004590| 79 6c 65 20 72 6f 6d 61 | 6e 64 20 72 6f 6d 61 6e |yle roma|nd roman|
|000045a0| 64 0a 5b 61 63 61 64 28 | 72 6f 6d 61 6e 74 29 5d |d.[acad(|romant)]|
|000045b0| 5e 63 5e 63 73 74 79 6c | 65 20 72 6f 6d 61 6e 74 |^c^cstyl|e romant|
|000045c0| 20 72 6f 6d 61 6e 74 0a | 5b 61 63 61 64 28 69 74 | romant.|[acad(it|
|000045d0| 61 6c 69 63 74 29 5d 5e | 63 5e 63 73 74 79 6c 65 |alict)]^|c^cstyle|
|000045e0| 20 69 74 61 6c 69 63 74 | 20 69 74 61 6c 69 63 74 | italict| italict|
|000045f0| 0a 5b 61 63 61 64 28 6d | 6f 6e 6f 74 78 74 29 5d |.[acad(m|onotxt)]|
|00004600| 5e 63 5e 63 73 74 79 6c | 65 20 6d 6f 6e 6f 74 78 |^c^cstyl|e monotx|
|00004610| 74 20 6d 6f 6e 6f 74 78 | 74 0a 5b 20 4e 65 78 74 |t monotx|t.[ Next|
|00004620| 5d 24 69 3d 66 6f 6e 74 | 73 32 20 24 69 3d 2a 0a |]$i=font|s2 $i=*.|
|00004630| 5b 20 45 78 69 74 5d 5e | 63 5e 63 0a 0a 2a 2a 66 |[ Exit]^|c^c..**f|
|00004640| 6f 6e 74 73 32 0a 5b 53 | 65 6c 65 63 74 20 54 65 |onts2.[S|elect Te|
|00004650| 78 74 20 46 6f 6e 74 5d | 0a 5b 61 63 61 64 28 67 |xt Font]|.[acad(g|
|00004660| 6f 74 68 69 63 65 29 5d | 5e 63 5e 63 73 74 79 6c |othice)]|^c^cstyl|
|00004670| 65 20 67 6f 74 68 69 63 | 65 20 67 6f 74 68 69 63 |e gothic|e gothic|
|00004680| 65 0a 5b 61 63 61 64 28 | 67 72 65 65 6b 73 29 5d |e.[acad(|greeks)]|
|00004690| 5e 63 5e 63 73 74 79 6c | 65 20 67 72 65 65 6b 73 |^c^cstyl|e greeks|
|000046a0| 20 67 72 65 65 6b 73 0a | 5b 61 63 61 64 28 73 63 | greeks.|[acad(sc|
|000046b0| 72 69 70 74 73 29 5d 5e | 63 5e 63 73 74 79 6c 65 |ripts)]^|c^cstyle|
|000046c0| 20 73 63 72 69 70 74 73 | 20 73 63 72 69 70 74 73 | scripts| scripts|
|000046d0| 0a 5b 61 63 61 64 28 67 | 6f 74 68 69 63 67 29 5d |.[acad(g|othicg)]|
|000046e0| 5e 63 5e 63 73 74 79 6c | 65 20 67 6f 74 68 69 63 |^c^cstyl|e gothic|
|000046f0| 67 20 67 6f 74 68 69 63 | 67 0a 5b 61 63 61 64 28 |g gothic|g.[acad(|
|00004700| 67 72 65 65 6b 63 29 5d | 5e 63 5e 63 73 74 79 6c |greekc)]|^c^cstyl|
|00004710| 65 20 67 72 65 65 6b 63 | 20 67 72 65 65 6b 63 0a |e greekc| greekc.|
|00004720| 5b 61 63 61 64 28 73 63 | 72 69 70 74 63 29 5d 5e |[acad(sc|riptc)]^|
|00004730| 63 5e 63 73 74 79 6c 65 | 20 73 63 72 69 70 74 63 |c^cstyle| scriptc|
|00004740| 20 73 63 72 69 70 74 63 | 0a 5b 61 63 61 64 28 67 | scriptc|.[acad(g|
|00004750| 6f 74 68 69 63 69 29 5d | 5e 63 5e 63 73 74 79 6c |othici)]|^c^cstyl|
|00004760| 65 20 67 6f 74 68 69 63 | 69 20 67 6f 74 68 69 63 |e gothic|i gothic|
|00004770| 69 0a 5b 20 4e 65 78 74 | 5d 24 69 3d 66 6f 6e 74 |i.[ Next|]$i=font|
|00004780| 73 33 20 24 69 3d 2a 0a | 5b 20 45 78 69 74 5d 5e |s3 $i=*.|[ Exit]^|
|00004790| 63 5e 63 0a 0a 2a 2a 66 | 6f 6e 74 73 33 0a 5b 53 |c^c..**f|onts3.[S|
|000047a0| 65 6c 65 63 74 20 54 65 | 78 74 20 46 6f 6e 74 5d |elect Te|xt Font]|
|000047b0| 0a 5b 61 63 61 64 28 73 | 79 61 73 74 72 6f 29 5d |.[acad(s|yastro)]|
|000047c0| 5e 63 5e 63 73 74 79 6c | 65 20 73 79 61 73 74 72 |^c^cstyl|e syastr|
|000047d0| 6f 20 73 79 61 73 74 72 | 6f 0a 5b 61 63 61 64 28 |o syastr|o.[acad(|
|000047e0| 73 79 6d 61 74 68 29 5d | 5e 63 5e 63 73 74 79 6c |symath)]|^c^cstyl|
|000047f0| 65 20 73 79 6d 61 74 68 | 20 73 79 6d 61 74 68 0a |e symath| symath.|
|00004800| 5b 61 63 61 64 28 73 79 | 6d 75 73 69 63 29 5d 5e |[acad(sy|music)]^|
|00004810| 63 5e 63 73 74 79 6c 65 | 20 73 79 6d 75 73 69 63 |c^cstyle| symusic|
|00004820| 20 73 79 6d 75 73 69 63 | 0a 5b 61 63 61 64 28 73 | symusic|.[acad(s|
|00004830| 79 6d 61 70 29 5d 5e 63 | 5e 63 73 74 79 6c 65 20 |ymap)]^c|^cstyle |
|00004840| 73 79 6d 61 70 20 73 79 | 6d 61 70 0a 5b 61 63 61 |symap sy|map.[aca|
|00004850| 64 28 73 79 6d 65 74 65 | 6f 29 5d 5e 63 5e 63 73 |d(symete|o)]^c^cs|
|00004860| 74 79 6c 65 20 73 79 6d | 65 74 65 6f 20 73 79 6d |tyle sym|eteo sym|
|00004870| 65 74 65 6f 0a 5b 61 63 | 61 64 28 74 78 74 29 5d |eteo.[ac|ad(txt)]|
|00004880| 5e 63 5e 63 73 74 79 6c | 65 20 74 78 74 20 74 78 |^c^cstyl|e txt tx|
|00004890| 74 0a 5b 61 63 61 64 28 | 75 73 65 72 29 5d 0a 5b |t.[acad(|user)].[|
|000048a0| 20 42 65 67 69 6e 6e 69 | 6e 67 5d 24 69 3d 66 6f | Beginni|ng]$i=fo|
|000048b0| 6e 74 73 31 20 24 69 3d | 2a 0a 5b 20 45 78 69 74 |nts1 $i=|*.[ Exit|
|000048c0| 5d 5e 63 5e 63 0a 0a 2a | 2a 68 61 74 63 68 31 0a |]^c^c..*|*hatch1.|
|000048d0| 5b 53 65 6c 65 63 74 20 | 48 61 74 63 68 20 50 61 |[Select |Hatch Pa|
|000048e0| 74 74 65 72 6e 5d 0a 5b | 20 50 72 65 76 69 6f 75 |ttern].[| Previou|
|000048f0| 73 2f 55 73 65 72 5d 5e | 63 5e 63 68 61 74 63 68 |s/User]^|c^chatch|
|00004900| 0a 5b 61 63 61 64 28 61 | 6e 73 69 33 31 29 5d 5e |.[acad(a|nsi31)]^|
|00004910| 63 5e 63 68 61 74 63 68 | 20 61 6e 73 69 33 31 0a |c^chatch| ansi31.|
|00004920| 5b 61 63 61 64 28 61 6e | 73 69 33 32 29 5d 5e 63 |[acad(an|si32)]^c|
|00004930| 5e 63 68 61 74 63 68 20 | 61 6e 73 69 33 32 0a 5b |^chatch |ansi32.[|
|00004940| 61 63 61 64 28 61 6e 73 | 69 33 34 29 5d 5e 63 5e |acad(ans|i34)]^c^|
|00004950| 63 68 61 74 63 68 20 61 | 6e 73 69 33 34 0a 5b 61 |chatch a|nsi34.[a|
|00004960| 63 61 64 28 61 6e 73 69 | 33 35 29 5d 5e 63 5e 63 |cad(ansi|35)]^c^c|
|00004970| 68 61 74 63 68 20 61 6e | 73 69 33 35 0a 5b 61 63 |hatch an|si35.[ac|
|00004980| 61 64 28 61 6e 73 69 33 | 33 29 5d 5e 63 5e 63 68 |ad(ansi3|3)]^c^ch|
|00004990| 61 74 63 68 20 61 6e 73 | 69 33 33 0a 5b 61 63 61 |atch ans|i33.[aca|
|000049a0| 64 28 61 6e 73 69 33 36 | 29 5d 5e 63 5e 63 68 61 |d(ansi36|)]^c^cha|
|000049b0| 74 63 68 20 61 6e 73 69 | 33 36 0a 5b 61 63 61 64 |tch ansi|36.[acad|
|000049c0| 28 61 6e 73 69 33 37 29 | 5d 5e 63 5e 63 68 61 74 |(ansi37)|]^c^chat|
|000049d0| 63 68 20 61 6e 73 69 33 | 37 0a 5b 61 63 61 64 28 |ch ansi3|7.[acad(|
|000049e0| 61 6e 73 69 33 38 29 5d | 5e 63 5e 63 68 61 74 63 |ansi38)]|^c^chatc|
|000049f0| 68 20 61 6e 73 69 33 38 | 0a 5b 61 63 61 64 28 62 |h ansi38|.[acad(b|
|00004a00| 6f 78 29 5d 5e 63 5e 63 | 68 61 74 63 68 20 62 6f |ox)]^c^c|hatch bo|
|00004a10| 78 0a 5b 61 63 61 64 28 | 62 72 61 73 73 29 5d 5e |x.[acad(|brass)]^|
|00004a20| 63 5e 63 68 61 74 63 68 | 20 62 72 61 73 73 0a 5b |c^chatch| brass.[|
|00004a30| 61 63 61 64 28 62 72 69 | 63 6b 29 5d 5e 63 5e 63 |acad(bri|ck)]^c^c|
|00004a40| 68 61 74 63 68 20 62 72 | 69 63 6b 0a 5b 61 63 61 |hatch br|ick.[aca|
|00004a50| 64 28 63 6c 61 79 29 5d | 5e 63 5e 63 68 61 74 63 |d(clay)]|^c^chatc|
|00004a60| 68 20 63 6c 61 79 0a 5b | 61 63 61 64 28 63 6f 72 |h clay.[|acad(cor|
|00004a70| 6b 29 5d 5e 63 5e 63 68 | 61 74 63 68 20 63 6f 72 |k)]^c^ch|atch cor|
|00004a80| 6b 0a 5b 20 4e 65 78 74 | 5d 24 69 3d 68 61 74 63 |k.[ Next|]$i=hatc|
|00004a90| 68 32 20 24 69 3d 2a 0a | 5b 20 45 78 69 74 5d 5e |h2 $i=*.|[ Exit]^|
|00004aa0| 63 5e 63 0a 0a 2a 2a 68 | 61 74 63 68 32 0a 5b 53 |c^c..**h|atch2.[S|
|00004ab0| 65 6c 65 63 74 20 48 61 | 74 63 68 20 50 61 74 74 |elect Ha|tch Patt|
|00004ac0| 65 72 6e 5d 0a 5b 61 63 | 61 64 28 63 72 6f 73 73 |ern].[ac|ad(cross|
|00004ad0| 29 5d 5e 63 5e 63 68 61 | 74 63 68 20 63 72 6f 73 |)]^c^cha|tch cros|
|00004ae0| 73 0a 5b 61 63 61 64 28 | 64 61 73 68 29 5d 5e 63 |s.[acad(|dash)]^c|
|00004af0| 5e 63 68 61 74 63 68 20 | 64 61 73 68 0a 5b 61 63 |^chatch |dash.[ac|
|00004b00| 61 64 28 64 6f 6c 6d 69 | 74 29 5d 5e 63 5e 63 68 |ad(dolmi|t)]^c^ch|
|00004b10| 61 74 63 68 20 64 6f 6c | 6d 69 74 0a 5b 61 63 61 |atch dol|mit.[aca|
|00004b20| 64 28 64 6f 74 73 29 5d | 5e 63 5e 63 68 61 74 63 |d(dots)]|^c^chatc|
|00004b30| 68 20 64 6f 74 73 0a 5b | 61 63 61 64 28 65 61 72 |h dots.[|acad(ear|
|00004b40| 74 68 29 5d 5e 63 5e 63 | 68 61 74 63 68 20 65 61 |th)]^c^c|hatch ea|
|00004b50| 72 74 68 0a 5b 61 63 61 | 64 28 65 73 63 68 65 72 |rth.[aca|d(escher|
|00004b60| 29 5d 5e 63 5e 63 68 61 | 74 63 68 20 65 73 63 68 |)]^c^cha|tch esch|
|00004b70| 65 72 0a 5b 61 63 61 64 | 28 66 6c 65 78 29 5d 5e |er.[acad|(flex)]^|
|00004b80| 63 5e 63 68 61 74 63 68 | 20 66 6c 65 78 0a 5b 61 |c^chatch| flex.[a|
|00004b90| 63 61 64 28 67 72 61 73 | 73 29 5d 5e 63 5e 63 68 |cad(gras|s)]^c^ch|
|00004ba0| 61 74 63 68 20 67 72 61 | 73 73 0a 5b 61 63 61 64 |atch gra|ss.[acad|
|00004bb0| 28 67 72 61 74 65 29 5d | 5e 63 5e 63 68 61 74 63 |(grate)]|^c^chatc|
|00004bc0| 68 20 67 72 61 74 65 0a | 5b 61 63 61 64 28 68 65 |h grate.|[acad(he|
|00004bd0| 78 29 5d 5e 63 5e 63 68 | 61 74 63 68 20 68 65 78 |x)]^c^ch|atch hex|
|00004be0| 0a 5b 61 63 61 64 28 68 | 6f 6e 65 79 29 5d 5e 63 |.[acad(h|oney)]^c|
|00004bf0| 5e 63 68 61 74 63 68 20 | 68 6f 6e 65 79 0a 5b 61 |^chatch |honey.[a|
|00004c00| 63 61 64 28 68 6f 75 6e | 64 29 5d 5e 63 5e 63 68 |cad(houn|d)]^c^ch|
|00004c10| 61 74 63 68 20 68 6f 75 | 6e 64 0a 5b 61 63 61 64 |atch hou|nd.[acad|
|00004c20| 28 69 6e 73 75 6c 29 5d | 5e 63 5e 63 68 61 74 63 |(insul)]|^c^chatc|
|00004c30| 68 20 69 6e 73 75 6c 0a | 5b 61 63 61 64 28 6c 69 |h insul.|[acad(li|
|00004c40| 6e 65 29 5d 5e 63 5e 63 | 68 61 74 63 68 20 6c 69 |ne)]^c^c|hatch li|
|00004c50| 6e 65 0a 5b 20 4e 65 78 | 74 5d 24 69 3d 68 61 74 |ne.[ Nex|t]$i=hat|
|00004c60| 63 68 33 20 24 69 3d 2a | 0a 5b 20 45 78 69 74 5d |ch3 $i=*|.[ Exit]|
|00004c70| 5e 63 5e 63 0a 0a 2a 2a | 68 61 74 63 68 33 0a 5b |^c^c..**|hatch3.[|
|00004c80| 53 65 6c 65 63 74 20 48 | 61 74 63 68 20 50 61 74 |Select H|atch Pat|
|00004c90| 74 65 72 6e 5d 0a 5b 61 | 63 61 64 28 6d 75 64 73 |tern].[a|cad(muds|
|00004ca0| 74 29 5d 5e 63 5e 63 68 | 61 74 63 68 20 6d 75 64 |t)]^c^ch|atch mud|
|00004cb0| 73 74 0a 5b 61 63 61 64 | 28 6e 65 74 29 5d 5e 63 |st.[acad|(net)]^c|
|00004cc0| 5e 63 68 61 74 63 68 20 | 6e 65 74 0a 5b 61 63 61 |^chatch |net.[aca|
|00004cd0| 64 28 6e 65 74 33 29 5d | 5e 63 5e 63 68 61 74 63 |d(net3)]|^c^chatc|
|00004ce0| 68 20 6e 65 74 33 0a 5b | 61 63 61 64 28 70 6c 61 |h net3.[|acad(pla|
|00004cf0| 73 74 29 5d 5e 63 5e 63 | 68 61 74 63 68 20 70 6c |st)]^c^c|hatch pl|
|00004d00| 61 73 74 0a 5b 61 63 61 | 64 28 70 6c 61 73 74 69 |ast.[aca|d(plasti|
|00004d10| 29 5d 5e 63 5e 63 68 61 | 74 63 68 20 70 6c 61 73 |)]^c^cha|tch plas|
|00004d20| 74 69 0a 5b 61 63 61 64 | 28 73 61 63 6e 63 72 29 |ti.[acad|(sacncr)|
|00004d30| 5d 5e 63 5e 63 68 61 74 | 63 68 20 73 61 63 6e 63 |]^c^chat|ch sacnc|
|00004d40| 72 0a 5b 61 63 61 64 28 | 73 71 75 61 72 65 29 5d |r.[acad(|square)]|
|00004d50| 5e 63 5e 63 68 61 74 63 | 68 20 73 71 75 61 72 65 |^c^chatc|h square|
|00004d60| 0a 5b 61 63 61 64 28 73 | 74 61 72 73 29 5d 5e 63 |.[acad(s|tars)]^c|
|00004d70| 5e 63 68 61 74 63 68 20 | 73 74 61 72 73 0a 5b 61 |^chatch |stars.[a|
|00004d80| 63 61 64 28 73 74 65 65 | 6c 29 5d 5e 63 5e 63 68 |cad(stee|l)]^c^ch|
|00004d90| 61 74 63 68 20 73 74 65 | 65 6c 0a 5b 61 63 61 64 |atch ste|el.[acad|
|00004da0| 28 73 77 61 6d 70 29 5d | 5e 63 5e 63 68 61 74 63 |(swamp)]|^c^chatc|
|00004db0| 68 20 73 77 61 6d 70 0a | 5b 61 63 61 64 28 74 72 |h swamp.|[acad(tr|
|00004dc0| 61 6e 73 29 5d 5e 63 5e | 63 68 61 74 63 68 20 74 |ans)]^c^|chatch t|
|00004dd0| 72 61 6e 73 0a 5b 61 63 | 61 64 28 74 72 69 61 6e |rans.[ac|ad(trian|
|00004de0| 67 29 5d 5e 63 5e 63 68 | 61 74 63 68 20 74 72 69 |g)]^c^ch|atch tri|
|00004df0| 61 6e 67 0a 5b 61 63 61 | 64 28 7a 69 67 7a 61 67 |ang.[aca|d(zigzag|
|00004e00| 29 5d 5e 63 5e 63 68 61 | 74 63 68 20 7a 69 67 7a |)]^c^cha|tch zigz|
|00004e10| 61 67 0a 5b 61 63 61 64 | 28 61 6e 67 6c 65 29 5d |ag.[acad|(angle)]|
|00004e20| 5e 63 5e 63 68 61 74 63 | 68 20 61 6e 67 6c 65 0a |^c^chatc|h angle.|
|00004e30| 5b 20 42 65 67 69 6e 6e | 69 6e 67 5d 24 69 3d 68 |[ Beginn|ing]$i=h|
|00004e40| 61 74 63 68 31 20 24 69 | 3d 2a 0a 5b 20 45 78 69 |atch1 $i|=*.[ Exi|
|00004e50| 74 5d 5e 63 5e 63 0a 0a | 2a 2a 76 70 6f 72 74 69 |t]^c^c..|**vporti|
|00004e60| 0a 5b 56 69 65 77 70 6f | 72 74 20 53 65 74 74 69 |.[Viewpo|rt Setti|
|00004e70| 6e 67 73 20 28 43 75 72 | 72 65 6e 74 20 69 73 20 |ngs (Cur|rent is |
|00004e80| 64 6f 6d 69 6e 61 6e 74 | 29 5d 0a 5b 61 63 61 64 |dominant|)].[acad|
|00004e90| 28 76 70 31 29 5d 5e 43 | 5e 43 56 50 4f 52 54 53 |(vp1)]^C|^CVPORTS|
|00004ea0| 3b 53 49 0a 5b 61 63 61 | 64 28 76 70 33 76 29 5d |;SI.[aca|d(vp3v)]|
|00004eb0| 5e 43 5e 43 56 50 4f 52 | 54 53 3b 53 49 3b 3b 33 |^C^CVPOR|TS;SI;;3|
|00004ec0| 3b 76 0a 5b 61 63 61 64 | 28 76 70 33 68 29 5d 5e |;v.[acad|(vp3h)]^|
|00004ed0| 43 5e 43 56 50 4f 52 54 | 53 3b 53 49 3b 3b 33 3b |C^CVPORT|S;SI;;3;|
|00004ee0| 68 0a 5b 61 63 61 64 28 | 76 70 34 29 5d 5e 43 5e |h.[acad(|vp4)]^C^|
|00004ef0| 43 56 50 4f 52 54 53 3b | 53 49 3b 3b 34 0a 5b 61 |CVPORTS;|SI;;4.[a|
|00004f00| 63 61 64 28 76 70 32 76 | 29 5d 5e 43 5e 43 56 50 |cad(vp2v|)]^C^CVP|
|00004f10| 4f 52 54 53 3b 53 49 3b | 3b 32 3b 76 0a 5b 61 63 |ORTS;SI;|;2;v.[ac|
|00004f20| 61 64 28 76 70 33 72 29 | 5d 5e 43 5e 43 56 50 4f |ad(vp3r)|]^C^CVPO|
|00004f30| 52 54 53 3b 53 49 3b 3b | 33 3b 72 0a 5b 61 63 61 |RTS;SI;;|3;r.[aca|
|00004f40| 64 28 76 70 33 6c 29 5d | 5e 43 5e 43 56 50 4f 52 |d(vp3l)]|^C^CVPOR|
|00004f50| 54 53 3b 53 49 3b 3b 33 | 3b 6c 0a 5b 61 63 61 64 |TS;SI;;3|;l.[acad|
|00004f60| 28 76 70 34 6c 29 5d 5e | 43 5e 43 5e 50 55 4e 44 |(vp4l)]^|C^C^PUND|
|00004f70| 4f 3b 4d 3b 28 73 65 74 | 71 20 6d 3a 67 20 28 67 |O;M;(set|q m:g (g|
|00004f80| 65 74 76 61 72 20 22 67 | 72 69 64 6d 6f 64 65 22 |etvar "g|ridmode"|
|00004f90| 29 29 3b 53 45 54 56 41 | 52 3b 47 52 49 44 4d 4f |));SETVA|R;GRIDMO|
|00004fa0| 44 45 3b 30 3b 2b 0a 56 | 50 4f 52 54 53 3b 53 49 |DE;0;+.V|PORTS;SI|
|00004fb0| 3b 3b 32 3b 3b 28 73 65 | 74 76 61 72 20 22 43 56 |;;2;;(se|tvar "CV|
|00004fc0| 50 4f 52 54 22 20 28 63 | 61 72 20 28 63 61 64 72 |PORT" (c|ar (cadr|
|00004fd0| 20 28 76 70 6f 72 74 73 | ff 29 04 28 70 72 69 6e | (vports|.).(prin|
|00004fe0| 63 29 3b 3b 32 ff 3b 03 | 4a 3b 3b 2b 0a 28 63 61 |c);;2.;.|J;;+.(ca|
|00004ff0| 72 20 28 63 61 64 72 20 | 28 76 70 6f 72 74 73 ff |r (cadr |(vports.|
|00005000| 29 03 3b 28 73 65 74 76 | 61 72 20 22 43 56 50 4f |).;(setv|ar "CVPO|
|00005010| 52 54 22 20 28 63 61 72 | 20 28 63 61 64 72 20 28 |RT" (car| (cadr (|
|00005020| 76 70 6f 72 74 73 ff 29 | 04 28 70 72 69 6e 63 29 |vports.)|.(princ)|
|00005030| 2b 0a 3b 3b 33 3b 68 3b | 28 73 65 74 76 61 72 20 |+.;;3;h;|(setvar |
|00005040| 22 67 72 69 64 6d 6f 64 | 65 22 20 6d 3a 67 29 28 |"gridmod|e" m:g)(|
|00005050| 70 72 69 6e 63 29 3b 5a | 4f 4f 4d 3b 41 3b 28 73 |princ);Z|OOM;A;(s|
|00005060| 65 74 76 61 72 20 22 43 | 56 50 4f 52 54 22 2b 0a |etvar "C|VPORT"+.|
|00005070| 28 63 61 72 20 28 63 61 | ff 64 03 72 20 28 76 70 |(car (ca|.d.r (vp|
|00005080| 6f 72 74 73 ff 29 04 28 | 73 65 74 76 61 72 20 22 |orts.).(|setvar "|
|00005090| 67 72 69 64 6d 6f 64 65 | 22 20 6d 3a 67 29 28 70 |gridmode|" m:g)(p|
|000050a0| 72 69 6e 63 29 3b 5a 4f | 4f 4d 3b 41 3b 2b 0a 28 |rinc);ZO|OM;A;+.(|
|000050b0| 73 65 74 76 61 72 20 22 | 43 56 50 4f 52 54 22 20 |setvar "|CVPORT" |
|000050c0| 28 63 61 72 20 28 63 61 | ff 64 03 72 20 28 76 70 |(car (ca|.d.r (vp|
|000050d0| 6f 72 74 73 ff 29 04 28 | 73 65 74 76 61 72 20 22 |orts.).(|setvar "|
|000050e0| 67 72 69 64 6d 6f 64 65 | 22 20 6d 3a 67 29 28 70 |gridmode|" m:g)(p|
|000050f0| 72 69 6e 63 29 3b 2b 0a | 5a 4f 4f 4d 3b 41 3b 28 |rinc);+.|ZOOM;A;(|
|00005100| 73 65 74 76 61 72 20 22 | 43 56 50 4f 52 54 22 20 |setvar "|CVPORT" |
|00005110| 28 63 61 72 20 28 63 61 | ff 64 03 72 20 28 76 70 |(car (ca|.d.r (vp|
|00005120| 6f 72 74 73 ff 29 04 28 | 73 65 74 76 61 72 20 22 |orts.).(|setvar "|
|00005130| 67 72 69 64 6d 6f 64 65 | 22 20 6d 3a 67 29 2b 0a |gridmode|" m:g)+.|
|00005140| 28 70 72 69 6e 63 29 3b | 5a 4f 4f 4d 3b 41 3b 55 |(princ);|ZOOM;A;U|
|00005150| 4e 44 4f 3b 45 20 5e 50 | 0a 5b 61 63 61 64 28 76 |NDO;E ^P|.[acad(v|
|00005160| 70 32 68 29 5d 5e 43 5e | 43 56 50 4f 52 54 53 3b |p2h)]^C^|CVPORTS;|
|00005170| 53 49 3b 3b 32 3b 68 0a | 5b 61 63 61 64 28 76 70 |SI;;2;h.|[acad(vp|
|00005180| 33 61 29 5d 5e 43 5e 43 | 56 50 4f 52 54 53 3b 53 |3a)]^C^C|VPORTS;S|
|00005190| 49 3b 3b 33 3b 61 3b 0a | 5b 61 63 61 64 28 76 70 |I;;3;a;.|[acad(vp|
|000051a0| 33 62 29 5d 5e 43 5e 43 | 56 50 4f 52 54 53 3b 53 |3b)]^C^C|VPORTS;S|
|000051b0| 49 3b 3b 33 3b 62 3b 0a | 5b 61 63 61 64 28 76 70 |I;;3;b;.|[acad(vp|
|000051c0| 34 72 29 5d 5e 43 5e 43 | 5e 50 55 4e 44 4f 3b 4d |4r)]^C^C|^PUNDO;M|
|000051d0| 3b 28 73 65 74 71 20 6d | 3a 67 20 28 67 65 74 76 |;(setq m|:g (getv|
|000051e0| 61 72 20 22 67 72 69 64 | 6d 6f 64 65 22 29 29 3b |ar "grid|mode"));|
|000051f0| 53 45 54 56 41 52 3b 47 | 52 49 44 4d 4f 44 45 3b |SETVAR;G|RIDMODE;|
|00005200| 30 3b 2b 0a 56 50 4f 52 | 54 53 3b 53 49 3b 3b 32 |0;+.VPOR|TS;SI;;2|
|00005210| ff 3b 03 32 3b 3b 28 73 | 65 74 76 61 72 20 22 43 |.;.2;;(s|etvar "C|
|00005220| 56 50 4f 52 54 22 20 28 | 63 61 72 20 28 63 61 64 |VPORT" (|car (cad|
|00005230| 64 72 20 28 76 70 6f 72 | 74 73 ff 29 04 3b 3b 6a |dr (vpor|ts.).;;j|
|00005240| 3b 3b 2b 0a 28 63 61 72 | 20 28 63 61 64 64 72 20 |;;+.(car| (caddr |
|00005250| 28 76 70 6f 72 74 73 ff | 29 03 3b 28 73 65 74 76 |(vports.|).;(setv|
|00005260| 61 72 20 22 43 56 50 4f | 52 54 22 20 28 63 61 72 |ar "CVPO|RT" (car|
|00005270| 20 28 63 61 64 72 20 28 | 76 70 6f 72 74 73 ff 29 | (cadr (|vports.)|
|00005280| 04 3b 3b 33 3b 68 3b 2b | 0a 28 dc 1d ff 73 65 74 |.;;3;h;+|.(...set|
|00005290| 76 61 72 20 22 67 72 69 | 64 6d 6f 64 65 22 20 6d |var "gri|dmode" m|
|000052a0| 3a 67 29 28 70 72 69 6e | 63 29 3b 5a 4f 4f 4d 3b |:g)(prin|c);ZOOM;|
|000052b0| 41 3b 28 73 65 74 76 61 | 72 20 22 43 56 50 4f 52 |A;(setva|r "CVPOR|
|000052c0| 54 22 20 28 63 61 72 20 | 28 63 61 ff 64 03 72 20 |T" (car |(ca.d.r |
|000052d0| 28 76 70 6f 72 74 73 ff | 29 04 2b 0a 28 73 65 74 |(vports.|).+.(set|
|000052e0| 76 61 72 20 22 67 72 69 | 64 6d 6f 64 65 22 20 6d |var "gri|dmode" m|
|000052f0| 3a 67 29 28 70 72 69 6e | 63 29 3b 5a 4f 4f 4d 3b |:g)(prin|c);ZOOM;|
|00005300| 41 3b 28 73 65 74 76 61 | 72 20 22 43 56 50 4f 52 |A;(setva|r "CVPOR|
|00005310| 54 22 20 28 63 61 72 20 | 28 63 61 ff 64 03 72 20 |T" (car |(ca.d.r |
|00005320| 28 76 70 6f 72 74 73 ff | 29 04 2b 0a 28 73 65 74 |(vports.|).+.(set|
|00005330| 76 61 72 20 22 67 72 69 | 64 6d 6f 64 65 22 20 6d |var "gri|dmode" m|
|00005340| 3a 67 29 28 70 72 69 6e | 63 29 3b 5a 4f 4f 4d 3b |:g)(prin|c);ZOOM;|
|00005350| 41 3b 28 73 65 74 76 61 | 72 20 22 43 56 50 4f 52 |A;(setva|r "CVPOR|
|00005360| 54 22 20 28 63 61 72 20 | 28 63 61 ff 64 03 72 20 |T" (car |(ca.d.r |
|00005370| 28 76 70 6f 72 74 73 ff | 29 04 2b 0a 28 73 65 74 |(vports.|).+.(set|
|00005380| 76 61 72 20 22 67 72 69 | 64 6d 6f 64 65 22 20 6d |var "gri|dmode" m|
|00005390| 3a 67 29 28 70 72 69 6e | 63 29 3b 5a 4f 4f 4d 3b |:g)(prin|c);ZOOM;|
|000053a0| 41 3b 55 4e 44 4f 3b 45 | 20 5e 50 0a 5b 20 4a 6f |A;UNDO;E| ^P.[ Jo|
|000053b0| 69 6e 20 56 69 65 77 70 | 6f 72 74 73 5d 5e 43 5e |in Viewp|orts]^C^|
|000053c0| 43 56 50 4f 52 54 53 3b | 4a 0a 5b 20 52 65 73 74 |CVPORTS;|J.[ Rest|
|000053d0| 6f 72 65 20 53 61 76 65 | 64 5d 5e 43 5e 43 56 50 |ore Save|d]^C^CVP|
|000053e0| 4f 52 54 53 3b 52 3b 0a | 5b 20 4c 69 73 74 20 53 |ORTS;R;.|[ List S|
|000053f0| 61 76 65 64 5d 5e 43 5e | 43 56 50 4f 52 54 53 3b |aved]^C^|CVPORTS;|
|00005400| 3f 3b 0a 5b 20 45 78 69 | 74 5d 5e 63 5e 63 0a 0a |?;.[ Exi|t]^c^c..|
|00005410| ff 2a 03 53 43 52 45 45 | 4e 0a 2a 2a 53 0a 5b 41 |.*.SCREE|N.**S.[A|
|00005420| 75 74 6f 43 41 44 5d 5e | 43 5e 43 24 53 3d 58 20 |utoCAD]^|C^C$S=X |
|00005430| 24 53 3d 53 20 24 50 31 | 3d 50 4f 50 31 20 24 50 |$S=S $P1|=POP1 $P|
|00005440| 33 3d 50 4f 50 33 0a 5b | 2a 20 2a 20 2a 20 2a 5d |3=POP3.[|* * * *]|
|00005450| 24 53 3d 4f 53 4e 41 50 | 42 0a 5b 53 65 74 75 70 |$S=OSNAP|B.[Setup|
|00005460| 5d 5e 43 5e 43 5e 50 28 | 70 72 6f 67 6e 28 70 72 |]^C^C^P(|progn(pr|
|00005470| 6f 6d 70 74 20 22 4c 6f | 61 64 69 6e 67 20 73 65 |ompt "Lo|ading se|
|00005480| 74 75 70 ff 2e 03 ff 20 | 03 22 29 28 6c 6f 61 64 |tup.... |.")(load|
|00005490| 20 22 73 65 74 75 70 22 | 29 29 20 5e 50 24 53 3d | "setup"|)) ^P$S=|
|000054a0| 58 20 24 53 3d 55 4e 49 | 54 53 0a 0a 5b 42 4c 4f |X $S=UNI|TS..[BLO|
|000054b0| 43 4b 53 5d 24 53 3d 58 | 20 24 53 3d 42 4c 0a 5b |CKS]$S=X| $S=BL.[|
|000054c0| 44 49 4d 3a 5d 24 53 3d | 58 20 24 53 3d 44 49 4d |DIM:]$S=|X $S=DIM|
|000054d0| 20 5e 43 5e 43 44 49 4d | 0a 5b 44 49 53 50 4c 41 | ^C^CDIM|.[DISPLA|
|000054e0| 59 5d 24 53 3d 58 20 24 | 53 3d 44 53 0a 5b 44 52 |Y]$S=X $|S=DS.[DR|
|000054f0| 41 57 5d 24 53 3d 58 20 | 24 53 3d 44 52 0a 5b 45 |AW]$S=X |$S=DR.[E|
|00005500| 44 49 54 5d 24 53 3d 58 | 20 24 53 3d 45 44 0a 5b |DIT]$S=X| $S=ED.[|
|00005510| 49 4e 51 55 49 52 59 5d | 24 53 3d 58 20 24 53 3d |INQUIRY]|$S=X $S=|
|00005520| 49 4e 51 0a 5b 4c 41 59 | 45 52 3a 5d 24 53 3d 58 |INQ.[LAY|ER:]$S=X|
|00005530| 20 24 53 3d 4c 41 59 45 | 52 20 5e 43 5e 43 4c 41 | $S=LAYE|R ^C^CLA|
|00005540| 59 45 52 0a 5b 53 45 54 | 54 49 4e 47 53 5d 24 53 |YER.[SET|TINGS]$S|
|00005550| 3d 58 20 24 53 3d 53 45 | 54 0a 5b 50 4c 4f 54 5d |=X $S=SE|T.[PLOT]|
|00005560| 24 53 3d 58 20 24 53 3d | 50 4c 4f 54 0a 5b 55 43 |$S=X $S=|PLOT.[UC|
|00005570| 53 3a 5d 24 53 3d 58 20 | 24 53 3d 55 43 53 31 20 |S:]$S=X |$S=UCS1 |
|00005580| 5e 43 5e 43 55 43 53 0a | 5b 55 54 49 4c 49 54 59 |^C^CUCS.|[UTILITY|
|00005590| 5d 24 53 3d 58 20 24 53 | 3d 55 54 0a 0a 5b 33 44 |]$S=X $S|=UT..[3D|
|000055a0| 5d 24 53 3d 58 20 24 53 | 3d 33 44 0a 5b 41 53 48 |]$S=X $S|=3D.[ASH|
|000055b0| 41 44 45 5d 5e 43 5e 43 | 5e 50 28 70 72 6f 67 6e |ADE]^C^C|^P(progn|
|000055c0| 28 73 65 74 71 20 6d 3a | 65 72 72 20 2a 65 72 72 |(setq m:|err *err|
|000055d0| 6f 72 2a 29 28 70 72 69 | 6e 31 29 29 28 64 65 66 |or*)(pri|n1))(def|
|000055e0| 75 6e 20 2a 65 72 72 6f | 72 2a 20 28 6d 73 67 29 |un *erro|r* (msg)|
|000055f0| 28 70 72 69 6e 63 20 6d | 73 67 29 2b 0a 28 73 65 |(princ m|sg)+.(se|
|00005600| 74 71 20 2a 65 72 72 6f | 72 2a 20 6d 3a 65 72 72 |tq *erro|r* m:err|
|00005610| 20 6d 3a 65 72 72 20 6e | 69 6c 29 28 70 72 69 6e | m:err n|il)(prin|
|00005620| 63 29 29 28 63 6f 6e 64 | 20 28 28 6e 75 6c 6c 20 |c))(cond| ((null |
|00005630| 43 3a 53 43 45 4e 45 29 | 28 76 6d 6f 6e 29 2b 0a |C:SCENE)|(vmon)+.|
|00005640| 28 69 66 20 28 2f 3d 20 | 6e 69 6c 20 28 66 69 6e |(if (/= |nil (fin|
|00005650| 64 66 69 6c 65 20 22 61 | 73 68 61 64 65 2e 6c 73 |dfile "a|shade.ls|
|00005660| 70 22 29 29 28 70 72 6f | 67 6e 20 28 74 65 72 70 |p"))(pro|gn (terp|
|00005670| 72 69 29 3b 2b 0a 28 70 | 72 6f 6d 70 74 20 22 50 |ri);+.(p|rompt "P|
|00005680| 6c 65 61 73 65 20 77 61 | 69 74 ff 2e 03 20 20 4c |lease wa|it... L|
|00005690| 6f 61 64 69 6e 67 20 61 | 73 68 61 64 65 2e 20 20 |oading a|shade. |
|000056a0| 22 29 28 6c 6f 61 64 20 | 22 61 73 68 61 64 65 22 |")(load |"ashade"|
|000056b0| 29 2b 0a 28 6d 65 6e 75 | 63 6d 64 20 22 53 3d 58 |)+.(menu|cmd "S=X|
|000056c0| 22 29 28 6d 65 6e 75 63 | 6d 64 20 22 53 3d 41 53 |")(menuc|md "S=AS|
|000056d0| 48 41 44 45 22 29 28 73 | 65 74 71 20 2a 65 72 72 |HADE")(s|etq *err|
|000056e0| 6f 72 2a 20 6d 3a 65 72 | 72 20 6d 3a 65 72 72 20 |or* m:er|r m:err |
|000056f0| 6e 69 6c 29 29 28 70 72 | 6f 67 6e 20 28 74 65 72 |nil))(pr|ogn (ter|
|00005700| 70 72 69 29 3b 2b 0a 28 | 70 72 6f 6d 70 74 20 22 |pri);+.(|prompt "|
|00005710| 54 68 65 20 66 69 6c 65 | 20 27 41 73 68 61 64 65 |The file| 'Ashade|
|00005720| 2e 6c 73 70 27 20 77 61 | 73 20 6e 6f 74 20 66 6f |.lsp' wa|s not fo|
|00005730| 75 6e 64 20 69 6e 20 79 | 6f 75 72 20 63 75 72 72 |und in y|our curr|
|00005740| 65 6e 74 20 73 65 61 72 | 63 68 20 64 69 72 65 63 |ent sear|ch direc|
|00005750| 74 6f 72 69 65 73 2e 22 | 29 2b 0a 28 74 65 72 70 |tories."|)+.(terp|
|00005760| 72 69 29 28 70 72 6f 6d | 70 74 20 22 43 68 65 63 |ri)(prom|pt "Chec|
|00005770| 6b 20 79 6f 75 72 20 41 | 75 74 6f 53 68 61 64 65 |k your A|utoShade|
|00005780| 20 4d 61 6e 75 61 6c 20 | 66 6f 72 20 69 6e 73 74 | Manual |for inst|
|00005790| 61 6c 6c 61 74 69 6f 6e | 20 69 6e 73 74 72 75 63 |allation| instruc|
|000057a0| 74 69 6f 6e 73 2e 22 29 | 3b 2b 0a 28 73 65 74 71 |tions.")|;+.(setq|
|000057b0| 20 2a 65 72 72 6f 72 2a | 20 6d 3a 65 72 72 20 6d | *error*| m:err m|
|000057c0| 3a 65 72 72 20 6e 69 6c | 29 28 70 72 69 6e 63 ff |:err nil|)(princ.|
|000057d0| 29 04 2b 0a 28 54 20 28 | 73 65 74 71 20 2a 65 72 |).+.(T (|setq *er|
|000057e0| 72 6f 72 2a 20 6d 3a 65 | 72 72 20 6d 3a 65 72 72 |ror* m:e|rr m:err|
|000057f0| 20 6e 69 6c 29 28 6d 65 | 6e 75 63 6d 64 20 22 53 | nil)(me|nucmd "S|
|00005800| 3d 58 22 29 28 6d 65 6e | 75 63 6d 64 20 22 53 3d |=X")(men|ucmd "S=|
|00005810| 41 53 48 41 44 45 22 29 | 28 70 72 69 6e 63 ff 29 |ASHADE")|(princ.)|
|00005820| 03 20 5e 50 0a 0a 5b 53 | 41 56 45 3a 5d 5e 43 5e |. ^P..[S|AVE:]^C^|
|00005830| 43 53 41 56 45 0a 2a 2a | 58 20 33 ff 0a 10 5b 5f |CSAVE.**|X 3...[_|
|00005840| 5f 4c 41 53 54 5f 5f 5d | 24 53 3d 20 24 53 3d 0a |_LAST__]|$S= $S=.|
|00005850| 5b 20 20 44 52 41 57 20 | 20 5d 5e 43 5e 43 24 53 |[ DRAW | ]^C^C$S|
|00005860| 3d 58 20 24 53 3d 44 52 | 0a 5b 20 20 45 44 49 54 |=X $S=DR|.[ EDIT|
|00005870| 20 20 5d 5e 43 5e 43 24 | 53 3d 58 20 24 53 3d 45 | ]^C^C$|S=X $S=E|
|00005880| 44 0a 2a 2a 42 4c 20 33 | 0a 5b 41 54 54 44 45 46 |D.**BL 3|.[ATTDEF|
|00005890| 3a 5d 24 53 3d 58 20 24 | 53 3d 41 54 54 44 45 46 |:]$S=X $|S=ATTDEF|
|000058a0| 20 5e 43 5e 43 41 54 54 | 44 45 46 0a 5b 42 41 53 | ^C^CATT|DEF.[BAS|
|000058b0| 45 3a 5d 5e 43 5e 43 42 | 41 53 45 0a 5b 42 4c 4f |E:]^C^CB|ASE.[BLO|
|000058c0| 43 4b 3a 5d 24 53 3d 58 | 20 24 53 3d 42 4c 4f 43 |CK:]$S=X| $S=BLOC|
|000058d0| 4b 20 5e 43 5e 43 42 4c | 4f 43 4b 0a 5b 49 4e 53 |K ^C^CBL|OCK.[INS|
|000058e0| 45 52 54 3a 5d 24 53 3d | 58 20 24 53 3d 49 4e 53 |ERT:]$S=|X $S=INS|
|000058f0| 45 52 54 20 5e 43 5e 43 | 49 4e 53 45 52 54 0a 5b |ERT ^C^C|INSERT.[|
|00005900| 4d 49 4e 53 45 52 54 3a | 5d 24 53 3d 58 20 24 53 |MINSERT:|]$S=X $S|
|00005910| 3d 4d 49 4e 53 45 52 54 | 20 5e 43 5e 43 4d 49 4e |=MINSERT| ^C^CMIN|
|00005920| 53 45 52 54 0a 5b 57 42 | 4c 4f 43 4b 3a 5d 24 53 |SERT.[WB|LOCK:]$S|
|00005930| 3d 58 20 24 53 3d 57 42 | 4c 4f 43 4b 20 5e 43 5e |=X $S=WB|LOCK ^C^|
|00005940| 43 57 42 4c 4f 43 4b 0a | 2a 2a 44 53 20 33 0a 0a |CWBLOCK.|**DS 3..|
|00005950| 5b 41 54 54 44 49 53 50 | 3a 5d 24 53 3d 58 20 24 |[ATTDISP|:]$S=X $|
|00005960| 53 3d 41 54 54 44 49 53 | 50 20 5e 43 5e 43 41 54 |S=ATTDIS|P ^C^CAT|
|00005970| 54 44 49 53 50 0a 5b 44 | 56 49 45 57 3a 5d 24 53 |TDISP.[D|VIEW:]$S|
|00005980| 3d 58 20 24 53 3d 44 56 | 49 45 57 20 5e 43 5e 43 |=X $S=DV|IEW ^C^C|
|00005990| 44 56 49 45 57 0a 5b 50 | 41 4e 3a 5d 27 50 41 4e |DVIEW.[P|AN:]'PAN|
|000059a0| 0a 5b 50 4c 41 4e 3a 5d | 24 53 3d 58 20 24 53 3d |.[PLAN:]|$S=X $S=|
|000059b0| 50 4c 41 4e 20 5e 43 5e | 43 50 4c 41 4e 0a 5b 52 |PLAN ^C^|CPLAN.[R|
|000059c0| 45 44 52 41 57 3a 5d 27 | 52 45 44 52 41 57 0a 5b |EDRAW:]'|REDRAW.[|
|000059d0| 52 45 44 52 41 4c 4c 3a | 5d 27 52 45 44 52 41 57 |REDRALL:|]'REDRAW|
|000059e0| 41 4c 4c 0a 5b 52 45 47 | 45 4e 3a 5d 5e 43 5e 43 |ALL.[REG|EN:]^C^C|
|000059f0| 52 45 47 45 4e 0a 5b 52 | 45 47 4e 41 4c 4c 3a 5d |REGEN.[R|EGNALL:]|
|00005a00| 5e 43 5e 43 52 45 47 45 | 4e 41 4c 4c 0a 5b 52 47 |^C^CREGE|NALL.[RG|
|00005a10| 4e 41 55 54 4f 3a 5d 24 | 53 3d 58 20 24 53 3d 52 |NAUTO:]$|S=X $S=R|
|00005a20| 47 4e 41 55 54 4f 20 5e | 43 5e 43 52 45 47 45 4e |GNAUTO ^|C^CREGEN|
|00005a30| 41 55 54 4f 0a 5b 56 49 | 45 57 3a 5d 24 53 3d 58 |AUTO.[VI|EW:]$S=X|
|00005a40| 20 24 53 3d 56 49 45 57 | 20 27 56 49 45 57 0a 5b | $S=VIEW| 'VIEW.[|
|00005a50| 56 49 45 57 52 45 53 3a | 5d 24 53 3d 58 20 24 53 |VIEWRES:|]$S=X $S|
|00005a60| 3d 56 49 45 57 52 45 53 | 20 5e 43 5e 43 56 49 45 |=VIEWRES| ^C^CVIE|
|00005a70| 57 52 45 53 0a 5b 56 50 | 4f 49 4e 54 3a 5d 24 53 |WRES.[VP|OINT:]$S|
|00005a80| 3d 58 20 24 53 3d 56 50 | 4f 49 4e 54 20 5e 43 5e |=X $S=VP|OINT ^C^|
|00005a90| 43 56 50 4f 49 4e 54 0a | 5b 5a 4f 4f 4d 3a 5d 24 |CVPOINT.|[ZOOM:]$|
|00005aa0| 53 3d 58 20 24 53 3d 5a | 4f 4f 4d 20 27 5a 4f 4f |S=X $S=Z|OOM 'ZOO|
|00005ab0| 4d 0a 2a 2a 44 52 20 33 | 0a 5b 41 52 43 5d 24 53 |M.**DR 3|.[ARC]$S|
|00005ac0| 3d 58 20 24 53 3d 41 52 | 43 0a 5b 41 54 54 44 45 |=X $S=AR|C.[ATTDE|
|00005ad0| 46 3a 5d 24 53 3d 58 20 | 24 53 3d 41 54 54 44 45 |F:]$S=X |$S=ATTDE|
|00005ae0| 46 20 5e 43 5e 43 41 54 | 54 44 45 46 0a 5b 43 49 |F ^C^CAT|TDEF.[CI|
|00005af0| 52 43 4c 45 5d 24 53 3d | 58 20 24 53 3d 43 49 52 |RCLE]$S=|X $S=CIR|
|00005b00| 43 4c 45 0a 5b 44 4f 4e | 55 54 3a 5d 5e 43 5e 43 |CLE.[DON|UT:]^C^C|
|00005b10| 44 4f 4e 55 54 0a 5b 44 | 54 45 58 54 3a 5d 24 53 |DONUT.[D|TEXT:]$S|
|00005b20| 3d 58 20 24 53 3d 44 54 | 45 58 54 20 5e 43 5e 43 |=X $S=DT|EXT ^C^C|
|00005b30| 44 54 45 58 54 0a 5b 45 | 4c 4c 49 50 53 45 3a 5d |DTEXT.[E|LLIPSE:]|
|00005b40| 24 53 3d 58 20 24 53 3d | 45 4c 4c 49 50 53 45 20 |$S=X $S=|ELLIPSE |
|00005b50| 5e 43 5e 43 45 4c 4c 49 | 50 53 45 0a 5b 48 41 54 |^C^CELLI|PSE.[HAT|
|00005b60| 43 48 3a 5d 24 53 3d 58 | 20 24 53 3d 48 41 54 43 |CH:]$S=X| $S=HATC|
|00005b70| 48 20 5e 43 5e 43 48 41 | 54 43 48 0a 5b 49 4e 53 |H ^C^CHA|TCH.[INS|
|00005b80| 45 52 54 3a 5d 24 53 3d | 58 20 24 53 3d 49 4e 53 |ERT:]$S=|X $S=INS|
|00005b90| 45 52 54 20 5e 43 5e 43 | 49 4e 53 45 52 54 0a 5b |ERT ^C^C|INSERT.[|
|00005ba0| 4c 49 4e 45 3a 5d 24 53 | 3d 58 20 24 53 3d 4c 49 |LINE:]$S|=X $S=LI|
|00005bb0| 4e 45 20 5e 43 5e 43 4c | 49 4e 45 0a 5b 4d 49 4e |NE ^C^CL|INE.[MIN|
|00005bc0| 53 45 52 54 3a 5d 24 53 | 3d 58 20 24 53 3d 4d 49 |SERT:]$S|=X $S=MI|
|00005bd0| 4e 53 45 52 54 20 5e 43 | 5e 43 4d 49 4e 53 45 52 |NSERT ^C|^CMINSER|
|00005be0| 54 0a 5b 4f 46 46 53 45 | 54 3a 5d 24 53 3d 58 20 |T.[OFFSE|T:]$S=X |
|00005bf0| 24 53 3d 4f 46 46 53 45 | 54 20 5e 43 5e 43 4f 46 |$S=OFFSE|T ^C^COF|
|00005c00| 46 53 45 54 0a 5b 50 4c | 49 4e 45 3a 5d 24 53 3d |FSET.[PL|INE:]$S=|
|00005c10| 58 20 24 53 3d 50 4c 49 | 4e 45 20 5e 43 5e 43 50 |X $S=PLI|NE ^C^CP|
|00005c20| 4c 49 4e 45 0a 0a 5b 6e | 65 78 74 5d 24 53 3d 58 |LINE..[n|ext]$S=X|
|00005c30| 20 24 53 3d 44 52 32 0a | 2a 2a 44 52 32 20 33 0a | $S=DR2.|**DR2 3.|
|00005c40| 5b 50 4f 49 4e 54 3a 5d | 24 53 3d 58 20 24 53 3d |[POINT:]|$S=X $S=|
|00005c50| 50 4f 49 4e 54 20 5e 43 | 5e 43 50 4f 49 4e 54 0a |POINT ^C|^CPOINT.|
|00005c60| 5b 50 4f 4c 59 47 4f 4e | 3a 5d 24 53 3d 58 20 24 |[POLYGON|:]$S=X $|
|00005c70| 53 3d 50 4f 4c 59 47 4f | 4e 20 5e 43 5e 43 50 4f |S=POLYGO|N ^C^CPO|
|00005c80| 4c 59 47 4f 4e 0a 5b 53 | 48 41 50 45 3a 5d 24 53 |LYGON.[S|HAPE:]$S|
|00005c90| 3d 58 20 24 53 3d 53 48 | 41 50 45 20 5e 43 5e 43 |=X $S=SH|APE ^C^C|
|00005ca0| 53 48 41 50 45 0a 5b 53 | 4b 45 54 43 48 3a 5d 24 |SHAPE.[S|KETCH:]$|
|00005cb0| 53 3d 58 20 24 53 3d 53 | 4b 45 54 43 48 20 5e 43 |S=X $S=S|KETCH ^C|
|00005cc0| 5e 43 53 4b 45 54 43 48 | 0a 5b 53 4f 4c 49 44 3a |^CSKETCH|.[SOLID:|
|00005cd0| 5d 24 53 3d 58 20 24 53 | 3d 53 4f 4c 49 44 20 5e |]$S=X $S|=SOLID ^|
|00005ce0| 43 5e 43 53 4f 4c 49 44 | 0a 5b 54 45 58 54 3a 5d |C^CSOLID|.[TEXT:]|
|00005cf0| 24 53 3d 58 20 24 53 3d | 54 45 58 54 20 5e 43 5e |$S=X $S=|TEXT ^C^|
|00005d00| 43 54 45 58 54 0a 5b 54 | 52 41 43 45 3a 5d 24 53 |CTEXT.[T|RACE:]$S|
|00005d10| 3d 58 20 24 53 3d 54 52 | 41 43 45 20 5e 43 5e 43 |=X $S=TR|ACE ^C^C|
|00005d20| 54 52 41 43 45 0a 5b 33 | 44 46 41 43 45 3a 5d 24 |TRACE.[3|DFACE:]$|
|00005d30| 53 3d 58 20 24 53 3d 33 | 44 46 41 43 45 20 5e 43 |S=X $S=3|DFACE ^C|
|00005d40| 5e 43 33 44 46 41 43 45 | 0a 0a 5b 33 44 5d 24 53 |^C3DFACE|..[3D]$S|
|00005d50| 3d 58 20 24 53 3d 33 44 | ff 0a 04 5b 70 72 65 76 |=X $S=3D|...[prev|
|00005d60| 69 6f 75 73 5d 24 53 3d | 58 20 24 53 3d 44 52 0a |ious]$S=|X $S=DR.|
|00005d70| 0a 5b 5f 5f 4c 41 53 54 | 5f 5f 5d 24 53 3d 20 24 |.[__LAST|__]$S= $|
|00005d80| 53 3d 0a 2a 2a 45 44 20 | 33 0a 5b 41 52 52 41 59 |S=.**ED |3.[ARRAY|
|00005d90| 3a 5d 24 53 3d 58 20 24 | 53 3d 41 52 52 41 59 20 |:]$S=X $|S=ARRAY |
|00005da0| 5e 43 5e 43 41 52 52 41 | 59 0a 5b 41 54 54 45 44 |^C^CARRA|Y.[ATTED|
|00005db0| 49 54 3a 5d 24 53 3d 58 | 20 24 53 3d 41 54 54 45 |IT:]$S=X| $S=ATTE|
|00005dc0| 44 49 54 20 5e 43 5e 43 | 41 54 54 45 44 49 54 0a |DIT ^C^C|ATTEDIT.|
|00005dd0| 5b 44 44 41 54 54 45 3a | 5d 5e 43 5e 43 44 44 41 |[DDATTE:|]^C^CDDA|
|00005de0| 54 54 45 0a 5b 42 52 45 | 41 4b 3a 5d 24 53 3d 58 |TTE.[BRE|AK:]$S=X|
|00005df0| 20 24 53 3d 42 52 45 41 | 4b 20 5e 43 5e 43 42 52 | $S=BREA|K ^C^CBR|
|00005e00| 45 41 4b 0a 5b 43 48 41 | 4d 46 45 52 3a 5d 24 53 |EAK.[CHA|MFER:]$S|
|00005e10| 3d 58 20 24 53 3d 43 48 | 41 4d 46 45 52 20 5e 43 |=X $S=CH|AMFER ^C|
|00005e20| 5e 43 43 48 41 4d 46 45 | 52 0a 5b 43 48 41 4e 47 |^CCHAMFE|R.[CHANG|
|00005e30| 45 3a 5d 24 53 3d 58 20 | 24 53 3d 43 48 41 4e 47 |E:]$S=X |$S=CHANG|
|00005e40| 45 20 5e 43 5e 43 43 48 | 41 4e 47 45 0a 5b 43 48 |E ^C^CCH|ANGE.[CH|
|00005e50| 50 52 4f 50 3a 5d 24 53 | 3d 58 20 24 53 3d 43 48 |PROP:]$S|=X $S=CH|
|00005e60| 50 52 4f 50 20 5e 43 5e | 43 43 48 50 52 4f 50 0a |PROP ^C^|CCHPROP.|
|00005e70| 5b 43 4f 50 59 3a 5d 24 | 53 3d 58 20 24 53 3d 43 |[COPY:]$|S=X $S=C|
|00005e80| 4f 50 59 20 5e 43 5e 43 | 43 4f 50 59 0a 5b 44 49 |OPY ^C^C|COPY.[DI|
|00005e90| 56 49 44 45 3a 5d 24 53 | 3d 58 20 24 53 3d 44 49 |VIDE:]$S|=X $S=DI|
|00005ea0| 56 49 44 45 20 5e 43 5e | 43 44 49 56 49 44 45 0a |VIDE ^C^|CDIVIDE.|
|00005eb0| 5b 45 52 41 53 45 3a 5d | 24 53 3d 58 20 24 53 3d |[ERASE:]|$S=X $S=|
|00005ec0| 45 52 41 53 45 20 5e 43 | 5e 43 45 52 41 53 45 0a |ERASE ^C|^CERASE.|
|00005ed0| 5b 45 58 50 4c 4f 44 45 | 3a 5d 5e 43 5e 43 45 58 |[EXPLODE|:]^C^CEX|
|00005ee0| 50 4c 4f 44 45 0a 5b 45 | 58 54 45 4e 44 3a 5d 24 |PLODE.[E|XTEND:]$|
|00005ef0| 53 3d 58 20 24 53 3d 45 | 58 54 45 4e 44 20 5e 43 |S=X $S=E|XTEND ^C|
|00005f00| 5e 43 45 58 54 45 4e 44 | 0a 0a 5b 6e 65 78 74 5d |^CEXTEND|..[next]|
|00005f10| 24 53 3d 58 20 24 53 3d | 45 44 32 0a 2a 2a 45 44 |$S=X $S=|ED2.**ED|
|00005f20| 32 20 33 0a 5b 46 49 4c | 4c 45 54 3a 5d 24 53 3d |2 3.[FIL|LET:]$S=|
|00005f30| 58 20 24 53 3d 46 49 4c | 4c 45 54 20 5e 43 5e 43 |X $S=FIL|LET ^C^C|
|00005f40| 46 49 4c 4c 45 54 0a 5b | 4d 45 41 53 55 52 45 3a |FILLET.[|MEASURE:|
|00005f50| 5d 24 53 3d 58 20 24 53 | 3d 4d 45 41 53 55 52 45 |]$S=X $S|=MEASURE|
|00005f60| 20 5e 43 5e 43 4d 45 41 | 53 55 52 45 0a 5b 4d 49 | ^C^CMEA|SURE.[MI|
|00005f70| 52 52 4f 52 3a 5d 24 53 | 3d 58 20 24 53 3d 4d 49 |RROR:]$S|=X $S=MI|
|00005f80| 52 52 4f 52 20 5e 43 5e | 43 4d 49 52 52 4f 52 0a |RROR ^C^|CMIRROR.|
|00005f90| 5b 4d 4f 56 45 3a 5d 24 | 53 3d 58 20 24 53 3d 4d |[MOVE:]$|S=X $S=M|
|00005fa0| 4f 56 45 20 5e 43 5e 43 | 4d 4f 56 45 0a 5b 4f 46 |OVE ^C^C|MOVE.[OF|
|00005fb0| 46 53 45 54 3a 5d 24 53 | 3d 58 20 24 53 3d 4f 46 |FSET:]$S|=X $S=OF|
|00005fc0| 46 53 45 54 20 5e 43 5e | 43 4f 46 46 53 45 54 0a |FSET ^C^|COFFSET.|
|00005fd0| 5b 50 45 44 49 54 3a 5d | 5e 43 5e 43 5e 50 2b 0a |[PEDIT:]|^C^C^P+.|
|00005fe0| 28 64 65 66 75 6e 20 6d | 3a 70 31 28 2f 20 6d 3a |(defun m|:p1(/ m:|
|00005ff0| 70 61 20 6d 3a 70 63 20 | 6d 3a 64 20 6d 3a 77 29 |pa m:pc |m:d m:w)|
|00006000| 28 6d 65 6e 75 63 6d 64 | 20 22 53 3d 58 22 29 28 |(menucmd| "S=X")(|
|00006010| 6d 65 6e 75 63 6d 64 20 | 22 53 3d 50 53 45 4c 22 |menucmd |"S=PSEL"|
|00006020| 29 3b 2b 0a 28 73 65 74 | 71 20 6d 3a 64 20 54 29 |);+.(set|q m:d T)|
|00006030| 28 77 68 69 6c 65 20 6d | 3a 64 20 28 73 65 74 71 |(while m|:d (setq|
|00006040| 20 6d 3a 70 63 20 28 73 | 73 67 65 74 29 29 28 73 | m:pc (s|sget))(s|
|00006050| 65 74 71 20 6d 3a 70 61 | 20 28 73 73 6e 61 6d 65 |etq m:pa| (ssname|
|00006060| 20 6d 3a 70 63 20 30 29 | 29 3b 2b 0a 28 69 66 28 | m:pc 0)|);+.(if(|
|00006070| 3d 28 63 64 72 28 61 73 | 73 6f 63 20 30 20 28 65 |=(cdr(as|soc 0 (e|
|00006080| 6e 74 67 65 74 20 6d 3a | 70 61 ff 29 03 20 22 50 |ntget m:|pa.). "P|
|00006090| 4f 4c 59 4c 49 4e 45 22 | 29 28 70 72 6f 67 6e 28 |OLYLINE"|)(progn(|
|000060a0| 73 65 74 71 20 6d 3a 64 | 20 6e 69 6c 29 2b 0a 28 |setq m:d| nil)+.(|
|000060b0| 6d 3a 70 32 20 6d 3a 70 | 61 20 6d 3a 70 63 29 29 |m:p2 m:p|a m:pc))|
|000060c0| 28 70 72 6f 67 6e 28 70 | 72 6f 6d 70 74 20 22 45 |(progn(p|rompt "E|
|000060d0| 6e 74 69 74 79 20 73 65 | 6c 65 63 74 65 64 20 69 |ntity se|lected i|
|000060e0| 73 20 6e 6f 74 20 61 20 | 70 6f 6c 79 6c 69 6e 65 |s not a |polyline|
|000060f0| 22 29 28 74 65 72 70 72 | 69 29 3b 2b 0a 28 69 66 |")(terpr|i);+.(if|
|00006100| 20 28 6d 65 6d 62 65 72 | 20 28 63 64 72 20 28 61 | (member| (cdr (a|
|00006110| 73 73 6f 63 20 30 20 28 | 65 6e 74 67 65 74 20 6d |ssoc 0 (|entget m|
|00006120| 3a 70 61 ff 29 03 20 27 | 28 22 4c 49 4e 45 22 20 |:pa.). '|("LINE" |
|00006130| 22 41 52 43 22 29 29 28 | 70 72 6f 67 6e 2b 0a 28 |"ARC"))(|progn+.(|
|00006140| 69 6e 69 74 67 65 74 20 | 22 59 65 73 20 4e 6f 22 |initget |"Yes No"|
|00006150| 29 28 73 65 74 71 20 6d | 3a 77 20 28 67 65 74 6b |)(setq m|:w (getk|
|00006160| 77 6f 72 64 20 22 44 6f | 20 79 6f 75 20 77 61 6e |word "Do| you wan|
|00006170| 74 20 74 6f 20 74 75 72 | 6e 20 69 74 20 69 6e 74 |t to tur|n it int|
|00006180| 6f 20 6f 6e 65 3f 20 3c | 59 3e 22 29 29 3b 2b 0a |o one? <|Y>"));+.|
|00006190| 28 69 66 20 28 6f 72 20 | 28 3d 20 6d 3a 77 20 22 |(if (or |(= m:w "|
|000061a0| 59 65 73 22 29 28 6e 75 | 6c 6c 20 6d 3a 77 29 29 |Yes")(nu|ll m:w))|
|000061b0| 28 70 72 6f 67 6e 28 73 | 65 74 71 20 6d 3a 64 20 |(progn(s|etq m:d |
|000061c0| 6e 69 6c 29 28 6d 65 6e | 75 63 6d 64 20 22 53 3d |nil)(men|ucmd "S=|
|000061d0| 58 22 29 3b 2b 0a 28 6d | 65 6e 75 63 6d 64 20 22 |X");+.(m|enucmd "|
|000061e0| 53 3d 50 30 22 29 28 63 | 6f 6d 6d 61 6e 64 20 22 |S=P0")(c|ommand "|
|000061f0| 50 45 44 49 54 22 20 6d | 3a 70 61 20 22 79 65 73 |PEDIT" m|:pa "yes|
|00006200| 22 20 70 61 75 73 65 ff | 29 09 2b 0a 28 64 65 66 |" pause.|).+.(def|
|00006210| 75 6e 20 6d 3a 70 32 28 | 6d 3a 70 61 20 6d 3a 70 |un m:p2(|m:pa m:p|
|00006220| 63 20 2f 20 6d 3a 70 62 | 29 28 6d 65 6e 75 63 6d |c / m:pb|)(menucm|
|00006230| 64 20 22 53 3d 58 22 29 | 2b 0a 28 69 66 20 28 3d |d "S=X")|+.(if (=|
|00006240| 20 28 73 65 74 71 20 6d | 3a 70 62 20 28 63 64 72 | (setq m|:pb (cdr|
|00006250| 20 28 61 73 73 6f 63 20 | 37 30 20 28 65 6e 74 67 | (assoc |70 (entg|
|00006260| 65 74 20 6d 3a 70 61 ff | 29 04 20 6e 69 6c 29 28 |et m:pa.|). nil)(|
|00006270| 6d 65 6e 75 63 6d 64 20 | 22 53 3d 50 30 22 29 3b |menucmd |"S=P0");|
|00006280| 2b 0a 28 70 72 6f 67 6e | 20 28 73 65 74 71 20 6d |+.(progn| (setq m|
|00006290| 3a 70 62 20 28 2f 20 6d | 3a 70 62 20 32 29 29 28 |:pb (/ m|:pb 2))(|
|000062a0| 69 66 20 28 3e 3d 20 6d | 3a 70 62 20 38 29 28 6d |if (>= m|:pb 8)(m|
|000062b0| 65 6e 75 63 6d 64 20 22 | 53 3d 50 31 36 22 29 3b |enucmd "|S=P16");|
|000062c0| 2b 0a 28 69 66 28 3c 20 | 6d 3a 70 62 20 34 29 28 |+.(if(< |m:pb 4)(|
|000062d0| 6d 65 6e 75 63 6d 64 20 | 22 53 3d 50 30 22 29 28 |menucmd |"S=P0")(|
|000062e0| 6d 65 6e 75 63 6d 64 20 | 22 53 3d 50 38 22 ff 29 |menucmd |"S=P8".)|
|000062f0| 05 28 63 6f 6d 6d 61 6e | 64 20 22 50 45 44 49 54 |.(comman|d "PEDIT|
|00006300| 22 20 6d 3a 70 61 20 70 | 61 75 73 65 29 29 2b 0a |" m:pa p|ause))+.|
|00006310| 28 64 65 66 75 6e 20 70 | 65 72 72 6f 72 20 28 6d |(defun p|error (m|
|00006320| 73 67 29 28 73 65 74 71 | 20 2a 65 72 72 6f 72 2a |sg)(setq| *error*|
|00006330| 20 6d 3a 65 72 72 20 6d | 3a 65 72 72 20 6e 69 6c | m:err m|:err nil|
|00006340| 29 28 70 72 69 6e 63 29 | 29 2b 0a 28 64 65 66 75 |)(princ)|)+.(defu|
|00006350| 6e 20 43 3a 50 45 44 49 | 54 4d 20 28 2f 20 6d 3a |n C:PEDI|TM (/ m:|
|00006360| 65 72 72 29 28 73 65 74 | 71 20 6d 3a 65 72 72 20 |err)(set|q m:err |
|00006370| 2a 65 72 72 6f 72 2a 20 | 2a 65 72 72 6f 72 2a 20 |*error* |*error* |
|00006380| 70 65 72 72 6f 72 29 28 | 6d 3a 70 31 29 3b 2b 0a |perror)(|m:p1);+.|
|00006390| 28 73 65 74 71 20 2a 65 | 72 72 6f 72 2a 20 6d 3a |(setq *e|rror* m:|
|000063a0| 65 72 72 20 6d 3a 65 72 | 72 20 6e 69 6c 29 28 70 |err m:er|r nil)(p|
|000063b0| 72 69 6e 63 29 29 28 70 | 72 69 6e 63 29 20 50 45 |rinc))(p|rinc) PE|
|000063c0| 44 49 54 4d 20 5e 50 0a | 5b 52 4f 54 41 54 45 3a |DITM ^P.|[ROTATE:|
|000063d0| 5d 24 53 3d 58 20 24 53 | 3d 52 4f 54 41 54 45 20 |]$S=X $S|=ROTATE |
|000063e0| 5e 43 5e 43 52 4f 54 41 | 54 45 0a 5b 53 45 4c 45 |^C^CROTA|TE.[SELE|
|000063f0| 43 54 3a 5d 24 53 3d 58 | 20 24 53 3d 53 45 4c 45 |CT:]$S=X| $S=SELE|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
