Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Swarm

!AWMar94/Goodies/yass/!Yass2/Savers/Swarm

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94
Filename: !AWMar94/Goodies/yass/!Yass2/Savers/Swarm
Read OK: ✔
File size: 097D bytes
Load address: 0000
Exec address: 0000
File contents
    1REM
    2REM  Yass 2 Screen Saver Module : swarm
    3REM
    4REM  LEN copyright Ian Palmer, 1993
    5REM
    6
    7DEFFNswarm_start
    8LOCAL A%:t_swarm% = 20:t_maxw%=24:t_maxb%=16
    9t_mwx%=128:t_mwy%=128:t_Mwx%=max_x%-128:t_Mwy%=max_y%-128
   10SYS &35,-1,3 TO ,,A%:t_col%=7:IF A%>15 t_col%=0
   11t_wx% = FNmalloc(12):t_wy% = FNmalloc(12)
   12t_x% = FNmalloc(12*t_swarm%):t_y% = FNmalloc(12*t_swarm%)
   13t_xv% = FNmalloc(4*t_swarm%):t_yv% = FNmalloc(4*t_swarm%)
   14IF t_yv%=0 THEN A%=FNswarm_stop:=TRUE
   15!t_wx%=RND(max_x%):!t_wy%=RND(max_y%):t_wxv%=0:t_wyv%=0
   16t_wx%!4=!t_wx%:t_wx%!8=!t_wx%:t_wy%!4=!t_wy%:t_wy%!8=!t_wy%
   17FOR A%=0 TO t_swarm%-1
   18!(t_x%+12*A%)=RND(max_x%):!(t_y%+12*A%)=RND(max_y%)
   19!(t_x%+12*A%+4)=!(t_x%+12*A%):!(t_y%+12*A%+4)=!(t_y%+12*A%)
   20!(t_x%+12*A%+8)=!(t_x%+12*A%):!(t_y%+12*A%+8)=!(t_y%+12*A%)
   21!(t_xv%+4*A%)=RND(7)-4:!(t_yv%+4*A%)=RND(7)-4
   22NEXT
   23t_first%=TRUE:PROCclearscreen(-1)
   24=0
   25
   26DEFFNswarm_poll
   27LOCAL A%,X%,Y%,D%,B%,C%
   28PROCset_colour(3,t_col%)
   29IF NOT(t_first%) THEN MOVE t_wx%!8,t_wy%!8:DRAW t_wx%!4,t_wy%!4:DRAW !t_wx%,!t_wy%
   30t_wxv%+=RND(7)-4:t_wyv%+=RND(7)-4
   31IF t_wxv%>t_maxw% t_wxv%=t_maxw%:ELSE IF t_wxv%<-t_maxw% t_wxv%=-t_maxw%
   32IF t_wyv%>t_maxw% t_wyv%=t_maxw%:ELSE IF t_wyv%<-t_maxw% t_wyv%=-t_maxw%
   33t_wx%!8=t_wx%!4:t_wx%!4=!t_wx%:!t_wx%+=t_wxv%
   34t_wy%!8=t_wy%!4:t_wy%!4=!t_wy%:!t_wy%+=t_wyv%
   35IF !t_wx%<t_mwx% !t_wx%=t_mwx%:t_wxv%=0:ELSE IF !t_wx%>t_Mwx% !t_wx%=t_Mwx%:t_wxv%=0
   36IF !t_wy%<t_mwy% !t_wy%=t_mwy%:t_wyv%=0:ELSE IF !t_wy%>t_Mwy% !t_wy%=t_Mwy%:t_wyv%=0
   37MOVE t_wx%!8,t_wy%!8:DRAW t_wx%!4,t_wy%!4:DRAW !t_wx%,!t_wy%
   38!(t_xv%+4*(RND(t_swarm%)-1))+=RND(3)-2
   39!(t_yv%+4*(RND(t_swarm%)-1))+=RND(3)-2
   40FOR A%=0 TO t_swarm%-1:B%=12*A%:C%=4*A%
   41IF NOT(t_first%) THEN MOVE !(t_x%+B%+8),!(t_y%+B%+8):DRAW !(t_x%+B%+4),!(t_y%+B%+4):DRAW !(t_x%+B%),!(t_y%+B%)
   42!(t_x%+B%+8)=!(t_x%+B%+4):!(t_y%+B%+8)=!(t_y%+B%+4)
   43!(t_x%+B%+4)=!(t_x%+B%):!(t_y%+B%+4)=!(t_y%+B%)
   44X%=t_wx%!4-!(t_x%+B%):Y%=t_wy%!4-!(t_y%+B%)
   45D%=ABS(X%)+ABS(Y%):IF D%=0 D%=1
   46!(t_xv%+C%)+=(X%*3)/D%:!(t_yv%+C%)+=(Y%*3)/D%
   47IF !(t_xv%+C%)>t_maxb% !(t_xv%+C%)=t_maxb%:ELSE IF !(t_xv%+C%)<-t_maxb% !(t_xv%+C%)=-t_maxb%
   48IF !(t_yv%+C%)>t_maxb% !(t_yv%+C%)=t_maxb%:ELSE IF !(t_yv%+C%)<-t_maxb% !(t_yv%+C%)=-t_maxb%
   49!(t_x%+B%)+=!(t_xv%+C%):!(t_y%+B%)+=!(t_yv%+C%)
   50MOVE !(t_x%+B%+8),!(t_y%+B%+8):DRAW !(t_x%+B%+4),!(t_y%+B%+4):DRAW !(t_x%+B%),!(t_y%+B%)
   51NEXT
   52t_first%=FALSE
   53IF now_going%>12000 THEN =TRUE
   54=0
   55
   56DEFFNswarm_stop
   57PROCfree(t_wx%):PROCfree(t_wy%)
   58PROCfree(t_x%):PROCfree(t_y%)
   59PROCfree(t_xv%):PROCfree(t_yv%)
   60=0
   61

�
)�  Yass 2 Screen Saver Module : swarm
�
#�  � copyright Ian Palmer, 1993
�

ݤswarm_start
,� A%:t_swarm% = 20:t_maxw%=24:t_maxb%=16
	=t_mwx%=128:t_mwy%=128:t_Mwx%=max_x%-128:t_Mwy%=max_y%-128

0ș &35,-1,3 � ,,A%:t_col%=7:� A%>15 t_col%=0
+t_wx% = �malloc(12):t_wy% = �malloc(12)
;t_x% = �malloc(12*t_swarm%):t_y% = �malloc(12*t_swarm%)

;t_xv% = �malloc(4*t_swarm%):t_yv% = �malloc(4*t_swarm%)
!� t_yv%=0 � A%=�swarm_stop:=�
7!t_wx%=�(max_x%):!t_wy%=�(max_y%):t_wxv%=0:t_wyv%=0
?t_wx%!4=!t_wx%:t_wx%!8=!t_wx%:t_wy%!4=!t_wy%:t_wy%!8=!t_wy%
� A%=0 � t_swarm%-1
3!(t_x%+12*A%)=�(max_x%):!(t_y%+12*A%)=�(max_y%)
?!(t_x%+12*A%+4)=!(t_x%+12*A%):!(t_y%+12*A%+4)=!(t_y%+12*A%)
?!(t_x%+12*A%+8)=!(t_x%+12*A%):!(t_y%+12*A%+8)=!(t_y%+12*A%)
-!(t_xv%+4*A%)=�(7)-4:!(t_yv%+4*A%)=�(7)-4
�
t_first%=�:�clearscreen(-1)
=0

ݤswarm_poll
� A%,X%,Y%,D%,B%,C%
�set_colour(3,t_col%)
G� �(t_first%) � � t_wx%!8,t_wy%!8:� t_wx%!4,t_wy%!4:� !t_wx%,!t_wy%
!t_wxv%+=�(7)-4:t_wyv%+=�(7)-4
G� t_wxv%>t_maxw% t_wxv%=t_maxw%:� � t_wxv%<-t_maxw% t_wxv%=-t_maxw%
 G� t_wyv%>t_maxw% t_wyv%=t_maxw%:� � t_wyv%<-t_maxw% t_wyv%=-t_maxw%
!1t_wx%!8=t_wx%!4:t_wx%!4=!t_wx%:!t_wx%+=t_wxv%
"1t_wy%!8=t_wy%!4:t_wy%!4=!t_wy%:!t_wy%+=t_wyv%
#S� !t_wx%<t_mwx% !t_wx%=t_mwx%:t_wxv%=0:� � !t_wx%>t_Mwx% !t_wx%=t_Mwx%:t_wxv%=0
$S� !t_wy%<t_mwy% !t_wy%=t_mwy%:t_wyv%=0:� � !t_wy%>t_Mwy% !t_wy%=t_Mwy%:t_wyv%=0
%7� t_wx%!8,t_wy%!8:� t_wx%!4,t_wy%!4:� !t_wx%,!t_wy%
&&!(t_xv%+4*(�(t_swarm%)-1))+=�(3)-2
'&!(t_yv%+4*(�(t_swarm%)-1))+=�(3)-2
((� A%=0 � t_swarm%-1:B%=12*A%:C%=4*A%
)c� �(t_first%) � � !(t_x%+B%+8),!(t_y%+B%+8):� !(t_x%+B%+4),!(t_y%+B%+4):� !(t_x%+B%),!(t_y%+B%)
*7!(t_x%+B%+8)=!(t_x%+B%+4):!(t_y%+B%+8)=!(t_y%+B%+4)
+3!(t_x%+B%+4)=!(t_x%+B%):!(t_y%+B%+4)=!(t_y%+B%)
,/X%=t_wx%!4-!(t_x%+B%):Y%=t_wy%!4-!(t_y%+B%)
-D%=�(X%)+�(Y%):� D%=0 D%=1
.1!(t_xv%+C%)+=(X%*3)/D%:!(t_yv%+C%)+=(Y%*3)/D%
/[� !(t_xv%+C%)>t_maxb% !(t_xv%+C%)=t_maxb%:� � !(t_xv%+C%)<-t_maxb% !(t_xv%+C%)=-t_maxb%
0[� !(t_yv%+C%)>t_maxb% !(t_yv%+C%)=t_maxb%:� � !(t_yv%+C%)<-t_maxb% !(t_yv%+C%)=-t_maxb%
13!(t_x%+B%)+=!(t_xv%+C%):!(t_y%+B%)+=!(t_yv%+C%)
2S� !(t_x%+B%+8),!(t_y%+B%+8):� !(t_x%+B%+4),!(t_y%+B%+4):� !(t_x%+B%),!(t_y%+B%)
3�
4t_first%=�
5� now_going%>12000 � =�
6=0
7
8ݤswarm_stop
9�free(t_wx%):�free(t_wy%)
:�free(t_x%):�free(t_y%)
;�free(t_xv%):�free(t_yv%)
<=0
=
�
00000000  0d 00 01 05 f4 0d 00 02  29 f4 20 20 59 61 73 73  |........).  Yass|
00000010  20 32 20 53 63 72 65 65  6e 20 53 61 76 65 72 20  | 2 Screen Saver |
00000020  4d 6f 64 75 6c 65 20 3a  20 73 77 61 72 6d 0d 00  |Module : swarm..|
00000030  03 05 f4 0d 00 04 23 f4  20 20 a9 20 63 6f 70 79  |......#.  . copy|
00000040  72 69 67 68 74 20 49 61  6e 20 50 61 6c 6d 65 72  |right Ian Palmer|
00000050  2c 20 31 39 39 33 0d 00  05 05 f4 0d 00 06 04 0d  |, 1993..........|
00000060  00 07 11 dd a4 73 77 61  72 6d 5f 73 74 61 72 74  |.....swarm_start|
00000070  0d 00 08 2c ea 20 41 25  3a 74 5f 73 77 61 72 6d  |...,. A%:t_swarm|
00000080  25 20 3d 20 32 30 3a 74  5f 6d 61 78 77 25 3d 32  |% = 20:t_maxw%=2|
00000090  34 3a 74 5f 6d 61 78 62  25 3d 31 36 0d 00 09 3d  |4:t_maxb%=16...=|
000000a0  74 5f 6d 77 78 25 3d 31  32 38 3a 74 5f 6d 77 79  |t_mwx%=128:t_mwy|
000000b0  25 3d 31 32 38 3a 74 5f  4d 77 78 25 3d 6d 61 78  |%=128:t_Mwx%=max|
000000c0  5f 78 25 2d 31 32 38 3a  74 5f 4d 77 79 25 3d 6d  |_x%-128:t_Mwy%=m|
000000d0  61 78 5f 79 25 2d 31 32  38 0d 00 0a 30 c8 99 20  |ax_y%-128...0.. |
000000e0  26 33 35 2c 2d 31 2c 33  20 b8 20 2c 2c 41 25 3a  |&35,-1,3 . ,,A%:|
000000f0  74 5f 63 6f 6c 25 3d 37  3a e7 20 41 25 3e 31 35  |t_col%=7:. A%>15|
00000100  20 74 5f 63 6f 6c 25 3d  30 0d 00 0b 2b 74 5f 77  | t_col%=0...+t_w|
00000110  78 25 20 3d 20 a4 6d 61  6c 6c 6f 63 28 31 32 29  |x% = .malloc(12)|
00000120  3a 74 5f 77 79 25 20 3d  20 a4 6d 61 6c 6c 6f 63  |:t_wy% = .malloc|
00000130  28 31 32 29 0d 00 0c 3b  74 5f 78 25 20 3d 20 a4  |(12)...;t_x% = .|
00000140  6d 61 6c 6c 6f 63 28 31  32 2a 74 5f 73 77 61 72  |malloc(12*t_swar|
00000150  6d 25 29 3a 74 5f 79 25  20 3d 20 a4 6d 61 6c 6c  |m%):t_y% = .mall|
00000160  6f 63 28 31 32 2a 74 5f  73 77 61 72 6d 25 29 0d  |oc(12*t_swarm%).|
00000170  00 0d 3b 74 5f 78 76 25  20 3d 20 a4 6d 61 6c 6c  |..;t_xv% = .mall|
00000180  6f 63 28 34 2a 74 5f 73  77 61 72 6d 25 29 3a 74  |oc(4*t_swarm%):t|
00000190  5f 79 76 25 20 3d 20 a4  6d 61 6c 6c 6f 63 28 34  |_yv% = .malloc(4|
000001a0  2a 74 5f 73 77 61 72 6d  25 29 0d 00 0e 21 e7 20  |*t_swarm%)...!. |
000001b0  74 5f 79 76 25 3d 30 20  8c 20 41 25 3d a4 73 77  |t_yv%=0 . A%=.sw|
000001c0  61 72 6d 5f 73 74 6f 70  3a 3d b9 0d 00 0f 37 21  |arm_stop:=....7!|
000001d0  74 5f 77 78 25 3d b3 28  6d 61 78 5f 78 25 29 3a  |t_wx%=.(max_x%):|
000001e0  21 74 5f 77 79 25 3d b3  28 6d 61 78 5f 79 25 29  |!t_wy%=.(max_y%)|
000001f0  3a 74 5f 77 78 76 25 3d  30 3a 74 5f 77 79 76 25  |:t_wxv%=0:t_wyv%|
00000200  3d 30 0d 00 10 3f 74 5f  77 78 25 21 34 3d 21 74  |=0...?t_wx%!4=!t|
00000210  5f 77 78 25 3a 74 5f 77  78 25 21 38 3d 21 74 5f  |_wx%:t_wx%!8=!t_|
00000220  77 78 25 3a 74 5f 77 79  25 21 34 3d 21 74 5f 77  |wx%:t_wy%!4=!t_w|
00000230  79 25 3a 74 5f 77 79 25  21 38 3d 21 74 5f 77 79  |y%:t_wy%!8=!t_wy|
00000240  25 0d 00 11 17 e3 20 41  25 3d 30 20 b8 20 74 5f  |%..... A%=0 . t_|
00000250  73 77 61 72 6d 25 2d 31  0d 00 12 33 21 28 74 5f  |swarm%-1...3!(t_|
00000260  78 25 2b 31 32 2a 41 25  29 3d b3 28 6d 61 78 5f  |x%+12*A%)=.(max_|
00000270  78 25 29 3a 21 28 74 5f  79 25 2b 31 32 2a 41 25  |x%):!(t_y%+12*A%|
00000280  29 3d b3 28 6d 61 78 5f  79 25 29 0d 00 13 3f 21  |)=.(max_y%)...?!|
00000290  28 74 5f 78 25 2b 31 32  2a 41 25 2b 34 29 3d 21  |(t_x%+12*A%+4)=!|
000002a0  28 74 5f 78 25 2b 31 32  2a 41 25 29 3a 21 28 74  |(t_x%+12*A%):!(t|
000002b0  5f 79 25 2b 31 32 2a 41  25 2b 34 29 3d 21 28 74  |_y%+12*A%+4)=!(t|
000002c0  5f 79 25 2b 31 32 2a 41  25 29 0d 00 14 3f 21 28  |_y%+12*A%)...?!(|
000002d0  74 5f 78 25 2b 31 32 2a  41 25 2b 38 29 3d 21 28  |t_x%+12*A%+8)=!(|
000002e0  74 5f 78 25 2b 31 32 2a  41 25 29 3a 21 28 74 5f  |t_x%+12*A%):!(t_|
000002f0  79 25 2b 31 32 2a 41 25  2b 38 29 3d 21 28 74 5f  |y%+12*A%+8)=!(t_|
00000300  79 25 2b 31 32 2a 41 25  29 0d 00 15 2d 21 28 74  |y%+12*A%)...-!(t|
00000310  5f 78 76 25 2b 34 2a 41  25 29 3d b3 28 37 29 2d  |_xv%+4*A%)=.(7)-|
00000320  34 3a 21 28 74 5f 79 76  25 2b 34 2a 41 25 29 3d  |4:!(t_yv%+4*A%)=|
00000330  b3 28 37 29 2d 34 0d 00  16 05 ed 0d 00 17 1f 74  |.(7)-4.........t|
00000340  5f 66 69 72 73 74 25 3d  b9 3a f2 63 6c 65 61 72  |_first%=.:.clear|
00000350  73 63 72 65 65 6e 28 2d  31 29 0d 00 18 06 3d 30  |screen(-1)....=0|
00000360  0d 00 19 04 0d 00 1a 10  dd a4 73 77 61 72 6d 5f  |..........swarm_|
00000370  70 6f 6c 6c 0d 00 1b 17  ea 20 41 25 2c 58 25 2c  |poll..... A%,X%,|
00000380  59 25 2c 44 25 2c 42 25  2c 43 25 0d 00 1c 19 f2  |Y%,D%,B%,C%.....|
00000390  73 65 74 5f 63 6f 6c 6f  75 72 28 33 2c 74 5f 63  |set_colour(3,t_c|
000003a0  6f 6c 25 29 0d 00 1d 47  e7 20 ac 28 74 5f 66 69  |ol%)...G. .(t_fi|
000003b0  72 73 74 25 29 20 8c 20  ec 20 74 5f 77 78 25 21  |rst%) . . t_wx%!|
000003c0  38 2c 74 5f 77 79 25 21  38 3a df 20 74 5f 77 78  |8,t_wy%!8:. t_wx|
000003d0  25 21 34 2c 74 5f 77 79  25 21 34 3a df 20 21 74  |%!4,t_wy%!4:. !t|
000003e0  5f 77 78 25 2c 21 74 5f  77 79 25 0d 00 1e 21 74  |_wx%,!t_wy%...!t|
000003f0  5f 77 78 76 25 2b 3d b3  28 37 29 2d 34 3a 74 5f  |_wxv%+=.(7)-4:t_|
00000400  77 79 76 25 2b 3d b3 28  37 29 2d 34 0d 00 1f 47  |wyv%+=.(7)-4...G|
00000410  e7 20 74 5f 77 78 76 25  3e 74 5f 6d 61 78 77 25  |. t_wxv%>t_maxw%|
00000420  20 74 5f 77 78 76 25 3d  74 5f 6d 61 78 77 25 3a  | t_wxv%=t_maxw%:|
00000430  8b 20 e7 20 74 5f 77 78  76 25 3c 2d 74 5f 6d 61  |. . t_wxv%<-t_ma|
00000440  78 77 25 20 74 5f 77 78  76 25 3d 2d 74 5f 6d 61  |xw% t_wxv%=-t_ma|
00000450  78 77 25 0d 00 20 47 e7  20 74 5f 77 79 76 25 3e  |xw%.. G. t_wyv%>|
00000460  74 5f 6d 61 78 77 25 20  74 5f 77 79 76 25 3d 74  |t_maxw% t_wyv%=t|
00000470  5f 6d 61 78 77 25 3a 8b  20 e7 20 74 5f 77 79 76  |_maxw%:. . t_wyv|
00000480  25 3c 2d 74 5f 6d 61 78  77 25 20 74 5f 77 79 76  |%<-t_maxw% t_wyv|
00000490  25 3d 2d 74 5f 6d 61 78  77 25 0d 00 21 31 74 5f  |%=-t_maxw%..!1t_|
000004a0  77 78 25 21 38 3d 74 5f  77 78 25 21 34 3a 74 5f  |wx%!8=t_wx%!4:t_|
000004b0  77 78 25 21 34 3d 21 74  5f 77 78 25 3a 21 74 5f  |wx%!4=!t_wx%:!t_|
000004c0  77 78 25 2b 3d 74 5f 77  78 76 25 0d 00 22 31 74  |wx%+=t_wxv%.."1t|
000004d0  5f 77 79 25 21 38 3d 74  5f 77 79 25 21 34 3a 74  |_wy%!8=t_wy%!4:t|
000004e0  5f 77 79 25 21 34 3d 21  74 5f 77 79 25 3a 21 74  |_wy%!4=!t_wy%:!t|
000004f0  5f 77 79 25 2b 3d 74 5f  77 79 76 25 0d 00 23 53  |_wy%+=t_wyv%..#S|
00000500  e7 20 21 74 5f 77 78 25  3c 74 5f 6d 77 78 25 20  |. !t_wx%<t_mwx% |
00000510  21 74 5f 77 78 25 3d 74  5f 6d 77 78 25 3a 74 5f  |!t_wx%=t_mwx%:t_|
00000520  77 78 76 25 3d 30 3a 8b  20 e7 20 21 74 5f 77 78  |wxv%=0:. . !t_wx|
00000530  25 3e 74 5f 4d 77 78 25  20 21 74 5f 77 78 25 3d  |%>t_Mwx% !t_wx%=|
00000540  74 5f 4d 77 78 25 3a 74  5f 77 78 76 25 3d 30 0d  |t_Mwx%:t_wxv%=0.|
00000550  00 24 53 e7 20 21 74 5f  77 79 25 3c 74 5f 6d 77  |.$S. !t_wy%<t_mw|
00000560  79 25 20 21 74 5f 77 79  25 3d 74 5f 6d 77 79 25  |y% !t_wy%=t_mwy%|
00000570  3a 74 5f 77 79 76 25 3d  30 3a 8b 20 e7 20 21 74  |:t_wyv%=0:. . !t|
00000580  5f 77 79 25 3e 74 5f 4d  77 79 25 20 21 74 5f 77  |_wy%>t_Mwy% !t_w|
00000590  79 25 3d 74 5f 4d 77 79  25 3a 74 5f 77 79 76 25  |y%=t_Mwy%:t_wyv%|
000005a0  3d 30 0d 00 25 37 ec 20  74 5f 77 78 25 21 38 2c  |=0..%7. t_wx%!8,|
000005b0  74 5f 77 79 25 21 38 3a  df 20 74 5f 77 78 25 21  |t_wy%!8:. t_wx%!|
000005c0  34 2c 74 5f 77 79 25 21  34 3a df 20 21 74 5f 77  |4,t_wy%!4:. !t_w|
000005d0  78 25 2c 21 74 5f 77 79  25 0d 00 26 26 21 28 74  |x%,!t_wy%..&&!(t|
000005e0  5f 78 76 25 2b 34 2a 28  b3 28 74 5f 73 77 61 72  |_xv%+4*(.(t_swar|
000005f0  6d 25 29 2d 31 29 29 2b  3d b3 28 33 29 2d 32 0d  |m%)-1))+=.(3)-2.|
00000600  00 27 26 21 28 74 5f 79  76 25 2b 34 2a 28 b3 28  |.'&!(t_yv%+4*(.(|
00000610  74 5f 73 77 61 72 6d 25  29 2d 31 29 29 2b 3d b3  |t_swarm%)-1))+=.|
00000620  28 33 29 2d 32 0d 00 28  28 e3 20 41 25 3d 30 20  |(3)-2..((. A%=0 |
00000630  b8 20 74 5f 73 77 61 72  6d 25 2d 31 3a 42 25 3d  |. t_swarm%-1:B%=|
00000640  31 32 2a 41 25 3a 43 25  3d 34 2a 41 25 0d 00 29  |12*A%:C%=4*A%..)|
00000650  63 e7 20 ac 28 74 5f 66  69 72 73 74 25 29 20 8c  |c. .(t_first%) .|
00000660  20 ec 20 21 28 74 5f 78  25 2b 42 25 2b 38 29 2c  | . !(t_x%+B%+8),|
00000670  21 28 74 5f 79 25 2b 42  25 2b 38 29 3a df 20 21  |!(t_y%+B%+8):. !|
00000680  28 74 5f 78 25 2b 42 25  2b 34 29 2c 21 28 74 5f  |(t_x%+B%+4),!(t_|
00000690  79 25 2b 42 25 2b 34 29  3a df 20 21 28 74 5f 78  |y%+B%+4):. !(t_x|
000006a0  25 2b 42 25 29 2c 21 28  74 5f 79 25 2b 42 25 29  |%+B%),!(t_y%+B%)|
000006b0  0d 00 2a 37 21 28 74 5f  78 25 2b 42 25 2b 38 29  |..*7!(t_x%+B%+8)|
000006c0  3d 21 28 74 5f 78 25 2b  42 25 2b 34 29 3a 21 28  |=!(t_x%+B%+4):!(|
000006d0  74 5f 79 25 2b 42 25 2b  38 29 3d 21 28 74 5f 79  |t_y%+B%+8)=!(t_y|
000006e0  25 2b 42 25 2b 34 29 0d  00 2b 33 21 28 74 5f 78  |%+B%+4)..+3!(t_x|
000006f0  25 2b 42 25 2b 34 29 3d  21 28 74 5f 78 25 2b 42  |%+B%+4)=!(t_x%+B|
00000700  25 29 3a 21 28 74 5f 79  25 2b 42 25 2b 34 29 3d  |%):!(t_y%+B%+4)=|
00000710  21 28 74 5f 79 25 2b 42  25 29 0d 00 2c 2f 58 25  |!(t_y%+B%)..,/X%|
00000720  3d 74 5f 77 78 25 21 34  2d 21 28 74 5f 78 25 2b  |=t_wx%!4-!(t_x%+|
00000730  42 25 29 3a 59 25 3d 74  5f 77 79 25 21 34 2d 21  |B%):Y%=t_wy%!4-!|
00000740  28 74 5f 79 25 2b 42 25  29 0d 00 2d 1e 44 25 3d  |(t_y%+B%)..-.D%=|
00000750  94 28 58 25 29 2b 94 28  59 25 29 3a e7 20 44 25  |.(X%)+.(Y%):. D%|
00000760  3d 30 20 44 25 3d 31 0d  00 2e 31 21 28 74 5f 78  |=0 D%=1...1!(t_x|
00000770  76 25 2b 43 25 29 2b 3d  28 58 25 2a 33 29 2f 44  |v%+C%)+=(X%*3)/D|
00000780  25 3a 21 28 74 5f 79 76  25 2b 43 25 29 2b 3d 28  |%:!(t_yv%+C%)+=(|
00000790  59 25 2a 33 29 2f 44 25  0d 00 2f 5b e7 20 21 28  |Y%*3)/D%../[. !(|
000007a0  74 5f 78 76 25 2b 43 25  29 3e 74 5f 6d 61 78 62  |t_xv%+C%)>t_maxb|
000007b0  25 20 21 28 74 5f 78 76  25 2b 43 25 29 3d 74 5f  |% !(t_xv%+C%)=t_|
000007c0  6d 61 78 62 25 3a 8b 20  e7 20 21 28 74 5f 78 76  |maxb%:. . !(t_xv|
000007d0  25 2b 43 25 29 3c 2d 74  5f 6d 61 78 62 25 20 21  |%+C%)<-t_maxb% !|
000007e0  28 74 5f 78 76 25 2b 43  25 29 3d 2d 74 5f 6d 61  |(t_xv%+C%)=-t_ma|
000007f0  78 62 25 0d 00 30 5b e7  20 21 28 74 5f 79 76 25  |xb%..0[. !(t_yv%|
00000800  2b 43 25 29 3e 74 5f 6d  61 78 62 25 20 21 28 74  |+C%)>t_maxb% !(t|
00000810  5f 79 76 25 2b 43 25 29  3d 74 5f 6d 61 78 62 25  |_yv%+C%)=t_maxb%|
00000820  3a 8b 20 e7 20 21 28 74  5f 79 76 25 2b 43 25 29  |:. . !(t_yv%+C%)|
00000830  3c 2d 74 5f 6d 61 78 62  25 20 21 28 74 5f 79 76  |<-t_maxb% !(t_yv|
00000840  25 2b 43 25 29 3d 2d 74  5f 6d 61 78 62 25 0d 00  |%+C%)=-t_maxb%..|
00000850  31 33 21 28 74 5f 78 25  2b 42 25 29 2b 3d 21 28  |13!(t_x%+B%)+=!(|
00000860  74 5f 78 76 25 2b 43 25  29 3a 21 28 74 5f 79 25  |t_xv%+C%):!(t_y%|
00000870  2b 42 25 29 2b 3d 21 28  74 5f 79 76 25 2b 43 25  |+B%)+=!(t_yv%+C%|
00000880  29 0d 00 32 53 ec 20 21  28 74 5f 78 25 2b 42 25  |)..2S. !(t_x%+B%|
00000890  2b 38 29 2c 21 28 74 5f  79 25 2b 42 25 2b 38 29  |+8),!(t_y%+B%+8)|
000008a0  3a df 20 21 28 74 5f 78  25 2b 42 25 2b 34 29 2c  |:. !(t_x%+B%+4),|
000008b0  21 28 74 5f 79 25 2b 42  25 2b 34 29 3a df 20 21  |!(t_y%+B%+4):. !|
000008c0  28 74 5f 78 25 2b 42 25  29 2c 21 28 74 5f 79 25  |(t_x%+B%),!(t_y%|
000008d0  2b 42 25 29 0d 00 33 05  ed 0d 00 34 0e 74 5f 66  |+B%)..3....4.t_f|
000008e0  69 72 73 74 25 3d a3 0d  00 35 1b e7 20 6e 6f 77  |irst%=...5.. now|
000008f0  5f 67 6f 69 6e 67 25 3e  31 32 30 30 30 20 8c 20  |_going%>12000 . |
00000900  3d b9 0d 00 36 06 3d 30  0d 00 37 04 0d 00 38 10  |=...6.=0..7...8.|
00000910  dd a4 73 77 61 72 6d 5f  73 74 6f 70 0d 00 39 1d  |..swarm_stop..9.|
00000920  f2 66 72 65 65 28 74 5f  77 78 25 29 3a f2 66 72  |.free(t_wx%):.fr|
00000930  65 65 28 74 5f 77 79 25  29 0d 00 3a 1b f2 66 72  |ee(t_wy%)..:..fr|
00000940  65 65 28 74 5f 78 25 29  3a f2 66 72 65 65 28 74  |ee(t_x%):.free(t|
00000950  5f 79 25 29 0d 00 3b 1d  f2 66 72 65 65 28 74 5f  |_y%)..;..free(t_|
00000960  78 76 25 29 3a f2 66 72  65 65 28 74 5f 79 76 25  |xv%):.free(t_yv%|
00000970  29 0d 00 3c 06 3d 30 0d  00 3d 04 0d ff           |)..<.=0..=...|
0000097d

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .