� Mechanical Painter
"� By Geoff Blunt and Alan Lowe


const=3
col=�(255)
col1=�(255)
(col2=�(255)
2� 15
<	 � 13
Fcol=�(255)
Pcol1=�(255)
Zcol2=�(255)
d
� 640,512
n � X=0 � 15
x4 � X,(col/const)*X,(col1/const)*X,(col2/const)*X
� � X
��
�
s1=1:s2=2
�count=0
�� array(100,2)
�+r1=�(360):r2=�(360):r3=�(360):r4=�(360)
��
�l1=200:l2=200:l3=200:l4=200
�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)

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

@; � r1>1000 col=�(255):col1=�(255):col2=�(255):r1=�(360)

A ș 6,112,s1

B ș 6,113,s2

C
 Ȕ s1,s2

D Ȗ

E �

J�0

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

U� col,col1,col2

V
� l,m,n,o

W
ȏ l,m,20

Xarray(count,1)=c

Yarray(count,2)=d

Z� xc=0 � 99

["  � 69,array(xc,1),array(xc,2)

\� xc

]count=count+1

^� count>99 � count=0

r�
�

00000000  0d 00 01 18 f4 20 4d 65  63 68 61 6e 69 63 61 6c  |..... Mechanical|
00000010  20 50 61 69 6e 74 65 72  0d 00 02 22 f4 20 42 79  | Painter...". By|
00000020  20 47 65 6f 66 66 20 42  6c 75 6e 74 20 61 6e 64  | Geoff Blunt and|
00000030  20 41 6c 61 6e 20 4c 6f  77 65 0d 00 0d 04 0d 00  | Alan Lowe......|
00000040  0e 0b 63 6f 6e 73 74 3d  33 0d 00 14 0e 63 6f 6c  |..const=3....col|
00000050  3d b3 28 32 35 35 29 0d  00 1e 0f 63 6f 6c 31 3d  |=.(255)....col1=|
00000060  b3 28 32 35 35 29 0d 00  28 0f 63 6f 6c 32 3d b3  |.(255)..(.col2=.|
00000070  28 32 35 35 29 0d 00 32  08 eb 20 31 35 0d 00 3c  |(255)..2.. 15..<|
00000080  09 20 eb 20 31 33 0d 00  46 0e 63 6f 6c 3d b3 28  |. . 13..F.col=.(|
00000090  32 35 35 29 0d 00 50 0f  63 6f 6c 31 3d b3 28 32  |255)..P.col1=.(2|
000000a0  35 35 29 0d 00 5a 0f 63  6f 6c 32 3d b3 28 32 35  |55)..Z.col2=.(25|
000000b0  35 29 0d 00 64 0d ec 20  36 34 30 2c 35 31 32 0d  |5)..d.. 640,512.|
000000c0  00 6e 0f 20 e3 20 58 3d  30 20 b8 20 31 35 0d 00  |.n. . X=0 . 15..|
000000d0  78 34 20 fb 20 58 2c 28  63 6f 6c 2f 63 6f 6e 73  |x4 . X,(col/cons|
000000e0  74 29 2a 58 2c 28 63 6f  6c 31 2f 63 6f 6e 73 74  |t)*X,(col1/const|
000000f0  29 2a 58 2c 28 63 6f 6c  32 2f 63 6f 6e 73 74 29  |)*X,(col2/const)|
00000100  2a 58 0d 00 82 08 20 ed  20 58 0d 00 8c 05 87 0d  |*X.... . X......|
00000110  00 96 0d 73 31 3d 31 3a  73 32 3d 32 0d 00 97 0b  |...s1=1:s2=2....|
00000120  63 6f 75 6e 74 3d 30 0d  00 98 12 de 20 61 72 72  |count=0..... arr|
00000130  61 79 28 31 30 30 2c 32  29 0d 00 a0 2b 72 31 3d  |ay(100,2)...+r1=|
00000140  b3 28 33 36 30 29 3a 72  32 3d b3 28 33 36 30 29  |.(360):r2=.(360)|
00000150  3a 72 33 3d b3 28 33 36  30 29 3a 72 34 3d b3 28  |:r3=.(360):r4=.(|
00000160  33 36 30 29 0d 00 aa 05  f5 0d 00 b4 1f 6c 31 3d  |360).........l1=|
00000170  32 30 30 3a 6c 32 3d 32  30 30 3a 6c 33 3d 32 30  |200:l2=200:l3=20|
00000180  30 3a 6c 34 3d 32 30 30  0d 00 be 15 67 3d 36 34  |0:l4=200....g=64|
00000190  30 2b 6c 31 2a 9b 28 b2  28 72 34 29 29 0d 00 c8  |0+l1*.(.(r4))...|
000001a0  15 68 3d 35 31 32 2b 6c  31 2a b5 28 b2 28 72 34  |.h=512+l1*.(.(r4|
000001b0  29 29 0d 00 d2 13 78 3d  67 2b 6c 32 2a 9b 28 b2  |))....x=g+l2*.(.|
000001c0  28 72 31 29 29 0d 00 dc  13 79 3d 68 2b 6c 32 2a  |(r1))....y=h+l2*|
000001d0  b5 28 b2 28 72 31 29 29  0d 00 e6 13 61 3d 78 2b  |.(.(r1))....a=x+|
000001e0  6c 33 2a 9b 28 b2 28 72  32 29 29 0d 00 f0 13 62  |l3*.(.(r2))....b|
000001f0  3d 79 2b 6c 33 2a b5 28  b2 28 72 32 29 29 0d 00  |=y+l3*.(.(r2))..|
00000200  fa 13 63 3d 61 2b 6c 34  2a 9b 28 b2 28 72 33 29  |..c=a+l4*.(.(r3)|
00000210  29 0d 01 04 13 64 3d 62  2b 6c 34 2a b5 28 b2 28  |)....d=b+l4*.(.(|
00000220  72 33 29 29 0d 01 0e 16  f2 6c 69 6e 65 28 36 34  |r3)).....line(64|
00000230  30 2c 35 31 32 2c 67 2c  68 29 0d 01 18 12 f2 6c  |0,512,g,h).....l|
00000240  69 6e 65 28 67 2c 68 2c  78 2c 79 29 0d 01 22 12  |ine(g,h,x,y)..".|
00000250  f2 6c 69 6e 65 28 78 2c  79 2c 61 2c 62 29 0d 01  |.line(x,y,a,b)..|
00000260  2c 12 f2 6c 69 6e 65 28  61 2c 62 2c 63 2c 64 29  |,..line(a,b,c,d)|
00000270  0d 01 36 1b 72 31 2b 3d  32 3a 72 32 2d 3d 33 3a  |..6.r1+=2:r2-=3:|
00000280  72 33 2b 3d 34 3a 72 34  2d 3d 31 0d 01 40 3b 20  |r3+=4:r4-=1..@; |
00000290  e7 20 72 31 3e 31 30 30  30 20 63 6f 6c 3d b3 28  |. r1>1000 col=.(|
000002a0  32 35 35 29 3a 63 6f 6c  31 3d b3 28 32 35 35 29  |255):col1=.(255)|
000002b0  3a 63 6f 6c 32 3d b3 28  32 35 35 29 3a 72 31 3d  |:col2=.(255):r1=|
000002c0  b3 28 33 36 30 29 0d 01  41 10 20 c8 99 20 36 2c  |.(360)..A. .. 6,|
000002d0  31 31 32 2c 73 31 0d 01  42 10 20 c8 99 20 36 2c  |112,s1..B. .. 6,|
000002e0  31 31 33 2c 73 32 0d 01  43 0d 20 c8 94 20 73 31  |113,s2..C. .. s1|
000002f0  2c 73 32 0d 01 44 07 20  c8 96 0d 01 45 06 20 db  |,s2..D. ....E. .|
00000300  0d 01 4a 06 fd 30 0d 01  54 14 dd 20 f2 6c 69 6e  |..J..0..T.. .lin|
00000310  65 28 6c 2c 6d 2c 6e 2c  6f 29 0d 01 55 13 e6 20  |e(l,m,n,o)..U.. |
00000320  63 6f 6c 2c 63 6f 6c 31  2c 63 6f 6c 32 0d 01 56  |col,col1,col2..V|
00000330  0d 86 20 6c 2c 6d 2c 6e  2c 6f 0d 01 57 0d c8 8f  |.. l,m,n,o..W...|
00000340  20 6c 2c 6d 2c 32 30 0d  01 58 14 61 72 72 61 79  | l,m,20..X.array|
00000350  28 63 6f 75 6e 74 2c 31  29 3d 63 0d 01 59 14 61  |(count,1)=c..Y.a|
00000360  72 72 61 79 28 63 6f 75  6e 74 2c 32 29 3d 64 0d  |rray(count,2)=d.|
00000370  01 5a 0f e3 20 78 63 3d  30 20 b8 20 39 39 0d 01  |.Z.. xc=0 . 99..|
00000380  5b 22 20 20 f0 20 36 39  2c 61 72 72 61 79 28 78  |["  . 69,array(x|
00000390  63 2c 31 29 2c 61 72 72  61 79 28 78 63 2c 32 29  |c,1),array(xc,2)|
000003a0  0d 01 5c 08 ed 20 78 63  0d 01 5d 11 63 6f 75 6e  |..\.. xc..].coun|
000003b0  74 3d 63 6f 75 6e 74 2b  31 0d 01 5e 18 e7 20 63  |t=count+1..^.. c|
000003c0  6f 75 6e 74 3e 39 39 20  8c 20 63 6f 75 6e 74 3d  |ount>99 . count=|
000003d0  30 0d 01 72 05 e1 0d ff                           |0..r....|
000003d8