home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: DOSIMG Disk Image
(archive/dosimg).
You can browse this item here: 3.img
| 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 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 d4 1c | ee eb 28 90 49 42 4d 20 |........|..(.IBM |
|000000b0| 20 33 2e 33 00 02 01 01 | 00 02 e0 00 60 09 f9 07 | 3.3....|....`...|
|000000c0| 00 0f 00 02 ee 00 0f fa | 33 ed b8 c0 07 8e d8 c4 |........|3.......|
|000000d0| 1e 1c 00 88 16 fd 01 0a | d2 79 08 89 1e 24 00 8c |........|.y...$..|
|000000e0| 06 26 00 8e c5 8e d5 bc | 00 7c fc 1e 36 c5 36 78 |.&......|.|..6.6x|
|000000f0| 00 bf 2a 7c b9 0b 00 f3 | a4 1f c6 06 2e 00 0f bf |..*|....|........|
|00000100| 78 00 b8 2a 7c ab 91 ab | fb 8a 16 fd 01 cd 13 a0 |x..*|...|........|
|00000110| 10 00 98 f7 26 16 00 03 | 06 0e 00 e8 73 00 e8 79 |....&...|....s..y|
|00000120| 00 bb 00 05 53 e8 a0 00 | 5f be 71 01 b9 0b 00 90 |....S...|_.q.....|
|00000130| f3 a6 75 57 83 c7 15 b1 | 0b 90 90 f3 a6 75 4c 26 |..uW....|.....uL&|
|00000140| 8b 47 1c 99 8b 0e 0b 00 | 03 c1 48 f7 f1 3d 14 00 |.G......|..H..=..|
|00000150| 7f 02 b0 14 96 a1 11 00 | b1 04 d3 e8 e8 32 00 ff |........|.....2..|
|00000160| 36 24 00 c4 1e 6d 01 e8 | 30 00 e8 5b 00 2b f0 76 |6$...m..|0..[.+.v|
|00000170| 0d e8 1d 00 52 f7 26 0b | 00 03 d8 5a eb e9 5b 8a |....R.&.|...Z..[.|
|00000180| 2e 15 00 8a 16 fd 01 ff | 2e 6d 01 be 8b 01 eb 54 |........|.m.....T|
|00000190| 90 01 06 24 00 11 2e 26 | 00 c3 a1 18 00 f6 26 1a |...$...&|......&.|
|000001a0| 00 91 a1 24 00 8b 16 26 | 00 f7 f1 92 8b 0e 18 00 |...$...&|........|
|000001b0| f6 f1 2a cc 91 fe c5 86 | e9 d0 ce d0 ce 0a f1 86 |..*.....|........|
|000001c0| f2 87 ca 8a 16 fd 01 c3 | bf 05 00 b8 01 02 cd 13 |........|........|
|000001d0| 72 03 b0 01 c3 80 fc 11 | 74 f8 33 c0 cd 13 4f 75 |r.......|t.3...Ou|
|000001e0| ea be d5 01 e8 1d 00 be | ab 01 e8 17 00 33 c0 cd |........|.....3..|
|000001f0| 16 36 c7 06 72 04 34 12 | ea 00 00 ff ff b4 0e bb |.6..r.4.|........|
|00000200| 07 00 cd 10 ac 3c 24 75 | f4 c3 00 00 70 00 49 42 |.....<$u|....p.IB|
|00000210| 4d 42 49 4f 20 20 43 4f | 4d 49 42 4d 44 4f 53 20 |MBIO CO|MIBMDOS |
|00000220| 20 43 4f 4d ee 00 04 0a | 0d 4e 6f 6e 2d 53 79 73 | COM....|.Non-Sys|
|00000230| 74 65 6d 20 64 69 73 6b | 20 6f 72 20 64 69 73 6b |tem disk| or disk|
|00000240| 20 65 72 72 6f 72 24 0a | 0d 52 65 70 6c 61 63 65 | error$.|.Replace|
|00000250| 20 61 6e 64 20 73 74 72 | 69 6b 65 20 61 6e 79 20 | and str|ike any |
|00000260| 6b 65 79 20 77 68 65 6e | 20 72 65 61 64 79 0a 0d |key when| ready..|
|00000270| 24 0a 0d 44 69 73 6b 20 | 62 6f 6f 74 20 66 61 69 |$..Disk |boot fai|
|00000280| 6c 75 72 65 24 43 6f 70 | 72 2e 20 43 4f 4d 50 41 |lure$Cop|r. COMPA|
|00000290| 51 20 31 39 38 33 2d 38 | 37 00 55 aa f9 ee ff 03 |Q 1983-8|7.U.....|
|000002a0| 4f 00 05 60 00 07 80 00 | 09 a0 00 0b c0 00 0d e0 |O..`....|........|
|000002b0| 00 0f 00 01 11 20 01 13 | 40 01 15 60 01 17 80 01 |..... ..|@..`....|
|000002c0| 19 a0 01 1b c0 01 1d e0 | 01 1f 00 02 21 20 02 23 |........|....! .#|
|000002d0| 40 02 25 60 02 27 80 02 | 29 a0 02 ff cf 02 2d e0 |@.%`.'..|).....-.|
|000002e0| 02 2f 00 03 31 20 03 33 | 40 03 35 60 03 37 f0 ff |./..1 .3|@.5`.7..|
|000002f0| 39 a0 03 3b c0 03 3d f0 | ff 3f 00 04 41 20 04 43 |9..;..=.|.?..A .C|
|00000300| 40 04 45 60 04 47 80 04 | 49 a0 04 4b c0 04 4d e0 |@.E`.G..|I..K..M.|
|00000310| 04 ff 0f 05 51 20 05 53 | 40 05 55 60 05 57 80 05 |....Q .S|@.U`.W..|
|00000320| 59 a0 05 5b c0 05 5d e0 | 05 5f 00 06 61 20 06 63 |Y..[..].|._..a .c|
|00000330| 40 06 65 60 06 67 80 06 | 69 a0 06 6b c0 06 6d e0 |@.e`.g..|i..k..m.|
|00000340| 06 6f 00 07 71 20 07 73 | 40 07 75 60 07 77 80 07 |.o..q .s|@.u`.w..|
|00000350| 79 a0 07 7b c0 07 7d e0 | 07 7f 00 08 81 20 08 83 |y..{..}.|..... ..|
|00000360| 40 08 85 60 08 87 80 08 | 89 a0 08 8b c0 08 8d e0 |@..`....|........|
|00000370| 08 8f 00 09 91 20 09 93 | 40 09 95 60 09 97 80 09 |..... ..|@..`....|
|00000380| 99 a0 09 9b c0 09 9d e0 | 09 9f 00 0a a1 20 0a a3 |........|..... ..|
|00000390| 40 0a a5 60 0a a7 80 0a | a9 a0 0a ab c0 0a ad e0 |@..`....|........|
|000003a0| 0a af 00 0b b1 20 0b b3 | 40 0b b5 60 0b b7 80 0b |..... ..|@..`....|
|000003b0| b9 a0 0b bb c0 0b bd e0 | 0b bf 00 0c c1 20 0c c3 |........|..... ..|
|000003c0| 40 0c c5 60 0c c7 80 0c | c9 a0 0c cb c0 0c cd e0 |@..`....|........|
|000003d0| 0c cf 00 0d d1 20 0d d3 | 40 0d d5 60 0d d7 80 0d |..... ..|@..`....|
|000003e0| d9 a0 0d db c0 0d dd e0 | 0d df 00 0e e1 20 0e e3 |........|..... ..|
|000003f0| 40 0e e5 60 0e e7 80 0e | e9 a0 0e eb c0 0e ed e0 |@..`....|........|
|00000400| 0e ef 00 0f f1 20 0f f3 | 40 0f f5 60 0f f7 80 0f |..... ..|@..`....|
|00000410| f9 a0 0f fb c0 0f fd e0 | 0f ff 00 10 01 21 10 03 |........|.....!..|
|00000420| 41 10 05 61 10 07 81 10 | 09 a1 10 0b c1 10 0d e1 |A..a....|........|
|00000430| 10 0f 01 11 11 21 11 13 | 41 11 15 61 11 17 81 11 |.....!..|A..a....|
|00000440| 19 a1 11 1b c1 11 1d e1 | 11 1f 01 12 21 21 12 23 |........|....!!.#|
|00000450| 41 12 25 61 12 27 81 12 | 29 a1 12 2b c1 12 2d e1 |A.%a.'..|)..+..-.|
|00000460| 12 2f 01 13 31 21 13 33 | 41 13 35 61 13 37 81 13 |./..1!.3|A.5a.7..|
|00000470| 39 a1 13 3b c1 13 3d e1 | 13 3f 01 14 41 21 14 43 |9..;..=.|.?..A!.C|
|00000480| 41 14 45 61 14 47 81 14 | 49 a1 14 4b c1 14 4d e1 |A.Ea.G..|I..K..M.|
|00000490| 14 4f 01 15 51 21 15 53 | 41 15 55 61 15 57 81 15 |.O..Q!.S|A.Ua.W..|
|000004a0| 59 a1 15 5b c1 15 5d e1 | 15 5f 01 16 61 21 16 63 |Y..[..].|._..a!.c|
|000004b0| 41 16 65 61 16 67 81 16 | 69 a1 16 6b c1 16 6d e1 |A.ea.g..|i..k..m.|
|000004c0| 16 6f 01 17 71 21 17 73 | 41 17 75 61 17 77 81 17 |.o..q!.s|A.ua.w..|
|000004d0| 79 a1 17 7b c1 17 7d e1 | 17 7f 01 18 81 21 18 83 |y..{..}.|.....!..|
|000004e0| 41 18 85 61 18 87 81 18 | 89 a1 18 8b c1 18 8d e1 |A..a....|........|
|000004f0| 18 8f 01 19 91 21 19 93 | 41 19 95 61 19 97 81 19 |.....!..|A..a....|
|00000500| 99 a1 19 9b c1 19 9d e1 | 19 9f 01 1a a1 21 1a a3 |........|.....!..|
|00000510| 41 1a a5 61 1a a7 81 1a | a9 a1 1a ab c1 1a ad e1 |A..a....|........|
|00000520| 1a af 01 1b b1 21 1b b3 | 41 1b b5 61 1b b7 81 1b |.....!..|A..a....|
|00000530| b9 a1 1b bb c1 1b bd e1 | 1b bf 01 1c c1 21 1c c3 |........|.....!..|
|00000540| 41 1c c5 61 1c c7 81 1c | c9 a1 1c cb c1 1c cd e1 |A..a....|........|
|00000550| 1c cf 01 1d d1 21 1d d3 | 41 1d d5 61 1d d7 81 1d |.....!..|A..a....|
|00000560| d9 a1 1d db c1 1d dd e1 | 1d df 01 1e e1 21 1e e3 |........|.....!..|
|00000570| 41 1e e5 61 1e e7 81 1e | e9 a1 1e eb c1 1e ed e1 |A..a....|........|
|00000580| 1e ef 01 1f f1 21 1f f3 | 41 1f f5 61 1f f7 81 1f |.....!..|A..a....|
|00000590| f9 a1 1f fb c1 1f fd e1 | 1f ff 01 20 01 22 20 03 |........|... ." .|
|000005a0| 42 20 05 62 20 07 82 20 | 09 a2 20 0b c2 20 0d e2 |B .b .. |.. .. ..|
|000005b0| 20 0f 02 21 11 22 21 13 | 42 21 15 62 21 17 82 21 | ..!."!.|B!.b!..!|
|000005c0| 19 a2 21 1b c2 21 1d e2 | 21 1f 02 22 21 22 22 23 |..!..!..|!.."!""#|
|000005d0| 42 22 25 62 22 27 82 22 | 29 a2 22 2b c2 22 2d e2 |B"%b"'."|)."+."-.|
|000005e0| 22 2f 02 23 31 22 23 33 | 42 23 35 62 23 37 82 23 |"/.#1"#3|B#5b#7.#|
|000005f0| 39 a2 23 3b c2 23 3d e2 | 23 3f 02 24 41 22 24 ff |9.#;.#=.|#?.$A"$.|
|00000600| 4f 24 45 62 24 47 f2 ff | 49 a2 24 4b c2 24 4d e2 |O$Eb$G..|I.$K.$M.|
|00000610| 24 4f 02 25 51 22 25 53 | 42 25 55 62 25 57 82 25 |$O.%Q"%S|B%Ub%W.%|
|00000620| 59 a2 25 5b c2 25 5d e2 | 25 5f 02 26 61 22 26 63 |Y.%[.%].|%_.&a"&c|
|00000630| 42 26 65 62 26 67 82 26 | 69 a2 26 6b c2 26 6d e2 |B&eb&g.&|i.&k.&m.|
|00000640| 26 6f 02 27 71 22 27 73 | 42 27 75 62 27 77 82 27 |&o.'q"'s|B'ub'w.'|
|00000650| 79 a2 27 7b c2 27 7d e2 | 27 7f 02 28 81 22 28 83 |y.'{.'}.|'..(."(.|
|00000660| 42 28 85 62 28 87 82 28 | 89 a2 28 8b c2 28 8d e2 |B(.b(..(|..(..(..|
|00000670| 28 8f 02 29 91 22 29 93 | 42 29 95 62 29 97 82 29 |(..).").|B).b)..)|
|00000680| 99 a2 29 9b c2 29 9d e2 | 29 9f 02 2a a1 22 2a a3 |..)..)..|)..*."*.|
|00000690| 42 2a a5 62 2a a7 82 2a | a9 a2 2a ab c2 2a ad e2 |B*.b*..*|..*..*..|
|000006a0| 2a af 02 2b b1 22 2b b3 | 42 2b b5 62 2b b7 82 2b |*..+."+.|B+.b+..+|
|000006b0| b9 a2 2b bb c2 2b bd e2 | 2b bf 02 2c c1 22 2c c3 |..+..+..|+..,.",.|
|000006c0| 42 2c c5 62 2c c7 82 2c | c9 a2 2c cb c2 2c cd e2 |B,.b,..,|..,..,..|
|000006d0| 2c cf 02 2d d1 22 2d d3 | 42 2d d5 62 2d d7 82 2d |,..-."-.|B-.b-..-|
|000006e0| d9 a2 2d db c2 2d dd e2 | 2d df 02 2e e1 22 2e e3 |..-..-..|-...."..|
|000006f0| 42 2e e5 62 2e e7 82 2e | e9 a2 2e eb c2 2e ed e2 |B..b....|........|
|00000700| 2e ef 02 2f f1 22 2f f3 | 42 2f f5 62 2f f7 82 2f |.../."/.|B/.b/../|
|00000710| f9 a2 2f fb c2 2f fd e2 | 2f ff 02 30 01 23 30 03 |../../..|/..0.#0.|
|00000720| 43 30 05 63 30 07 83 30 | 09 a3 30 0b c3 30 0d e3 |C0.c0..0|..0..0..|
|00000730| 30 0f 03 31 11 23 31 13 | 43 31 15 63 31 17 83 31 |0..1.#1.|C1.c1..1|
|00000740| 19 a3 31 1b c3 31 1d e3 | 31 1f 03 32 21 23 32 23 |..1..1..|1..2!#2#|
|00000750| 43 32 25 63 32 27 83 32 | 29 a3 32 2b c3 32 2d e3 |C2%c2'.2|).2+.2-.|
|00000760| 32 2f 03 33 31 23 33 33 | 43 33 35 63 33 37 83 33 |2/.31#33|C35c37.3|
|00000770| 39 a3 33 3b c3 33 3d e3 | 33 3f 03 34 41 23 34 43 |9.3;.3=.|3?.4A#4C|
|00000780| 43 34 45 63 34 47 83 34 | 49 a3 34 4b c3 34 4d e3 |C4Ec4G.4|I.4K.4M.|
|00000790| 34 4f 03 35 51 23 35 53 | 43 35 55 63 35 57 83 35 |4O.5Q#5S|C5Uc5W.5|
|000007a0| 59 a3 35 5b c3 35 5d e3 | 35 5f 03 36 61 23 36 63 |Y.5[.5].|5_.6a#6c|
|000007b0| 43 36 65 63 36 67 83 36 | 69 a3 36 6b c3 36 6d e3 |C6ec6g.6|i.6k.6m.|
|000007c0| 36 6f 03 37 71 23 37 73 | 43 37 75 63 37 77 83 37 |6o.7q#7s|C7uc7w.7|
|000007d0| 79 a3 37 7b c3 37 7d e3 | 37 7f 03 38 81 23 38 83 |y.7{.7}.|7..8.#8.|
|000007e0| 43 38 85 63 38 87 83 38 | 89 a3 38 8b c3 38 8d e3 |C8.c8..8|..8..8..|
|000007f0| 38 8f 03 39 91 23 39 93 | 43 39 95 63 39 97 83 39 |8..9.#9.|C9.c9..9|
|00000800| 99 a3 39 9b c3 39 9d e3 | 39 9f 03 3a a1 23 3a a3 |..9..9..|9..:.#:.|
|00000810| 43 3a a5 63 3a a7 83 3a | a9 a3 3a ab c3 3a ad e3 |C:.c:..:|..:..:..|
|00000820| 3a af 03 3b b1 23 3b b3 | 43 3b b5 63 3b b7 83 3b |:..;.#;.|C;.c;..;|
|00000830| b9 a3 3b bb c3 3b bd e3 | 3b bf 03 3c c1 23 3c c3 |..;..;..|;..<.#<.|
|00000840| 43 3c c5 63 3c c7 83 3c | c9 a3 3c cb c3 3c cd e3 |C<.c<..<|..<..<..|
|00000850| 3c cf 03 3d d1 23 3d d3 | 43 3d d5 63 3d d7 83 3d |<..=.#=.|C=.c=..=|
|00000860| d9 a3 3d db c3 3d dd e3 | 3d df 03 3e e1 23 3e e3 |..=..=..|=..>.#>.|
|00000870| 43 3e e5 63 3e e7 83 3e | e9 a3 3e eb c3 3e ed e3 |C>.c>..>|..>..>..|
|00000880| 3e ef 03 3f f1 23 3f f3 | 43 3f f5 63 3f f7 83 3f |>..?.#?.|C?.c?..?|
|00000890| f9 a3 3f fb c3 3f fd e3 | 3f ff 03 40 01 24 40 03 |..?..?..|?..@.$@.|
|000008a0| 44 40 05 64 40 07 84 40 | 09 a4 40 0b c4 40 0d e4 |D@.d@..@|..@..@..|
|000008b0| 40 0f 04 41 11 24 41 13 | f4 ff 15 f4 ff 17 84 41 |@..A.$A.|.......A|
|000008c0| 19 a4 41 1b c4 41 1d e4 | 41 1f 04 42 21 24 42 23 |..A..A..|A..B!$B#|
|000008d0| 44 42 25 64 42 27 84 42 | 29 f4 ff 2b c4 42 ff ef |DB%dB'.B|)..+.B..|
|000008e0| 42 2f 04 43 31 24 43 33 | 44 43 35 64 43 37 84 43 |B/.C1$C3|DC5dC7.C|
|000008f0| 39 a4 43 3b c4 43 3d e4 | 43 3f 04 44 41 24 44 43 |9.C;.C=.|C?.DA$DC|
|00000900| 44 44 45 64 44 47 84 44 | 49 a4 44 4b c4 44 4d e4 |DDEdDG.D|I.DK.DM.|
|00000910| 44 4f 04 45 51 24 45 53 | 44 45 55 64 45 57 84 45 |DO.EQ$ES|DEUdEW.E|
|00000920| 59 a4 45 5b c4 45 5d e4 | 45 5f 04 46 61 24 46 63 |Y.E[.E].|E_.Fa$Fc|
|00000930| 44 46 65 64 46 67 84 46 | 69 a4 46 6b c4 46 6d e4 |DFedFg.F|i.Fk.Fm.|
|00000940| 46 6f 04 47 71 24 47 73 | 44 47 75 64 47 77 84 47 |Fo.Gq$Gs|DGudGw.G|
|00000950| 79 a4 47 7b c4 47 7d e4 | 47 7f 04 48 81 24 48 83 |y.G{.G}.|G..H.$H.|
|00000960| 44 48 85 64 48 87 84 48 | 89 a4 48 8b c4 48 8d e4 |DH.dH..H|..H..H..|
|00000970| 48 8f 04 49 91 24 49 93 | 44 49 95 64 49 97 84 49 |H..I.$I.|DI.dI..I|
|00000980| 99 a4 49 9b c4 49 9d e4 | 49 9f 04 4a a1 24 4a a3 |..I..I..|I..J.$J.|
|00000990| 44 4a a5 64 4a a7 84 4a | a9 a4 4a ab c4 4a ad e4 |DJ.dJ..J|..J..J..|
|000009a0| 4a af 04 4b b1 24 4b b3 | 44 4b b5 64 4b b7 84 4b |J..K.$K.|DK.dK..K|
|000009b0| b9 a4 4b bb c4 4b bd e4 | 4b bf 04 4c c1 24 4c c3 |..K..K..|K..L.$L.|
|000009c0| 44 4c c5 64 4c c7 84 4c | c9 a4 4c cb c4 4c cd e4 |DL.dL..L|..L..L..|
|000009d0| 4c cf 04 4d d1 24 4d d3 | 44 4d d5 64 4d d7 84 4d |L..M.$M.|DM.dM..M|
|000009e0| d9 a4 4d db c4 4d dd e4 | 4d df 04 4e e1 24 4e e3 |..M..M..|M..N.$N.|
|000009f0| 44 4e e5 64 4e e7 84 4e | e9 a4 4e eb c4 4e ed e4 |DN.dN..N|..N..N..|
|00000a00| 4e ef 04 4f f1 24 4f f3 | 44 4f f5 64 4f f7 84 4f |N..O.$O.|DO.dO..O|
|00000a10| f9 a4 4f fb c4 4f fd e4 | 4f ff 04 50 01 25 50 03 |..O..O..|O..P.%P.|
|00000a20| 45 50 05 65 50 07 85 50 | 09 a5 50 0b c5 50 0d e5 |EP.eP..P|..P..P..|
|00000a30| 50 0f 05 51 11 25 51 13 | 45 51 15 65 51 17 85 51 |P..Q.%Q.|EQ.eQ..Q|
|00000a40| 19 a5 51 1b c5 51 1d e5 | 51 1f 05 52 21 25 52 23 |..Q..Q..|Q..R!%R#|
|00000a50| 45 52 25 65 52 27 f5 ff | 29 a5 52 2b c5 52 2d e5 |ER%eR'..|).R+.R-.|
|00000a60| 52 2f 05 53 31 25 53 33 | 45 53 ff 6f 53 37 85 53 |R/.S1%S3|ES.oS7.S|
|00000a70| 39 a5 53 3b c5 53 3d e5 | 53 3f 05 54 41 25 54 43 |9.S;.S=.|S?.TA%TC|
|00000a80| 45 54 45 65 54 47 85 54 | 49 a5 54 4b c5 54 4d e5 |ETEeTG.T|I.TK.TM.|
|00000a90| 54 4f 05 55 51 25 55 53 | 45 55 55 65 55 57 85 55 |TO.UQ%US|EUUeUW.U|
|00000aa0| 59 a5 55 5b c5 55 5d e5 | 55 5f 05 56 61 25 56 63 |Y.U[.U].|U_.Va%Vc|
|00000ab0| 45 56 65 65 56 67 85 56 | 69 a5 56 6b c5 56 6d e5 |EVeeVg.V|i.Vk.Vm.|
|00000ac0| 56 6f 05 57 71 25 57 73 | 45 57 75 65 57 77 85 57 |Vo.Wq%Ws|EWueWw.W|
|00000ad0| 79 a5 57 7b c5 57 7d e5 | 57 7f 05 58 81 25 58 83 |y.W{.W}.|W..X.%X.|
|00000ae0| 45 58 85 65 58 87 85 58 | 89 a5 58 8b c5 58 8d e5 |EX.eX..X|..X..X..|
|00000af0| 58 8f 05 59 91 25 59 93 | 45 59 95 65 59 97 85 59 |X..Y.%Y.|EY.eY..Y|
|00000b00| 99 a5 59 9b c5 59 9d e5 | 59 9f 05 5a a1 25 5a a3 |..Y..Y..|Y..Z.%Z.|
|00000b10| 45 5a a5 65 5a a7 85 5a | a9 a5 5a ab c5 5a ad e5 |EZ.eZ..Z|..Z..Z..|
|00000b20| 5a af 05 5b b1 25 5b b3 | 45 5b b5 65 5b b7 85 5b |Z..[.%[.|E[.e[..[|
|00000b30| b9 a5 5b bb c5 5b bd e5 | 5b bf 05 5c c1 25 5c c3 |..[..[..|[..\.%\.|
|00000b40| 45 5c c5 65 5c c7 85 5c | c9 a5 5c cb c5 5c cd e5 |E\.e\..\|..\..\..|
|00000b50| 5c cf 05 5d d1 25 5d d3 | 45 5d d5 65 5d d7 85 5d |\..].%].|E].e]..]|
|00000b60| d9 a5 5d db f5 ff dd e5 | 5d df 05 5e e1 25 5e e3 |..].....|]..^.%^.|
|00000b70| 45 5e e5 65 5e e7 85 5e | e9 a5 5e eb c5 5e ed e5 |E^.e^..^|..^..^..|
|00000b80| 5e ef 05 5f f1 25 5f f3 | 45 5f f5 65 5f f7 85 5f |^.._.%_.|E_.e_.._|
|00000b90| f9 a5 5f fb c5 5f fd e5 | 5f ff 05 60 01 26 60 03 |.._.._..|_..`.&`.|
|00000ba0| 46 60 05 66 60 07 86 60 | 09 a6 60 0b c6 60 0d e6 |F`.f`..`|..`..`..|
|00000bb0| 60 0f 06 61 11 26 61 13 | 46 61 15 66 61 17 86 61 |`..a.&a.|Fa.fa..a|
|00000bc0| 19 a6 61 1b c6 61 1d e6 | 61 1f 06 62 ff 2f 62 23 |..a..a..|a..b./b#|
|00000bd0| 46 62 25 66 62 27 86 62 | 29 a6 62 2b c6 62 2d e6 |Fb%fb'.b|).b+.b-.|
|00000be0| 62 2f 06 63 31 26 63 33 | 46 63 35 66 63 37 86 63 |b/.c1&c3|Fc5fc7.c|
|00000bf0| 39 a6 63 3b c6 63 3d e6 | 63 3f 06 64 41 26 64 43 |9.c;.c=.|c?.dA&dC|
|00000c00| 46 64 ff 6f 64 47 86 64 | 49 a6 64 4b c6 64 4d e6 |Fd.odG.d|I.dK.dM.|
|00000c10| 64 4f 06 65 51 26 65 53 | 46 65 55 66 65 57 86 65 |dO.eQ&eS|FeUfeW.e|
|00000c20| 59 a6 65 ff cf 65 5d e6 | 65 5f 06 66 61 26 66 63 |Y.e..e].|e_.fa&fc|
|00000c30| 46 66 65 66 66 67 86 66 | 69 a6 66 6b c6 66 6d e6 |Ffeffg.f|i.fk.fm.|
|00000c40| 66 6f 06 67 71 26 67 73 | 46 67 75 66 67 77 86 67 |fo.gq&gs|Fgufgw.g|
|00000c50| 79 a6 67 ff cf 67 7d e6 | 67 7f 06 68 81 26 68 83 |y.g..g}.|g..h.&h.|
|00000c60| 46 68 85 66 68 87 86 68 | 89 a6 68 8b c6 68 8d e6 |Fh.fh..h|..h..h..|
|00000c70| 68 8f 06 69 91 26 69 93 | 46 69 95 66 69 97 86 69 |h..i.&i.|Fi.fi..i|
|00000c80| 99 a6 69 9b f6 ff 9d e6 | 69 9f 06 6a a1 26 6a a3 |..i.....|i..j.&j.|
|00000c90| 46 6a a5 66 6a a7 86 6a | ff af 6a ab c6 6a ad e6 |Fj.fj..j|..j..j..|
|00000ca0| 6a af 06 6b b1 26 6b b3 | 46 6b b5 66 6b b7 86 6b |j..k.&k.|Fk.fk..k|
|00000cb0| ff af 6b bb c6 6b bd e6 | 6b bf 06 6c c1 26 6c c3 |..k..k..|k..l.&l.|
|00000cc0| 46 6c c5 66 6c c7 86 6c | ff af 6c cb c6 6c cd e6 |Fl.fl..l|..l..l..|
|00000cd0| 6c cf 06 6d d1 26 6d d3 | 46 6d d5 66 6d d7 86 6d |l..m.&m.|Fm.fm..m|
|00000ce0| d9 a6 6d db c6 6d ff ef | 6d df 06 6e e1 26 6e e3 |..m..m..|m..n.&n.|
|00000cf0| 46 6e e5 66 6e e7 86 6e | e9 a6 6e eb c6 6e ed e6 |Fn.fn..n|..n..n..|
|00000d00| 6e ef 06 6f f1 f6 ff f3 | 46 6f f5 66 6f f7 86 6f |n..o....|Fo.fo..o|
|00000d10| f9 a6 6f fb c6 6f fd e6 | 6f ff 06 70 01 27 70 03 |..o..o..|o..p.'p.|
|00000d20| f7 ff 05 67 70 07 87 70 | 09 a7 70 0b c7 70 0d e7 |...gp..p|..p..p..|
|00000d30| 70 0f 07 71 11 f7 ff 13 | 47 71 15 67 71 17 87 71 |p..q....|Gq.gq..q|
|00000d40| 19 a7 71 1b c7 71 ff ef | 71 1f 07 72 21 27 72 23 |..q..q..|q..r!'r#|
|00000d50| 47 72 25 67 72 27 87 72 | ff af 72 2b c7 72 2d e7 |Gr%gr'.r|..r+.r-.|
|00000d60| 72 2f 07 73 31 27 73 33 | 47 73 35 67 73 37 87 73 |r/.s1's3|Gs5gs7.s|
|00000d70| ff af 73 3b c7 73 3d e7 | 73 3f 07 74 41 27 74 43 |..s;.s=.|s?.tA'tC|
|00000d80| 47 74 45 67 74 47 f7 ff | 49 a7 74 4b c7 74 4d e7 |GtEgtG..|I.tK.tM.|
|00000d90| 74 4f 07 75 51 27 75 53 | 47 75 55 67 75 57 87 75 |tO.uQ'uS|GuUguW.u|
|00000da0| 59 a7 75 5b f7 ff 5d e7 | 75 5f 07 76 61 27 76 63 |Y.u[..].|u_.va'vc|
|00000db0| 47 76 65 67 76 67 87 76 | 69 a7 76 6b c7 76 6d e7 |Gvegvg.v|i.vk.vm.|
|00000dc0| 76 6f 07 77 71 27 77 73 | 47 77 75 67 77 77 87 77 |vo.wq'ws|Gwugww.w|
|00000dd0| 79 a7 77 7b c7 77 7d f7 | ff 7f 07 78 81 27 78 83 |y.w{.w}.|...x.'x.|
|00000de0| 47 78 85 67 78 87 87 78 | 89 a7 78 8b c7 78 8d f7 |Gx.gx..x|..x..x..|
|00000df0| ff 8f 07 79 91 27 79 93 | f7 ff 95 67 79 97 87 79 |...y.'y.|...gy..y|
|00000e00| 99 a7 79 9b c7 79 9d e7 | 79 9f 07 7a a1 27 7a a3 |..y..y..|y..z.'z.|
|00000e10| 47 7a a5 67 7a a7 87 7a | a9 a7 7a ab c7 7a ad e7 |Gz.gz..z|..z..z..|
|00000e20| 7a af 07 7b b1 27 7b b3 | 47 7b b5 67 7b b7 87 7b |z..{.'{.|G{.g{..{|
|00000e30| b9 a7 7b bb c7 7b bd e7 | 7b bf 07 7c c1 27 7c c3 |..{..{..|{..|.'|.|
|00000e40| 47 7c c5 67 7c c7 87 7c | c9 a7 7c cb c7 7c cd e7 |G|.g|..||..|..|..|
|00000e50| 7c cf 07 7d d1 27 7d d3 | 47 7d d5 67 7d d7 87 7d ||..}.'}.|G}.g}..}|
|00000e60| d9 a7 7d db c7 7d dd e7 | 7d df 07 7e e1 27 7e e3 |..}..}..|}..~.'~.|
|00000e70| 47 7e e5 67 7e e7 87 7e | e9 a7 7e eb c7 7e ed e7 |G~.g~..~|..~..~..|
|00000e80| 7e ef 07 7f f1 27 7f f3 | 47 7f f5 67 7f f7 87 7f |~....'..|G..g....|
|00000e90| f9 a7 7f fb c7 7f fd e7 | 7f ff 07 80 01 28 80 03 |........|.....(..|
|00000ea0| 48 80 05 68 80 07 88 80 | 09 a8 80 0b c8 80 0d e8 |H..h....|........|
|00000eb0| 80 0f 08 81 11 28 81 13 | 48 81 15 68 81 17 88 81 |.....(..|H..h....|
|00000ec0| 19 a8 81 1b c8 81 1d e8 | 81 1f 08 82 21 28 82 23 |........|....!(.#|
|00000ed0| 48 82 25 68 82 27 88 82 | 29 a8 82 2b c8 82 2d e8 |H.%h.'..|)..+..-.|
|00000ee0| 82 2f 08 83 31 f8 ff ff | 4f 83 35 68 83 37 88 83 |./..1...|O.5h.7..|
|00000ef0| 39 a8 83 3b c8 83 3d e8 | 83 3f 08 84 ff 2f 84 43 |9..;..=.|.?.../.C|
|00000f00| 48 84 45 68 84 47 88 84 | 49 a8 84 4b c8 84 4d e8 |H.Eh.G..|I..K..M.|
|00000f10| 84 4f f8 ff 51 28 85 53 | 48 85 55 68 85 57 88 85 |.O..Q(.S|H.Uh.W..|
|00000f20| 59 f8 ff 5b c8 85 5d e8 | 85 5f 08 86 61 28 86 63 |Y..[..].|._..a(.c|
|00000f30| 48 86 65 68 86 67 88 86 | 69 a8 86 6b c8 86 6d f8 |H.eh.g..|i..k..m.|
|00000f40| ff 6f 08 87 71 28 87 73 | 48 87 75 68 87 77 88 87 |.o..q(.s|H.uh.w..|
|00000f50| 79 a8 87 7b c8 87 7d f8 | ff 7f 08 88 81 28 88 83 |y..{..}.|.....(..|
|00000f60| 48 88 85 68 88 87 88 88 | 89 f8 ff 8b c8 88 8d e8 |H..h....|........|
|00000f70| 88 8f 08 89 91 28 89 ff | 4f 89 95 68 89 97 88 89 |.....(..|O..h....|
|00000f80| 99 a8 89 9b c8 89 9d e8 | 89 9f 08 8a ff 2f 8a a3 |........|...../..|
|00000f90| 48 8a a5 68 8a a7 88 8a | a9 a8 8a ab c8 8a ff ef |H..h....|........|
|00000fa0| 8a af 08 8b b1 28 8b b3 | 48 8b b5 68 8b b7 88 8b |.....(..|H..h....|
|00000fb0| ff af 8b bb c8 8b bd e8 | 8b bf 08 8c c1 28 8c ff |........|.....(..|
|00000fc0| 4f 8c c5 68 8c c7 88 8c | c9 a8 8c cb c8 8c cd e8 |O..h....|........|
|00000fd0| 8c cf 08 8d ff 2f 8d d3 | 48 8d d5 68 8d d7 88 8d |...../..|H..h....|
|00000fe0| d9 a8 8d db c8 8d dd e8 | 8d df 08 8e e1 28 8e e3 |........|.....(..|
|00000ff0| 48 8e e5 68 8e e7 88 8e | e9 a8 8e eb f8 ff ed e8 |H..h....|........|
|00001000| 8e ef 08 8f f1 f8 ff ff | 0f ee 00 93 f9 ee ff 03 |........|........|
|00001010| 4f 00 05 60 00 07 80 00 | 09 a0 00 0b c0 00 0d e0 |O..`....|........|
|00001020| 00 0f 00 01 11 20 01 13 | 40 01 15 60 01 17 80 01 |..... ..|@..`....|
|00001030| 19 a0 01 1b c0 01 1d e0 | 01 1f 00 02 21 20 02 23 |........|....! .#|
|00001040| 40 02 25 60 02 27 80 02 | 29 a0 02 ff cf 02 2d e0 |@.%`.'..|).....-.|
|00001050| 02 2f 00 03 31 20 03 33 | 40 03 35 60 03 37 f0 ff |./..1 .3|@.5`.7..|
|00001060| 39 a0 03 3b c0 03 3d f0 | ff 3f 00 04 41 20 04 43 |9..;..=.|.?..A .C|
|00001070| 40 04 45 60 04 47 80 04 | 49 a0 04 4b c0 04 4d e0 |@.E`.G..|I..K..M.|
|00001080| 04 ff 0f 05 51 20 05 53 | 40 05 55 60 05 57 80 05 |....Q .S|@.U`.W..|
|00001090| 59 a0 05 5b c0 05 5d e0 | 05 5f 00 06 61 20 06 63 |Y..[..].|._..a .c|
|000010a0| 40 06 65 60 06 67 80 06 | 69 a0 06 6b c0 06 6d e0 |@.e`.g..|i..k..m.|
|000010b0| 06 6f 00 07 71 20 07 73 | 40 07 75 60 07 77 80 07 |.o..q .s|@.u`.w..|
|000010c0| 79 a0 07 7b c0 07 7d e0 | 07 7f 00 08 81 20 08 83 |y..{..}.|..... ..|
|000010d0| 40 08 85 60 08 87 80 08 | 89 a0 08 8b c0 08 8d e0 |@..`....|........|
|000010e0| 08 8f 00 09 91 20 09 93 | 40 09 95 60 09 97 80 09 |..... ..|@..`....|
|000010f0| 99 a0 09 9b c0 09 9d e0 | 09 9f 00 0a a1 20 0a a3 |........|..... ..|
|00001100| 40 0a a5 60 0a a7 80 0a | a9 a0 0a ab c0 0a ad e0 |@..`....|........|
|00001110| 0a af 00 0b b1 20 0b b3 | 40 0b b5 60 0b b7 80 0b |..... ..|@..`....|
|00001120| b9 a0 0b bb c0 0b bd e0 | 0b bf 00 0c c1 20 0c c3 |........|..... ..|
|00001130| 40 0c c5 60 0c c7 80 0c | c9 a0 0c cb c0 0c cd e0 |@..`....|........|
|00001140| 0c cf 00 0d d1 20 0d d3 | 40 0d d5 60 0d d7 80 0d |..... ..|@..`....|
|00001150| d9 a0 0d db c0 0d dd e0 | 0d df 00 0e e1 20 0e e3 |........|..... ..|
|00001160| 40 0e e5 60 0e e7 80 0e | e9 a0 0e eb c0 0e ed e0 |@..`....|........|
|00001170| 0e ef 00 0f f1 20 0f f3 | 40 0f f5 60 0f f7 80 0f |..... ..|@..`....|
|00001180| f9 a0 0f fb c0 0f fd e0 | 0f ff 00 10 01 21 10 03 |........|.....!..|
|00001190| 41 10 05 61 10 07 81 10 | 09 a1 10 0b c1 10 0d e1 |A..a....|........|
|000011a0| 10 0f 01 11 11 21 11 13 | 41 11 15 61 11 17 81 11 |.....!..|A..a....|
|000011b0| 19 a1 11 1b c1 11 1d e1 | 11 1f 01 12 21 21 12 23 |........|....!!.#|
|000011c0| 41 12 25 61 12 27 81 12 | 29 a1 12 2b c1 12 2d e1 |A.%a.'..|)..+..-.|
|000011d0| 12 2f 01 13 31 21 13 33 | 41 13 35 61 13 37 81 13 |./..1!.3|A.5a.7..|
|000011e0| 39 a1 13 3b c1 13 3d e1 | 13 3f 01 14 41 21 14 43 |9..;..=.|.?..A!.C|
|000011f0| 41 14 45 61 14 47 81 14 | 49 a1 14 4b c1 14 4d e1 |A.Ea.G..|I..K..M.|
|00001200| 14 4f 01 15 51 21 15 53 | 41 15 55 61 15 57 81 15 |.O..Q!.S|A.Ua.W..|
|00001210| 59 a1 15 5b c1 15 5d e1 | 15 5f 01 16 61 21 16 63 |Y..[..].|._..a!.c|
|00001220| 41 16 65 61 16 67 81 16 | 69 a1 16 6b c1 16 6d e1 |A.ea.g..|i..k..m.|
|00001230| 16 6f 01 17 71 21 17 73 | 41 17 75 61 17 77 81 17 |.o..q!.s|A.ua.w..|
|00001240| 79 a1 17 7b c1 17 7d e1 | 17 7f 01 18 81 21 18 83 |y..{..}.|.....!..|
|00001250| 41 18 85 61 18 87 81 18 | 89 a1 18 8b c1 18 8d e1 |A..a....|........|
|00001260| 18 8f 01 19 91 21 19 93 | 41 19 95 61 19 97 81 19 |.....!..|A..a....|
|00001270| 99 a1 19 9b c1 19 9d e1 | 19 9f 01 1a a1 21 1a a3 |........|.....!..|
|00001280| 41 1a a5 61 1a a7 81 1a | a9 a1 1a ab c1 1a ad e1 |A..a....|........|
|00001290| 1a af 01 1b b1 21 1b b3 | 41 1b b5 61 1b b7 81 1b |.....!..|A..a....|
|000012a0| b9 a1 1b bb c1 1b bd e1 | 1b bf 01 1c c1 21 1c c3 |........|.....!..|
|000012b0| 41 1c c5 61 1c c7 81 1c | c9 a1 1c cb c1 1c cd e1 |A..a....|........|
|000012c0| 1c cf 01 1d d1 21 1d d3 | 41 1d d5 61 1d d7 81 1d |.....!..|A..a....|
|000012d0| d9 a1 1d db c1 1d dd e1 | 1d df 01 1e e1 21 1e e3 |........|.....!..|
|000012e0| 41 1e e5 61 1e e7 81 1e | e9 a1 1e eb c1 1e ed e1 |A..a....|........|
|000012f0| 1e ef 01 1f f1 21 1f f3 | 41 1f f5 61 1f f7 81 1f |.....!..|A..a....|
|00001300| f9 a1 1f fb c1 1f fd e1 | 1f ff 01 20 01 22 20 03 |........|... ." .|
|00001310| 42 20 05 62 20 07 82 20 | 09 a2 20 0b c2 20 0d e2 |B .b .. |.. .. ..|
|00001320| 20 0f 02 21 11 22 21 13 | 42 21 15 62 21 17 82 21 | ..!."!.|B!.b!..!|
|00001330| 19 a2 21 1b c2 21 1d e2 | 21 1f 02 22 21 22 22 23 |..!..!..|!.."!""#|
|00001340| 42 22 25 62 22 27 82 22 | 29 a2 22 2b c2 22 2d e2 |B"%b"'."|)."+."-.|
|00001350| 22 2f 02 23 31 22 23 33 | 42 23 35 62 23 37 82 23 |"/.#1"#3|B#5b#7.#|
|00001360| 39 a2 23 3b c2 23 3d e2 | 23 3f 02 24 41 22 24 ff |9.#;.#=.|#?.$A"$.|
|00001370| 4f 24 45 62 24 47 f2 ff | 49 a2 24 4b c2 24 4d e2 |O$Eb$G..|I.$K.$M.|
|00001380| 24 4f 02 25 51 22 25 53 | 42 25 55 62 25 57 82 25 |$O.%Q"%S|B%Ub%W.%|
|00001390| 59 a2 25 5b c2 25 5d e2 | 25 5f 02 26 61 22 26 63 |Y.%[.%].|%_.&a"&c|
|000013a0| 42 26 65 62 26 67 82 26 | 69 a2 26 6b c2 26 6d e2 |B&eb&g.&|i.&k.&m.|
|000013b0| 26 6f 02 27 71 22 27 73 | 42 27 75 62 27 77 82 27 |&o.'q"'s|B'ub'w.'|
|000013c0| 79 a2 27 7b c2 27 7d e2 | 27 7f 02 28 81 22 28 83 |y.'{.'}.|'..(."(.|
|000013d0| 42 28 85 62 28 87 82 28 | 89 a2 28 8b c2 28 8d e2 |B(.b(..(|..(..(..|
|000013e0| 28 8f 02 29 91 22 29 93 | 42 29 95 62 29 97 82 29 |(..).").|B).b)..)|
|000013f0| 99 a2 29 9b c2 29 9d e2 | 29 9f 02 2a a1 22 2a a3 |..)..)..|)..*."*.|
|00001400| 42 2a a5 62 2a a7 82 2a | a9 a2 2a ab c2 2a ad e2 |B*.b*..*|..*..*..|
|00001410| 2a af 02 2b b1 22 2b b3 | 42 2b b5 62 2b b7 82 2b |*..+."+.|B+.b+..+|
|00001420| b9 a2 2b bb c2 2b bd e2 | 2b bf 02 2c c1 22 2c c3 |..+..+..|+..,.",.|
|00001430| 42 2c c5 62 2c c7 82 2c | c9 a2 2c cb c2 2c cd e2 |B,.b,..,|..,..,..|
|00001440| 2c cf 02 2d d1 22 2d d3 | 42 2d d5 62 2d d7 82 2d |,..-."-.|B-.b-..-|
|00001450| d9 a2 2d db c2 2d dd e2 | 2d df 02 2e e1 22 2e e3 |..-..-..|-...."..|
|00001460| 42 2e e5 62 2e e7 82 2e | e9 a2 2e eb c2 2e ed e2 |B..b....|........|
|00001470| 2e ef 02 2f f1 22 2f f3 | 42 2f f5 62 2f f7 82 2f |.../."/.|B/.b/../|
|00001480| f9 a2 2f fb c2 2f fd e2 | 2f ff 02 30 01 23 30 03 |../../..|/..0.#0.|
|00001490| 43 30 05 63 30 07 83 30 | 09 a3 30 0b c3 30 0d e3 |C0.c0..0|..0..0..|
|000014a0| 30 0f 03 31 11 23 31 13 | 43 31 15 63 31 17 83 31 |0..1.#1.|C1.c1..1|
|000014b0| 19 a3 31 1b c3 31 1d e3 | 31 1f 03 32 21 23 32 23 |..1..1..|1..2!#2#|
|000014c0| 43 32 25 63 32 27 83 32 | 29 a3 32 2b c3 32 2d e3 |C2%c2'.2|).2+.2-.|
|000014d0| 32 2f 03 33 31 23 33 33 | 43 33 35 63 33 37 83 33 |2/.31#33|C35c37.3|
|000014e0| 39 a3 33 3b c3 33 3d e3 | 33 3f 03 34 41 23 34 43 |9.3;.3=.|3?.4A#4C|
|000014f0| 43 34 45 63 34 47 83 34 | 49 a3 34 4b c3 34 4d e3 |C4Ec4G.4|I.4K.4M.|
|00001500| 34 4f 03 35 51 23 35 53 | 43 35 55 63 35 57 83 35 |4O.5Q#5S|C5Uc5W.5|
|00001510| 59 a3 35 5b c3 35 5d e3 | 35 5f 03 36 61 23 36 63 |Y.5[.5].|5_.6a#6c|
|00001520| 43 36 65 63 36 67 83 36 | 69 a3 36 6b c3 36 6d e3 |C6ec6g.6|i.6k.6m.|
|00001530| 36 6f 03 37 71 23 37 73 | 43 37 75 63 37 77 83 37 |6o.7q#7s|C7uc7w.7|
|00001540| 79 a3 37 7b c3 37 7d e3 | 37 7f 03 38 81 23 38 83 |y.7{.7}.|7..8.#8.|
|00001550| 43 38 85 63 38 87 83 38 | 89 a3 38 8b c3 38 8d e3 |C8.c8..8|..8..8..|
|00001560| 38 8f 03 39 91 23 39 93 | 43 39 95 63 39 97 83 39 |8..9.#9.|C9.c9..9|
|00001570| 99 a3 39 9b c3 39 9d e3 | 39 9f 03 3a a1 23 3a a3 |..9..9..|9..:.#:.|
|00001580| 43 3a a5 63 3a a7 83 3a | a9 a3 3a ab c3 3a ad e3 |C:.c:..:|..:..:..|
|00001590| 3a af 03 3b b1 23 3b b3 | 43 3b b5 63 3b b7 83 3b |:..;.#;.|C;.c;..;|
|000015a0| b9 a3 3b bb c3 3b bd e3 | 3b bf 03 3c c1 23 3c c3 |..;..;..|;..<.#<.|
|000015b0| 43 3c c5 63 3c c7 83 3c | c9 a3 3c cb c3 3c cd e3 |C<.c<..<|..<..<..|
|000015c0| 3c cf 03 3d d1 23 3d d3 | 43 3d d5 63 3d d7 83 3d |<..=.#=.|C=.c=..=|
|000015d0| d9 a3 3d db c3 3d dd e3 | 3d df 03 3e e1 23 3e e3 |..=..=..|=..>.#>.|
|000015e0| 43 3e e5 63 3e e7 83 3e | e9 a3 3e eb c3 3e ed e3 |C>.c>..>|..>..>..|
|000015f0| 3e ef 03 3f f1 23 3f f3 | 43 3f f5 63 3f f7 83 3f |>..?.#?.|C?.c?..?|
|00001600| f9 a3 3f fb c3 3f fd e3 | 3f ff 03 40 01 24 40 03 |..?..?..|?..@.$@.|
|00001610| 44 40 05 64 40 07 84 40 | 09 a4 40 0b c4 40 0d e4 |D@.d@..@|..@..@..|
|00001620| 40 0f 04 41 11 24 41 13 | f4 ff 15 f4 ff 17 84 41 |@..A.$A.|.......A|
|00001630| 19 a4 41 1b c4 41 1d e4 | 41 1f 04 42 21 24 42 23 |..A..A..|A..B!$B#|
|00001640| 44 42 25 64 42 27 84 42 | 29 f4 ff 2b c4 42 ff ef |DB%dB'.B|)..+.B..|
|00001650| 42 2f 04 43 31 24 43 33 | 44 43 35 64 43 37 84 43 |B/.C1$C3|DC5dC7.C|
|00001660| 39 a4 43 3b c4 43 3d e4 | 43 3f 04 44 41 24 44 43 |9.C;.C=.|C?.DA$DC|
|00001670| 44 44 45 64 44 47 84 44 | 49 a4 44 4b c4 44 4d e4 |DDEdDG.D|I.DK.DM.|
|00001680| 44 4f 04 45 51 24 45 53 | 44 45 55 64 45 57 84 45 |DO.EQ$ES|DEUdEW.E|
|00001690| 59 a4 45 5b c4 45 5d e4 | 45 5f 04 46 61 24 46 63 |Y.E[.E].|E_.Fa$Fc|
|000016a0| 44 46 65 64 46 67 84 46 | 69 a4 46 6b c4 46 6d e4 |DFedFg.F|i.Fk.Fm.|
|000016b0| 46 6f 04 47 71 24 47 73 | 44 47 75 64 47 77 84 47 |Fo.Gq$Gs|DGudGw.G|
|000016c0| 79 a4 47 7b c4 47 7d e4 | 47 7f 04 48 81 24 48 83 |y.G{.G}.|G..H.$H.|
|000016d0| 44 48 85 64 48 87 84 48 | 89 a4 48 8b c4 48 8d e4 |DH.dH..H|..H..H..|
|000016e0| 48 8f 04 49 91 24 49 93 | 44 49 95 64 49 97 84 49 |H..I.$I.|DI.dI..I|
|000016f0| 99 a4 49 9b c4 49 9d e4 | 49 9f 04 4a a1 24 4a a3 |..I..I..|I..J.$J.|
|00001700| 44 4a a5 64 4a a7 84 4a | a9 a4 4a ab c4 4a ad e4 |DJ.dJ..J|..J..J..|
|00001710| 4a af 04 4b b1 24 4b b3 | 44 4b b5 64 4b b7 84 4b |J..K.$K.|DK.dK..K|
|00001720| b9 a4 4b bb c4 4b bd e4 | 4b bf 04 4c c1 24 4c c3 |..K..K..|K..L.$L.|
|00001730| 44 4c c5 64 4c c7 84 4c | c9 a4 4c cb c4 4c cd e4 |DL.dL..L|..L..L..|
|00001740| 4c cf 04 4d d1 24 4d d3 | 44 4d d5 64 4d d7 84 4d |L..M.$M.|DM.dM..M|
|00001750| d9 a4 4d db c4 4d dd e4 | 4d df 04 4e e1 24 4e e3 |..M..M..|M..N.$N.|
|00001760| 44 4e e5 64 4e e7 84 4e | e9 a4 4e eb c4 4e ed e4 |DN.dN..N|..N..N..|
|00001770| 4e ef 04 4f f1 24 4f f3 | 44 4f f5 64 4f f7 84 4f |N..O.$O.|DO.dO..O|
|00001780| f9 a4 4f fb c4 4f fd e4 | 4f ff 04 50 01 25 50 03 |..O..O..|O..P.%P.|
|00001790| 45 50 05 65 50 07 85 50 | 09 a5 50 0b c5 50 0d e5 |EP.eP..P|..P..P..|
|000017a0| 50 0f 05 51 11 25 51 13 | 45 51 15 65 51 17 85 51 |P..Q.%Q.|EQ.eQ..Q|
|000017b0| 19 a5 51 1b c5 51 1d e5 | 51 1f 05 52 21 25 52 23 |..Q..Q..|Q..R!%R#|
|000017c0| 45 52 25 65 52 27 f5 ff | 29 a5 52 2b c5 52 2d e5 |ER%eR'..|).R+.R-.|
|000017d0| 52 2f 05 53 31 25 53 33 | 45 53 ff 6f 53 37 85 53 |R/.S1%S3|ES.oS7.S|
|000017e0| 39 a5 53 3b c5 53 3d e5 | 53 3f 05 54 41 25 54 43 |9.S;.S=.|S?.TA%TC|
|000017f0| 45 54 45 65 54 47 85 54 | 49 a5 54 4b c5 54 4d e5 |ETEeTG.T|I.TK.TM.|
|00001800| 54 4f 05 55 51 25 55 53 | 45 55 55 65 55 57 85 55 |TO.UQ%US|EUUeUW.U|
|00001810| 59 a5 55 5b c5 55 5d e5 | 55 5f 05 56 61 25 56 63 |Y.U[.U].|U_.Va%Vc|
|00001820| 45 56 65 65 56 67 85 56 | 69 a5 56 6b c5 56 6d e5 |EVeeVg.V|i.Vk.Vm.|
|00001830| 56 6f 05 57 71 25 57 73 | 45 57 75 65 57 77 85 57 |Vo.Wq%Ws|EWueWw.W|
|00001840| 79 a5 57 7b c5 57 7d e5 | 57 7f 05 58 81 25 58 83 |y.W{.W}.|W..X.%X.|
|00001850| 45 58 85 65 58 87 85 58 | 89 a5 58 8b c5 58 8d e5 |EX.eX..X|..X..X..|
|00001860| 58 8f 05 59 91 25 59 93 | 45 59 95 65 59 97 85 59 |X..Y.%Y.|EY.eY..Y|
|00001870| 99 a5 59 9b c5 59 9d e5 | 59 9f 05 5a a1 25 5a a3 |..Y..Y..|Y..Z.%Z.|
|00001880| 45 5a a5 65 5a a7 85 5a | a9 a5 5a ab c5 5a ad e5 |EZ.eZ..Z|..Z..Z..|
|00001890| 5a af 05 5b b1 25 5b b3 | 45 5b b5 65 5b b7 85 5b |Z..[.%[.|E[.e[..[|
|000018a0| b9 a5 5b bb c5 5b bd e5 | 5b bf 05 5c c1 25 5c c3 |..[..[..|[..\.%\.|
|000018b0| 45 5c c5 65 5c c7 85 5c | c9 a5 5c cb c5 5c cd e5 |E\.e\..\|..\..\..|
|000018c0| 5c cf 05 5d d1 25 5d d3 | 45 5d d5 65 5d d7 85 5d |\..].%].|E].e]..]|
|000018d0| d9 a5 5d db f5 ff dd e5 | 5d df 05 5e e1 25 5e e3 |..].....|]..^.%^.|
|000018e0| 45 5e e5 65 5e e7 85 5e | e9 a5 5e eb c5 5e ed e5 |E^.e^..^|..^..^..|
|000018f0| 5e ef 05 5f f1 25 5f f3 | 45 5f f5 65 5f f7 85 5f |^.._.%_.|E_.e_.._|
|00001900| f9 a5 5f fb c5 5f fd e5 | 5f ff 05 60 01 26 60 03 |.._.._..|_..`.&`.|
|00001910| 46 60 05 66 60 07 86 60 | 09 a6 60 0b c6 60 0d e6 |F`.f`..`|..`..`..|
|00001920| 60 0f 06 61 11 26 61 13 | 46 61 15 66 61 17 86 61 |`..a.&a.|Fa.fa..a|
|00001930| 19 a6 61 1b c6 61 1d e6 | 61 1f 06 62 ff 2f 62 23 |..a..a..|a..b./b#|
|00001940| 46 62 25 66 62 27 86 62 | 29 a6 62 2b c6 62 2d e6 |Fb%fb'.b|).b+.b-.|
|00001950| 62 2f 06 63 31 26 63 33 | 46 63 35 66 63 37 86 63 |b/.c1&c3|Fc5fc7.c|
|00001960| 39 a6 63 3b c6 63 3d e6 | 63 3f 06 64 41 26 64 43 |9.c;.c=.|c?.dA&dC|
|00001970| 46 64 ff 6f 64 47 86 64 | 49 a6 64 4b c6 64 4d e6 |Fd.odG.d|I.dK.dM.|
|00001980| 64 4f 06 65 51 26 65 53 | 46 65 55 66 65 57 86 65 |dO.eQ&eS|FeUfeW.e|
|00001990| 59 a6 65 ff cf 65 5d e6 | 65 5f 06 66 61 26 66 63 |Y.e..e].|e_.fa&fc|
|000019a0| 46 66 65 66 66 67 86 66 | 69 a6 66 6b c6 66 6d e6 |Ffeffg.f|i.fk.fm.|
|000019b0| 66 6f 06 67 71 26 67 73 | 46 67 75 66 67 77 86 67 |fo.gq&gs|Fgufgw.g|
|000019c0| 79 a6 67 ff cf 67 7d e6 | 67 7f 06 68 81 26 68 83 |y.g..g}.|g..h.&h.|
|000019d0| 46 68 85 66 68 87 86 68 | 89 a6 68 8b c6 68 8d e6 |Fh.fh..h|..h..h..|
|000019e0| 68 8f 06 69 91 26 69 93 | 46 69 95 66 69 97 86 69 |h..i.&i.|Fi.fi..i|
|000019f0| 99 a6 69 9b f6 ff 9d e6 | 69 9f 06 6a a1 26 6a a3 |..i.....|i..j.&j.|
|00001a00| 46 6a a5 66 6a a7 86 6a | ff af 6a ab c6 6a ad e6 |Fj.fj..j|..j..j..|
|00001a10| 6a af 06 6b b1 26 6b b3 | 46 6b b5 66 6b b7 86 6b |j..k.&k.|Fk.fk..k|
|00001a20| ff af 6b bb c6 6b bd e6 | 6b bf 06 6c c1 26 6c c3 |..k..k..|k..l.&l.|
|00001a30| 46 6c c5 66 6c c7 86 6c | ff af 6c cb c6 6c cd e6 |Fl.fl..l|..l..l..|
|00001a40| 6c cf 06 6d d1 26 6d d3 | 46 6d d5 66 6d d7 86 6d |l..m.&m.|Fm.fm..m|
|00001a50| d9 a6 6d db c6 6d ff ef | 6d df 06 6e e1 26 6e e3 |..m..m..|m..n.&n.|
|00001a60| 46 6e e5 66 6e e7 86 6e | e9 a6 6e eb c6 6e ed e6 |Fn.fn..n|..n..n..|
|00001a70| 6e ef 06 6f f1 f6 ff f3 | 46 6f f5 66 6f f7 86 6f |n..o....|Fo.fo..o|
|00001a80| f9 a6 6f fb c6 6f fd e6 | 6f ff 06 70 01 27 70 03 |..o..o..|o..p.'p.|
|00001a90| f7 ff 05 67 70 07 87 70 | 09 a7 70 0b c7 70 0d e7 |...gp..p|..p..p..|
|00001aa0| 70 0f 07 71 11 f7 ff 13 | 47 71 15 67 71 17 87 71 |p..q....|Gq.gq..q|
|00001ab0| 19 a7 71 1b c7 71 ff ef | 71 1f 07 72 21 27 72 23 |..q..q..|q..r!'r#|
|00001ac0| 47 72 25 67 72 27 87 72 | ff af 72 2b c7 72 2d e7 |Gr%gr'.r|..r+.r-.|
|00001ad0| 72 2f 07 73 31 27 73 33 | 47 73 35 67 73 37 87 73 |r/.s1's3|Gs5gs7.s|
|00001ae0| ff af 73 3b c7 73 3d e7 | 73 3f 07 74 41 27 74 43 |..s;.s=.|s?.tA'tC|
|00001af0| 47 74 45 67 74 47 f7 ff | 49 a7 74 4b c7 74 4d e7 |GtEgtG..|I.tK.tM.|
|00001b00| 74 4f 07 75 51 27 75 53 | 47 75 55 67 75 57 87 75 |tO.uQ'uS|GuUguW.u|
|00001b10| 59 a7 75 5b f7 ff 5d e7 | 75 5f 07 76 61 27 76 63 |Y.u[..].|u_.va'vc|
|00001b20| 47 76 65 67 76 67 87 76 | 69 a7 76 6b c7 76 6d e7 |Gvegvg.v|i.vk.vm.|
|00001b30| 76 6f 07 77 71 27 77 73 | 47 77 75 67 77 77 87 77 |vo.wq'ws|Gwugww.w|
|00001b40| 79 a7 77 7b c7 77 7d f7 | ff 7f 07 78 81 27 78 83 |y.w{.w}.|...x.'x.|
|00001b50| 47 78 85 67 78 87 87 78 | 89 a7 78 8b c7 78 8d f7 |Gx.gx..x|..x..x..|
|00001b60| ff 8f 07 79 91 27 79 93 | f7 ff 95 67 79 97 87 79 |...y.'y.|...gy..y|
|00001b70| 99 a7 79 9b c7 79 9d e7 | 79 9f 07 7a a1 27 7a a3 |..y..y..|y..z.'z.|
|00001b80| 47 7a a5 67 7a a7 87 7a | a9 a7 7a ab c7 7a ad e7 |Gz.gz..z|..z..z..|
|00001b90| 7a af 07 7b b1 27 7b b3 | 47 7b b5 67 7b b7 87 7b |z..{.'{.|G{.g{..{|
|00001ba0| b9 a7 7b bb c7 7b bd e7 | 7b bf 07 7c c1 27 7c c3 |..{..{..|{..|.'|.|
|00001bb0| 47 7c c5 67 7c c7 87 7c | c9 a7 7c cb c7 7c cd e7 |G|.g|..||..|..|..|
|00001bc0| 7c cf 07 7d d1 27 7d d3 | 47 7d d5 67 7d d7 87 7d ||..}.'}.|G}.g}..}|
|00001bd0| d9 a7 7d db c7 7d dd e7 | 7d df 07 7e e1 27 7e e3 |..}..}..|}..~.'~.|
|00001be0| 47 7e e5 67 7e e7 87 7e | e9 a7 7e eb c7 7e ed e7 |G~.g~..~|..~..~..|
|00001bf0| 7e ef 07 7f f1 27 7f f3 | 47 7f f5 67 7f f7 87 7f |~....'..|G..g....|
|00001c00| f9 a7 7f fb c7 7f fd e7 | 7f ff 07 80 01 28 80 03 |........|.....(..|
|00001c10| 48 80 05 68 80 07 88 80 | 09 a8 80 0b c8 80 0d e8 |H..h....|........|
|00001c20| 80 0f 08 81 11 28 81 13 | 48 81 15 68 81 17 88 81 |.....(..|H..h....|
|00001c30| 19 a8 81 1b c8 81 1d e8 | 81 1f 08 82 21 28 82 23 |........|....!(.#|
|00001c40| 48 82 25 68 82 27 88 82 | 29 a8 82 2b c8 82 2d e8 |H.%h.'..|)..+..-.|
|00001c50| 82 2f 08 83 31 f8 ff ff | 4f 83 35 68 83 37 88 83 |./..1...|O.5h.7..|
|00001c60| 39 a8 83 3b c8 83 3d e8 | 83 3f 08 84 ff 2f 84 43 |9..;..=.|.?.../.C|
|00001c70| 48 84 45 68 84 47 88 84 | 49 a8 84 4b c8 84 4d e8 |H.Eh.G..|I..K..M.|
|00001c80| 84 4f f8 ff 51 28 85 53 | 48 85 55 68 85 57 88 85 |.O..Q(.S|H.Uh.W..|
|00001c90| 59 f8 ff 5b c8 85 5d e8 | 85 5f 08 86 61 28 86 63 |Y..[..].|._..a(.c|
|00001ca0| 48 86 65 68 86 67 88 86 | 69 a8 86 6b c8 86 6d f8 |H.eh.g..|i..k..m.|
|00001cb0| ff 6f 08 87 71 28 87 73 | 48 87 75 68 87 77 88 87 |.o..q(.s|H.uh.w..|
|00001cc0| 79 a8 87 7b c8 87 7d f8 | ff 7f 08 88 81 28 88 83 |y..{..}.|.....(..|
|00001cd0| 48 88 85 68 88 87 88 88 | 89 f8 ff 8b c8 88 8d e8 |H..h....|........|
|00001ce0| 88 8f 08 89 91 28 89 ff | 4f 89 95 68 89 97 88 89 |.....(..|O..h....|
|00001cf0| 99 a8 89 9b c8 89 9d e8 | 89 9f 08 8a ff 2f 8a a3 |........|...../..|
|00001d00| 48 8a a5 68 8a a7 88 8a | a9 a8 8a ab c8 8a ff ef |H..h....|........|
|00001d10| 8a af 08 8b b1 28 8b b3 | 48 8b b5 68 8b b7 88 8b |.....(..|H..h....|
|00001d20| ff af 8b bb c8 8b bd e8 | 8b bf 08 8c c1 28 8c ff |........|.....(..|
|00001d30| 4f 8c c5 68 8c c7 88 8c | c9 a8 8c cb c8 8c cd e8 |O..h....|........|
|00001d40| 8c cf 08 8d ff 2f 8d d3 | 48 8d d5 68 8d d7 88 8d |...../..|H..h....|
|00001d50| d9 a8 8d db c8 8d dd e8 | 8d df 08 8e e1 28 8e e3 |........|.....(..|
|00001d60| 48 8e e5 68 8e e7 88 8e | e9 a8 8e eb f8 ff ed e8 |H..h....|........|
|00001d70| 8e ef 08 8f f1 f8 ff ff | 0f ee 00 93 8b 05 fd 31 |........|.......1|
|00001d80| 31 2d 53 50 54 fd 20 05 | 28 fd 00 0a 29 21 51 15 |1-SPT. .|(...)!Q.|
|00001d90| fd 00 06 44 49 53 4b fd | 20 04 49 44 20 20 fd 00 |...DISK.| .ID ..|
|00001da0| 0a 2a 21 51 15 02 00 1c | fd 00 03 33 44 fd 20 06 |.*!Q....|...3D. .|
|00001db0| 4c 53 50 20 fd 00 0a 15 | 8c 38 15 03 00 23 4e 00 |LSP ....|.8...#N.|
|00001dc0| 00 33 44 41 52 52 41 59 | 20 4c 53 50 20 fd 00 0a |.3DARRAY| LSP ...|
|00001dd0| d4 59 48 15 2b 00 d9 19 | 00 00 41 43 41 44 fd 20 |.YH.+...|..ACAD. |
|00001de0| 04 44 57 47 20 fd 00 0a | 37 66 e7 14 38 00 d7 0b |.DWG ...|7f..8...|
|00001df0| 00 00 41 43 41 44 fd 20 | 04 48 44 58 20 fd 00 0a |..ACAD. |.HDX ...|
|00001e00| 4b 9a 4f 15 3e 00 be 21 | 00 00 41 43 41 44 fd 20 |K.O.>..!|..ACAD. |
|00001e10| 04 48 4c 50 20 fd 00 0a | 38 9a 4f 15 4f 00 06 e7 |.HLP ...|8.O.O...|
|00001e20| 03 00 41 43 41 44 fd 20 | 04 4c 49 4e 20 fd 00 0a |..ACAD. |.LIN ...|
|00001e30| d2 76 fe 14 43 02 ae 09 | 00 00 41 43 41 44 fd 20 |.v..C...|..ACAD. |
|00001e40| 04 4d 4e 58 20 fd 00 0a | 02 7f 4f 15 48 02 a6 96 |.MNX ...|..O.H...|
|00001e50| 03 00 41 43 41 44 fd 20 | 04 4d 53 47 20 fd 00 0a |..ACAD. |.MSG ...|
|00001e60| 76 93 f7 14 14 04 5f 02 | 00 00 41 43 41 44 fd 20 |v....._.|..ACAD. |
|00001e70| 04 50 41 54 20 fd 00 0a | f2 4a 61 14 16 04 20 26 |.PAT ...|.Ja... &|
|00001e80| 00 00 41 43 41 44 fd 20 | 04 50 47 50 20 fd 00 0a |..ACAD. |.PGP ...|
|00001e90| ef 85 4c 15 2a 04 38 04 | 00 00 41 43 41 44 fd 20 |..L.*.8.|..ACAD. |
|00001ea0| 04 53 4c 42 20 fd 00 0a | 17 73 f4 14 2d 04 8a f5 |.SLB ...|.s..-...|
|00001eb0| 01 00 41 43 41 44 fd 20 | 04 55 4e 54 20 fd 00 0a |..ACAD. |.UNT ...|
|00001ec0| e2 70 6e 13 28 05 05 19 | 00 00 41 43 41 44 31 fd |.pn.(...|..ACAD1.|
|00001ed0| 20 03 53 4c 42 20 fd 00 | 0a a0 85 14 15 35 05 44 | .SLB ..|.....5.D|
|00001ee0| 4d 01 00 41 49 52 50 4c | 41 4e 45 44 57 47 20 fd |M..AIRPL|ANEDWG .|
|00001ef0| 00 0a 5b 89 48 15 dc 05 | 75 89 00 00 41 53 48 41 |..[.H...|u...ASHA|
|00001f00| 44 45 20 20 4c 53 50 20 | fd 00 0a e4 76 fe 14 21 |DE LSP |....v..!|
|00001f10| 06 77 46 00 00 41 53 48 | 41 44 45 20 20 53 4c 42 |.wF..ASH|ADE SLB|
|00001f20| 20 fd 00 0a 9b 6d 70 14 | 45 06 6c 2a 00 00 43 41 | ....mp.|E.l*..CA|
|00001f30| 4c 43 fd 20 04 4c 53 50 | 20 fd 00 0a ed 81 27 15 |LC. .LSP| .....'.|
|00001f40| 5b 06 2c 3f 00 00 43 4f | 4c 4f 52 57 48 20 53 4c |[.,?..CO|LORWH SL|
|00001f50| 44 20 fd 00 0a 5c 48 16 | 11 7b 06 40 40 00 00 43 |D ...\H.|.{.@@..C|
|00001f60| 4f 4d 50 4c 45 58 20 53 | 48 58 20 fd 00 0a 16 94 |OMPLEX S|HX .....|
|00001f70| be 0e 9c 06 9b 18 00 00 | 43 59 52 49 4c 4c 49 43 |........|CYRILLIC|
|00001f80| 53 48 58 20 fd 00 0a f0 | 9b 1c 0f a9 06 99 1e 00 |SHX ....|........|
|00001f90| 00 43 59 52 49 4c 54 4c | 43 53 48 58 20 fd 00 0a |.CYRILTL|CSHX ...|
|00001fa0| f1 9b 1c 0f b9 06 99 1e | 00 00 47 4f 54 48 49 43 |........|..GOTHIC|
|00001fb0| 45 20 53 48 58 20 fd 00 | 0a f1 9b 1c 0f c9 06 71 |E SHX ..|.......q|
|00001fc0| 27 00 00 47 4f 54 48 49 | 43 47 20 53 48 58 20 fd |'..GOTHI|CG SHX .|
|00001fd0| 00 0a f1 9b 1c 0f dd 06 | 4b 28 00 00 47 4f 54 48 |........|K(..GOTH|
|00001fe0| 49 43 49 20 53 48 58 20 | fd 00 0a f1 9b 1c 0f f2 |ICI SHX |........|
|00001ff0| 06 21 23 00 00 47 52 45 | 45 4b 43 20 20 53 48 58 |.!#..GRE|EKC SHX|
|00002000| 20 fd 00 0a f1 9b 1c 0f | 04 07 b3 1b 00 00 47 52 | .......|......GR|
|00002010| 45 45 4b 53 20 20 53 48 | 58 20 fd 00 0a f2 9b 1c |EEKS SH|X ......|
|00002020| 0f 12 07 1b 14 00 00 48 | 4f 55 53 45 fd 20 03 44 |.......H|OUSE. .D|
|00002030| 57 47 20 fd 00 0a 88 88 | 48 15 1d 07 cf 16 00 00 |WG .....|H.......|
|00002040| 49 54 41 4c 49 43 20 20 | 53 48 58 20 fd 00 0a 2e |ITALIC |SHX ....|
|00002050| 94 be 0e 29 07 ed 1f 00 | 00 49 54 41 4c 49 43 43 |...)....|.ITALICC|
|00002060| 20 53 48 58 20 fd 00 0a | c7 64 0e 11 39 07 3b 1d | SHX ...|.d..9.;.|
|00002070| 00 00 49 54 41 4c 49 43 | 54 20 53 48 58 20 fd 00 |..ITALIC|T SHX ..|
|00002080| 0a f2 9b 1c 0f 48 07 4b | 27 00 00 4c 4c 4f 41 44 |.....H.K|'..LLOAD|
|00002090| fd 20 03 4c 53 50 20 fd | 00 0a b9 4b 4c 15 5c 07 |. .LSP .|...KL.\.|
|000020a0| 4d 43 00 00 4d 45 53 48 | 45 53 20 20 44 57 47 20 |MC..MESH|ES DWG |
|000020b0| fd 00 0a a2 88 48 15 7e | 07 ae 1e 00 00 4d 4f 4e |.....H.~|.....MON|
|000020c0| 4f 54 58 54 20 53 48 58 | 20 fd 00 0a b2 7a 83 0f |OTXT SHX| ....z..|
|000020d0| 8e 07 0c 0b 00 00 4d 56 | 53 45 54 55 50 20 4c 53 |......MV|SETUP LS|
|000020e0| 50 20 fd 00 0a 07 6f 48 | 15 94 07 1a 3b 01 00 50 |P ....oH|....;..P|
|000020f0| 43 fd 20 06 53 48 58 20 | fd 00 0a 4f 7e 6c 14 32 |C. .SHX |...O~l.2|
|00002100| 08 d0 01 00 00 52 4f 4d | 41 4e 43 20 20 53 48 58 |.....ROM|ANC SHX|
|00002110| 20 fd 00 0a d6 64 0e 11 | 33 08 f5 1a 00 00 52 4f | ....d..|3.....RO|
|00002120| 4d 41 4e 44 20 20 53 48 | 58 20 fd 00 0a f3 9b 1c |MAND SH|X ......|
|00002130| 0f 41 08 5d 1c 00 00 52 | 4f 4d 41 4e 53 20 20 53 |.A.]...R|OMANS S|
|00002140| 48 58 20 fd 00 0a ce 64 | 0e 11 50 08 3e 13 00 00 |HX ....d|..P.>...|
|00002150| 52 4f 4d 41 4e 54 20 20 | 53 48 58 20 fd 00 0a f3 |ROMANT |SHX ....|
|00002160| 9b 1c 0f 5a 08 e9 26 00 | 00 53 43 52 49 50 54 43 |...Z..&.|.SCRIPTC|
|00002170| 20 53 48 58 20 fd 00 0a | f3 9b 1c 0f 6e 08 13 1e | SHX ...|....n...|
|00002180| 00 00 53 43 52 49 50 54 | 53 20 53 48 58 20 fd 00 |..SCRIPT|S SHX ..|
|00002190| 0a f3 9b 1c 0f 7e 08 80 | 17 00 00 53 49 4d 50 4c |.....~..|...SIMPL|
|000021a0| 45 58 20 53 48 58 20 fd | 00 0a 22 94 be 0e 8a 08 |EX SHX .|..".....|
|000021b0| 85 10 00 00 53 59 41 53 | 54 52 4f 20 53 48 58 20 |....SYAS|TRO SHX |
|000021c0| fd 00 0a f4 9b 1c 0f 93 | 08 97 1a 00 00 53 59 4d |........|.....SYM|
|000021d0| 41 50 fd 20 03 53 48 58 | 20 fd 00 0a f4 9b 1c 0f |AP. .SHX| .......|
|000021e0| a1 08 d7 17 00 00 53 59 | 4d 41 54 48 20 20 53 48 |......SY|MATH SH|
|000021f0| 58 20 fd 00 0a f4 9b 1c | 0f ad 08 93 17 00 00 53 |X ......|.......S|
|00002200| 59 4d 45 54 45 4f 20 53 | 48 58 20 fd 00 0a f4 9b |YMETEO S|HX .....|
|00002210| 1c 0f b9 08 ba 13 00 00 | 53 59 4d 55 53 49 43 20 |........|SYMUSIC |
|00002220| 53 48 58 20 fd 00 0a f4 | 9b 1c 0f c3 08 fe 1a 00 |SHX ....|........|
|00002230| 00 54 55 54 4f 52 49 41 | 4c 44 57 47 20 fd 00 0a |.TUTORIA|LDWG ...|
|00002240| 4f 89 48 15 d1 08 1d 35 | 00 00 54 58 54 fd 20 05 |O.H....5|..TXT. .|
|00002250| 53 48 58 20 fd 00 0a 3c | 94 be 0e ec 08 77 0a 00 |SHX ...<|.....w..|
|00002260| 00 53 55 50 50 4f 52 54 | 20 4d 49 44 20 fd 00 0a |.SUPPORT| MID ...|
|00002270| b6 21 51 15 f2 08 b4 fd | 00 ff fd 00 ff fd 00 ff |.!Q.....|........|
|00002280| fd 00 ff fd 00 ff fd 00 | ff fd 00 ff fd 00 ff fd |........|........|
|00002290| 00 ff fd 00 ff fd 00 ff | fd 00 ff fd 00 ff fd 00 |........|........|
|000022a0| ff fd 00 ff fd 00 ff fd | 00 ff fd 00 ff fd 00 ff |........|........|
|000022b0| fd 00 ff fd 00 ff fd 00 | 98 41 75 74 6f 43 41 44 |........|.AutoCAD|
|000022c0| 20 33 38 36 0d 0a 52 2d | 31 31 0d 0a 53 75 70 70 | 386..R-|11..Supp|
|000022d0| 6f 72 74 0d 0a fd 00 ff | fd 00 2b ff 0f fd 00 0a |ort.....|..+.....|
|000022e0| 8d e7 78 8f 07 79 91 27 | 79 93 47 79 95 67 79 97 |..x..y.'|y.Gy.gy.|
|000022f0| 87 79 ff 0f fd 00 0a fd | ff 10 0f fd 00 2b c9 f7 |.y......|.....+..|
|00002300| ff fd 00 30 ff 0f fd 00 | 1f de 19 ff ff 3b 03 ff |...0....|.....;..|
|00002310| 2d 4a 0d 0a ff 3b 03 20 | 33 44 2e 4c 53 50 0d 0a |-J...;. |3D.LSP..|
|00002320| ff 3b 03 20 20 43 6f 70 | 79 72 69 67 68 74 20 28 |.;. Cop|yright (|
|00002330| 43 29 20 31 39 39 30 20 | 62 79 20 41 75 74 6f 64 |C) 1990 |by Autod|
|00002340| 65 73 6b 2c 20 49 6e 63 | 2e 0d 0a ff 3b 03 0d 0a |esk, Inc|....;...|
|00002350| ff 3b 03 20 20 54 48 49 | 53 20 53 4f 46 54 57 41 |.;. THI|S SOFTWA|
|00002360| 52 45 20 49 53 20 50 52 | 4f 56 49 44 45 44 20 22 |RE IS PR|OVIDED "|
|00002370| 41 53 20 49 53 22 20 57 | 49 54 48 4f 55 54 20 45 |AS IS" W|ITHOUT E|
|00002380| 58 50 52 45 53 53 20 4f | 52 20 49 4d 50 4c 49 45 |XPRESS O|R IMPLIE|
|00002390| 44 20 57 41 52 52 41 4e | 54 59 2e 20 0d 0a ff 3b |D WARRAN|TY. ...;|
|000023a0| 03 20 20 41 4c 4c 20 49 | 4d 50 4c 49 45 44 20 57 |. ALL I|MPLIED W|
|000023b0| 41 52 52 41 4e 54 49 45 | 53 20 4f 46 20 46 49 54 |ARRANTIE|S OF FIT|
|000023c0| 4e 45 53 53 20 46 4f 52 | 20 41 4e 59 20 50 41 52 |NESS FOR| ANY PAR|
|000023d0| 54 49 43 55 4c 41 52 20 | 50 55 52 50 4f 53 45 20 |TICULAR |PURPOSE |
|000023e0| 41 4e 44 20 4f 46 20 0d | 0a ff 3b 03 20 20 4d 45 |AND OF .|..;. ME|
|000023f0| 52 43 48 41 4e 54 41 42 | 49 4c 49 54 59 20 41 52 |RCHANTAB|ILITY AR|
|00002400| 45 20 48 45 52 45 42 59 | 20 44 49 53 43 4c 41 49 |E HEREBY| DISCLAI|
|00002410| 4d 45 44 2e 0d 0a ff 3b | 03 20 0d 0a ff 3b 03 20 |MED....;|. ...;. |
|00002420| 54 68 65 20 75 73 65 72 | 20 6d 61 79 20 69 6e 69 |The user| may ini|
|00002430| 74 69 61 74 65 20 33 64 | 2e 6c 73 70 20 62 79 20 |tiate 3d|.lsp by |
|00002440| 70 69 63 6b 69 6e 67 20 | 22 33 64 20 6f 62 6a 65 |picking |"3d obje|
|00002450| 63 74 73 22 20 66 72 6f | 6d 20 74 68 65 20 73 63 |cts" fro|m the sc|
|00002460| 72 65 65 6e ff 20 06 0d | 0a ff 3b 03 20 6d 65 6e |reen. ..|..;. men|
|00002470| 75 2c 20 6f 72 20 62 79 | 20 73 65 6c 65 63 74 69 |u, or by| selecti|
|00002480| 6e 67 20 74 68 65 20 6f | 62 6a 65 63 74 73 20 74 |ng the o|bjects t|
|00002490| 68 65 6d 73 65 6c 76 65 | 73 20 66 72 6f 6d 20 74 |hemselve|s from t|
|000024a0| 68 65 20 22 33 64 20 43 | 6f 6e 73 74 72 75 63 74 |he "3d C|onstruct|
|000024b0| 69 6f 6e 22 0d 0a ff 3b | 03 20 69 63 6f 6e 20 6d |ion"...;|. icon m|
|000024c0| 65 6e 75 2c 20 6f 72 20 | 62 79 20 6c 6f 61 64 69 |enu, or |by loadi|
|000024d0| 6e 67 20 69 74 2e 20 4e | 69 6e 65 20 33 64 20 6f |ng it. N|ine 3d o|
|000024e0| 62 6a 65 63 74 73 20 63 | 61 6e 20 62 65 20 64 72 |bjects c|an be dr|
|000024f0| 61 77 6e 20 69 6e 63 6c | 75 64 69 6e 67 20 0d 0a |awn incl|uding ..|
|00002500| ff 3b 03 20 61 20 62 6f | 78 2c 20 63 6f 6e 65 2c |.;. a bo|x, cone,|
|00002510| 20 64 69 73 68 2c 20 64 | 6f 6d 65 2c 20 6d 65 73 | dish, d|ome, mes|
|00002520| 68 2c 20 70 79 72 61 6d | 69 64 2c 20 73 70 68 65 |h, pyram|id, sphe|
|00002530| 72 65 2c 20 74 6f 72 75 | 73 2c 20 61 6e 64 20 77 |re, toru|s, and w|
|00002540| 65 64 67 65 2e 0d 0a ff | 3b 03 0d 0a ff 3b 03 20 |edge....|;....;. |
|00002550| 57 68 65 6e 20 63 6f 6e | 73 74 72 75 63 74 69 6e |When con|structin|
|00002560| 67 20 61 20 70 79 72 61 | 6d 69 64 20 77 69 74 68 |g a pyra|mid with|
|00002570| 20 74 68 65 20 22 72 69 | 64 67 65 22 20 6f 70 74 | the "ri|dge" opt|
|00002580| 69 6f 6e 2c 20 65 6e 74 | 65 72 20 74 68 65 20 72 |ion, ent|er the r|
|00002590| 69 64 67 65 0d 0a ff 3b | 03 20 70 6f 69 6e 74 73 |idge...;|. points|
|000025a0| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 64 69 72 | in the |same dir|
|000025b0| 65 63 74 69 6f 6e 20 61 | 73 20 74 68 65 20 62 61 |ection a|s the ba|
|000025c0| 73 65 20 70 6f 69 6e 74 | 73 2c 20 72 69 64 67 65 |se point|s, ridge|
|000025d0| 20 70 6f 69 6e 74 20 6f | 6e 65 20 62 65 69 6e 67 | point o|ne being|
|000025e0| 0d 0a ff 3b 03 20 63 6c | 6f 73 65 73 74 20 74 6f |...;. cl|osest to|
|000025f0| 20 62 61 73 65 20 70 6f | 69 6e 74 20 6f 6e 65 2e | base po|int one.|
|00002600| 20 20 54 68 69 73 20 77 | 69 6c 6c 20 70 72 65 76 | This w|ill prev|
|00002610| 65 6e 74 20 74 68 65 20 | 22 62 6f 77 74 69 65 22 |ent the |"bowtie"|
|00002620| 20 65 66 66 65 63 74 2e | 0d 0a ff 3b 03 20 4e 6f | effect.|...;. No|
|00002630| 74 65 20 74 68 61 74 20 | 74 68 69 73 20 69 73 20 |te that |this is |
|00002640| 61 6c 73 6f 20 74 72 75 | 65 20 66 6f 72 20 74 68 |also tru|e for th|
|00002650| 65 20 70 79 72 61 6d 69 | 64 27 73 20 22 74 6f 70 |e pyrami|d's "top|
|00002660| 22 20 6f 70 74 69 6f 6e | 2e 0d 0a ff 3b 03 0d 0a |" option|....;...|
|00002670| ff 3b 03 20 62 79 20 53 | 69 6d 6f 6e 20 4a 6f 6e |.;. by S|imon Jon|
|00002680| 65 73 20 2d 20 41 75 74 | 6f 64 65 73 6b 20 55 4b |es - Aut|odesk UK|
|00002690| 20 4c 74 64 2e 0d 0a ff | 3b 03 20 61 6e 64 20 44 | Ltd....|;. and D|
|000026a0| 75 66 66 20 4b 75 72 6c | 61 6e 64 20 2d 20 41 75 |uff Kurl|and - Au|
|000026b0| 74 6f 64 65 73 6b 2c 20 | 49 6e 63 2e 0d 0a ff 3b |todesk, |Inc....;|
|000026c0| 03 20 4e 6f 76 65 6d 62 | 65 72 2c 20 31 39 38 36 |. Novemb|er, 1986|
|000026d0| 0d 0a ff 3b 03 0d 0a ff | 3b 03 20 43 6f 6d 62 69 |...;....|;. Combi|
|000026e0| 6e 65 64 20 69 6e 74 6f | 20 61 20 73 69 6e 67 6c |ned into| a singl|
|000026f0| 65 20 22 33 44 22 20 63 | 6f 6d 6d 61 6e 64 20 2d |e "3D" c|ommand -|
|00002700| 20 4a 75 6c 79 20 31 39 | 38 37 0d 0a ff 3b 03 0d | July 19|87...;..|
|00002710| 0a ff 3b 03 20 43 68 61 | 6e 67 65 64 20 66 75 6e |..;. Cha|nged fun|
|00002720| 63 74 69 6f 6e 73 20 74 | 6f 20 62 75 69 6c 64 20 |ctions t|o build |
|00002730| 73 68 61 70 65 73 20 75 | 73 69 6e 67 20 74 68 65 |shapes u|sing the|
|00002740| 20 73 75 72 66 61 63 65 | 20 63 6f 6d 6d 61 6e 64 | surface| command|
|00002750| 73 2c 20 61 6e 64 0d 0a | ff 3b 03 20 61 64 64 65 |s, and..|.;. adde|
|00002760| 64 20 62 6f 78 2c 20 77 | 65 64 67 65 2c 20 70 79 |d box, w|edge, py|
|00002770| 72 61 6d 69 64 2c 20 61 | 6e 64 20 6d 65 73 68 2e |ramid, a|nd mesh.|
|00002780| 20 2d 20 4d 61 72 63 68 | 20 31 39 38 38 0d 0a ff | - March| 1988...|
|00002790| 3b 03 ff 2d 4a 0d 0a ff | 3b 03 20 41 6c 6c 6f 77 |;..-J...|;. Allow|
|000027a0| 20 65 61 73 69 65 72 20 | 72 65 6c 6f 61 64 73 0d | easier |reloads.|
|000027b0| 0a 0d 0a 28 73 65 74 71 | 20 62 6f 78 77 65 64 ff |...(setq| boxwed.|
|000027c0| 20 05 6e 69 6c 20 20 0d | 0a ff 20 06 63 6f 6e 65 | .nil .|.. .cone|
|000027d0| ff 20 07 6e 69 6c 0d 0a | ff 20 06 6d 65 73 68 ff |. .nil..|. .mesh.|
|000027e0| 20 07 6e 69 6c 0d 0a ff | 20 06 70 79 72 61 6d 69 | .nil...| .pyrami|
|000027f0| 64 ff 20 04 6e 69 6c 0d | 0a ff 20 06 73 70 68 65 |d. .nil.|.. .sphe|
|00002800| 72 65 73 ff 20 04 6e 69 | 6c 0d 0a ff 20 06 74 6f |res. .ni|l... .to|
|00002810| 72 75 73 ff 20 06 6e 69 | 6c 0d 0a ff 20 06 33 64 |rus. .ni|l... .3d|
|00002820| 65 72 72 ff 20 06 6e 69 | 6c 0d 0a ff 20 06 43 3a |err. .ni|l... .C:|
|00002830| 33 44 ff 20 07 6e 69 6c | 0d 0a 29 0d 0a 0d 0a ff |3D. .nil|..).....|
|00002840| 3b 03 ff 2d 4a 0d 0a ff | 3b 03 20 53 79 73 74 65 |;..-J...|;. Syste|
|00002850| 6d 20 76 61 72 69 61 62 | 6c 65 20 73 61 76 65 0d |m variab|le save.|
|00002860| 0a 0d 0a 28 64 65 66 75 | 6e 20 6d 6f 64 65 73 20 |...(defu|n modes |
|00002870| 28 61 29 0d 0a 20 20 28 | 73 65 74 71 20 4d 4c 53 |(a).. (|setq MLS|
|00002880| 54 20 6e 69 6c 29 0d 0a | 20 20 28 72 65 70 65 61 |T nil)..| (repea|
|00002890| 74 20 28 6c 65 6e 67 74 | 68 20 61 29 0d 0a ff 20 |t (lengt|h a)... |
|000028a0| 04 28 73 65 74 71 20 4d | 4c 53 54 20 28 61 70 70 |.(setq M|LST (app|
|000028b0| 65 6e 64 20 4d 4c 53 54 | 20 28 6c 69 73 74 20 28 |end MLST| (list (|
|000028c0| 6c 69 73 74 20 28 63 61 | 72 20 61 29 20 28 67 65 |list (ca|r a) (ge|
|000028d0| 74 76 61 72 20 28 63 61 | 72 20 61 ff 29 06 0d 0a |tvar (ca|r a.)...|
|000028e0| ff 20 04 28 73 65 74 71 | 20 61 20 28 63 64 72 20 |. .(setq| a (cdr |
|000028f0| 61 29 29 0d 0a 20 20 29 | 0d 0a 29 0d 0a 0d 0a ff |a)).. )|..).....|
|00002900| 3b 03 ff 2d 4a 0d 0a ff | 3b 03 20 53 79 73 74 65 |;..-J...|;. Syste|
|00002910| 6d 20 76 61 72 69 61 62 | 6c 65 20 72 65 73 74 6f |m variab|le resto|
|00002920| 72 65 0d 0a 0d 0a 28 64 | 65 66 75 6e 20 6d 6f 64 |re....(d|efun mod|
|00002930| 65 72 20 28 29 0d 0a 20 | 20 28 72 65 70 65 61 74 |er ().. | (repeat|
|00002940| 20 28 6c 65 6e 67 74 68 | 20 4d 4c 53 54 29 0d 0a | (length| MLST)..|
|00002950| ff 20 04 28 73 65 74 76 | 61 72 20 28 63 61 61 72 |. .(setv|ar (caar|
|00002960| 20 4d 4c 53 54 29 20 28 | 63 61 64 61 72 20 4d 4c | MLST) (|cadar ML|
|00002970| 53 54 29 29 0d 0a ff 20 | 04 28 73 65 74 71 20 4d |ST))... |.(setq M|
|00002980| 4c 53 54 20 28 63 64 72 | 20 4d 4c 53 54 29 29 0d |LST (cdr| MLST)).|
|00002990| 0a 20 20 29 0d 0a 29 0d | 0a 0d 0a ff 3b 03 ff 2d |. )..).|....;..-|
|000029a0| 4a 0d 0a ff 3b 03 20 44 | 72 61 77 20 61 20 63 6f |J...;. D|raw a co|
|000029b0| 6e 65 0d 0a 0d 0a 28 64 | 65 66 75 6e 20 63 6f 6e |ne....(d|efun con|
|000029c0| 65 20 28 2f 20 65 6c 65 | 76 20 63 65 6e 31 20 72 |e (/ ele|v cen1 r|
|000029d0| 61 64 20 74 6f 70 20 68 | 20 6e 75 6d 73 65 67 20 |ad top h| numseg |
|000029e0| 63 65 6e 32 20 6f 6c 64 | 65 6c 65 76 20 65 31 20 |cen2 old|elev e1 |
|000029f0| 65 32 29 0d 0a 20 20 28 | 73 65 74 71 20 6e 75 6d |e2).. (|setq num|
|00002a00| 73 65 67 20 30 29 0d 0a | 20 20 28 69 6e 69 74 67 |seg 0)..| (initg|
|00002a10| 65 74 20 31 37 29 ff 20 | 18 3b 33 44 20 70 6f 69 |et 17). |.;3D poi|
|00002a20| 6e 74 20 63 61 6e 27 74 | 20 62 65 20 6e 75 6c 6c |nt can't| be null|
|00002a30| 0d 0a 20 20 28 73 65 74 | 71 20 65 6c 65 76 20 28 |.. (set|q elev (|
|00002a40| 63 61 64 64 72 20 28 73 | 65 74 71 20 63 65 6e 31 |caddr (s|etq cen1|
|00002a50| 20 28 67 65 74 70 6f 69 | 6e 74 20 22 5c 6e 42 61 | (getpoi|nt "\nBa|
|00002a60| 73 65 20 63 65 6e 74 65 | 72 20 70 6f 69 6e 74 3a |se cente|r point:|
|00002a70| 20 22 ff 29 04 0d 0a 20 | 20 28 69 6e 69 74 67 65 | ".)... | (initge|
|00002a80| 74 20 37 20 22 44 69 61 | 6d 65 74 65 72 22 29 ff |t 7 "Dia|meter").|
|00002a90| 20 0e 3b 42 61 73 65 20 | 72 61 64 69 75 73 20 63 | .;Base |radius c|
|00002aa0| 61 6e 27 74 20 62 65 20 | 30 2c 20 6e 65 67 2c 20 |an't be |0, neg, |
|00002ab0| 6f 72 20 6e 75 6c 6c 0d | 0a 20 20 28 73 65 74 71 |or null.|. (setq|
|00002ac0| 20 72 61 64 20 28 67 65 | 74 64 69 73 74 20 63 65 | rad (ge|tdist ce|
|00002ad0| 6e 31 20 22 5c 6e 44 69 | 61 6d 65 74 65 72 2f 3c |n1 "\nDi|ameter/<|
|00002ae0| 72 61 64 69 75 73 3e 20 | 6f 66 20 62 61 73 65 3a |radius> |of base:|
|00002af0| 20 22 29 29 0d 0a 20 20 | 28 69 66 20 28 3d 20 72 | ")).. |(if (= r|
|00002b00| 61 64 20 22 44 69 61 6d | 65 74 65 72 22 29 0d 0a |ad "Diam|eter")..|
|00002b10| ff 20 04 28 70 72 6f 67 | 6e 0d 0a ff 20 06 28 69 |. .(prog|n... .(i|
|00002b20| 6e 69 74 67 65 74 20 37 | 29 ff 20 15 3b 42 61 73 |nitget 7|). .;Bas|
|00002b30| 65 20 64 69 61 6d 65 74 | 65 72 20 63 61 6e 27 74 |e diamet|er can't|
|00002b40| 20 62 65 20 30 2c 20 6e | 65 67 2c 20 6f 72 20 6e | be 0, n|eg, or n|
|00002b50| 75 6c 6c 0d 0a ff 20 06 | 28 73 65 74 71 20 72 61 |ull... .|(setq ra|
|00002b60| 64 20 28 2f 20 28 67 65 | 74 64 69 73 74 20 63 65 |d (/ (ge|tdist ce|
|00002b70| 6e 31 20 22 5c 6e 44 69 | 61 6d 65 74 65 72 20 6f |n1 "\nDi|ameter o|
|00002b80| 66 20 62 61 73 65 3a 20 | 22 29 20 32 2e 30 29 29 |f base: |") 2.0))|
|00002b90| 0d 0a ff 20 04 29 0d 0a | 20 20 29 0d 0a 0d 0a 20 |... .)..| ).... |
|00002ba0| 20 28 69 6e 69 74 67 65 | 74 20 34 20 22 44 69 61 | (initge|t 4 "Dia|
|00002bb0| 6d 65 74 65 72 22 29 ff | 20 0e 3b 54 6f 70 20 72 |meter").| .;Top r|
|00002bc0| 61 64 69 75 73 20 63 61 | 6e 27 74 20 62 65 20 6e |adius ca|n't be n|
|00002bd0| 65 67 0d 0a 20 20 28 73 | 65 74 71 20 74 6f 70 20 |eg.. (s|etq top |
|00002be0| 28 67 65 74 64 69 73 74 | 20 63 65 6e 31 20 22 5c |(getdist| cen1 "\|
|00002bf0| 6e 44 69 61 6d 65 74 65 | 72 2f 3c 72 61 64 69 75 |nDiamete|r/<radiu|
|00002c00| 73 3e 20 6f 66 20 74 6f | 70 20 3c 30 3e 3a 20 22 |s> of to|p <0>: "|
|00002c10| 29 29 0d 0a 20 20 28 69 | 66 20 28 3d 20 74 6f 70 |)).. (i|f (= top|
|00002c20| 20 22 44 69 61 6d 65 74 | 65 72 22 29 0d 0a ff 20 | "Diamet|er")... |
|00002c30| 04 28 70 72 6f 67 6e 0d | 0a ff 20 06 28 69 6e 69 |.(progn.|.. .(ini|
|00002c40| 74 67 65 74 20 34 29 ff | 20 15 3b 54 6f 70 20 64 |tget 4).| .;Top d|
|00002c50| 69 61 6d 65 74 65 72 20 | 63 61 6e 27 74 20 62 65 |iameter |can't be|
|00002c60| 20 6e 65 67 0d 0a ff 20 | 06 28 73 65 74 71 20 74 | neg... |.(setq t|
|00002c70| 6f 70 20 28 67 65 74 64 | 69 73 74 20 63 65 6e 31 |op (getd|ist cen1|
|00002c80| 20 22 5c 6e 44 69 61 6d | 65 74 65 72 20 6f 66 20 | "\nDiam|eter of |
|00002c90| 74 6f 70 20 3c 30 3e 3a | 20 22 29 29 0d 0a ff 20 |top <0>:| "))... |
|00002ca0| 06 28 69 66 20 74 6f 70 | 0d 0a ff 20 08 28 73 65 |.(if top|... .(se|
|00002cb0| 74 71 20 74 6f 70 20 28 | 2f 20 74 6f 70 20 32 2e |tq top (|/ top 2.|
|00002cc0| 30 29 29 0d 0a ff 20 06 | 29 0d 0a ff 20 04 29 0d |0))... .|)... .).|
|00002cd0| 0a 20 20 29 0d 0a 20 20 | 28 69 66 20 28 6e 75 6c |. ).. |(if (nul|
|00002ce0| 6c 20 74 6f 70 29 0d 0a | ff 20 04 28 73 65 74 71 |l top)..|. .(setq|
|00002cf0| 20 74 6f 70 20 30 2e 30 | 29 0d 0a 20 20 29 0d 0a | top 0.0|).. )..|
|00002d00| 20 20 0d 0a 20 20 28 69 | 6e 69 74 67 65 74 20 37 | .. (i|nitget 7|
|00002d10| 20 22 48 65 69 67 68 74 | 22 29 ff 20 10 3b 48 65 | "Height|"). .;He|
|00002d20| 69 67 68 74 20 63 61 6e | 27 74 20 62 65 20 30 2c |ight can|'t be 0,|
|00002d30| 20 6e 65 67 2c 20 6f 72 | 20 6e 75 6c 6c 0d 0a 20 | neg, or| null.. |
|00002d40| 20 28 73 65 74 71 20 68 | 20 28 67 65 74 64 69 73 | (setq h| (getdis|
|00002d50| 74 20 63 65 6e 31 20 22 | 5c 6e 48 65 69 67 68 74 |t cen1 "|\nHeight|
|00002d60| 3a 20 22 29 29 0d 0a 0d | 0a 20 20 28 77 68 69 6c |: "))...|. (whil|
|00002d70| 65 20 28 3c 20 6e 75 6d | 73 65 67 20 32 29 ff 20 |e (< num|seg 2). |
|00002d80| 11 3b 53 55 52 46 54 41 | 42 31 20 63 61 6e 27 74 |.;SURFTA|B1 can't|
|00002d90| 20 62 65 20 6c 65 73 73 | 20 74 68 61 6e 20 32 0d | be less| than 2.|
|00002da0| 0a ff 20 04 28 69 6e 69 | 74 67 65 74 20 36 29 0d |.. .(ini|tget 6).|
|00002db0| 0a ff 20 04 28 73 65 74 | 71 20 6e 75 6d 73 65 67 |.. .(set|q numseg|
|00002dc0| 20 28 67 65 74 69 6e 74 | 20 22 5c 6e 4e 75 6d 62 | (getint| "\nNumb|
|00002dd0| 65 72 20 6f 66 20 73 65 | 67 6d 65 6e 74 73 20 3c |er of se|gments <|
|00002de0| 31 36 3e 3a 20 22 29 29 | 0d 0a ff 20 04 28 69 66 |16>: "))|... .(if|
|00002df0| 20 28 6e 75 6c 6c 20 6e | 75 6d 73 65 67 29 0d 0a | (null n|umseg)..|
|00002e00| ff 20 06 28 73 65 74 71 | 20 6e 75 6d 73 65 67 20 |. .(setq| numseg |
|00002e10| 31 36 29 0d 0a ff 20 04 | 29 20 20 0d 0a ff 20 04 |16)... .|) ... .|
|00002e20| 28 69 66 20 28 3c 20 6e | 75 6d 73 65 67 20 32 29 |(if (< n|umseg 2)|
|00002e30| 0d 0a ff 20 06 28 70 72 | 69 6e 63 20 22 5c 6e 4e |... .(pr|inc "\nN|
|00002e40| 75 6d 62 65 72 20 6f 66 | 20 73 65 67 6d 65 6e 74 |umber of| segment|
|00002e50| 73 20 6d 75 73 74 20 62 | 65 20 67 72 65 61 74 65 |s must b|e greate|
|00002e60| 72 20 74 68 61 6e 20 31 | 2e 22 29 0d 0a ff 20 04 |r than 1|.")... .|
|00002e70| 29 0d 0a 20 20 29 0d 0a | 20 20 28 73 65 74 76 61 |).. )..| (setva|
|00002e80| 72 20 22 53 55 52 46 54 | 41 42 31 22 20 6e 75 6d |r "SURFT|AB1" num|
|00002e90| 73 65 67 29 0d 0a 0d 0a | 20 20 28 63 6f 6d 6d 61 |seg)....| (comma|
|00002ea0| 6e 64 20 22 43 49 52 43 | 4c 45 22 20 63 65 6e 31 |nd "CIRC|LE" cen1|
|00002eb0| 20 72 61 64 29 ff 20 09 | 3b 44 72 61 77 20 62 61 | rad). .|;Draw ba|
|00002ec0| 73 65 20 63 69 72 63 6c | 65 0d 0a 20 20 28 73 65 |se circl|e.. (se|
|00002ed0| 74 71 20 75 6e 64 6f 69 | 74 20 54 29 0d 0a 20 20 |tq undoi|t T).. |
|00002ee0| 28 73 65 74 71 20 65 31 | 20 28 65 6e 74 6c 61 73 |(setq e1| (entlas|
|00002ef0| 74 29 29 0d 0a 20 20 28 | 73 65 74 71 20 63 65 6e |t)).. (|setq cen|
|00002f00| 32 20 28 6c 69 73 74 20 | 28 63 61 72 20 63 65 6e |2 (list |(car cen|
|00002f10| 31 29 20 28 63 61 64 72 | 20 63 65 6e 31 29 20 28 |1) (cadr| cen1) (|
|00002f20| 2b 20 28 63 61 64 64 72 | 20 63 65 6e 31 29 20 68 |+ (caddr| cen1) h|
|00002f30| ff 29 03 0d 0a 20 20 28 | 73 65 74 71 20 6f 6c 64 |.)... (|setq old|
|00002f40| 65 6c 65 76 20 28 67 65 | 74 76 61 72 20 22 45 4c |elev (ge|tvar "EL|
|00002f50| 45 56 41 54 49 4f 4e 22 | 29 29 0d 0a 20 20 28 63 |EVATION"|)).. (c|
|00002f60| 6f 6d 6d 61 6e 64 20 22 | 45 4c 45 56 22 20 28 2b |ommand "|ELEV" (+|
|00002f70| 20 65 6c 65 76 20 68 29 | 20 22 22 29 0d 0a 20 20 | elev h)| "").. |
|00002f80| 28 63 6f 6e 64 20 0d 0a | ff 20 04 3b 3b 44 72 61 |(cond ..|. .;;Dra|
|00002f90| 77 20 74 6f 70 20 70 6f | 69 6e 74 20 6f 72 20 63 |w top po|int or c|
|00002fa0| 69 72 63 6c 65 0d 0a ff | 20 04 28 28 3d 20 74 6f |ircle...| .((= to|
|00002fb0| 70 20 30 2e 30 29 20 28 | 63 6f 6d 6d 61 6e 64 20 |p 0.0) (|command |
|00002fc0| 22 50 4f 49 4e 54 22 20 | 63 65 6e 32 29 29 20 20 |"POINT" |cen2)) |
|00002fd0| 0d 0a ff 20 04 28 74 20 | 28 63 6f 6d 6d 61 6e 64 |... .(t |(command|
|00002fe0| 20 22 43 49 52 43 4c 45 | 22 20 63 65 6e 32 20 74 | "CIRCLE|" cen2 t|
|00002ff0| 6f 70 29 29 0d 0a 20 20 | 29 0d 0a 20 20 28 73 65 |op)).. |).. (se|
|00003000| 74 71 20 65 32 20 28 65 | 6e 74 6c 61 73 74 29 29 |tq e2 (e|ntlast))|
|00003010| 0d 0a 20 20 28 73 65 74 | 76 61 72 20 22 45 4c 45 |.. (set|var "ELE|
|00003020| 56 41 54 49 4f 4e 22 20 | 6f 6c 64 65 6c 65 76 29 |VATION" |oldelev)|
|00003030| 0d 0a 0d 0a 20 20 28 63 | 6f 6d 6d 61 6e 64 20 22 |.... (c|ommand "|
|00003040| 52 55 4c 45 53 55 52 46 | 22 20 28 6c 69 73 74 20 |RULESURF|" (list |
|00003050| 65 31 20 63 65 6e 31 29 | 20 28 6c 69 73 74 20 65 |e1 cen1)| (list e|
|00003060| 32 20 63 65 6e 32 29 29 | 20 3b 44 72 61 77 20 63 |2 cen2))| ;Draw c|
|00003070| 6f 6e 65 0d 0a 20 20 28 | 65 6e 74 64 65 6c 20 65 |one.. (|entdel e|
|00003080| 31 29 20 0d 0a 20 20 28 | 65 6e 74 64 65 6c 20 65 |1) .. (|entdel e|
|00003090| 32 29 0d 0a 29 0d 0a 0d | 0a ff 3b 03 ff 2d 4a 0d |2)..)...|..;..-J.|
|000030a0| 0a ff 3b 03 20 44 72 61 | 77 20 61 20 73 70 68 65 |..;. Dra|w a sphe|
|000030b0| 72 65 2c 20 64 6f 6d 65 | 2c 20 6f 72 20 64 69 73 |re, dome|, or dis|
|000030c0| 68 0d 0a 0d 0a 28 64 65 | 66 75 6e 20 73 70 68 65 |h....(de|fun sphe|
|000030d0| 72 65 73 20 28 74 79 70 | 20 2f 20 63 65 6e 20 72 |res (typ| / cen r|
|000030e0| 20 6e 75 6d 73 65 67 20 | 61 78 20 61 78 31 20 65 | numseg |ax ax1 e|
|000030f0| 31 20 65 32 29 0d 0a 20 | 20 28 73 65 74 71 20 6e |1 e2).. | (setq n|
|00003100| 75 6d 73 65 67 20 30 29 | 0d 0a 20 20 28 69 6e 69 |umseg 0)|.. (ini|
|00003110| 74 67 65 74 20 31 37 29 | ff 20 18 3b 33 44 20 70 |tget 17)|. .;3D p|
|00003120| 6f 69 6e 74 20 63 61 6e | 27 74 20 62 65 20 6e 75 |oint can|'t be nu|
|00003130| 6c 6c 0d 0a 20 20 28 73 | 65 74 71 20 63 65 6e 20 |ll.. (s|etq cen |
|00003140| 28 67 65 74 70 6f 69 6e | 74 20 28 73 74 72 63 61 |(getpoin|t (strca|
|00003150| 74 20 22 5c 6e 43 65 6e | 74 65 72 20 6f 66 20 22 |t "\nCen|ter of "|
|00003160| 20 74 79 70 22 3a 20 22 | ff 29 03 0d 0a 20 20 28 | typ": "|.)... (|
|00003170| 69 6e 69 74 67 65 74 20 | 37 20 22 44 69 61 6d 65 |initget |7 "Diame|
|00003180| 74 65 72 22 29 ff 20 0e | 3b 52 61 64 69 75 73 20 |ter"). .|;Radius |
|00003190| 63 61 6e 27 74 20 62 65 | 20 30 2c 20 6e 65 67 2c |can't be| 0, neg,|
|000031a0| 20 6f 72 20 6e 75 6c 6c | 0d 0a 20 20 28 73 65 74 | or null|.. (set|
|000031b0| 71 20 72 20 28 67 65 74 | 64 69 73 74 20 63 65 6e |q r (get|dist cen|
|000031c0| 20 28 73 74 72 63 61 74 | 20 22 5c 6e 44 69 61 6d | (strcat| "\nDiam|
|000031d0| 65 74 65 72 2f 3c 72 61 | 64 69 75 73 3e 3a 20 22 |eter/<ra|dius>: "|
|000031e0| ff 29 03 0d 0a 20 20 28 | 69 66 20 28 3d 20 72 20 |.)... (|if (= r |
|000031f0| 22 44 69 61 6d 65 74 65 | 72 22 29 0d 0a ff 20 04 |"Diamete|r")... .|
|00003200| 28 70 72 6f 67 6e 0d 0a | ff 20 06 28 69 6e 69 74 |(progn..|. .(init|
|00003210| 67 65 74 20 37 29 ff 20 | 15 3b 44 69 61 6d 65 74 |get 7). |.;Diamet|
|00003220| 65 72 20 63 61 6e 27 74 | 20 62 65 20 30 2c 20 6e |er can't| be 0, n|
|00003230| 65 67 2c 20 6f 72 20 6e | 75 6c 6c 0d 0a ff 20 06 |eg, or n|ull... .|
|00003240| 28 73 65 74 71 20 72 20 | 28 2f 20 28 67 65 74 64 |(setq r |(/ (getd|
|00003250| 69 73 74 20 63 65 6e 20 | 28 73 74 72 63 61 74 20 |ist cen |(strcat |
|00003260| 22 5c 6e 44 69 61 6d 65 | 74 65 72 3a 20 22 29 29 |"\nDiame|ter: "))|
|00003270| 20 32 2e 30 29 29 0d 0a | ff 20 04 29 0d 0a 20 20 | 2.0))..|. .).. |
|00003280| 29 0d 0a 20 20 28 73 65 | 74 71 20 63 65 6e 20 28 |).. (se|tq cen (|
|00003290| 74 72 61 6e 73 20 63 65 | 6e 20 31 20 30 29 29 ff |trans ce|n 1 0)).|
|000032a0| 20 0a 3b 54 72 61 6e 73 | 6c 61 74 65 20 66 72 6f | .;Trans|late fro|
|000032b0| 6d 20 55 43 53 20 74 6f | 20 57 43 53 0d 0a ff 20 |m UCS to| WCS... |
|000032c0| 08 0d 0a 20 20 28 77 68 | 69 6c 65 20 28 3c 20 6e |... (wh|ile (< n|
|000032d0| 75 6d 73 65 67 20 32 29 | ff 20 11 3b 53 55 52 46 |umseg 2)|. .;SURF|
|000032e0| 54 41 42 31 20 63 61 6e | 27 74 20 62 65 20 6c 65 |TAB1 can|'t be le|
|000032f0| 73 73 20 74 68 61 6e 20 | 32 0d 0a ff 20 04 28 69 |ss than |2... .(i|
|00003300| 6e 69 74 67 65 74 20 36 | 29 0d 0a ff 20 04 28 73 |nitget 6|)... .(s|
|00003310| 65 74 71 20 6e 75 6d 73 | 65 67 20 28 67 65 74 69 |etq nums|eg (geti|
|00003320| 6e 74 20 22 5c 6e 4e 75 | 6d 62 65 72 20 6f 66 20 |nt "\nNu|mber of |
|00003330| 6c 6f 6e 67 69 74 75 64 | 69 6e 61 6c 20 73 65 67 |longitud|inal seg|
|00003340| 6d 65 6e 74 73 20 3c 31 | 36 3e 3a 20 22 29 29 0d |ments <1|6>: ")).|
|00003350| 0a ff 20 04 28 69 66 20 | 28 6e 75 6c 6c 20 6e 75 |.. .(if |(null nu|
|00003360| 6d 73 65 67 29 0d 0a ff | 20 06 28 73 65 74 71 20 |mseg)...| .(setq |
|00003370| 6e 75 6d 73 65 67 20 31 | 36 29 0d 0a ff 20 04 29 |numseg 1|6)... .)|
|00003380| 0d 0a ff 20 04 28 69 66 | 20 28 3c 20 6e 75 6d 73 |... .(if| (< nums|
|00003390| 65 67 20 32 29 0d 0a ff | 20 06 28 70 72 69 6e 63 |eg 2)...| .(princ|
|000033a0| 20 22 5c 6e 4e 75 6d 62 | 65 72 20 6f 66 20 73 65 | "\nNumb|er of se|
|000033b0| 67 6d 65 6e 74 73 20 6d | 75 73 74 20 62 65 20 67 |gments m|ust be g|
|000033c0| 72 65 61 74 65 72 20 74 | 68 61 6e 20 31 2e 22 29 |reater t|han 1.")|
|000033d0| 0d 0a ff 20 04 29 0d 0a | 20 20 29 0d 0a 20 20 28 |... .)..| ).. (|
|000033e0| 73 65 74 76 61 72 20 22 | 53 55 52 46 54 41 42 31 |setvar "|SURFTAB1|
|000033f0| 22 20 6e 75 6d 73 65 67 | 29 0d 0a ff 20 03 0d 0a |" numseg|)... ...|
|00003400| 20 20 28 73 65 74 71 20 | 6e 75 6d 73 65 67 20 30 | (setq |numseg 0|
|00003410| 29 0d 0a 20 20 28 77 68 | 69 6c 65 20 28 3c 20 6e |).. (wh|ile (< n|
|00003420| 75 6d 73 65 67 20 32 29 | ff 20 11 3b 53 55 52 46 |umseg 2)|. .;SURF|
|00003430| 54 41 42 32 20 63 61 6e | 27 74 20 62 65 20 6c 65 |TAB2 can|'t be le|
|00003440| 73 73 20 74 68 61 6e 20 | 32 0d 0a ff 20 04 28 69 |ss than |2... .(i|
|00003450| 6e 69 74 67 65 74 20 36 | 29 0d 0a ff 20 04 28 70 |nitget 6|)... .(p|
|00003460| 72 69 6e 63 20 22 5c 6e | 4e 75 6d 62 65 72 20 6f |rinc "\n|Number o|
|00003470| 66 20 6c 61 74 69 74 75 | 64 69 6e 61 6c 20 73 65 |f latitu|dinal se|
|00003480| 67 6d 65 6e 74 73 20 22 | 29 20 0d 0a ff 20 04 28 |gments "|) ... .(|
|00003490| 69 66 20 28 3d 20 74 79 | 70 20 22 73 70 68 65 72 |if (= ty|p "spher|
|000034a0| 65 22 29 0d 0a ff 20 06 | 28 70 72 69 6e 63 20 22 |e")... .|(princ "|
|000034b0| 3c 31 36 3e 3a 20 22 29 | ff 20 10 3b 53 65 74 20 |<16>: ")|. .;Set |
|000034c0| 64 65 66 61 75 6c 74 20 | 74 6f 20 31 36 20 66 6f |default |to 16 fo|
|000034d0| 72 20 61 20 73 70 68 65 | 72 65 0d 0a ff 20 06 28 |r a sphe|re... .(|
|000034e0| 70 72 69 6e 63 20 22 3c | 38 3e 3a 20 22 29 ff 20 |princ "<|8>: "). |
|000034f0| 11 3b 53 65 74 20 64 65 | 66 61 75 6c 74 20 74 6f |.;Set de|fault to|
|00003500| 20 38 20 66 6f 72 20 61 | 20 64 6f 6d 65 20 6f 72 | 8 for a| dome or|
|00003510| 20 64 69 73 68 0d 0a ff | 20 04 29 0d 0a ff 20 04 | dish...| .)... .|
|00003520| 28 73 65 74 71 20 6e 75 | 6d 73 65 67 20 28 67 65 |(setq nu|mseg (ge|
|00003530| 74 69 6e 74 29 29 0d 0a | ff 20 04 28 69 66 20 28 |tint))..|. .(if (|
|00003540| 6e 75 6c 6c 20 6e 75 6d | 73 65 67 29 0d 0a ff 20 |null num|seg)... |
|00003550| 06 28 69 66 20 28 3d 20 | 74 79 70 20 22 73 70 68 |.(if (= |typ "sph|
|00003560| 65 72 65 22 29 0d 0a ff | 20 08 28 73 65 74 71 20 |ere")...| .(setq |
|00003570| 6e 75 6d 73 65 67 20 31 | 36 29 0d 0a ff 20 08 28 |numseg 1|6)... .(|
|00003580| 73 65 74 71 20 6e 75 6d | 73 65 67 20 38 29 0d 0a |setq num|seg 8)..|
|00003590| ff 20 06 29 0d 0a ff 20 | 04 29 0d 0a ff 20 04 28 |. .)... |.)... .(|
|000035a0| 69 66 20 28 3c 20 6e 75 | 6d 73 65 67 20 32 29 0d |if (< nu|mseg 2).|
|000035b0| 0a ff 20 06 28 70 72 69 | 6e 63 20 22 5c 6e 4e 75 |.. .(pri|nc "\nNu|
|000035c0| 6d 62 65 72 20 6f 66 20 | 73 65 67 6d 65 6e 74 73 |mber of |segments|
|000035d0| 20 6d 75 73 74 20 62 65 | 20 67 72 65 61 74 65 72 | must be| greater|
|000035e0| 20 74 68 61 6e 20 31 2e | 22 29 0d 0a ff 20 04 29 | than 1.|")... .)|
|000035f0| 0d 0a 20 20 29 0d 0a 20 | 20 28 73 65 74 76 61 72 |.. ).. | (setvar|
|00003600| 20 22 53 55 52 46 54 41 | 42 32 22 20 6e 75 6d 73 | "SURFTA|B2" nums|
|00003610| 65 67 29 0d 0a 0d 0a 20 | 20 28 63 6f 6d 6d 61 6e |eg).... | (comman|
|00003620| 64 20 22 55 43 53 22 20 | 22 78 22 20 22 39 30 22 |d "UCS" |"x" "90"|
|00003630| 29 0d 0a 20 20 28 73 65 | 74 71 20 75 6e 64 6f 69 |).. (se|tq undoi|
|00003640| 74 20 54 29 0d 0a 0d 0a | 20 20 28 73 65 74 71 20 |t T)....| (setq |
|00003650| 63 65 6e 20 28 74 72 61 | 6e 73 20 63 65 6e 20 30 |cen (tra|ns cen 0|
|00003660| 20 31 29 29 ff 20 0a 3b | 54 72 61 6e 73 6c 61 74 | 1)). .;|Translat|
|00003670| 65 20 66 72 6f 6d 20 57 | 43 53 20 74 6f 20 55 43 |e from W|CS to UC|
|00003680| 53 0d 0a 20 20 28 63 6f | 6e 64 0d 0a ff 20 04 28 |S.. (co|nd... .(|
|00003690| 28 3d 20 74 79 70 20 22 | 73 70 68 65 72 65 22 29 |(= typ "|sphere")|
|000036a0| 0d 0a ff 20 06 28 73 65 | 74 71 20 61 78 20 28 6c |... .(se|tq ax (l|
|000036b0| 69 73 74 20 28 63 61 72 | 20 63 65 6e 29 20 28 2b |ist (car| cen) (+|
|000036c0| 20 28 63 61 64 72 20 63 | 65 6e 29 20 72 29 20 28 | (cadr c|en) r) (|
|000036d0| 63 61 64 64 72 20 63 65 | 6e ff 29 03 0d 0a ff 20 |caddr ce|n.).... |
|000036e0| 06 28 73 65 74 71 20 61 | 78 31 20 28 6c 69 73 74 |.(setq a|x1 (list|
|000036f0| 20 28 63 61 72 20 63 65 | 6e 29 20 28 2d 20 28 63 | (car ce|n) (- (c|
|00003700| 61 64 72 20 63 65 6e 29 | 20 72 29 20 28 63 61 64 |adr cen)| r) (cad|
|00003710| 64 72 20 63 65 6e ff 29 | 03 0d 0a ff 20 06 28 63 |dr cen.)|.... .(c|
|00003720| 6f 6d 6d 61 6e 64 20 22 | 4c 49 4e 45 22 20 61 78 |ommand "|LINE" ax|
|00003730| 20 61 78 31 20 22 22 29 | ff 20 06 3b 44 72 61 77 | ax1 "")|. .;Draw|
|00003740| 20 61 78 69 73 20 6f 66 | 20 72 65 76 6f 6c 75 74 | axis of| revolut|
|00003750| 69 6f 6e 0d 0a ff 20 06 | 28 73 65 74 71 20 65 31 |ion... .|(setq e1|
|00003760| 20 28 65 6e 74 6c 61 73 | 74 29 29 0d 0a ff 20 06 | (entlas|t))... .|
|00003770| 3b 3b 44 72 61 77 20 70 | 61 74 68 20 63 75 72 76 |;;Draw p|ath curv|
|00003780| 65 0d 0a ff 20 06 28 63 | 6f 6d 6d 61 6e 64 20 22 |e... .(c|ommand "|
|00003790| 41 52 43 22 20 61 78 20 | 22 65 22 20 61 78 31 20 |ARC" ax |"e" ax1 |
|000037a0| 22 61 22 20 22 31 38 30 | 2e 30 22 29 20 0d 0a ff |"a" "180|.0") ...|
|000037b0| 20 06 28 73 65 74 71 20 | 65 32 20 28 65 6e 74 6c | .(setq |e2 (entl|
|000037c0| 61 73 74 29 29 0d 0a ff | 20 04 29 0d 0a ff 20 04 |ast))...| .)... .|
|000037d0| 28 74 0d 0a ff 20 06 28 | 69 66 20 28 3d 20 74 79 |(t... .(|if (= ty|
|000037e0| 70 20 22 64 6f 6d 65 22 | 29 0d 0a ff 20 08 28 73 |p "dome"|)... .(s|
|000037f0| 65 74 71 20 61 78 20 28 | 6c 69 73 74 20 28 63 61 |etq ax (|list (ca|
|00003800| 72 20 63 65 6e 29 20 28 | 2b 20 28 63 61 64 72 20 |r cen) (|+ (cadr |
|00003810| 63 65 6e 29 20 72 29 20 | 28 63 61 64 64 72 20 63 |cen) r) |(caddr c|
|00003820| 65 6e ff 29 03 0d 0a ff | 20 08 28 73 65 74 71 20 |en.)....| .(setq |
|00003830| 61 78 20 28 6c 69 73 74 | 20 28 63 61 72 20 63 65 |ax (list| (car ce|
|00003840| 6e 29 20 28 2d 20 28 63 | 61 64 72 20 63 65 6e 29 |n) (- (c|adr cen)|
|00003850| 20 72 29 20 28 63 61 64 | 64 72 20 63 65 6e ff 29 | r) (cad|dr cen.)|
|00003860| 03 0d 0a ff 20 06 29 0d | 0a ff 20 06 28 63 6f 6d |.... .).|.. .(com|
|00003870| 6d 61 6e 64 20 22 4c 49 | 4e 45 22 20 63 65 6e 20 |mand "LI|NE" cen |
|00003880| 61 78 20 22 22 29 ff 20 | 06 3b 44 72 61 77 20 61 |ax ""). |.;Draw a|
|00003890| 78 69 73 20 6f 66 20 72 | 65 76 6f 6c 75 74 69 6f |xis of r|evolutio|
|000038a0| 6e 0d 0a ff 20 06 28 73 | 65 74 71 20 65 31 20 28 |n... .(s|etq e1 (|
|000038b0| 65 6e 74 6c 61 73 74 29 | 29 0d 0a ff 20 06 3b 3b |entlast)|)... .;;|
|000038c0| 44 72 61 77 20 70 61 74 | 68 20 63 75 72 76 65 0d |Draw pat|h curve.|
|000038d0| 0a ff 20 06 28 63 6f 6d | 6d 61 6e 64 20 22 41 52 |.. .(com|mand "AR|
|000038e0| 43 22 20 22 63 22 20 63 | 65 6e 20 61 78 20 22 61 |C" "c" c|en ax "a|
|000038f0| 22 20 22 39 30 2e 30 22 | 29 20 0d 0a ff 20 06 28 |" "90.0"|) ... .(|
|00003900| 73 65 74 71 20 65 32 20 | 28 65 6e 74 6c 61 73 74 |setq e2 |(entlast|
|00003910| 29 29 0d 0a ff 20 04 29 | 0d 0a 20 20 29 0d 0a 0d |))... .)|.. )...|
|00003920| 0a 20 20 3b 3b 44 72 61 | 77 20 64 6f 6d 65 20 6f |. ;;Dra|w dome o|
|00003930| 72 20 64 69 73 68 0d 0a | 20 20 28 63 6f 6d 6d 61 |r dish..| (comma|
|00003940| 6e 64 20 22 52 45 56 53 | 55 52 46 22 20 28 6c 69 |nd "REVS|URF" (li|
|00003950| 73 74 20 65 32 20 61 78 | 29 20 28 6c 69 73 74 20 |st e2 ax|) (list |
|00003960| 65 31 20 63 65 6e 29 20 | 22 22 20 22 22 29 20 0d |e1 cen) |"" "") .|
|00003970| 0a 20 20 28 65 6e 74 64 | 65 6c 20 65 31 29 ff 20 |. (entd|el e1). |
|00003980| 11 0d 0a 20 20 28 65 6e | 74 64 65 6c 20 65 32 29 |... (en|tdel e2)|
|00003990| 0d 0a 20 20 28 63 6f 6d | 6d 61 6e 64 20 22 55 43 |.. (com|mand "UC|
|000039a0| 53 22 20 22 70 72 65 76 | 22 29 0d 0a 29 0d 0a 0d |S" "prev|")..)...|
|000039b0| 0a ff 3b 03 ff 2d 4a 0d | 0a ff 3b 03 20 44 72 61 |..;..-J.|..;. Dra|
|000039c0| 77 20 61 20 74 6f 72 75 | 73 0d 0a 0d 0a 28 64 65 |w a toru|s....(de|
|000039d0| 66 75 6e 20 74 6f 72 75 | 73 20 28 2f 20 63 65 6e |fun toru|s (/ cen|
|000039e0| 20 6c 20 74 72 61 64 20 | 6e 75 6d 73 65 67 20 68 | l trad |numseg h|
|000039f0| 72 61 64 20 74 63 65 6e | 20 61 78 20 65 31 20 65 |rad tcen| ax e1 e|
|00003a00| 32 29 0d 0a 20 20 28 73 | 65 74 71 20 6e 75 6d 73 |2).. (s|etq nums|
|00003a10| 65 67 20 30 29 0d 0a 20 | 20 28 69 6e 69 74 67 65 |eg 0).. | (initge|
|00003a20| 74 20 31 37 29 ff 20 18 | 3b 33 44 20 70 6f 69 6e |t 17). .|;3D poin|
|00003a30| 74 20 63 61 6e 27 74 20 | 62 65 20 6e 75 6c 6c 0d |t can't |be null.|
|00003a40| 0a 20 20 28 73 65 74 71 | 20 63 65 6e 20 28 67 65 |. (setq| cen (ge|
|00003a50| 74 70 6f 69 6e 74 20 22 | 5c 6e 43 65 6e 74 65 72 |tpoint "|\nCenter|
|00003a60| 20 6f 66 20 74 6f 72 75 | 73 3a 20 22 29 29 0d 0a | of toru|s: "))..|
|00003a70| 20 20 28 73 65 74 71 20 | 74 72 61 64 20 30 20 6c | (setq |trad 0 l|
|00003a80| 20 2d 31 29 0d 0a 20 20 | 28 77 68 69 6c 65 20 28 | -1).. |(while (|
|00003a90| 3e 20 74 72 61 64 20 28 | 2f 20 6c 20 32 2e 30 29 |> trad (|/ l 2.0)|
|00003aa0| 29 0d 0a ff 20 04 28 69 | 6e 69 74 67 65 74 20 37 |)... .(i|nitget 7|
|00003ab0| 20 22 44 69 61 6d 65 74 | 65 72 22 29 ff 20 0c 3b | "Diamet|er"). .;|
|00003ac0| 52 61 64 69 75 73 20 63 | 61 6e 27 74 20 62 65 20 |Radius c|an't be |
|00003ad0| 30 2c 20 6e 65 67 2c 20 | 6f 72 20 6e 75 6c 6c 0d |0, neg, |or null.|
|00003ae0| 0a ff 20 04 28 73 65 74 | 71 20 6c 20 28 67 65 74 |.. .(set|q l (get|
|00003af0| 64 69 73 74 20 63 65 6e | 20 22 5c 6e 44 69 61 6d |dist cen| "\nDiam|
|00003b00| 65 74 65 72 2f 3c 72 61 | 64 69 75 73 3e 20 6f 66 |eter/<ra|dius> of|
|00003b10| 20 74 6f 72 75 73 3a 20 | 22 29 29 0d 0a ff 20 04 | torus: |"))... .|
|00003b20| 28 69 66 20 28 3d 20 6c | 20 22 44 69 61 6d 65 74 |(if (= l| "Diamet|
|00003b30| 65 72 22 29 0d 0a ff 20 | 06 28 70 72 6f 67 6e 0d |er")... |.(progn.|
|00003b40| 0a ff 20 08 28 69 6e 69 | 74 67 65 74 20 37 29 ff |.. .(ini|tget 7).|
|00003b50| 20 13 3b 44 69 61 6d 65 | 74 65 72 20 63 61 6e 27 | .;Diame|ter can'|
|00003b60| 74 20 62 65 20 30 2c 20 | 6e 65 67 2c 20 6f 72 20 |t be 0, |neg, or |
|00003b70| 6e 75 6c 6c 0d 0a ff 20 | 08 28 73 65 74 71 20 6c |null... |.(setq l|
|00003b80| 20 28 2f 20 28 67 65 74 | 64 69 73 74 20 63 65 6e | (/ (get|dist cen|
|00003b90| 20 22 5c 6e 44 69 61 6d | 65 74 65 72 3a 20 22 29 | "\nDiam|eter: ")|
|00003ba0| 20 32 2e 30 29 29 0d 0a | ff 20 06 29 0d 0a ff 20 | 2.0))..|. .)... |
|00003bb0| 04 29 0d 0a ff 20 04 28 | 69 6e 69 74 67 65 74 20 |.)... .(|initget |
|00003bc0| 37 20 22 44 69 61 6d 65 | 74 65 72 22 29 ff 20 0c |7 "Diame|ter"). .|
|00003bd0| 3b 52 61 64 69 75 73 20 | 63 61 6e 27 74 20 62 65 |;Radius |can't be|
|00003be0| 20 30 2c 20 6e 65 67 2c | 20 6f 72 20 6e 75 6c 6c | 0, neg,| or null|
|00003bf0| 0d 0a ff 20 04 28 73 65 | 74 71 20 74 72 61 64 20 |... .(se|tq trad |
|00003c00| 28 67 65 74 64 69 73 74 | 20 63 65 6e 20 22 5c 6e |(getdist| cen "\n|
|00003c10| 44 69 61 6d 65 74 65 72 | 2f 3c 72 61 64 69 75 73 |Diameter|/<radius|
|00003c20| 3e 20 6f 66 20 74 75 62 | 65 3a 20 22 29 29 0d 0a |> of tub|e: "))..|
|00003c30| ff 20 04 28 69 66 20 28 | 3d 20 74 72 61 64 20 22 |. .(if (|= trad "|
|00003c40| 44 69 61 6d 65 74 65 72 | 22 29 0d 0a ff 20 06 28 |Diameter|")... .(|
|00003c50| 70 72 6f 67 6e 0d 0a ff | 20 08 28 69 6e 69 74 67 |progn...| .(initg|
|00003c60| 65 74 20 37 29 0d 0a ff | 20 08 28 73 65 74 71 20 |et 7)...| .(setq |
|00003c70| 74 72 61 64 20 28 2f 20 | 28 67 65 74 64 69 73 74 |trad (/ |(getdist|
|00003c80| 20 63 65 6e 20 22 5c 6e | 44 69 61 6d 65 74 65 72 | cen "\n|Diameter|
|00003c90| 3a 20 22 29 20 32 2e 30 | 29 29 0d 0a ff 20 06 29 |: ") 2.0|))... .)|
|00003ca0| 0d 0a ff 20 04 29 0d 0a | ff 20 04 28 69 66 20 28 |... .)..|. .(if (|
|00003cb0| 3e 20 74 72 61 64 20 28 | 2f 20 6c 20 32 2e 30 29 |> trad (|/ l 2.0)|
|00003cc0| 29 0d 0a ff 20 06 28 70 | 72 6f 6d 70 74 20 22 5c |)... .(p|rompt "\|
|00003cd0| 6e 54 75 62 65 20 64 69 | 61 6d 65 74 65 72 20 63 |nTube di|ameter c|
|00003ce0| 61 6e 6e 6f 74 20 65 78 | 63 3e 1a ff 65 65 64 20 |annot ex|c>..eed |
|00003cf0| 74 6f 72 75 73 20 72 61 | 64 69 75 73 2e 22 29 0d |torus ra|dius.").|
|00003d00| 0a ff 20 04 29 0d 0a 20 | 20 29 0d 0a 20 20 28 73 |.. .).. | ).. (s|
|00003d10| 65 74 71 20 63 65 6e 20 | 28 74 72 61 6e 73 20 63 |etq cen |(trans c|
|00003d20| 65 6e 20 31 20 30 29 29 | ff 20 0a 3b 54 72 61 6e |en 1 0))|. .;Tran|
|00003d30| 73 6c 61 74 65 20 66 72 | 6f 6d 20 55 43 53 20 74 |slate fr|om UCS t|
|00003d40| 6f 20 57 43 53 0d 0a 0d | 0a 20 20 28 77 68 69 6c |o WCS...|. (whil|
|00003d50| 65 20 28 3c 20 6e 75 6d | 73 65 67 20 32 29 0d 0a |e (< num|seg 2)..|
|00003d60| ff 20 04 28 69 6e 69 74 | 67 65 74 20 36 29 ff 20 |. .(init|get 6). |
|00003d70| 17 3b 53 55 52 46 54 41 | 42 31 20 63 61 6e 27 74 |.;SURFTA|B1 can't|
|00003d80| 20 62 65 20 30 20 6f 72 | 20 6e 65 67 0d 0a ff 20 | be 0 or| neg... |
|00003d90| 04 28 73 65 74 71 20 6e | 75 6d 73 65 67 20 28 67 |.(setq n|umseg (g|
|00003da0| 65 74 69 6e 74 20 22 5c | 6e 53 65 67 6d 65 6e 74 |etint "\|nSegment|
|00003db0| 73 20 61 72 6f 75 6e 64 | 20 74 75 62 65 20 63 69 |s around| tube ci|
|00003dc0| 72 63 75 6d 66 65 72 65 | 6e 63 65 20 3c 31 36 3e |rcumfere|nce <16>|
|00003dd0| 3a 20 22 29 29 0d 0a ff | 20 04 28 69 66 20 28 6e |: "))...| .(if (n|
|00003de0| 75 6c 6c 20 6e 75 6d 73 | 65 67 29 0d 0a ff 20 06 |ull nums|eg)... .|
|00003df0| 28 73 65 74 71 20 6e 75 | 6d 73 65 67 20 31 36 29 |(setq nu|mseg 16)|
|00003e00| 0d 0a ff 20 04 29 0d 0a | ff 20 04 28 69 66 20 28 |... .)..|. .(if (|
|00003e10| 3c 20 6e 75 6d 73 65 67 | 20 32 29 0d 0a ff 20 06 |< numseg| 2)... .|
|00003e20| 28 70 72 69 6e 63 20 22 | 5c 6e 4e 75 6d 62 65 72 |(princ "|\nNumber|
|00003e30| 20 6f 66 20 73 65 67 6d | 65 6e 74 73 20 6d 75 73 | of segm|ents mus|
|00003e40| 74 20 62 65 20 67 72 65 | 61 74 65 72 20 74 68 61 |t be gre|ater tha|
|00003e50| 6e 20 31 2e 22 29 0d 0a | ff 20 04 29 0d 0a 20 20 |n 1.")..|. .).. |
|00003e60| 29 0d 0a 20 20 28 73 65 | 74 76 61 72 20 22 53 55 |).. (se|tvar "SU|
|00003e70| 52 46 54 41 42 31 22 20 | 6e 75 6d 73 65 67 29 0d |RFTAB1" |numseg).|
|00003e80| 0a 0d 0a 20 20 28 73 65 | 74 71 20 6e 75 6d 73 65 |... (se|tq numse|
|00003e90| 67 20 30 29 0d 0a 20 20 | 28 77 68 69 6c 65 20 28 |g 0).. |(while (|
|00003ea0| 3c 20 6e 75 6d 73 65 67 | 20 32 29 0d 0a ff 20 04 |< numseg| 2)... .|
|00003eb0| 28 69 6e 69 74 67 65 74 | 20 36 29 ff 20 17 3b 53 |(initget| 6). .;S|
|00003ec0| 55 52 46 54 41 42 32 20 | 63 61 6e 27 74 20 62 65 |URFTAB2 |can't be|
|00003ed0| 20 30 20 6f 72 20 6e 65 | 67 0d 0a ff 20 04 28 73 | 0 or ne|g... .(s|
|00003ee0| 65 74 71 20 6e 75 6d 73 | 65 67 20 28 67 65 74 69 |etq nums|eg (geti|
|00003ef0| 6e 74 20 22 5c 6e 53 65 | 67 6d 65 6e 74 73 20 61 |nt "\nSe|gments a|
|00003f00| 72 6f 75 6e 64 20 74 6f | 72 75 73 20 63 69 72 63 |round to|rus circ|
|00003f10| 75 6d 66 65 72 65 6e 63 | 65 20 3c 31 36 3e 3a 20 |umferenc|e <16>: |
|00003f20| 22 29 29 0d 0a ff 20 04 | 28 69 66 20 28 6e 75 6c |"))... .|(if (nul|
|00003f30| 6c 20 6e 75 6d 73 65 67 | 29 0d 0a ff 20 06 28 73 |l numseg|)... .(s|
|00003f40| 65 74 71 20 6e 75 6d 73 | 65 67 20 31 36 29 0d 0a |etq nums|eg 16)..|
|00003f50| ff 20 04 29 0d 0a ff 20 | 04 28 69 66 20 28 3c 20 |. .)... |.(if (< |
|00003f60| 6e 75 6d 73 65 67 20 32 | 29 0d 0a ff 20 06 28 70 |numseg 2|)... .(p|
|00003f70| 72 69 6e 63 20 22 5c 6e | 4e 75 6d 62 65 72 20 6f |rinc "\n|Number o|
|00003f80| 66 20 73 65 67 6d 65 6e | 74 73 20 6d 75 73 74 20 |f segmen|ts must |
|00003f90| 62 65 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |be great|er than |
|00003fa0| 31 2e 22 29 0d 0a ff 20 | 04 29 0d 0a 20 20 29 0d |1.")... |.).. ).|
|00003fb0| 0a 20 20 28 73 65 74 76 | 61 72 20 22 53 55 52 46 |. (setv|ar "SURF|
|00003fc0| 54 41 42 32 22 20 6e 75 | 6d 73 65 67 29 0d 0a 0d |TAB2" nu|mseg)...|
|00003fd0| 0a 20 20 28 63 6f 6d 6d | 61 6e 64 20 22 55 43 53 |. (comm|and "UCS|
|00003fe0| 22 20 22 78 22 20 22 39 | 30 22 29 0d 0a 20 20 28 |" "x" "9|0").. (|
|00003ff0| 73 65 74 71 20 75 6e 64 | 6f 69 74 20 54 29 0d 0a |setq und|oit T)..|
|00004000| 0d 0a 20 20 28 73 65 74 | 71 20 63 65 6e 20 28 74 |.. (set|q cen (t|
|00004010| 72 61 6e 73 20 63 65 6e | 20 30 20 31 29 29 ff 20 |rans cen| 0 1)). |
|00004020| 0a 3b 54 72 61 6e 73 6c | 61 74 65 20 66 72 6f 6d |.;Transl|ate from|
|00004030| 20 57 43 53 20 74 6f 20 | 55 43 53 0d 0a 20 20 28 | WCS to |UCS.. (|
|00004040| 73 65 74 71 20 68 72 61 | 64 20 28 2d 20 6c 20 28 |setq hra|d (- l (|
|00004050| 2a 20 74 72 61 64 20 32 | 2e 30 ff 29 03 0d 0a 20 |* trad 2|.0.)... |
|00004060| 20 28 73 65 74 71 20 74 | 63 65 6e 20 28 6c 69 73 | (setq t|cen (lis|
|00004070| 74 20 28 2b 20 28 2b 20 | 28 63 61 72 20 63 65 6e |t (+ (+ |(car cen|
|00004080| 29 20 74 72 61 64 29 20 | 68 72 61 64 29 20 28 63 |) trad) |hrad) (c|
|00004090| 61 64 72 20 63 65 6e 29 | 20 28 63 61 64 64 72 20 |adr cen)| (caddr |
|000040a0| 63 65 6e ff 29 03 0d 0a | 20 20 28 73 65 74 71 20 |cen.)...| (setq |
|000040b0| 61 78 20 28 6c 69 73 74 | 20 28 63 61 72 20 63 65 |ax (list| (car ce|
|000040c0| 6e 29 20 28 2b 20 28 63 | 61 64 72 20 63 65 6e 29 |n) (+ (c|adr cen)|
|000040d0| 20 32 2e 30 29 20 28 63 | 61 64 64 72 20 63 65 6e | 2.0) (c|addr cen|
|000040e0| ff 29 03 0d 0a 0d 0a 20 | 20 28 63 6f 6d 6d 61 6e |.)..... | (comman|
|000040f0| 64 20 22 43 49 52 43 4c | 45 22 20 74 63 65 6e 20 |d "CIRCL|E" tcen |
|00004100| 74 72 61 64 29 ff 20 08 | 3b 44 72 61 77 20 70 61 |trad). .|;Draw pa|
|00004110| 74 68 20 63 75 72 76 65 | 0d 0a 20 20 28 73 65 74 |th curve|.. (set|
|00004120| 71 20 65 31 20 28 65 6e | 74 6c 61 73 74 29 29 0d |q e1 (en|tlast)).|
|00004130| 0a 20 20 28 63 6f 6d 6d | 61 6e 64 20 22 4c 49 4e |. (comm|and "LIN|
|00004140| 45 22 20 63 65 6e 20 61 | 78 20 22 22 29 ff 20 0a |E" cen a|x ""). .|
|00004150| 3b 44 72 61 77 20 61 78 | 69 73 20 6f 66 20 72 65 |;Draw ax|is of re|
|00004160| 76 6f 6c 75 74 69 6f 6e | 0d 0a 20 20 28 73 65 74 |volution|.. (set|
|00004170| 71 20 65 32 20 28 65 6e | 74 6c 61 73 74 29 29 0d |q e2 (en|tlast)).|
|00004180| 0a 20 20 28 63 6f 6d 6d | 61 6e 64 20 22 52 45 56 |. (comm|and "REV|
|00004190| 53 55 52 46 22 20 28 6c | 69 73 74 20 65 31 20 74 |SURF" (l|ist e1 t|
|000041a0| 63 65 6e 29 20 28 6c 69 | 73 74 20 65 32 20 61 78 |cen) (li|st e2 ax|
|000041b0| 29 20 22 22 20 22 22 29 | 20 3b 44 72 61 77 20 74 |) "" "")| ;Draw t|
|000041c0| 6f 72 75 73 0d 0a 20 20 | 28 65 6e 74 64 65 6c 20 |orus.. |(entdel |
|000041d0| 65 31 29 ff 20 0c 0d 0a | 20 20 28 65 6e 74 64 65 |e1). ...| (entde|
|000041e0| 6c 20 65 32 29 0d 0a 20 | 20 28 63 6f 6d 6d 61 6e |l e2).. | (comman|
|000041f0| 64 20 22 55 43 53 22 20 | 22 70 72 65 76 22 29 0d |d "UCS" |"prev").|
|00004200| 0a 29 0d 0a 0d 0a ff 3b | 03 ff 2d 4a 0d 0a ff 3b |.).....;|..-J...;|
|00004210| 03 20 44 72 61 77 20 61 | 20 62 6f 78 20 6f 72 20 |. Draw a| box or |
|00004220| 77 65 64 67 65 0d 0a 0d | 0a 28 64 65 66 75 6e 20 |wedge...|.(defun |
|00004230| 62 6f 78 77 65 64 20 28 | 74 79 70 20 2f 20 70 74 |boxwed (|typ / pt|
|00004240| 31 20 6c 20 77 20 68 31 | 20 68 32 20 61 20 61 6e |1 l w h1| h2 a an|
|00004250| 67 20 70 74 32 20 70 74 | 33 20 70 74 34 20 70 74 |g pt2 pt|3 pt4 pt|
|00004260| 35 20 70 74 36 20 70 74 | 37 20 70 74 38 29 0d 0a |5 pt6 pt|7 pt8)..|
|00004270| 20 20 28 69 6e 69 74 67 | 65 74 20 31 37 29 ff 20 | (initg|et 17). |
|00004280| 18 3b 33 44 20 70 6f 69 | 6e 74 20 63 61 6e 27 74 |.;3D poi|nt can't|
|00004290| 20 62 65 20 6e 75 6c 6c | 0d 0a 20 20 28 73 65 74 | be null|.. (set|
|000042a0| 71 20 70 74 31 20 28 67 | 65 74 70 6f 69 6e 74 20 |q pt1 (g|etpoint |
|000042b0| 28 73 74 72 63 61 74 20 | 22 5c 6e 43 6f 72 6e 65 |(strcat |"\nCorne|
|000042c0| 72 20 6f 66 20 22 74 79 | 70 22 3a 20 22 ff 29 03 |r of "ty|p": ".).|
|000042d0| 0d 0a 20 20 28 73 65 74 | 76 61 72 20 22 4f 52 54 |.. (set|var "ORT|
|000042e0| 48 4f 4d 4f 44 45 22 20 | 31 29 0d 0a 20 20 28 69 |HOMODE" |1).. (i|
|000042f0| 6e 69 74 67 65 74 20 37 | 29 ff 20 19 3b 4c 65 6e |nitget 7|). .;Len|
|00004300| 67 74 68 20 63 61 6e 27 | 74 20 62 65 20 30 2c 20 |gth can'|t be 0, |
|00004310| 6e 65 67 2c 20 6f 72 20 | 6e 75 6c 6c 0d 0a 20 20 |neg, or |null.. |
|00004320| 28 73 65 74 71 20 6c 20 | 28 67 65 74 64 69 73 74 |(setq l |(getdist|
|00004330| 20 70 74 31 20 22 5c 6e | 4c 65 6e 67 74 68 3a 20 | pt1 "\n|Length: |
|00004340| 22 29 29 0d 0a 20 20 28 | 73 65 74 71 20 70 74 33 |")).. (|setq pt3|
|00004350| 20 28 6c 69 73 74 20 28 | 2b 20 28 63 61 72 20 70 | (list (|+ (car p|
|00004360| 74 31 29 20 6c 29 20 28 | 63 61 64 72 20 70 74 31 |t1) l) (|cadr pt1|
|00004370| 29 20 28 63 61 64 64 72 | 20 70 74 31 ff 29 03 0d |) (caddr| pt1.)..|
|00004380| 0a 20 20 28 67 72 64 72 | 61 77 20 70 74 31 20 70 |. (grdr|aw pt1 p|
|00004390| 74 33 20 32 29 0d 0a 20 | 20 28 63 6f 6e 64 20 0d |t3 2).. | (cond .|
|000043a0| 0a ff 20 04 28 28 3d 20 | 74 79 70 20 22 77 65 64 |.. .((= |typ "wed|
|000043b0| 67 65 22 29 0d 0a ff 20 | 06 28 69 6e 69 74 67 65 |ge")... |.(initge|
|000043c0| 74 20 37 29 ff 20 15 3b | 57 69 64 74 68 20 63 61 |t 7). .;|Width ca|
|000043d0| 6e 27 74 20 62 65 20 30 | 2c 20 6e 65 67 2c 20 6f |n't be 0|, neg, o|
|000043e0| 72 20 6e 75 6c 6c 0d 0a | ff 20 06 28 73 65 74 71 |r null..|. .(setq|
|000043f0| 20 77 20 28 67 65 74 64 | 69 73 74 20 70 74 31 20 | w (getd|ist pt1 |
|00004400| 22 5c 6e 57 69 64 74 68 | 3a 20 22 29 29 0d 0a ff |"\nWidth|: "))...|
|00004410| 20 04 29 0d 0a ff 20 04 | 28 74 20 0d 0a ff 20 06 | .)... .|(t ... .|
|00004420| 28 69 6e 69 74 67 65 74 | 20 37 20 22 43 75 62 65 |(initget| 7 "Cube|
|00004430| 22 29 ff 20 0e 3b 57 69 | 64 74 68 20 63 61 6e 27 |"). .;Wi|dth can'|
|00004440| 74 20 62 65 20 30 2c 20 | 6e 65 67 2c 20 6f 72 20 |t be 0, |neg, or |
|00004450| 6e 75 6c 6c 0d 0a ff 20 | 06 28 73 65 74 71 20 77 |null... |.(setq w|
|00004460| 20 28 67 65 74 64 69 73 | 74 20 70 74 31 20 22 5c | (getdis|t pt1 "\|
|00004470| 6e 43 75 62 65 2f 3c 57 | 69 64 74 68 3e 3a 20 22 |nCube/<W|idth>: "|
|00004480| 29 29 0d 0a ff 20 06 28 | 69 66 20 28 3d 20 77 20 |))... .(|if (= w |
|00004490| 22 43 75 62 65 22 29 20 | 0d 0a ff 20 09 28 73 65 |"Cube") |... .(se|
|000044a0| 74 71 20 77 20 6c 20 68 | 31 20 6c 20 68 32 20 6c |tq w l h|1 l h2 l|
|000044b0| 29 0d 0a ff 20 06 29 0d | 0a ff 20 04 29 0d 0a 20 |)... .).|.. .).. |
|000044c0| 20 29 0d 0a 20 20 28 73 | 65 74 71 20 70 74 32 20 | ).. (s|etq pt2 |
|000044d0| 28 6c 69 73 74 20 28 63 | 61 72 20 70 74 31 29 20 |(list (c|ar pt1) |
|000044e0| 28 2b 20 28 63 61 64 72 | 20 70 74 31 29 20 77 29 |(+ (cadr| pt1) w)|
|000044f0| 20 28 63 61 64 64 72 20 | 70 74 31 ff 29 03 0d 0a | (caddr |pt1.)...|
|00004500| 20 20 28 73 65 74 71 20 | 70 74 34 20 28 6c 69 73 | (setq |pt4 (lis|
|00004510| 74 20 28 63 61 72 20 70 | 74 33 29 20 28 2b 20 28 |t (car p|t3) (+ (|
|00004520| 63 61 64 72 20 70 74 33 | 29 20 77 29 20 28 63 61 |cadr pt3|) w) (ca|
|00004530| 64 64 72 20 70 74 33 ff | 29 03 0d 0a 20 20 28 67 |ddr pt3.|)... (g|
|00004540| 72 64 72 61 77 20 70 74 | 33 20 70 74 34 20 32 29 |rdraw pt|3 pt4 2)|
|00004550| 0d 0a 20 20 28 67 72 64 | 72 61 77 20 70 74 34 20 |.. (grd|raw pt4 |
|00004560| 70 74 32 20 32 29 0d 0a | 20 20 28 67 72 64 72 61 |pt2 2)..| (grdra|
|00004570| 77 20 70 74 32 20 70 74 | 31 20 32 29 0d 0a 20 20 |w pt2 pt|1 2).. |
|00004580| 28 73 65 74 76 61 72 20 | 22 4f 52 54 48 4f 4d 4f |(setvar |"ORTHOMO|
|00004590| 44 45 22 20 30 29 0d 0a | 20 20 28 63 6f 6e 64 20 |DE" 0)..| (cond |
|000045a0| 0d 0a ff 20 04 28 28 3d | 20 74 79 70 20 22 77 65 |... .((=| typ "we|
|000045b0| 64 67 65 22 29 0d 0a ff | 20 06 28 69 6e 69 74 67 |dge")...| .(initg|
|000045c0| 65 74 20 37 29 ff 20 15 | 3b 48 65 69 67 68 74 20 |et 7). .|;Height |
|000045d0| 63 61 6e 27 74 20 62 65 | 20 30 2c 20 6e 65 67 2c |can't be| 0, neg,|
|000045e0| 20 6f 72 20 6e 75 6c 6c | 0d 0a ff 20 06 28 73 65 | or null|... .(se|
|000045f0| 74 71 20 68 31 20 28 67 | 65 74 64 69 73 74 20 70 |tq h1 (g|etdist p|
|00004600| 74 31 20 22 5c 6e 48 65 | 69 67 68 74 3a 20 22 29 |t1 "\nHe|ight: ")|
|00004610| 29 0d 0a ff 20 06 28 73 | 65 74 71 20 68 32 20 30 |)... .(s|etq h2 0|
|00004620| 2e 30 29 0d 0a ff 20 04 | 29 0d 0a ff 20 04 28 74 |.0)... .|)... .(t|
|00004630| 20 20 0d 0a ff 20 06 28 | 69 66 20 28 2f 3d 20 68 | ... .(|if (/= h|
|00004640| 31 20 6c 29 20 0d 0a ff | 20 08 28 70 72 6f 67 6e |1 l) ...| .(progn|
|00004650| 0d 0a ff 20 0a 28 69 6e | 69 74 67 65 74 20 37 29 |... .(in|itget 7)|
|00004660| ff 20 11 3b 48 65 69 67 | 68 74 20 63 61 6e 27 74 |. .;Heig|ht can't|
|00004670| 20 62 65 20 30 2c 20 6e | 65 67 2c 20 6f 72 20 6e | be 0, n|eg, or n|
|00004680| 75 6c 6c 0d 0a ff 20 0a | 28 73 65 74 71 20 68 31 |ull... .|(setq h1|
|00004690| 20 28 67 65 74 64 69 73 | 74 20 70 74 31 20 22 5c | (getdis|t pt1 "\|
|000046a0| 6e 48 65 69 67 68 74 3a | 20 22 29 29 0d 0a ff 20 |nHeight:| "))... |
|000046b0| 0a 28 73 65 74 71 20 68 | 32 20 68 31 29 0d 0a ff |.(setq h|2 h1)...|
|000046c0| 20 08 29 0d 0a ff 20 06 | 29 0d 0a ff 20 04 29 0d | .)... .|)... .).|
|000046d0| 0a 20 20 29 0d 0a 0d 0a | 20 20 28 73 65 74 71 20 |. )....| (setq |
|000046e0| 70 74 35 20 28 6c 69 73 | 74 20 28 63 61 72 20 70 |pt5 (lis|t (car p|
|000046f0| 74 33 29 20 28 63 61 64 | 72 20 70 74 33 29 20 28 |t3) (cad|r pt3) (|
|00004700| 2b 20 28 63 61 64 64 72 | 20 70 74 33 29 20 68 32 |+ (caddr| pt3) h2|
|00004710| ff 29 03 0d 0a 20 20 28 | 73 65 74 71 20 70 74 36 |.)... (|setq pt6|
|00004720| 20 28 6c 69 73 74 20 28 | 63 61 72 20 70 74 34 29 | (list (|car pt4)|
|00004730| 20 28 63 61 64 72 20 70 | 74 34 29 20 28 2b 20 28 | (cadr p|t4) (+ (|
|00004740| 63 61 64 64 72 20 70 74 | 34 29 20 68 32 ff 29 03 |caddr pt|4) h2.).|
|00004750| 0d 0a 20 20 28 73 65 74 | 71 20 70 74 37 20 28 6c |.. (set|q pt7 (l|
|00004760| 69 73 74 20 28 63 61 72 | 20 70 74 31 29 20 28 63 |ist (car| pt1) (c|
|00004770| 61 64 72 20 70 74 31 29 | 20 28 2b 20 28 63 61 64 |adr pt1)| (+ (cad|
|00004780| 64 72 20 70 74 31 29 20 | 68 31 ff 29 03 0d 0a 20 |dr pt1) |h1.)... |
|00004790| 20 28 73 65 74 71 20 70 | 74 38 20 28 6c 69 73 74 | (setq p|t8 (list|
|000047a0| 20 28 63 61 72 20 70 74 | 32 29 20 28 63 61 64 72 | (car pt|2) (cadr|
|000047b0| 20 70 74 32 29 20 28 2b | 20 28 63 61 64 64 72 20 | pt2) (+| (caddr |
|000047c0| 70 74 32 29 20 68 31 ff | 29 03 0d 0a 20 20 28 63 |pt2) h1.|)... (c|
|000047d0| 6f 6d 6d 61 6e 64 20 22 | 33 44 4d 45 53 48 22 20 |ommand "|3DMESH" |
|000047e0| 22 36 22 20 22 33 22 20 | 70 74 35 20 70 74 33 20 |"6" "3" |pt5 pt3 |
|000047f0| 70 74 33 20 70 74 37 20 | 70 74 31 20 70 74 31 20 |pt3 pt7 |pt1 pt1 |
|00004800| 70 74 38 20 70 74 32 0d | 0a ff 20 0c 70 74 31 20 |pt8 pt2.|.. .pt1 |
|00004810| 70 74 36 20 70 74 34 20 | 70 74 33 20 70 74 36 20 |pt6 pt4 |pt3 pt6 |
|00004820| 70 74 36 20 70 74 35 20 | 70 74 38 20 70 74 38 20 |pt6 pt5 |pt8 pt8 |
|00004830| 70 74 37 0d 0a 20 20 29 | ff 20 0c 0d 0a 0d 0a 20 |pt7.. )|. ..... |
|00004840| 20 28 73 65 74 71 20 75 | 6e 64 6f 69 74 20 54 29 | (setq u|ndoit T)|
|00004850| 0d 0a 20 20 28 70 72 6f | 6d 70 74 20 22 5c 6e 52 |.. (pro|mpt "\nR|
|00004860| 6f 74 61 74 69 6f 6e 20 | 61 6e 67 6c 65 20 61 62 |otation |angle ab|
|00004870| 6f 75 74 20 5a 20 61 78 | 69 73 3a 20 22 29 0d 0a |out Z ax|is: ")..|
|00004880| 20 20 28 63 6f 6d 6d 61 | 6e 64 20 22 72 6f 74 61 | (comma|nd "rota|
|00004890| 74 65 22 20 28 65 6e 74 | 6c 61 73 74 29 20 22 22 |te" (ent|last) ""|
|000048a0| 20 70 74 31 20 70 61 75 | 73 65 29 0d 0a 29 0d 0a | pt1 pau|se)..)..|
|000048b0| 0d 0a ff 3b 03 ff 2d 4a | 0d 0a ff 3b 03 20 44 72 |...;..-J|...;. Dr|
|000048c0| 61 77 20 61 20 70 79 72 | 61 6d 69 64 0d 0a 0d 0a |aw a pyr|amid....|
|000048d0| 28 64 65 66 75 6e 20 70 | 79 72 61 6d 69 64 20 28 |(defun p|yramid (|
|000048e0| 2f 20 70 74 31 20 70 74 | 32 20 70 74 33 20 70 74 |/ pt1 pt|2 pt3 pt|
|000048f0| 34 20 70 74 35 20 74 70 | 31 20 74 70 32 20 74 70 |4 pt5 tp|1 tp2 tp|
|00004900| 33 20 74 70 34 29 0d 0a | 20 20 28 69 6e 69 74 67 |3 tp4)..| (initg|
|00004910| 65 74 20 31 37 29 ff 20 | 18 3b 33 44 20 70 6f 69 |et 17). |.;3D poi|
|00004920| 6e 74 20 63 61 6e 27 74 | 20 62 65 20 6e 75 6c 6c |nt can't| be null|
|00004930| 0d 0a 20 20 28 73 65 74 | 71 20 70 74 31 20 28 67 |.. (set|q pt1 (g|
|00004940| 65 74 70 6f 69 6e 74 20 | 22 5c 6e 46 69 72 73 74 |etpoint |"\nFirst|
|00004950| 20 62 61 73 65 20 70 6f | 69 6e 74 3a 20 22 29 29 | base po|int: "))|
|00004960| 0d 0a 20 20 28 69 6e 69 | 74 67 65 74 20 31 37 29 |.. (ini|tget 17)|
|00004970| 0d 0a 20 20 28 73 65 74 | 71 20 70 74 32 20 28 67 |.. (set|q pt2 (g|
|00004980| 65 74 70 6f 69 6e 74 20 | 70 74 31 20 22 5c 6e 53 |etpoint |pt1 "\nS|
|00004990| 65 63 6f 6e 64 20 62 61 | 73 65 20 70 6f 69 6e 74 |econd ba|se point|
|000049a0| 3a 20 22 29 29 0d 0a 20 | 20 28 67 72 64 72 61 77 |: ")).. | (grdraw|
|000049b0| 20 70 74 31 20 70 74 32 | 20 32 29 0d 0a 20 20 28 | pt1 pt2| 2).. (|
|000049c0| 69 6e 69 74 67 65 74 20 | 31 37 29 0d 0a 20 20 28 |initget |17).. (|
|000049d0| 73 65 74 71 20 70 74 33 | 20 28 67 65 74 70 6f 69 |setq pt3| (getpoi|
|000049e0| 6e 74 20 70 74 32 20 22 | 5c 6e 54 68 69 72 64 20 |nt pt2 "|\nThird |
|000049f0| 62 61 73 65 20 70 6f 69 | 6e 74 3a 20 22 29 29 20 |base poi|nt: ")) |
|00004a00| 0d 0a 20 20 28 67 72 64 | 72 61 77 20 70 74 32 20 |.. (grd|raw pt2 |
|00004a10| 70 74 33 20 32 29 0d 0a | 20 20 28 69 6e 69 74 67 |pt3 2)..| (initg|
|00004a20| 65 74 20 31 37 20 22 54 | 65 74 72 61 68 65 64 72 |et 17 "T|etrahedr|
|00004a30| 6f 6e 22 29 ff 20 0a 3b | 43 68 6f 6f 73 65 20 33 |on"). .;|Choose 3|
|00004a40| 20 6f 72 20 34 20 70 6f | 69 6e 74 20 62 61 73 65 | or 4 po|int base|
|00004a50| 0d 0a 20 20 28 73 65 74 | 71 20 70 74 34 20 28 67 |.. (set|q pt4 (g|
|00004a60| 65 74 70 6f 69 6e 74 20 | 70 74 33 20 22 5c 6e 54 |etpoint |pt3 "\nT|
|00004a70| 65 74 72 61 68 65 64 72 | 6f 6e 2f 3c 46 6f 75 72 |etrahedr|on/<Four|
|00004a80| 74 68 20 62 61 73 65 20 | 70 6f 69 6e 74 3e 3a 20 |th base |point>: |
|00004a90| 22 29 29 20 0d 0a 20 20 | 28 69 66 20 28 3d 20 70 |")) .. |(if (= p|
|00004aa0| 74 34 20 22 54 65 74 72 | 61 68 65 64 72 6f 6e 22 |t4 "Tetr|ahedron"|
|00004ab0| 29 0d 0a ff 20 04 28 67 | 72 64 72 61 77 20 70 74 |)... .(g|rdraw pt|
|00004ac0| 33 20 70 74 31 20 32 29 | 0d 0a ff 20 04 28 70 72 |3 pt1 2)|... .(pr|
|00004ad0| 6f 67 6e 0d 0a ff 20 06 | 28 67 72 64 72 61 77 20 |ogn... .|(grdraw |
|00004ae0| 70 74 33 20 70 74 34 20 | 32 29 0d 0a ff 20 06 28 |pt3 pt4 |2)... .(|
|00004af0| 67 72 64 72 61 77 20 70 | 74 34 20 70 74 31 20 32 |grdraw p|t4 pt1 2|
|00004b00| 29 0d 0a ff 20 04 29 0d | 0a 20 20 29 0d 0a 20 20 |)... .).|. ).. |
|00004b10| 28 63 6f 6e 64 20 0d 0a | ff 20 04 28 28 3d 20 70 |(cond ..|. .((= p|
|00004b20| 74 34 20 22 54 65 74 72 | 61 68 65 64 72 6f 6e 22 |t4 "Tetr|ahedron"|
|00004b30| 29 ff 20 0c 3b 33 20 70 | 6f 69 6e 74 20 6d 61 79 |). .;3 p|oint may|
|00004b40| 20 68 61 76 65 20 74 6f | 70 20 6f 72 20 61 70 65 | have to|p or ape|
|00004b50| 78 0d 0a ff 20 06 28 69 | 6e 69 74 67 65 74 20 31 |x... .(i|nitget 1|
|00004b60| 37 20 22 54 6f 70 22 29 | 0d 0a ff 20 06 28 73 65 |7 "Top")|... .(se|
|00004b70| 74 71 20 70 74 35 20 28 | 67 65 74 70 6f 69 6e 74 |tq pt5 (|getpoint|
|00004b80| 20 22 5c 6e 54 6f 70 2f | 3c 41 70 65 78 20 70 6f | "\nTop/|<Apex po|
|00004b90| 69 6e 74 3e 3a 20 22 29 | 29 0d 0a ff 20 04 29 0d |int>: ")|)... .).|
|00004ba0| 0a ff 20 04 28 74 ff 20 | 20 3b 34 20 70 6f 69 6e |.. .(t. | ;4 poin|
|00004bb0| 74 20 6d 61 79 20 68 61 | 76 65 20 72 69 64 67 65 |t may ha|ve ridge|
|00004bc0| 2c 20 74 6f 70 2c 20 6f | 72 20 61 70 65 78 0d 0a |, top, o|r apex..|
|00004bd0| ff 20 06 28 69 6e 69 74 | 67 65 74 20 31 37 20 22 |. .(init|get 17 "|
|00004be0| 54 6f 70 20 52 69 64 67 | 65 22 29 20 0d 0a ff 20 |Top Ridg|e") ... |
|00004bf0| 06 28 73 65 74 71 20 70 | 74 35 20 28 67 65 74 70 |.(setq p|t5 (getp|
|00004c00| 6f 69 6e 74 20 22 5c 6e | 52 69 64 67 65 2f 54 6f |oint "\n|Ridge/To|
|00004c10| 70 2f 3c 41 70 65 78 20 | 70 6f 69 6e 74 3e 3a 20 |p/<Apex |point>: |
|00004c20| 22 29 29 0d 0a ff 20 04 | 29 0d 0a 20 20 29 0d 0a |"))... .|).. )..|
|00004c30| 20 20 28 63 6f 6e 64 20 | 0d 0a ff 20 04 28 28 3d | (cond |... .((=|
|00004c40| 20 70 74 35 20 22 54 6f | 70 22 29 ff 20 14 3b 50 | pt5 "To|p"). .;P|
|00004c50| 72 6f 6d 70 74 20 66 6f | 72 20 74 6f 70 20 70 6f |rompt fo|r top po|
|00004c60| 69 6e 74 73 0d 0a ff 20 | 06 28 69 6e 69 74 67 65 |ints... |.(initge|
|00004c70| 74 20 31 37 29 0d 0a ff | 20 06 28 73 65 74 71 20 |t 17)...| .(setq |
|00004c80| 74 70 31 20 28 67 65 74 | 70 6f 69 6e 74 20 70 74 |tp1 (get|point pt|
|00004c90| 31 20 22 5c 6e 46 69 72 | 73 74 20 74 6f 70 20 70 |1 "\nFir|st top p|
|00004ca0| 6f 69 6e 74 3a 20 22 29 | 29 0d 0a ff 20 06 28 67 |oint: ")|)... .(g|
|00004cb0| 72 64 72 61 77 20 70 74 | 31 20 74 70 31 20 32 29 |rdraw pt|1 tp1 2)|
|00004cc0| 0d 0a ff 20 06 28 69 6e | 69 74 67 65 74 20 31 37 |... .(in|itget 17|
|00004cd0| 29 0d 0a ff 20 06 28 73 | 65 74 71 20 74 70 32 20 |)... .(s|etq tp2 |
|00004ce0| 28 67 65 74 70 6f 69 6e | 74 20 70 74 32 20 22 5c |(getpoin|t pt2 "\|
|00004cf0| 6e 53 65 63 6f 6e 64 20 | 74 6f 70 20 70 6f 69 6e |nSecond |top poin|
|00004d00| 74 3a 20 22 29 29 0d 0a | ff 20 06 28 67 72 64 72 |t: "))..|. .(grdr|
|00004d10| 61 77 20 74 70 31 20 74 | 70 32 20 32 29 0d 0a ff |aw tp1 t|p2 2)...|
|00004d20| 20 06 28 67 72 64 72 61 | 77 20 70 74 32 20 74 70 | .(grdra|w pt2 tp|
|00004d30| 32 20 32 29 0d 0a ff 20 | 06 28 69 6e 69 74 67 65 |2 2)... |.(initge|
|00004d40| 74 20 31 37 29 0d 0a ff | 20 06 28 73 65 74 71 20 |t 17)...| .(setq |
|00004d50| 74 70 33 20 28 67 65 74 | 70 6f 69 6e 74 20 70 74 |tp3 (get|point pt|
|00004d60| 33 20 22 5c 6e 54 68 69 | 72 64 20 74 6f 70 20 70 |3 "\nThi|rd top p|
|00004d70| 6f 69 6e 74 3a 20 22 29 | 29 0d 0a ff 20 06 28 67 |oint: ")|)... .(g|
|00004d80| 72 64 72 61 77 20 74 70 | 32 20 74 70 33 20 32 29 |rdraw tp|2 tp3 2)|
|00004d90| 0d 0a ff 20 06 28 67 72 | 64 72 61 77 20 70 74 33 |... .(gr|draw pt3|
|00004da0| 20 74 70 33 20 32 29 0d | 0a ff 20 06 28 69 66 20 | tp3 2).|.. .(if |
|00004db0| 28 2f 3d 20 70 74 34 20 | 22 54 65 74 72 61 68 65 |(/= pt4 |"Tetrahe|
|00004dc0| 64 72 6f 6e 22 29 0d 0a | ff 20 08 28 70 72 6f 67 |dron")..|. .(prog|
|00004dd0| 6e 0d 0a ff 20 0a 28 69 | 6e 69 74 67 65 74 20 31 |n... .(i|nitget 1|
|00004de0| 37 29 0d 0a ff 20 0a 28 | 73 65 74 71 20 74 70 34 |7)... .(|setq tp4|
|00004df0| 20 28 67 65 74 70 6f 69 | 6e 74 20 70 74 34 20 22 | (getpoi|nt pt4 "|
|00004e00| 5c 6e 46 6f 75 72 74 68 | 20 74 6f 70 20 70 6f 69 |\nFourth| top poi|
|00004e10| 6e 74 3a 20 22 29 29 0d | 0a ff 20 0a 28 67 72 64 |nt: ")).|.. .(grd|
|00004e20| 72 61 77 20 74 70 33 20 | 74 70 34 20 32 29 0d 0a |raw tp3 |tp4 2)..|
|00004e30| ff 20 0a 28 67 72 64 72 | 61 77 20 70 74 34 20 74 |. .(grdr|aw pt4 t|
|00004e40| 70 34 20 32 29 0d 0a ff | 20 08 29 0d 0a ff 20 06 |p4 2)...| .)... .|
|00004e50| 29 0d 0a ff 20 04 29 0d | 0a ff 20 04 28 28 3d 20 |)... .).|.. .((= |
|00004e60| 70 74 35 20 22 52 69 64 | 67 65 22 29 ff 20 12 3b |pt5 "Rid|ge"). .;|
|00004e70| 50 72 6f 6d 70 74 20 66 | 6f 72 20 72 69 64 67 65 |Prompt f|or ridge|
|00004e80| 20 70 6f 69 6e 74 73 0d | 0a ff 20 06 28 67 72 64 | points.|.. .(grd|
|00004e90| 72 61 77 20 70 74 34 20 | 70 74 31 20 32 20 2d 31 |raw pt4 |pt1 2 -1|
|00004ea0| 29 0d 0a ff 20 06 28 69 | 6e 69 74 67 65 74 20 31 |)... .(i|nitget 1|
|00004eb0| 37 29 ff 20 10 0d 0a ff | 20 06 28 73 65 74 71 20 |7). ....| .(setq |
|00004ec0| 74 70 31 20 28 67 65 74 | 70 6f 69 6e 74 20 22 5c |tp1 (get|point "\|
|00004ed0| 6e 46 69 72 73 74 20 72 | 69 64 67 65 20 70 6f 69 |nFirst r|idge poi|
|00004ee0| 6e 74 3a 20 22 29 29 0d | 0a ff 20 06 28 67 72 64 |nt: ")).|.. .(grd|
|00004ef0| 72 61 77 20 70 74 34 20 | 70 74 31 20 32 29 0d 0a |raw pt4 |pt1 2)..|
|00004f00| ff 20 06 28 67 72 64 72 | 61 77 20 70 74 31 20 74 |. .(grdr|aw pt1 t|
|00004f10| 70 31 20 32 29 0d 0a ff | 20 06 28 67 72 64 72 61 |p1 2)...| .(grdra|
|00004f20| 77 20 70 74 34 20 74 70 | 31 20 32 29 0d 0a ff 20 |w pt4 tp|1 2)... |
|00004f30| 06 28 67 72 64 72 61 77 | 20 70 74 33 20 70 74 32 |.(grdraw| pt3 pt2|
|00004f40| 20 32 20 2d 31 29 0d 0a | ff 20 06 28 69 6e 69 74 | 2 -1)..|. .(init|
|00004f50| 67 65 74 20 31 37 29 ff | 20 10 0d 0a ff 20 06 28 |get 17).| .... .(|
|00004f60| 73 65 74 71 20 74 70 32 | 20 28 67 65 74 70 6f 69 |setq tp2| (getpoi|
|00004f70| 6e 74 20 74 70 31 20 22 | 5c 6e 53 65 63 6f 6e 64 |nt tp1 "|\nSecond|
|00004f80| 20 72 69 64 67 65 20 70 | 6f 69 6e 74 3a 20 22 29 | ridge p|oint: ")|
|00004f90| 29 0d 0a ff 20 06 28 67 | 72 64 72 61 77 20 70 74 |)... .(g|rdraw pt|
|00004fa0| 32 20 74 70 32 20 32 29 | 0d 0a ff 20 06 28 67 72 |2 tp2 2)|... .(gr|
|00004fb0| 64 72 61 77 20 70 74 33 | 20 74 70 32 20 32 29 0d |draw pt3| tp2 2).|
|00004fc0| 0a ff 20 04 29 0d 0a ff | 20 04 28 74 20 0d 0a ff |.. .)...| .(t ...|
|00004fd0| 20 06 28 73 65 74 71 20 | 74 70 31 20 70 74 35 29 | .(setq |tp1 pt5)|
|00004fe0| ff 20 12 3b 4d 75 73 74 | 20 62 65 20 61 70 65 78 |. .;Must| be apex|
|00004ff0| 0d 0a ff 20 06 28 73 65 | 74 71 20 74 70 32 20 74 |... .(se|tq tp2 t|
|00005000| 70 31 29 0d 0a ff 20 04 | 29 0d 0a 20 20 29 0d 0a |p1)... .|).. )..|
|00005010| 0d 0a 20 20 28 63 6f 6e | 64 20 0d 0a ff 20 04 28 |.. (con|d ... .(|
|00005020| 28 61 6e 64 20 28 2f 3d | 20 70 74 34 20 22 54 65 |(and (/=| pt4 "Te|
|00005030| 74 72 61 68 65 64 72 6f | 6e 22 29 28 2f 3d 20 70 |trahedro|n")(/= p|
|00005040| 74 35 20 22 54 6f 70 22 | 29 29 0d 0a ff 20 06 28 |t5 "Top"|))... .(|
|00005050| 63 6f 6d 6d 61 6e 64 20 | 22 33 44 4d 45 53 48 22 |command |"3DMESH"|
|00005060| 20 22 34 22 20 22 34 22 | 20 74 70 31 20 74 70 31 | "4" "4"| tp1 tp1|
|00005070| 20 74 70 32 20 74 70 32 | 20 74 70 31 20 70 74 34 | tp2 tp2| tp1 pt4|
|00005080| 20 70 74 33 20 74 70 32 | 20 0d 0a ff 20 10 74 70 | pt3 tp2| ... .tp|
|00005090| 31 20 70 74 31 20 70 74 | 32 20 74 70 32 20 74 70 |1 pt1 pt|2 tp2 tp|
|000050a0| 31 20 74 70 31 20 74 70 | 32 20 74 70 32 0d 0a ff |1 tp1 tp|2 tp2...|
|000050b0| 20 06 29 0d 0a ff 20 04 | 29 0d 0a ff 20 04 28 28 | .)... .|)... .((|
|000050c0| 61 6e 64 20 28 2f 3d 20 | 70 74 34 20 22 54 65 74 |and (/= |pt4 "Tet|
|000050d0| 72 61 68 65 64 72 6f 6e | 22 29 28 3d 20 70 74 35 |rahedron|")(= pt5|
|000050e0| 20 22 54 6f 70 22 29 29 | 0d 0a ff 20 06 28 63 6f | "Top"))|... .(co|
|000050f0| 6d 6d 61 6e 64 20 22 33 | 44 4d 45 53 48 22 20 22 |mmand "3|DMESH" "|
|00005100| 35 22 20 22 34 22 20 74 | 70 31 20 74 70 31 20 74 |5" "4" t|p1 tp1 t|
|00005110| 70 32 20 74 70 32 20 74 | 70 34 20 74 70 34 20 74 |p2 tp2 t|p4 tp4 t|
|00005120| 70 33 20 74 70 33 0d 0a | ff 20 10 74 70 34 20 70 |p3 tp3..|. .tp4 p|
|00005130| 74 34 20 70 74 33 20 74 | 70 33 20 74 70 31 20 70 |t4 pt3 t|p3 tp1 p|
|00005140| 74 31 20 70 74 32 20 74 | 70 32 20 74 70 31 20 74 |t1 pt2 t|p2 tp1 t|
|00005150| 70 31 20 74 70 32 20 74 | 70 32 0d 0a ff 20 06 29 |p1 tp2 t|p2... .)|
|00005160| 0d 0a ff 20 04 29 0d 0a | ff 20 04 28 28 61 6e 64 |... .)..|. .((and|
|00005170| 20 28 3d 20 70 74 34 20 | 22 54 65 74 72 61 68 65 | (= pt4 |"Tetrahe|
|00005180| 64 72 6f 6e 22 29 28 2f | 3d 20 70 74 35 20 22 54 |dron")(/|= pt5 "T|
|00005190| 6f 70 22 29 29 0d 0a ff | 20 06 28 63 6f 6d 6d 61 |op"))...| .(comma|
|000051a0| 6e 64 20 22 33 44 4d 45 | 53 48 22 20 22 35 22 20 |nd "3DME|SH" "5" |
|000051b0| 22 32 22 20 74 70 31 20 | 70 74 32 20 70 74 33 20 |"2" tp1 |pt2 pt3 |
|000051c0| 70 74 32 20 70 74 33 20 | 70 74 31 20 74 70 31 20 |pt2 pt3 |pt1 tp1 |
|000051d0| 70 74 31 20 0d 0a ff 20 | 10 74 70 31 20 70 74 32 |pt1 ... |.tp1 pt2|
|000051e0| 0d 0a ff 20 06 29 0d 0a | ff 20 04 29 0d 0a ff 20 |... .)..|. .)... |
|000051f0| 04 28 74 20 0d 0a ff 20 | 06 28 63 6f 6d 6d 61 6e |.(t ... |.(comman|
|00005200| 64 20 22 33 44 4d 45 53 | 48 22 20 22 34 22 20 22 |d "3DMES|H" "4" "|
|00005210| 34 22 20 70 74 33 20 70 | 74 31 20 74 70 31 20 74 |4" pt3 p|t1 tp1 t|
|00005220| 70 33 20 70 74 32 20 70 | 74 32 20 74 70 32 20 74 |p3 pt2 p|t2 tp2 t|
|00005230| 70 32 0d 0a ff 20 10 70 | 74 33 20 70 74 33 20 74 |p2... .p|t3 pt3 t|
|00005240| 70 33 20 74 70 33 20 70 | 74 33 20 70 74 31 20 74 |p3 tp3 p|t3 pt1 t|
|00005250| 70 31 20 74 70 33 0d 0a | ff 20 06 29 0d 0a ff 20 |p1 tp3..|. .)... |
|00005260| 04 29 0d 0a 20 20 29 ff | 20 05 0d 0a 29 0d 0a 0d |.).. ).| ...)...|
|00005270| 0a ff 3b 03 ff 2d 48 0d | 0a ff 3b 03 20 44 72 61 |..;..-H.|..;. Dra|
|00005280| 77 20 61 20 6d 65 73 68 | 0d 0a ff 3b 03 0d 0a ff |w a mesh|...;....|
|00005290| 3b 03 20 47 69 76 65 6e | 20 61 20 73 74 61 72 74 |;. Given| a start|
|000052a0| 69 6e 67 20 61 6e 64 20 | 61 6e 20 65 6e 64 69 6e |ing and |an endin|
|000052b0| 67 20 70 6f 69 6e 74 2c | 20 74 68 69 73 20 66 75 |g point,| this fu|
|000052c0| 6e 63 74 69 6f 6e 20 66 | 69 6e 64 73 20 74 68 65 |nction f|inds the|
|000052d0| 20 6e 65 78 74 0d 0a ff | 3b 03 20 73 65 74 20 6f | next...|;. set o|
|000052e0| 66 20 70 6f 69 6e 74 73 | 20 69 6e 20 74 68 65 20 |f points| in the |
|000052f0| 4e 20 64 69 72 65 63 74 | 69 6f 6e 2e 0d 0a 0d 0a |N direct|ion.....|
|00005300| 28 64 65 66 75 6e 20 6e | 65 78 74 2d 6e 20 28 70 |(defun n|ext-n (p|
|00005310| 74 31 20 70 74 32 20 2f | 20 78 69 6e 63 20 79 69 |t1 pt2 /| xinc yi|
|00005320| 6e 63 20 7a 69 6e 63 20 | 6c 6f 6f 70 20 70 74 29 |nc zinc |loop pt)|
|00005330| 0d 0a 20 20 28 73 65 74 | 71 20 78 69 6e 63 20 28 |.. (set|q xinc (|
|00005340| 2f 20 28 2d 20 28 63 61 | 72 20 70 74 32 29 20 28 |/ (- (ca|r pt2) (|
|00005350| 63 61 72 20 70 74 31 29 | 29 20 28 31 2d 20 6e ff |car pt1)|) (1- n.|
|00005360| 29 03 0d 0a 20 20 28 73 | 65 74 71 20 79 69 6e 63 |)... (s|etq yinc|
|00005370| 20 28 2f 20 28 2d 20 28 | 63 61 64 72 20 70 74 32 | (/ (- (|cadr pt2|
|00005380| 29 20 28 63 61 64 72 20 | 70 74 31 29 29 20 28 31 |) (cadr |pt1)) (1|
|00005390| 2d 20 6e ff 29 03 0d 0a | 20 20 28 73 65 74 71 20 |- n.)...| (setq |
|000053a0| 7a 69 6e 63 20 28 2f 20 | 28 2d 20 28 63 61 64 64 |zinc (/ |(- (cadd|
|000053b0| 72 20 70 74 32 29 20 28 | 63 61 64 64 72 20 70 74 |r pt2) (|caddr pt|
|000053c0| 31 29 29 20 28 31 2d 20 | 6e ff 29 03 0d 0a 20 20 |1)) (1- |n.)... |
|000053d0| 28 73 65 74 71 20 6c 6f | 6f 70 20 28 31 2d 20 6e |(setq lo|op (1- n|
|000053e0| 29 29 0d 0a 20 20 28 73 | 65 74 71 20 70 74 20 70 |)).. (s|etq pt p|
|000053f0| 74 31 29 0d 0a 20 20 28 | 77 68 69 6c 65 20 28 3e |t1).. (|while (>|
|00005400| 20 6c 6f 6f 70 20 30 29 | 0d 0a ff 20 04 28 73 65 | loop 0)|... .(se|
|00005410| 74 71 20 70 74 20 28 6c | 69 73 74 20 28 2b 20 28 |tq pt (l|ist (+ (|
|00005420| 63 61 72 20 70 74 29 20 | 78 69 6e 63 29 20 28 2b |car pt) |xinc) (+|
|00005430| 20 28 63 61 64 72 20 70 | 74 29 20 79 69 6e 63 29 | (cadr p|t) yinc)|
|00005440| 20 28 2b 20 28 63 61 64 | 64 72 20 70 74 29 20 7a | (+ (cad|dr pt) z|
|00005450| 69 6e 63 ff 29 03 0d 0a | ff 20 04 28 63 6f 6d 6d |inc.)...|. .(comm|
|00005460| 61 6e 64 20 70 74 29 0d | 0a ff 20 04 28 73 65 74 |and pt).|.. .(set|
|00005470| 71 20 6c 6f 6f 70 20 28 | 31 2d 20 6c 6f 6f 70 29 |q loop (|1- loop)|
|00005480| 29 0d 0a 20 20 29 0d 0a | 29 0d 0a 0d 0a 3b 20 54 |).. )..|)....; T|
|00005490| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 66 69 6e |his func|tion fin|
|000054a0| 64 73 20 74 68 65 20 6e | 65 78 74 20 70 6f 69 6e |ds the n|ext poin|
|000054b0| 74 20 69 6e 20 74 68 65 | 20 4d 20 64 69 72 65 63 |t in the| M direc|
|000054c0| 74 69 6f 6e 2e 0d 0a 0d | 0a 28 64 65 66 75 6e 20 |tion....|.(defun |
|000054d0| 6e 65 78 74 2d 6d 20 28 | 70 74 31 20 70 74 32 20 |next-m (|pt1 pt2 |
|000054e0| 6c 6f 6f 70 20 2f 20 78 | 69 6e 63 20 79 69 6e 63 |loop / x|inc yinc|
|000054f0| 20 7a 69 6e 63 29 0d 0a | 20 20 28 69 66 20 28 2f | zinc)..| (if (/|
|00005500| 3d 20 6d 20 6c 6f 6f 70 | 29 0d 0a ff 20 04 28 70 |= m loop|)... .(p|
|00005510| 72 6f 67 6e 0d 0a ff 20 | 06 28 73 65 74 71 20 78 |rogn... |.(setq x|
|00005520| 69 6e 63 20 28 2f 20 28 | 2d 20 28 63 61 72 20 70 |inc (/ (|- (car p|
|00005530| 74 32 29 20 28 63 61 72 | 20 70 74 31 29 29 20 28 |t2) (car| pt1)) (|
|00005540| 2d 20 6d 20 6c 6f 6f 70 | ff 29 03 0d 0a ff 20 06 |- m loop|.).... .|
|00005550| 28 73 65 74 71 20 79 69 | 6e 63 20 28 2f 20 28 2d |(setq yi|nc (/ (-|
|00005560| 20 28 63 61 64 72 20 70 | 74 32 29 20 28 63 61 64 | (cadr p|t2) (cad|
|00005570| 72 20 70 74 31 29 29 20 | 28 2d 20 6d 20 6c 6f 6f |r pt1)) |(- m loo|
|00005580| 70 ff 29 03 0d 0a ff 20 | 06 28 73 65 74 71 20 7a |p.).... |.(setq z|
|00005590| 69 6e 63 20 28 2f 20 28 | 2d 20 28 63 61 64 64 72 |inc (/ (|- (caddr|
|000055a0| 20 70 74 32 29 20 28 63 | 61 64 64 72 20 70 74 31 | pt2) (c|addr pt1|
|000055b0| 29 29 20 28 2d 20 6d 20 | 6c 6f 6f 70 ff 29 03 0d |)) (- m |loop.)..|
|000055c0| 0a ff 20 04 29 0d 0a ff | 20 04 28 70 72 6f 67 6e |.. .)...| .(progn|
|000055d0| 0d 0a ff 20 06 28 73 65 | 74 71 20 78 69 6e 63 20 |... .(se|tq xinc |
|000055e0| 30 29 0d 0a ff 20 06 28 | 73 65 74 71 20 79 69 6e |0)... .(|setq yin|
|000055f0| 63 20 30 29 0d 0a ff 20 | 06 28 73 65 74 71 20 7a |c 0)... |.(setq z|
|00005600| 69 6e 63 20 30 29 0d 0a | ff 20 04 29 0d 0a 20 20 |inc 0)..|. .).. |
|00005610| 29 0d 0a 20 20 28 73 65 | 74 71 20 70 74 31 20 28 |).. (se|tq pt1 (|
|00005620| 6c 69 73 74 20 28 2b 20 | 28 63 61 72 20 70 74 31 |list (+ |(car pt1|
|00005630| 29 20 78 69 6e 63 29 20 | 28 2b 20 28 63 61 64 72 |) xinc) |(+ (cadr|
|00005640| 20 70 74 31 29 20 79 69 | 6e 63 29 20 28 2b 20 28 | pt1) yi|nc) (+ (|
|00005650| 63 61 64 64 72 20 70 74 | 31 29 20 7a 69 6e 63 ff |caddr pt|1) zinc.|
|00005660| 29 03 0d 0a 29 0d 0a 0d | 0a 28 64 65 66 75 6e 20 |)...)...|.(defun |
|00005670| 6d 65 73 68 20 28 2f 20 | 63 31 20 63 32 20 63 33 |mesh (/ |c1 c2 c3|
|00005680| 20 63 34 20 6d 20 6e 20 | 6c 6f 6f 70 29 0d 0a 20 | c4 m n |loop).. |
|00005690| 20 28 73 65 74 71 20 6d | 20 30 20 6e 20 30 29 ff | (setq m| 0 n 0).|
|000056a0| 20 16 3b 49 6e 69 74 69 | 61 6c 69 7a 65 20 76 61 | .;Initi|alize va|
|000056b0| 72 69 61 62 6c 65 73 0d | 0a 20 20 28 69 6e 69 74 |riables.|. (init|
|000056c0| 67 65 74 20 31 37 29 ff | 20 15 0d 0a 20 20 28 73 |get 17).| ... (s|
|000056d0| 65 74 71 20 63 31 20 28 | 67 65 74 70 6f 69 6e 74 |etq c1 (|getpoint|
|000056e0| 20 22 5c 6e 46 69 72 73 | 74 20 63 6f 72 6e 65 72 | "\nFirs|t corner|
|000056f0| 3a 20 22 29 29 0d 0a 20 | 20 28 69 6e 69 74 67 65 |: ")).. | (initge|
|00005700| 74 20 31 37 29 ff 20 15 | 0d 0a 20 20 28 73 65 74 |t 17). .|.. (set|
|00005710| 71 20 63 32 20 28 67 65 | 74 70 6f 69 6e 74 20 63 |q c2 (ge|tpoint c|
|00005720| 31 20 22 5c 6e 53 65 63 | 6f 66 17 fe 6e 64 20 63 |1 "\nSec|of..nd c|
|00005730| 6f 72 6e 65 72 3a 20 22 | 29 29 0d 0a 20 20 28 67 |orner: "|)).. (g|
|00005740| 72 64 72 61 77 20 63 31 | 20 63 32 20 32 29 0d 0a |rdraw c1| c2 2)..|
|00005750| 20 20 28 69 6e 69 74 67 | 65 74 20 31 37 29 fe 20 | (initg|et 17). |
|00005760| 15 0d 0a 20 20 28 73 65 | 74 71 20 63 33 20 28 67 |... (se|tq c3 (g|
|00005770| 65 74 70 6f 69 6e 74 20 | 63 32 20 22 5c 6e 54 68 |etpoint |c2 "\nTh|
|00005780| 69 72 64 20 63 6f 72 6e | 65 72 3a 20 22 29 29 0d |ird corn|er: ")).|
|00005790| 0a 20 20 28 67 72 64 72 | 61 77 20 63 32 20 63 33 |. (grdr|aw c2 c3|
|000057a0| 20 32 29 0d 0a 20 20 28 | 69 6e 69 74 67 65 74 20 | 2).. (|initget |
|000057b0| 31 37 29 fe 20 15 0d 0a | 20 20 28 73 65 74 71 20 |17). ...| (setq |
|000057c0| 63 34 20 28 67 65 74 70 | 6f 69 6e 74 20 63 33 20 |c4 (getp|oint c3 |
|000057d0| 22 5c 6e 46 6f 75 72 74 | 68 20 63 6f 72 6e 65 72 |"\nFourt|h corner|
|000057e0| 3a 20 22 29 29 0d 0a 20 | 20 28 67 72 64 72 61 77 |: ")).. | (grdraw|
|000057f0| 20 63 33 20 63 34 20 32 | 29 0d 0a 20 20 28 67 72 | c3 c4 2|).. (gr|
|00005800| 64 72 61 77 20 63 34 20 | 63 31 20 32 20 31 29 0d |draw c4 |c1 2 1).|
|00005810| 0a 20 20 28 77 68 69 6c | 65 20 28 6f 72 20 28 3c |. (whil|e (or (<|
|00005820| 20 6d 20 32 29 20 28 3e | 20 6d 20 32 35 36 29 29 | m 2) (>| m 256))|
|00005830| 0d 0a fe 20 04 28 69 6e | 69 74 67 65 74 20 37 29 |... .(in|itget 7)|
|00005840| fe 20 15 0d 0a fe 20 04 | 28 73 65 74 71 20 6d 20 |. .... .|(setq m |
|00005850| 28 67 65 74 69 6e 74 20 | 22 5c 6e 4d 65 73 68 20 |(getint |"\nMesh |
|00005860| 4d 20 73 69 7a 65 3a 20 | 22 29 29 0d 0a fe 20 04 |M size: |"))... .|
|00005870| 28 69 66 20 28 6f 72 20 | 28 3c 20 6d 20 32 29 20 |(if (or |(< m 2) |
|00005880| 28 3e 20 6d 20 32 35 36 | 29 29 20 0d 0a fe 20 06 |(> m 256|)) ... .|
|00005890| 28 70 72 69 6e 63 20 22 | 5c 6e 56 61 6c 75 65 20 |(princ "|\nValue |
|000058a0| 6d 75 73 74 20 62 65 20 | 62 65 74 77 65 65 6e 20 |must be |between |
|000058b0| 32 20 61 6e 64 20 32 35 | 36 2e 22 29 0d 0a fe 20 |2 and 25|6.")... |
|000058c0| 04 29 0d 0a 20 20 29 0d | 0a 20 20 28 67 72 64 72 |.).. ).|. (grdr|
|000058d0| 61 77 20 63 34 20 63 31 | 20 32 29 0d 0a 20 20 28 |aw c4 c1| 2).. (|
|000058e0| 67 72 64 72 61 77 20 63 | 31 20 63 32 20 32 20 31 |grdraw c|1 c2 2 1|
|000058f0| 29 0d 0a 20 20 28 77 68 | 69 6c 65 20 28 6f 72 20 |).. (wh|ile (or |
|00005900| 28 3c 20 6e 20 32 29 20 | 28 3e 20 6e 20 32 35 36 |(< n 2) |(> n 256|
|00005910| 29 29 0d 0a fe 20 04 28 | 69 6e 69 74 67 65 74 20 |))... .(|initget |
|00005920| 37 29 fe 20 15 0d 0a fe | 20 04 28 73 65 74 71 20 |7). ....| .(setq |
|00005930| 6e 20 28 67 65 74 69 6e | 74 20 22 5c 6e 4d 65 73 |n (getin|t "\nMes|
|00005940| 68 20 4e 20 73 69 7a 65 | 3a 20 22 29 29 0d 0a fe |h N size|: "))...|
|00005950| 20 04 28 69 66 20 28 6f | 72 20 28 3c 20 6e 20 32 | .(if (o|r (< n 2|
|00005960| 29 20 28 3e 20 6e 20 32 | 35 36 29 29 20 0d 0a fe |) (> n 2|56)) ...|
|00005970| 20 06 28 70 72 69 6e 63 | 20 22 5c 6e 56 61 6c 75 | .(princ| "\nValu|
|00005980| 65 20 6d 75 73 74 20 62 | 65 20 62 65 74 77 65 65 |e must b|e betwee|
|00005990| 6e 20 32 20 61 6e 64 20 | 32 35 36 2e 22 29 0d 0a |n 2 and |256.")..|
|000059a0| fe 20 04 29 0d 0a 20 20 | 29 0d 0a 20 20 28 73 65 |. .).. |).. (se|
|000059b0| 74 76 61 72 20 22 6f 73 | 6d 6f 64 65 22 20 30 29 |tvar "os|mode" 0)|
|000059c0| fe 20 11 3b 54 75 72 6e | 20 4f 53 4d 4f 44 45 20 |. .;Turn| OSMODE |
|000059d0| 6f 66 66 0d 0a 20 20 28 | 73 65 74 76 61 72 20 22 |off.. (|setvar "|
|000059e0| 62 6c 69 70 6d 6f 64 65 | 22 20 30 29 fe 20 0f 3b |blipmode|" 0). .;|
|000059f0| 54 75 72 6e 20 42 4c 49 | 50 4d 4f 44 45 20 6f 66 |Turn BLI|PMODE of|
|00005a00| 66 0d 0a 20 20 28 63 6f | 6d 6d 61 6e 64 20 22 33 |f.. (co|mmand "3|
|00005a10| 64 6d 65 73 68 22 20 6d | 20 6e 29 0d 0a 20 20 28 |dmesh" m| n).. (|
|00005a20| 63 6f 6d 6d 61 6e 64 20 | 63 31 29 0d 0a 20 20 28 |command |c1).. (|
|00005a30| 73 65 74 71 20 6c 6f 6f | 70 20 31 29 0d 0a 20 20 |setq loo|p 1).. |
|00005a40| 28 6e 65 78 74 2d 6e 20 | 63 31 20 63 32 29 0d 0a |(next-n |c1 c2)..|
|00005a50| 20 20 28 77 68 69 6c 65 | 20 28 3c 20 6c 6f 6f 70 | (while| (< loop|
|00005a60| 20 6d 29 0d 0a fe 20 04 | 28 73 65 74 71 20 63 31 | m)... .|(setq c1|
|00005a70| 20 28 6e 65 78 74 2d 6d | 20 63 31 20 63 34 20 6c | (next-m| c1 c4 l|
|00005a80| 6f 6f 70 29 29 20 0d 0a | fe 20 04 28 73 65 74 71 |oop)) ..|. .(setq|
|00005a90| 20 63 32 20 28 6e 65 78 | 74 2d 6d 20 63 32 20 63 | c2 (nex|t-m c2 c|
|00005aa0| 33 20 6c 6f 6f 70 29 29 | 0d 0a fe 20 04 28 63 6f |3 loop))|... .(co|
|00005ab0| 6d 6d 61 6e 64 20 63 31 | 29 0d 0a fe 20 04 28 6e |mmand c1|)... .(n|
|00005ac0| 65 78 74 2d 6e 20 63 31 | 20 63 32 29 0d 0a fe 20 |ext-n c1| c2)... |
|00005ad0| 04 28 73 65 74 71 20 6c | 6f 6f 70 20 28 31 2b 20 |.(setq l|oop (1+ |
|00005ae0| 6c 6f 6f 70 29 29 0d 0a | 20 20 29 0d 0a 29 0d 0a |loop))..| )..)..|
|00005af0| 0d 0a fe 3b 03 fe 2d 4a | 0d 0a fe 3b 03 20 49 6e |...;..-J|...;. In|
|00005b00| 74 65 72 6e 61 6c 20 65 | 72 72 6f 72 20 68 61 6e |ternal e|rror han|
|00005b10| 64 6c 65 72 0d 0a 0d 0a | 28 64 65 66 75 6e 20 33 |dler....|(defun 3|
|00005b20| 64 65 72 72 20 28 73 29 | fe 20 16 3b 49 66 20 61 |derr (s)|. .;If a|
|00005b30| 6e 20 65 72 72 6f 72 20 | 28 73 75 63 68 20 61 73 |n error |(such as|
|00005b40| 20 43 54 52 4c 2d 43 29 | 20 6f 63 63 75 72 73 0d | CTRL-C)| occurs.|
|00005b50| 0a fe 20 26 3b 77 68 69 | 6c 65 20 74 68 69 73 20 |.. &;whi|le this |
|00005b60| 63 6f 6d 6d 61 6e 64 20 | 69 73 20 61 63 74 69 76 |command |is activ|
|00005b70| 65 fe 2e 03 0d 0a 20 20 | 28 69 66 20 28 2f 3d 20 |e..... |(if (/= |
|00005b80| 73 20 22 46 75 6e 63 74 | 69 6f 6e 20 63 61 6e 63 |s "Funct|ion canc|
|00005b90| 65 6c 6c 65 64 22 29 0d | 0a fe 20 04 28 70 72 69 |elled").|.. .(pri|
|00005ba0| 6e 63 20 28 73 74 72 63 | 61 74 20 22 5c 6e 45 72 |nc (strc|at "\nEr|
|00005bb0| 72 6f 72 3a 20 22 20 73 | 29 29 0d 0a 20 20 29 0d |ror: " s|)).. ).|
|00005bc0| 0a 20 20 28 69 66 20 75 | 6e 64 6f 69 74 0d 0a fe |. (if u|ndoit...|
|00005bd0| 20 04 28 70 72 6f 67 6e | 0d 0a fe 20 06 28 63 6f | .(progn|... .(co|
|00005be0| 6d 6d 61 6e 64 29 0d 0a | fe 20 06 28 63 6f 6d 6d |mmand)..|. .(comm|
|00005bf0| 61 6e 64 20 22 55 4e 44 | 4f 22 20 22 65 22 29 fe |and "UND|O" "e").|
|00005c00| 20 0c 3b 54 65 72 6d 69 | 6e 61 74 65 20 75 6e 64 | .;Termi|nate und|
|00005c10| 6f 20 67 72 6f 75 70 0d | 0a fe 20 06 28 70 72 69 |o group.|.. .(pri|
|00005c20| 6e 63 20 22 5c 6e 75 6e | 64 6f 69 6e 67 fe 2e 03 |nc "\nun|doing...|
|00005c30| 22 29 20 0d 0a fe 20 06 | 28 63 6f 6d 6d 61 6e 64 |") ... .|(command|
|00005c40| 20 22 55 22 29 fe 20 13 | 3b 45 72 61 73 65 20 70 | "U"). .|;Erase p|
|00005c50| 61 72 74 69 61 6c 6c 79 | 20 64 72 61 77 6e 20 73 |artially| drawn s|
|00005c60| 68 61 70 65 0d 0a fe 20 | 04 29 0d 0a fe 20 04 28 |hape... |.)... .(|
|00005c70| 63 6f 6d 6d 61 6e 64 20 | 22 55 4e 44 4f 22 20 22 |command |"UNDO" "|
|00005c80| 65 22 29 fe 20 0f 0d 0a | 20 20 29 0d 0a 20 20 28 |e"). ...| ).. (|
|00005c90| 6d 6f 64 65 72 29 fe 20 | 1d 3b 52 65 73 74 6f 72 |moder). |.;Restor|
|00005ca0| 65 20 73 61 76 65 64 20 | 6d 6f 64 65 73 0d 0a 20 |e saved |modes.. |
|00005cb0| 20 28 69 66 20 6f 66 6c | 0d 0a fe 20 06 28 73 65 | (if ofl|... .(se|
|00005cc0| 74 76 61 72 20 22 46 4c | 41 54 4c 41 4e 44 22 20 |tvar "FL|ATLAND" |
|00005cd0| 6f 66 6c 29 0d 0a 20 20 | 29 0d 0a 20 20 28 63 6f |ofl).. |).. (co|
|00005ce0| 6d 6d 61 6e 64 20 22 52 | 45 44 52 41 57 41 4c 4c |mmand "R|EDRAWALL|
|00005cf0| 22 29 0d 0a 20 20 28 73 | 65 74 76 61 72 20 22 43 |").. (s|etvar "C|
|00005d00| 4d 44 45 43 48 4f 22 20 | 6f 63 65 29 fe 20 0e 3b |MDECHO" |oce). .;|
|00005d10| 52 65 73 74 6f 72 65 20 | 73 61 76 65 64 20 63 6d |Restore |saved cm|
|00005d20| 64 65 63 68 6f 20 76 61 | 6c 75 65 0d 0a 20 20 28 |decho va|lue.. (|
|00005d30| 73 65 74 71 20 2a 65 72 | 72 6f 72 2a 20 6f 6c 64 |setq *er|ror* old|
|00005d40| 65 72 72 29 fe 20 0f 3b | 52 65 73 74 6f 72 65 20 |err). .;|Restore |
|00005d50| 6f 6c 64 20 2a 65 72 72 | 6f 72 2a 20 68 61 6e 64 |old *err|or* hand|
|00005d60| 6c 65 72 0d 0a 20 20 28 | 70 72 69 6e 63 29 0d 0a |ler.. (|princ)..|
|00005d70| 29 0d 0a 0d 0a fe 3b 03 | fe 2d 4a 0d 0a fe 3b 03 |).....;.|.-J...;.|
|00005d80| 0d 0a fe 3b 03 20 4d 61 | 69 6e 20 70 72 6f 67 72 |...;. Ma|in progr|
|00005d90| 61 6d 2e 20 20 44 72 61 | 77 73 20 33 44 20 6f 62 |am. Dra|ws 3D ob|
|00005da0| 6a 65 63 74 20 73 70 65 | 63 69 66 69 65 64 20 62 |ject spe|cified b|
|00005db0| 79 20 22 6b 65 79 22 20 | 61 72 67 75 6d 65 6e 74 |y "key" |argument|
|00005dc0| 2e 0d 0a fe 3b 03 20 49 | 66 20 22 6b 65 79 22 20 |....;. I|f "key" |
|00005dd0| 69 73 20 6e 69 6c 2c 20 | 61 73 6b 73 20 77 68 69 |is nil, |asks whi|
|00005de0| 63 68 20 6f 62 6a 65 63 | 74 20 69 73 20 64 65 73 |ch objec|t is des|
|00005df0| 69 72 65 64 2e 0d 0a 0d | 0a 28 64 65 66 75 6e 20 |ired....|.(defun |
|00005e00| 33 64 20 28 6b 65 79 20 | 2f 20 6f 6c 64 65 72 72 |3d (key |/ olderr|
|00005e10| 29 0d 0a 20 20 28 69 66 | 20 6d 3a 65 72 72 fe 20 |).. (if| m:err. |
|00005e20| 1b 3b 49 66 20 63 61 6c | 6c 65 64 20 66 72 6f 6d |.;If cal|led from|
|00005e30| 20 74 68 65 20 6d 65 6e | 75 0d 0a fe 20 04 28 73 | the men|u... .(s|
|00005e40| 65 74 71 20 6f 6c 64 65 | 72 72 20 6d 3a 65 72 72 |etq olde|rr m:err|
|00005e50| 20 2a 65 72 72 6f 72 2a | 20 33 64 65 72 72 29 20 | *error*| 3derr) |
|00005e60| 3b 73 61 76 65 20 74 68 | 65 20 6d 65 6e 75 73 20 |;save th|e menus |
|00005e70| 74 72 61 70 70 65 64 20 | 2a 65 72 72 6f 72 2a 0d |trapped |*error*.|
|00005e80| 0a fe 20 04 28 73 65 74 | 71 20 6f 6c 64 65 72 72 |.. .(set|q olderr|
|00005e90| 20 2a 65 72 72 6f 72 2a | 20 2a 65 72 72 6f 72 2a | *error*| *error*|
|00005ea0| 20 33 64 65 72 72 29 0d | 0a 20 20 29 0d 0a 20 20 | 3derr).|. ).. |
|00005eb0| 28 73 65 74 71 20 75 6e | 64 6f 69 74 20 6e 69 6c |(setq un|doit nil|
|00005ec0| 20 6f 66 6c 20 6e 69 6c | 29 0d 0a 20 20 28 73 65 | ofl nil|).. (se|
|00005ed0| 74 71 20 6f 63 65 20 28 | 67 65 74 76 61 72 20 22 |tq oce (|getvar "|
|00005ee0| 63 6d 64 65 63 68 6f 22 | 29 29 0d 0a 20 20 28 73 |cmdecho"|)).. (s|
|00005ef0| 65 74 76 61 72 20 22 43 | 4d 44 45 43 48 4f 22 20 |etvar "C|MDECHO" |
|00005f00| 30 29 0d 0a 20 20 28 6d | 6f 64 65 73 20 27 28 22 |0).. (m|odes '("|
|00005f10| 42 4c 49 50 4d 4f 44 45 | 22 20 22 47 52 49 44 4d |BLIPMODE|" "GRIDM|
|00005f20| 4f 44 45 22 20 22 4f 52 | 54 48 4f 4d 4f 44 45 22 |ODE" "OR|THOMODE"|
|00005f30| 20 22 4f 53 4d 4f 44 45 | 22 0d 0a fe 20 0b 22 53 | "OSMODE|"... ."S|
|00005f40| 55 52 46 54 41 42 31 22 | 20 22 53 55 52 46 54 41 |URFTAB1"| "SURFTA|
|00005f50| 42 32 22 20 22 55 43 53 | 46 4f 4c 4c 4f 57 22 29 |B2" "UCS|FOLLOW")|
|00005f60| 29 0d 0a 20 20 3b 54 65 | 73 74 20 66 6f 72 20 46 |).. ;Te|st for F|
|00005f70| 4c 41 54 4c 41 4e 44 20 | 61 6e 64 20 46 4c 41 54 |LATLAND |and FLAT|
|00005f80| 4c 41 4e 44 27 73 20 76 | 61 6c 75 65 2e 0d 0a 20 |LAND's v|alue... |
|00005f90| 20 28 69 66 20 28 2f 3d | 20 28 73 65 74 71 20 6f | (if (/=| (setq o|
|00005fa0| 66 6c 20 28 67 65 74 76 | 61 72 20 22 46 4c 41 54 |fl (getv|ar "FLAT|
|00005fb0| 4c 41 4e 44 22 29 29 20 | 30 29 20 0d 0a fe 20 04 |LAND")) |0) ... .|
|00005fc0| 28 73 65 74 76 61 72 20 | 22 46 4c 41 54 4c 41 4e |(setvar |"FLATLAN|
|00005fd0| 44 22 20 30 29 fe 20 0d | 3b 53 65 74 20 46 4c 41 |D" 0). .|;Set FLA|
|00005fe0| 54 4c 41 4e 44 20 66 6f | 72 20 64 75 72 61 74 69 |TLAND fo|r durati|
|00005ff0| 6f 6e 0d 0a 20 20 29 fe | 20 23 3b 6f 66 20 74 68 |on.. ).| #;of th|
|00006000| 65 20 66 75 6e 63 74 69 | 6f 6e 2e 0d 0a 20 20 28 |e functi|on... (|
|00006010| 63 6f 6d 6d 61 6e 64 20 | 22 55 4e 44 4f 22 20 22 |command |"UNDO" "|
|00006020| 67 72 6f 75 70 22 29 0d | 0a 20 20 28 73 65 74 76 |group").|. (setv|
|00006030| 61 72 20 22 55 43 53 46 | 4f 4c 4c 4f 57 22 20 30 |ar "UCSF|OLLOW" 0|
|00006040| 29 0d 0a 20 20 28 73 65 | 74 76 61 72 20 22 47 52 |).. (se|tvar "GR|
|00006050| 49 44 4d 4f 44 45 22 20 | 30 29 0d 0a 20 20 28 73 |IDMODE" |0).. (s|
|00006060| 65 74 76 61 72 20 22 4f | 53 4d 4f 44 45 22 20 30 |etvar "O|SMODE" 0|
|00006070| 29 0d 0a 20 20 28 69 66 | 20 28 6e 75 6c 6c 20 6b |).. (if| (null k|
|00006080| 65 79 29 0d 0a fe 20 04 | 28 70 72 6f 67 6e 0d 0a |ey)... .|(progn..|
|00006090| fe 20 06 28 69 6e 69 74 | 67 65 74 20 22 42 6f 78 |. .(init|get "Box|
|000060a0| 20 43 6f 6e 65 20 44 49 | 73 68 20 44 4f 6d 65 20 | Cone DI|sh DOme |
|000060b0| 4d 65 73 68 20 50 79 72 | 61 6d 69 64 20 53 70 68 |Mesh Pyr|amid Sph|
|000060c0| 65 72 65 20 54 6f 72 75 | 73 20 57 65 64 67 65 22 |ere Toru|s Wedge"|
|000060d0| 29 0d 0a fe 20 06 28 73 | 65 74 71 20 6b 65 79 20 |)... .(s|etq key |
|000060e0| 28 67 65 74 6b 77 6f 72 | 64 20 0d 0a fe 20 08 22 |(getkwor|d ... ."|
|000060f0| 5c 6e 42 6f 78 2f 43 6f | 6e 65 2f 44 49 73 68 2f |\nBox/Co|ne/DIsh/|
|00006100| 44 4f 6d 65 2f 4d 65 73 | 68 2f 50 79 72 61 6d 69 |DOme/Mes|h/Pyrami|
|00006110| 64 2f 53 70 68 65 72 65 | 2f 54 6f 72 75 73 2f 57 |d/Sphere|/Torus/W|
|00006120| 65 64 67 65 3a 20 22 29 | 29 0d 0a fe 20 04 29 0d |edge: ")|)... .).|
|00006130| 0a 20 20 29 0d 0a 20 20 | 28 63 6f 6e 64 20 0d 0a |. ).. |(cond ..|
|00006140| fe 20 04 28 28 3d 20 6b | 65 79 20 22 42 6f 78 22 |. .((= k|ey "Box"|
|00006150| 29 fe 20 05 28 62 6f 78 | 77 65 64 20 20 22 62 6f |). .(box|wed "bo|
|00006160| 78 22 29 fe 20 03 29 20 | 0d 0a fe 20 04 28 28 3d |x"). .) |... .((=|
|00006170| 20 6b 65 79 20 22 43 6f | 6e 65 22 29 fe 20 04 28 | key "Co|ne"). .(|
|00006180| 63 6f 6e 65 29 fe 20 0c | 29 0d 0a fe 20 04 28 28 |cone). .|)... .((|
|00006190| 3d 20 6b 65 79 20 22 44 | 49 73 68 22 29 fe 20 04 |= key "D|Ish"). .|
|000061a0| 28 73 70 68 65 72 65 73 | 20 22 64 69 73 68 22 29 |(spheres| "dish")|
|000061b0| 20 20 29 0d 0a fe 20 04 | 28 28 3d 20 6b 65 79 20 | )... .|((= key |
|000061c0| 22 44 4f 6d 65 22 29 fe | 20 04 28 73 70 68 65 72 |"DOme").| .(spher|
|000061d0| 65 73 20 22 64 6f 6d 65 | 22 29 20 20 29 0d 0a fe |es "dome|") )...|
|000061e0| 20 04 28 28 3d 20 6b 65 | 79 20 22 4d 65 73 68 22 | .((= ke|y "Mesh"|
|000061f0| 29 fe 20 04 28 6d 65 73 | 68 29 fe 20 0c 29 0d 0a |). .(mes|h). .)..|
|00006200| fe 20 04 28 28 3d 20 6b | 65 79 20 22 50 79 72 61 |. .((= k|ey "Pyra|
|00006210| 6d 69 64 22 29 20 28 70 | 79 72 61 6d 69 64 29 fe |mid") (p|yramid).|
|00006220| 20 09 29 0d 0a fe 20 04 | 28 28 3d 20 6b 65 79 20 | .)... .|((= key |
|00006230| 22 53 70 68 65 72 65 22 | 29 20 20 28 73 70 68 65 |"Sphere"|) (sphe|
|00006240| 72 65 73 20 22 73 70 68 | 65 72 65 22 29 29 0d 0a |res "sph|ere"))..|
|00006250| fe 20 04 28 28 3d 20 6b | 65 79 20 22 54 6f 72 75 |. .((= k|ey "Toru|
|00006260| 73 22 29 fe 20 03 28 74 | 6f 72 75 73 29 fe 20 0b |s"). .(t|orus). .|
|00006270| 29 0d 0a fe 20 04 28 28 | 3d 20 6b 65 79 20 22 57 |)... .((|= key "W|
|00006280| 65 64 67 65 22 29 fe 20 | 03 28 62 6f 78 77 65 64 |edge"). |.(boxwed|
|00006290| 20 20 22 77 65 64 67 65 | 22 29 20 29 0d 0a fe 20 | "wedge|") )... |
|000062a0| 04 28 54 20 6e 69 6c 29 | fe 20 1b 3b 4e 75 6c 6c |.(T nil)|. .;Null|
|000062b0| 20 72 65 70 6c 79 3f 20 | 20 4a 75 73 74 20 65 78 | reply? | Just ex|
|000062c0| 69 74 0d 0a 20 20 29 0d | 0a 20 20 28 6d 6f 64 65 |it.. ).|. (mode|
|000062d0| 72 29 fe 20 1d 3b 52 65 | 73 74 6f 72 65 20 73 61 |r). .;Re|store sa|
|000062e0| 76 65 64 20 6d 6f 64 65 | 73 0d 0a 20 20 28 69 66 |ved mode|s.. (if|
|000062f0| 20 6f 66 6c 0d 0a fe 20 | 04 28 73 65 74 76 61 72 | ofl... |.(setvar|
|00006300| 20 22 46 4c 41 54 4c 41 | 4e 44 22 20 6f 66 6c 29 | "FLATLA|ND" ofl)|
|00006310| 0d 0a 20 20 29 0d 0a 20 | 20 28 63 6f 6d 6d 61 6e |.. ).. | (comman|
|00006320| 64 20 22 52 45 44 52 41 | 57 41 4c 4c 22 29 0d 0a |d "REDRA|WALL")..|
|00006330| 20 20 28 63 6f 6d 6d 61 | 6e 64 20 22 55 4e 44 4f | (comma|nd "UNDO|
|00006340| 22 20 22 65 22 29 fe 20 | 10 3b 54 65 72 6d 69 6e |" "e"). |.;Termin|
|00006350| 61 74 65 20 75 6e 64 6f | 20 67 72 6f 75 70 0d 0a |ate undo| group..|
|00006360| 20 20 28 73 65 74 76 61 | 72 20 22 43 4d 44 45 43 | (setva|r "CMDEC|
|00006370| 48 4f 22 20 6f 63 65 29 | fe 20 0e 3b 52 65 73 74 |HO" oce)|. .;Rest|
|00006380| 6f 72 65 20 73 61 76 65 | 64 20 63 6d 64 65 63 68 |ore save|d cmdech|
|00006390| 6f 20 76 61 6c 75 65 0d | 0a 20 20 28 73 65 74 71 |o value.|. (setq|
|000063a0| 20 2a 65 72 72 6f 72 2a | 20 6f 6c 64 65 72 72 29 | *error*| olderr)|
|000063b0| fe 20 0f 3b 52 65 73 74 | 6f 72 65 20 6f 6c 64 20 |. .;Rest|ore old |
|000063c0| 2a 65 72 72 6f 72 2a 20 | 68 61 6e 64 6c 65 72 0d |*error* |handler.|
|000063d0| 0a 20 20 28 70 72 69 6e | 63 29 0d 0a 29 0d 0a 0d |. (prin|c)..)...|
|000063e0| 0a fe 3b 03 fe 2d 4a 0d | 0a fe 3b 03 20 43 3a 20 |..;..-J.|..;. C: |
|000063f0| 66 75 6e 63 74 69 6f 6e | 20 64 65 66 69 6e 69 74 |function| definit|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
