/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / elan1v5 / doc / h06.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 63 68 61 70 74 65 72 | 7b 45 58 41 4d 50 4c 45 |\chapter|{EXAMPLE|
|00000010| 53 20 45 4c 41 4e 2d 31 | 20 53 55 42 53 45 54 7d |S ELAN-1| SUBSET}|
|00000020| 0d 0a 0d 0a 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |....The |followin|
|00000030| 67 20 65 78 61 6d 70 6c | 65 73 20 61 72 65 20 69 |g exampl|es are i|
|00000040| 6e 74 65 6e 64 65 64 20 | 74 6f 20 64 65 6d 6f 6e |ntended |to demon|
|00000050| 73 74 72 61 74 65 20 73 | 70 65 63 69 66 69 63 20 |strate s|pecific |
|00000060| 45 6c 61 6e 2d 31 0d 0a | 66 65 61 74 75 72 65 73 |Elan-1..|features|
|00000070| 2c 20 73 75 63 68 20 61 | 73 20 73 74 72 75 63 74 |, such a|s struct|
|00000080| 75 72 65 73 2c 20 70 72 | 6f 63 65 64 75 72 65 73 |ures, pr|ocedures|
|00000090| 2c 20 6f 70 65 72 61 74 | 6f 72 73 20 61 6e 64 0d |, operat|ors and.|
|000000a0| 0a 67 72 61 70 68 69 63 | 73 20 66 61 63 69 6c 69 |.graphic|s facili|
|000000b0| 74 69 65 73 2c 20 61 73 | 20 77 65 6c 6c 20 61 73 |ties, as| well as|
|000000c0| 20 74 68 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 | the def|inition |
|000000d0| 6f 66 0d 0a 61 62 73 74 | 72 61 63 74 20 64 61 74 |of..abst|ract dat|
|000000e0| 61 20 74 79 70 65 73 20 | 62 79 20 6d 65 61 6e 73 |a types |by means|
|000000f0| 20 6f 66 20 61 20 70 61 | 63 6b 65 74 2e 0d 0a 0d | of a pa|cket....|
|00000100| 0a 5c 73 65 63 74 69 6f | 6e 7b 50 6f 69 6e 74 73 |.\sectio|n{Points|
|00000110| 20 61 6e 64 20 6c 69 6e | 65 20 73 65 67 6d 65 6e | and lin|e segmen|
|00000120| 74 73 7d 0d 0a 0d 0a 54 | 68 69 73 20 73 65 63 74 |ts}....T|his sect|
|00000130| 69 6f 6e 20 63 6f 6e 74 | 61 69 6e 73 20 61 20 70 |ion cont|ains a p|
|00000140| 61 63 6b 65 74 20 66 6f | 72 20 64 65 66 69 6e 69 |acket fo|r defini|
|00000150| 6e 67 20 61 6e 64 20 64 | 72 61 77 69 6e 67 20 70 |ng and d|rawing p|
|00000160| 6f 69 6e 74 73 0d 0a 61 | 6e 64 20 6c 69 6e 65 20 |oints..a|nd line |
|00000170| 73 65 67 6d 65 6e 74 73 | 20 69 6e 20 74 68 65 20 |segments| in the |
|00000180| 7b 5c 65 6d 20 52 32 7d | 2e 0d 0a 49 74 20 75 73 |{\em R2}|...It us|
|00000190| 65 73 20 73 74 72 61 69 | 67 68 74 20 69 6e 74 65 |es strai|ght inte|
|000001a0| 67 65 72 2d 67 72 61 70 | 68 69 63 73 20 28 73 65 |ger-grap|hics (se|
|000001b0| 65 20 41 2e 37 29 2e 0d | 0a 49 6e 20 6f 72 64 65 |e A.7)..|.In orde|
|000001c0| 72 20 74 6f 20 72 65 64 | 75 63 65 20 63 6f 6d 70 |r to red|uce comp|
|000001d0| 6c 65 78 69 74 79 20 6e | 6f 20 63 6c 69 70 70 69 |lexity n|o clippi|
|000001e0| 6e 67 20 69 73 20 70 65 | 72 66 6f 72 6d 65 64 2e |ng is pe|rformed.|
|000001f0| 0d 0a 44 72 61 77 69 6e | 67 20 6f 75 74 73 69 64 |..Drawin|g outsid|
|00000200| 65 20 74 68 65 20 28 68 | 61 72 64 77 61 72 65 2d |e the (h|ardware-|
|00000210| 64 65 70 65 6e 64 65 6e | 74 29 20 67 72 61 70 68 |dependen|t) graph|
|00000220| 69 63 73 2d 73 63 72 65 | 65 6e 20 77 69 6c 6c 20 |ics-scre|en will |
|00000230| 72 65 73 75 6c 74 0d 0a | 69 6e 20 64 69 73 74 6f |result..|in disto|
|00000240| 72 74 65 64 20 70 69 63 | 74 75 72 65 73 2e 0d 0a |rted pic|tures...|
|00000250| 54 68 65 20 70 61 63 6b | 65 74 20 73 68 6f 75 6c |The pack|et shoul|
|00000260| 64 20 62 65 20 72 65 61 | 64 20 62 79 20 6d 65 61 |d be rea|d by mea|
|00000270| 6e 73 20 6f 66 20 74 68 | 65 20 70 61 63 6b 65 74 |ns of th|e packet|
|00000280| 2d 63 6f 6d 6d 61 6e 64 | 20 28 7b 5c 74 74 20 70 |-command| ({\tt p|
|00000290| 7d 29 2e 0d 0a 54 68 65 | 20 45 6c 61 6e 20 50 72 |})...The| Elan Pr|
|000002a0| 6f 67 72 61 6d 6d 69 6e | 67 20 45 6e 76 69 72 6f |ogrammin|g Enviro|
|000002b0| 6e 6d 65 6e 74 20 63 61 | 6e 20 72 65 61 64 20 70 |nment ca|n read p|
|000002c0| 61 63 6b 65 74 73 20 62 | 75 74 20 68 61 73 20 6e |ackets b|ut has n|
|000002d0| 6f 20 73 70 65 63 69 61 | 6c 0d 0a 70 72 65 63 6f |o specia|l..preco|
|000002e0| 6d 70 69 6c 61 74 69 6f | 6e 20 66 61 63 69 6c 69 |mpilatio|n facili|
|000002f0| 74 69 65 73 2e 0d 0a 0d | 0a 5c 62 65 67 69 6e 7b |ties....|.\begin{|
|00000300| 65 6c 61 6e 7d 0d 0a 50 | 41 43 4b 45 54 20 70 6f |elan}..P|ACKET po|
|00000310| 69 6e 74 73 20 61 6e 64 | 20 6c 69 6e 65 73 0d 0a |ints and| lines..|
|00000320| 44 45 46 49 4e 45 53 20 | 50 4f 49 4e 54 2c 20 4c |DEFINES |POINT, L|
|00000330| 49 4e 45 2c 0d 0a 20 20 | 20 20 20 20 20 20 70 6f |INE,..  |      po|
|00000340| 69 6e 74 2c 20 6c 69 6e | 65 2c 20 41 53 2c 20 2a |int, lin|e, AS, *|
|00000350| 2c 20 2b 2c 20 3d 2c 0d | 0a 20 20 20 20 20 20 20 |, +, =,.|.       |
|00000360| 20 64 72 61 77 20 70 6f | 69 6e 74 2c 20 64 72 61 | draw po|int, dra|
|00000370| 77 20 6c 69 6e 65 2c 20 | 70 75 74 20 63 6f 6f 72 |w line, |put coor|
|00000380| 64 3a 0d 0a 0d 0a 54 59 | 50 45 20 50 4f 49 4e 54 |d:....TY|PE POINT|
|00000390| 20 3d 20 53 54 52 55 43 | 54 20 28 52 45 41 4c 20 | = STRUC|T (REAL |
|000003a0| 78 2c 20 79 2c 20 54 45 | 58 54 20 6e 61 6d 65 29 |x, y, TE|XT name)|
|000003b0| 3b 0d 0a 0d 0a 54 59 50 | 45 20 4c 49 4e 45 20 3d |;....TYP|E LINE =|
|000003c0| 20 53 54 52 55 43 54 20 | 28 50 4f 49 4e 54 20 61 | STRUCT |(POINT a|
|000003d0| 2c 20 62 2c 20 54 45 58 | 54 20 6e 61 6d 65 29 3b |, b, TEX|T name);|
|000003e0| 20 0d 0a 0d 0a 50 4f 49 | 4e 54 20 50 52 4f 43 20 | ....POI|NT PROC |
|000003f0| 70 6f 69 6e 74 20 28 52 | 45 41 4c 20 78 2c 20 79 |point (R|EAL x, y|
|00000400| 29 3a 0d 0a 20 20 5c 23 | 20 64 65 6e 6f 74 61 74 |):..  \#| denotat|
|00000410| 69 6f 6e 2d 70 72 6f 63 | 65 64 75 72 65 20 66 6f |ion-proc|edure fo|
|00000420| 72 20 61 20 70 6f 69 6e | 74 20 5c 23 0d 0a 20 20 |r a poin|t \#..  |
|00000430| 50 4f 49 4e 54 3a 20 5b | 78 2c 20 79 2c 20 22 22 |POINT: [|x, y, ""|
|00000440| 5d 0d 0a 45 4e 44 50 52 | 4f 43 20 70 6f 69 6e 74 |]..ENDPR|OC point|
|00000450| 3b 0d 0a 0d 0a 50 4f 49 | 4e 54 20 4f 50 20 2a 20 |;....POI|NT OP * |
|00000460| 28 52 45 41 4c 20 66 61 | 63 74 6f 72 2c 20 50 4f |(REAL fa|ctor, PO|
|00000470| 49 4e 54 20 70 6f 69 6e | 74 29 3a 0d 0a 20 20 50 |INT poin|t):..  P|
|00000480| 4f 49 4e 54 3a 20 5b 66 | 61 63 74 6f 72 20 2a 20 |OINT: [f|actor * |
|00000490| 70 6f 69 6e 74 2e 78 2c | 20 66 61 63 74 6f 72 20 |point.x,| factor |
|000004a0| 2a 20 70 6f 69 6e 74 2e | 79 2c 20 22 22 5d 0d 0a |* point.|y, ""]..|
|000004b0| 45 4e 44 4f 50 20 2a 3b | 0d 0a 0d 0a 42 4f 4f 4c |ENDOP *;|....BOOL|
|000004c0| 20 4f 50 20 3d 20 28 50 | 4f 49 4e 54 20 70 6f 69 | OP = (P|OINT poi|
|000004d0| 6e 74 31 2c 20 70 6f 69 | 6e 74 32 29 3a 0d 0a 20 |nt1, poi|nt2):.. |
|000004e0| 20 70 6f 69 6e 74 31 2e | 78 20 3d 20 70 6f 69 6e | point1.|x = poin|
|000004f0| 74 32 2e 78 20 41 4e 44 | 20 70 6f 69 6e 74 31 2e |t2.x AND| point1.|
|00000500| 79 20 3d 20 70 6f 69 6e | 74 32 2e 79 0d 0a 45 4e |y = poin|t2.y..EN|
|00000510| 44 4f 50 20 3d 3b 0d 0a | 0d 0a 4c 49 4e 45 20 50 |DOP =;..|..LINE P|
|00000520| 52 4f 43 20 6c 69 6e 65 | 20 28 50 4f 49 4e 54 20 |ROC line| (POINT |
|00000530| 70 6f 69 6e 74 31 2c 20 | 70 6f 69 6e 74 32 29 3a |point1, |point2):|
|00000540| 0d 0a 20 20 5c 23 20 64 | 65 6e 6f 74 61 74 69 6f |..  \# d|enotatio|
|00000550| 6e 2d 70 72 6f 63 65 64 | 75 72 65 20 66 6f 72 20 |n-proced|ure for |
|00000560| 61 20 6c 69 6e 65 20 5c | 23 0d 0a 20 20 4c 49 4e |a line \|#..  LIN|
|00000570| 45 3a 20 5b 70 6f 69 6e | 74 31 2c 20 70 6f 69 6e |E: [poin|t1, poin|
|00000580| 74 32 2c 20 22 22 5d 0d | 0a 45 4e 44 50 52 4f 43 |t2, ""].|.ENDPROC|
|00000590| 20 6c 69 6e 65 3b 0d 0a | 0d 0a 4c 49 4e 45 20 4f | line;..|..LINE O|
|000005a0| 50 20 2b 20 28 4c 49 4e | 45 20 6c 69 6e 65 31 2c |P + (LIN|E line1,|
|000005b0| 20 6c 69 6e 65 32 29 3a | 0d 0a 20 20 61 73 73 65 | line2):|..  asse|
|000005c0| 72 74 20 28 6c 69 6e 65 | 31 2e 62 20 3d 20 6c 69 |rt (line|1.b = li|
|000005d0| 6e 65 32 2e 61 2c 20 22 | 6c 69 6e 65 73 20 6e 6f |ne2.a, "|lines no|
|000005e0| 74 20 63 6f 6e 6e 65 63 | 74 65 64 22 29 3b 0d 0a |t connec|ted");..|
|000005f0| 20 20 4c 49 4e 45 3a 20 | 5b 6c 69 6e 65 31 2e 61 |  LINE: |[line1.a|
|00000600| 2c 20 6c 69 6e 65 32 2e | 62 2c 20 22 22 5d 0d 0a |, line2.|b, ""]..|
|00000610| 45 4e 44 4f 50 20 2b 3b | 0d 0a 0d 0a 4c 49 4e 45 |ENDOP +;|....LINE|
|00000620| 20 4f 50 20 2a 20 28 52 | 45 41 4c 20 66 61 63 74 | OP * (R|EAL fact|
|00000630| 6f 72 2c 20 4c 49 4e 45 | 20 6c 69 6e 65 29 3a 0d |or, LINE| line):.|
|00000640| 0a 20 20 4c 49 4e 45 3a | 20 5b 66 61 63 74 6f 72 |.  LINE:| [factor|
|00000650| 20 2a 20 6c 69 6e 65 2e | 61 2c 20 66 61 63 74 6f | * line.|a, facto|
|00000660| 72 20 2a 20 6c 69 6e 65 | 2e 62 2c 20 22 22 5d 0d |r * line|.b, ""].|
|00000670| 0a 45 4e 44 4f 50 20 2a | 3b 0d 0a 0d 0a 42 4f 4f |.ENDOP *|;....BOO|
|00000680| 4c 20 4f 50 20 3d 20 28 | 4c 49 4e 45 20 6c 69 6e |L OP = (|LINE lin|
|00000690| 65 31 2c 20 6c 69 6e 65 | 32 29 3a 0d 0a 20 20 6c |e1, line|2):..  l|
|000006a0| 69 6e 65 31 2e 61 20 3d | 20 6c 69 6e 65 32 2e 61 |ine1.a =| line2.a|
|000006b0| 20 41 4e 44 20 6c 69 6e | 65 31 2e 62 20 3d 20 6c | AND lin|e1.b = l|
|000006c0| 69 6e 65 32 2e 62 20 4f | 52 0d 0a 20 20 6c 69 6e |ine2.b O|R..  lin|
|000006d0| 65 31 2e 61 20 3d 20 6c | 69 6e 65 32 2e 62 20 41 |e1.a = l|ine2.b A|
|000006e0| 4e 44 20 6c 69 6e 65 31 | 2e 62 20 3d 20 6c 69 6e |ND line1|.b = lin|
|000006f0| 65 32 2e 61 0d 0a 45 4e | 44 4f 50 20 3d 3b 0d 0a |e2.a..EN|DOP =;..|
|00000700| 0d 0a 50 4f 49 4e 54 20 | 4f 50 20 41 53 20 28 50 |..POINT |OP AS (P|
|00000710| 4f 49 4e 54 20 70 6f 69 | 6e 74 2c 20 54 45 58 54 |OINT poi|nt, TEXT|
|00000720| 20 6e 61 6d 65 29 3a 0d | 0a 20 20 5c 23 20 67 69 | name):.|.  \# gi|
|00000730| 76 69 6e 67 20 61 20 6e | 61 6d 65 20 74 6f 20 61 |ving a n|ame to a|
|00000740| 20 70 6f 69 6e 74 20 5c | 23 0d 0a 20 20 50 4f 49 | point \|#..  POI|
|00000750| 4e 54 3a 20 5b 70 6f 69 | 6e 74 2e 78 2c 20 70 6f |NT: [poi|nt.x, po|
|00000760| 69 6e 74 2e 79 2c 20 6e | 61 6d 65 5d 0d 0a 45 4e |int.y, n|ame]..EN|
|00000770| 44 4f 50 20 41 53 3b 0d | 0a 0d 0a 4c 49 4e 45 20 |DOP AS;.|...LINE |
|00000780| 4f 50 20 41 53 20 28 4c | 49 4e 45 20 6c 69 6e 65 |OP AS (L|INE line|
|00000790| 2c 20 54 45 58 54 20 6e | 61 6d 65 29 3a 0d 0a 20 |, TEXT n|ame):.. |
|000007a0| 20 5c 23 20 67 69 76 69 | 6e 67 20 61 20 6e 61 6d | \# givi|ng a nam|
|000007b0| 65 20 74 6f 20 61 20 6c | 69 6e 65 20 5c 23 0d 0a |e to a l|ine \#..|
|000007c0| 20 20 4c 49 4e 45 3a 20 | 5b 6c 69 6e 65 2e 61 2c |  LINE: |[line.a,|
|000007d0| 20 6c 69 6e 65 2e 62 2c | 20 6e 61 6d 65 5d 0d 0a | line.b,| name]..|
|000007e0| 45 4e 44 4f 50 20 41 53 | 3b 0d 0a 0d 0a 50 52 4f |ENDOP AS|;....PRO|
|000007f0| 43 20 70 75 74 20 63 6f | 6f 72 64 20 28 50 4f 49 |C put co|ord (POI|
|00000800| 4e 54 20 70 6f 69 6e 74 | 29 3a 0d 0a 20 20 5c 23 |NT point|):..  \#|
|00000810| 20 73 68 6f 77 69 6e 67 | 20 74 68 65 20 6e 61 6d | showing| the nam|
|00000820| 65 20 61 6e 64 20 63 6f | 6f 72 64 69 6e 61 74 65 |e and co|ordinate|
|00000830| 73 20 6f 66 20 61 20 70 | 6f 69 6e 74 20 5c 23 0d |s of a p|oint \#.|
|00000840| 0a 20 20 49 46 20 4e 4f | 54 20 28 70 6f 69 6e 74 |.  IF NO|T (point|
|00000850| 2e 6e 61 6d 65 20 3d 20 | 22 22 29 0d 0a 20 20 54 |.name = |"")..  T|
|00000860| 48 45 4e 20 70 75 74 20 | 28 70 6f 69 6e 74 2e 6e |HEN put |(point.n|
|00000870| 61 6d 65 20 2b 20 22 20 | 3d 20 22 29 3b 0d 0a 20 |ame + " |= ");.. |
|00000880| 20 46 49 3b 0d 0a 20 20 | 70 75 74 20 28 22 28 22 | FI;..  |put ("("|
|00000890| 20 2b 20 74 65 78 74 20 | 28 70 6f 69 6e 74 2e 78 | + text |(point.x|
|000008a0| 29 20 2b 20 22 2c 22 20 | 2b 20 74 65 78 74 20 28 |) + "," |+ text (|
|000008b0| 70 6f 69 6e 74 2e 79 29 | 20 2b 20 22 29 22 29 0d |point.y)| + ")").|
|000008c0| 0a 45 4e 44 50 52 4f 43 | 20 70 75 74 20 63 6f 6f |.ENDPROC| put coo|
|000008d0| 72 64 3b 0d 0a 0d 0a 50 | 52 4f 43 20 70 75 74 20 |rd;....P|ROC put |
|000008e0| 63 6f 6f 72 64 20 28 4c | 49 4e 45 20 6c 69 6e 65 |coord (L|INE line|
|000008f0| 29 3a 0d 0a 20 20 5c 23 | 20 73 68 6f 77 69 6e 67 |):..  \#| showing|
|00000900| 20 74 68 65 20 6e 61 6d | 65 20 61 6e 64 20 63 6f | the nam|e and co|
|00000910| 6f 72 64 69 6e 61 74 65 | 73 20 6f 66 20 61 20 6c |ordinate|s of a l|
|00000920| 69 6e 65 20 73 65 67 6d | 65 6e 74 20 5c 23 0d 0a |ine segm|ent \#..|
|00000930| 20 20 49 46 20 4e 4f 54 | 20 28 6c 69 6e 65 2e 6e |  IF NOT| (line.n|
|00000940| 61 6d 65 20 3d 20 22 22 | 29 0d 0a 20 20 54 48 45 |ame = ""|)..  THE|
|00000950| 4e 20 70 75 74 20 28 6c | 69 6e 65 2e 6e 61 6d 65 |N put (l|ine.name|
|00000960| 20 2b 20 22 20 3d 20 22 | 29 3b 0d 0a 20 20 46 49 | + " = "|);..  FI|
|00000970| 3b 0d 0a 20 20 70 75 74 | 20 28 22 28 22 20 2b 20 |;..  put| ("(" + |
|00000980| 74 65 78 74 20 28 6c 69 | 6e 65 2e 61 2e 78 29 20 |text (li|ne.a.x) |
|00000990| 2b 20 22 2c 22 20 2b 20 | 74 65 78 74 20 28 6c 69 |+ "," + |text (li|
|000009a0| 6e 65 2e 61 2e 79 29 20 | 2b 20 22 29 22 29 3b 0d |ne.a.y) |+ ")");.|
|000009b0| 0a 20 20 70 75 74 20 28 | 22 28 22 20 2b 20 74 65 |.  put (|"(" + te|
|000009c0| 78 74 20 28 6c 69 6e 65 | 2e 62 2e 78 29 20 2b 20 |xt (line|.b.x) + |
|000009d0| 22 2c 22 20 2b 20 74 65 | 78 74 20 28 6c 69 6e 65 |"," + te|xt (line|
|000009e0| 2e 62 2e 79 29 20 2b 20 | 22 29 22 29 0d 0a 45 4e |.b.y) + |")")..EN|
|000009f0| 44 50 52 4f 43 20 70 75 | 74 20 63 6f 6f 72 64 3b |DPROC pu|t coord;|
|00000a00| 0d 0a 0d 0a 50 52 4f 43 | 20 64 72 61 77 20 70 6f |....PROC| draw po|
|00000a10| 69 6e 74 20 28 50 4f 49 | 4e 54 20 70 6f 69 6e 74 |int (POI|NT point|
|00000a20| 29 3a 0d 0a 20 20 5c 23 | 20 64 72 61 77 69 6e 67 |):..  \#| drawing|
|00000a30| 20 61 20 70 6f 69 6e 74 | 20 61 6e 64 20 69 74 73 | a point| and its|
|00000a40| 20 6e 61 6d 65 20 6f 6e | 20 74 68 65 20 73 63 72 | name on| the scr|
|00000a50| 65 65 6e 20 5c 23 0d 0a | 20 20 6d 6f 76 65 20 28 |een \#..|  move (|
|00000a60| 69 6e 74 20 28 70 6f 69 | 6e 74 2e 78 29 2c 20 69 |int (poi|nt.x), i|
|00000a70| 6e 74 20 28 70 6f 69 6e | 74 2e 79 20 2f 20 61 73 |nt (poin|t.y / as|
|00000a80| 70 65 63 74 29 29 3b 0d | 0a 20 20 70 6c 6f 74 20 |pect));.|.  plot |
|00000a90| 70 69 78 65 6c 3b 0d 0a | 20 20 70 75 74 20 28 70 |pixel;..|  put (p|
|00000aa0| 6f 69 6e 74 2e 6e 61 6d | 65 29 0d 0a 45 4e 44 50 |oint.nam|e)..ENDP|
|00000ab0| 52 4f 43 20 64 72 61 77 | 20 70 6f 69 6e 74 3b 0d |ROC draw| point;.|
|00000ac0| 0a 0d 0a 50 52 4f 43 20 | 64 72 61 77 20 6c 69 6e |...PROC |draw lin|
|00000ad0| 65 20 28 4c 49 4e 45 20 | 6c 69 6e 65 29 3a 0d 0a |e (LINE |line):..|
|00000ae0| 20 20 5c 23 20 64 72 61 | 77 69 6e 67 20 61 20 6c |  \# dra|wing a l|
|00000af0| 69 6e 65 20 61 6e 64 20 | 69 74 73 20 6e 61 6d 65 |ine and |its name|
|00000b00| 20 6f 6e 20 74 68 65 20 | 73 63 72 65 65 6e 20 5c | on the |screen \|
|00000b10| 23 0d 0a 20 20 49 4e 54 | 20 78 20 6e 61 6d 65 20 |#..  INT| x name |
|00000b20| 3a 3a 20 69 6e 74 20 28 | 28 6c 69 6e 65 2e 61 2e |:: int (|(line.a.|
|00000b30| 78 20 2b 20 6c 69 6e 65 | 2e 62 2e 78 29 20 2f 20 |x + line|.b.x) / |
|00000b40| 32 2e 30 29 2c 0d 0a 20 | 20 20 20 20 20 79 20 6e |2.0),.. |     y n|
|00000b50| 61 6d 65 20 3a 3a 20 69 | 6e 74 20 28 28 6c 69 6e |ame :: i|nt ((lin|
|00000b60| 65 2e 61 2e 79 20 2b 20 | 6c 69 6e 65 2e 62 2e 79 |e.a.y + |line.b.y|
|00000b70| 29 20 2f 20 32 2e 30 20 | 2f 20 61 73 70 65 63 74 |) / 2.0 |/ aspect|
|00000b80| 29 2c 0d 0a 20 20 20 20 | 20 20 6c 65 6e 20 3a 3a |),..    |  len ::|
|00000b90| 20 6c 65 6e 67 74 68 20 | 28 6c 69 6e 65 2e 6e 61 | length |(line.na|
|00000ba0| 6d 65 29 20 2a 20 63 68 | 61 72 61 63 74 65 72 20 |me) * ch|aracter |
|00000bb0| 77 69 64 74 68 3b 0d 0a | 20 20 64 72 61 77 20 70 |width;..|  draw p|
|00000bc0| 6f 69 6e 74 20 28 6c 69 | 6e 65 2e 61 29 3b 0d 0a |oint (li|ne.a);..|
|00000bd0| 20 20 64 72 61 77 20 70 | 6f 69 6e 74 20 28 6c 69 |  draw p|oint (li|
|00000be0| 6e 65 2e 62 29 3b 0d 0a | 20 20 6d 6f 76 65 20 28 |ne.b);..|  move (|
|00000bf0| 78 20 6e 61 6d 65 2c 20 | 79 20 6e 61 6d 65 29 3b |x name, |y name);|
|00000c00| 0d 0a 20 20 70 75 74 20 | 28 6c 69 6e 65 2e 6e 61 |..  put |(line.na|
|00000c10| 6d 65 29 3b 0d 0a 20 20 | 6d 6f 76 65 20 28 78 20 |me);..  |move (x |
|00000c20| 6e 61 6d 65 2c 20 79 20 | 6e 61 6d 65 29 3b 0d 0a |name, y |name);..|
|00000c30| 20 20 64 72 61 77 20 28 | 78 20 6e 61 6d 65 20 2b |  draw (|x name +|
|00000c40| 20 6c 65 6e 2c 20 79 20 | 6e 61 6d 65 29 3b 0d 0a | len, y |name);..|
|00000c50| 20 20 6d 6f 76 65 20 28 | 69 6e 74 20 28 6c 69 6e |  move (|int (lin|
|00000c60| 65 2e 61 2e 78 29 2c 20 | 69 6e 74 20 28 6c 69 6e |e.a.x), |int (lin|
|00000c70| 65 2e 61 2e 79 20 2f 20 | 61 73 70 65 63 74 29 29 |e.a.y / |aspect))|
|00000c80| 3b 0d 0a 20 20 64 72 61 | 77 20 28 69 6e 74 20 28 |;..  dra|w (int (|
|00000c90| 6c 69 6e 65 2e 62 2e 78 | 29 2c 20 69 6e 74 20 28 |line.b.x|), int (|
|00000ca0| 6c 69 6e 65 2e 62 2e 79 | 20 2f 20 61 73 70 65 63 |line.b.y| / aspec|
|00000cb0| 74 29 29 0d 0a 45 4e 44 | 50 52 4f 43 20 64 72 61 |t))..END|PROC dra|
|00000cc0| 77 20 6c 69 6e 65 3b 0d | 0a 0d 0a 45 4e 44 50 41 |w line;.|...ENDPA|
|00000cd0| 43 4b 45 54 20 70 6f 69 | 6e 74 73 20 61 6e 64 20 |CKET poi|nts and |
|00000ce0| 6c 69 6e 65 73 3b 0d 0a | 5c 65 6e 64 7b 65 6c 61 |lines;..|\end{ela|
|00000cf0| 6e 7d 0d 0a 0d 0a 5c 73 | 65 63 74 69 6f 6e 7b 50 |n}....\s|ection{P|
|00000d00| 6f 69 6e 74 73 20 61 6e | 64 20 6c 69 6e 65 20 73 |oints an|d line s|
|00000d10| 65 67 6d 65 6e 74 73 20 | 65 78 61 6d 70 6c 65 7d |egments |example}|
|00000d20| 0d 0a 0d 0a 54 68 69 73 | 20 65 78 61 6d 70 6c 65 |....This| example|
|00000d30| 20 64 65 6d 6f 6e 73 74 | 72 61 74 65 73 20 74 68 | demonst|rates th|
|00000d40| 65 20 75 73 65 20 6f 66 | 20 74 68 65 20 70 72 65 |e use of| the pre|
|00000d50| 76 69 6f 75 73 20 70 61 | 63 6b 65 74 2e 0d 0a 49 |vious pa|cket...I|
|00000d60| 74 20 64 72 61 77 73 20 | 61 20 74 72 69 61 6e 67 |t draws |a triang|
|00000d70| 6c 65 2c 20 61 6e 6e 6f | 74 61 74 69 6e 67 20 69 |le, anno|tating i|
|00000d80| 74 73 20 70 6f 69 6e 74 | 73 20 61 6e 64 20 73 69 |ts point|s and si|
|00000d90| 64 65 73 20 77 69 74 68 | 20 6e 61 6d 65 73 2e 0d |des with| names..|
|00000da0| 0a 4e 6f 74 65 20 74 68 | 61 74 20 74 68 65 20 63 |.Note th|at the c|
|00000db0| 6f 6f 72 64 69 6e 61 74 | 65 73 20 6f 66 20 7b 5c |oordinat|es of {\|
|00000dc0| 74 74 20 61 7d 2c 20 7b | 5c 74 74 20 62 7d 20 61 |tt a}, {|\tt b} a|
|00000dd0| 6e 64 20 7b 5c 74 74 20 | 63 7d 20 73 68 6f 75 6c |nd {\tt |c} shoul|
|00000de0| 64 0d 0a 62 65 20 63 68 | 6f 73 65 6e 20 74 6f 20 |d..be ch|osen to |
|00000df0| 66 69 74 20 74 68 65 20 | 73 63 72 65 65 6e 20 6f |fit the |screen o|
|00000e00| 66 20 74 68 65 20 70 61 | 72 74 69 63 75 6c 61 72 |f the pa|rticular|
|00000e10| 20 63 6f 6d 70 75 74 65 | 72 20 28 73 65 65 20 41 | compute|r (see A|
|00000e20| 2e 37 29 2e 0d 0a 0d 0a | 5c 62 65 67 69 6e 7b 65 |.7).....|\begin{e|
|00000e30| 6c 61 6e 7d 0d 0a 70 72 | 6f 67 72 61 6d 3a 0d 0a |lan}..pr|ogram:..|
|00000e40| 20 20 50 4f 49 4e 54 20 | 61 20 3a 3a 20 70 6f 69 |  POINT |a :: poi|
|00000e50| 6e 74 20 28 31 30 30 2e | 30 2c 20 34 30 30 2e 30 |nt (100.|0, 400.0|
|00000e60| 29 20 41 53 20 22 41 22 | 2c 0d 0a 20 20 20 20 20 |) AS "A"|,..     |
|00000e70| 20 20 20 62 20 3a 3a 20 | 70 6f 69 6e 74 20 28 34 |   b :: |point (4|
|00000e80| 30 30 2e 30 2c 20 31 30 | 30 2e 30 29 20 41 53 20 |00.0, 10|0.0) AS |
|00000e90| 22 42 22 2c 0d 0a 20 20 | 20 20 20 20 20 20 63 20 |"B",..  |      c |
|00000ea0| 3a 3a 20 70 6f 69 6e 74 | 20 28 34 30 30 2e 30 2c |:: point| (400.0,|
|00000eb0| 20 34 30 30 2e 30 29 20 | 41 53 20 22 43 22 3b 0d | 400.0) |AS "C";.|
|00000ec0| 0a 20 20 4c 49 4e 45 20 | 61 62 20 3a 3a 20 6c 69 |.  LINE |ab :: li|
|00000ed0| 6e 65 20 28 61 2c 20 62 | 29 20 41 53 20 22 41 42 |ne (a, b|) AS "AB|
|00000ee0| 22 2c 0d 0a 20 20 20 20 | 20 20 20 62 63 20 3a 3a |",..    |   bc ::|
|00000ef0| 20 6c 69 6e 65 20 28 62 | 2c 20 63 29 20 41 53 20 | line (b|, c) AS |
|00000f00| 22 42 43 22 2c 0d 0a 20 | 20 20 20 20 20 20 63 61 |"BC",.. |      ca|
|00000f10| 20 3a 3a 20 61 62 20 2b | 20 62 63 20 41 53 20 22 | :: ab +| bc AS "|
|00000f20| 41 43 22 3b 0d 0a 20 20 | 65 6e 74 65 72 20 67 72 |AC";..  |enter gr|
|00000f30| 61 70 68 69 63 73 20 6d | 6f 64 65 3b 0d 0a 20 20 |aphics m|ode;..  |
|00000f40| 64 72 61 77 20 6c 69 6e | 65 20 28 61 62 29 3b 0d |draw lin|e (ab);.|
|00000f50| 0a 20 20 64 72 61 77 20 | 6c 69 6e 65 20 28 62 63 |.  draw |line (bc|
|00000f60| 29 3b 0d 0a 20 20 64 72 | 61 77 20 6c 69 6e 65 20 |);..  dr|aw line |
|00000f70| 28 63 61 29 3b 0d 0a 20 | 20 54 45 58 54 20 56 41 |(ca);.. | TEXT VA|
|00000f80| 52 20 77 61 69 74 20 3a | 3a 20 69 6e 63 68 61 72 |R wait :|: inchar|
|00000f90| 3b 0d 0a 20 20 65 6e 74 | 65 72 20 74 65 78 74 20 |;..  ent|er text |
|00000fa0| 6d 6f 64 65 2e 0d 0a 5c | 65 6e 64 7b 65 6c 61 6e |mode...\|end{elan|
|00000fb0| 7d 0d 0a 0d 0a 5c 6e 6f | 69 6e 64 65 6e 74 0d 0a |}....\no|indent..|
|00000fc0| 54 68 65 20 72 65 73 75 | 6c 74 69 6e 67 20 70 69 |The resu|lting pi|
|00000fd0| 63 74 75 72 65 20 6c 6f | 6f 6b 73 20 6c 69 6b 65 |cture lo|oks like|
|00000fe0| 3a 0d 0a 0d 0a 5c 70 69 | 63 28 33 31 35 2c 31 36 |:....\pi|c(315,16|
|00000ff0| 30 29 7b 5c 73 6d 61 6c | 6c 0d 0a 20 20 5c 70 75 |0){\smal|l..  \pu|
|00001000| 74 28 30 31 30 2c 30 31 | 30 29 7b 5c 6c 69 6e 65 |t(010,01|0){\line|
|00001010| 28 31 2c 30 29 7b 31 34 | 30 7d 7d 0d 0a 20 20 5c |(1,0){14|0}}..  \|
|00001020| 70 75 74 28 31 35 30 2c | 30 31 30 29 7b 5c 6c 69 |put(150,|010){\li|
|00001030| 6e 65 28 30 2c 31 29 7b | 31 34 30 7d 7d 0d 0a 20 |ne(0,1){|140}}.. |
|00001040| 20 5c 70 75 74 28 30 31 | 30 2c 30 31 30 29 7b 5c | \put(01|0,010){\|
|00001050| 6c 69 6e 65 28 31 2c 31 | 29 7b 31 34 30 7d 7d 0d |line(1,1|){140}}.|
|00001060| 0a 20 20 25 0d 0a 20 20 | 5c 70 75 74 28 30 31 30 |.  %..  |\put(010|
|00001070| 2c 30 31 30 29 7b 5c 74 | 74 20 41 7d 0d 0a 20 20 |,010){\t|t A}..  |
|00001080| 5c 70 75 74 28 31 35 30 | 2c 30 31 30 29 7b 5c 74 |\put(150|,010){\t|
|00001090| 74 20 42 7d 0d 0a 20 20 | 5c 70 75 74 28 31 35 30 |t B}..  |\put(150|
|000010a0| 2c 31 35 30 29 7b 5c 74 | 74 20 43 7d 0d 0a 20 20 |,150){\t|t C}..  |
|000010b0| 5c 70 75 74 28 30 38 30 | 2c 30 31 30 29 7b 24 5c |\put(080|,010){$\|
|000010c0| 6f 76 65 72 6c 69 6e 65 | 7b 5c 74 74 20 41 43 7d |overline|{\tt AC}|
|000010d0| 24 7d 0d 0a 20 20 5c 70 | 75 74 28 31 35 30 2c 30 |$}..  \p|ut(150,0|
|000010e0| 38 30 29 7b 24 5c 6f 76 | 65 72 6c 69 6e 65 7b 5c |80){$\ov|erline{\|
|000010f0| 74 74 20 42 43 7d 24 7d | 0d 0a 20 20 5c 70 75 74 |tt BC}$}|..  \put|
|00001100| 28 30 38 30 2c 30 38 30 | 29 7b 24 5c 6f 76 65 72 |(080,080|){$\over|
|00001110| 6c 69 6e 65 7b 5c 74 74 | 20 41 42 7d 24 7d 0d 0a |line{\tt| AB}$}..|
|00001120| 7d 0d 0a 0d 0a 5c 73 65 | 63 74 69 6f 6e 7b 49 6e |}....\se|ction{In|
|00001130| 74 65 72 73 65 63 74 69 | 6f 6e 20 61 6e 64 20 70 |tersecti|on and p|
|00001140| 72 6f 6a 65 63 74 69 6f | 6e 7d 0d 0a 0d 0a 54 68 |rojectio|n}....Th|
|00001150| 69 73 20 73 65 63 74 69 | 6f 6e 20 63 6f 6e 74 61 |is secti|on conta|
|00001160| 69 6e 73 20 61 6e 20 61 | 64 64 65 6e 64 75 6d 20 |ins an a|ddendum |
|00001170| 74 6f 20 74 68 65 20 66 | 69 72 73 74 20 70 61 63 |to the f|irst pac|
|00001180| 6b 65 74 2e 0d 0a 50 72 | 6f 63 65 64 75 72 65 73 |ket...Pr|ocedures|
|00001190| 20 66 6f 72 20 66 69 6e | 64 69 6e 67 20 74 68 65 | for fin|ding the|
|000011a0| 20 69 6e 74 65 72 73 65 | 63 74 69 6f 6e 20 6f 66 | interse|ction of|
|000011b0| 20 74 77 6f 20 6c 69 6e | 65 73 20 61 6e 64 0d 0a | two lin|es and..|
|000011c0| 74 68 65 20 70 72 6f 6a | 65 63 74 69 6f 6e 20 6f |the proj|ection o|
|000011d0| 66 20 61 20 70 6f 69 6e | 74 20 6f 6e 20 61 20 6c |f a poin|t on a l|
|000011e0| 69 6e 65 20 61 72 65 20 | 64 65 66 69 6e 65 64 2e |ine are |defined.|
|000011f0| 0d 0a 4e 6f 74 65 20 74 | 68 61 74 20 69 6e 74 65 |..Note t|hat inte|
|00001200| 72 73 65 63 74 69 6f 6e | 20 6f 66 20 70 61 72 61 |rsection| of para|
|00001210| 6c 6c 65 6c 20 6c 69 6e | 65 73 20 77 69 6c 6c 20 |llel lin|es will |
|00001220| 72 65 73 75 6c 74 20 69 | 6e 20 61 6e 20 65 72 72 |result i|n an err|
|00001230| 6f 72 20 6d 65 73 73 61 | 67 65 2e 0d 0a 0d 0a 5c |or messa|ge.....\|
|00001240| 62 65 67 69 6e 7b 65 6c | 61 6e 7d 0d 0a 50 4f 49 |begin{el|an}..POI|
|00001250| 4e 54 20 4f 50 20 58 20 | 28 4c 49 4e 45 20 6c 69 |NT OP X |(LINE li|
|00001260| 6e 65 31 2c 20 6c 69 6e | 65 32 29 3a 0d 0a 20 20 |ne1, lin|e2):..  |
|00001270| 63 61 6c 63 75 6c 61 74 | 65 20 70 61 72 61 6d 65 |calculat|e parame|
|00001280| 74 65 72 73 3b 0d 0a 20 | 20 74 68 65 20 69 6e 74 |ters;.. | the int|
|00001290| 65 72 73 65 63 74 69 6f | 6e 2e 0d 0a 0d 0a 63 61 |ersectio|n.....ca|
|000012a0| 6c 63 75 6c 61 74 65 20 | 70 61 72 61 6d 65 74 65 |lculate |paramete|
|000012b0| 72 73 3a 0d 0a 20 20 52 | 45 41 4c 20 56 41 52 20 |rs:..  R|EAL VAR |
|000012c0| 72 63 31 2c 20 62 31 2c | 20 72 63 32 2c 20 62 32 |rc1, b1,| rc2, b2|
|000012d0| 3b 0d 0a 20 20 42 4f 4f | 4c 20 76 65 72 74 69 63 |;..  BOO|L vertic|
|000012e0| 61 6c 31 20 3a 3d 20 28 | 6c 69 6e 65 31 2e 61 2e |al1 := (|line1.a.|
|000012f0| 78 20 3d 20 6c 69 6e 65 | 31 2e 62 2e 78 29 3b 0d |x = line|1.b.x);.|
|00001300| 0a 20 20 49 46 20 4e 4f | 54 20 76 65 72 74 69 63 |.  IF NO|T vertic|
|00001310| 61 6c 31 0d 0a 20 20 54 | 48 45 4e 0d 0a 20 20 20 |al1..  T|HEN..   |
|00001320| 20 72 63 31 20 3a 3d 20 | 28 6c 69 6e 65 31 2e 61 | rc1 := |(line1.a|
|00001330| 2e 79 20 2d 20 6c 69 6e | 65 31 2e 62 2e 79 29 20 |.y - lin|e1.b.y) |
|00001340| 2f 20 28 6c 69 6e 65 31 | 2e 61 2e 78 20 2d 20 6c |/ (line1|.a.x - l|
|00001350| 69 6e 65 31 2e 62 2e 78 | 29 3b 0d 0a 20 20 20 20 |ine1.b.x|);..    |
|00001360| 62 31 20 3a 3d 20 6c 69 | 6e 65 31 2e 61 2e 79 20 |b1 := li|ne1.a.y |
|00001370| 2d 20 72 63 31 20 2a 20 | 6c 69 6e 65 31 2e 61 2e |- rc1 * |line1.a.|
|00001380| 78 0d 0a 20 20 45 4c 53 | 45 0d 0a 20 20 20 20 72 |x..  ELS|E..    r|
|00001390| 63 31 20 3a 3d 20 6d 61 | 78 72 65 61 6c 0d 0a 20 |c1 := ma|xreal.. |
|000013a0| 20 46 49 3b 0d 0a 20 20 | 42 4f 4f 4c 20 76 65 72 | FI;..  |BOOL ver|
|000013b0| 74 69 63 61 6c 32 20 3a | 3d 20 28 6c 69 6e 65 32 |tical2 :|= (line2|
|000013c0| 2e 61 2e 78 20 3d 20 6c | 69 6e 65 32 2e 62 2e 78 |.a.x = l|ine2.b.x|
|000013d0| 29 3b 0d 0a 20 20 49 46 | 20 4e 4f 54 20 76 65 72 |);..  IF| NOT ver|
|000013e0| 74 69 63 61 6c 32 0d 0a | 20 20 54 48 45 4e 0d 0a |tical2..|  THEN..|
|000013f0| 20 20 20 20 72 63 32 20 | 3a 3d 20 28 6c 69 6e 65 |    rc2 |:= (line|
|00001400| 32 2e 61 2e 79 20 2d 20 | 6c 69 6e 65 32 2e 62 2e |2.a.y - |line2.b.|
|00001410| 79 29 20 2f 20 28 6c 69 | 6e 65 32 2e 61 2e 78 20 |y) / (li|ne2.a.x |
|00001420| 2d 20 6c 69 6e 65 32 2e | 62 2e 78 29 3b 0d 0a 20 |- line2.|b.x);.. |
|00001430| 20 20 20 62 32 20 3a 3d | 20 6c 69 6e 65 32 2e 61 |   b2 :=| line2.a|
|00001440| 2e 79 20 2d 20 72 63 32 | 20 2a 20 6c 69 6e 65 32 |.y - rc2| * line2|
|00001450| 2e 61 2e 78 0d 0a 20 20 | 45 4c 53 45 0d 0a 20 20 |.a.x..  |ELSE..  |
|00001460| 20 20 72 63 32 20 3a 3d | 20 6d 61 78 72 65 61 6c |  rc2 :=| maxreal|
|00001470| 0d 0a 20 20 46 49 3b 0d | 0a 20 20 61 73 73 65 72 |..  FI;.|.  asser|
|00001480| 74 20 28 72 63 31 20 3c | 3e 20 72 63 32 2c 20 22 |t (rc1 <|> rc2, "|
|00001490| 69 6e 74 65 72 73 65 63 | 74 69 6f 6e 20 6f 66 20 |intersec|tion of |
|000014a0| 74 77 6f 20 70 61 72 61 | 6c 6c 65 6c 20 6c 69 6e |two para|llel lin|
|000014b0| 65 73 22 29 2e 0d 0a 0d | 0a 74 68 65 20 69 6e 74 |es")....|.the int|
|000014c0| 65 72 73 65 63 74 69 6f | 6e 3a 0d 0a 20 20 49 46 |ersectio|n:..  IF|
|000014d0| 20 20 20 76 65 72 74 69 | 63 61 6c 31 0d 0a 20 20 |   verti|cal1..  |
|000014e0| 54 48 45 4e 20 50 4f 49 | 4e 54 3a 20 5b 6c 69 6e |THEN POI|NT: [lin|
|000014f0| 65 31 2e 61 2e 78 2c 20 | 72 63 32 20 2a 20 6c 69 |e1.a.x, |rc2 * li|
|00001500| 6e 65 31 2e 61 2e 78 20 | 2b 20 62 32 2c 20 22 22 |ne1.a.x |+ b2, ""|
|00001510| 5d 0d 0a 20 20 45 4c 49 | 46 20 76 65 72 74 69 63 |]..  ELI|F vertic|
|00001520| 61 6c 32 0d 0a 20 20 54 | 48 45 4e 20 50 4f 49 4e |al2..  T|HEN POIN|
|00001530| 54 3a 20 5b 6c 69 6e 65 | 32 2e 61 2e 78 2c 20 72 |T: [line|2.a.x, r|
|00001540| 63 31 20 2a 20 6c 69 6e | 65 32 2e 61 2e 78 20 2b |c1 * lin|e2.a.x +|
|00001550| 20 62 31 2c 20 22 22 5d | 0d 0a 20 20 45 4c 53 45 | b1, ""]|..  ELSE|
|00001560| 20 50 4f 49 4e 54 3a 20 | 5b 28 62 32 20 2d 20 62 | POINT: |[(b2 - b|
|00001570| 31 29 20 2f 20 28 72 63 | 31 20 2d 20 72 63 32 29 |1) / (rc|1 - rc2)|
|00001580| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,..     |        |
|00001590| 20 20 28 72 63 31 20 2a | 20 62 32 20 2d 20 62 31 |  (rc1 *| b2 - b1|
|000015a0| 20 2a 20 72 63 32 29 20 | 2f 20 28 72 63 31 20 2d | * rc2) |/ (rc1 -|
|000015b0| 20 72 63 32 29 2c 0d 0a | 20 20 20 20 20 20 20 20 | rc2),..|        |
|000015c0| 20 20 20 20 20 20 20 22 | 22 5d 0d 0a 20 20 46 49 |       "|"]..  FI|
|000015d0| 2e 0d 0a 0d 0a 45 4e 44 | 4f 50 20 58 3b 0d 0a 0d |.....END|OP X;...|
|000015e0| 0a 50 4f 49 4e 54 20 4f | 50 20 4f 4e 20 28 50 4f |.POINT O|P ON (PO|
|000015f0| 49 4e 54 20 70 6f 69 6e | 74 2c 20 4c 49 4e 45 20 |INT poin|t, LINE |
|00001600| 6c 69 6e 65 29 3a 0d 0a | 20 20 63 61 6c 63 75 6c |line):..|  calcul|
|00001610| 61 74 65 20 70 61 72 61 | 6d 65 74 65 72 73 3b 0d |ate para|meters;.|
|00001620| 0a 20 20 74 68 65 20 70 | 72 6f 6a 65 63 74 69 6f |.  the p|rojectio|
|00001630| 6e 2e 0d 0a 0d 0a 63 61 | 6c 63 75 6c 61 74 65 20 |n.....ca|lculate |
|00001640| 70 61 72 61 6d 65 74 65 | 72 73 3a 0d 0a 20 20 52 |paramete|rs:..  R|
|00001650| 45 41 4c 20 56 41 52 20 | 72 63 31 2c 20 62 31 2c |EAL VAR |rc1, b1,|
|00001660| 20 72 63 32 2c 20 62 32 | 3b 0d 0a 20 20 42 4f 4f | rc2, b2|;..  BOO|
|00001670| 4c 20 76 65 72 74 69 63 | 61 6c 20 3a 3a 20 28 6c |L vertic|al :: (l|
|00001680| 69 6e 65 2e 61 2e 78 20 | 3d 20 6c 69 6e 65 2e 62 |ine.a.x |= line.b|
|00001690| 2e 78 29 2c 0d 0a 20 20 | 20 20 20 20 20 68 6f 72 |.x),..  |     hor|
|000016a0| 69 7a 6f 6e 74 61 6c 20 | 3a 3a 20 28 6c 69 6e 65 |izontal |:: (line|
|000016b0| 2e 61 2e 79 20 3d 20 6c | 69 6e 65 2e 62 2e 79 29 |.a.y = l|ine.b.y)|
|000016c0| 3b 0d 0a 20 20 49 46 20 | 4e 4f 54 20 28 68 6f 72 |;..  IF |NOT (hor|
|000016d0| 69 7a 6f 6e 74 61 6c 20 | 4f 52 20 76 65 72 74 69 |izontal |OR verti|
|000016e0| 63 61 6c 29 0d 0a 20 20 | 54 48 45 4e 0d 0a 20 20 |cal)..  |THEN..  |
|000016f0| 20 20 72 63 31 20 3a 3d | 20 28 6c 69 6e 65 2e 61 |  rc1 :=| (line.a|
|00001700| 2e 79 20 2d 20 6c 69 6e | 65 2e 62 2e 79 29 20 2f |.y - lin|e.b.y) /|
|00001710| 20 28 6c 69 6e 65 2e 61 | 2e 78 20 2d 20 6c 69 6e | (line.a|.x - lin|
|00001720| 65 2e 62 2e 78 29 3b 0d | 0a 20 20 20 20 62 31 20 |e.b.x);.|.    b1 |
|00001730| 3a 3d 20 6c 69 6e 65 2e | 61 2e 79 20 2d 20 72 63 |:= line.|a.y - rc|
|00001740| 31 20 2a 20 6c 69 6e 65 | 2e 61 2e 78 3b 0d 0a 20 |1 * line|.a.x;.. |
|00001750| 20 20 20 72 63 32 20 3a | 3d 20 2d 31 2e 30 20 2f |   rc2 :|= -1.0 /|
|00001760| 20 72 63 31 3b 0d 0a 20 | 20 20 20 62 32 20 3a 3d | rc1;.. |   b2 :=|
|00001770| 20 70 6f 69 6e 74 2e 79 | 20 2d 20 72 63 32 20 2a | point.y| - rc2 *|
|00001780| 20 70 6f 69 6e 74 2e 78 | 3b 0d 0a 20 20 46 49 2e | point.x|;..  FI.|
|00001790| 0d 0a 0d 0a 74 68 65 20 | 70 72 6f 6a 65 63 74 69 |....the |projecti|
|000017a0| 6f 6e 3a 0d 0a 20 20 49 | 46 20 20 20 68 6f 72 69 |on:..  I|F   hori|
|000017b0| 7a 6f 6e 74 61 6c 0d 0a | 20 20 54 48 45 4e 20 50 |zontal..|  THEN P|
|000017c0| 4f 49 4e 54 3a 20 5b 70 | 6f 69 6e 74 2e 78 2c 20 |OINT: [p|oint.x, |
|000017d0| 6c 69 6e 65 2e 61 2e 79 | 2c 20 22 22 5d 0d 0a 20 |line.a.y|, ""].. |
|000017e0| 20 45 4c 49 46 20 76 65 | 72 74 69 63 61 6c 0d 0a | ELIF ve|rtical..|
|000017f0| 20 20 54 48 45 4e 20 50 | 4f 49 4e 54 3a 20 5b 6c |  THEN P|OINT: [l|
|00001800| 69 6e 65 2e 61 2e 78 2c | 20 70 6f 69 6e 74 2e 79 |ine.a.x,| point.y|
|00001810| 2c 20 22 22 5d 0d 0a 20 | 20 45 4c 53 45 20 50 4f |, ""].. | ELSE PO|
|00001820| 49 4e 54 3a 20 5b 28 62 | 32 20 2d 20 62 31 29 20 |INT: [(b|2 - b1) |
|00001830| 2f 20 28 72 63 31 20 2d | 20 72 63 32 29 2c 0d 0a |/ (rc1 -| rc2),..|
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001850| 72 63 31 20 2a 20 62 32 | 20 2d 20 62 31 20 2a 20 |rc1 * b2| - b1 * |
|00001860| 72 63 32 29 20 2f 20 28 | 72 63 31 20 2d 20 72 63 |rc2) / (|rc1 - rc|
|00001870| 32 29 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |2),..   |        |
|00001880| 20 20 20 20 22 22 5d 0d | 0a 20 20 46 49 2e 0d 0a |    ""].|.  FI...|
|00001890| 0d 0a 45 4e 44 4f 50 20 | 4f 4e 3b 0d 0a 5c 65 6e |..ENDOP |ON;..\en|
|000018a0| 64 7b 65 6c 61 6e 7d 0d | 0a 0d 0a 5c 73 65 63 74 |d{elan}.|...\sect|
|000018b0| 69 6f 6e 7b 49 6e 74 65 | 72 73 65 63 74 69 6f 6e |ion{Inte|rsection|
|000018c0| 20 61 6e 64 20 70 72 6f | 6a 65 63 74 69 6f 6e 20 | and pro|jection |
|000018d0| 65 78 61 6d 70 6c 65 7d | 0d 0a 0d 0a 54 68 69 73 |example}|....This|
|000018e0| 20 65 78 61 6d 70 6c 65 | 20 64 65 6d 6f 6e 73 74 | example| demonst|
|000018f0| 72 61 74 65 73 20 74 68 | 65 20 75 73 65 20 6f 66 |rates th|e use of|
|00001900| 20 74 68 65 20 7b 5c 74 | 74 20 58 7d 20 28 69 6e | the {\t|t X} (in|
|00001910| 74 65 72 73 65 63 74 29 | 20 61 6e 64 0d 0a 7b 5c |tersect)| and..{\|
|00001920| 74 74 20 4f 4e 7d 20 28 | 70 72 6f 6a 65 63 74 69 |tt ON} (|projecti|
|00001930| 6f 6e 29 20 6f 70 65 72 | 61 74 6f 72 73 2e 0d 0a |on) oper|ators...|
|00001940| 41 20 74 72 69 61 6e 67 | 6c 65 20 77 69 74 68 20 |A triang|le with |
|00001950| 69 74 73 20 70 72 6f 6a | 65 63 74 69 6f 6e 20 6c |its proj|ection l|
|00001960| 69 6e 65 73 20 69 73 20 | 64 72 61 77 6e 2c 20 73 |ines is |drawn, s|
|00001970| 68 6f 77 69 6e 67 20 74 | 68 65 0d 0a 69 6e 74 65 |howing t|he..inte|
|00001980| 72 73 65 63 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |rsection| of the |
|00001990| 74 68 72 65 65 20 70 72 | 6f 6a 65 63 74 69 6f 6e |three pr|ojection|
|000019a0| 20 6c 69 6e 65 73 20 74 | 72 6f 75 67 68 20 6f 6e | lines t|rough on|
|000019b0| 65 20 70 6f 69 6e 74 2e | 0d 0a 41 67 61 69 6e 2c |e point.|..Again,|
|000019c0| 20 74 68 65 20 63 6f 6f | 72 64 69 6e 61 74 65 73 | the coo|rdinates|
|000019d0| 20 6f 66 20 7b 5c 74 74 | 20 61 7d 2c 20 7b 5c 74 | of {\tt| a}, {\t|
|000019e0| 74 20 62 7d 20 61 6e 64 | 20 7b 5c 74 74 20 63 7d |t b} and| {\tt c}|
|000019f0| 20 73 68 6f 75 6c 64 0d | 0a 62 65 20 6a 75 64 69 | should.|.be judi|
|00001a00| 63 69 6f 75 73 6c 79 20 | 63 68 6f 73 65 6e 20 74 |ciously |chosen t|
|00001a10| 6f 20 66 69 74 20 74 68 | 65 20 73 63 72 65 65 6e |o fit th|e screen|
|00001a20| 2e 0d 0a 0d 0a 5c 62 65 | 67 69 6e 7b 65 6c 61 6e |.....\be|gin{elan|
|00001a30| 7d 0d 0a 70 72 6f 67 72 | 61 6d 3a 0d 0a 20 20 50 |}..progr|am:..  P|
|00001a40| 4f 49 4e 54 20 61 20 3a | 3a 20 70 6f 69 6e 74 20 |OINT a :|: point |
|00001a50| 28 31 30 30 2e 30 2c 20 | 33 37 30 2e 30 29 20 41 |(100.0, |370.0) A|
|00001a60| 53 20 22 41 22 2c 0d 0a | 20 20 20 20 20 20 20 20 |S "A",..|        |
|00001a70| 62 20 3a 3a 20 70 6f 69 | 6e 74 20 28 34 36 30 2e |b :: poi|nt (460.|
|00001a80| 30 2c 20 33 37 30 2e 30 | 29 20 41 53 20 22 42 22 |0, 370.0|) AS "B"|
|00001a90| 2c 0d 0a 20 20 20 20 20 | 20 20 20 63 20 3a 3a 20 |,..     |   c :: |
|00001aa0| 70 6f 69 6e 74 20 28 33 | 37 30 2e 30 2c 20 31 30 |point (3|70.0, 10|
|00001ab0| 30 2e 30 29 20 41 53 20 | 22 43 22 3b 0d 0a 20 20 |0.0) AS |"C";..  |
|00001ac0| 4c 49 4e 45 20 61 62 20 | 3a 3a 20 6c 69 6e 65 20 |LINE ab |:: line |
|00001ad0| 28 61 2c 20 62 29 20 41 | 53 20 22 41 42 22 2c 0d |(a, b) A|S "AB",.|
|00001ae0| 0a 20 20 20 20 20 20 20 | 62 63 20 3a 3a 20 6c 69 |.       |bc :: li|
|00001af0| 6e 65 20 28 62 2c 20 63 | 29 20 41 53 20 22 42 43 |ne (b, c|) AS "BC|
|00001b00| 22 2c 0d 0a 20 20 20 20 | 20 20 20 63 61 20 3a 3a |",..    |   ca ::|
|00001b10| 20 6c 69 6e 65 20 28 63 | 2c 20 61 29 20 41 53 20 | line (c|, a) AS |
|00001b20| 22 41 43 22 3b 0d 0a 20 | 20 50 4f 49 4e 54 20 61 |"AC";.. | POINT a|
|00001b30| 20 6f 6e 20 62 63 20 3a | 3a 20 28 61 20 4f 4e 20 | on bc :|: (a ON |
|00001b40| 62 63 29 20 41 53 20 22 | 50 41 22 2c 0d 0a 20 20 |bc) AS "|PA",..  |
|00001b50| 20 20 20 20 20 20 62 20 | 6f 6e 20 63 61 20 3a 3a |      b |on ca ::|
|00001b60| 20 28 62 20 4f 4e 20 63 | 61 29 20 41 53 20 22 50 | (b ON c|a) AS "P|
|00001b70| 42 22 2c 0d 0a 20 20 20 | 20 20 20 20 20 63 20 6f |B",..   |     c o|
|00001b80| 6e 20 61 62 20 3a 3a 20 | 28 63 20 4f 4e 20 61 62 |n ab :: |(c ON ab|
|00001b90| 29 20 41 53 20 22 50 43 | 22 3b 0d 0a 20 20 50 4f |) AS "PC|";..  PO|
|00001ba0| 49 4e 54 20 78 20 3a 3a | 20 28 6c 69 6e 65 20 28 |INT x ::| (line (|
|00001bb0| 63 2c 20 63 20 6f 6e 20 | 61 62 29 20 58 20 6c 69 |c, c on |ab) X li|
|00001bc0| 6e 65 20 28 61 2c 20 61 | 20 6f 6e 20 62 63 29 29 |ne (a, a| on bc))|
|00001bd0| 20 41 53 20 22 58 22 3b | 0d 0a 20 20 65 6e 74 65 | AS "X";|..  ente|
|00001be0| 72 20 67 72 61 70 68 69 | 63 73 20 6d 6f 64 65 3b |r graphi|cs mode;|
|00001bf0| 0d 0a 20 20 64 72 61 77 | 20 6c 69 6e 65 20 28 61 |..  draw| line (a|
|00001c00| 62 29 3b 0d 0a 20 20 64 | 72 61 77 20 6c 69 6e 65 |b);..  d|raw line|
|00001c10| 20 28 62 63 29 3b 0d 0a | 20 20 64 72 61 77 20 6c | (bc);..|  draw l|
|00001c20| 69 6e 65 20 28 63 61 29 | 3b 0d 0a 20 20 64 72 61 |ine (ca)|;..  dra|
|00001c30| 77 20 6c 69 6e 65 20 28 | 6c 69 6e 65 20 28 61 2c |w line (|line (a,|
|00001c40| 20 61 20 6f 6e 20 62 63 | 29 29 3b 0d 0a 20 20 64 | a on bc|));..  d|
|00001c50| 72 61 77 20 6c 69 6e 65 | 20 28 6c 69 6e 65 20 28 |raw line| (line (|
|00001c60| 62 2c 20 62 20 6f 6e 20 | 63 61 29 29 3b 0d 0a 20 |b, b on |ca));.. |
|00001c70| 20 64 72 61 77 20 6c 69 | 6e 65 20 28 6c 69 6e 65 | draw li|ne (line|
|00001c80| 20 28 63 2c 20 63 20 6f | 6e 20 61 62 29 29 3b 0d | (c, c o|n ab));.|
|00001c90| 0a 20 20 64 72 61 77 20 | 70 6f 69 6e 74 20 28 78 |.  draw |point (x|
|00001ca0| 29 3b 0d 0a 20 20 6d 6f | 76 65 20 28 31 2c 20 67 |);..  mo|ve (1, g|
|00001cb0| 72 61 70 68 69 63 73 20 | 79 20 6c 69 6d 69 74 20 |raphics |y limit |
|00001cc0| 2d 20 32 20 2a 20 6c 69 | 6e 65 20 68 65 69 67 68 |- 2 * li|ne heigh|
|00001cd0| 74 29 3b 0d 0a 20 20 70 | 75 74 20 63 6f 6f 72 64 |t);..  p|ut coord|
|00001ce0| 20 28 78 29 3b 0d 0a 20 | 20 54 45 58 54 20 56 41 | (x);.. | TEXT VA|
|00001cf0| 52 20 77 61 69 74 20 3a | 3a 20 69 6e 63 68 61 72 |R wait :|: inchar|
|00001d00| 3b 0d 0a 20 20 65 6e 74 | 65 72 20 74 65 78 74 20 |;..  ent|er text |
|00001d10| 6d 6f 64 65 2e 0d 0a 5c | 65 6e 64 7b 65 6c 61 6e |mode...\|end{elan|
|00001d20| 7d 0d 0a 0d 0a 5c 6e 6f | 69 6e 64 65 6e 74 0d 0a |}....\no|indent..|
|00001d30| 54 68 65 20 72 65 73 75 | 6c 74 69 6e 67 20 70 69 |The resu|lting pi|
|00001d40| 63 74 75 72 65 20 6c 6f | 6f 6b 73 20 6c 69 6b 65 |cture lo|oks like|
|00001d50| 3a 0d 0a 0d 0a 5c 70 69 | 63 28 33 31 35 2c 32 32 |:....\pi|c(315,22|
|00001d60| 30 29 7b 5c 73 6d 61 6c | 6c 5c 74 74 0d 0a 20 20 |0){\smal|l\tt..  |
|00001d70| 5c 70 75 74 28 30 31 30 | 2c 30 33 30 29 7b 5c 6c |\put(010|,030){\l|
|00001d80| 69 6e 65 28 31 2c 30 29 | 7b 32 34 30 7d 7d 0d 0a |ine(1,0)|{240}}..|
|00001d90| 20 20 5c 70 75 74 28 32 | 35 30 2c 30 33 30 29 7b |  \put(2|50,030){|
|00001da0| 5c 6c 69 6e 65 28 2d 31 | 2c 33 29 7b 30 36 30 7d |\line(-1|,3){060}|
|00001db0| 7d 0d 0a 20 20 5c 70 75 | 74 28 30 31 30 2c 30 33 |}..  \pu|t(010,03|
|00001dc0| 30 29 7b 5c 6c 69 6e 65 | 28 31 2c 31 29 7b 31 38 |0){\line|(1,1){18|
|00001dd0| 30 7d 7d 0d 0a 20 20 25 | 0d 0a 20 20 5c 70 75 74 |0}}..  %|..  \put|
|00001de0| 28 30 31 30 2c 30 33 30 | 29 7b 41 7d 0d 0a 20 20 |(010,030|){A}..  |
|00001df0| 5c 70 75 74 28 32 35 30 | 2c 30 33 30 29 7b 42 7d |\put(250|,030){B}|
|00001e00| 0d 0a 20 20 5c 70 75 74 | 28 31 39 30 2c 32 31 30 |..  \put|(190,210|
|00001e10| 29 7b 43 7d 0d 0a 20 20 | 5c 70 75 74 28 31 30 30 |){C}..  |\put(100|
|00001e20| 2c 31 32 30 29 7b 24 5c | 6f 76 65 72 6c 69 6e 65 |,120){$\|overline|
|00001e30| 7b 5c 74 74 20 41 43 7d | 24 7d 0d 0a 20 20 5c 70 |{\tt AC}|$}..  \p|
|00001e40| 75 74 28 32 32 30 2c 31 | 32 30 29 7b 24 5c 6f 76 |ut(220,1|20){$\ov|
|00001e50| 65 72 6c 69 6e 65 7b 5c | 74 74 20 42 43 7d 24 7d |erline{\|tt BC}$}|
|00001e60| 0d 0a 20 20 5c 70 75 74 | 28 31 33 30 2c 30 33 30 |..  \put|(130,030|
|00001e70| 29 7b 24 5c 6f 76 65 72 | 6c 69 6e 65 7b 5c 74 74 |){$\over|line{\tt|
|00001e80| 20 41 42 7d 24 7d 0d 0a | 20 20 25 0d 0a 20 20 5c | AB}$}..|  %..  \|
|00001e90| 70 75 74 28 30 31 30 2c | 30 33 30 29 7b 5c 6c 69 |put(010,|030){\li|
|00001ea0| 6e 65 28 33 2c 31 29 7b | 32 31 36 7d 7d 0d 0a 20 |ne(3,1){|216}}.. |
|00001eb0| 20 5c 70 75 74 28 32 32 | 36 2c 31 30 31 29 7b 50 | \put(22|6,101){P|
|00001ec0| 41 7d 0d 0a 20 20 25 0d | 0a 20 20 5c 70 75 74 28 |A}..  %.|.  \put(|
|00001ed0| 32 35 30 2c 30 33 30 29 | 7b 5c 6c 69 6e 65 28 2d |250,030)|{\line(-|
|00001ee0| 31 2c 31 29 7b 31 32 30 | 7d 7d 0d 0a 20 20 5c 70 |1,1){120|}}..  \p|
|00001ef0| 75 74 28 31 33 30 2c 31 | 35 30 29 7b 50 42 7d 0d |ut(130,1|50){PB}.|
|00001f00| 0a 20 20 25 0d 0a 20 20 | 5c 70 75 74 28 31 39 30 |.  %..  |\put(190|
|00001f10| 2c 32 31 30 29 7b 5c 6c | 69 6e 65 28 30 2c 2d 31 |,210){\l|ine(0,-1|
|00001f20| 29 7b 31 38 30 7d 7d 0d | 0a 20 20 5c 70 75 74 28 |){180}}.|.  \put(|
|00001f30| 31 39 30 2c 30 33 30 29 | 7b 50 43 7d 0d 0a 20 20 |190,030)|{PC}..  |
|00001f40| 25 0d 0a 20 20 5c 70 75 | 74 28 31 39 30 2c 30 39 |%..  \pu|t(190,09|
|00001f50| 30 29 7b 58 7d 0d 0a 20 | 20 25 0d 0a 20 20 5c 70 |0){X}.. | %..  \p|
|00001f60| 75 74 28 30 31 30 2c 30 | 31 30 29 7b 58 20 3d 20 |ut(010,0|10){X = |
|00001f70| 28 20 33 2e 37 30 30 30 | 30 30 65 2b 30 32 2c 20 |( 3.7000|00e+02, |
|00001f80| 32 2e 38 30 30 30 30 30 | 65 2b 30 32 29 7d 0d 0a |2.800000|e+02)}..|
|00001f90| 7d 0d 0a 0d 0a 5c 6e 6f | 69 6e 64 65 6e 74 0d 0a |}....\no|indent..|
|00001fa0| 46 75 72 74 68 65 72 20 | 65 78 61 6d 70 6c 65 73 |Further |examples|
|00001fb0| 20 61 72 65 20 69 6e 63 | 6c 75 64 65 64 20 77 69 | are inc|luded wi|
|00001fc0| 74 68 20 74 68 65 20 64 | 69 73 74 72 69 62 75 74 |th the d|istribut|
|00001fd0| 65 64 20 73 6f 66 74 77 | 61 72 65 2e 0d 0a 0d 0a |ed softw|are.....|
+--------+-------------------------+-------------------------+--------+--------+