� Spirals32
� By Mark Adcock
� 19/11/96
(�
2�mode("X640 Y480 C16M")
<5ș "ColourTrans_SetGCOL",(0<<8)+(0<<16)+(255<<24)
FȏȐ 640,512,820
P� � �:�:�
Z � X(10000),Y(10000),S(10000)
d
CN=128
n�
xER=�(128)+128
�EG=�(128)+128
�EB=�(128)+128
�
X=�(1280)
�
Y=�(1024)
�S=�(150)+50
�SS=S
�CS=S/10
�CSD=-3.6/SS
�A=0
�T=0
��
�FIGGYISMYCAT=�(4)
�CS=CS-CSD*1.1

S=S-0.1

A+=1

�ROT(S,0,A)

"X(T)=RX+X:Y(T)=RY+Y:S(T)=CS

,T+=1

6� T=SS/0.1

@T-=1

JRP=(ER)/CN

TGP=(EG)/CN

^BP=(EB-255)/CN

hRUG=�(25)/100+0.75

r � C = CN/FIGGYISMYCAT � CN-1

|�ș "ColourTrans_SetGCOL",((RP*(C-CN/FIGGYISMYCAT))<<8)+((GP*(C-CN/FIGGYISMYCAT))<<16)+((255+BP*(C-CN/FIGGYISMYCAT))<<24),,,&333

�"� L = �((T/CN)*C)*RUG � T � 10

�%ȏȐ X(L),Y(L),S(L)-C*(S(L)/CN)+1

�� L

�� C

�� �

�� �ROT(TX,TY,TR)

�TR=�(TR)

�RX=TX*�(TR)-TY*�(TR)

�RY=TX*�(TR)+TY*�(TR)

��

�:

�:

�:
� �mode(mode$)
� c$,ex,ey,mode,end

� mode 64
&end=mode+20
0!mode=1
:mode!4=��_m(mode$,"X","")
Dmode!8=��_m(mode$,"Y","")
Nc$=�_m(mode$,"C","*")
X� c$="*" �
b c$=�_m(mode$,"G","")
l' � c$="256" !end=3:end!4=255:end+=8
v�
�mode!12=�_bpp(c$)
� mode!16=��_m(mode$,"F","-1")
�ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
�ey=��_m(mode$,"EY","-1")
�#� ey<>-1 !end=5:end!4=ey:end+=8
�!end=-1
�
� mode
��
�
�� �_m(s$,p$,d$)
�	� i,j
�
i=�s$,p$)
%� i<1 � d$="" � 490,"Missing "+p$
� i<1 � =d$
j=�s$+" "," ",i+1)
 =�s$,i+1,j-i-1)
*
4� �_bpp(n$)
>Ȏ n$ �
H
 � "2":=0
R
 � "4":=1
\ � "16":=2
f � "256":=3
p! � "32T","32t","32K","32k":=4
z � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�

00000000  0d 00 0a 0f f4 20 53 70  69 72 61 6c 73 33 32 0d  |..... Spirals32.|
00000010  00 14 14 f4 20 42 79 20  4d 61 72 6b 20 41 64 63  |.... By Mark Adc|
00000020  6f 63 6b 0d 00 1e 0e f4  20 31 39 2f 31 31 2f 39  |ock..... 19/11/9|
00000030  36 0d 00 28 05 f4 0d 00  32 1b f2 6d 6f 64 65 28  |6..(....2..mode(|
00000040  22 58 36 34 30 20 59 34  38 30 20 43 31 36 4d 22  |"X640 Y480 C16M"|
00000050  29 0d 00 3c 35 c8 99 20  22 43 6f 6c 6f 75 72 54  |)..<5.. "ColourT|
00000060  72 61 6e 73 5f 53 65 74  47 43 4f 4c 22 2c 28 30  |rans_SetGCOL",(0|
00000070  3c 3c 38 29 2b 28 30 3c  3c 31 36 29 2b 28 32 35  |<<8)+(0<<16)+(25|
00000080  35 3c 3c 32 34 29 0d 00  46 14 c8 8f c8 90 20 36  |5<<24)..F..... 6|
00000090  34 30 2c 35 31 32 2c 38  32 30 0d 00 50 0e ee 20  |40,512,820..P.. |
000000a0  85 20 f1 9e 3a f6 3a e0  0d 00 5a 20 de 20 58 28  |. ..:.:...Z . X(|
000000b0  31 30 30 30 30 29 2c 59  28 31 30 30 30 30 29 2c  |10000),Y(10000),|
000000c0  53 28 31 30 30 30 30 29  0d 00 64 0a 43 4e 3d 31  |S(10000)..d.CN=1|
000000d0  32 38 0d 00 6e 05 f5 0d  00 78 11 45 52 3d b3 28  |28..n....x.ER=.(|
000000e0  31 32 38 29 2b 31 32 38  0d 00 82 11 45 47 3d b3  |128)+128....EG=.|
000000f0  28 31 32 38 29 2b 31 32  38 0d 00 8c 11 45 42 3d  |(128)+128....EB=|
00000100  b3 28 31 32 38 29 2b 31  32 38 0d 00 96 0d 58 3d  |.(128)+128....X=|
00000110  b3 28 31 32 38 30 29 0d  00 a0 0d 59 3d b3 28 31  |.(1280)....Y=.(1|
00000120  30 32 34 29 0d 00 aa 0f  53 3d b3 28 31 35 30 29  |024)....S=.(150)|
00000130  2b 35 30 0d 00 b4 08 53  53 3d 53 0d 00 be 0b 43  |+50....SS=S....C|
00000140  53 3d 53 2f 31 30 0d 00  c8 0f 43 53 44 3d 2d 33  |S=S/10....CSD=-3|
00000150  2e 36 2f 53 53 0d 00 d2  07 41 3d 30 0d 00 dc 07  |.6/SS....A=0....|
00000160  54 3d 30 0d 00 e6 05 f5  0d 00 f0 15 46 49 47 47  |T=0.........FIGG|
00000170  59 49 53 4d 59 43 41 54  3d b3 28 34 29 0d 00 fa  |YISMYCAT=.(4)...|
00000180  11 43 53 3d 43 53 2d 43  53 44 2a 31 2e 31 0d 01  |.CS=CS-CSD*1.1..|
00000190  04 0b 53 3d 53 2d 30 2e  31 0d 01 0e 08 41 2b 3d  |..S=S-0.1....A+=|
000001a0  31 0d 01 18 0f f2 52 4f  54 28 53 2c 30 2c 41 29  |1.....ROT(S,0,A)|
000001b0  0d 01 22 1f 58 28 54 29  3d 52 58 2b 58 3a 59 28  |..".X(T)=RX+X:Y(|
000001c0  54 29 3d 52 59 2b 59 3a  53 28 54 29 3d 43 53 0d  |T)=RY+Y:S(T)=CS.|
000001d0  01 2c 08 54 2b 3d 31 0d  01 36 0e fd 20 54 3d 53  |.,.T+=1..6.. T=S|
000001e0  53 2f 30 2e 31 0d 01 40  08 54 2d 3d 31 0d 01 4a  |S/0.1..@.T-=1..J|
000001f0  0e 52 50 3d 28 45 52 29  2f 43 4e 0d 01 54 0e 47  |.RP=(ER)/CN..T.G|
00000200  50 3d 28 45 47 29 2f 43  4e 0d 01 5e 12 42 50 3d  |P=(EG)/CN..^.BP=|
00000210  28 45 42 2d 32 35 35 29  2f 43 4e 0d 01 68 16 52  |(EB-255)/CN..h.R|
00000220  55 47 3d b3 28 32 35 29  2f 31 30 30 2b 30 2e 37  |UG=.(25)/100+0.7|
00000230  35 0d 01 72 20 e3 20 43  20 3d 20 43 4e 2f 46 49  |5..r . C = CN/FI|
00000240  47 47 59 49 53 4d 59 43  41 54 20 b8 20 43 4e 2d  |GGYISMYCAT . CN-|
00000250  31 0d 01 7c 83 c8 99 20  22 43 6f 6c 6f 75 72 54  |1..|... "ColourT|
00000260  72 61 6e 73 5f 53 65 74  47 43 4f 4c 22 2c 28 28  |rans_SetGCOL",((|
00000270  52 50 2a 28 43 2d 43 4e  2f 46 49 47 47 59 49 53  |RP*(C-CN/FIGGYIS|
00000280  4d 59 43 41 54 29 29 3c  3c 38 29 2b 28 28 47 50  |MYCAT))<<8)+((GP|
00000290  2a 28 43 2d 43 4e 2f 46  49 47 47 59 49 53 4d 59  |*(C-CN/FIGGYISMY|
000002a0  43 41 54 29 29 3c 3c 31  36 29 2b 28 28 32 35 35  |CAT))<<16)+((255|
000002b0  2b 42 50 2a 28 43 2d 43  4e 2f 46 49 47 47 59 49  |+BP*(C-CN/FIGGYI|
000002c0  53 4d 59 43 41 54 29 29  3c 3c 32 34 29 2c 2c 2c  |SMYCAT))<<24),,,|
000002d0  26 33 33 33 0d 01 86 22  e3 20 4c 20 3d 20 a8 28  |&333...". L = .(|
000002e0  28 54 2f 43 4e 29 2a 43  29 2a 52 55 47 20 b8 20  |(T/CN)*C)*RUG . |
000002f0  54 20 88 20 31 30 0d 01  90 25 c8 8f c8 90 20 58  |T . 10...%.... X|
00000300  28 4c 29 2c 59 28 4c 29  2c 53 28 4c 29 2d 43 2a  |(L),Y(L),S(L)-C*|
00000310  28 53 28 4c 29 2f 43 4e  29 2b 31 0d 01 9a 07 ed  |(S(L)/CN)+1.....|
00000320  20 4c 0d 01 a4 07 ed 20  43 0d 01 ae 07 fd 20 a3  | L..... C..... .|
00000330  0d 01 b8 14 dd 20 f2 52  4f 54 28 54 58 2c 54 59  |..... .ROT(TX,TY|
00000340  2c 54 52 29 0d 01 c2 0c  54 52 3d b2 28 54 52 29  |,TR)....TR=.(TR)|
00000350  0d 01 cc 18 52 58 3d 54  58 2a 9b 28 54 52 29 2d  |....RX=TX*.(TR)-|
00000360  54 59 2a b5 28 54 52 29  0d 01 d6 18 52 59 3d 54  |TY*.(TR)....RY=T|
00000370  58 2a b5 28 54 52 29 2b  54 59 2a 9b 28 54 52 29  |X*.(TR)+TY*.(TR)|
00000380  0d 01 e0 05 e1 0d 01 ea  05 3a 0d 01 f4 05 3a 0d  |.........:....:.|
00000390  01 fe 05 3a 0d 02 08 12  dd 20 f2 6d 6f 64 65 28  |...:..... .mode(|
000003a0  6d 6f 64 65 24 29 0d 02  12 17 ea 20 63 24 2c 65  |mode$)..... c$,e|
000003b0  78 2c 65 79 2c 6d 6f 64  65 2c 65 6e 64 0d 02 1c  |x,ey,mode,end...|
000003c0  0d de 20 6d 6f 64 65 20  36 34 0d 02 26 0f 65 6e  |.. mode 64..&.en|
000003d0  64 3d 6d 6f 64 65 2b 32  30 0d 02 30 0b 21 6d 6f  |d=mode+20..0.!mo|
000003e0  64 65 3d 31 0d 02 3a 1d  6d 6f 64 65 21 34 3d bb  |de=1..:.mode!4=.|
000003f0  a4 5f 6d 28 6d 6f 64 65  24 2c 22 58 22 2c 22 22  |._m(mode$,"X",""|
00000400  29 0d 02 44 1d 6d 6f 64  65 21 38 3d bb a4 5f 6d  |)..D.mode!8=.._m|
00000410  28 6d 6f 64 65 24 2c 22  59 22 2c 22 22 29 0d 02  |(mode$,"Y","")..|
00000420  4e 19 63 24 3d a4 5f 6d  28 6d 6f 64 65 24 2c 22  |N.c$=._m(mode$,"|
00000430  43 22 2c 22 2a 22 29 0d  02 58 0e e7 20 63 24 3d  |C","*")..X.. c$=|
00000440  22 2a 22 20 8c 0d 02 62  19 20 63 24 3d a4 5f 6d  |"*" ...b. c$=._m|
00000450  28 6d 6f 64 65 24 2c 22  47 22 2c 22 22 29 0d 02  |(mode$,"G","")..|
00000460  6c 27 20 e7 20 63 24 3d  22 32 35 36 22 20 21 65  |l' . c$="256" !e|
00000470  6e 64 3d 33 3a 65 6e 64  21 34 3d 32 35 35 3a 65  |nd=3:end!4=255:e|
00000480  6e 64 2b 3d 38 0d 02 76  05 cd 0d 02 80 15 6d 6f  |nd+=8..v......mo|
00000490  64 65 21 31 32 3d a4 5f  62 70 70 28 63 24 29 0d  |de!12=._bpp(c$).|
000004a0  02 8a 20 6d 6f 64 65 21  31 36 3d bb a4 5f 6d 28  |.. mode!16=.._m(|
000004b0  6d 6f 64 65 24 2c 22 46  22 2c 22 2d 31 22 29 0d  |mode$,"F","-1").|
000004c0  02 94 1c 65 78 3d bb a4  5f 6d 28 6d 6f 64 65 24  |...ex=.._m(mode$|
000004d0  2c 22 45 58 22 2c 22 2d  31 22 29 0d 02 9e 23 e7  |,"EX","-1")...#.|
000004e0  20 65 78 3c 3e 2d 31 20  21 65 6e 64 3d 34 3a 65  | ex<>-1 !end=4:e|
000004f0  6e 64 21 34 3d 65 78 3a  65 6e 64 2b 3d 38 0d 02  |nd!4=ex:end+=8..|
00000500  a8 1c 65 79 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |..ey=.._m(mode$,|
00000510  22 45 59 22 2c 22 2d 31  22 29 0d 02 b2 23 e7 20  |"EY","-1")...#. |
00000520  65 79 3c 3e 2d 31 20 21  65 6e 64 3d 35 3a 65 6e  |ey<>-1 !end=5:en|
00000530  64 21 34 3d 65 79 3a 65  6e 64 2b 3d 38 0d 02 bc  |d!4=ey:end+=8...|
00000540  0b 21 65 6e 64 3d 2d 31  0d 02 c6 0a eb 20 6d 6f  |.!end=-1..... mo|
00000550  64 65 0d 02 d0 05 e1 0d  02 da 04 0d 02 e4 13 dd  |de..............|
00000560  20 a4 5f 6d 28 73 24 2c  70 24 2c 64 24 29 0d 02  | ._m(s$,p$,d$)..|
00000570  ee 09 ea 20 69 2c 6a 0d  02 f8 0d 69 3d a7 73 24  |... i,j....i=.s$|
00000580  2c 70 24 29 0d 03 02 25  e7 20 69 3c 31 20 80 20  |,p$)...%. i<1 . |
00000590  64 24 3d 22 22 20 85 20  34 39 30 2c 22 4d 69 73  |d$="" . 490,"Mis|
000005a0  73 69 6e 67 20 22 2b 70  24 0d 03 0c 0f e7 20 69  |sing "+p$..... i|
000005b0  3c 31 20 8c 20 3d 64 24  0d 03 16 16 6a 3d a7 73  |<1 . =d$....j=.s|
000005c0  24 2b 22 20 22 2c 22 20  22 2c 69 2b 31 29 0d 03  |$+" "," ",i+1)..|
000005d0  20 13 3d c1 73 24 2c 69  2b 31 2c 6a 2d 69 2d 31  | .=.s$,i+1,j-i-1|
000005e0  29 0d 03 2a 04 0d 03 34  0f dd 20 a4 5f 62 70 70  |)..*...4.. ._bpp|
000005f0  28 6e 24 29 0d 03 3e 0b  c8 8e 20 6e 24 20 ca 0d  |(n$)..>... n$ ..|
00000600  03 48 0d 20 c9 20 22 32  22 3a 3d 30 0d 03 52 0d  |.H. . "2":=0..R.|
00000610  20 c9 20 22 34 22 3a 3d  31 0d 03 5c 0e 20 c9 20  | . "4":=1..\. . |
00000620  22 31 36 22 3a 3d 32 0d  03 66 0f 20 c9 20 22 32  |"16":=2..f. . "2|
00000630  35 36 22 3a 3d 33 0d 03  70 21 20 c9 20 22 33 32  |56":=3..p! . "32|
00000640  54 22 2c 22 33 32 74 22  2c 22 33 32 4b 22 2c 22  |T","32t","32K","|
00000650  33 32 6b 22 3a 3d 34 0d  03 7a 15 20 c9 20 22 31  |32k":=4..z. . "1|
00000660  36 4d 22 2c 22 31 36 6d  22 3a 3d 35 0d 03 84 21  |6M","16m":=5...!|
00000670  20 7f 3a 20 85 20 34 39  30 2c 22 42 61 64 20 70  | .: . 490,"Bad p|
00000680  61 72 61 6d 65 74 65 72  20 22 2b 6e 24 0d 03 8e  |arameter "+n$...|
00000690  05 cb 0d ff                                       |....|
00000694