!AWFeb93/Goodies/Imagery/!TinyImage/Overlays/25

Home » Archimedes archive » Archimedes World » AW-1993-02.adf » AWFeb93 » !AWFeb93/Goodies/Imagery/!TinyImage/Overlays/25

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 » Archimedes archive » Archimedes World » AW-1993-02.adf » AWFeb93
Filename:	!AWFeb93/Goodies/Imagery/!TinyImage/Overlays/25
Read OK:	✔
File size:	0F9C bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn Computing » 1993 01 Mega Disk.adf » !_93_01 » Imagery/!TinyImage/Overlays/25
Archimedes archive » Archimedes World » AW-1993-02.adf » AWFeb93 » !AWFeb93/Goodies/Imagery/!TinyImage/Overlays/25

File contents

40000REM><Imagery$Dir>.Overlays.25
40010DEFPROCpoll_25
40020PROCinpic:GCOL3,63:PLOT69,300,300:PLOT69,300,300:PROCpicpos
40030IF X%=OX% AND Y%=OY% THEN 40050
40040PROCmapline
40050IF BUT%<>1 AND BUT%<>4 THEN PROCoutpic:PROCquickdrawmain:ENDPROC
40060IF BUT%=4 THEN 40180
40070PROCeoc
40080CASE FUCO% OF
40090WHEN 2:LINE X%(1),Y%(1),X%,Y%
40100WHEN 3:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%,Y%
40110WHEN 4:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%,Y%:LINE X%,Y%,X%(1),Y%(1)
40120WHEN 5:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1)
40130WHEN 6:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),X%,Y%
40140WHEN 7:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),X%(6),Y%(6):LINE X%(6),Y%(6),X%,Y%
40150WHEN 8:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),X%(6),Y%(6):LINE X%(6),Y%(6),X%(7),Y%(7):LINE X%(7),Y%(7),X%,Y%:LINE X%(5),Y%(5),X%,Y%
40160ENDCASE
40170FUCO%=1:PROCletgo:PROCoutpic:PROCquickdrawmain:ENDPROC
40180PROCeoc
40190IF FUCO%=8 THEN GOTO 40230
40200X%(FUCO%)=X%:Y%(FUCO%)=Y%:IF FUCO%<>4 THEN LINE X%(FUCO%),Y%(FUCO%),X%,Y%
40210IF FUCO%=3 OR FUCO%=7 THEN LINE X%(FUCO%-2),Y%(FUCO%-2),X%,Y%
40220OX%=X%:OY%=Y%:FUCO%+=1:PROCletgo:ENDPROC
40230X%(8)=X%:Y%(8)=Y%:FORL%=1 TO 3:LINE X%(L%),Y%(L%),X%(L%+1),Y%(L%+1):LINE X%(L%+4),Y%(L%+4),X%(L%+5),Y%(L%+5):NEXT:LINE X%(1),Y%(1),X%(4),Y%(4):LINE X%(5),Y%(5),X%(8),Y%(8):FUCO%=1
40240PROCoutpic:PROCquickdrawmain:PROCpixelmap
40250ENDPROC
40260
40270DEFPROCmapline
40280CASE FUCO% OF
40290WHEN 2:PROCeoc:LINE X%(1),Y%(1),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(1),Y%(1),X%,Y%
40300WHEN 3:PROCeoc:LINE X%(2),Y%(2),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(2),Y%(2),X%,Y%
40310WHEN 4:PROCeoc:LINE X%(1),Y%(1),OX%,OY%:LINE X%(3),Y%(3),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(1),Y%(1),X%,Y%:LINE X%(3),Y%(3),X%,Y%
40320WHEN 6:PROCeoc:LINE X%(5),Y%(5),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(5),Y%(5),X%,Y%
40330WHEN 7:PROCeoc:LINE X%(6),Y%(6),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(6),Y%(6),X%,Y%
40340WHEN 8:PROCeoc:LINE X%(5),Y%(5),OX%,OY%:LINE X%(7),Y%(7),OX%,OY%:OX%=X%:OY%=Y%:LINE X%(5),Y%(5),X%,Y%:LINE X%(7),Y%(7),X%,Y%
40350ENDCASE
40360ENDPROC
40370
40380DEFPROCpixelmap
40390PROCspinit:PROCspbuf(161*1024):IF Q% THEN PROCspbuferr
40400PROCbackuppic
40410SYS "Hourglass_On"
40420dsta=SQR((X%(6)-X%(5))^2+(Y%(5)-Y%(6))^2)
40430dstb=SQR((X%(8)-X%(7))^2+(Y%(7)-Y%(8))^2)
40440IF dsta>dstb THEN steps%=dsta DIV2 ELSE steps%=dstb DIV2
40450fxsa=(X%(2)-X%(1))/steps%
40460fxsb=(X%(3)-X%(4))/steps%
40470fysa=(Y%(2)-Y%(1))/steps%
40480fysb=(Y%(3)-Y%(4))/steps%
40490txsa=(X%(6)-X%(5))/steps%
40500txsb=(X%(7)-X%(8))/steps%
40510tysa=(Y%(6)-Y%(5))/steps%
40520tysb=(Y%(7)-Y%(8))/steps%
40530FOR cb%=0 TO steps%
40540fxa=X%(1)+cb%*fxsa
40550fxb=X%(4)+cb%*fxsb
40560fya=Y%(1)+cb%*fysa
40570fyb=Y%(4)+cb%*fysb
40580txa=X%(5)+cb%*txsa
40590txb=X%(8)+cb%*txsb
40600tya=Y%(5)+cb%*tysa
40610tyb=Y%(8)+cb%*tysb
40620PROCinpic:GCOL3,63:PLOT69,300,300:PLOT69,300,300:PROCmapln:PROCoutpic:PROCquickdrawmain
40630NEXT
40640PROCspinit
40650SYS "Hourglass_Off"
40660ENDPROC
40670
40680DEFPROCmapln
40690LOCAL ns%,fxs,fys,txs,tys,c%
40700ns%=1+SQR((txb-txa)^2+(tya-tyb)^2) DIV2
40710fxs=(fxb-fxa)/ns%:txs=(txb-txa)/ns%
40720fys=(fyb-fya)/ns%:tys=(tyb-tya)/ns%
40730FOR c%=0 TO ns%
40740SYS&2E,297,SPBUF%,"PIC",(fxa+c%*fxs)DIV2,(fya+c%*fys)DIV4 TO ,,,,,col%,tin%:GCOL USE%,col% TINT tin%
40750IF TRASP%?FNfindpalent(col%,tin%)=0 THEN PLOT69,txa+c%*txs,tya+c%*tys
40760NEXT
40770ENDPROC
40780
40790DEFPROCkill_25
40800PROCinpic
40810PROCeoc
40820CASE FUCO% OF
40830WHEN 2:LINE X%(1),Y%(1),X%,Y%
40840WHEN 3:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%,Y%
40850WHEN 4:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),OX%,OY%:LINE OX%,OY%,X%(1),Y%(1)
40860WHEN 5:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1)
40870WHEN 6:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),OX%,OY%
40880WHEN 7:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),X%(6),Y%(6):LINE X%(6),Y%(6),OX%,OY%
40890WHEN 8:LINE X%(1),Y%(1),X%(2),Y%(2):LINE X%(2),Y%(2),X%(3),Y%(3):LINE X%(3),Y%(3),X%(4),Y%(4):LINE X%(4),Y%(4),X%(1),Y%(1):LINE X%(5),Y%(5),X%(6),Y%(6):LINE X%(6),Y%(6),X%(7),Y%(7):LINE X%(7),Y%(7),OX%,OY%:LINE X%(5),Y%(5),OX%,OY%
40900ENDCASE
40910FUCO%=1:PROCoutpic:PROCquickdrawmain:PROCletgo
40920ENDPROC

�@�><Imagery$Dir>.Overlays.25
�J
��poll_25
�T0�inpic:�3,63:�69,300,300:�69,300,300:�picpos
�^� X%=OX% � Y%=OY% � �Lr\
�h�mapline
�r2� BUT%<>1 � BUT%<>4 � �outpic:�quickdrawmain:�
�|� BUT%=4 � �lt\
���eoc
��Ȏ FUCO% �
��� 2:� X%(1),Y%(1),X%,Y%
��5� 3:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%,Y%
��c� 4:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%,Y%:� X%,Y%,X%(1),Y%(1)
��o� 5:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1)
�� 6:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),X%,Y%
�̝� 7:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),X%(6),Y%(6):� X%(6),Y%(6),X%,Y%
���� 8:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),X%(6),Y%(6):� X%(6),Y%(6),X%(7),Y%(7):� X%(7),Y%(7),X%,Y%:� X%(5),Y%(5),X%,Y%
���
��+FUCO%=1:�letgo:�outpic:�quickdrawmain:�
���eoc
��� FUCO%=8 � � �\f]
�FX%(FUCO%)=X%:Y%(FUCO%)=Y%:� FUCO%<>4 � � X%(FUCO%),Y%(FUCO%),X%,Y%
�9� FUCO%=3 � FUCO%=7 � � X%(FUCO%-2),Y%(FUCO%-2),X%,Y%
�#OX%=X%:OY%=Y%:FUCO%+=1:�letgo:�
�&�X%(8)=X%:Y%(8)=Y%:�L%=1 � 3:� X%(L%),Y%(L%),X%(L%+1),Y%(L%+1):� X%(L%+4),Y%(L%+4),X%(L%+5),Y%(L%+5):�:� X%(1),Y%(1),X%(4),Y%(4):� X%(5),Y%(5),X%(8),Y%(8):FUCO%=1
�0$�outpic:�quickdrawmain:�pixelmap
�:�
�D
�N
��mapline
�XȎ FUCO% �
�bD� 2:�eoc:� X%(1),Y%(1),OX%,OY%:OX%=X%:OY%=Y%:� X%(1),Y%(1),X%,Y%
�lD� 3:�eoc:� X%(2),Y%(2),OX%,OY%:OX%=X%:OY%=Y%:� X%(2),Y%(2),X%,Y%
�vn� 4:�eoc:� X%(1),Y%(1),OX%,OY%:� X%(3),Y%(3),OX%,OY%:OX%=X%:OY%=Y%:� X%(1),Y%(1),X%,Y%:� X%(3),Y%(3),X%,Y%
��D� 6:�eoc:� X%(5),Y%(5),OX%,OY%:OX%=X%:OY%=Y%:� X%(5),Y%(5),X%,Y%
��D� 7:�eoc:� X%(6),Y%(6),OX%,OY%:OX%=X%:OY%=Y%:� X%(6),Y%(6),X%,Y%
��n� 8:�eoc:� X%(5),Y%(5),OX%,OY%:� X%(7),Y%(7),OX%,OY%:OX%=X%:OY%=Y%:� X%(5),Y%(5),X%,Y%:� X%(7),Y%(7),X%,Y%
���
���
��
����pixelmap
��-�spinit:�spbuf(161*1024):� Q% � �spbuferr
���backuppic
��ș "Hourglass_On"
��+dsta=�((X%(6)-X%(5))^2+(Y%(5)-Y%(6))^2)
��+dstb=�((X%(8)-X%(7))^2+(Y%(7)-Y%(8))^2)
��1� dsta>dstb � steps%=dsta �2 � steps%=dstb �2
�fxsa=(X%(2)-X%(1))/steps%
�fxsb=(X%(3)-X%(4))/steps%
�fysa=(Y%(2)-Y%(1))/steps%
� fysb=(Y%(3)-Y%(4))/steps%
�*txsa=(X%(6)-X%(5))/steps%
�4txsb=(X%(7)-X%(8))/steps%
�>tysa=(Y%(6)-Y%(5))/steps%
�Htysb=(Y%(7)-Y%(8))/steps%
�R� cb%=0 � steps%
�\fxa=X%(1)+cb%*fxsa
�ffxb=X%(4)+cb%*fxsb
�pfya=Y%(1)+cb%*fysa
�zfyb=Y%(4)+cb%*fysb
��txa=X%(5)+cb%*txsa
��txb=X%(8)+cb%*txsb
��tya=Y%(5)+cb%*tysa
��tyb=Y%(8)+cb%*tysb
��F�inpic:�3,63:�69,300,300:�69,300,300:�mapln:�outpic:�quickdrawmain
���
���spinit
��ș "Hourglass_Off"
���
��
����mapln
��� ns%,fxs,fys,txs,tys,c%
��'ns%=1+�((txb-txa)^2+(tya-tyb)^2) �2
�'fxs=(fxb-fxa)/ns%:txs=(txb-txa)/ns%
�'fys=(fyb-fya)/ns%:tys=(tyb-tya)/ns%
�� c%=0 � ns%
�$]ș&2E,297,SPBUF%,"PIC",(fxa+c%*fxs)�2,(fya+c%*fys)�4 � ,,,,,col%,tin%:� USE%,col% Ȝ tin%
�.A� TRASP%?�findpalent(col%,tin%)=0 � �69,txa+c%*txs,tya+c%*tys
�8�
�B�
�L
�V
��kill_25
�`
�inpic
�j�eoc
�tȎ FUCO% �
�~� 2:� X%(1),Y%(1),X%,Y%
��5� 3:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%,Y%
��g� 4:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),OX%,OY%:� OX%,OY%,X%(1),Y%(1)
��o� 5:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1)
���� 6:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),OX%,OY%
���� 7:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),X%(6),Y%(6):� X%(6),Y%(6),OX%,OY%
���� 8:� X%(1),Y%(1),X%(2),Y%(2):� X%(2),Y%(2),X%(3),Y%(3):� X%(3),Y%(3),X%(4),Y%(4):� X%(4),Y%(4),X%(1),Y%(1):� X%(5),Y%(5),X%(6),Y%(6):� X%(6),Y%(6),X%(7),Y%(7):� X%(7),Y%(7),OX%,OY%:� X%(5),Y%(5),OX%,OY%
���
��)FUCO%=1:�outpic:�quickdrawmain:�letgo
���
�

00000000  0d 9c 40 1f f4 3e 3c 49  6d 61 67 65 72 79 24 44  |..@..><Imagery$D|
00000010  69 72 3e 2e 4f 76 65 72  6c 61 79 73 2e 32 35 0d  |ir>.Overlays.25.|
00000020  9c 4a 0d dd f2 70 6f 6c  6c 5f 32 35 0d 9c 54 30  |.J...poll_25..T0|
00000030  f2 69 6e 70 69 63 3a e6  33 2c 36 33 3a f0 36 39  |.inpic:.3,63:.69|
00000040  2c 33 30 30 2c 33 30 30  3a f0 36 39 2c 33 30 30  |,300,300:.69,300|
00000050  2c 33 30 30 3a f2 70 69  63 70 6f 73 0d 9c 5e 1c  |,300:.picpos..^.|
00000060  e7 20 58 25 3d 4f 58 25  20 80 20 59 25 3d 4f 59  |. X%=OX% . Y%=OY|
00000070  25 20 8c 20 8d 4c 72 5c  0d 9c 68 0c f2 6d 61 70  |% . .Lr\..h..map|
00000080  6c 69 6e 65 0d 9c 72 32  e7 20 42 55 54 25 3c 3e  |line..r2. BUT%<>|
00000090  31 20 80 20 42 55 54 25  3c 3e 34 20 8c 20 f2 6f  |1 . BUT%<>4 . .o|
000000a0  75 74 70 69 63 3a f2 71  75 69 63 6b 64 72 61 77  |utpic:.quickdraw|
000000b0  6d 61 69 6e 3a e1 0d 9c  7c 13 e7 20 42 55 54 25  |main:...|.. BUT%|
000000c0  3d 34 20 8c 20 8d 6c 74  5c 0d 9c 86 08 f2 65 6f  |=4 . .lt\.....eo|
000000d0  63 0d 9c 90 0e c8 8e 20  46 55 43 4f 25 20 ca 0d  |c...... FUCO% ..|
000000e0  9c 9a 1b c9 20 32 3a 86  20 58 25 28 31 29 2c 59  |.... 2:. X%(1),Y|
000000f0  25 28 31 29 2c 58 25 2c  59 25 0d 9c a4 35 c9 20  |%(1),X%,Y%...5. |
00000100  33 3a 86 20 58 25 28 31  29 2c 59 25 28 31 29 2c  |3:. X%(1),Y%(1),|
00000110  58 25 28 32 29 2c 59 25  28 32 29 3a 86 20 58 25  |X%(2),Y%(2):. X%|
00000120  28 32 29 2c 59 25 28 32  29 2c 58 25 2c 59 25 0d  |(2),Y%(2),X%,Y%.|
00000130  9c ae 63 c9 20 34 3a 86  20 58 25 28 31 29 2c 59  |..c. 4:. X%(1),Y|
00000140  25 28 31 29 2c 58 25 28  32 29 2c 59 25 28 32 29  |%(1),X%(2),Y%(2)|
00000150  3a 86 20 58 25 28 32 29  2c 59 25 28 32 29 2c 58  |:. X%(2),Y%(2),X|
00000160  25 28 33 29 2c 59 25 28  33 29 3a 86 20 58 25 28  |%(3),Y%(3):. X%(|
00000170  33 29 2c 59 25 28 33 29  2c 58 25 2c 59 25 3a 86  |3),Y%(3),X%,Y%:.|
00000180  20 58 25 2c 59 25 2c 58  25 28 31 29 2c 59 25 28  | X%,Y%,X%(1),Y%(|
00000190  31 29 0d 9c b8 6f c9 20  35 3a 86 20 58 25 28 31  |1)...o. 5:. X%(1|
000001a0  29 2c 59 25 28 31 29 2c  58 25 28 32 29 2c 59 25  |),Y%(1),X%(2),Y%|
000001b0  28 32 29 3a 86 20 58 25  28 32 29 2c 59 25 28 32  |(2):. X%(2),Y%(2|
000001c0  29 2c 58 25 28 33 29 2c  59 25 28 33 29 3a 86 20  |),X%(3),Y%(3):. |
000001d0  58 25 28 33 29 2c 59 25  28 33 29 2c 58 25 28 34  |X%(3),Y%(3),X%(4|
000001e0  29 2c 59 25 28 34 29 3a  86 20 58 25 28 34 29 2c  |),Y%(4):. X%(4),|
000001f0  59 25 28 34 29 2c 58 25  28 31 29 2c 59 25 28 31  |Y%(4),X%(1),Y%(1|
00000200  29 0d 9c c2 83 c9 20 36  3a 86 20 58 25 28 31 29  |)..... 6:. X%(1)|
00000210  2c 59 25 28 31 29 2c 58  25 28 32 29 2c 59 25 28  |,Y%(1),X%(2),Y%(|
00000220  32 29 3a 86 20 58 25 28  32 29 2c 59 25 28 32 29  |2):. X%(2),Y%(2)|
00000230  2c 58 25 28 33 29 2c 59  25 28 33 29 3a 86 20 58  |,X%(3),Y%(3):. X|
00000240  25 28 33 29 2c 59 25 28  33 29 2c 58 25 28 34 29  |%(3),Y%(3),X%(4)|
00000250  2c 59 25 28 34 29 3a 86  20 58 25 28 34 29 2c 59  |,Y%(4):. X%(4),Y|
00000260  25 28 34 29 2c 58 25 28  31 29 2c 59 25 28 31 29  |%(4),X%(1),Y%(1)|
00000270  3a 86 20 58 25 28 35 29  2c 59 25 28 35 29 2c 58  |:. X%(5),Y%(5),X|
00000280  25 2c 59 25 0d 9c cc 9d  c9 20 37 3a 86 20 58 25  |%,Y%..... 7:. X%|
00000290  28 31 29 2c 59 25 28 31  29 2c 58 25 28 32 29 2c  |(1),Y%(1),X%(2),|
000002a0  59 25 28 32 29 3a 86 20  58 25 28 32 29 2c 59 25  |Y%(2):. X%(2),Y%|
000002b0  28 32 29 2c 58 25 28 33  29 2c 59 25 28 33 29 3a  |(2),X%(3),Y%(3):|
000002c0  86 20 58 25 28 33 29 2c  59 25 28 33 29 2c 58 25  |. X%(3),Y%(3),X%|
000002d0  28 34 29 2c 59 25 28 34  29 3a 86 20 58 25 28 34  |(4),Y%(4):. X%(4|
000002e0  29 2c 59 25 28 34 29 2c  58 25 28 31 29 2c 59 25  |),Y%(4),X%(1),Y%|
000002f0  28 31 29 3a 86 20 58 25  28 35 29 2c 59 25 28 35  |(1):. X%(5),Y%(5|
00000300  29 2c 58 25 28 36 29 2c  59 25 28 36 29 3a 86 20  |),X%(6),Y%(6):. |
00000310  58 25 28 36 29 2c 59 25  28 36 29 2c 58 25 2c 59  |X%(6),Y%(6),X%,Y|
00000320  25 0d 9c d6 cb c9 20 38  3a 86 20 58 25 28 31 29  |%..... 8:. X%(1)|
00000330  2c 59 25 28 31 29 2c 58  25 28 32 29 2c 59 25 28  |,Y%(1),X%(2),Y%(|
00000340  32 29 3a 86 20 58 25 28  32 29 2c 59 25 28 32 29  |2):. X%(2),Y%(2)|
00000350  2c 58 25 28 33 29 2c 59  25 28 33 29 3a 86 20 58  |,X%(3),Y%(3):. X|
00000360  25 28 33 29 2c 59 25 28  33 29 2c 58 25 28 34 29  |%(3),Y%(3),X%(4)|
00000370  2c 59 25 28 34 29 3a 86  20 58 25 28 34 29 2c 59  |,Y%(4):. X%(4),Y|
00000380  25 28 34 29 2c 58 25 28  31 29 2c 59 25 28 31 29  |%(4),X%(1),Y%(1)|
00000390  3a 86 20 58 25 28 35 29  2c 59 25 28 35 29 2c 58  |:. X%(5),Y%(5),X|
000003a0  25 28 36 29 2c 59 25 28  36 29 3a 86 20 58 25 28  |%(6),Y%(6):. X%(|
000003b0  36 29 2c 59 25 28 36 29  2c 58 25 28 37 29 2c 59  |6),Y%(6),X%(7),Y|
000003c0  25 28 37 29 3a 86 20 58  25 28 37 29 2c 59 25 28  |%(7):. X%(7),Y%(|
000003d0  37 29 2c 58 25 2c 59 25  3a 86 20 58 25 28 35 29  |7),X%,Y%:. X%(5)|
000003e0  2c 59 25 28 35 29 2c 58  25 2c 59 25 0d 9c e0 05  |,Y%(5),X%,Y%....|
000003f0  cb 0d 9c ea 2b 46 55 43  4f 25 3d 31 3a f2 6c 65  |....+FUCO%=1:.le|
00000400  74 67 6f 3a f2 6f 75 74  70 69 63 3a f2 71 75 69  |tgo:.outpic:.qui|
00000410  63 6b 64 72 61 77 6d 61  69 6e 3a e1 0d 9c f4 08  |ckdrawmain:.....|
00000420  f2 65 6f 63 0d 9c fe 16  e7 20 46 55 43 4f 25 3d  |.eoc..... FUCO%=|
00000430  38 20 8c 20 e5 20 8d 5c  66 5d 0d 9d 08 46 58 25  |8 . . .\f]...FX%|
00000440  28 46 55 43 4f 25 29 3d  58 25 3a 59 25 28 46 55  |(FUCO%)=X%:Y%(FU|
00000450  43 4f 25 29 3d 59 25 3a  e7 20 46 55 43 4f 25 3c  |CO%)=Y%:. FUCO%<|
00000460  3e 34 20 8c 20 86 20 58  25 28 46 55 43 4f 25 29  |>4 . . X%(FUCO%)|
00000470  2c 59 25 28 46 55 43 4f  25 29 2c 58 25 2c 59 25  |,Y%(FUCO%),X%,Y%|
00000480  0d 9d 12 39 e7 20 46 55  43 4f 25 3d 33 20 84 20  |...9. FUCO%=3 . |
00000490  46 55 43 4f 25 3d 37 20  8c 20 86 20 58 25 28 46  |FUCO%=7 . . X%(F|
000004a0  55 43 4f 25 2d 32 29 2c  59 25 28 46 55 43 4f 25  |UCO%-2),Y%(FUCO%|
000004b0  2d 32 29 2c 58 25 2c 59  25 0d 9d 1c 23 4f 58 25  |-2),X%,Y%...#OX%|
000004c0  3d 58 25 3a 4f 59 25 3d  59 25 3a 46 55 43 4f 25  |=X%:OY%=Y%:FUCO%|
000004d0  2b 3d 31 3a f2 6c 65 74  67 6f 3a e1 0d 9d 26 a5  |+=1:.letgo:...&.|
000004e0  58 25 28 38 29 3d 58 25  3a 59 25 28 38 29 3d 59  |X%(8)=X%:Y%(8)=Y|
000004f0  25 3a e3 4c 25 3d 31 20  b8 20 33 3a 86 20 58 25  |%:.L%=1 . 3:. X%|
00000500  28 4c 25 29 2c 59 25 28  4c 25 29 2c 58 25 28 4c  |(L%),Y%(L%),X%(L|
00000510  25 2b 31 29 2c 59 25 28  4c 25 2b 31 29 3a 86 20  |%+1),Y%(L%+1):. |
00000520  58 25 28 4c 25 2b 34 29  2c 59 25 28 4c 25 2b 34  |X%(L%+4),Y%(L%+4|
00000530  29 2c 58 25 28 4c 25 2b  35 29 2c 59 25 28 4c 25  |),X%(L%+5),Y%(L%|
00000540  2b 35 29 3a ed 3a 86 20  58 25 28 31 29 2c 59 25  |+5):.:. X%(1),Y%|
00000550  28 31 29 2c 58 25 28 34  29 2c 59 25 28 34 29 3a  |(1),X%(4),Y%(4):|
00000560  86 20 58 25 28 35 29 2c  59 25 28 35 29 2c 58 25  |. X%(5),Y%(5),X%|
00000570  28 38 29 2c 59 25 28 38  29 3a 46 55 43 4f 25 3d  |(8),Y%(8):FUCO%=|
00000580  31 0d 9d 30 24 f2 6f 75  74 70 69 63 3a f2 71 75  |1..0$.outpic:.qu|
00000590  69 63 6b 64 72 61 77 6d  61 69 6e 3a f2 70 69 78  |ickdrawmain:.pix|
000005a0  65 6c 6d 61 70 0d 9d 3a  05 e1 0d 9d 44 04 0d 9d  |elmap..:....D...|
000005b0  4e 0d dd f2 6d 61 70 6c  69 6e 65 0d 9d 58 0e c8  |N...mapline..X..|
000005c0  8e 20 46 55 43 4f 25 20  ca 0d 9d 62 44 c9 20 32  |. FUCO% ...bD. 2|
000005d0  3a f2 65 6f 63 3a 86 20  58 25 28 31 29 2c 59 25  |:.eoc:. X%(1),Y%|
000005e0  28 31 29 2c 4f 58 25 2c  4f 59 25 3a 4f 58 25 3d  |(1),OX%,OY%:OX%=|
000005f0  58 25 3a 4f 59 25 3d 59  25 3a 86 20 58 25 28 31  |X%:OY%=Y%:. X%(1|
00000600  29 2c 59 25 28 31 29 2c  58 25 2c 59 25 0d 9d 6c  |),Y%(1),X%,Y%..l|
00000610  44 c9 20 33 3a f2 65 6f  63 3a 86 20 58 25 28 32  |D. 3:.eoc:. X%(2|
00000620  29 2c 59 25 28 32 29 2c  4f 58 25 2c 4f 59 25 3a  |),Y%(2),OX%,OY%:|
00000630  4f 58 25 3d 58 25 3a 4f  59 25 3d 59 25 3a 86 20  |OX%=X%:OY%=Y%:. |
00000640  58 25 28 32 29 2c 59 25  28 32 29 2c 58 25 2c 59  |X%(2),Y%(2),X%,Y|
00000650  25 0d 9d 76 6e c9 20 34  3a f2 65 6f 63 3a 86 20  |%..vn. 4:.eoc:. |
00000660  58 25 28 31 29 2c 59 25  28 31 29 2c 4f 58 25 2c  |X%(1),Y%(1),OX%,|
00000670  4f 59 25 3a 86 20 58 25  28 33 29 2c 59 25 28 33  |OY%:. X%(3),Y%(3|
00000680  29 2c 4f 58 25 2c 4f 59  25 3a 4f 58 25 3d 58 25  |),OX%,OY%:OX%=X%|
00000690  3a 4f 59 25 3d 59 25 3a  86 20 58 25 28 31 29 2c  |:OY%=Y%:. X%(1),|
000006a0  59 25 28 31 29 2c 58 25  2c 59 25 3a 86 20 58 25  |Y%(1),X%,Y%:. X%|
000006b0  28 33 29 2c 59 25 28 33  29 2c 58 25 2c 59 25 0d  |(3),Y%(3),X%,Y%.|
000006c0  9d 80 44 c9 20 36 3a f2  65 6f 63 3a 86 20 58 25  |..D. 6:.eoc:. X%|
000006d0  28 35 29 2c 59 25 28 35  29 2c 4f 58 25 2c 4f 59  |(5),Y%(5),OX%,OY|
000006e0  25 3a 4f 58 25 3d 58 25  3a 4f 59 25 3d 59 25 3a  |%:OX%=X%:OY%=Y%:|
000006f0  86 20 58 25 28 35 29 2c  59 25 28 35 29 2c 58 25  |. X%(5),Y%(5),X%|
00000700  2c 59 25 0d 9d 8a 44 c9  20 37 3a f2 65 6f 63 3a  |,Y%...D. 7:.eoc:|
00000710  86 20 58 25 28 36 29 2c  59 25 28 36 29 2c 4f 58  |. X%(6),Y%(6),OX|
00000720  25 2c 4f 59 25 3a 4f 58  25 3d 58 25 3a 4f 59 25  |%,OY%:OX%=X%:OY%|
00000730  3d 59 25 3a 86 20 58 25  28 36 29 2c 59 25 28 36  |=Y%:. X%(6),Y%(6|
00000740  29 2c 58 25 2c 59 25 0d  9d 94 6e c9 20 38 3a f2  |),X%,Y%...n. 8:.|
00000750  65 6f 63 3a 86 20 58 25  28 35 29 2c 59 25 28 35  |eoc:. X%(5),Y%(5|
00000760  29 2c 4f 58 25 2c 4f 59  25 3a 86 20 58 25 28 37  |),OX%,OY%:. X%(7|
00000770  29 2c 59 25 28 37 29 2c  4f 58 25 2c 4f 59 25 3a  |),Y%(7),OX%,OY%:|
00000780  4f 58 25 3d 58 25 3a 4f  59 25 3d 59 25 3a 86 20  |OX%=X%:OY%=Y%:. |
00000790  58 25 28 35 29 2c 59 25  28 35 29 2c 58 25 2c 59  |X%(5),Y%(5),X%,Y|
000007a0  25 3a 86 20 58 25 28 37  29 2c 59 25 28 37 29 2c  |%:. X%(7),Y%(7),|
000007b0  58 25 2c 59 25 0d 9d 9e  05 cb 0d 9d a8 05 e1 0d  |X%,Y%...........|
000007c0  9d b2 04 0d 9d bc 0e dd  f2 70 69 78 65 6c 6d 61  |.........pixelma|
000007d0  70 0d 9d c6 2d f2 73 70  69 6e 69 74 3a f2 73 70  |p...-.spinit:.sp|
000007e0  62 75 66 28 31 36 31 2a  31 30 32 34 29 3a e7 20  |buf(161*1024):. |
000007f0  51 25 20 8c 20 f2 73 70  62 75 66 65 72 72 0d 9d  |Q% . .spbuferr..|
00000800  d0 0e f2 62 61 63 6b 75  70 70 69 63 0d 9d da 15  |...backuppic....|
00000810  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00000820  22 0d 9d e4 2b 64 73 74  61 3d b6 28 28 58 25 28  |"...+dsta=.((X%(|
00000830  36 29 2d 58 25 28 35 29  29 5e 32 2b 28 59 25 28  |6)-X%(5))^2+(Y%(|
00000840  35 29 2d 59 25 28 36 29  29 5e 32 29 0d 9d ee 2b  |5)-Y%(6))^2)...+|
00000850  64 73 74 62 3d b6 28 28  58 25 28 38 29 2d 58 25  |dstb=.((X%(8)-X%|
00000860  28 37 29 29 5e 32 2b 28  59 25 28 37 29 2d 59 25  |(7))^2+(Y%(7)-Y%|
00000870  28 38 29 29 5e 32 29 0d  9d f8 31 e7 20 64 73 74  |(8))^2)...1. dst|
00000880  61 3e 64 73 74 62 20 8c  20 73 74 65 70 73 25 3d  |a>dstb . steps%=|
00000890  64 73 74 61 20 81 32 20  8b 20 73 74 65 70 73 25  |dsta .2 . steps%|
000008a0  3d 64 73 74 62 20 81 32  0d 9e 02 1d 66 78 73 61  |=dstb .2....fxsa|
000008b0  3d 28 58 25 28 32 29 2d  58 25 28 31 29 29 2f 73  |=(X%(2)-X%(1))/s|
000008c0  74 65 70 73 25 0d 9e 0c  1d 66 78 73 62 3d 28 58  |teps%....fxsb=(X|
000008d0  25 28 33 29 2d 58 25 28  34 29 29 2f 73 74 65 70  |%(3)-X%(4))/step|
000008e0  73 25 0d 9e 16 1d 66 79  73 61 3d 28 59 25 28 32  |s%....fysa=(Y%(2|
000008f0  29 2d 59 25 28 31 29 29  2f 73 74 65 70 73 25 0d  |)-Y%(1))/steps%.|
00000900  9e 20 1d 66 79 73 62 3d  28 59 25 28 33 29 2d 59  |. .fysb=(Y%(3)-Y|
00000910  25 28 34 29 29 2f 73 74  65 70 73 25 0d 9e 2a 1d  |%(4))/steps%..*.|
00000920  74 78 73 61 3d 28 58 25  28 36 29 2d 58 25 28 35  |txsa=(X%(6)-X%(5|
00000930  29 29 2f 73 74 65 70 73  25 0d 9e 34 1d 74 78 73  |))/steps%..4.txs|
00000940  62 3d 28 58 25 28 37 29  2d 58 25 28 38 29 29 2f  |b=(X%(7)-X%(8))/|
00000950  73 74 65 70 73 25 0d 9e  3e 1d 74 79 73 61 3d 28  |steps%..>.tysa=(|
00000960  59 25 28 36 29 2d 59 25  28 35 29 29 2f 73 74 65  |Y%(6)-Y%(5))/ste|
00000970  70 73 25 0d 9e 48 1d 74  79 73 62 3d 28 59 25 28  |ps%..H.tysb=(Y%(|
00000980  37 29 2d 59 25 28 38 29  29 2f 73 74 65 70 73 25  |7)-Y%(8))/steps%|
00000990  0d 9e 52 14 e3 20 63 62  25 3d 30 20 b8 20 73 74  |..R.. cb%=0 . st|
000009a0  65 70 73 25 0d 9e 5c 16  66 78 61 3d 58 25 28 31  |eps%..\.fxa=X%(1|
000009b0  29 2b 63 62 25 2a 66 78  73 61 0d 9e 66 16 66 78  |)+cb%*fxsa..f.fx|
000009c0  62 3d 58 25 28 34 29 2b  63 62 25 2a 66 78 73 62  |b=X%(4)+cb%*fxsb|
000009d0  0d 9e 70 16 66 79 61 3d  59 25 28 31 29 2b 63 62  |..p.fya=Y%(1)+cb|
000009e0  25 2a 66 79 73 61 0d 9e  7a 16 66 79 62 3d 59 25  |%*fysa..z.fyb=Y%|
000009f0  28 34 29 2b 63 62 25 2a  66 79 73 62 0d 9e 84 16  |(4)+cb%*fysb....|
00000a00  74 78 61 3d 58 25 28 35  29 2b 63 62 25 2a 74 78  |txa=X%(5)+cb%*tx|
00000a10  73 61 0d 9e 8e 16 74 78  62 3d 58 25 28 38 29 2b  |sa....txb=X%(8)+|
00000a20  63 62 25 2a 74 78 73 62  0d 9e 98 16 74 79 61 3d  |cb%*txsb....tya=|
00000a30  59 25 28 35 29 2b 63 62  25 2a 74 79 73 61 0d 9e  |Y%(5)+cb%*tysa..|
00000a40  a2 16 74 79 62 3d 59 25  28 38 29 2b 63 62 25 2a  |..tyb=Y%(8)+cb%*|
00000a50  74 79 73 62 0d 9e ac 46  f2 69 6e 70 69 63 3a e6  |tysb...F.inpic:.|
00000a60  33 2c 36 33 3a f0 36 39  2c 33 30 30 2c 33 30 30  |3,63:.69,300,300|
00000a70  3a f0 36 39 2c 33 30 30  2c 33 30 30 3a f2 6d 61  |:.69,300,300:.ma|
00000a80  70 6c 6e 3a f2 6f 75 74  70 69 63 3a f2 71 75 69  |pln:.outpic:.qui|
00000a90  63 6b 64 72 61 77 6d 61  69 6e 0d 9e b6 05 ed 0d  |ckdrawmain......|
00000aa0  9e c0 0b f2 73 70 69 6e  69 74 0d 9e ca 16 c8 99  |....spinit......|
00000ab0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00000ac0  0d 9e d4 05 e1 0d 9e de  04 0d 9e e8 0b dd f2 6d  |...............m|
00000ad0  61 70 6c 6e 0d 9e f2 1c  ea 20 6e 73 25 2c 66 78  |apln..... ns%,fx|
00000ae0  73 2c 66 79 73 2c 74 78  73 2c 74 79 73 2c 63 25  |s,fys,txs,tys,c%|
00000af0  0d 9e fc 27 6e 73 25 3d  31 2b b6 28 28 74 78 62  |...'ns%=1+.((txb|
00000b00  2d 74 78 61 29 5e 32 2b  28 74 79 61 2d 74 79 62  |-txa)^2+(tya-tyb|
00000b10  29 5e 32 29 20 81 32 0d  9f 06 27 66 78 73 3d 28  |)^2) .2...'fxs=(|
00000b20  66 78 62 2d 66 78 61 29  2f 6e 73 25 3a 74 78 73  |fxb-fxa)/ns%:txs|
00000b30  3d 28 74 78 62 2d 74 78  61 29 2f 6e 73 25 0d 9f  |=(txb-txa)/ns%..|
00000b40  10 27 66 79 73 3d 28 66  79 62 2d 66 79 61 29 2f  |.'fys=(fyb-fya)/|
00000b50  6e 73 25 3a 74 79 73 3d  28 74 79 62 2d 74 79 61  |ns%:tys=(tyb-tya|
00000b60  29 2f 6e 73 25 0d 9f 1a  10 e3 20 63 25 3d 30 20  |)/ns%..... c%=0 |
00000b70  b8 20 6e 73 25 0d 9f 24  5d c8 99 26 32 45 2c 32  |. ns%..$]..&2E,2|
00000b80  39 37 2c 53 50 42 55 46  25 2c 22 50 49 43 22 2c  |97,SPBUF%,"PIC",|
00000b90  28 66 78 61 2b 63 25 2a  66 78 73 29 81 32 2c 28  |(fxa+c%*fxs).2,(|
00000ba0  66 79 61 2b 63 25 2a 66  79 73 29 81 34 20 b8 20  |fya+c%*fys).4 . |
00000bb0  2c 2c 2c 2c 2c 63 6f 6c  25 2c 74 69 6e 25 3a e6  |,,,,,col%,tin%:.|
00000bc0  20 55 53 45 25 2c 63 6f  6c 25 20 c8 9c 20 74 69  | USE%,col% .. ti|
00000bd0  6e 25 0d 9f 2e 41 e7 20  54 52 41 53 50 25 3f a4  |n%...A. TRASP%?.|
00000be0  66 69 6e 64 70 61 6c 65  6e 74 28 63 6f 6c 25 2c  |findpalent(col%,|
00000bf0  74 69 6e 25 29 3d 30 20  8c 20 f0 36 39 2c 74 78  |tin%)=0 . .69,tx|
00000c00  61 2b 63 25 2a 74 78 73  2c 74 79 61 2b 63 25 2a  |a+c%*txs,tya+c%*|
00000c10  74 79 73 0d 9f 38 05 ed  0d 9f 42 05 e1 0d 9f 4c  |tys..8....B....L|
00000c20  04 0d 9f 56 0d dd f2 6b  69 6c 6c 5f 32 35 0d 9f  |...V...kill_25..|
00000c30  60 0a f2 69 6e 70 69 63  0d 9f 6a 08 f2 65 6f 63  |`..inpic..j..eoc|
00000c40  0d 9f 74 0e c8 8e 20 46  55 43 4f 25 20 ca 0d 9f  |..t... FUCO% ...|
00000c50  7e 1b c9 20 32 3a 86 20  58 25 28 31 29 2c 59 25  |~.. 2:. X%(1),Y%|
00000c60  28 31 29 2c 58 25 2c 59  25 0d 9f 88 35 c9 20 33  |(1),X%,Y%...5. 3|
00000c70  3a 86 20 58 25 28 31 29  2c 59 25 28 31 29 2c 58  |:. X%(1),Y%(1),X|
00000c80  25 28 32 29 2c 59 25 28  32 29 3a 86 20 58 25 28  |%(2),Y%(2):. X%(|
00000c90  32 29 2c 59 25 28 32 29  2c 58 25 2c 59 25 0d 9f  |2),Y%(2),X%,Y%..|
00000ca0  92 67 c9 20 34 3a 86 20  58 25 28 31 29 2c 59 25  |.g. 4:. X%(1),Y%|
00000cb0  28 31 29 2c 58 25 28 32  29 2c 59 25 28 32 29 3a  |(1),X%(2),Y%(2):|
00000cc0  86 20 58 25 28 32 29 2c  59 25 28 32 29 2c 58 25  |. X%(2),Y%(2),X%|
00000cd0  28 33 29 2c 59 25 28 33  29 3a 86 20 58 25 28 33  |(3),Y%(3):. X%(3|
00000ce0  29 2c 59 25 28 33 29 2c  4f 58 25 2c 4f 59 25 3a  |),Y%(3),OX%,OY%:|
00000cf0  86 20 4f 58 25 2c 4f 59  25 2c 58 25 28 31 29 2c  |. OX%,OY%,X%(1),|
00000d00  59 25 28 31 29 0d 9f 9c  6f c9 20 35 3a 86 20 58  |Y%(1)...o. 5:. X|
00000d10  25 28 31 29 2c 59 25 28  31 29 2c 58 25 28 32 29  |%(1),Y%(1),X%(2)|
00000d20  2c 59 25 28 32 29 3a 86  20 58 25 28 32 29 2c 59  |,Y%(2):. X%(2),Y|
00000d30  25 28 32 29 2c 58 25 28  33 29 2c 59 25 28 33 29  |%(2),X%(3),Y%(3)|
00000d40  3a 86 20 58 25 28 33 29  2c 59 25 28 33 29 2c 58  |:. X%(3),Y%(3),X|
00000d50  25 28 34 29 2c 59 25 28  34 29 3a 86 20 58 25 28  |%(4),Y%(4):. X%(|
00000d60  34 29 2c 59 25 28 34 29  2c 58 25 28 31 29 2c 59  |4),Y%(4),X%(1),Y|
00000d70  25 28 31 29 0d 9f a6 85  c9 20 36 3a 86 20 58 25  |%(1)..... 6:. X%|
00000d80  28 31 29 2c 59 25 28 31  29 2c 58 25 28 32 29 2c  |(1),Y%(1),X%(2),|
00000d90  59 25 28 32 29 3a 86 20  58 25 28 32 29 2c 59 25  |Y%(2):. X%(2),Y%|
00000da0  28 32 29 2c 58 25 28 33  29 2c 59 25 28 33 29 3a  |(2),X%(3),Y%(3):|
00000db0  86 20 58 25 28 33 29 2c  59 25 28 33 29 2c 58 25  |. X%(3),Y%(3),X%|
00000dc0  28 34 29 2c 59 25 28 34  29 3a 86 20 58 25 28 34  |(4),Y%(4):. X%(4|
00000dd0  29 2c 59 25 28 34 29 2c  58 25 28 31 29 2c 59 25  |),Y%(4),X%(1),Y%|
00000de0  28 31 29 3a 86 20 58 25  28 35 29 2c 59 25 28 35  |(1):. X%(5),Y%(5|
00000df0  29 2c 4f 58 25 2c 4f 59  25 0d 9f b0 9f c9 20 37  |),OX%,OY%..... 7|
00000e00  3a 86 20 58 25 28 31 29  2c 59 25 28 31 29 2c 58  |:. X%(1),Y%(1),X|
00000e10  25 28 32 29 2c 59 25 28  32 29 3a 86 20 58 25 28  |%(2),Y%(2):. X%(|
00000e20  32 29 2c 59 25 28 32 29  2c 58 25 28 33 29 2c 59  |2),Y%(2),X%(3),Y|
00000e30  25 28 33 29 3a 86 20 58  25 28 33 29 2c 59 25 28  |%(3):. X%(3),Y%(|
00000e40  33 29 2c 58 25 28 34 29  2c 59 25 28 34 29 3a 86  |3),X%(4),Y%(4):.|
00000e50  20 58 25 28 34 29 2c 59  25 28 34 29 2c 58 25 28  | X%(4),Y%(4),X%(|
00000e60  31 29 2c 59 25 28 31 29  3a 86 20 58 25 28 35 29  |1),Y%(1):. X%(5)|
00000e70  2c 59 25 28 35 29 2c 58  25 28 36 29 2c 59 25 28  |,Y%(5),X%(6),Y%(|
00000e80  36 29 3a 86 20 58 25 28  36 29 2c 59 25 28 36 29  |6):. X%(6),Y%(6)|
00000e90  2c 4f 58 25 2c 4f 59 25  0d 9f ba cf c9 20 38 3a  |,OX%,OY%..... 8:|
00000ea0  86 20 58 25 28 31 29 2c  59 25 28 31 29 2c 58 25  |. X%(1),Y%(1),X%|
00000eb0  28 32 29 2c 59 25 28 32  29 3a 86 20 58 25 28 32  |(2),Y%(2):. X%(2|
00000ec0  29 2c 59 25 28 32 29 2c  58 25 28 33 29 2c 59 25  |),Y%(2),X%(3),Y%|
00000ed0  28 33 29 3a 86 20 58 25  28 33 29 2c 59 25 28 33  |(3):. X%(3),Y%(3|
00000ee0  29 2c 58 25 28 34 29 2c  59 25 28 34 29 3a 86 20  |),X%(4),Y%(4):. |
00000ef0  58 25 28 34 29 2c 59 25  28 34 29 2c 58 25 28 31  |X%(4),Y%(4),X%(1|
00000f00  29 2c 59 25 28 31 29 3a  86 20 58 25 28 35 29 2c  |),Y%(1):. X%(5),|
00000f10  59 25 28 35 29 2c 58 25  28 36 29 2c 59 25 28 36  |Y%(5),X%(6),Y%(6|
00000f20  29 3a 86 20 58 25 28 36  29 2c 59 25 28 36 29 2c  |):. X%(6),Y%(6),|
00000f30  58 25 28 37 29 2c 59 25  28 37 29 3a 86 20 58 25  |X%(7),Y%(7):. X%|
00000f40  28 37 29 2c 59 25 28 37  29 2c 4f 58 25 2c 4f 59  |(7),Y%(7),OX%,OY|
00000f50  25 3a 86 20 58 25 28 35  29 2c 59 25 28 35 29 2c  |%:. X%(5),Y%(5),|
00000f60  4f 58 25 2c 4f 59 25 0d  9f c4 05 cb 0d 9f ce 29  |OX%,OY%........)|
00000f70  46 55 43 4f 25 3d 31 3a  f2 6f 75 74 70 69 63 3a  |FUCO%=1:.outpic:|
00000f80  f2 71 75 69 63 6b 64 72  61 77 6d 61 69 6e 3a f2  |.quickdrawmain:.|
00000f90  6c 65 74 67 6f 0d 9f d8  05 e1 0d ff              |letgo.......|
00000f9c

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .