/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / EXAMPLES / hankie.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 64 6f 74 73 3d 37 20 | 20 20 20 20 20 20 20 3b |#dots=7 |       ;|
|00000010| 20 43 48 41 4e 47 45 20 | 4d 45 21 21 21 00 00 00 | CHANGE |ME!!!...|
|00000020| d0 01 20 30 2c 33 32 30 | 2c 32 35 36 2c 32 3a d0 |.. 0,320|,256,2:.|
|00000030| 01 20 31 2c 33 32 30 2c | 32 35 36 2c 32 00 80 34 |. 1,320,|256,2..4|
|00000040| 3a c8 01 20 30 2c 34 34 | 2c 32 3a c8 04 20 30 3a |:.. 0,44|,2:.. 0:|
|00000050| ce 05 20 31 2c 31 35 2c | 31 35 2c 31 35 00 00 00 |.. 1,15,|15,15...|
|00000060| 3b 73 63 72 65 65 6e 20 | 63 6f 6e 73 74 61 6e 74 |;screen |constant|
|00000070| 73 00 23 6d 69 64 78 3d | 31 36 30 3a 23 6d 69 64 |s.#midx=|160:#mid|
|00000080| 79 3d 31 30 30 3a 23 73 | 63 3d 31 32 38 00 23 73 |y=100:#s|c=128.#s|
|00000090| 69 64 65 3d 23 64 6f 74 | 73 2a 32 2b 31 20 3a 20 |ide=#dot|s*2+1 : |
|000000a0| 20 23 6d 61 78 65 6c 74 | 3d 23 73 69 64 65 2a 23 | #maxelt|=#side*#|
|000000b0| 73 69 64 65 00 00 80 01 | 2e 70 6f 73 00 20 20 73 |side....|.pos.  s|
|000000c0| 78 2e 77 3a 73 79 2e 77 | 3a 69 2e 77 3a 6a 2e 77 |x.w:sy.w|:i.w:j.w|
|000000d0| 00 80 02 20 80 01 00 00 | 80 04 20 70 6c 2e 70 6f |... ....|.. pl.po|
|000000e0| 73 28 23 73 69 64 65 2c | 23 73 69 64 65 29 00 00 |s(#side,|#side)..|
|000000f0| 80 33 2e 71 20 76 69 2c | 76 6a 2c 63 75 72 69 2c |.3.q vi,|vj,curi,|
|00000100| 63 75 72 6a 00 80 33 2e | 77 20 63 69 2c 63 6a 2c |curj..3.|w ci,cj,|
|00000110| 69 2c 6a 2c 69 69 2c 6a | 6a 00 00 00 74 68 65 74 |i,j,ii,j|j...thet|
|00000120| 61 3d 80 ba 2f 37 00 71 | 63 3d e0 05 28 74 68 65 |a=../7.q|c=..(the|
|00000130| 74 61 29 3a 71 73 3d e0 | 0a 28 74 68 65 74 61 29 |ta):qs=.|.(theta)|
|00000140| 00 80 16 20 69 3d 30 20 | 80 18 20 23 73 69 64 65 |... i=0 |.. #side|
|00000150| 00 20 20 69 69 3d 69 2d | 23 64 6f 74 73 00 20 20 |.  ii=i-|#dots.  |
|00000160| 80 16 20 6a 3d 30 20 80 | 18 20 23 73 69 64 65 00 |.. j=0 .|. #side.|
|00000170| 20 20 20 20 2a 70 2e 70 | 6f 73 3d 70 6c 28 69 2c |    *p.p|os=pl(i,|
|00000180| 6a 29 00 00 20 20 20 20 | 6a 6a 3d 6a 2d 23 64 6f |j)..    |jj=j-#do|
|00000190| 74 73 00 00 20 20 20 20 | 72 78 3d 69 69 2a 71 63 |ts..    |rx=ii*qc|
|000001a0| 2d 6a 6a 2a 71 73 20 20 | 20 20 20 3b 20 72 6f 74 |-jj*qs  |   ; rot|
|000001b0| 61 74 69 6f 6e 20 6d 61 | 74 72 69 78 21 21 21 00 |ation ma|trix!!!.|
|000001c0| 20 20 20 20 72 79 3d 20 | 20 20 20 30 00 20 20 20 |    ry= |   0.   |
|000001d0| 20 72 7a 3d 69 69 2a 71 | 73 2b 6a 6a 2a 71 63 00 | rz=ii*q|s+jj*qc.|
|000001e0| 00 20 20 20 20 74 78 3d | 72 78 00 20 20 20 20 74 |.    tx=|rx.    t|
|000001f0| 79 3d 72 79 2a 30 2e 38 | 36 36 2d 72 7a 2a 30 2e |y=ry*0.8|66-rz*0.|
|00000200| 35 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5       |        |
|00000210| 20 20 20 20 3b 20 61 6e | 6f 74 68 65 72 20 72 6f |    ; an|other ro|
|00000220| 74 61 74 69 6f 6e 20 6d | 61 74 72 69 78 21 21 21 |tation m|atrix!!!|
|00000230| 00 20 20 20 20 74 7a 3d | 72 79 2a 30 2e 35 20 20 |.    tz=|ry*0.5  |
|00000240| 2b 72 7a 2a 30 2e 38 36 | 36 20 2b 23 64 6f 74 73 |+rz*0.86|6 +#dots|
|00000250| 2a 32 2e 32 00 00 20 20 | 20 20 2a 70 5c 73 78 3d |*2.2..  |  *p\sx=|
|00000260| 74 78 2f 74 7a 2a 23 73 | 63 2b 23 6d 69 64 78 00 |tx/tz*#s|c+#midx.|
|00000270| 20 20 20 20 2a 70 5c 73 | 79 3d 74 79 2f 74 7a 2a |    *p\s|y=ty/tz*|
|00000280| 23 73 63 2b 23 6d 69 64 | 79 00 20 20 20 20 2a 70 |#sc+#mid|y.    *p|
|00000290| 5c 69 3d 69 69 00 20 20 | 20 20 2a 70 5c 6a 3d 6a |\i=ii.  |  *p\j=j|
|000002a0| 6a 00 20 20 80 17 00 80 | 17 00 00 80 04 20 71 73 |j.  ....|..... qs|
|000002b0| 69 6e 2e 77 28 32 35 35 | 29 2c 71 63 6f 73 2e 77 |in.w(255|),qcos.w|
|000002c0| 28 32 35 35 29 00 80 16 | 20 66 61 63 2e 71 3d 30 |(255)...| fac.q=0|
|000002d0| 20 80 18 20 32 35 35 00 | 20 20 68 2e 71 3d 35 30 | .. 255.|  h.q=50|
|000002e0| 2a e0 0a 28 66 61 63 2a | 80 ba 2f 31 32 38 29 3a |*..(fac*|../128):|
|000002f0| 71 73 69 6e 28 66 61 63 | 29 3d 68 00 20 20 68 2e |qsin(fac|)=h.  h.|
|00000300| 71 3d 35 30 2a e0 05 28 | 66 61 63 2a 80 ba 2f 31 |q=50*..(|fac*../1|
|00000310| 32 38 29 3a 71 63 6f 73 | 28 66 61 63 29 3d 68 00 |28):qcos|(fac)=h.|
|00000320| 80 17 00 00 00 23 64 65 | 66 3d 31 32 37 3a 23 68 |.....#de|f=127:#h|
|00000330| 64 65 66 3d 23 64 65 66 | 2f 32 20 20 20 20 20 3b |def=#def|/2     ;|
|00000340| 6e 2e 62 2e 20 23 64 65 | 66 20 2a 4d 55 53 54 2a |n.b. #de|f *MUST*|
|00000350| 20 62 65 20 31 2c 33 2c | 37 2c 31 35 2c 33 31 2c | be 1,3,|7,15,31,|
|00000360| 36 33 2c 31 32 37 2c 32 | 35 35 2c 35 31 31 20 65 |63,127,2|55,511 e|
|00000370| 74 63 2e 2e 00 80 04 20 | 67 72 6e 64 2e 77 28 23 |tc..... |grnd.w(#|
|00000380| 64 65 66 2c 23 64 65 66 | 29 00 80 16 20 69 3d 30 |def,#def|)... i=0|
|00000390| 20 80 18 20 23 64 65 66 | 00 20 20 63 75 72 69 3d | .. #def|.  curi=|
|000003a0| 69 2d 23 68 64 65 66 00 | 20 20 80 16 20 6a 3d 30 |i-#hdef.|  .. j=0|
|000003b0| 20 80 18 20 23 64 65 66 | 00 20 20 20 20 63 75 72 | .. #def|.    cur|
|000003c0| 6a 3d 6a 2d 23 68 64 65 | 66 00 20 20 20 20 66 61 |j=j-#hde|f.    fa|
|000003d0| 63 31 2e 77 3d 28 63 75 | 72 69 2a 32 29 20 80 42 |c1.w=(cu|ri*2) .B|
|000003e0| 20 32 35 35 00 20 20 20 | 20 66 61 63 32 2e 77 3d | 255.   | fac2.w=|
|000003f0| 28 63 75 72 6a 2a 32 29 | 20 80 42 20 32 35 35 00 |(curj*2)| .B 255.|
|00000400| 20 20 20 20 68 2e 71 3d | 71 73 69 6e 28 66 61 63 |    h.q=|qsin(fac|
|00000410| 31 29 2f 35 30 2a 71 63 | 6f 73 28 66 61 63 32 29 |1)/50*qc|os(fac2)|
|00000420| 00 20 20 20 20 67 72 6e | 64 28 69 2c 6a 29 3d 68 |.    grn|d(i,j)=h|
|00000430| 00 20 20 80 17 00 80 17 | 00 00 00 b6 01 20 80 c5 |.  .....|..... ..|
|00000440| 00 80 bb 00 20 20 80 37 | 3a c8 04 20 64 62 3a 64 |....  .7|:.. db:d|
|00000450| 62 3d 31 2d 64 62 3a 80 | 2c 20 d0 01 20 64 62 20 |b=1-db:.|, .. db |
|00000460| 20 20 3b 20 64 6f 75 62 | 6c 65 20 62 75 66 66 65 |  ; doub|le buffe|
|00000470| 72 65 64 00 20 20 bb 84 | 20 30 2c 30 2c 33 31 39 |red.  ..| 0,0,319|
|00000480| 2c 32 35 35 2c 30 00 20 | 20 76 69 3d 28 76 69 2b |,255,0. | vi=(vi+|
|00000490| b6 06 29 2a 30 2e 39 32 | 3a 63 75 72 69 2b 76 69 |..)*0.92|:curi+vi|
|000004a0| 3a 63 69 3d 63 75 72 69 | 20 20 3b 64 61 6d 70 69 |:ci=curi|  ;dampi|
|000004b0| 6e 67 2e 2e 2e 00 20 20 | 76 6a 3d 28 76 6a 2b b6 |ng....  |vj=(vj+.|
|000004c0| 07 29 2a 30 2e 39 32 3a | 63 75 72 6a 2b 76 6a 3a |.)*0.92:|curj+vj:|
|000004d0| 63 6a 3d 63 75 72 6a 00 | 20 20 80 16 20 69 3d 30 |cj=curj.|  .. i=0|
|000004e0| 20 80 18 20 23 73 69 64 | 65 00 20 20 20 20 80 16 | .. #sid|e.    ..|
|000004f0| 20 6a 3d 30 20 80 18 20 | 23 73 69 64 65 00 20 20 | j=0 .. |#side.  |
|00000500| 20 20 20 20 2a 70 2e 70 | 6f 73 3d 70 6c 28 69 2c |    *p.p|os=pl(i,|
|00000510| 6a 29 00 20 20 20 20 20 | 20 69 69 2e 77 3d 28 63 |j).     | ii.w=(c|
|00000520| 69 2b 2a 70 5c 69 29 20 | 80 42 20 23 64 65 66 20 |i+*p\i) |.B #def |
|00000530| 20 3b 20 73 6f 20 77 65 | 20 63 61 6e 20 22 73 63 | ; so we| can "sc|
|00000540| 72 6f 6c 6c 22 20 74 68 | 65 00 20 20 20 20 20 20 |roll" th|e.      |
|00000550| 6a 6a 2e 77 3d 28 63 6a | 2b 2a 70 5c 6a 29 20 80 |jj.w=(cj|+*p\j) .|
|00000560| 42 20 23 64 65 66 20 20 | 3b 20 20 20 20 75 6e 64 |B #def  |;    und|
|00000570| 65 72 6c 79 69 6e 67 20 | 20 73 75 72 66 61 63 65 |erlying | surface|
|00000580| 00 20 20 20 20 20 20 b2 | 03 20 2a 70 5c 73 78 2c |.      .|. *p\sx,|
|00000590| 2a 70 5c 73 79 2b 67 72 | 6e 64 28 69 69 2c 6a 6a |*p\sy+gr|nd(ii,jj|
|000005a0| 29 2c 31 00 20 20 20 20 | 80 17 00 20 20 80 17 00 |),1.    |...  ...|
|000005b0| 80 bc 20 df 04 28 30 29 | 3c 3e 30 00 80 02 00 00 |.. ..(0)|<>0.....|
|000005c0| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+