� Thomasina
� � 1994 Mark Ainsworth
:� Based on an algorithm by Peter Barnes/Mark Ainsworth
(,� which was in turn inspired by the play
2H� �Arcadia� by Tom Stoppard, where a girl called Thomasina discovers
<B� �A wonderful new method whereby all the forms of nature must
FA� give up their secrets and draw themselves in number alone.�
P:
Z� � �:� " at line ";�:�
d	�init
n�
x  �
�  � black%
�  �0,0)"a= ";a
�  �0,1)"b= ";b
�  � info% � �origin(48)
�  �plot
�  �origin (48/factor)
�  �zoom
�� �
�:
�� �init
�� 12
�width%=1280
�height%=1024

maxcols%=15


screen%=1


left=-6.5

"
right=7.5

,	top=9

6
bottom=-3

@"size=(right-left)*(top-bottom)

Jnull=�(-�)

T)atop=1.3 : abot=-1 : arange=atop-abot

^(btop=2.5 : bbot=0 : brange=btop-bbot

h-�"THOMASINA � The Barnes-Ainsworth Curve"

r$�"Program � 1994 Mark Ainsworth"

|)�'"Use + and - to alter grey shades."

�6�"Press Select to zoom, and then drag a zoom box."

�*�''"Press RETURN for random values..."

�� �1,8)"a = "a$

�
� a$="" �

�  a=arange*�(1)+abot

��

�
  a=�(a$)

��

�� �5,8)a

�� �1,9)"b = "b$

�
� b$="" �

�  b=brange*�(1)+bbot

��

  b=�(b$)
�
� �5,9)b
&6�'"Setting? (Fast/Info/Normal : 1st letter) "info$
0fast%=�
:info%=�
DȎ info$ �
N  � "F","f" : fast%=�
X  � "I","i" : info%=�
b�
l�factor
v
�recolour
��resize
��
�:
�� �recolour
�+� colours%>maxcols% � colours%=maxcols%
�� colours%=0 � colours%=1
�� col%=0 � colours%
�$  grade%=255-col%*(255/colours%)
�!  � col%,grade%,grade%,grade%
�
� col%
�col%=colours%+1
�ȕ col%<=maxcols%
�  � col%,0,0,0

  col%+=1
�
black%=maxcols%
 �
*:
4� �multicolour
>starth=30:endh=180
Hhsize=endh-starth
Rstarts=0:ends=1
\ssize=1
fstartv=1:endv=0
pvsize=-1
z� col%=0 � colours%
�$  h=(col%/colours%)*hsize+starth
�$  s=(col%/colours%)*ssize+starts
�$  v=(col%/colours%)*vsize+startv
�I  ș "ColourTrans_ConvertHSVToRGB",h*&10000,s*&10000,v*&FF � r%,g%,b%
�  � col%,r%,g%,b%
�
� col%
�col%=colours%+1
�ȕ col%<=maxcols%
�  � col%,0,0,0
�
  col%+=1
��
�black%=maxcols%
��
:

� �resize
xfactor=width%/(right-left)
$ yfactor=height%/(top-bottom)
.#midx%=-left*width%/(right-left)
8&midy%=-bottom*height%/(top-bottom)
B�29,midx%;midy%;
L�
V:
`� �plot
jx=0
ty=0
~xn=0
�yn=0
�count%=0
��=0
�%� fast% � �monoplot � �colourplot
�1� �40,0)"Speed=";�(count%*100/�);"points/sec"
�(� �40,1)�(count%);" points plotted."
��
�:
�� �monoplot
��
�  x=�(�(x*x-2*x+a))-y
�  y=�(�(y*y-2*y-b))+x
  � 0,black%

  Ȓ xfactor*x, yfactor*y
  count%+=1
  ȗ X%,Y%,T%
(
� T%>0
2�
<:
F� �colourplot
P�
Z  x=�(�(x*x-2*x+a))-y
d  y=�(�(y*y-2*y-b))+x
n  � IF info% THEN PROCinfo
xQ  � �(-42) � colours%<2*maxcols% � colours%=colours%*2:�recolour:� � � �(-42)
�H  � �(-58) � colours%>1 � colours%=colours%/2:�recolour:� � � �(-58)
�!  col%=�xfactor*x, yfactor*y)
�  � col%<maxcols% � col%+=1
�  � 0,col%
�  Ȓ xfactor*x, yfactor*y
�  count%+=1
�  ȗ X%,Y%,T%
�
� T%>0
��
�:
�� �info
�	xp=xn
�	yp=yn
� 3,colours%
xn=x*xfactor
yn=y*yfactor
"� xp,yp:� xn,yn
,�point(x,y,count% � 4)
6Ȗ
@� xp,yp:� xn,yn
J�
T:
^� �zoom
hȗ �
r�:ȗ X%,Y%,T%:� T%<>4
|� 3,colours%
��
�  ȗ X%,Y%,T%
�
  G$=�(0)
�  � G$<>"" �
�D  � G$="-" � colours%<2*maxcols% � colours%=colours%*2:�recolour
�;  � G$="+" � colours%>1 � colours%=colours%/2:�recolour
�K    � G$="s" � G$="S" � �("Screensave Thomasina"+�(screen%)):screen%+=1
�  �
�  �coord
�
� T%=4
�
X1%=X%
�
Y1%=Y%
�X2%=X1%
Y2%=Y1%
�rectangle
�
&  �rectangle
0  ȗ X%,Y%,T%
:  X2%=X%
D  Y2%=Y%
N  �coord
X  �sides
b  �rectangle
l  Ȗ
v
� T%<4
��resize
��factor
�
�recolour
�ȗ �
��
�:
�� �coord
�� black%
�� �0,2)"x= ";X%/xfactor
�� �0,3)"y= ";Y%/yfactor
��
�:
�� �rectangle
"ȓ X1%,Y1%,(X2%-X1%),(Y2%-Y1%)
�
:
 
� �factor
*!� left<>right � top<>bottom �
43  factor=(((right-left)*(top-bottom))/size)^0.5
>�
H  factor=0
R�
\colours%=maxcols%*factor
f� fast% � colours%=1
p�
z:
�� �sides
�left=X1%/xfactor
�right=X2%/xfactor
�top=Y1%/yfactor
�bottom=Y2%/yfactor
�2� left>right � temp=left:left=right:right=temp
�2� bottom>top � temp=bottom:bottom=top:top=temp
��
�:
�� �origin(s)
�� 0,black%
�
ss=s/8
�� 0,s:� 0,0:� s,0
	� -ss,s-ss:� 0,s:� ss,s-ss
	� s-ss,-ss:� s,0:� s-ss,ss
	�
	$:
	.� �point(x,y,p)
	8(� �0,3+p)"(";�(x);",";�(y);")      "
	B�
�

00000000  0d 00 0a 0f f4 20 54 68  6f 6d 61 73 69 6e 61 0d  |..... Thomasina.|
00000010  00 14 1b f4 20 a9 20 31  39 39 34 20 4d 61 72 6b  |.... . 1994 Mark|
00000020  20 41 69 6e 73 77 6f 72  74 68 0d 00 1e 3a f4 20  | Ainsworth...:. |
00000030  42 61 73 65 64 20 6f 6e  20 61 6e 20 61 6c 67 6f  |Based on an algo|
00000040  72 69 74 68 6d 20 62 79  20 50 65 74 65 72 20 42  |rithm by Peter B|
00000050  61 72 6e 65 73 2f 4d 61  72 6b 20 41 69 6e 73 77  |arnes/Mark Ainsw|
00000060  6f 72 74 68 0d 00 28 2c  f4 20 77 68 69 63 68 20  |orth..(,. which |
00000070  77 61 73 20 69 6e 20 74  75 72 6e 20 69 6e 73 70  |was in turn insp|
00000080  69 72 65 64 20 62 79 20  74 68 65 20 70 6c 61 79  |ired by the play|
00000090  0d 00 32 48 f4 20 90 41  72 63 61 64 69 61 91 20  |..2H. .Arcadia. |
000000a0  62 79 20 54 6f 6d 20 53  74 6f 70 70 61 72 64 2c  |by Tom Stoppard,|
000000b0  20 77 68 65 72 65 20 61  20 67 69 72 6c 20 63 61  | where a girl ca|
000000c0  6c 6c 65 64 20 54 68 6f  6d 61 73 69 6e 61 20 64  |lled Thomasina d|
000000d0  69 73 63 6f 76 65 72 73  0d 00 3c 42 f4 20 94 41  |iscovers..<B. .A|
000000e0  20 77 6f 6e 64 65 72 66  75 6c 20 6e 65 77 20 6d  | wonderful new m|
000000f0  65 74 68 6f 64 20 77 68  65 72 65 62 79 20 61 6c  |ethod whereby al|
00000100  6c 20 74 68 65 20 66 6f  72 6d 73 20 6f 66 20 6e  |l the forms of n|
00000110  61 74 75 72 65 20 6d 75  73 74 0d 00 46 41 f4 20  |ature must..FA. |
00000120  67 69 76 65 20 75 70 20  74 68 65 69 72 20 73 65  |give up their se|
00000130  63 72 65 74 73 20 61 6e  64 20 64 72 61 77 20 74  |crets and draw t|
00000140  68 65 6d 73 65 6c 76 65  73 20 69 6e 20 6e 75 6d  |hemselves in num|
00000150  62 65 72 20 61 6c 6f 6e  65 2e 95 0d 00 50 05 3a  |ber alone....P.:|
00000160  0d 00 5a 1b ee 20 85 20  f6 3a f1 20 22 20 61 74  |..Z.. . .:. " at|
00000170  20 6c 69 6e 65 20 22 3b  9e 3a e0 0d 00 64 09 f2  | line ";.:...d..|
00000180  69 6e 69 74 0d 00 6e 05  f5 0d 00 78 07 20 20 db  |init..n....x.  .|
00000190  0d 00 82 0e 20 20 fb 20  62 6c 61 63 6b 25 0d 00  |....  . black%..|
000001a0  8c 13 20 20 f1 8a 30 2c  30 29 22 61 3d 20 22 3b  |..  ..0,0)"a= ";|
000001b0  61 0d 00 96 13 20 20 f1  8a 30 2c 31 29 22 62 3d  |a....  ..0,1)"b=|
000001c0  20 22 3b 62 0d 00 a0 1b  20 20 e7 20 69 6e 66 6f  | ";b....  . info|
000001d0  25 20 8c 20 f2 6f 72 69  67 69 6e 28 34 38 29 0d  |% . .origin(48).|
000001e0  00 aa 0b 20 20 f2 70 6c  6f 74 0d 00 b4 19 20 20  |...  .plot....  |
000001f0  f2 6f 72 69 67 69 6e 20  28 34 38 2f 66 61 63 74  |.origin (48/fact|
00000200  6f 72 29 0d 00 be 0b 20  20 f2 7a 6f 6f 6d 0d 00  |or)....  .zoom..|
00000210  c8 07 fd 20 a3 0d 00 d2  05 3a 0d 00 dc 0b dd 20  |... .....:..... |
00000220  f2 69 6e 69 74 0d 00 e6  08 eb 20 31 32 0d 00 f0  |.init..... 12...|
00000230  0f 77 69 64 74 68 25 3d  31 32 38 30 0d 00 fa 10  |.width%=1280....|
00000240  68 65 69 67 68 74 25 3d  31 30 32 34 0d 01 04 0f  |height%=1024....|
00000250  6d 61 78 63 6f 6c 73 25  3d 31 35 0d 01 0e 0d 73  |maxcols%=15....s|
00000260  63 72 65 65 6e 25 3d 31  0d 01 18 0d 6c 65 66 74  |creen%=1....left|
00000270  3d 2d 36 2e 35 0d 01 22  0d 72 69 67 68 74 3d 37  |=-6.5..".right=7|
00000280  2e 35 0d 01 2c 09 74 6f  70 3d 39 0d 01 36 0d 62  |.5..,.top=9..6.b|
00000290  6f 74 74 6f 6d 3d 2d 33  0d 01 40 22 73 69 7a 65  |ottom=-3..@"size|
000002a0  3d 28 72 69 67 68 74 2d  6c 65 66 74 29 2a 28 74  |=(right-left)*(t|
000002b0  6f 70 2d 62 6f 74 74 6f  6d 29 0d 01 4a 0e 6e 75  |op-bottom)..J.nu|
000002c0  6c 6c 3d b3 28 2d 91 29  0d 01 54 29 61 74 6f 70  |ll=.(-.)..T)atop|
000002d0  3d 31 2e 33 20 3a 20 61  62 6f 74 3d 2d 31 20 3a  |=1.3 : abot=-1 :|
000002e0  20 61 72 61 6e 67 65 3d  61 74 6f 70 2d 61 62 6f  | arange=atop-abo|
000002f0  74 0d 01 5e 28 62 74 6f  70 3d 32 2e 35 20 3a 20  |t..^(btop=2.5 : |
00000300  62 62 6f 74 3d 30 20 3a  20 62 72 61 6e 67 65 3d  |bbot=0 : brange=|
00000310  62 74 6f 70 2d 62 62 6f  74 0d 01 68 2d f1 22 54  |btop-bbot..h-."T|
00000320  48 4f 4d 41 53 49 4e 41  20 97 20 54 68 65 20 42  |HOMASINA . The B|
00000330  61 72 6e 65 73 2d 41 69  6e 73 77 6f 72 74 68 20  |arnes-Ainsworth |
00000340  43 75 72 76 65 22 0d 01  72 24 f1 22 50 72 6f 67  |Curve"..r$."Prog|
00000350  72 61 6d 20 a9 20 31 39  39 34 20 4d 61 72 6b 20  |ram . 1994 Mark |
00000360  41 69 6e 73 77 6f 72 74  68 22 0d 01 7c 29 f1 27  |Ainsworth"..|).'|
00000370  22 55 73 65 20 2b 20 61  6e 64 20 2d 20 74 6f 20  |"Use + and - to |
00000380  61 6c 74 65 72 20 67 72  65 79 20 73 68 61 64 65  |alter grey shade|
00000390  73 2e 22 0d 01 86 36 f1  22 50 72 65 73 73 20 53  |s."...6."Press S|
000003a0  65 6c 65 63 74 20 74 6f  20 7a 6f 6f 6d 2c 20 61  |elect to zoom, a|
000003b0  6e 64 20 74 68 65 6e 20  64 72 61 67 20 61 20 7a  |nd then drag a z|
000003c0  6f 6f 6d 20 62 6f 78 2e  22 0d 01 90 2a f1 27 27  |oom box."...*.''|
000003d0  22 50 72 65 73 73 20 52  45 54 55 52 4e 20 66 6f  |"Press RETURN fo|
000003e0  72 20 72 61 6e 64 6f 6d  20 76 61 6c 75 65 73 2e  |r random values.|
000003f0  2e 2e 22 0d 01 9a 13 e8  20 8a 31 2c 38 29 22 61  |.."..... .1,8)"a|
00000400  20 3d 20 22 61 24 0d 01  a4 0d e7 20 61 24 3d 22  | = "a$..... a$="|
00000410  22 20 8c 0d 01 ae 18 20  20 61 3d 61 72 61 6e 67  |" .....  a=arang|
00000420  65 2a b3 28 31 29 2b 61  62 6f 74 0d 01 b8 05 cc  |e*.(1)+abot.....|
00000430  0d 01 c2 0d 20 20 61 3d  bb 28 61 24 29 0d 01 cc  |....  a=.(a$)...|
00000440  05 cd 0d 01 d6 0c f1 20  8a 35 2c 38 29 61 0d 01  |....... .5,8)a..|
00000450  e0 13 e8 20 8a 31 2c 39  29 22 62 20 3d 20 22 62  |... .1,9)"b = "b|
00000460  24 0d 01 ea 0d e7 20 62  24 3d 22 22 20 8c 0d 01  |$..... b$="" ...|
00000470  f4 18 20 20 62 3d 62 72  61 6e 67 65 2a b3 28 31  |..  b=brange*.(1|
00000480  29 2b 62 62 6f 74 0d 01  fe 05 cc 0d 02 08 0d 20  |)+bbot......... |
00000490  20 62 3d bb 28 62 24 29  0d 02 12 05 cd 0d 02 1c  | b=.(b$)........|
000004a0  0c f1 20 8a 35 2c 39 29  62 0d 02 26 36 e8 27 22  |.. .5,9)b..&6.'"|
000004b0  53 65 74 74 69 6e 67 3f  20 28 46 61 73 74 2f 49  |Setting? (Fast/I|
000004c0  6e 66 6f 2f 4e 6f 72 6d  61 6c 20 3a 20 31 73 74  |nfo/Normal : 1st|
000004d0  20 6c 65 74 74 65 72 29  20 22 69 6e 66 6f 24 0d  | letter) "info$.|
000004e0  02 30 0b 66 61 73 74 25  3d a3 0d 02 3a 0b 69 6e  |.0.fast%=...:.in|
000004f0  66 6f 25 3d a3 0d 02 44  0e c8 8e 20 69 6e 66 6f  |fo%=...D... info|
00000500  24 20 ca 0d 02 4e 19 20  20 c9 20 22 46 22 2c 22  |$ ...N.  . "F","|
00000510  66 22 20 3a 20 66 61 73  74 25 3d b9 0d 02 58 19  |f" : fast%=...X.|
00000520  20 20 c9 20 22 49 22 2c  22 69 22 20 3a 20 69 6e  |  . "I","i" : in|
00000530  66 6f 25 3d b9 0d 02 62  05 cb 0d 02 6c 0b f2 66  |fo%=...b....l..f|
00000540  61 63 74 6f 72 0d 02 76  0d f2 72 65 63 6f 6c 6f  |actor..v..recolo|
00000550  75 72 0d 02 80 0b f2 72  65 73 69 7a 65 0d 02 8a  |ur.....resize...|
00000560  05 e1 0d 02 94 05 3a 0d  02 9e 0f dd 20 f2 72 65  |......:..... .re|
00000570  63 6f 6c 6f 75 72 0d 02  a8 2b e7 20 63 6f 6c 6f  |colour...+. colo|
00000580  75 72 73 25 3e 6d 61 78  63 6f 6c 73 25 20 8c 20  |urs%>maxcols% . |
00000590  63 6f 6c 6f 75 72 73 25  3d 6d 61 78 63 6f 6c 73  |colours%=maxcols|
000005a0  25 0d 02 b2 1d e7 20 63  6f 6c 6f 75 72 73 25 3d  |%..... colours%=|
000005b0  30 20 8c 20 63 6f 6c 6f  75 72 73 25 3d 31 0d 02  |0 . colours%=1..|
000005c0  bc 17 e3 20 63 6f 6c 25  3d 30 20 b8 20 63 6f 6c  |... col%=0 . col|
000005d0  6f 75 72 73 25 0d 02 c6  24 20 20 67 72 61 64 65  |ours%...$  grade|
000005e0  25 3d 32 35 35 2d 63 6f  6c 25 2a 28 32 35 35 2f  |%=255-col%*(255/|
000005f0  63 6f 6c 6f 75 72 73 25  29 0d 02 d0 21 20 20 fb  |colours%)...!  .|
00000600  20 63 6f 6c 25 2c 67 72  61 64 65 25 2c 67 72 61  | col%,grade%,gra|
00000610  64 65 25 2c 67 72 61 64  65 25 0d 02 da 0a ed 20  |de%,grade%..... |
00000620  63 6f 6c 25 0d 02 e4 13  63 6f 6c 25 3d 63 6f 6c  |col%....col%=col|
00000630  6f 75 72 73 25 2b 31 0d  02 ee 15 c8 95 20 63 6f  |ours%+1...... co|
00000640  6c 25 3c 3d 6d 61 78 63  6f 6c 73 25 0d 02 f8 12  |l%<=maxcols%....|
00000650  20 20 fb 20 63 6f 6c 25  2c 30 2c 30 2c 30 0d 03  |  . col%,0,0,0..|
00000660  02 0d 20 20 63 6f 6c 25  2b 3d 31 0d 03 0c 05 ce  |..  col%+=1.....|
00000670  0d 03 16 13 62 6c 61 63  6b 25 3d 6d 61 78 63 6f  |....black%=maxco|
00000680  6c 73 25 0d 03 20 05 e1  0d 03 2a 05 3a 0d 03 34  |ls%.. ....*.:..4|
00000690  12 dd 20 f2 6d 75 6c 74  69 63 6f 6c 6f 75 72 0d  |.. .multicolour.|
000006a0  03 3e 16 73 74 61 72 74  68 3d 33 30 3a 65 6e 64  |.>.starth=30:end|
000006b0  68 3d 31 38 30 0d 03 48  15 68 73 69 7a 65 3d 65  |h=180..H.hsize=e|
000006c0  6e 64 68 2d 73 74 61 72  74 68 0d 03 52 13 73 74  |ndh-starth..R.st|
000006d0  61 72 74 73 3d 30 3a 65  6e 64 73 3d 31 0d 03 5c  |arts=0:ends=1..\|
000006e0  0b 73 73 69 7a 65 3d 31  0d 03 66 13 73 74 61 72  |.ssize=1..f.star|
000006f0  74 76 3d 31 3a 65 6e 64  76 3d 30 0d 03 70 0c 76  |tv=1:endv=0..p.v|
00000700  73 69 7a 65 3d 2d 31 0d  03 7a 17 e3 20 63 6f 6c  |size=-1..z.. col|
00000710  25 3d 30 20 b8 20 63 6f  6c 6f 75 72 73 25 0d 03  |%=0 . colours%..|
00000720  84 24 20 20 68 3d 28 63  6f 6c 25 2f 63 6f 6c 6f  |.$  h=(col%/colo|
00000730  75 72 73 25 29 2a 68 73  69 7a 65 2b 73 74 61 72  |urs%)*hsize+star|
00000740  74 68 0d 03 8e 24 20 20  73 3d 28 63 6f 6c 25 2f  |th...$  s=(col%/|
00000750  63 6f 6c 6f 75 72 73 25  29 2a 73 73 69 7a 65 2b  |colours%)*ssize+|
00000760  73 74 61 72 74 73 0d 03  98 24 20 20 76 3d 28 63  |starts...$  v=(c|
00000770  6f 6c 25 2f 63 6f 6c 6f  75 72 73 25 29 2a 76 73  |ol%/colours%)*vs|
00000780  69 7a 65 2b 73 74 61 72  74 76 0d 03 a2 49 20 20  |ize+startv...I  |
00000790  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
000007a0  43 6f 6e 76 65 72 74 48  53 56 54 6f 52 47 42 22  |ConvertHSVToRGB"|
000007b0  2c 68 2a 26 31 30 30 30  30 2c 73 2a 26 31 30 30  |,h*&10000,s*&100|
000007c0  30 30 2c 76 2a 26 46 46  20 b8 20 72 25 2c 67 25  |00,v*&FF . r%,g%|
000007d0  2c 62 25 0d 03 ac 15 20  20 fb 20 63 6f 6c 25 2c  |,b%....  . col%,|
000007e0  72 25 2c 67 25 2c 62 25  0d 03 b6 0a ed 20 63 6f  |r%,g%,b%..... co|
000007f0  6c 25 0d 03 c0 13 63 6f  6c 25 3d 63 6f 6c 6f 75  |l%....col%=colou|
00000800  72 73 25 2b 31 0d 03 ca  15 c8 95 20 63 6f 6c 25  |rs%+1...... col%|
00000810  3c 3d 6d 61 78 63 6f 6c  73 25 0d 03 d4 12 20 20  |<=maxcols%....  |
00000820  fb 20 63 6f 6c 25 2c 30  2c 30 2c 30 0d 03 de 0d  |. col%,0,0,0....|
00000830  20 20 63 6f 6c 25 2b 3d  31 0d 03 e8 05 ce 0d 03  |  col%+=1.......|
00000840  f2 13 62 6c 61 63 6b 25  3d 6d 61 78 63 6f 6c 73  |..black%=maxcols|
00000850  25 0d 03 fc 05 e1 0d 04  06 05 3a 0d 04 10 0d dd  |%.........:.....|
00000860  20 f2 72 65 73 69 7a 65  0d 04 1a 1f 78 66 61 63  | .resize....xfac|
00000870  74 6f 72 3d 77 69 64 74  68 25 2f 28 72 69 67 68  |tor=width%/(righ|
00000880  74 2d 6c 65 66 74 29 0d  04 24 20 79 66 61 63 74  |t-left)..$ yfact|
00000890  6f 72 3d 68 65 69 67 68  74 25 2f 28 74 6f 70 2d  |or=height%/(top-|
000008a0  62 6f 74 74 6f 6d 29 0d  04 2e 23 6d 69 64 78 25  |bottom)...#midx%|
000008b0  3d 2d 6c 65 66 74 2a 77  69 64 74 68 25 2f 28 72  |=-left*width%/(r|
000008c0  69 67 68 74 2d 6c 65 66  74 29 0d 04 38 26 6d 69  |ight-left)..8&mi|
000008d0  64 79 25 3d 2d 62 6f 74  74 6f 6d 2a 68 65 69 67  |dy%=-bottom*heig|
000008e0  68 74 25 2f 28 74 6f 70  2d 62 6f 74 74 6f 6d 29  |ht%/(top-bottom)|
000008f0  0d 04 42 14 ef 32 39 2c  6d 69 64 78 25 3b 6d 69  |..B..29,midx%;mi|
00000900  64 79 25 3b 0d 04 4c 05  e1 0d 04 56 05 3a 0d 04  |dy%;..L....V.:..|
00000910  60 0b dd 20 f2 70 6c 6f  74 0d 04 6a 07 78 3d 30  |`.. .plot..j.x=0|
00000920  0d 04 74 07 79 3d 30 0d  04 7e 08 78 6e 3d 30 0d  |..t.y=0..~.xn=0.|
00000930  04 88 08 79 6e 3d 30 0d  04 92 0c 63 6f 75 6e 74  |...yn=0....count|
00000940  25 3d 30 0d 04 9c 07 d1  3d 30 0d 04 a6 25 e7 20  |%=0.....=0...%. |
00000950  66 61 73 74 25 20 8c 20  f2 6d 6f 6e 6f 70 6c 6f  |fast% . .monoplo|
00000960  74 20 8b 20 f2 63 6f 6c  6f 75 72 70 6c 6f 74 0d  |t . .colourplot.|
00000970  04 b0 31 f1 20 8a 34 30  2c 30 29 22 53 70 65 65  |..1. .40,0)"Spee|
00000980  64 3d 22 3b a8 28 63 6f  75 6e 74 25 2a 31 30 30  |d=";.(count%*100|
00000990  2f 91 29 3b 22 70 6f 69  6e 74 73 2f 73 65 63 22  |/.);"points/sec"|
000009a0  0d 04 ba 28 f1 20 8a 34  30 2c 31 29 c3 28 63 6f  |...(. .40,1).(co|
000009b0  75 6e 74 25 29 3b 22 20  70 6f 69 6e 74 73 20 70  |unt%);" points p|
000009c0  6c 6f 74 74 65 64 2e 22  0d 04 c4 05 e1 0d 04 ce  |lotted."........|
000009d0  05 3a 0d 04 d8 0f dd 20  f2 6d 6f 6e 6f 70 6c 6f  |.:..... .monoplo|
000009e0  74 0d 04 e2 05 f5 0d 04  ec 19 20 20 78 3d b6 28  |t.........  x=.(|
000009f0  94 28 78 2a 78 2d 32 2a  78 2b 61 29 29 2d 79 0d  |.(x*x-2*x+a))-y.|
00000a00  04 f6 19 20 20 79 3d b6  28 94 28 79 2a 79 2d 32  |...  y=.(.(y*y-2|
00000a10  2a 79 2d 62 29 29 2b 78  0d 05 00 10 20 20 e6 20  |*y-b))+x....  . |
00000a20  30 2c 62 6c 61 63 6b 25  0d 05 0a 1d 20 20 c8 92  |0,black%....  ..|
00000a30  20 78 66 61 63 74 6f 72  2a 78 2c 20 79 66 61 63  | xfactor*x, yfac|
00000a40  74 6f 72 2a 79 0d 05 14  0f 20 20 63 6f 75 6e 74  |tor*y....  count|
00000a50  25 2b 3d 31 0d 05 1e 11  20 20 c8 97 20 58 25 2c  |%+=1....  .. X%,|
00000a60  59 25 2c 54 25 0d 05 28  0a fd 20 54 25 3e 30 0d  |Y%,T%..(.. T%>0.|
00000a70  05 32 05 e1 0d 05 3c 05  3a 0d 05 46 11 dd 20 f2  |.2....<.:..F.. .|
00000a80  63 6f 6c 6f 75 72 70 6c  6f 74 0d 05 50 05 f5 0d  |colourplot..P...|
00000a90  05 5a 19 20 20 78 3d b6  28 94 28 78 2a 78 2d 32  |.Z.  x=.(.(x*x-2|
00000aa0  2a 78 2b 61 29 29 2d 79  0d 05 64 19 20 20 79 3d  |*x+a))-y..d.  y=|
00000ab0  b6 28 94 28 79 2a 79 2d  32 2a 79 2d 62 29 29 2b  |.(.(y*y-2*y-b))+|
00000ac0  78 0d 05 6e 1e 20 20 f4  20 49 46 20 69 6e 66 6f  |x..n.  . IF info|
00000ad0  25 20 54 48 45 4e 20 50  52 4f 43 69 6e 66 6f 0d  |% THEN PROCinfo.|
00000ae0  05 78 51 20 20 e7 20 a6  28 2d 34 32 29 20 80 20  |.xQ  . .(-42) . |
00000af0  63 6f 6c 6f 75 72 73 25  3c 32 2a 6d 61 78 63 6f  |colours%<2*maxco|
00000b00  6c 73 25 20 8c 20 63 6f  6c 6f 75 72 73 25 3d 63  |ls% . colours%=c|
00000b10  6f 6c 6f 75 72 73 25 2a  32 3a f2 72 65 63 6f 6c  |olours%*2:.recol|
00000b20  6f 75 72 3a f5 20 fd 20  ac 20 a6 28 2d 34 32 29  |our:. . . .(-42)|
00000b30  0d 05 82 48 20 20 e7 20  a6 28 2d 35 38 29 20 80  |...H  . .(-58) .|
00000b40  20 63 6f 6c 6f 75 72 73  25 3e 31 20 8c 20 63 6f  | colours%>1 . co|
00000b50  6c 6f 75 72 73 25 3d 63  6f 6c 6f 75 72 73 25 2f  |lours%=colours%/|
00000b60  32 3a f2 72 65 63 6f 6c  6f 75 72 3a f5 20 fd 20  |2:.recolour:. . |
00000b70  ac 20 a6 28 2d 35 38 29  0d 05 8c 21 20 20 63 6f  |. .(-58)...!  co|
00000b80  6c 25 3d b0 78 66 61 63  74 6f 72 2a 78 2c 20 79  |l%=.xfactor*x, y|
00000b90  66 61 63 74 6f 72 2a 79  29 0d 05 96 1f 20 20 e7  |factor*y)....  .|
00000ba0  20 63 6f 6c 25 3c 6d 61  78 63 6f 6c 73 25 20 8c  | col%<maxcols% .|
00000bb0  20 63 6f 6c 25 2b 3d 31  0d 05 a0 0e 20 20 e6 20  | col%+=1....  . |
00000bc0  30 2c 63 6f 6c 25 0d 05  aa 1d 20 20 c8 92 20 78  |0,col%....  .. x|
00000bd0  66 61 63 74 6f 72 2a 78  2c 20 79 66 61 63 74 6f  |factor*x, yfacto|
00000be0  72 2a 79 0d 05 b4 0f 20  20 63 6f 75 6e 74 25 2b  |r*y....  count%+|
00000bf0  3d 31 0d 05 be 11 20 20  c8 97 20 58 25 2c 59 25  |=1....  .. X%,Y%|
00000c00  2c 54 25 0d 05 c8 0a fd  20 54 25 3e 30 0d 05 d2  |,T%..... T%>0...|
00000c10  05 e1 0d 05 dc 05 3a 0d  05 e6 0b dd 20 f2 69 6e  |......:..... .in|
00000c20  66 6f 0d 05 f0 09 78 70  3d 78 6e 0d 05 fa 09 79  |fo....xp=xn....y|
00000c30  70 3d 79 6e 0d 06 04 10  e6 20 33 2c 63 6f 6c 6f  |p=yn..... 3,colo|
00000c40  75 72 73 25 0d 06 0e 10  78 6e 3d 78 2a 78 66 61  |urs%....xn=x*xfa|
00000c50  63 74 6f 72 0d 06 18 10  79 6e 3d 79 2a 79 66 61  |ctor....yn=y*yfa|
00000c60  63 74 6f 72 0d 06 22 13  ec 20 78 70 2c 79 70 3a  |ctor..".. xp,yp:|
00000c70  df 20 78 6e 2c 79 6e 0d  06 2c 1a f2 70 6f 69 6e  |. xn,yn..,..poin|
00000c80  74 28 78 2c 79 2c 63 6f  75 6e 74 25 20 83 20 34  |t(x,y,count% . 4|
00000c90  29 0d 06 36 06 c8 96 0d  06 40 13 ec 20 78 70 2c  |)..6.....@.. xp,|
00000ca0  79 70 3a df 20 78 6e 2c  79 6e 0d 06 4a 05 e1 0d  |yp:. xn,yn..J...|
00000cb0  06 54 05 3a 0d 06 5e 0b  dd 20 f2 7a 6f 6f 6d 0d  |.T.:..^.. .zoom.|
00000cc0  06 68 08 c8 97 20 ee 0d  06 72 19 f5 3a c8 97 20  |.h... ...r..:.. |
00000cd0  58 25 2c 59 25 2c 54 25  3a fd 20 54 25 3c 3e 34  |X%,Y%,T%:. T%<>4|
00000ce0  0d 06 7c 10 e6 20 33 2c  63 6f 6c 6f 75 72 73 25  |..|.. 3,colours%|
00000cf0  0d 06 86 05 f5 0d 06 90  11 20 20 c8 97 20 58 25  |.........  .. X%|
00000d00  2c 59 25 2c 54 25 0d 06  9a 0d 20 20 47 24 3d bf  |,Y%,T%....  G$=.|
00000d10  28 30 29 0d 06 a4 10 20  20 e7 20 47 24 3c 3e 22  |(0)....  . G$<>"|
00000d20  22 20 8c 0d 06 ae 44 20  20 e7 20 47 24 3d 22 2d  |" ....D  . G$="-|
00000d30  22 20 80 20 63 6f 6c 6f  75 72 73 25 3c 32 2a 6d  |" . colours%<2*m|
00000d40  61 78 63 6f 6c 73 25 20  8c 20 63 6f 6c 6f 75 72  |axcols% . colour|
00000d50  73 25 3d 63 6f 6c 6f 75  72 73 25 2a 32 3a f2 72  |s%=colours%*2:.r|
00000d60  65 63 6f 6c 6f 75 72 0d  06 b8 3b 20 20 e7 20 47  |ecolour...;  . G|
00000d70  24 3d 22 2b 22 20 80 20  63 6f 6c 6f 75 72 73 25  |$="+" . colours%|
00000d80  3e 31 20 8c 20 63 6f 6c  6f 75 72 73 25 3d 63 6f  |>1 . colours%=co|
00000d90  6c 6f 75 72 73 25 2f 32  3a f2 72 65 63 6f 6c 6f  |lours%/2:.recolo|
00000da0  75 72 0d 06 c2 4b 20 20  20 20 e7 20 47 24 3d 22  |ur...K    . G$="|
00000db0  73 22 20 84 20 47 24 3d  22 53 22 20 8c 20 ff 28  |s" . G$="S" . .(|
00000dc0  22 53 63 72 65 65 6e 73  61 76 65 20 54 68 6f 6d  |"Screensave Thom|
00000dd0  61 73 69 6e 61 22 2b c3  28 73 63 72 65 65 6e 25  |asina"+.(screen%|
00000de0  29 29 3a 73 63 72 65 65  6e 25 2b 3d 31 0d 06 cc  |)):screen%+=1...|
00000df0  07 20 20 cd 0d 06 d6 0c  20 20 f2 63 6f 6f 72 64  |.  .....  .coord|
00000e00  0d 06 e0 0a fd 20 54 25  3d 34 0d 06 ea 0a 58 31  |..... T%=4....X1|
00000e10  25 3d 58 25 0d 06 f4 0a  59 31 25 3d 59 25 0d 06  |%=X%....Y1%=Y%..|
00000e20  fe 0b 58 32 25 3d 58 31  25 0d 07 08 0b 59 32 25  |..X2%=X1%....Y2%|
00000e30  3d 59 31 25 0d 07 12 0e  f2 72 65 63 74 61 6e 67  |=Y1%.....rectang|
00000e40  6c 65 0d 07 1c 05 f5 0d  07 26 10 20 20 f2 72 65  |le.......&.  .re|
00000e50  63 74 61 6e 67 6c 65 0d  07 30 11 20 20 c8 97 20  |ctangle..0.  .. |
00000e60  58 25 2c 59 25 2c 54 25  0d 07 3a 0c 20 20 58 32  |X%,Y%,T%..:.  X2|
00000e70  25 3d 58 25 0d 07 44 0c  20 20 59 32 25 3d 59 25  |%=X%..D.  Y2%=Y%|
00000e80  0d 07 4e 0c 20 20 f2 63  6f 6f 72 64 0d 07 58 0c  |..N.  .coord..X.|
00000e90  20 20 f2 73 69 64 65 73  0d 07 62 10 20 20 f2 72  |  .sides..b.  .r|
00000ea0  65 63 74 61 6e 67 6c 65  0d 07 6c 08 20 20 c8 96  |ectangle..l.  ..|
00000eb0  0d 07 76 0a fd 20 54 25  3c 34 0d 07 80 0b f2 72  |..v.. T%<4.....r|
00000ec0  65 73 69 7a 65 0d 07 8a  0b f2 66 61 63 74 6f 72  |esize.....factor|
00000ed0  0d 07 94 0d f2 72 65 63  6f 6c 6f 75 72 0d 07 9e  |.....recolour...|
00000ee0  08 c8 97 20 87 0d 07 a8  05 e1 0d 07 b2 05 3a 0d  |... ..........:.|
00000ef0  07 bc 0c dd 20 f2 63 6f  6f 72 64 0d 07 c6 0c fb  |.... .coord.....|
00000f00  20 62 6c 61 63 6b 25 0d  07 d0 1b f1 20 8a 30 2c  | black%..... .0,|
00000f10  32 29 22 78 3d 20 22 3b  58 25 2f 78 66 61 63 74  |2)"x= ";X%/xfact|
00000f20  6f 72 0d 07 da 1b f1 20  8a 30 2c 33 29 22 79 3d  |or..... .0,3)"y=|
00000f30  20 22 3b 59 25 2f 79 66  61 63 74 6f 72 0d 07 e4  | ";Y%/yfactor...|
00000f40  05 e1 0d 07 ee 05 3a 0d  07 f8 10 dd 20 f2 72 65  |......:..... .re|
00000f50  63 74 61 6e 67 6c 65 0d  08 02 22 c8 93 20 58 31  |ctangle...".. X1|
00000f60  25 2c 59 31 25 2c 28 58  32 25 2d 58 31 25 29 2c  |%,Y1%,(X2%-X1%),|
00000f70  28 59 32 25 2d 59 31 25  29 0d 08 0c 05 e1 0d 08  |(Y2%-Y1%).......|
00000f80  16 05 3a 0d 08 20 0d dd  20 f2 66 61 63 74 6f 72  |..:.. .. .factor|
00000f90  0d 08 2a 21 e7 20 6c 65  66 74 3c 3e 72 69 67 68  |..*!. left<>righ|
00000fa0  74 20 80 20 74 6f 70 3c  3e 62 6f 74 74 6f 6d 20  |t . top<>bottom |
00000fb0  8c 0d 08 34 33 20 20 66  61 63 74 6f 72 3d 28 28  |...43  factor=((|
00000fc0  28 72 69 67 68 74 2d 6c  65 66 74 29 2a 28 74 6f  |(right-left)*(to|
00000fd0  70 2d 62 6f 74 74 6f 6d  29 29 2f 73 69 7a 65 29  |p-bottom))/size)|
00000fe0  5e 30 2e 35 0d 08 3e 05  cc 0d 08 48 0e 20 20 66  |^0.5..>....H.  f|
00000ff0  61 63 74 6f 72 3d 30 0d  08 52 05 cd 0d 08 5c 1c  |actor=0..R....\.|
00001000  63 6f 6c 6f 75 72 73 25  3d 6d 61 78 63 6f 6c 73  |colours%=maxcols|
00001010  25 2a 66 61 63 74 6f 72  0d 08 66 18 e7 20 66 61  |%*factor..f.. fa|
00001020  73 74 25 20 8c 20 63 6f  6c 6f 75 72 73 25 3d 31  |st% . colours%=1|
00001030  0d 08 70 05 e1 0d 08 7a  05 3a 0d 08 84 0c dd 20  |..p....z.:..... |
00001040  f2 73 69 64 65 73 0d 08  8e 14 6c 65 66 74 3d 58  |.sides....left=X|
00001050  31 25 2f 78 66 61 63 74  6f 72 0d 08 98 15 72 69  |1%/xfactor....ri|
00001060  67 68 74 3d 58 32 25 2f  78 66 61 63 74 6f 72 0d  |ght=X2%/xfactor.|
00001070  08 a2 13 74 6f 70 3d 59  31 25 2f 79 66 61 63 74  |...top=Y1%/yfact|
00001080  6f 72 0d 08 ac 16 62 6f  74 74 6f 6d 3d 59 32 25  |or....bottom=Y2%|
00001090  2f 79 66 61 63 74 6f 72  0d 08 b6 32 e7 20 6c 65  |/yfactor...2. le|
000010a0  66 74 3e 72 69 67 68 74  20 8c 20 74 65 6d 70 3d  |ft>right . temp=|
000010b0  6c 65 66 74 3a 6c 65 66  74 3d 72 69 67 68 74 3a  |left:left=right:|
000010c0  72 69 67 68 74 3d 74 65  6d 70 0d 08 c0 32 e7 20  |right=temp...2. |
000010d0  62 6f 74 74 6f 6d 3e 74  6f 70 20 8c 20 74 65 6d  |bottom>top . tem|
000010e0  70 3d 62 6f 74 74 6f 6d  3a 62 6f 74 74 6f 6d 3d  |p=bottom:bottom=|
000010f0  74 6f 70 3a 74 6f 70 3d  74 65 6d 70 0d 08 ca 05  |top:top=temp....|
00001100  e1 0d 08 d4 05 3a 0d 08  de 10 dd 20 f2 6f 72 69  |.....:..... .ori|
00001110  67 69 6e 28 73 29 0d 08  e8 0e e6 20 30 2c 62 6c  |gin(s)..... 0,bl|
00001120  61 63 6b 25 0d 08 f2 0a  73 73 3d 73 2f 38 0d 08  |ack%....ss=s/8..|
00001130  fc 15 ec 20 30 2c 73 3a  df 20 30 2c 30 3a df 20  |... 0,s:. 0,0:. |
00001140  73 2c 30 0d 09 06 1e ec  20 2d 73 73 2c 73 2d 73  |s,0..... -ss,s-s|
00001150  73 3a df 20 30 2c 73 3a  df 20 73 73 2c 73 2d 73  |s:. 0,s:. ss,s-s|
00001160  73 0d 09 10 1e ec 20 73  2d 73 73 2c 2d 73 73 3a  |s..... s-ss,-ss:|
00001170  df 20 73 2c 30 3a df 20  73 2d 73 73 2c 73 73 0d  |. s,0:. s-ss,ss.|
00001180  09 1a 05 e1 0d 09 24 05  3a 0d 09 2e 13 dd 20 f2  |......$.:..... .|
00001190  70 6f 69 6e 74 28 78 2c  79 2c 70 29 0d 09 38 28  |point(x,y,p)..8(|
000011a0  f1 20 8a 30 2c 33 2b 70  29 22 28 22 3b c3 28 78  |. .0,3+p)"(";.(x|
000011b0  29 3b 22 2c 22 3b c3 28  79 29 3b 22 29 20 20 20  |);",";.(y);")   |
000011c0  20 20 20 22 0d 09 42 05  e1 0d ff                 |   "..B....|
000011cb