/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / surface / !Surface / Sqcont9

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 25 20 ee 85 20 | db 3a f6 3a f1 22 20 61 |...% .. |.:.:." a|
|00000010| 74 20 6c 69 6e 65 20 22 | 3b 9e 3a ff 22 46 58 34 |t line "|;.:."FX4|
|00000020| 2c 30 22 3a e0 0d 00 14 | 11 20 de 20 63 6f 6c 73 |,0":....|. . cols|
|00000030| 25 28 31 2c 31 29 0d 00 | 1e 0a 20 f2 69 6e 69 74 |%(1,1)..|.. .init|
|00000040| 0d 00 28 08 20 eb 31 35 | 0d 00 32 1f 20 f2 73 63 |..(. .15|..2. .sc|
|00000050| 72 65 65 6e 3a f2 65 64 | 69 74 3a f2 75 70 64 61 |reen:.ed|it:.upda|
|00000060| 74 65 5f 76 61 72 73 0d | 00 3c 0a 20 70 25 3d 72 |te_vars.|.<. p%=r|
|00000070| 25 0d 00 46 5b 20 78 3d | 28 6f 62 78 2d 70 74 78 |%..F[ x=|(obx-ptx|
|00000080| 29 3a 79 3d 28 6f 62 79 | 2d 70 74 79 29 3a 7a 3d |):y=(oby|-pty):z=|
|00000090| 28 6f 62 7a 2d 70 74 7a | 29 3a 67 3d b6 28 78 2a |(obz-ptz|):g=.(x*|
|000000a0| 78 2b 79 2a 79 2b 7a 2a | 7a 29 3a 6c 3d b6 28 79 |x+y*y+z*|z):l=.(y|
|000000b0| 2a 79 2b 7a 2a 7a 29 3a | 68 3d b6 28 67 2a 67 2a |*y+z*z):|h=.(g*g*|
|000000c0| 79 2a 79 2b 78 2a 78 2a | 7a 2a 7a 29 0d 00 50 2c |y*y+x*x*|z*z)..P,|
|000000d0| 20 e7 20 68 3c 3e 30 20 | 8c 20 52 31 3d 6c 2a 79 | . h<>0 |. R1=l*y|
|000000e0| 2f 68 3a 52 32 3d 2d 78 | 2a 6c 2f 68 20 8b 20 52 |/h:R2=-x|*l/h . R|
|000000f0| 31 3d 31 3a 52 32 3d 30 | 0d 00 5a 19 20 50 31 3d |1=1:R2=0|..Z. P1=|
|00000100| 78 2f 67 3a 50 32 3d 79 | 2f 67 3a 50 33 3d 7a 2f |x/g:P2=y|/g:P3=z/|
|00000110| 67 0d 00 64 50 20 e7 20 | 68 3c 3e 30 20 80 20 6c |g..dP . |h<>0 . l|
|00000120| 3c 3e 30 20 8c 20 51 31 | 3d 6c 2a 78 2a 7a 2f 28 |<>0 . Q1|=l*x*z/(|
|00000130| 67 2a 68 29 3a 51 32 3d | 6c 2a 79 2a 7a 2f 28 67 |g*h):Q2=|l*y*z/(g|
|00000140| 2a 68 29 3a 51 33 3d 2d | 68 2f 28 67 2a 6c 29 20 |*h):Q3=-|h/(g*l) |
|00000150| 8b 20 51 31 3d 30 3a 51 | 32 3d 30 3a 51 33 3d 2d |. Q1=0:Q|2=0:Q3=-|
|00000160| 31 0d 00 6e 40 20 63 6f | 6c 73 25 28 30 2c 30 29 |1..n@ co|ls%(0,0)|
|00000170| 3d 63 31 25 3a 63 6f 6c | 73 25 28 31 2c 31 29 3d |=c1%:col|s%(1,1)=|
|00000180| 63 31 25 3a 63 6f 6c 73 | 25 28 30 2c 31 29 3d 63 |c1%:cols|%(0,1)=c|
|00000190| 32 25 3a 63 6f 6c 73 25 | 28 31 2c 30 29 3d 63 32 |2%:cols%|(1,0)=c2|
|000001a0| 25 0d 00 78 0c 20 73 31 | 33 3d 73 2f 33 0d 00 82 |%..x. s1|3=s/3...|
|000001b0| 08 20 eb 32 31 0d 00 8c | 11 20 ef 32 39 2c 36 34 |. .21...|. .29,64|
|000001c0| 30 3b 35 31 32 3b 0d 00 | 96 23 20 73 79 25 3d 30 |0;512;..|.# sy%=0|
|000001d0| 3a 6f 62 25 3d 30 3a 74 | 69 25 3d 30 3a 62 63 25 |:ob%=0:t|i%=0:bc%|
|000001e0| 3d 30 3a 73 63 25 3d 31 | 36 0d 00 a0 2c 20 f4 20 |=0:sc%=1|6..., . |
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 53 70 65 65 64 20 6c 6f |--------|Speed lo|
|00000200| 6f 70 20 66 6f 6c 6c 6f | 77 73 2d 2d 2d 2d 2d 2d |op follo|ws------|
|00000210| 2d 2d 2d 2d 2d 0d 00 aa | 2f 20 f4 20 20 43 75 72 |-----...|/ .  Cur|
|00000220| 72 65 6e 74 20 74 69 6d | 65 20 66 6f 72 20 64 65 |rent tim|e for de|
|00000230| 66 61 75 6c 74 20 73 65 | 74 74 69 6e 67 20 69 73 |fault se|tting is|
|00000240| 20 37 33 37 0d 00 b4 0c | 20 ef 20 37 3a d1 3d 30 | 737....| . 7:.=0|
|00000250| 0d 00 be 15 20 e3 20 62 | 3d 79 32 20 b8 20 79 31 |.... . b|=y2 . y1|
|00000260| 20 88 20 2d 73 0d 00 c8 | 35 20 73 78 25 3d 30 3a | . -s...|5 sx%=0:|
|00000270| 73 79 25 2b 3d 31 3a 6a | 79 25 3d 28 73 79 25 83 |sy%+=1:j|y%=(sy%.|
|00000280| 28 32 2a 63 79 25 29 29 | 81 63 79 25 3a 6c 76 79 |(2*cy%))|.cy%:lvy|
|00000290| 31 3d 6c 79 2d 62 2d 73 | 31 33 0d 00 d2 44 20 f2 |1=ly-b-s|13...D .|
|000002a0| 76 69 65 77 28 78 31 2c | 62 2c a4 66 28 78 31 2c |view(x1,|b,.f(x1,|
|000002b0| 62 29 29 3a ec 73 63 78 | 2c 73 63 79 3a f2 76 69 |b)):.scx|,scy:.vi|
|000002c0| 65 77 28 78 31 2c 62 2b | 73 2c a4 66 28 78 31 2c |ew(x1,b+|s,.f(x1,|
|000002d0| 62 2b 73 29 29 3a ec 73 | 63 78 2c 73 63 79 0d 00 |b+s)):.s|cx,scy..|
|000002e0| dc 14 20 e3 20 61 3d 78 | 31 20 b8 20 78 32 20 88 |.. . a=x|1 . x2 .|
|000002f0| 20 73 0d 00 e6 5f 20 73 | 78 25 2b 3d 31 3a 7a 31 | s..._ s|x%+=1:z1|
|00000300| 3d a4 66 28 61 2c 62 29 | 3a 7a 32 3d a4 66 28 61 |=.f(a,b)|:z2=.f(a|
|00000310| 2c 62 2b 73 29 3a 7a 33 | 3d a4 66 28 61 2b 73 2c |,b+s):z3|=.f(a+s,|
|00000320| 62 29 3a 7a 34 3d a4 66 | 28 61 2b 73 2c 62 2b 73 |b):z4=.f|(a+s,b+s|
|00000330| 29 3a 6a 25 3d 63 6f 6c | 73 25 28 28 73 78 25 83 |):j%=col|s%((sx%.|
|00000340| 28 32 2a 63 78 25 29 29 | 81 63 78 25 2c 6a 79 25 |(2*cx%))|.cx%,jy%|
|00000350| 29 0d 00 f0 b3 20 64 7a | 31 3d 7a 31 2d 7a 33 3a |).... dz|1=z1-z3:|
|00000360| 64 7a 32 3d 7a 31 2d 7a | 32 3a 6c 76 78 3d 6c 78 |dz2=z1-z|2:lvx=lx|
|00000370| 2d 61 2d 73 31 33 3a 6c | 76 7a 3d 6c 7a 2d a4 66 |-a-s13:l|vz=lz-.f|
|00000380| 28 6c 78 2d 6c 76 78 2c | 6c 79 2d 6c 76 79 31 29 |(lx-lvx,|ly-lvy1)|
|00000390| 3a 6c 66 3d 28 64 7a 31 | 2a 6c 76 78 2b 64 7a 32 |:lf=(dz1|*lvx+dz2|
|000003a0| 2a 6c 76 79 31 2b 73 2a | 6c 76 7a 29 2f b6 28 28 |*lvy1+s*|lvz)/.((|
|000003b0| 64 7a 31 2a 64 7a 31 2b | 64 7a 32 2a 64 7a 32 2b |dz1*dz1+|dz2*dz2+|
|000003c0| 73 2a 73 29 2a 28 28 6c | 76 78 2a 6c 76 78 2b 6c |s*s)*((l|vx*lvx+l|
|000003d0| 76 79 31 2a 6c 76 79 31 | 2b 6c 76 7a 2a 6c 76 7a |vy1*lvy1|+lvz*lvz|
|000003e0| 29 5e 33 29 29 3a 67 25 | 3d 31 36 2a 28 73 62 2a |)^3)):g%|=16*(sb*|
|000003f0| 6c 66 2b 61 62 29 3a e7 | 20 67 25 3e 31 35 20 67 |lf+ab):.| g%>15 g|
|00000400| 25 3d 31 35 0d 00 fa 10 | 20 e7 20 67 25 3c 30 20 |%=15....| . g%<0 |
|00000410| 67 25 3d 30 0d 01 04 3a | 20 e6 30 2c 28 67 25 81 |g%=0...:| .0,(g%.|
|00000420| 34 29 2a 6a 25 20 c8 9c | 20 28 67 25 83 34 29 2a |4)*j% ..| (g%.4)*|
|00000430| 36 34 3a f2 76 69 65 77 | 28 61 2b 73 2c 62 2c 7a |64:.view|(a+s,b,z|
|00000440| 33 29 3a f0 38 35 2c 73 | 63 78 2c 73 63 79 0d 01 |3):.85,s|cx,scy..|
|00000450| 0e 22 20 f2 76 69 65 77 | 28 61 2b 73 2c 62 2b 73 |." .view|(a+s,b+s|
|00000460| 2c 7a 34 29 3a f0 38 35 | 2c 73 63 78 2c 73 63 79 |,z4):.85|,scx,scy|
|00000470| 0d 01 18 08 20 ed 3a ed | 0d 01 22 2d 20 54 4d 45 |.... .:.|.."- TME|
|00000480| 3d 91 3a ef 20 37 2c 33 | 31 2c 30 2c 30 3a f1 20 |=.:. 7,3|1,0,0:. |
|00000490| 22 54 6f 6f 6b 20 22 3b | 54 4d 45 3b 22 20 74 69 |"Took ";|TME;" ti|
|000004a0| 63 6b 73 2e 22 0d 01 2c | 24 20 f4 20 2d 2d 2d 2d |cks."..,|$ . ----|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 01 36 0d 20 2a 46 |--------|-..6. *F|
|000004d0| 58 20 32 31 2c 30 0d 01 | 40 09 20 47 25 3d a5 0d |X 21,0..|@. G%=..|
|000004e0| 01 4a 0b 20 e5 20 8d 54 | 68 40 0d 01 54 05 20 0d |.J. . .T|h@..T. .|
|000004f0| 01 5e 0d 20 dd a4 66 28 | 78 2c 79 29 0d 01 68 0b |.^. ..f(|x,y)..h.|
|00000500| 20 3d a0 28 66 24 29 0d | 01 72 1c 20 f4 20 2d 2d | =.(f$).|.r. . --|
|00000510| 20 52 65 74 75 72 6e 73 | 20 73 63 78 2c 73 63 79 | Returns| scx,scy|
|00000520| 20 2d 2d 0d 01 7c 16 20 | dd 20 f2 76 69 65 77 28 | --..|. |. .view(|
|00000530| 78 72 2c 79 72 2c 7a 72 | 29 0d 01 86 25 20 74 78 |xr,yr,zr|)...% tx|
|00000540| 72 3d 78 72 2d 6f 62 78 | 3a 74 79 72 3d 79 72 2d |r=xr-obx|:tyr=yr-|
|00000550| 6f 62 79 3a 74 7a 72 3d | 7a 72 2d 6f 62 7a 0d 01 |oby:tzr=|zr-obz..|
|00000560| 90 4b 20 74 78 72 32 3d | 52 31 2a 74 78 72 2b 52 |.K txr2=|R1*txr+R|
|00000570| 32 2a 74 79 72 3a 74 79 | 72 32 3d 50 31 2a 74 78 |2*tyr:ty|r2=P1*tx|
|00000580| 72 2b 50 32 2a 74 79 72 | 2b 50 33 2a 74 7a 72 3a |r+P2*tyr|+P3*tzr:|
|00000590| 74 7a 72 32 3d 51 31 2a | 74 78 72 2b 51 32 2a 74 |tzr2=Q1*|txr+Q2*t|
|000005a0| 79 72 2b 51 33 2a 74 7a | 72 0d 01 9a 26 20 73 63 |yr+Q3*tz|r...& sc|
|000005b0| 78 3d 70 66 2a 74 78 72 | 32 2f 74 79 72 32 3a 73 |x=pf*txr|2/tyr2:s|
|000005c0| 63 79 3d 70 66 2a 74 7a | 72 32 2f 74 79 72 32 0d |cy=pf*tz|r2/tyr2.|
|000005d0| 01 a4 06 20 e1 0d 01 ae | 05 20 0d 01 b8 0b 20 dd |... ....|. .... .|
|000005e0| f2 69 6e 69 74 0d 01 c2 | 0b 20 2a 46 58 34 2c 31 |.init...|. *FX4,1|
|000005f0| 0d 01 cc 0a 20 70 25 3d | 31 31 0d 01 d6 0c 20 de |.... p%=|11.... .|
|00000600| 20 76 28 33 30 29 0d 01 | e0 0b 20 f7 20 8d 54 66 | v(30)..|.. . .Tf|
|00000610| 42 0d 01 ea 16 20 e3 63 | 25 3d 31 b8 32 31 3a f3 |B.... .c|%=1.21:.|
|00000620| 76 28 63 25 29 3a ed 0d | 01 f4 1c 20 73 66 25 3d |v(c%):..|... sf%=|
|00000630| 31 3a f3 20 66 6d 61 78 | 25 3a de 73 66 24 28 32 |1:. fmax|%:.sf$(2|
|00000640| 30 30 29 0d 01 fe 1c 20 | e3 63 25 3d 31 b8 20 66 |00).... |.c%=1. f|
|00000650| 6d 61 78 25 3a f3 73 66 | 24 28 63 25 29 3a ed 0d |max%:.sf|$(c%):..|
|00000660| 02 08 10 20 66 24 3d 73 | 66 24 28 73 66 25 29 0d |... f$=s|f$(sf%).|
|00000670| 02 12 06 20 e1 0d 02 1c | 05 20 0d 02 26 41 20 dc |... ....|. ..&A .|
|00000680| 20 2d 35 2c 35 2c 2d 35 | 2c 35 2c 30 2e 34 2c 35 | -5,5,-5|,5,0.4,5|
|00000690| 2c 35 2c 38 2c 2d 38 2c | 38 2c 30 2c 30 2c 30 2c |,5,8,-8,|8,0,0,0,|
|000006a0| 30 2c 2d 31 30 2c 32 30 | 2c 32 31 2c 34 2c 31 30 |0,-10,20|,21,4,10|
|000006b0| 30 30 2c 36 30 30 2c 30 | 2e 30 35 0d 02 30 2e 20 |00,600,0|.05..0. |
|000006c0| dc 20 32 2c 43 4f 53 53 | 51 52 28 78 2a 78 2b 79 |. 2,COSS|QR(x*x+y|
|000006d0| 2a 79 29 2c 45 58 50 28 | 2d 43 4f 53 53 51 52 28 |*y),EXP(|-COSSQR(|
|000006e0| 78 2a 78 2b 79 2a 79 29 | 29 0d 02 3a 05 20 0d 02 |x*x+y*y)|)..:. ..|
|000006f0| 44 0d 20 dd f2 73 63 72 | 65 65 6e 0d 02 4e 0a 20 |D. ..scr|een..N. |
|00000700| e6 30 2c 36 33 0d 02 58 | 29 20 ec 30 2c 30 3a df |.0,63..X|) .0,0:.|
|00000710| 31 32 37 39 2c 30 3a df | 31 32 37 39 2c 31 30 32 |1279,0:.|1279,102|
|00000720| 33 3a df 30 2c 31 30 32 | 33 3a df 30 2c 30 0d 02 |3:.0,102|3:.0,0..|
|00000730| 62 29 20 ec 31 30 30 30 | 2c 36 30 30 3a df 38 30 |b) .1000|,600:.80|
|00000740| 30 2c 36 30 30 3a df 38 | 30 30 2c 38 30 30 3a ec |0,600:.8|00,800:.|
|00000750| 39 32 30 2c 37 32 30 0d | 02 6c 10 20 df 38 30 30 |920,720.|.l. .800|
|00000760| 2c 36 30 30 3a ef 35 0d | 02 76 2f 20 ec 39 33 30 |,600:.5.|.v/ .930|
|00000770| 2c 37 35 35 3a f1 22 79 | 22 3a ec 31 30 31 30 2c |,755:."y|":.1010,|
|00000780| 36 31 36 3a f1 22 78 22 | 3a ec 37 39 30 2c 38 34 |616:."x"|:.790,84|
|00000790| 30 3a f1 22 7a 22 0d 02 | 80 07 20 ef 34 0d 02 8a |0:."z"..|.. .4...|
|000007a0| 20 20 f1 8a 33 30 2c 31 | 29 22 33 44 20 53 75 72 |  ..30,1|)"3D Sur|
|000007b0| 66 61 63 65 20 50 6c 6f | 74 74 65 72 22 0d 02 94 |face Plo|tter"...|
|000007c0| 2e 20 f1 8a 31 30 2c 32 | 38 29 22 55 73 65 20 88 |. ..10,2|8)"Use .|
|000007d0| 8b 8a 89 20 74 6f 20 65 | 64 69 74 2c 20 43 4f 50 |... to e|dit, COP|
|000007e0| 59 20 74 6f 20 64 72 61 | 77 2e 22 0d 02 9e 0b 20 |Y to dra|w.".... |
|000007f0| f7 20 8d 54 42 43 0d 02 | a8 15 20 e3 63 25 3d 31 |. .TBC..|.. .c%=1|
|00000800| b8 37 3a f3 63 24 2c 63 | 6f 6c 25 0d 02 b2 23 20 |.7:.c$,c|ol%...# |
|00000810| f1 8a 35 32 2c 31 35 2b | 63 25 29 3b 63 6f 6c 25 |..52,15+|c%);col%|
|00000820| 3b 8a 35 35 2c 31 35 2b | 63 25 29 3b 63 24 0d 02 |;.55,15+|c%);c$..|
|00000830| bc 06 20 ed 0d 02 c6 11 | 20 e3 72 25 3d 31 b8 32 |.. .....| .r%=1.2|
|00000840| 31 3a f3 61 24 0d 02 d0 | 20 20 f1 8a 32 36 2d a9 |1:.a$...|  ..26-.|
|00000850| 61 24 2c 72 25 2b 33 29 | 61 24 3b 22 20 20 22 3b |a$,r%+3)|a$;"  ";|
|00000860| 76 28 72 25 29 0d 02 da | 06 20 ed 0d 02 e4 1f 20 |v(r%)...|. ..... |
|00000870| f1 8a 31 37 2c 72 25 2b | 33 29 22 66 75 6e 63 74 |..17,r%+|3)"funct|
|00000880| 69 6f 6e 20 20 20 22 3b | 66 24 0d 02 ee 06 20 e1 |ion   ";|f$.... .|
|00000890| 0d 02 f8 05 20 0d 03 02 | 41 20 dc 20 52 45 44 2c |.... ...|A . RED,|
|000008a0| 31 2c 47 52 45 45 4e 2c | 34 2c 42 4c 55 45 2c 31 |1,GREEN,|4,BLUE,1|
|000008b0| 36 2c 59 45 4c 4c 4f 57 | 2c 35 2c 4d 41 47 45 4e |6,YELLOW|,5,MAGEN|
|000008c0| 54 41 2c 31 37 2c 43 59 | 41 4e 2c 32 30 2c 57 48 |TA,17,CY|AN,20,WH|
|000008d0| 49 54 45 2c 32 31 0d 03 | 0c 26 20 dc 20 78 20 72 |ITE,21..|.& . x r|
|000008e0| 61 6e 67 65 20 6d 69 6e | 2c 6d 61 78 2c 79 20 72 |ange min|,max,y r|
|000008f0| 61 6e 67 65 20 6d 69 6e | 2c 6d 61 78 0d 03 16 2d |ange min|,max...-|
|00000900| 20 dc 20 73 74 65 70 20 | 73 69 7a 65 2c 63 68 65 | . step |size,che|
|00000910| 71 75 65 72 20 6c 65 6e | 67 74 68 2c 63 68 65 71 |quer len|gth,cheq|
|00000920| 75 65 72 20 77 69 64 74 | 68 0d 03 20 26 20 dc 20 |uer widt|h.. & . |
|00000930| 6f 62 73 65 72 76 65 72 | 20 78 2c 79 2c 7a 2c 6c |observer| x,y,z,l|
|00000940| 6f 6f 6b 69 6e 67 20 74 | 6f 20 78 2c 79 2c 7a 0d |ooking t|o x,y,z.|
|00000950| 03 2a 1d 20 dc 20 6c 69 | 67 68 74 20 78 2c 79 2c |.*. . li|ght x,y,|
|00000960| 7a 2c 63 6f 6c 6f 75 72 | 20 31 2c 32 0d 03 34 34 |z,colour| 1,2..44|
|00000970| 20 dc 20 70 65 72 73 70 | 65 63 74 69 76 65 20 66 | . persp|ective f|
|00000980| 61 63 74 6f 72 2c 73 6f | 75 72 63 65 20 62 72 69 |actor,so|urce bri|
|00000990| 67 68 74 6e 65 73 73 2c | 61 6d 62 69 65 6e 63 65 |ghtness,|ambience|
|000009a0| 0d 03 3e 05 20 0d 03 48 | 0b 20 dd f2 65 64 69 74 |..>. ..H|. ..edit|
|000009b0| 0d 03 52 0a 20 72 25 3d | 70 25 0d 03 5c 06 20 f5 |..R. r%=|p%..\. .|
|000009c0| 0d 03 66 10 20 f1 8a 32 | 38 2c 72 25 2b 33 29 3b |..f. ..2|8,r%+3);|
|000009d0| 0d 03 70 09 20 45 25 3d | a5 0d 03 7a 12 20 e7 20 |..p. E%=|...z. . |
|000009e0| 45 25 3d 31 39 20 f2 73 | 61 76 65 0d 03 84 29 20 |E%=19 .s|ave...) |
|000009f0| e7 20 45 25 3d 31 32 20 | f2 6c 6f 61 64 3a f2 75 |. E%=12 |.load:.u|
|00000a00| 70 64 61 74 65 5f 76 61 | 72 73 3a db 3a f2 73 63 |pdate_va|rs:.:.sc|
|00000a10| 72 65 65 6e 0d 03 8e 1d | 20 e7 20 45 25 3d 31 33 |reen....| . E%=13|
|00000a20| 38 20 80 20 72 25 3c 32 | 32 20 72 25 3d 72 25 2b |8 . r%<2|2 r%=r%+|
|00000a30| 31 0d 03 98 2b 20 e7 20 | 45 25 3d 31 33 36 20 80 |1...+ . |E%=136 .|
|00000a40| 20 73 66 25 3e 31 20 80 | 20 72 25 3d 32 32 20 73 | sf%>1 .| r%=22 s|
|00000a50| 66 25 3d 73 66 25 2d 31 | 3a f2 73 66 0d 03 a2 2f |f%=sf%-1|:.sf.../|
|00000a60| 20 e7 20 45 25 3d 31 33 | 37 20 80 20 73 66 25 3c | . E%=13|7 . sf%<|
|00000a70| 66 6d 61 78 25 20 80 20 | 72 25 3d 32 32 20 73 66 |fmax% . |r%=22 sf|
|00000a80| 25 3d 73 66 25 2b 31 3a | f2 73 66 0d 03 ac 1c 20 |%=sf%+1:|.sf.... |
|00000a90| e7 20 45 25 3d 31 33 39 | 20 80 20 72 25 3e 31 20 |. E%=139| . r%>1 |
|00000aa0| 72 25 3d 72 25 2d 31 0d | 03 b6 1b 20 e7 20 45 25 |r%=r%-1.|... . E%|
|00000ab0| 3e 31 32 37 20 84 20 45 | 25 3c 33 32 20 e5 8d 64 |>127 . E|%<32 ..d|
|00000ac0| 54 43 0d 03 c0 16 20 ff | 22 46 58 31 33 38 2c 30 |TC.... .|"FX138,0|
|00000ad0| 2c 22 2b c3 28 45 25 29 | 0d 03 ca 19 20 e7 20 72 |,"+.(E%)|.... . r|
|00000ae0| 25 3d 32 32 20 f2 66 75 | 6e 63 20 8b 20 f2 6e 75 |%=22 .fu|nc . .nu|
|00000af0| 6d 0d 03 d4 0c 20 fd 45 | 25 3d 31 33 35 0d 03 de |m.... .E|%=135...|
|00000b00| 06 20 e1 0d 03 e8 05 20 | 0d 03 f2 0a 20 dd f2 6e |. ..... |.... ..n|
|00000b10| 75 6d 0d 03 fc 1b 20 f1 | 89 28 31 30 29 8a 32 38 |um.... .|.(10).28|
|00000b20| 2c 72 25 2b 33 29 3b 3a | e8 22 22 74 24 0d 04 06 |,r%+3);:|.""t$...|
|00000b30| 24 20 e7 20 a9 74 24 3d | 30 20 f1 8a 32 38 2c 72 |$ . .t$=|0 ..28,r|
|00000b40| 25 2b 33 29 3b 76 28 72 | 25 29 3b 3a e5 8d 54 64 |%+3);v(r|%);:..Td|
|00000b50| 44 0d 04 10 16 20 76 28 | 72 25 29 3d bb 74 24 3a |D.... v(|r%)=.t$:|
|00000b60| 72 25 3d 72 25 2b 31 0d | 04 1a 49 20 e7 20 72 25 |r%=r%+1.|..I . r%|
|00000b70| 3e 3d 31 35 20 80 20 72 | 25 3c 3d 31 37 20 76 28 |>=15 . r|%<=17 v(|
|00000b80| 32 30 29 3d 76 28 31 34 | 29 5e 32 2b 76 28 31 35 |20)=v(14|)^2+v(15|
|00000b90| 29 5e 32 2b 76 28 31 36 | 29 5e 32 3a f1 8a 32 38 |)^2+v(16|)^2:..28|
|00000ba0| 2c 32 33 29 3b 76 28 32 | 30 29 3b 89 28 31 30 29 |,23);v(2|0);.(10)|
|00000bb0| 0d 04 24 06 20 e1 0d 04 | 2e 05 20 0d 04 38 0b 20 |..$. ...|.. ..8. |
|00000bc0| dd f2 66 75 6e 63 0d 04 | 42 2a 20 f1 8a 32 38 2c |..func..|B* ..28,|
|00000bd0| 72 25 2b 34 29 66 24 8a | 32 38 2c 72 25 2b 33 29 |r%+4)f$.|28,r%+3)|
|00000be0| 89 28 a9 66 24 29 8a 32 | 38 2c 72 25 2b 33 29 3b |.(.f$).2|8,r%+3);|
|00000bf0| 0d 04 4c 0b 20 2a 46 58 | 34 2c 30 0d 04 56 0a 20 |..L. *FX|4,0..V. |
|00000c00| e8 22 22 74 24 0d 04 60 | 0b 20 2a 46 58 34 2c 31 |.""t$..`|. *FX4,1|
|00000c10| 0d 04 6a 15 20 f1 8a 32 | 38 2c 72 25 2b 34 29 89 |..j. ..2|8,r%+4).|
|00000c20| 28 a9 66 24 29 0d 04 74 | 3b 20 e7 20 a9 74 24 3d |(.f$)..t|; . .t$=|
|00000c30| 30 20 f1 8a 32 38 2c 72 | 25 2b 33 29 3b 66 24 20 |0 ..28,r|%+3);f$ |
|00000c40| 8b 20 66 24 3d 74 24 3a | 73 66 24 28 66 6d 61 78 |. f$=t$:|sf$(fmax|
|00000c50| 25 2b 31 29 3d 66 24 3a | 66 6d 61 78 25 2b 3d 31 |%+1)=f$:|fmax%+=1|
|00000c60| 0d 04 7e 0a 20 73 66 25 | 3d 31 0d 04 88 06 20 e1 |..~. sf%|=1.... .|
|00000c70| 0d 04 92 05 20 0d 04 9c | 12 20 dd f2 75 70 64 61 |.... ...|. ..upda|
|00000c80| 74 65 5f 76 61 72 73 0d | 04 a6 3d 20 78 31 3d 76 |te_vars.|..= x1=v|
|00000c90| 28 31 29 3a 78 32 3d 76 | 28 32 29 3a 79 31 3d 76 |(1):x2=v|(2):y1=v|
|00000ca0| 28 33 29 3a 79 32 3d 76 | 28 34 29 3a 73 3d 76 28 |(3):y2=v|(4):s=v(|
|00000cb0| 35 29 3a 63 78 25 3d 76 | 28 36 29 3a 63 79 25 3d |5):cx%=v|(6):cy%=|
|00000cc0| 76 28 37 29 0d 04 b0 3e | 20 6f 62 78 3d 76 28 38 |v(7)...>| obx=v(8|
|00000cd0| 29 3a 6f 62 79 3d 76 28 | 39 29 3a 6f 62 7a 3d 76 |):oby=v(|9):obz=v|
|00000ce0| 28 31 30 29 3a 70 74 78 | 3d 76 28 31 31 29 3a 70 |(10):ptx|=v(11):p|
|00000cf0| 74 79 3d 76 28 31 32 29 | 3a 70 74 7a 3d 76 28 31 |ty=v(12)|:ptz=v(1|
|00000d00| 33 29 0d 04 ba 3c 20 6c | 78 3d 76 28 31 34 29 3a |3)...< l|x=v(14):|
|00000d10| 6c 79 3d 76 28 31 35 29 | 3a 6c 7a 3d 76 28 31 36 |ly=v(15)|:lz=v(16|
|00000d20| 29 3a 63 31 25 3d 76 28 | 31 37 29 3a 63 32 25 3d |):c1%=v(|17):c2%=|
|00000d30| 76 28 31 38 29 3a 70 66 | 3d 76 28 31 39 29 0d 04 |v(18):pf|=v(19)..|
|00000d40| c4 16 20 73 62 3d 76 28 | 32 30 29 3a 61 62 3d 76 |.. sb=v(|20):ab=v|
|00000d50| 28 32 31 29 0d 04 ce 06 | 20 e1 0d 04 d8 05 20 0d |(21)....| ..... .|
|00000d60| 04 e2 09 20 dd f2 73 66 | 0d 04 ec 27 20 f1 8a 32 |... ..sf|...' ..2|
|00000d70| 38 2c 72 25 2b 33 29 73 | 66 24 28 73 66 25 29 89 |8,r%+3)s|f$(sf%).|
|00000d80| 28 a9 66 24 2d a9 73 66 | 24 28 73 66 25 29 29 0d |(.f$-.sf|$(sf%)).|
|00000d90| 04 f6 10 20 66 24 3d 73 | 66 24 28 73 66 25 29 0d |... f$=s|f$(sf%).|
|00000da0| 05 00 06 20 e1 0d 05 0a | 05 20 0d 05 14 0b 20 dd |... ....|. .... .|
|00000db0| f2 73 61 76 65 0d 05 1e | 1d 20 f1 8a 32 2c 33 30 |.save...|. ..2,30|
|00000dc0| 29 22 66 69 6c 65 3a 22 | 3b 3a e8 22 22 66 69 6c |)"file:"|;:.""fil|
|00000dd0| 65 24 0d 05 28 13 20 66 | 69 6c 65 25 3d ae 28 66 |e$..(. f|ile%=.(f|
|00000de0| 69 6c 65 24 29 0d 05 32 | 0d 20 e3 63 25 3d 31 b8 |ile$)..2|. .c%=1.|
|00000df0| 32 31 0d 05 3c 12 20 f1 | 23 66 69 6c 65 25 2c 76 |21..<. .|#file%,v|
|00000e00| 28 63 25 29 0d 05 46 06 | 20 ed 0d 05 50 12 20 f1 |(c%)..F.| ...P. .|
|00000e10| 23 66 69 6c 65 25 2c 66 | 6d 61 78 25 0d 05 5a 10 |#file%,f|max%..Z.|
|00000e20| 20 e3 63 25 3d 31 b8 66 | 6d 61 78 25 0d 05 64 14 | .c%=1.f|max%..d.|
|00000e30| 20 f1 23 66 69 6c 65 25 | 2c 73 66 24 28 63 25 29 | .#file%|,sf$(c%)|
|00000e40| 0d 05 6e 06 20 ed 0d 05 | 78 12 20 f1 23 66 69 6c |..n. ...|x. .#fil|
|00000e50| 65 25 2c 66 6d 61 78 25 | 0d 05 82 0c 20 d9 23 66 |e%,fmax%|.... .#f|
|00000e60| 69 6c 65 25 0d 05 8c 06 | 20 e1 0d 05 96 05 20 0d |ile%....| ..... .|
|00000e70| 05 a0 0b 20 dd f2 6c 6f | 61 64 0d 05 aa 1d 20 f1 |... ..lo|ad.... .|
|00000e80| 8a 32 2c 33 30 29 22 66 | 69 6c 65 3a 22 3b 3a e8 |.2,30)"f|ile:";:.|
|00000e90| 22 22 66 69 6c 65 24 0d | 05 b4 13 20 66 69 6c 65 |""file$.|... file|
|00000ea0| 25 3d 8e 28 66 69 6c 65 | 24 29 0d 05 be 0d 20 e3 |%=.(file|$).... .|
|00000eb0| 63 25 3d 31 b8 32 31 0d | 05 c8 12 20 e8 23 66 69 |c%=1.21.|... .#fi|
|00000ec0| 6c 65 25 2c 76 28 63 25 | 29 0d 05 d2 06 20 ed 0d |le%,v(c%|).... ..|
|00000ed0| 05 dc 12 20 e8 23 66 69 | 6c 65 25 2c 66 6d 61 78 |... .#fi|le%,fmax|
|00000ee0| 25 0d 05 e6 10 20 e3 63 | 25 3d 31 b8 66 6d 61 78 |%.... .c|%=1.fmax|
|00000ef0| 25 0d 05 f0 14 20 e8 23 | 66 69 6c 65 25 2c 73 66 |%.... .#|file%,sf|
|00000f00| 24 28 63 25 29 0d 05 fa | 06 20 ed 0d 06 04 0c 20 |$(c%)...|. ..... |
|00000f10| d9 23 66 69 6c 65 25 0d | 06 0e 06 20 e1 0d ff    |.#file%.|... ... |
+--------+-------------------------+-------------------------+--------+--------+