/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / andrewsdemos / dual.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 63 72 65 61 74 69 6e | 67 20 44 65 6c 61 75 6e |;creatin|g Delaun|
|00000010| 65 79 2f 56 6f 72 6f 6e | 6f 69 20 28 73 69 63 29 |ey/Voron|oi (sic)|
|00000020| 20 64 69 61 67 72 61 6d | 73 2e 2e 00 00 23 64 65 | diagram|s....#de|
|00000030| 6c 3d 80 c5 00 23 76 6f | 72 3d 80 c5 00 00 d0 01 |l=...#vo|r=......|
|00000040| 20 30 2c 33 32 30 2c 32 | 35 36 2c 33 00 d0 01 20 | 0,320,2|56,3... |
|00000050| 31 2c 33 32 30 2c 32 35 | 36 2c 33 00 00 80 34 00 |1,320,25|6,3...4.|
|00000060| c7 82 20 30 2c 33 00 c7 | 83 20 30 00 00 ce 17 20 |.. 0,3..|. 0.... |
|00000070| 30 2c 38 00 ce 0a 20 30 | 2c 30 2c 30 2c 35 2c 33 |0,8... 0|,0,0,5,3|
|00000080| 00 ce 0a 20 30 2c 31 2c | 31 32 2c 31 32 2c 31 32 |... 0,1,|12,12,12|
|00000090| 00 ce 0a 20 30 2c 32 2c | 31 35 2c 31 35 2c 31 35 |... 0,2,|15,15,15|
|000000a0| 00 ce 0a 20 30 2c 33 2c | 30 2c 30 2c 31 35 00 00 |... 0,3,|0,0,15..|
|000000b0| c7 86 20 30 2c 30 00 00 | 80 01 20 2e 70 74 00 20 |.. 0,0..|.. .pt. |
|000000c0| 20 78 2e 71 3a 79 2e 71 | 00 80 02 20 80 01 00 00 | x.q:y.q|... ....|
|000000d0| 80 01 20 2e 6c 69 6e 00 | 20 20 73 74 78 2e 71 3a |.. .lin.|  stx.q:|
|000000e0| 73 74 79 2e 71 00 20 20 | 66 61 72 78 2e 71 3a 66 |sty.q.  |farx.q:f|
|000000f0| 61 72 79 2e 71 00 20 20 | 64 65 6c 78 2e 71 3a 64 |ary.q.  |delx.q:d|
|00000100| 65 6c 79 2e 71 00 20 20 | 61 2e 71 3a 62 2e 71 00 |ely.q.  |a.q:b.q.|
|00000110| 20 20 69 2e 77 3a 6a 2e | 77 00 80 02 20 80 01 00 |  i.w:j.|w... ...|
|00000120| 00 80 04 20 70 74 2e 70 | 74 28 31 30 30 29 2c 6c |... pt.p|t(100),l|
|00000130| 69 6e 2e 6c 69 6e 28 31 | 30 30 30 29 00 6c 69 6e |in.lin(1|000).lin|
|00000140| 73 3d 2d 31 00 00 23 70 | 74 73 3d 31 30 00 00 80 |s=-1..#p|ts=10...|
|00000150| 06 20 43 72 65 61 74 65 | 00 b6 01 20 80 c5 00 00 |. Create|... ....|
|00000160| 00 2e 4d 61 69 6e 00 80 | bb 00 20 20 80 37 3a c7 |..Main..|..  .7:.|
|00000170| 84 20 30 2c 64 62 3a 64 | 62 3d 31 2d 64 62 00 20 |. 0,db:d|b=1-db. |
|00000180| 20 80 2c 20 d0 01 20 64 | 62 3a b2 05 3a c7 02 20 | ., .. d|b:..:.. |
|00000190| 64 62 3a c7 04 20 30 2c | 30 3a 72 65 76 3d 30 00 |db:.. 0,|0:rev=0.|
|000001a0| 00 20 20 70 74 28 23 70 | 74 73 29 5c 78 3d b6 04 |.  pt(#p|ts)\x=..|
|000001b0| 2c b6 05 00 20 20 80 06 | 20 44 72 61 77 00 00 80 |,...  ..| Draw...|
|000001c0| bc 20 df 04 28 30 29 3c | 3e 30 00 80 02 00 00 00 |. ..(0)<|>0......|
|000001d0| 00 2e 43 72 65 61 74 65 | 00 20 20 80 16 20 69 2e |..Create|.  .. i.|
|000001e0| 77 3d 30 20 80 18 20 23 | 70 74 73 00 00 20 20 20 |w=0 .. #|pts..   |
|000001f0| 20 78 3d bc 07 2a 31 30 | 30 2d 35 30 2b 31 36 30 | x=..*10|0-50+160|
|00000200| 3a 79 3d bc 07 2a 31 30 | 30 2b 35 30 00 20 20 20 |:y=..*10|0+50.   |
|00000210| 20 80 bb 00 20 20 20 20 | 20 20 78 3d bc 07 2a 33 | ...    |  x=..*3|
|00000220| 32 30 3a 79 3d bc 07 2a | 32 30 30 3a 68 61 70 70 |20:y=..*|200:happ|
|00000230| 79 3d 80 c5 00 20 20 20 | 20 20 20 80 16 20 6a 2e |y=...   |   .. j.|
|00000240| 77 3d 30 20 80 18 20 69 | 2d 31 00 20 20 20 20 20 |w=0 .. i|-1.     |
|00000250| 20 20 20 80 0b 20 bc 08 | 28 78 2d 70 74 28 6a 29 |   .. ..|(x-pt(j)|
|00000260| 5c 78 29 3c 32 35 00 20 | 20 20 20 20 20 20 20 20 |\x)<25. |        |
|00000270| 20 80 0b 20 bc 08 28 79 | 2d 70 74 28 6a 29 5c 79 | .. ..(y|-pt(j)\y|
|00000280| 29 3c 32 35 20 80 21 20 | 68 61 70 70 79 3d 80 c6 |)<25 .! |happy=..|
|00000290| 00 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |.       | ...    |
|000002a0| 20 20 80 17 00 20 20 20 | 20 80 bc 20 68 61 70 70 |  ...   | .. happ|
|000002b0| 79 00 00 20 20 20 20 80 | 0e 20 69 00 3b 20 20 20 |y..    .|. i.;   |
|000002c0| 20 20 20 43 61 73 65 20 | 30 3a 78 3d 31 30 30 3a |   Case |0:x=100:|
|000002d0| 79 3d 31 30 30 00 3b 20 | 20 20 20 20 20 43 61 73 |y=100.; |     Cas|
|000002e0| 65 20 31 3a 78 3d 31 37 | 30 3a 79 3d 31 35 30 00 |e 1:x=17|0:y=150.|
|000002f0| 3b 20 20 20 20 20 20 43 | 61 73 65 20 32 3a 78 3d |;      C|ase 2:x=|
|00000300| 31 35 30 3a 79 3d 32 30 | 00 3b 20 20 20 20 20 20 |150:y=20|.;      |
|00000310| 43 61 73 65 20 33 3a 78 | 3d 31 36 30 3a 79 3d 38 |Case 3:x|=160:y=8|
|00000320| 30 00 3b 20 20 20 20 20 | 20 43 61 73 65 20 34 3a |0.;     | Case 4:|
|00000330| 78 3d 4d 6f 75 73 65 58 | 3a 79 3d 4d 6f 75 73 65 |x=MouseX|:y=Mouse|
|00000340| 59 00 20 20 20 20 80 02 | 20 80 0e 00 3b 20 20 20 |Y.    ..| ...;   |
|00000350| 20 50 6c 6f 74 20 78 2c | 79 2c 69 2b 31 00 20 20 | Plot x,|y,i+1.  |
|00000360| 20 20 70 74 28 69 29 5c | 78 3d 78 2c 79 00 20 20 |  pt(i)\|x=x,y.  |
|00000370| 20 20 2a 71 2e 70 74 3d | 70 74 28 69 29 00 20 20 |  *q.pt=|pt(i).  |
|00000380| 80 17 00 80 07 00 00 00 | 00 00 2e 44 72 61 77 00 |........|...Draw.|
|00000390| 20 20 6c 69 6e 73 3d 2d | 31 00 20 20 80 16 20 69 |  lins=-|1.  .. i|
|000003a0| 2e 77 3d 30 20 80 18 20 | 23 70 74 73 00 20 20 20 |.w=0 .. |#pts.   |
|000003b0| 20 2a 70 2e 70 74 3d 70 | 74 28 69 29 3a 78 3d 2a | *p.pt=p|t(i):x=*|
|000003c0| 70 5c 78 3a 79 3d 2a 70 | 5c 79 00 20 20 20 20 80 |p\x:y=*p|\y.    .|
|000003d0| 16 20 6a 3d 30 20 80 18 | 20 69 2d 31 00 20 20 20 |. j=0 ..| i-1.   |
|000003e0| 20 20 20 2a 70 2e 70 74 | 3d 70 74 28 6a 29 00 00 |   *p.pt|=pt(j)..|
|000003f0| 20 20 20 20 20 20 6c 69 | 6e 73 2b 31 3a 2a 6c 2e |      li|ns+1:*l.|
|00000400| 6c 69 6e 3d 6c 69 6e 28 | 6c 69 6e 73 29 00 20 20 |lin=lin(|lins).  |
|00000410| 20 20 20 20 2a 6c 5c 73 | 74 78 3d 28 78 2b 2a 70 |    *l\s|tx=(x+*p|
|00000420| 5c 78 29 20 80 45 20 31 | 2c 28 79 2b 2a 70 5c 79 |\x) .E 1|,(y+*p\y|
|00000430| 29 20 80 45 20 31 00 00 | 20 20 20 20 20 20 64 78 |) .E 1..|      dx|
|00000440| 3d 79 2d 2a 70 5c 79 3a | 64 79 3d 2a 70 5c 78 2d |=y-*p\y:|dy=*p\x-|
|00000450| 78 00 20 20 20 20 20 20 | 64 69 73 74 3d e0 0c 28 |x.      |dist=..(|
|00000460| 64 78 2a 64 78 2b 64 79 | 2a 64 79 29 00 20 20 20 |dx*dx+dy|*dy).   |
|00000470| 20 20 20 2a 6c 5c 64 65 | 6c 78 3d 64 78 2f 64 69 |   *l\de|lx=dx/di|
|00000480| 73 74 2c 64 79 2f 64 69 | 73 74 00 20 20 20 20 20 |st,dy/di|st.     |
|00000490| 20 2a 6c 5c 66 61 72 78 | 3d 2a 6c 5c 73 74 78 2b | *l\farx|=*l\stx+|
|000004a0| 64 78 2a 36 35 30 2c 2a | 6c 5c 73 74 79 2b 64 79 |dx*650,*|l\sty+dy|
|000004b0| 2a 36 35 30 00 20 20 20 | 20 20 20 2a 6c 5c 61 3d |*650.   |   *l\a=|
|000004c0| 2d 36 34 30 2c 36 34 30 | 00 20 20 20 20 20 20 2a |-640,640|.      *|
|000004d0| 6c 5c 69 3d 69 2c 6a 00 | 20 20 20 20 80 17 00 20 |l\i=i,j.|    ... |
|000004e0| 20 80 17 00 00 00 20 20 | 80 16 20 6b 3d 23 70 74 | .....  |.. k=#pt|
|000004f0| 73 20 80 18 20 30 20 80 | 19 20 2d 31 00 00 20 20 |s .. 0 .|. -1..  |
|00000500| 20 20 80 16 20 68 3d 31 | 20 80 18 20 6c 69 6e 73 |  .. h=1| .. lins|
|00000510| 00 20 20 20 20 20 20 2a | 68 2e 6c 69 6e 3d 6c 69 |.      *|h.lin=li|
|00000520| 6e 28 68 29 00 20 20 20 | 20 20 20 80 0b 20 2a 68 |n(h).   |   .. *h|
|00000530| 5c 69 3d 6b 20 80 8a 20 | 2a 68 5c 6a 3d 6b 00 20 |\i=k .. |*h\j=k. |
|00000540| 20 20 20 20 20 20 20 80 | 16 20 67 3d 30 20 80 18 |       .|. g=0 ..|
|00000550| 20 68 2d 31 00 20 20 20 | 20 20 20 20 20 20 20 2a | h-1.   |       *|
|00000560| 67 2e 6c 69 6e 3d 6c 69 | 6e 28 67 29 00 20 20 20 |g.lin=li|n(g).   |
|00000570| 20 20 20 20 20 20 20 80 | 0b 20 2a 67 5c 69 3d 6b |       .|. *g\i=k|
|00000580| 20 80 8a 20 2a 67 5c 6a | 3d 6b 00 20 20 20 20 20 | .. *g\j|=k.     |
|00000590| 20 20 20 20 20 20 20 72 | 65 76 2b 31 00 00 20 20 |       r|ev+1..  |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 64 78 3d 2a 68 5c |        |  dx=*h\|
|000005b0| 73 74 78 2d 2a 67 5c 73 | 74 78 00 20 20 20 20 20 |stx-*g\s|tx.     |
|000005c0| 20 20 20 20 20 20 20 64 | 79 3d 2a 68 5c 73 74 79 |       d|y=*h\sty|
|000005d0| 2d 2a 67 5c 73 74 79 00 | 20 20 20 20 20 20 20 20 |-*g\sty.|        |
|000005e0| 20 20 20 20 64 65 74 3d | 2a 67 5c 64 65 6c 78 2a |    det=|*g\delx*|
|000005f0| 2a 68 5c 64 65 6c 79 2d | 2a 67 5c 64 65 6c 79 2a |*h\dely-|*g\dely*|
|00000600| 2a 68 5c 64 65 6c 78 00 | 00 20 20 20 20 20 20 20 |*h\delx.|.       |
|00000610| 20 20 20 20 20 75 3d 28 | 64 78 2a 2a 67 5c 64 65 |     u=(|dx**g\de|
|00000620| 6c 79 2d 64 79 2a 2a 67 | 5c 64 65 6c 78 29 2f 64 |ly-dy**g|\delx)/d|
|00000630| 65 74 00 20 20 20 20 20 | 20 20 20 20 20 20 20 76 |et.     |       v|
|00000640| 3d 28 64 78 2a 2a 68 5c | 64 65 6c 79 2d 64 79 2a |=(dx**h\|dely-dy*|
|00000650| 2a 68 5c 64 65 6c 78 29 | 2f 64 65 74 00 00 00 00 |*h\delx)|/det....|
|00000660| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |.       |     .. |
|00000670| 2a 67 5c 69 3d 6b 00 20 | 20 20 20 20 20 20 20 20 |*g\i=k. |        |
|00000680| 20 20 20 20 20 2a 71 2e | 70 74 3d 70 74 28 2a 67 |     *q.|pt=pt(*g|
|00000690| 5c 6a 29 3a 68 69 67 68 | 3d 80 c5 00 20 20 20 20 |\j):high|=...    |
|000006a0| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 |        |.".     |
|000006b0| 20 20 20 20 20 20 20 20 | 20 2a 71 2e 70 74 3d 70 |        | *q.pt=p|
|000006c0| 74 28 2a 67 5c 69 29 3a | 68 69 67 68 3d 80 c6 00 |t(*g\i):|high=...|
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 00 |        |    ....|
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 0b 20 2a |        |    .. *|
|000006f0| 68 5c 6a 3d 6b 20 80 21 | 20 68 69 67 68 3d 80 89 |h\j=k .!| high=..|
|00000700| 20 68 69 67 68 00 00 20 | 20 20 20 20 20 20 20 20 | high.. |        |
|00000710| 20 20 20 64 78 3d 2a 71 | 5c 78 2d 2a 68 5c 73 74 |   dx=*q|\x-*h\st|
|00000720| 78 00 20 20 20 20 20 20 | 20 20 20 20 20 20 64 79 |x.      |      dy|
|00000730| 3d 2a 71 5c 79 2d 2a 68 | 5c 73 74 79 00 00 20 20 |=*q\y-*h|\sty..  |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 64 78 2a |        |  .. dx*|
|00000750| 2a 68 5c 64 65 6c 78 2b | 64 79 2a 2a 68 5c 64 65 |*h\delx+|dy**h\de|
|00000760| 6c 79 3c 30 20 80 21 20 | 68 69 67 68 3d 80 89 20 |ly<0 .! |high=.. |
|00000770| 68 69 67 68 00 20 20 20 | 20 20 20 20 20 20 20 20 |high.   |        |
|00000780| 20 80 0b 20 68 69 67 68 | 00 20 20 20 20 20 20 20 | .. high|.       |
|00000790| 20 20 20 20 20 20 20 80 | 0b 20 76 3e 2a 67 5c 61 |       .|. v>*g\a|
|000007a0| 20 80 21 20 2a 67 5c 61 | 3d 76 00 20 20 20 20 20 | .! *g\a|=v.     |
|000007b0| 20 20 20 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |       .|".      |
|000007c0| 20 20 20 20 20 20 20 20 | 80 0b 20 76 3c 2a 67 5c |        |.. v<*g\|
|000007d0| 62 20 80 21 20 2a 67 5c | 62 3d 76 00 20 20 20 20 |b .! *g\|b=v.    |
|000007e0| 20 20 20 20 20 20 20 20 | 80 c0 00 00 00 20 20 20 |        |.....   |
|000007f0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 2a 68 5c 69 |        | .. *h\i|
|00000800| 3d 6b 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=k.     |        |
|00000810| 20 2a 71 2e 70 74 3d 70 | 74 28 2a 68 5c 6a 29 3a | *q.pt=p|t(*h\j):|
|00000820| 68 69 67 68 3d 80 c5 00 | 20 20 20 20 20 20 20 20 |high=...|        |
|00000830| 20 20 20 20 80 22 00 20 | 20 20 20 20 20 20 20 20 |    .". |        |
|00000840| 20 20 20 20 20 2a 71 2e | 70 74 3d 70 74 28 2a 68 |     *q.|pt=pt(*h|
|00000850| 5c 69 29 3a 68 69 67 68 | 3d 80 c6 00 20 20 20 20 |\i):high|=...    |
|00000860| 20 20 20 20 20 20 20 20 | 80 c0 00 00 20 20 20 20 |        |....    |
|00000870| 20 20 20 20 20 20 20 20 | 80 0b 20 2a 67 5c 6a 3d |        |.. *g\j=|
|00000880| 6b 20 80 21 20 68 69 67 | 68 3d 80 89 20 68 69 67 |k .! hig|h=.. hig|
|00000890| 68 00 00 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |h..     |       d|
|000008a0| 78 3d 2a 71 5c 78 2d 2a | 67 5c 73 74 78 00 20 20 |x=*q\x-*|g\stx.  |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 64 79 3d 2a 71 5c |        |  dy=*q\|
|000008c0| 79 2d 2a 67 5c 73 74 79 | 00 00 20 20 20 20 20 20 |y-*g\sty|..      |
|000008d0| 20 20 20 20 20 20 80 0b | 20 64 78 2a 2a 67 5c 64 |      ..| dx**g\d|
|000008e0| 65 6c 78 2b 64 79 2a 2a | 67 5c 64 65 6c 79 3c 30 |elx+dy**|g\dely<0|
|000008f0| 20 80 21 20 68 69 67 68 | 3d 80 89 20 68 69 67 68 | .! high|=.. high|
|00000900| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |.       |     .. |
|00000910| 68 69 67 68 00 20 20 20 | 20 20 20 20 20 20 20 20 |high.   |        |
|00000920| 20 20 20 80 0b 20 75 3e | 2a 68 5c 61 20 80 21 20 |   .. u>|*h\a .! |
|00000930| 2a 68 5c 61 3d 75 00 20 | 20 20 20 20 20 20 20 20 |*h\a=u. |        |
|00000940| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 20 20 |   .".  |        |
|00000950| 20 20 20 20 80 0b 20 75 | 3c 2a 68 5c 62 20 80 21 |    .. u|<*h\b .!|
|00000960| 20 2a 68 5c 62 3d 75 00 | 20 20 20 20 20 20 20 20 | *h\b=u.|        |
|00000970| 20 20 20 20 80 c0 00 00 | 00 00 20 20 20 20 20 20 |    ....|..      |
|00000980| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 80 |    ... |       .|
|00000990| 17 00 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 80 |..      |...    .|
|000009a0| 17 00 20 20 80 17 00 00 | 20 20 80 16 20 6c 3d 30 |..  ....|  .. l=0|
|000009b0| 20 80 18 20 6c 69 6e 73 | 00 20 20 20 20 2a 6c 3d | .. lins|.    *l=|
|000009c0| 6c 69 6e 28 6c 29 00 20 | 20 20 20 80 06 20 44 72 |lin(l). |   .. Dr|
|000009d0| 61 77 4c 69 6e 00 20 20 | 80 17 00 80 07 00 00 00 |awLin.  |........|
|000009e0| 2e 44 72 61 77 4c 69 6e | 00 20 20 80 0b 20 2a 6c |.DrawLin|.  .. *l|
|000009f0| 5c 62 3e 2a 6c 5c 61 00 | 20 20 20 20 73 78 3d 2a |\b>*l\a.|    sx=*|
|00000a00| 6c 5c 73 74 78 2b 2a 6c | 5c 64 65 6c 78 2a 2a 6c |l\stx+*l|\delx**l|
|00000a10| 5c 61 00 20 20 20 20 73 | 79 3d 2a 6c 5c 73 74 79 |\a.    s|y=*l\sty|
|00000a20| 2b 2a 6c 5c 64 65 6c 79 | 2a 2a 6c 5c 61 00 20 20 |+*l\dely|**l\a.  |
|00000a30| 20 20 66 78 3d 2a 6c 5c | 73 74 78 2b 2a 6c 5c 64 |  fx=*l\|stx+*l\d|
|00000a40| 65 6c 78 2a 2a 6c 5c 62 | 00 20 20 20 20 66 79 3d |elx**l\b|.    fy=|
|00000a50| 2a 6c 5c 73 74 79 2b 2a | 6c 5c 64 65 6c 79 2a 2a |*l\sty+*|l\dely**|
|00000a60| 6c 5c 62 00 20 20 20 20 | 80 1c 20 23 76 6f 72 00 |l\b.    |.. #vor.|
|00000a70| 20 20 20 20 20 20 bb 85 | 20 73 78 2c 73 79 2c 66 |      ..| sx,sy,f|
|00000a80| 78 2c 66 79 2c 32 00 20 | 20 20 20 80 1f 00 20 20 |x,fy,2. |   ...  |
|00000a90| 20 20 80 1c 20 23 64 65 | 6c 00 20 20 20 20 20 20 |  .. #de|l.      |
|00000aa0| bb 85 20 70 74 28 2a 6c | 5c 69 29 5c 78 2c 70 74 |.. pt(*l|\i)\x,pt|
|00000ab0| 28 2a 6c 5c 69 29 5c 79 | 2c 70 74 28 2a 6c 5c 6a |(*l\i)\y|,pt(*l\j|
|00000ac0| 29 5c 78 2c 70 74 28 2a | 6c 5c 6a 29 5c 79 2c 31 |)\x,pt(*|l\j)\y,1|
|00000ad0| 00 20 20 20 20 80 1f 00 | 20 20 80 c0 00 00 80 07 |.    ...|  ......|
|00000ae0| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+