Vibe/Square

Home » Archimedes archive » Acorn User » AU 1994-09.adf » !StarInfo_Star » Vibe/Square

Vibe/Square

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1994-09.adf » !StarInfo_Star
Filename:	Vibe/Square
Read OK:	✔
File size:	08D1 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >Square
   20
   30PRINT " 1) 320x256 VidC1"
   40PRINT " 2) 640x480 VidC1"
   50PRINT " 3) 320x256 VidC20"
   60PRINT " 4) 640x480 VidC20"
   70PRINT'"Select mode:";
   80REPEAT
   90 mode=VALGET$
  100UNTIL mode>=1 AND mode<=4
  110
  120CASE mode OF
  130 WHEN 1 : xs=320:ys=256:zs=4:vidc=1:MODE 13:OFF
  140 WHEN 2 : xs=640:ys=480:zs=2:vidc=1:MODE 28:OFF
  150 WHEN 3 : xs=320:ys=256:zs=4:vidc=20:MODE "X320 Y256 C16M EX2 EY2":OFF
  160 WHEN 4 : xs=640:ys=480:zs=2:vidc=20:MODE "X640 Y480 C16M":OFF
  170ENDCASE
  180
  181IF vidc=20 CLS
  190
  200SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO gcol
  210F%=TIME:DIM C%(4,3),P%(10,8,3)
  220FOR J%=0 TO 8
  230 FOR I%=0 TO 10
  240  FOR N%=1 TO 3
  250   P%(I%,J%,N%)=RND(255)
  260  NEXT
  270 NEXT
  280NEXT
  290
  300FOR J%=0 TO 7
  310 FOR I%=0 TO 9
  320  FOR N%=1 TO 3
  330   C%(1,N%)=P%(I%,J%,N%)
  340   C%(2,N%)=P%(I%+1,J%,N%)
  350   C%(3,N%)=P%(I%+1,J%+1,N%)
  360   C%(4,N%)=P%(I%,J%+1,N%)
  370  NEXT
  380  X1%=I%*128:Y1%=J%*128:X2%=X1%+128:Y2%=Y1%+128
  390  PROCP(X1%,Y1%,C%(1,1),C%(1,2),C%(1,3))
  400  PROCA(X1%,Y1%,X2%,Y2%,C%())
  410 NEXT
  420NEXT
  430END
  440
  450DEF PROCA(X1%,Y1%,X3%,Y3%,FC%())
  460LOCAL X2%,Y2%,N%,LC%(),MC%()
  470DIM LC%(4,3),MC%(5,3)
  480X2%=(X1%+X3%)/2:Y2%=(Y1%+Y3%)/2
  490FOR N%=1TO3
  500 MC%(1,N%)=(FC%(1,N%)+FC%(2,N%))/2
  510 MC%(2,N%)=(FC%(2,N%)+FC%(3,N%))/2
  520 MC%(3,N%)=(FC%(3,N%)+FC%(4,N%))/2
  530 MC%(4,N%)=(FC%(4,N%)+FC%(1,N%))/2
  540NEXT
  550FOR N%=1TO3
  560MC%(5,N%)=(MC%(1,N%)+MC%(2,N%)+MC%(3,N%)+MC%(4,N%))/4
  570NEXT
  580PROCP(X2%,Y1%,MC%(1,1),MC%(1,2),MC%(1,3))
  590PROCP(X1%,Y2%,MC%(4,1),MC%(4,2),MC%(4,3))
  600PROCP(X2%,Y2%,MC%(5,1),MC%(5,2),MC%(5,3))
  610IF X2%-X1%>zs*2 OR Y2%-Y1%=zs*2 THEN
  620FORN%=1TO3:LC%(1,N%)=FC%(1,N%):LC%(2,N%)=MC%(1,N%)
  630LC%(3,N%)=MC%(5,N%):LC%(4,N%)=MC%(4,N%):NEXT
  640PROCA(X1%,Y1%,X2%,Y2%,LC%())
  650FORN%=1TO3:LC%(1,N%)=MC%(1,N%):LC%(2,N%)=FC%(2,N%)
  660LC%(3,N%)=MC%(2,N%):LC%(4,N%)=MC%(5,N%):NEXT
  670PROCA(X2%,Y1%,X3%,Y2%,LC%())
  680FORN%=1TO3:LC%(1,N%)=MC%(4,N%):LC%(2,N%)=MC%(5,N%)
  690LC%(3,N%)=MC%(3,N%):LC%(4,N%)=FC%(4,N%):NEXT
  700PROCA(X1%,Y2%,X2%,Y3%,LC%())
  710FORN%=1TO3:LC%(1,N%)=MC%(5,N%):LC%(2,N%)=MC%(2,N%)
  720LC%(3,N%)=FC%(3,N%):LC%(4,N%)=MC%(3,N%):NEXT
  730PROCA(X2%,Y2%,X3%,Y3%,LC%())
  740ENDIF
  750ENDPROC
  760:
  770DEF PROCP(X%,Y%,R%,G%,B%)
  780LOCAL C%
  790C%=RND(-X%*Y%-F%):R%=FNR(R%):G%=FNR(G%):B%=FNR(B%)
  800CASE vidc OF
  810 WHEN 1:
  820  C%=(R%<<8)+(G%<<16)+(B%<<24)
  830  SYS gcol,C%,,,&100,0
  840 WHEN 20:
  850  GCOL R%,G%,B%
  860ENDCASE
  870POINT X%,Y%
  880ENDPROC
  890:
  900DEF FNR(R%)
  910R%=R%+RND(32)-16
  920IF R%>255 R%=255
  930IF R%<0 R%=0
  940=R%



� >Square

� " 1) 320x256 VidC1"
(� " 2) 640x480 VidC1"
2� " 3) 320x256 VidC20"
<� " 4) 640x480 VidC20"
F�'"Select mode:";
P�
Z mode=��
d� mode>=1 � mode<=4
n
x
Ȏ mode �
�+ � 1 : xs=320:ys=256:zs=4:vidc=1:� 13:�
�+ � 2 : xs=640:ys=480:zs=2:vidc=1:� 28:�
�B � 3 : xs=320:ys=256:zs=4:vidc=20:� "X320 Y256 C16M EX2 EY2":�
�: � 4 : xs=640:ys=480:zs=2:vidc=20:� "X640 Y480 C16M":�
��
�
�� vidc=20 �
�
�=ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � gcol
�F%=�:� C%(4,3),P%(10,8,3)
�� J%=0 � 8
� � I%=0 � 10
�  � N%=1 � 3
�   P%(I%,J%,N%)=�(255)
  �
 �
�
"
,� J%=0 � 7
6 � I%=0 � 9
@  � N%=1 � 3
J   C%(1,N%)=P%(I%,J%,N%)
T   C%(2,N%)=P%(I%+1,J%,N%)
^    C%(3,N%)=P%(I%+1,J%+1,N%)
h   C%(4,N%)=P%(I%,J%+1,N%)
r  �
|3  X1%=I%*128:Y1%=J%*128:X2%=X1%+128:Y2%=Y1%+128
�)  �P(X1%,Y1%,C%(1,1),C%(1,2),C%(1,3))
�  �A(X1%,Y1%,X2%,Y2%,C%())
� �
��
��
�
�� �A(X1%,Y1%,X3%,Y3%,FC%())
�� X2%,Y2%,N%,LC%(),MC%()
�� LC%(4,3),MC%(5,3)
�#X2%=(X1%+X3%)/2:Y2%=(Y1%+Y3%)/2
�� N%=1�3
�& MC%(1,N%)=(FC%(1,N%)+FC%(2,N%))/2
�& MC%(2,N%)=(FC%(2,N%)+FC%(3,N%))/2
& MC%(3,N%)=(FC%(3,N%)+FC%(4,N%))/2
& MC%(4,N%)=(FC%(4,N%)+FC%(1,N%))/2
�
&� N%=1�3
09MC%(5,N%)=(MC%(1,N%)+MC%(2,N%)+MC%(3,N%)+MC%(4,N%))/4
:�
D*�P(X2%,Y1%,MC%(1,1),MC%(1,2),MC%(1,3))
N*�P(X1%,Y2%,MC%(4,1),MC%(4,2),MC%(4,3))
X*�P(X2%,Y2%,MC%(5,1),MC%(5,2),MC%(5,3))
b#� X2%-X1%>zs*2 � Y2%-Y1%=zs*2 �
l3�N%=1�3:LC%(1,N%)=FC%(1,N%):LC%(2,N%)=MC%(1,N%)
v-LC%(3,N%)=MC%(5,N%):LC%(4,N%)=MC%(4,N%):�
��A(X1%,Y1%,X2%,Y2%,LC%())
�3�N%=1�3:LC%(1,N%)=MC%(1,N%):LC%(2,N%)=FC%(2,N%)
�-LC%(3,N%)=MC%(2,N%):LC%(4,N%)=MC%(5,N%):�
��A(X2%,Y1%,X3%,Y2%,LC%())
�3�N%=1�3:LC%(1,N%)=MC%(4,N%):LC%(2,N%)=MC%(5,N%)
�-LC%(3,N%)=MC%(3,N%):LC%(4,N%)=FC%(4,N%):�
��A(X1%,Y2%,X2%,Y3%,LC%())
�3�N%=1�3:LC%(1,N%)=MC%(5,N%):LC%(2,N%)=MC%(2,N%)
�-LC%(3,N%)=FC%(3,N%):LC%(4,N%)=MC%(3,N%):�
��A(X2%,Y2%,X3%,Y3%,LC%())
��
��
�:
� �P(X%,Y%,R%,G%,B%)
� C%
1C%=�(-X%*Y%-F%):R%=�R(R%):G%=�R(G%):B%=�R(B%)
 
Ȏ vidc �
*	 � 1:
4"  C%=(R%<<8)+(G%<<16)+(B%<<24)
>  ș gcol,C%,,,&100,0
H
 � 20:
R  � R%,G%,B%
\�
fȒ X%,Y%
p�
z:
�� �R(R%)
�R%=R%+�(32)-16
�� R%>255 R%=255
�� R%<0 R%=0
�=R%
�

00000000  0d 00 0a 0d f4 20 3e 53  71 75 61 72 65 0d 00 14  |..... >Square...|
00000010  04 0d 00 1e 19 f1 20 22  20 31 29 20 33 32 30 78  |...... " 1) 320x|
00000020  32 35 36 20 56 69 64 43  31 22 0d 00 28 19 f1 20  |256 VidC1"..(.. |
00000030  22 20 32 29 20 36 34 30  78 34 38 30 20 56 69 64  |" 2) 640x480 Vid|
00000040  43 31 22 0d 00 32 1a f1  20 22 20 33 29 20 33 32  |C1"..2.. " 3) 32|
00000050  30 78 32 35 36 20 56 69  64 43 32 30 22 0d 00 3c  |0x256 VidC20"..<|
00000060  1a f1 20 22 20 34 29 20  36 34 30 78 34 38 30 20  |.. " 4) 640x480 |
00000070  56 69 64 43 32 30 22 0d  00 46 15 f1 27 22 53 65  |VidC20"..F..'"Se|
00000080  6c 65 63 74 20 6d 6f 64  65 3a 22 3b 0d 00 50 05  |lect mode:";..P.|
00000090  f5 0d 00 5a 0c 20 6d 6f  64 65 3d bb be 0d 00 64  |...Z. mode=....d|
000000a0  17 fd 20 6d 6f 64 65 3e  3d 31 20 80 20 6d 6f 64  |.. mode>=1 . mod|
000000b0  65 3c 3d 34 0d 00 6e 04  0d 00 78 0d c8 8e 20 6d  |e<=4..n...x... m|
000000c0  6f 64 65 20 ca 0d 00 82  2b 20 c9 20 31 20 3a 20  |ode ....+ . 1 : |
000000d0  78 73 3d 33 32 30 3a 79  73 3d 32 35 36 3a 7a 73  |xs=320:ys=256:zs|
000000e0  3d 34 3a 76 69 64 63 3d  31 3a eb 20 31 33 3a 87  |=4:vidc=1:. 13:.|
000000f0  0d 00 8c 2b 20 c9 20 32  20 3a 20 78 73 3d 36 34  |...+ . 2 : xs=64|
00000100  30 3a 79 73 3d 34 38 30  3a 7a 73 3d 32 3a 76 69  |0:ys=480:zs=2:vi|
00000110  64 63 3d 31 3a eb 20 32  38 3a 87 0d 00 96 42 20  |dc=1:. 28:....B |
00000120  c9 20 33 20 3a 20 78 73  3d 33 32 30 3a 79 73 3d  |. 3 : xs=320:ys=|
00000130  32 35 36 3a 7a 73 3d 34  3a 76 69 64 63 3d 32 30  |256:zs=4:vidc=20|
00000140  3a eb 20 22 58 33 32 30  20 59 32 35 36 20 43 31  |:. "X320 Y256 C1|
00000150  36 4d 20 45 58 32 20 45  59 32 22 3a 87 0d 00 a0  |6M EX2 EY2":....|
00000160  3a 20 c9 20 34 20 3a 20  78 73 3d 36 34 30 3a 79  |: . 4 : xs=640:y|
00000170  73 3d 34 38 30 3a 7a 73  3d 32 3a 76 69 64 63 3d  |s=480:zs=2:vidc=|
00000180  32 30 3a eb 20 22 58 36  34 30 20 59 34 38 30 20  |20:. "X640 Y480 |
00000190  43 31 36 4d 22 3a 87 0d  00 aa 05 cb 0d 00 b4 04  |C16M":..........|
000001a0  0d 00 b5 0f e7 20 76 69  64 63 3d 32 30 20 db 0d  |..... vidc=20 ..|
000001b0  00 be 04 0d 00 c8 3d c8  99 20 22 4f 53 5f 53 57  |......=.. "OS_SW|
000001c0  49 4e 75 6d 62 65 72 46  72 6f 6d 53 74 72 69 6e  |INumberFromStrin|
000001d0  67 22 2c 2c 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |g",,"ColourTrans|
000001e0  5f 53 65 74 47 43 4f 4c  22 20 b8 20 67 63 6f 6c  |_SetGCOL" . gcol|
000001f0  0d 00 d2 1d 46 25 3d 91  3a de 20 43 25 28 34 2c  |....F%=.:. C%(4,|
00000200  33 29 2c 50 25 28 31 30  2c 38 2c 33 29 0d 00 dc  |3),P%(10,8,3)...|
00000210  0e e3 20 4a 25 3d 30 20  b8 20 38 0d 00 e6 10 20  |.. J%=0 . 8.... |
00000220  e3 20 49 25 3d 30 20 b8  20 31 30 0d 00 f0 10 20  |. I%=0 . 10.... |
00000230  20 e3 20 4e 25 3d 31 20  b8 20 33 0d 00 fa 1a 20  | . N%=1 . 3.... |
00000240  20 20 50 25 28 49 25 2c  4a 25 2c 4e 25 29 3d b3  |  P%(I%,J%,N%)=.|
00000250  28 32 35 35 29 0d 01 04  07 20 20 ed 0d 01 0e 06  |(255)....  .....|
00000260  20 ed 0d 01 18 05 ed 0d  01 22 04 0d 01 2c 0e e3  | ........"...,..|
00000270  20 4a 25 3d 30 20 b8 20  37 0d 01 36 0f 20 e3 20  | J%=0 . 7..6. . |
00000280  49 25 3d 30 20 b8 20 39  0d 01 40 10 20 20 e3 20  |I%=0 . 9..@.  . |
00000290  4e 25 3d 31 20 b8 20 33  0d 01 4a 1c 20 20 20 43  |N%=1 . 3..J.   C|
000002a0  25 28 31 2c 4e 25 29 3d  50 25 28 49 25 2c 4a 25  |%(1,N%)=P%(I%,J%|
000002b0  2c 4e 25 29 0d 01 54 1e  20 20 20 43 25 28 32 2c  |,N%)..T.   C%(2,|
000002c0  4e 25 29 3d 50 25 28 49  25 2b 31 2c 4a 25 2c 4e  |N%)=P%(I%+1,J%,N|
000002d0  25 29 0d 01 5e 20 20 20  20 43 25 28 33 2c 4e 25  |%)..^    C%(3,N%|
000002e0  29 3d 50 25 28 49 25 2b  31 2c 4a 25 2b 31 2c 4e  |)=P%(I%+1,J%+1,N|
000002f0  25 29 0d 01 68 1e 20 20  20 43 25 28 34 2c 4e 25  |%)..h.   C%(4,N%|
00000300  29 3d 50 25 28 49 25 2c  4a 25 2b 31 2c 4e 25 29  |)=P%(I%,J%+1,N%)|
00000310  0d 01 72 07 20 20 ed 0d  01 7c 33 20 20 58 31 25  |..r.  ...|3  X1%|
00000320  3d 49 25 2a 31 32 38 3a  59 31 25 3d 4a 25 2a 31  |=I%*128:Y1%=J%*1|
00000330  32 38 3a 58 32 25 3d 58  31 25 2b 31 32 38 3a 59  |28:X2%=X1%+128:Y|
00000340  32 25 3d 59 31 25 2b 31  32 38 0d 01 86 29 20 20  |2%=Y1%+128...)  |
00000350  f2 50 28 58 31 25 2c 59  31 25 2c 43 25 28 31 2c  |.P(X1%,Y1%,C%(1,|
00000360  31 29 2c 43 25 28 31 2c  32 29 2c 43 25 28 31 2c  |1),C%(1,2),C%(1,|
00000370  33 29 29 0d 01 90 1e 20  20 f2 41 28 58 31 25 2c  |3))....  .A(X1%,|
00000380  59 31 25 2c 58 32 25 2c  59 32 25 2c 43 25 28 29  |Y1%,X2%,Y2%,C%()|
00000390  29 0d 01 9a 06 20 ed 0d  01 a4 05 ed 0d 01 ae 05  |).... ..........|
000003a0  e0 0d 01 b8 04 0d 01 c2  1f dd 20 f2 41 28 58 31  |.......... .A(X1|
000003b0  25 2c 59 31 25 2c 58 33  25 2c 59 33 25 2c 46 43  |%,Y1%,X3%,Y3%,FC|
000003c0  25 28 29 29 0d 01 cc 1c  ea 20 58 32 25 2c 59 32  |%())..... X2%,Y2|
000003d0  25 2c 4e 25 2c 4c 43 25  28 29 2c 4d 43 25 28 29  |%,N%,LC%(),MC%()|
000003e0  0d 01 d6 17 de 20 4c 43  25 28 34 2c 33 29 2c 4d  |..... LC%(4,3),M|
000003f0  43 25 28 35 2c 33 29 0d  01 e0 23 58 32 25 3d 28  |C%(5,3)...#X2%=(|
00000400  58 31 25 2b 58 33 25 29  2f 32 3a 59 32 25 3d 28  |X1%+X3%)/2:Y2%=(|
00000410  59 31 25 2b 59 33 25 29  2f 32 0d 01 ea 0c e3 20  |Y1%+Y3%)/2..... |
00000420  4e 25 3d 31 b8 33 0d 01  f4 26 20 4d 43 25 28 31  |N%=1.3...& MC%(1|
00000430  2c 4e 25 29 3d 28 46 43  25 28 31 2c 4e 25 29 2b  |,N%)=(FC%(1,N%)+|
00000440  46 43 25 28 32 2c 4e 25  29 29 2f 32 0d 01 fe 26  |FC%(2,N%))/2...&|
00000450  20 4d 43 25 28 32 2c 4e  25 29 3d 28 46 43 25 28  | MC%(2,N%)=(FC%(|
00000460  32 2c 4e 25 29 2b 46 43  25 28 33 2c 4e 25 29 29  |2,N%)+FC%(3,N%))|
00000470  2f 32 0d 02 08 26 20 4d  43 25 28 33 2c 4e 25 29  |/2...& MC%(3,N%)|
00000480  3d 28 46 43 25 28 33 2c  4e 25 29 2b 46 43 25 28  |=(FC%(3,N%)+FC%(|
00000490  34 2c 4e 25 29 29 2f 32  0d 02 12 26 20 4d 43 25  |4,N%))/2...& MC%|
000004a0  28 34 2c 4e 25 29 3d 28  46 43 25 28 34 2c 4e 25  |(4,N%)=(FC%(4,N%|
000004b0  29 2b 46 43 25 28 31 2c  4e 25 29 29 2f 32 0d 02  |)+FC%(1,N%))/2..|
000004c0  1c 05 ed 0d 02 26 0c e3  20 4e 25 3d 31 b8 33 0d  |.....&.. N%=1.3.|
000004d0  02 30 39 4d 43 25 28 35  2c 4e 25 29 3d 28 4d 43  |.09MC%(5,N%)=(MC|
000004e0  25 28 31 2c 4e 25 29 2b  4d 43 25 28 32 2c 4e 25  |%(1,N%)+MC%(2,N%|
000004f0  29 2b 4d 43 25 28 33 2c  4e 25 29 2b 4d 43 25 28  |)+MC%(3,N%)+MC%(|
00000500  34 2c 4e 25 29 29 2f 34  0d 02 3a 05 ed 0d 02 44  |4,N%))/4..:....D|
00000510  2a f2 50 28 58 32 25 2c  59 31 25 2c 4d 43 25 28  |*.P(X2%,Y1%,MC%(|
00000520  31 2c 31 29 2c 4d 43 25  28 31 2c 32 29 2c 4d 43  |1,1),MC%(1,2),MC|
00000530  25 28 31 2c 33 29 29 0d  02 4e 2a f2 50 28 58 31  |%(1,3))..N*.P(X1|
00000540  25 2c 59 32 25 2c 4d 43  25 28 34 2c 31 29 2c 4d  |%,Y2%,MC%(4,1),M|
00000550  43 25 28 34 2c 32 29 2c  4d 43 25 28 34 2c 33 29  |C%(4,2),MC%(4,3)|
00000560  29 0d 02 58 2a f2 50 28  58 32 25 2c 59 32 25 2c  |)..X*.P(X2%,Y2%,|
00000570  4d 43 25 28 35 2c 31 29  2c 4d 43 25 28 35 2c 32  |MC%(5,1),MC%(5,2|
00000580  29 2c 4d 43 25 28 35 2c  33 29 29 0d 02 62 23 e7  |),MC%(5,3))..b#.|
00000590  20 58 32 25 2d 58 31 25  3e 7a 73 2a 32 20 84 20  | X2%-X1%>zs*2 . |
000005a0  59 32 25 2d 59 31 25 3d  7a 73 2a 32 20 8c 0d 02  |Y2%-Y1%=zs*2 ...|
000005b0  6c 33 e3 4e 25 3d 31 b8  33 3a 4c 43 25 28 31 2c  |l3.N%=1.3:LC%(1,|
000005c0  4e 25 29 3d 46 43 25 28  31 2c 4e 25 29 3a 4c 43  |N%)=FC%(1,N%):LC|
000005d0  25 28 32 2c 4e 25 29 3d  4d 43 25 28 31 2c 4e 25  |%(2,N%)=MC%(1,N%|
000005e0  29 0d 02 76 2d 4c 43 25  28 33 2c 4e 25 29 3d 4d  |)..v-LC%(3,N%)=M|
000005f0  43 25 28 35 2c 4e 25 29  3a 4c 43 25 28 34 2c 4e  |C%(5,N%):LC%(4,N|
00000600  25 29 3d 4d 43 25 28 34  2c 4e 25 29 3a ed 0d 02  |%)=MC%(4,N%):...|
00000610  80 1d f2 41 28 58 31 25  2c 59 31 25 2c 58 32 25  |...A(X1%,Y1%,X2%|
00000620  2c 59 32 25 2c 4c 43 25  28 29 29 0d 02 8a 33 e3  |,Y2%,LC%())...3.|
00000630  4e 25 3d 31 b8 33 3a 4c  43 25 28 31 2c 4e 25 29  |N%=1.3:LC%(1,N%)|
00000640  3d 4d 43 25 28 31 2c 4e  25 29 3a 4c 43 25 28 32  |=MC%(1,N%):LC%(2|
00000650  2c 4e 25 29 3d 46 43 25  28 32 2c 4e 25 29 0d 02  |,N%)=FC%(2,N%)..|
00000660  94 2d 4c 43 25 28 33 2c  4e 25 29 3d 4d 43 25 28  |.-LC%(3,N%)=MC%(|
00000670  32 2c 4e 25 29 3a 4c 43  25 28 34 2c 4e 25 29 3d  |2,N%):LC%(4,N%)=|
00000680  4d 43 25 28 35 2c 4e 25  29 3a ed 0d 02 9e 1d f2  |MC%(5,N%):......|
00000690  41 28 58 32 25 2c 59 31  25 2c 58 33 25 2c 59 32  |A(X2%,Y1%,X3%,Y2|
000006a0  25 2c 4c 43 25 28 29 29  0d 02 a8 33 e3 4e 25 3d  |%,LC%())...3.N%=|
000006b0  31 b8 33 3a 4c 43 25 28  31 2c 4e 25 29 3d 4d 43  |1.3:LC%(1,N%)=MC|
000006c0  25 28 34 2c 4e 25 29 3a  4c 43 25 28 32 2c 4e 25  |%(4,N%):LC%(2,N%|
000006d0  29 3d 4d 43 25 28 35 2c  4e 25 29 0d 02 b2 2d 4c  |)=MC%(5,N%)...-L|
000006e0  43 25 28 33 2c 4e 25 29  3d 4d 43 25 28 33 2c 4e  |C%(3,N%)=MC%(3,N|
000006f0  25 29 3a 4c 43 25 28 34  2c 4e 25 29 3d 46 43 25  |%):LC%(4,N%)=FC%|
00000700  28 34 2c 4e 25 29 3a ed  0d 02 bc 1d f2 41 28 58  |(4,N%):......A(X|
00000710  31 25 2c 59 32 25 2c 58  32 25 2c 59 33 25 2c 4c  |1%,Y2%,X2%,Y3%,L|
00000720  43 25 28 29 29 0d 02 c6  33 e3 4e 25 3d 31 b8 33  |C%())...3.N%=1.3|
00000730  3a 4c 43 25 28 31 2c 4e  25 29 3d 4d 43 25 28 35  |:LC%(1,N%)=MC%(5|
00000740  2c 4e 25 29 3a 4c 43 25  28 32 2c 4e 25 29 3d 4d  |,N%):LC%(2,N%)=M|
00000750  43 25 28 32 2c 4e 25 29  0d 02 d0 2d 4c 43 25 28  |C%(2,N%)...-LC%(|
00000760  33 2c 4e 25 29 3d 46 43  25 28 33 2c 4e 25 29 3a  |3,N%)=FC%(3,N%):|
00000770  4c 43 25 28 34 2c 4e 25  29 3d 4d 43 25 28 33 2c  |LC%(4,N%)=MC%(3,|
00000780  4e 25 29 3a ed 0d 02 da  1d f2 41 28 58 32 25 2c  |N%):......A(X2%,|
00000790  59 32 25 2c 58 33 25 2c  59 33 25 2c 4c 43 25 28  |Y2%,X3%,Y3%,LC%(|
000007a0  29 29 0d 02 e4 05 cd 0d  02 ee 05 e1 0d 02 f8 05  |))..............|
000007b0  3a 0d 03 02 18 dd 20 f2  50 28 58 25 2c 59 25 2c  |:..... .P(X%,Y%,|
000007c0  52 25 2c 47 25 2c 42 25  29 0d 03 0c 08 ea 20 43  |R%,G%,B%)..... C|
000007d0  25 0d 03 16 31 43 25 3d  b3 28 2d 58 25 2a 59 25  |%...1C%=.(-X%*Y%|
000007e0  2d 46 25 29 3a 52 25 3d  a4 52 28 52 25 29 3a 47  |-F%):R%=.R(R%):G|
000007f0  25 3d a4 52 28 47 25 29  3a 42 25 3d a4 52 28 42  |%=.R(G%):B%=.R(B|
00000800  25 29 0d 03 20 0d c8 8e  20 76 69 64 63 20 ca 0d  |%).. ... vidc ..|
00000810  03 2a 09 20 c9 20 31 3a  0d 03 34 22 20 20 43 25  |.*. . 1:..4"  C%|
00000820  3d 28 52 25 3c 3c 38 29  2b 28 47 25 3c 3c 31 36  |=(R%<<8)+(G%<<16|
00000830  29 2b 28 42 25 3c 3c 32  34 29 0d 03 3e 19 20 20  |)+(B%<<24)..>.  |
00000840  c8 99 20 67 63 6f 6c 2c  43 25 2c 2c 2c 26 31 30  |.. gcol,C%,,,&10|
00000850  30 2c 30 0d 03 48 0a 20  c9 20 32 30 3a 0d 03 52  |0,0..H. . 20:..R|
00000860  10 20 20 e6 20 52 25 2c  47 25 2c 42 25 0d 03 5c  |.  . R%,G%,B%..\|
00000870  05 cb 0d 03 66 0c c8 92  20 58 25 2c 59 25 0d 03  |....f... X%,Y%..|
00000880  70 05 e1 0d 03 7a 05 3a  0d 03 84 0c dd 20 a4 52  |p....z.:..... .R|
00000890  28 52 25 29 0d 03 8e 12  52 25 3d 52 25 2b b3 28  |(R%)....R%=R%+.(|
000008a0  33 32 29 2d 31 36 0d 03  98 13 e7 20 52 25 3e 32  |32)-16..... R%>2|
000008b0  35 35 20 52 25 3d 32 35  35 0d 03 a2 0f e7 20 52  |55 R%=255..... R|
000008c0  25 3c 30 20 52 25 3d 30  0d 03 ac 07 3d 52 25 0d  |%<0 R%=0....=R%.|
000008d0  ff                                                |.|
000008d1

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .