� Paint Splodge
"� By Geoff Blunt and Alan Lowe

(const=3
2col=�(255)
<col1=�(255)
Fcol2=�(255)
P� 15
Z � 9
d � X=0 � 15
n4 � X,(col/const)*X,(col1/const)*X,(col2/const)*X
x � X
��
�
s1=1:s2=2
�+r1=�(360):r2=�(360):r3=�(360):r4=�(360)
��
�Wl1=200*(�(r1/100)+1):l2=200*(�(r2/100)+1):l3=200*(�(r3/100)+1):l4=200*(�(r4/100)+1)
�g=640+l1*�(�(r4))
�h=512+l1*�(�(r4))
�x=g+l2*�(�(r1))
�y=h+l2*�(�(r1))
�a=x+l3*�(�(r2))
�b=y+l3*�(�(r2))
�c=a+l4*�(�(r3))
�d=b+l4*�(�(r3))

�line(640,512,g,h)

�line(g,h,x,y)

�line(x,y,a,b)

"�line(a,b,c,d)

,r1+=2:r2-=3:r3+=4:r4-=1

6�SYS 6,112,s1

@�SYS 6,113,s2

JȔ s1,s2:Ȗ

T	� CLS

^ � r1>3000 �

h�0

r� �line(l,m,n,o)

|diver=(n-l)/const

�divar=(o-m)/const

�� xa=0 � const

� � 0,xa

� ȏȐ l+diver*xa,m+divar*xa,1

�� xa

��
�

00000000  0d 00 0a 13 f4 20 50 61  69 6e 74 20 53 70 6c 6f  |..... Paint Splo|
00000010  64 67 65 0d 00 14 22 f4  20 42 79 20 47 65 6f 66  |dge...". By Geof|
00000020  66 20 42 6c 75 6e 74 20  61 6e 64 20 41 6c 61 6e  |f Blunt and Alan|
00000030  20 4c 6f 77 65 0d 00 1e  04 0d 00 28 0b 63 6f 6e  | Lowe......(.con|
00000040  73 74 3d 33 0d 00 32 0e  63 6f 6c 3d b3 28 32 35  |st=3..2.col=.(25|
00000050  35 29 0d 00 3c 0f 63 6f  6c 31 3d b3 28 32 35 35  |5)..<.col1=.(255|
00000060  29 0d 00 46 0f 63 6f 6c  32 3d b3 28 32 35 35 29  |)..F.col2=.(255)|
00000070  0d 00 50 08 eb 20 31 35  0d 00 5a 08 20 eb 20 39  |..P.. 15..Z. . 9|
00000080  0d 00 64 0f 20 e3 20 58  3d 30 20 b8 20 31 35 0d  |..d. . X=0 . 15.|
00000090  00 6e 34 20 fb 20 58 2c  28 63 6f 6c 2f 63 6f 6e  |.n4 . X,(col/con|
000000a0  73 74 29 2a 58 2c 28 63  6f 6c 31 2f 63 6f 6e 73  |st)*X,(col1/cons|
000000b0  74 29 2a 58 2c 28 63 6f  6c 32 2f 63 6f 6e 73 74  |t)*X,(col2/const|
000000c0  29 2a 58 0d 00 78 08 20  ed 20 58 0d 00 82 05 87  |)*X..x. . X.....|
000000d0  0d 00 8c 0d 73 31 3d 31  3a 73 32 3d 32 0d 00 96  |....s1=1:s2=2...|
000000e0  2b 72 31 3d b3 28 33 36  30 29 3a 72 32 3d b3 28  |+r1=.(360):r2=.(|
000000f0  33 36 30 29 3a 72 33 3d  b3 28 33 36 30 29 3a 72  |360):r3=.(360):r|
00000100  34 3d b3 28 33 36 30 29  0d 00 a0 05 f5 0d 00 aa  |4=.(360)........|
00000110  57 6c 31 3d 32 30 30 2a  28 b5 28 72 31 2f 31 30  |Wl1=200*(.(r1/10|
00000120  30 29 2b 31 29 3a 6c 32  3d 32 30 30 2a 28 b5 28  |0)+1):l2=200*(.(|
00000130  72 32 2f 31 30 30 29 2b  31 29 3a 6c 33 3d 32 30  |r2/100)+1):l3=20|
00000140  30 2a 28 b5 28 72 33 2f  31 30 30 29 2b 31 29 3a  |0*(.(r3/100)+1):|
00000150  6c 34 3d 32 30 30 2a 28  b5 28 72 34 2f 31 30 30  |l4=200*(.(r4/100|
00000160  29 2b 31 29 0d 00 b4 15  67 3d 36 34 30 2b 6c 31  |)+1)....g=640+l1|
00000170  2a 9b 28 b2 28 72 34 29  29 0d 00 be 15 68 3d 35  |*.(.(r4))....h=5|
00000180  31 32 2b 6c 31 2a b5 28  b2 28 72 34 29 29 0d 00  |12+l1*.(.(r4))..|
00000190  c8 13 78 3d 67 2b 6c 32  2a 9b 28 b2 28 72 31 29  |..x=g+l2*.(.(r1)|
000001a0  29 0d 00 d2 13 79 3d 68  2b 6c 32 2a b5 28 b2 28  |)....y=h+l2*.(.(|
000001b0  72 31 29 29 0d 00 dc 13  61 3d 78 2b 6c 33 2a 9b  |r1))....a=x+l3*.|
000001c0  28 b2 28 72 32 29 29 0d  00 e6 13 62 3d 79 2b 6c  |(.(r2))....b=y+l|
000001d0  33 2a b5 28 b2 28 72 32  29 29 0d 00 f0 13 63 3d  |3*.(.(r2))....c=|
000001e0  61 2b 6c 34 2a 9b 28 b2  28 72 33 29 29 0d 00 fa  |a+l4*.(.(r3))...|
000001f0  13 64 3d 62 2b 6c 34 2a  b5 28 b2 28 72 33 29 29  |.d=b+l4*.(.(r3))|
00000200  0d 01 04 16 f2 6c 69 6e  65 28 36 34 30 2c 35 31  |.....line(640,51|
00000210  32 2c 67 2c 68 29 0d 01  0e 12 f2 6c 69 6e 65 28  |2,g,h).....line(|
00000220  67 2c 68 2c 78 2c 79 29  0d 01 18 12 f2 6c 69 6e  |g,h,x,y).....lin|
00000230  65 28 78 2c 79 2c 61 2c  62 29 0d 01 22 12 f2 6c  |e(x,y,a,b).."..l|
00000240  69 6e 65 28 61 2c 62 2c  63 2c 64 29 0d 01 2c 1b  |ine(a,b,c,d)..,.|
00000250  72 31 2b 3d 32 3a 72 32  2d 3d 33 3a 72 33 2b 3d  |r1+=2:r2-=3:r3+=|
00000260  34 3a 72 34 2d 3d 31 0d  01 36 11 f4 53 59 53 20  |4:r4-=1..6..SYS |
00000270  36 2c 31 31 32 2c 73 31  0d 01 40 11 f4 53 59 53  |6,112,s1..@..SYS|
00000280  20 36 2c 31 31 33 2c 73  32 0d 01 4a 0f c8 94 20  | 6,113,s2..J... |
00000290  73 31 2c 73 32 3a c8 96  0d 01 54 09 f4 20 43 4c  |s1,s2:....T.. CL|
000002a0  53 0d 01 5e 10 20 e7 20  72 31 3e 33 30 30 30 20  |S..^. . r1>3000 |
000002b0  f9 0d 01 68 06 fd 30 0d  01 72 14 dd 20 f2 6c 69  |...h..0..r.. .li|
000002c0  6e 65 28 6c 2c 6d 2c 6e  2c 6f 29 0d 01 7c 15 64  |ne(l,m,n,o)..|.d|
000002d0  69 76 65 72 3d 28 6e 2d  6c 29 2f 63 6f 6e 73 74  |iver=(n-l)/const|
000002e0  0d 01 86 15 64 69 76 61  72 3d 28 6f 2d 6d 29 2f  |....divar=(o-m)/|
000002f0  63 6f 6e 73 74 0d 01 90  12 e3 20 78 61 3d 30 20  |const..... xa=0 |
00000300  b8 20 63 6f 6e 73 74 0d  01 9a 0b 20 e6 20 30 2c  |. const.... . 0,|
00000310  78 61 0d 01 a4 20 c8 8f  c8 90 20 6c 2b 64 69 76  |xa... .... l+div|
00000320  65 72 2a 78 61 2c 6d 2b  64 69 76 61 72 2a 78 61  |er*xa,m+divar*xa|
00000330  2c 31 0d 01 ae 08 ed 20  78 61 0d 01 b8 05 e1 0d  |,1..... xa......|
00000340  ff                                                |.|
00000341