�     >Dancer (Info13)
� By  Mark Hobson
� For 32-bit machines
(� (c) BAU May 1993
2:
<	� 0:�
Fh=10
Psize=200
ZE=.7
dg=-2
nD=size/h
x� v(h),w(h),x(h),y(h)
�
bank=1
��
�
 ȗ x,y,b
� x1=x:y1=y
� � i=1 � h
�  dx=x(i)-x1+v(i)*E
�  dy=y(i)-y1+w(i)*E
�  d=D/�(dx*dx+dy*dy+.4)
�  x1+=dx*d:x(i)=x1
�  y1+=dy*d:y(i)=y1
�  d=d/2-.5
�  v(i)+=dx*d
�  w(i)+=dy*d-g

  v(i-1)-=dx*d

  w(i-1)-=dy*d+g

 �

" Ȗ

, bank=3-bank

6 ș 6,113,bank

@ ș 6,112,3-bank

J �

T
 � x,y

^ � i=1 � h

h  � x(i),y(i)

r �

| ȏ x(h),y(h)+40,40

� � x(h),y(h)

� � x(h-6)+70,y(h-6)

� � x(h)+40,y(h-8)

� � x(h),y(h)

� � x(h-6)-70,y(h-6)

� � x(h)-40,y(h-8)

�
 � x,y

�  � x(h-2)-50,y-(y(h-6)-y)-30

� � x(h-6)-30,y-(y(h)-y)-60

�
 � x,y

�  � x(h-2)+50,y-(y(h-6)-y)-30

� � x(h-6)+30,y-(y(h)-y)-60

�� �
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 44 61 6e 63 65  |.....     >Dance|
00000010  72 20 28 49 6e 66 6f 31  33 29 0d 00 14 15 f4 20  |r (Info13)..... |
00000020  42 79 20 20 4d 61 72 6b  20 48 6f 62 73 6f 6e 0d  |By  Mark Hobson.|
00000030  00 1e 19 f4 20 46 6f 72  20 33 32 2d 62 69 74 20  |.... For 32-bit |
00000040  6d 61 63 68 69 6e 65 73  0d 00 28 16 f4 20 28 63  |machines..(.. (c|
00000050  29 20 42 41 55 20 4d 61  79 20 31 39 39 33 0d 00  |) BAU May 1993..|
00000060  32 05 3a 0d 00 3c 09 eb  20 30 3a 87 0d 00 46 08  |2.:..<.. 0:...F.|
00000070  68 3d 31 30 0d 00 50 0c  73 69 7a 65 3d 32 30 30  |h=10..P.size=200|
00000080  0d 00 5a 08 45 3d 2e 37  0d 00 64 08 67 3d 2d 32  |..Z.E=.7..d.g=-2|
00000090  0d 00 6e 0c 44 3d 73 69  7a 65 2f 68 0d 00 78 19  |..n.D=size/h..x.|
000000a0  de 20 76 28 68 29 2c 77  28 68 29 2c 78 28 68 29  |. v(h),w(h),x(h)|
000000b0  2c 79 28 68 29 0d 00 82  0a 62 61 6e 6b 3d 31 0d  |,y(h)....bank=1.|
000000c0  00 8c 05 f5 0d 00 96 0d  20 c8 97 20 78 2c 79 2c  |........ .. x,y,|
000000d0  62 0d 00 a0 0e 20 78 31  3d 78 3a 79 31 3d 79 0d  |b.... x1=x:y1=y.|
000000e0  00 aa 0e 20 e3 20 69 3d  31 20 b8 20 68 0d 00 b4  |... . i=1 . h...|
000000f0  17 20 20 64 78 3d 78 28  69 29 2d 78 31 2b 76 28  |.  dx=x(i)-x1+v(|
00000100  69 29 2a 45 0d 00 be 17  20 20 64 79 3d 79 28 69  |i)*E....  dy=y(i|
00000110  29 2d 79 31 2b 77 28 69  29 2a 45 0d 00 c8 1b 20  |)-y1+w(i)*E.... |
00000120  20 64 3d 44 2f b6 28 64  78 2a 64 78 2b 64 79 2a  | d=D/.(dx*dx+dy*|
00000130  64 79 2b 2e 34 29 0d 00  d2 16 20 20 78 31 2b 3d  |dy+.4)....  x1+=|
00000140  64 78 2a 64 3a 78 28 69  29 3d 78 31 0d 00 dc 16  |dx*d:x(i)=x1....|
00000150  20 20 79 31 2b 3d 64 79  2a 64 3a 79 28 69 29 3d  |  y1+=dy*d:y(i)=|
00000160  79 31 0d 00 e6 0e 20 20  64 3d 64 2f 32 2d 2e 35  |y1....  d=d/2-.5|
00000170  0d 00 f0 10 20 20 76 28  69 29 2b 3d 64 78 2a 64  |....  v(i)+=dx*d|
00000180  0d 00 fa 12 20 20 77 28  69 29 2b 3d 64 79 2a 64  |....  w(i)+=dy*d|
00000190  2d 67 0d 01 04 12 20 20  76 28 69 2d 31 29 2d 3d  |-g....  v(i-1)-=|
000001a0  64 78 2a 64 0d 01 0e 14  20 20 77 28 69 2d 31 29  |dx*d....  w(i-1)|
000001b0  2d 3d 64 79 2a 64 2b 67  0d 01 18 06 20 ed 0d 01  |-=dy*d+g.... ...|
000001c0  22 07 20 c8 96 0d 01 2c  10 20 62 61 6e 6b 3d 33  |". ....,. bank=3|
000001d0  2d 62 61 6e 6b 0d 01 36  12 20 c8 99 20 36 2c 31  |-bank..6. .. 6,1|
000001e0  31 33 2c 62 61 6e 6b 0d  01 40 14 20 c8 99 20 36  |13,bank..@. .. 6|
000001f0  2c 31 31 32 2c 33 2d 62  61 6e 6b 0d 01 4a 06 20  |,112,3-bank..J. |
00000200  db 0d 01 54 0a 20 ec 20  78 2c 79 0d 01 5e 0e 20  |...T. . x,y..^. |
00000210  e3 20 69 3d 31 20 b8 20  68 0d 01 68 11 20 20 df  |. i=1 . h..h.  .|
00000220  20 78 28 69 29 2c 79 28  69 29 0d 01 72 06 20 ed  | x(i),y(i)..r. .|
00000230  0d 01 7c 17 20 c8 8f 20  78 28 68 29 2c 79 28 68  |..|. .. x(h),y(h|
00000240  29 2b 34 30 2c 34 30 0d  01 86 10 20 ec 20 78 28  |)+40,40.... . x(|
00000250  68 29 2c 79 28 68 29 0d  01 90 17 20 df 20 78 28  |h),y(h).... . x(|
00000260  68 2d 36 29 2b 37 30 2c  79 28 68 2d 36 29 0d 01  |h-6)+70,y(h-6)..|
00000270  9a 15 20 df 20 78 28 68  29 2b 34 30 2c 79 28 68  |.. . x(h)+40,y(h|
00000280  2d 38 29 0d 01 a4 10 20  ec 20 78 28 68 29 2c 79  |-8).... . x(h),y|
00000290  28 68 29 0d 01 ae 17 20  df 20 78 28 68 2d 36 29  |(h).... . x(h-6)|
000002a0  2d 37 30 2c 79 28 68 2d  36 29 0d 01 b8 15 20 df  |-70,y(h-6).... .|
000002b0  20 78 28 68 29 2d 34 30  2c 79 28 68 2d 38 29 0d  | x(h)-40,y(h-8).|
000002c0  01 c2 0a 20 ec 20 78 2c  79 0d 01 cc 20 20 df 20  |... . x,y...  . |
000002d0  78 28 68 2d 32 29 2d 35  30 2c 79 2d 28 79 28 68  |x(h-2)-50,y-(y(h|
000002e0  2d 36 29 2d 79 29 2d 33  30 0d 01 d6 1e 20 df 20  |-6)-y)-30.... . |
000002f0  78 28 68 2d 36 29 2d 33  30 2c 79 2d 28 79 28 68  |x(h-6)-30,y-(y(h|
00000300  29 2d 79 29 2d 36 30 0d  01 e0 0a 20 ec 20 78 2c  |)-y)-60.... . x,|
00000310  79 0d 01 ea 20 20 df 20  78 28 68 2d 32 29 2b 35  |y...  . x(h-2)+5|
00000320  30 2c 79 2d 28 79 28 68  2d 36 29 2d 79 29 2d 33  |0,y-(y(h-6)-y)-3|
00000330  30 0d 01 f4 1e 20 df 20  78 28 68 2d 36 29 2b 33  |0.... . x(h-6)+3|
00000340  30 2c 79 2d 28 79 28 68  29 2d 79 29 2d 36 30 0d  |0,y-(y(h)-y)-60.|
00000350  01 fe 07 fd 20 a3 0d ff                           |.... ...|
00000358