� Scallops32
� By Mark Adcock
� 19/11/96
(�
2�mode("X640 Y480 C16M")
<� � �:�:�
F7ș "ColourTrans_SetGCOL",(64<<8)+(64<<16)+(255<<24)
PȏȐ 640,512,820
Z� XR(10),YR(10)
d�
n�DRAWSCALLOP
x� �
��
�:
�:
�:
�� �DRAWSCALLOP
�ER=�(128)+128
�EG=�(128)+128
�EB=�(128)+128
�
X=�(1280)
�
Y=�(1024)
�S=�(200)
�XR=S
�YR=0

�ROT(XR,YR,�(360))

	XR=NX

	YR=NY

"N=�(5)+5

,SPREAD=�((270/N)-5)+5

6
� L=1 � N

@XR(L)=XR

JYR(L)=YR

T�ROT(XR,YR,SPREAD)

^	XR=NX

h	YR=NY

r� L

|:

�
CN=128

�RP=(ER-64)/CN

�GP=(EG-64)/CN

�BP=(EB-255)/CN

�� C = 1 � CN � 2.5

�_ș "ColourTrans_SetGCOL",((64+RP*(C-1))<<8)+((64+GP*(C-1))<<16)+((255+BP*(C-1))<<24),,,&333

�� L = 1 � N

�H�LINE(X-XR(L)/3,Y-YR(L)/3,X+XR(L),Y+YR(L),0.5*((CN-C)/CN)*(2*S*�)/N)

��L

�� C

��

�:

�:
:
� �ROT(TX,TY,TR)
TR=�(TR)
&NX=TX*�(TR)-TY*�(TR)
0NY=TX*�(TR)+TY*�(TR)
:�
D:
N:
X:
b� �LINE(OLX,OLY,LX,LY,SIZE)
l� LXP,LYP,C,SX,SY,A,L
v� LX=OLX LX+=1
�� �(LX-OLX)>�(LY-OLY) �
� L=�(LX-OLX)
�* LXP=(LX-OLX)/L:LYP=(LY-OLY)/�(LX-OLX)
��
�� �(LY-OLY)>�(LX-OLX) �
� L=�(LY-OLY)
�* LYP=(LY-OLY)/L:LXP=(LX-OLX)/�(LY-OLY)
��
�
SX=OLX
�
SY=OLY
�� A = 1 � L/6
�
SX+=LXP*6
�
SY+=LYP*6
ȏȐ SX,SY,SIZE
� A
�
 :
*:
4:
>� �mode(mode$)
H� c$,ex,ey,mode,end
R
� mode 64
\end=mode+20
f!mode=1
pmode!4=��_m(mode$,"X","")
zmode!8=��_m(mode$,"Y","")
�c$=�_m(mode$,"C","*")
�� c$="*" �
� c$=�_m(mode$,"G","")
�' � c$="256" !end=3:end!4=255:end+=8
��
�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$)
8%� i<1 � d$="" � 490,"Missing "+p$
B� i<1 � =d$
Lj=�s$+" "," ",i+1)
V=�s$,i+1,j-i-1)
`
j� �_bpp(n$)
tȎ n$ �
~
 � "2":=0
�
 � "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�
�

00000000  0d 00 0a 10 f4 20 53 63  61 6c 6c 6f 70 73 33 32  |..... Scallops32|
00000010  0d 00 14 14 f4 20 42 79  20 4d 61 72 6b 20 41 64  |..... By Mark Ad|
00000020  63 6f 63 6b 0d 00 1e 0e  f4 20 31 39 2f 31 31 2f  |cock..... 19/11/|
00000030  39 36 0d 00 28 05 f4 0d  00 32 1b f2 6d 6f 64 65  |96..(....2..mode|
00000040  28 22 58 36 34 30 20 59  34 38 30 20 43 31 36 4d  |("X640 Y480 C16M|
00000050  22 29 0d 00 3c 0e ee 20  85 20 f1 9e 3a f6 3a e0  |")..<.. . ..:.:.|
00000060  0d 00 46 37 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |..F7.. "ColourTr|
00000070  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 28 36 34  |ans_SetGCOL",(64|
00000080  3c 3c 38 29 2b 28 36 34  3c 3c 31 36 29 2b 28 32  |<<8)+(64<<16)+(2|
00000090  35 35 3c 3c 32 34 29 0d  00 50 14 c8 8f c8 90 20  |55<<24)..P..... |
000000a0  36 34 30 2c 35 31 32 2c  38 32 30 0d 00 5a 13 de  |640,512,820..Z..|
000000b0  20 58 52 28 31 30 29 2c  59 52 28 31 30 29 0d 00  | XR(10),YR(10)..|
000000c0  64 05 f5 0d 00 6e 10 f2  44 52 41 57 53 43 41 4c  |d....n..DRAWSCAL|
000000d0  4c 4f 50 0d 00 78 07 fd  20 a3 0d 00 82 05 e0 0d  |LOP..x.. .......|
000000e0  00 8c 05 3a 0d 00 96 05  3a 0d 00 a0 05 3a 0d 00  |...:....:....:..|
000000f0  aa 12 dd 20 f2 44 52 41  57 53 43 41 4c 4c 4f 50  |... .DRAWSCALLOP|
00000100  0d 00 b4 11 45 52 3d b3  28 31 32 38 29 2b 31 32  |....ER=.(128)+12|
00000110  38 0d 00 be 11 45 47 3d  b3 28 31 32 38 29 2b 31  |8....EG=.(128)+1|
00000120  32 38 0d 00 c8 11 45 42  3d b3 28 31 32 38 29 2b  |28....EB=.(128)+|
00000130  31 32 38 0d 00 d2 0d 58  3d b3 28 31 32 38 30 29  |128....X=.(1280)|
00000140  0d 00 dc 0d 59 3d b3 28  31 30 32 34 29 0d 00 e6  |....Y=.(1024)...|
00000150  0c 53 3d b3 28 32 30 30  29 0d 00 f0 08 58 52 3d  |.S=.(200)....XR=|
00000160  53 0d 00 fa 08 59 52 3d  30 0d 01 04 16 f2 52 4f  |S....YR=0.....RO|
00000170  54 28 58 52 2c 59 52 2c  b3 28 33 36 30 29 29 0d  |T(XR,YR,.(360)).|
00000180  01 0e 09 58 52 3d 4e 58  0d 01 18 09 59 52 3d 4e  |...XR=NX....YR=N|
00000190  59 0d 01 22 0c 4e 3d b3  28 35 29 2b 35 0d 01 2c  |Y..".N=.(5)+5..,|
000001a0  19 53 50 52 45 41 44 3d  b3 28 28 32 37 30 2f 4e  |.SPREAD=.((270/N|
000001b0  29 2d 35 29 2b 35 0d 01  36 0d e3 20 4c 3d 31 20  |)-5)+5..6.. L=1 |
000001c0  b8 20 4e 0d 01 40 0c 58  52 28 4c 29 3d 58 52 0d  |. N..@.XR(L)=XR.|
000001d0  01 4a 0c 59 52 28 4c 29  3d 59 52 0d 01 54 16 f2  |.J.YR(L)=YR..T..|
000001e0  52 4f 54 28 58 52 2c 59  52 2c 53 50 52 45 41 44  |ROT(XR,YR,SPREAD|
000001f0  29 0d 01 5e 09 58 52 3d  4e 58 0d 01 68 09 59 52  |)..^.XR=NX..h.YR|
00000200  3d 4e 59 0d 01 72 07 ed  20 4c 0d 01 7c 05 3a 0d  |=NY..r.. L..|.:.|
00000210  01 86 0a 43 4e 3d 31 32  38 0d 01 90 11 52 50 3d  |...CN=128....RP=|
00000220  28 45 52 2d 36 34 29 2f  43 4e 0d 01 9a 11 47 50  |(ER-64)/CN....GP|
00000230  3d 28 45 47 2d 36 34 29  2f 43 4e 0d 01 a4 12 42  |=(EG-64)/CN....B|
00000240  50 3d 28 45 42 2d 32 35  35 29 2f 43 4e 0d 01 ae  |P=(EB-255)/CN...|
00000250  16 e3 20 43 20 3d 20 31  20 b8 20 43 4e 20 88 20  |.. C = 1 . CN . |
00000260  32 2e 35 0d 01 b8 5f c8  99 20 22 43 6f 6c 6f 75  |2.5..._.. "Colou|
00000270  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00000280  28 28 36 34 2b 52 50 2a  28 43 2d 31 29 29 3c 3c  |((64+RP*(C-1))<<|
00000290  38 29 2b 28 28 36 34 2b  47 50 2a 28 43 2d 31 29  |8)+((64+GP*(C-1)|
000002a0  29 3c 3c 31 36 29 2b 28  28 32 35 35 2b 42 50 2a  |)<<16)+((255+BP*|
000002b0  28 43 2d 31 29 29 3c 3c  32 34 29 2c 2c 2c 26 33  |(C-1))<<24),,,&3|
000002c0  33 33 0d 01 c2 0f e3 20  4c 20 3d 20 31 20 b8 20  |33..... L = 1 . |
000002d0  4e 0d 01 cc 48 f2 4c 49  4e 45 28 58 2d 58 52 28  |N...H.LINE(X-XR(|
000002e0  4c 29 2f 33 2c 59 2d 59  52 28 4c 29 2f 33 2c 58  |L)/3,Y-YR(L)/3,X|
000002f0  2b 58 52 28 4c 29 2c 59  2b 59 52 28 4c 29 2c 30  |+XR(L),Y+YR(L),0|
00000300  2e 35 2a 28 28 43 4e 2d  43 29 2f 43 4e 29 2a 28  |.5*((CN-C)/CN)*(|
00000310  32 2a 53 2a af 29 2f 4e  29 0d 01 d6 06 ed 4c 0d  |2*S*.)/N).....L.|
00000320  01 e0 07 ed 20 43 0d 01  ea 05 e1 0d 01 f4 05 3a  |.... C.........:|
00000330  0d 01 fe 05 3a 0d 02 08  05 3a 0d 02 12 14 dd 20  |....:....:..... |
00000340  f2 52 4f 54 28 54 58 2c  54 59 2c 54 52 29 0d 02  |.ROT(TX,TY,TR)..|
00000350  1c 0c 54 52 3d b2 28 54  52 29 0d 02 26 18 4e 58  |..TR=.(TR)..&.NX|
00000360  3d 54 58 2a 9b 28 54 52  29 2d 54 59 2a b5 28 54  |=TX*.(TR)-TY*.(T|
00000370  52 29 0d 02 30 18 4e 59  3d 54 58 2a b5 28 54 52  |R)..0.NY=TX*.(TR|
00000380  29 2b 54 59 2a 9b 28 54  52 29 0d 02 3a 05 e1 0d  |)+TY*.(TR)..:...|
00000390  02 44 05 3a 0d 02 4e 05  3a 0d 02 58 05 3a 0d 02  |.D.:..N.:..X.:..|
000003a0  62 1f dd 20 f2 4c 49 4e  45 28 4f 4c 58 2c 4f 4c  |b.. .LINE(OLX,OL|
000003b0  59 2c 4c 58 2c 4c 59 2c  53 49 5a 45 29 0d 02 6c  |Y,LX,LY,SIZE)..l|
000003c0  19 ea 20 4c 58 50 2c 4c  59 50 2c 43 2c 53 58 2c  |.. LXP,LYP,C,SX,|
000003d0  53 59 2c 41 2c 4c 0d 02  76 12 e7 20 4c 58 3d 4f  |SY,A,L..v.. LX=O|
000003e0  4c 58 20 4c 58 2b 3d 31  0d 02 80 1b e7 20 94 28  |LX LX+=1..... .(|
000003f0  4c 58 2d 4f 4c 58 29 3e  94 28 4c 59 2d 4f 4c 59  |LX-OLX)>.(LY-OLY|
00000400  29 20 8c 0d 02 8a 10 20  4c 3d 94 28 4c 58 2d 4f  |) ..... L=.(LX-O|
00000410  4c 58 29 0d 02 94 2a 20  4c 58 50 3d 28 4c 58 2d  |LX)...* LXP=(LX-|
00000420  4f 4c 58 29 2f 4c 3a 4c  59 50 3d 28 4c 59 2d 4f  |OLX)/L:LYP=(LY-O|
00000430  4c 59 29 2f 94 28 4c 58  2d 4f 4c 58 29 0d 02 9e  |LY)/.(LX-OLX)...|
00000440  05 cd 0d 02 a8 1b e7 20  94 28 4c 59 2d 4f 4c 59  |....... .(LY-OLY|
00000450  29 3e 94 28 4c 58 2d 4f  4c 58 29 20 8c 0d 02 b2  |)>.(LX-OLX) ....|
00000460  10 20 4c 3d 94 28 4c 59  2d 4f 4c 59 29 0d 02 bc  |. L=.(LY-OLY)...|
00000470  2a 20 4c 59 50 3d 28 4c  59 2d 4f 4c 59 29 2f 4c  |* LYP=(LY-OLY)/L|
00000480  3a 4c 58 50 3d 28 4c 58  2d 4f 4c 58 29 2f 94 28  |:LXP=(LX-OLX)/.(|
00000490  4c 59 2d 4f 4c 59 29 0d  02 c6 05 cd 0d 02 d0 0a  |LY-OLY).........|
000004a0  53 58 3d 4f 4c 58 0d 02  da 0a 53 59 3d 4f 4c 59  |SX=OLX....SY=OLY|
000004b0  0d 02 e4 11 e3 20 41 20  3d 20 31 20 b8 20 4c 2f  |..... A = 1 . L/|
000004c0  36 0d 02 ee 0d 53 58 2b  3d 4c 58 50 2a 36 0d 02  |6....SX+=LXP*6..|
000004d0  f8 0d 53 59 2b 3d 4c 59  50 2a 36 0d 03 02 13 c8  |..SY+=LYP*6.....|
000004e0  8f c8 90 20 53 58 2c 53  59 2c 53 49 5a 45 0d 03  |... SX,SY,SIZE..|
000004f0  0c 07 ed 20 41 0d 03 16  05 e1 0d 03 20 05 3a 0d  |... A....... .:.|
00000500  03 2a 05 3a 0d 03 34 05  3a 0d 03 3e 12 dd 20 f2  |.*.:..4.:..>.. .|
00000510  6d 6f 64 65 28 6d 6f 64  65 24 29 0d 03 48 17 ea  |mode(mode$)..H..|
00000520  20 63 24 2c 65 78 2c 65  79 2c 6d 6f 64 65 2c 65  | c$,ex,ey,mode,e|
00000530  6e 64 0d 03 52 0d de 20  6d 6f 64 65 20 36 34 0d  |nd..R.. mode 64.|
00000540  03 5c 0f 65 6e 64 3d 6d  6f 64 65 2b 32 30 0d 03  |.\.end=mode+20..|
00000550  66 0b 21 6d 6f 64 65 3d  31 0d 03 70 1d 6d 6f 64  |f.!mode=1..p.mod|
00000560  65 21 34 3d bb a4 5f 6d  28 6d 6f 64 65 24 2c 22  |e!4=.._m(mode$,"|
00000570  58 22 2c 22 22 29 0d 03  7a 1d 6d 6f 64 65 21 38  |X","")..z.mode!8|
00000580  3d bb a4 5f 6d 28 6d 6f  64 65 24 2c 22 59 22 2c  |=.._m(mode$,"Y",|
00000590  22 22 29 0d 03 84 19 63  24 3d a4 5f 6d 28 6d 6f  |"")....c$=._m(mo|
000005a0  64 65 24 2c 22 43 22 2c  22 2a 22 29 0d 03 8e 0e  |de$,"C","*")....|
000005b0  e7 20 63 24 3d 22 2a 22  20 8c 0d 03 98 19 20 63  |. c$="*" ..... c|
000005c0  24 3d a4 5f 6d 28 6d 6f  64 65 24 2c 22 47 22 2c  |$=._m(mode$,"G",|
000005d0  22 22 29 0d 03 a2 27 20  e7 20 63 24 3d 22 32 35  |"")...' . c$="25|
000005e0  36 22 20 21 65 6e 64 3d  33 3a 65 6e 64 21 34 3d  |6" !end=3:end!4=|
000005f0  32 35 35 3a 65 6e 64 2b  3d 38 0d 03 ac 05 cd 0d  |255:end+=8......|
00000600  03 b6 15 6d 6f 64 65 21  31 32 3d a4 5f 62 70 70  |...mode!12=._bpp|
00000610  28 63 24 29 0d 03 c0 20  6d 6f 64 65 21 31 36 3d  |(c$)... mode!16=|
00000620  bb a4 5f 6d 28 6d 6f 64  65 24 2c 22 46 22 2c 22  |.._m(mode$,"F","|
00000630  2d 31 22 29 0d 03 ca 1c  65 78 3d bb a4 5f 6d 28  |-1")....ex=.._m(|
00000640  6d 6f 64 65 24 2c 22 45  58 22 2c 22 2d 31 22 29  |mode$,"EX","-1")|
00000650  0d 03 d4 23 e7 20 65 78  3c 3e 2d 31 20 21 65 6e  |...#. ex<>-1 !en|
00000660  64 3d 34 3a 65 6e 64 21  34 3d 65 78 3a 65 6e 64  |d=4:end!4=ex:end|
00000670  2b 3d 38 0d 03 de 1c 65  79 3d bb a4 5f 6d 28 6d  |+=8....ey=.._m(m|
00000680  6f 64 65 24 2c 22 45 59  22 2c 22 2d 31 22 29 0d  |ode$,"EY","-1").|
00000690  03 e8 23 e7 20 65 79 3c  3e 2d 31 20 21 65 6e 64  |..#. ey<>-1 !end|
000006a0  3d 35 3a 65 6e 64 21 34  3d 65 79 3a 65 6e 64 2b  |=5:end!4=ey:end+|
000006b0  3d 38 0d 03 f2 0b 21 65  6e 64 3d 2d 31 0d 03 fc  |=8....!end=-1...|
000006c0  0a eb 20 6d 6f 64 65 0d  04 06 05 e1 0d 04 10 04  |.. mode.........|
000006d0  0d 04 1a 13 dd 20 a4 5f  6d 28 73 24 2c 70 24 2c  |..... ._m(s$,p$,|
000006e0  64 24 29 0d 04 24 09 ea  20 69 2c 6a 0d 04 2e 0d  |d$)..$.. i,j....|
000006f0  69 3d a7 73 24 2c 70 24  29 0d 04 38 25 e7 20 69  |i=.s$,p$)..8%. i|
00000700  3c 31 20 80 20 64 24 3d  22 22 20 85 20 34 39 30  |<1 . d$="" . 490|
00000710  2c 22 4d 69 73 73 69 6e  67 20 22 2b 70 24 0d 04  |,"Missing "+p$..|
00000720  42 0f e7 20 69 3c 31 20  8c 20 3d 64 24 0d 04 4c  |B.. i<1 . =d$..L|
00000730  16 6a 3d a7 73 24 2b 22  20 22 2c 22 20 22 2c 69  |.j=.s$+" "," ",i|
00000740  2b 31 29 0d 04 56 13 3d  c1 73 24 2c 69 2b 31 2c  |+1)..V.=.s$,i+1,|
00000750  6a 2d 69 2d 31 29 0d 04  60 04 0d 04 6a 0f dd 20  |j-i-1)..`...j.. |
00000760  a4 5f 62 70 70 28 6e 24  29 0d 04 74 0b c8 8e 20  |._bpp(n$)..t... |
00000770  6e 24 20 ca 0d 04 7e 0d  20 c9 20 22 32 22 3a 3d  |n$ ...~. . "2":=|
00000780  30 0d 04 88 0d 20 c9 20  22 34 22 3a 3d 31 0d 04  |0.... . "4":=1..|
00000790  92 0e 20 c9 20 22 31 36  22 3a 3d 32 0d 04 9c 0f  |.. . "16":=2....|
000007a0  20 c9 20 22 32 35 36 22  3a 3d 33 0d 04 a6 21 20  | . "256":=3...! |
000007b0  c9 20 22 33 32 54 22 2c  22 33 32 74 22 2c 22 33  |. "32T","32t","3|
000007c0  32 4b 22 2c 22 33 32 6b  22 3a 3d 34 0d 04 b0 15  |2K","32k":=4....|
000007d0  20 c9 20 22 31 36 4d 22  2c 22 31 36 6d 22 3a 3d  | . "16M","16m":=|
000007e0  35 0d 04 ba 21 20 7f 3a  20 85 20 34 39 30 2c 22  |5...! .: . 490,"|
000007f0  42 61 64 20 70 61 72 61  6d 65 74 65 72 20 22 2b  |Bad parameter "+|
00000800  6e 24 0d 04 c4 05 cb 0d  04 ce 04 0d ff           |n$...........|
0000080d