�     >Cabbage (Info9)
� By  Jan Vibe
� For 32-bit machines
(� (c) BAU May 1993
2:
<
� 13:�
F� dx(8),dy(8),col(7)
P� �=21 step=2 � step=4
Z
� i=1 � 8
d � dx,dy
n dx(i)=dx*step
x dy(i)=dy*step
��
�col()=0,1,4,5,16,17,20,21
��
� � i=1 � 10
�  rnd1=�(8)
�  �
�   rnd2=�(8)
�  � rnd2<>rnd1
�  Ȕ dx(rnd1),dx(rnd2)
�  Ȕ dy(rnd1),dy(rnd2)
� �
� count=0
� �

  x=�(1279)

  y=�(1023)

  count+=1

" � �x,y)=0 � count=5000

,- � count<5000 �cabbage(x,y,�(7),�(75)+25)

6� count=5000

@�

J:

T� �cabbage(x,y,col,depth)

^� dir,gcol

hgcol=(depth � 4) � 12+4

r*� (gcol � 4)*col(col) Ȝ (gcol � 4)<<6

|
Ȓ x,y

�� depth>=2 �

� � dir=1 � 8

�I  � �x+dx(dir),y+dy(dir))=0 �cabbage(x+dx(dir),y+dy(dir),col,depth-1)

� �

��

��

�:

�+� -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,1
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 43 61 62 62 61  |.....     >Cabba|
00000010  67 65 20 28 49 6e 66 6f  39 29 0d 00 14 12 f4 20  |ge (Info9)..... |
00000020  42 79 20 20 4a 61 6e 20  56 69 62 65 0d 00 1e 19  |By  Jan Vibe....|
00000030  f4 20 46 6f 72 20 33 32  2d 62 69 74 20 6d 61 63  |. For 32-bit mac|
00000040  68 69 6e 65 73 0d 00 28  16 f4 20 28 63 29 20 42  |hines..(.. (c) B|
00000050  41 55 20 4d 61 79 20 31  39 39 33 0d 00 32 05 3a  |AU May 1993..2.:|
00000060  0d 00 3c 0a eb 20 31 33  3a 87 0d 00 46 18 de 20  |..<.. 13:...F.. |
00000070  64 78 28 38 29 2c 64 79  28 38 29 2c 63 6f 6c 28  |dx(8),dy(8),col(|
00000080  37 29 0d 00 50 1a e7 20  eb 3d 32 31 20 73 74 65  |7)..P.. .=21 ste|
00000090  70 3d 32 20 8b 20 73 74  65 70 3d 34 0d 00 5a 0d  |p=2 . step=4..Z.|
000000a0  e3 20 69 3d 31 20 b8 20  38 0d 00 64 0c 20 f3 20  |. i=1 . 8..d. . |
000000b0  64 78 2c 64 79 0d 00 6e  12 20 64 78 28 69 29 3d  |dx,dy..n. dx(i)=|
000000c0  64 78 2a 73 74 65 70 0d  00 78 12 20 64 79 28 69  |dx*step..x. dy(i|
000000d0  29 3d 64 79 2a 73 74 65  70 0d 00 82 05 ed 0d 00  |)=dy*step.......|
000000e0  8c 1d 63 6f 6c 28 29 3d  30 2c 31 2c 34 2c 35 2c  |..col()=0,1,4,5,|
000000f0  31 36 2c 31 37 2c 32 30  2c 32 31 0d 00 96 05 f5  |16,17,20,21.....|
00000100  0d 00 a0 0f 20 e3 20 69  3d 31 20 b8 20 31 30 0d  |.... . i=1 . 10.|
00000110  00 aa 0f 20 20 72 6e 64  31 3d b3 28 38 29 0d 00  |...  rnd1=.(8)..|
00000120  b4 07 20 20 f5 0d 00 be  10 20 20 20 72 6e 64 32  |..  .....   rnd2|
00000130  3d b3 28 38 29 0d 00 c8  12 20 20 fd 20 72 6e 64  |=.(8)....  . rnd|
00000140  32 3c 3e 72 6e 64 31 0d  00 d2 1a 20 20 c8 94 20  |2<>rnd1....  .. |
00000150  64 78 28 72 6e 64 31 29  2c 64 78 28 72 6e 64 32  |dx(rnd1),dx(rnd2|
00000160  29 0d 00 dc 1a 20 20 c8  94 20 64 79 28 72 6e 64  |)....  .. dy(rnd|
00000170  31 29 2c 64 79 28 72 6e  64 32 29 0d 00 e6 06 20  |1),dy(rnd2).... |
00000180  ed 0d 00 f0 0c 20 63 6f  75 6e 74 3d 30 0d 00 fa  |..... count=0...|
00000190  06 20 f5 0d 01 04 0f 20  20 78 3d b3 28 31 32 37  |. .....  x=.(127|
000001a0  39 29 0d 01 0e 0f 20 20  79 3d b3 28 31 30 32 33  |9)....  y=.(1023|
000001b0  29 0d 01 18 0e 20 20 63  6f 75 6e 74 2b 3d 31 0d  |)....  count+=1.|
000001c0  01 22 1b 20 fd 20 b0 78  2c 79 29 3d 30 20 84 20  |.". . .x,y)=0 . |
000001d0  63 6f 75 6e 74 3d 35 30  30 30 0d 01 2c 2d 20 e7  |count=5000..,- .|
000001e0  20 63 6f 75 6e 74 3c 35  30 30 30 20 f2 63 61 62  | count<5000 .cab|
000001f0  62 61 67 65 28 78 2c 79  2c b3 28 37 29 2c b3 28  |bage(x,y,.(7),.(|
00000200  37 35 29 2b 32 35 29 0d  01 36 10 fd 20 63 6f 75  |75)+25)..6.. cou|
00000210  6e 74 3d 35 30 30 30 0d  01 40 05 e0 0d 01 4a 05  |nt=5000..@....J.|
00000220  3a 0d 01 54 1d dd 20 f2  63 61 62 62 61 67 65 28  |:..T.. .cabbage(|
00000230  78 2c 79 2c 63 6f 6c 2c  64 65 70 74 68 29 0d 01  |x,y,col,depth)..|
00000240  5e 0e ea 20 64 69 72 2c  67 63 6f 6c 0d 01 68 1b  |^.. dir,gcol..h.|
00000250  67 63 6f 6c 3d 28 64 65  70 74 68 20 81 20 34 29  |gcol=(depth . 4)|
00000260  20 83 20 31 32 2b 34 0d  01 72 2a e6 20 28 67 63  | . 12+4..r*. (gc|
00000270  6f 6c 20 81 20 34 29 2a  63 6f 6c 28 63 6f 6c 29  |ol . 4)*col(col)|
00000280  20 c8 9c 20 28 67 63 6f  6c 20 83 20 34 29 3c 3c  | .. (gcol . 4)<<|
00000290  36 0d 01 7c 0a c8 92 20  78 2c 79 0d 01 86 10 e7  |6..|... x,y.....|
000002a0  20 64 65 70 74 68 3e 3d  32 20 8c 0d 01 90 10 20  | depth>=2 ..... |
000002b0  e3 20 64 69 72 3d 31 20  b8 20 38 0d 01 9a 49 20  |. dir=1 . 8...I |
000002c0  20 e7 20 b0 78 2b 64 78  28 64 69 72 29 2c 79 2b  | . .x+dx(dir),y+|
000002d0  64 79 28 64 69 72 29 29  3d 30 20 f2 63 61 62 62  |dy(dir))=0 .cabb|
000002e0  61 67 65 28 78 2b 64 78  28 64 69 72 29 2c 79 2b  |age(x+dx(dir),y+|
000002f0  64 79 28 64 69 72 29 2c  63 6f 6c 2c 64 65 70 74  |dy(dir),col,dept|
00000300  68 2d 31 29 0d 01 a4 06  20 ed 0d 01 ae 05 cd 0d  |h-1).... .......|
00000310  01 b8 05 e1 0d 01 c2 05  3a 0d 01 cc 2b dc 20 2d  |........:...+. -|
00000320  31 2c 2d 31 2c 30 2c 2d  31 2c 31 2c 2d 31 2c 2d  |1,-1,0,-1,1,-1,-|
00000330  31 2c 30 2c 31 2c 30 2c  2d 31 2c 31 2c 30 2c 31  |1,0,1,0,-1,1,0,1|
00000340  2c 31 2c 31 0d ff                                 |,1,1..|
00000346