StarInfo/Vibe/ALIENTREE

Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » Regulars » StarInfo/Vibe/ALIENTREE

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 1997-Xmas B.adf » Regulars
Filename:	StarInfo/Vibe/ALIENTREE
Read OK:	✔
File size:	0FB4 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > ALIENTREE  *** Jan Vibe april 97 ***
   20
   30MODE21:OFF
   40DIM PATH% 100,JC% 15
   50JC%!0=0:JC%!4=0:JC%!8=0:JC%!12=0
   60DIM X1%(1000),Y1%(1000),X2%(1000),Y2%(1000),B%(1000)
   70DIM RX%(1000),RY%(1000),RC%(1000)
   80DIM R1%(1000),G1%(1000),B1%(1000),R2%(1000),G2%(1000),B2%(1000)
   90DIM R3%(1000),G3%(1000),B3%(1000),R4%(1000),G4%(1000),B4%(1000)
  100
  110SYS"OS_ReadModeVariable",-1,4 TO,,SX%:SX%=2^SX%
  120SYS"OS_ReadModeVariable",-1,5 TO,,SY%:SY%=2^SY%
  130SYS"OS_ReadModeVariable",-1,11 TO,,XS%
  140SYS"OS_ReadModeVariable",-1,12 TO,,YS%
  150WS%=SX%*XS%:HS%=SY%*YS%
  160MX%=WS%/2:LG%=HS%/3:HL%=HS%*3/4:HL2%=HS%-HL%:L%=HS%/37.5
  170
  180REPEAT
  190P%=0:PR%=0:CLS
  200PRINT"Press space if this tree is Ok,"'"any other key if not."
  210PRINT"When the tree is rendered,"'"press s to save the picture (atpic)."
  220PROCTREE(MX%,0,LG%,0,P%)
  230Q$=GET$:UNTILQ$=" "
  240PROCBACKGROUND:PROCRENDER
  250*FX 15,0
  260Q$=GET$:IF INSTR("Ss",Q$)<>0 THEN *SCREENSAVE ATPIC
  270END
  280
  290DEFPROCBACKGROUND
  300LOCAL N%,M%,X%,Y%,R%,F%,RGB%
  310FORN%=0TOHL%STEP2:PROCRGB(0,((HL%-N%)*128)/HL%,255):LINE 0,HL2%+N%,WS%,HL2%+N%:NEXT
  320FORY%=HL2%TOHS%STEP8:X%=RND(WS%):R%=RND(16)+32:F=1.3+RND(1)*2
  330FORM%=-R%TOR%STEP2:W%=SQR(R%*R%-M%*M%)*F
  340RGB%=(200*(M%+R%)+55*(2*R%-(M%+R%)))/(2*R%)
  350PROCRGB(RGB%,RGB%,RGB%):LINE X%-W%,Y%+M%,X%+W%,Y%+M%
  360NEXT,
  370FORN%=0TOHL2%STEP2:PROCRGB(0,((HL2%-N%)*255+N%*80)/HL2%,0):LINE 0,N%,WS%,N%:NEXT
  380ENDPROC
  390
  400DEFPROCRENDER
  410LOCAL I%,I1%,N%,X1%,Y1%,B%,R1%,G1%,B1%,R2%,G2%,B2%,RD%,R%,G%,B%
  420FORI%=0TO15:I1%=15-I%
  430FORN%=1TOP%
  440X1%=X1%(N%):Y1%=Y1%(N%):X2%=X2%(N%):Y2%=Y2%(N%)
  450B%=(B%(N%)*I1%)/15:IF B%>0 THEN
  460R1%=(R1%(N%)*I1%+R2%(N%)*I%)/15
  470G1%=(G1%(N%)*I1%+G2%(N%)*I%)/15
  480B1%=(B1%(N%)*I1%+B2%(N%)*I%)/15
  490R2%=(R3%(N%)*I1%+R4%(N%)*I%)/15
  500G2%=(G3%(N%)*I1%+G4%(N%)*I%)/15
  510B2%=(B3%(N%)*I1%+B4%(N%)*I%)/15
  520PROCLINE(X1%,Y1%,R1%,G1%,B1%,X2%,Y2%,R2%,G2%,B2%,B%)
  530ENDIF
  540NEXT,
  550FORN%=1TOPR%
  560REPEAT:R1%=RND(255):G1%=RND(255):B1%=RND(255):UNTILR1%+G1%+B1%<127
  570REPEAT:R2%=RND(255):G2%=RND(255):B2%=RND(255):UNTILR2%+G2%+B2%>400
  580FORI%=15TO1STEP-1
  590RD%=RC%(N%)*I%/15
  600R%=(R1%*I%+R2%*(15-I%))/15:G%=(G1%*I%+G2%*(15-I%))/15:B%=(B1%*I%+B2%*(15-I%))/15
  610PROCRGB(R%,G%,B%):CIRCLE FILL RX%(N%),RY%(N%),RD%
  620NEXT,
  630ENDPROC
  640
  650DEFPROCTREE(X,Y,Z,A,OP%)
  660LOCAL X1,Y1:X1=X+Z*SINRAD(A):Y1=Y+Z*COSRAD(A)
  670LINE X,Y,X1,Y1
  680P%+=1
  690X1%(P%)=X:Y1%(P%)=Y:X2%(P%)=X1:Y2%(P%)=Y1:B%(P%)=SQR((X-X1)^2+(Y-Y1)^2)/2.5
  700IF P%=1 THEN
  710REPEAT:R1%(P%)=RND(255):G1%(P%)=RND(255):B1%(P%)=RND(255):UNTILR1%(P%)+G1%(P%)+B1%(P%)<127
  720REPEAT:R2%(P%)=RND(255):G2%(P%)=RND(255):B2%(P%)=RND(255):UNTILR2%(P%)+G2%(P%)+B2%(P%)>400
  730ELSE
  740R1%(P%)=R3%(OP%):G1%(P%)=G3%(OP%):B1%(P%)=B3%(OP%)
  750R2%(P%)=R4%(OP%):G2%(P%)=G4%(OP%):B2%(P%)=B4%(OP%)
  760ENDIF
  770REPEAT:R3%(P%)=RND(255):G3%(P%)=RND(255):B3%(P%)=RND(255):UNTILR3%(P%)+G3%(P%)+B3%(P%)<127
  780REPEAT:R4%(P%)=RND(255):G4%(P%)=RND(255):B4%(P%)=RND(255):UNTILR4%(P%)+G4%(P%)+B4%(P%)>400
  790IF Z<L% THEN
  800PR%+=1:RC%(PR%)=RND(L%/2)+8:RX%(PR%)=X+(Z+RC%(PR%))*SINRADA:RY%(PR%)=Y+(Z+RC%(PR%))*COSRADA
  810ELSE
  820OP%=P%
  830PROCTREE(X1,Y1,Z/(1.2+RND(1)*.6),A+30+RND(30),P%)
  840PROCTREE(X1,Y1,Z/(1.2+RND(1)*.6),A-30-RND(30),OP%)
  850ENDIF
  860ENDPROC
  870
  880DEFPROCLINE(X1,Y1,R1%,G1%,B1%,X2,Y2,R2%,G2%,B2%,B)
  890LOCAL L,K%,N%,N1%,XA,YA,XB,YB,R%,G%,B%
  900L=SQR((X2-X1)^2+(Y2-Y1)^2)
  910K%=L/8+RND(8):IFK%<32 K%=24+RND(8)
  920XA=(X1+X2)/2:YA=(Y1+Y2)/2
  930JC%!0=&010000:PROCRGB(R1%,G1%,B1%):PROCL(X1,Y1,XA,YA,B)
  940JC%!0=&000100:PROCRGB(R2%,G2%,B2%):PROCL(XA,YA,X2,Y2,B)
  950JC%!0=&000000
  960FORN%=2TOK%:N1%=K%-N%
  970XA=(X1%*(N%-2)+X2%*(N1%+2))/K%:YA=(Y1%*(N%-2)+Y2%*(N1%+2))/K%
  980XB=(X1*N%+X2*N1%)/K%:YB=(Y1*N%+Y2*N1%)/K%
  990R%=((N%-2)*R1%+(N1%+2)*R2%)/K%:G%=((N%-2)*G1%+(N1%+2)*G2%)/K%
 1000B%=((N%-2)*B1%+(N1%+2)*B2%)/K%:PROCRGB(R%,G%,B%)
 1010PROCL(XA,YA,XB,YB,B)
 1020NEXT
 1030XA=(X1%*(K%-1)+X2%)/K%:YA=(Y1%*(K%-1)+Y2%)/K%:XB=X1:YB=Y1
 1040R%=((K%-1)*R1%+R2%)/K%:G%=((K%-1)*G1%+G2%)/K%
 1050B%=((K%-1)*B1%+B2%)/K%:PROCRGB(R%,G%,B%)
 1060PROCL(XA,YA,XB,YB,B)
 1070ENDPROC
 1080
 1090DEFPROCL(X1,Y1,X2,Y2,B)
 1100LOCAL PP%,W
 1110X1=256*X1:Y1=256*Y1:X2=256*X2:Y2=256*Y2
 1120PATH%!PP%=2:PP%+=4:PATH%!PP%=X1:PP%+=4:PATH%!PP%=Y1:PP%+=4
 1130PATH%!PP%=8:PP%+=4:PATH%!PP%=X2:PP%+=4:PATH%!PP%=Y2:PP%+=4
 1140PATH%!PP%=0:PP%+=4:PATH%!PP%=PP%
 1150W=256*B
 1160SYS"Draw_Stroke",PATH%,0,0,0,W,JC%,0
 1170ENDPROC
 1180
 1190DEFPROCRGB(R%,G%,B%)
 1200LOCAL C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
 1210SYS "ColourTrans_SetGCOL",C%,,,&100,0
 1220ENDPROC


,� > ALIENTREE  *** Jan Vibe april 97 ***

	�21:�
(� PATH% 100,JC% 15
2$JC%!0=0:JC%!4=0:JC%!8=0:JC%!12=0
<6� X1%(1000),Y1%(1000),X2%(1000),Y2%(1000),B%(1000)
F#� RX%(1000),RY%(1000),RC%(1000)
PA� R1%(1000),G1%(1000),B1%(1000),R2%(1000),G2%(1000),B2%(1000)
ZA� R3%(1000),G3%(1000),B3%(1000),R4%(1000),G4%(1000),B4%(1000)
d
n1ș"OS_ReadModeVariable",-1,4 �,,SX%:SX%=2^SX%
x1ș"OS_ReadModeVariable",-1,5 �,,SY%:SY%=2^SY%
�(ș"OS_ReadModeVariable",-1,11 �,,XS%
�(ș"OS_ReadModeVariable",-1,12 �,,YS%
�WS%=SX%*XS%:HS%=SY%*YS%
�<MX%=WS%/2:LG%=HS%/3:HL%=HS%*3/4:HL2%=HS%-HL%:L%=HS%/37.5
�
��
�P%=0:PR%=0:�
�>�"Press space if this tree is Ok,"'"any other key if not."
�H�"When the tree is rendered,"'"press s to save the picture (atpic)."
��TREE(MX%,0,LG%,0,P%)
�Q$=�:�Q$=" "
��BACKGROUND:�RENDER
�*FX 15,0
+Q$=�:� �"Ss",Q$)<>0 � *SCREENSAVE ATPIC
�

"��BACKGROUND
,� N%,M%,X%,Y%,R%,F%,RGB%
6H�N%=0�HL%�2:�RGB(0,((HL%-N%)*128)/HL%,255):� 0,HL2%+N%,WS%,HL2%+N%:�
@5�Y%=HL2%�HS%�8:X%=�(WS%):R%=�(16)+32:F=1.3+�(1)*2
J$�M%=-R%�R%�2:W%=�(R%*R%-M%*M%)*F
T/RGB%=(200*(M%+R%)+55*(2*R%-(M%+R%)))/(2*R%)
^2�RGB(RGB%,RGB%,RGB%):� X%-W%,Y%+M%,X%+W%,Y%+M%
h�,
rE�N%=0�HL2%�2:�RGB(0,((HL2%-N%)*255+N%*80)/HL2%,0):� 0,N%,WS%,N%:�
|�
�
���RENDER
�?� I%,I1%,N%,X1%,Y1%,B%,R1%,G1%,B1%,R2%,G2%,B2%,RD%,R%,G%,B%
��I%=0�15:I1%=15-I%
��N%=1�P%
�3X1%=X1%(N%):Y1%=Y1%(N%):X2%=X2%(N%):Y2%=Y2%(N%)
�B%=(B%(N%)*I1%)/15:� B%>0 �
�#R1%=(R1%(N%)*I1%+R2%(N%)*I%)/15
�#G1%=(G1%(N%)*I1%+G2%(N%)*I%)/15
�#B1%=(B1%(N%)*I1%+B2%(N%)*I%)/15
�#R2%=(R3%(N%)*I1%+R4%(N%)*I%)/15
�#G2%=(G3%(N%)*I1%+G4%(N%)*I%)/15
�#B2%=(B3%(N%)*I1%+B4%(N%)*I%)/15
5�LINE(X1%,Y1%,R1%,G1%,B1%,X2%,Y2%,R2%,G2%,B2%,B%)
�
�,
&
�N%=1�PR%
07�:R1%=�(255):G1%=�(255):B1%=�(255):�R1%+G1%+B1%<127
:7�:R2%=�(255):G2%=�(255):B2%=�(255):�R2%+G2%+B2%>400
D�I%=15�1�-1
NRD%=RC%(N%)*I%/15
XTR%=(R1%*I%+R2%*(15-I%))/15:G%=(G1%*I%+G2%*(15-I%))/15:B%=(B1%*I%+B2%*(15-I%))/15
b,�RGB(R%,G%,B%):ȏ Ȑ RX%(N%),RY%(N%),RD%
l�,
v�
�
���TREE(X,Y,Z,A,OP%)
�%� X1,Y1:X1=X+Z*��(A):Y1=Y+Z*��(A)
�� X,Y,X1,Y1
�	P%+=1
�MX1%(P%)=X:Y1%(P%)=Y:X2%(P%)=X1:Y2%(P%)=Y1:B%(P%)=�((X-X1)^2+(Y-Y1)^2)/2.5
�� P%=1 �
�O�:R1%(P%)=�(255):G1%(P%)=�(255):B1%(P%)=�(255):�R1%(P%)+G1%(P%)+B1%(P%)<127
�O�:R2%(P%)=�(255):G2%(P%)=�(255):B2%(P%)=�(255):�R2%(P%)+G2%(P%)+B2%(P%)>400
��
�6R1%(P%)=R3%(OP%):G1%(P%)=G3%(OP%):B1%(P%)=B3%(OP%)
�6R2%(P%)=R4%(OP%):G2%(P%)=G4%(OP%):B2%(P%)=B4%(OP%)
��
O�:R3%(P%)=�(255):G3%(P%)=�(255):B3%(P%)=�(255):�R3%(P%)+G3%(P%)+B3%(P%)<127
O�:R4%(P%)=�(255):G4%(P%)=�(255):B4%(P%)=�(255):�R4%(P%)+G4%(P%)+B4%(P%)>400
� Z<L% �
 UPR%+=1:RC%(PR%)=�(L%/2)+8:RX%(PR%)=X+(Z+RC%(PR%))*��A:RY%(PR%)=Y+(Z+RC%(PR%))*��A
*�
4
OP%=P%
>.�TREE(X1,Y1,Z/(1.2+�(1)*.6),A+30+�(30),P%)
H/�TREE(X1,Y1,Z/(1.2+�(1)*.6),A-30-�(30),OP%)
R�
\�
f
p1��LINE(X1,Y1,R1%,G1%,B1%,X2,Y2,R2%,G2%,B2%,B)
z&� L,K%,N%,N1%,XA,YA,XB,YB,R%,G%,B%
�L=�((X2-X1)^2+(Y2-Y1)^2)
�!K%=L/8+�(8):�K%<32 K%=24+�(8)
�XA=(X1+X2)/2:YA=(Y1+Y2)/2
�5JC%!0=&010000:�RGB(R1%,G1%,B1%):�L(X1,Y1,XA,YA,B)
�5JC%!0=&000100:�RGB(R2%,G2%,B2%):�L(XA,YA,X2,Y2,B)
�JC%!0=&000000
��N%=2�K%:N1%=K%-N%
�AXA=(X1%*(N%-2)+X2%*(N1%+2))/K%:YA=(Y1%*(N%-2)+Y2%*(N1%+2))/K%
�-XB=(X1*N%+X2*N1%)/K%:YB=(Y1*N%+Y2*N1%)/K%
�AR%=((N%-2)*R1%+(N1%+2)*R2%)/K%:G%=((N%-2)*G1%+(N1%+2)*G2%)/K%
�1B%=((N%-2)*B1%+(N1%+2)*B2%)/K%:�RGB(R%,G%,B%)
��L(XA,YA,XB,YB,B)
��
=XA=(X1%*(K%-1)+X2%)/K%:YA=(Y1%*(K%-1)+Y2%)/K%:XB=X1:YB=Y1
1R%=((K%-1)*R1%+R2%)/K%:G%=((K%-1)*G1%+G2%)/K%
)B%=((K%-1)*B1%+B2%)/K%:�RGB(R%,G%,B%)
$�L(XA,YA,XB,YB,B)
.�
8
B��L(X1,Y1,X2,Y2,B)
L� PP%,W
V+X1=256*X1:Y1=256*Y1:X2=256*X2:Y2=256*Y2
`>PATH%!PP%=2:PP%+=4:PATH%!PP%=X1:PP%+=4:PATH%!PP%=Y1:PP%+=4
j>PATH%!PP%=8:PP%+=4:PATH%!PP%=X2:PP%+=4:PATH%!PP%=Y2:PP%+=4
t$PATH%!PP%=0:PP%+=4:PATH%!PP%=PP%
~W=256*B
�'ș"Draw_Stroke",PATH%,0,0,0,W,JC%,0
��
�
���RGB(R%,G%,B%)
�%� C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
�(ș "ColourTrans_SetGCOL",C%,,,&100,0
��
�

00000000  0d 00 0a 2c f4 20 3e 20  41 4c 49 45 4e 54 52 45  |...,. > ALIENTRE|
00000010  45 20 20 2a 2a 2a 20 4a  61 6e 20 56 69 62 65 20  |E  *** Jan Vibe |
00000020  61 70 72 69 6c 20 39 37  20 2a 2a 2a 0d 00 14 04  |april 97 ***....|
00000030  0d 00 1e 09 eb 32 31 3a  87 0d 00 28 16 de 20 50  |.....21:...(.. P|
00000040  41 54 48 25 20 31 30 30  2c 4a 43 25 20 31 35 0d  |ATH% 100,JC% 15.|
00000050  00 32 24 4a 43 25 21 30  3d 30 3a 4a 43 25 21 34  |.2$JC%!0=0:JC%!4|
00000060  3d 30 3a 4a 43 25 21 38  3d 30 3a 4a 43 25 21 31  |=0:JC%!8=0:JC%!1|
00000070  32 3d 30 0d 00 3c 36 de  20 58 31 25 28 31 30 30  |2=0..<6. X1%(100|
00000080  30 29 2c 59 31 25 28 31  30 30 30 29 2c 58 32 25  |0),Y1%(1000),X2%|
00000090  28 31 30 30 30 29 2c 59  32 25 28 31 30 30 30 29  |(1000),Y2%(1000)|
000000a0  2c 42 25 28 31 30 30 30  29 0d 00 46 23 de 20 52  |,B%(1000)..F#. R|
000000b0  58 25 28 31 30 30 30 29  2c 52 59 25 28 31 30 30  |X%(1000),RY%(100|
000000c0  30 29 2c 52 43 25 28 31  30 30 30 29 0d 00 50 41  |0),RC%(1000)..PA|
000000d0  de 20 52 31 25 28 31 30  30 30 29 2c 47 31 25 28  |. R1%(1000),G1%(|
000000e0  31 30 30 30 29 2c 42 31  25 28 31 30 30 30 29 2c  |1000),B1%(1000),|
000000f0  52 32 25 28 31 30 30 30  29 2c 47 32 25 28 31 30  |R2%(1000),G2%(10|
00000100  30 30 29 2c 42 32 25 28  31 30 30 30 29 0d 00 5a  |00),B2%(1000)..Z|
00000110  41 de 20 52 33 25 28 31  30 30 30 29 2c 47 33 25  |A. R3%(1000),G3%|
00000120  28 31 30 30 30 29 2c 42  33 25 28 31 30 30 30 29  |(1000),B3%(1000)|
00000130  2c 52 34 25 28 31 30 30  30 29 2c 47 34 25 28 31  |,R4%(1000),G4%(1|
00000140  30 30 30 29 2c 42 34 25  28 31 30 30 30 29 0d 00  |000),B4%(1000)..|
00000150  64 04 0d 00 6e 31 c8 99  22 4f 53 5f 52 65 61 64  |d...n1.."OS_Read|
00000160  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000170  2c 34 20 b8 2c 2c 53 58  25 3a 53 58 25 3d 32 5e  |,4 .,,SX%:SX%=2^|
00000180  53 58 25 0d 00 78 31 c8  99 22 4f 53 5f 52 65 61  |SX%..x1.."OS_Rea|
00000190  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
000001a0  31 2c 35 20 b8 2c 2c 53  59 25 3a 53 59 25 3d 32  |1,5 .,,SY%:SY%=2|
000001b0  5e 53 59 25 0d 00 82 28  c8 99 22 4f 53 5f 52 65  |^SY%...(.."OS_Re|
000001c0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
000001d0  2d 31 2c 31 31 20 b8 2c  2c 58 53 25 0d 00 8c 28  |-1,11 .,,XS%...(|
000001e0  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
000001f0  72 69 61 62 6c 65 22 2c  2d 31 2c 31 32 20 b8 2c  |riable",-1,12 .,|
00000200  2c 59 53 25 0d 00 96 1b  57 53 25 3d 53 58 25 2a  |,YS%....WS%=SX%*|
00000210  58 53 25 3a 48 53 25 3d  53 59 25 2a 59 53 25 0d  |XS%:HS%=SY%*YS%.|
00000220  00 a0 3c 4d 58 25 3d 57  53 25 2f 32 3a 4c 47 25  |..<MX%=WS%/2:LG%|
00000230  3d 48 53 25 2f 33 3a 48  4c 25 3d 48 53 25 2a 33  |=HS%/3:HL%=HS%*3|
00000240  2f 34 3a 48 4c 32 25 3d  48 53 25 2d 48 4c 25 3a  |/4:HL2%=HS%-HL%:|
00000250  4c 25 3d 48 53 25 2f 33  37 2e 35 0d 00 aa 04 0d  |L%=HS%/37.5.....|
00000260  00 b4 05 f5 0d 00 be 10  50 25 3d 30 3a 50 52 25  |........P%=0:PR%|
00000270  3d 30 3a db 0d 00 c8 3e  f1 22 50 72 65 73 73 20  |=0:....>."Press |
00000280  73 70 61 63 65 20 69 66  20 74 68 69 73 20 74 72  |space if this tr|
00000290  65 65 20 69 73 20 4f 6b  2c 22 27 22 61 6e 79 20  |ee is Ok,"'"any |
000002a0  6f 74 68 65 72 20 6b 65  79 20 69 66 20 6e 6f 74  |other key if not|
000002b0  2e 22 0d 00 d2 48 f1 22  57 68 65 6e 20 74 68 65  |."...H."When the|
000002c0  20 74 72 65 65 20 69 73  20 72 65 6e 64 65 72 65  | tree is rendere|
000002d0  64 2c 22 27 22 70 72 65  73 73 20 73 20 74 6f 20  |d,"'"press s to |
000002e0  73 61 76 65 20 74 68 65  20 70 69 63 74 75 72 65  |save the picture|
000002f0  20 28 61 74 70 69 63 29  2e 22 0d 00 dc 19 f2 54  | (atpic).".....T|
00000300  52 45 45 28 4d 58 25 2c  30 2c 4c 47 25 2c 30 2c  |REE(MX%,0,LG%,0,|
00000310  50 25 29 0d 00 e6 10 51  24 3d be 3a fd 51 24 3d  |P%)....Q$=.:.Q$=|
00000320  22 20 22 0d 00 f0 17 f2  42 41 43 4b 47 52 4f 55  |" ".....BACKGROU|
00000330  4e 44 3a f2 52 45 4e 44  45 52 0d 00 fa 0c 2a 46  |ND:.RENDER....*F|
00000340  58 20 31 35 2c 30 0d 01  04 2b 51 24 3d be 3a e7  |X 15,0...+Q$=.:.|
00000350  20 a7 22 53 73 22 2c 51  24 29 3c 3e 30 20 8c 20  | ."Ss",Q$)<>0 . |
00000360  2a 53 43 52 45 45 4e 53  41 56 45 20 41 54 50 49  |*SCREENSAVE ATPI|
00000370  43 0d 01 0e 05 e0 0d 01  18 04 0d 01 22 10 dd f2  |C..........."...|
00000380  42 41 43 4b 47 52 4f 55  4e 44 0d 01 2c 1c ea 20  |BACKGROUND..,.. |
00000390  4e 25 2c 4d 25 2c 58 25  2c 59 25 2c 52 25 2c 46  |N%,M%,X%,Y%,R%,F|
000003a0  25 2c 52 47 42 25 0d 01  36 48 e3 4e 25 3d 30 b8  |%,RGB%..6H.N%=0.|
000003b0  48 4c 25 88 32 3a f2 52  47 42 28 30 2c 28 28 48  |HL%.2:.RGB(0,((H|
000003c0  4c 25 2d 4e 25 29 2a 31  32 38 29 2f 48 4c 25 2c  |L%-N%)*128)/HL%,|
000003d0  32 35 35 29 3a 86 20 30  2c 48 4c 32 25 2b 4e 25  |255):. 0,HL2%+N%|
000003e0  2c 57 53 25 2c 48 4c 32  25 2b 4e 25 3a ed 0d 01  |,WS%,HL2%+N%:...|
000003f0  40 35 e3 59 25 3d 48 4c  32 25 b8 48 53 25 88 38  |@5.Y%=HL2%.HS%.8|
00000400  3a 58 25 3d b3 28 57 53  25 29 3a 52 25 3d b3 28  |:X%=.(WS%):R%=.(|
00000410  31 36 29 2b 33 32 3a 46  3d 31 2e 33 2b b3 28 31  |16)+32:F=1.3+.(1|
00000420  29 2a 32 0d 01 4a 24 e3  4d 25 3d 2d 52 25 b8 52  |)*2..J$.M%=-R%.R|
00000430  25 88 32 3a 57 25 3d b6  28 52 25 2a 52 25 2d 4d  |%.2:W%=.(R%*R%-M|
00000440  25 2a 4d 25 29 2a 46 0d  01 54 2f 52 47 42 25 3d  |%*M%)*F..T/RGB%=|
00000450  28 32 30 30 2a 28 4d 25  2b 52 25 29 2b 35 35 2a  |(200*(M%+R%)+55*|
00000460  28 32 2a 52 25 2d 28 4d  25 2b 52 25 29 29 29 2f  |(2*R%-(M%+R%)))/|
00000470  28 32 2a 52 25 29 0d 01  5e 32 f2 52 47 42 28 52  |(2*R%)..^2.RGB(R|
00000480  47 42 25 2c 52 47 42 25  2c 52 47 42 25 29 3a 86  |GB%,RGB%,RGB%):.|
00000490  20 58 25 2d 57 25 2c 59  25 2b 4d 25 2c 58 25 2b  | X%-W%,Y%+M%,X%+|
000004a0  57 25 2c 59 25 2b 4d 25  0d 01 68 06 ed 2c 0d 01  |W%,Y%+M%..h..,..|
000004b0  72 45 e3 4e 25 3d 30 b8  48 4c 32 25 88 32 3a f2  |rE.N%=0.HL2%.2:.|
000004c0  52 47 42 28 30 2c 28 28  48 4c 32 25 2d 4e 25 29  |RGB(0,((HL2%-N%)|
000004d0  2a 32 35 35 2b 4e 25 2a  38 30 29 2f 48 4c 32 25  |*255+N%*80)/HL2%|
000004e0  2c 30 29 3a 86 20 30 2c  4e 25 2c 57 53 25 2c 4e  |,0):. 0,N%,WS%,N|
000004f0  25 3a ed 0d 01 7c 05 e1  0d 01 86 04 0d 01 90 0c  |%:...|..........|
00000500  dd f2 52 45 4e 44 45 52  0d 01 9a 3f ea 20 49 25  |..RENDER...?. I%|
00000510  2c 49 31 25 2c 4e 25 2c  58 31 25 2c 59 31 25 2c  |,I1%,N%,X1%,Y1%,|
00000520  42 25 2c 52 31 25 2c 47  31 25 2c 42 31 25 2c 52  |B%,R1%,G1%,B1%,R|
00000530  32 25 2c 47 32 25 2c 42  32 25 2c 52 44 25 2c 52  |2%,G2%,B2%,RD%,R|
00000540  25 2c 47 25 2c 42 25 0d  01 a4 16 e3 49 25 3d 30  |%,G%,B%.....I%=0|
00000550  b8 31 35 3a 49 31 25 3d  31 35 2d 49 25 0d 01 ae  |.15:I1%=15-I%...|
00000560  0c e3 4e 25 3d 31 b8 50  25 0d 01 b8 33 58 31 25  |..N%=1.P%...3X1%|
00000570  3d 58 31 25 28 4e 25 29  3a 59 31 25 3d 59 31 25  |=X1%(N%):Y1%=Y1%|
00000580  28 4e 25 29 3a 58 32 25  3d 58 32 25 28 4e 25 29  |(N%):X2%=X2%(N%)|
00000590  3a 59 32 25 3d 59 32 25  28 4e 25 29 0d 01 c2 1f  |:Y2%=Y2%(N%)....|
000005a0  42 25 3d 28 42 25 28 4e  25 29 2a 49 31 25 29 2f  |B%=(B%(N%)*I1%)/|
000005b0  31 35 3a e7 20 42 25 3e  30 20 8c 0d 01 cc 23 52  |15:. B%>0 ....#R|
000005c0  31 25 3d 28 52 31 25 28  4e 25 29 2a 49 31 25 2b  |1%=(R1%(N%)*I1%+|
000005d0  52 32 25 28 4e 25 29 2a  49 25 29 2f 31 35 0d 01  |R2%(N%)*I%)/15..|
000005e0  d6 23 47 31 25 3d 28 47  31 25 28 4e 25 29 2a 49  |.#G1%=(G1%(N%)*I|
000005f0  31 25 2b 47 32 25 28 4e  25 29 2a 49 25 29 2f 31  |1%+G2%(N%)*I%)/1|
00000600  35 0d 01 e0 23 42 31 25  3d 28 42 31 25 28 4e 25  |5...#B1%=(B1%(N%|
00000610  29 2a 49 31 25 2b 42 32  25 28 4e 25 29 2a 49 25  |)*I1%+B2%(N%)*I%|
00000620  29 2f 31 35 0d 01 ea 23  52 32 25 3d 28 52 33 25  |)/15...#R2%=(R3%|
00000630  28 4e 25 29 2a 49 31 25  2b 52 34 25 28 4e 25 29  |(N%)*I1%+R4%(N%)|
00000640  2a 49 25 29 2f 31 35 0d  01 f4 23 47 32 25 3d 28  |*I%)/15...#G2%=(|
00000650  47 33 25 28 4e 25 29 2a  49 31 25 2b 47 34 25 28  |G3%(N%)*I1%+G4%(|
00000660  4e 25 29 2a 49 25 29 2f  31 35 0d 01 fe 23 42 32  |N%)*I%)/15...#B2|
00000670  25 3d 28 42 33 25 28 4e  25 29 2a 49 31 25 2b 42  |%=(B3%(N%)*I1%+B|
00000680  34 25 28 4e 25 29 2a 49  25 29 2f 31 35 0d 02 08  |4%(N%)*I%)/15...|
00000690  35 f2 4c 49 4e 45 28 58  31 25 2c 59 31 25 2c 52  |5.LINE(X1%,Y1%,R|
000006a0  31 25 2c 47 31 25 2c 42  31 25 2c 58 32 25 2c 59  |1%,G1%,B1%,X2%,Y|
000006b0  32 25 2c 52 32 25 2c 47  32 25 2c 42 32 25 2c 42  |2%,R2%,G2%,B2%,B|
000006c0  25 29 0d 02 12 05 cd 0d  02 1c 06 ed 2c 0d 02 26  |%)..........,..&|
000006d0  0d e3 4e 25 3d 31 b8 50  52 25 0d 02 30 37 f5 3a  |..N%=1.PR%..07.:|
000006e0  52 31 25 3d b3 28 32 35  35 29 3a 47 31 25 3d b3  |R1%=.(255):G1%=.|
000006f0  28 32 35 35 29 3a 42 31  25 3d b3 28 32 35 35 29  |(255):B1%=.(255)|
00000700  3a fd 52 31 25 2b 47 31  25 2b 42 31 25 3c 31 32  |:.R1%+G1%+B1%<12|
00000710  37 0d 02 3a 37 f5 3a 52  32 25 3d b3 28 32 35 35  |7..:7.:R2%=.(255|
00000720  29 3a 47 32 25 3d b3 28  32 35 35 29 3a 42 32 25  |):G2%=.(255):B2%|
00000730  3d b3 28 32 35 35 29 3a  fd 52 32 25 2b 47 32 25  |=.(255):.R2%+G2%|
00000740  2b 42 32 25 3e 34 30 30  0d 02 44 0f e3 49 25 3d  |+B2%>400..D..I%=|
00000750  31 35 b8 31 88 2d 31 0d  02 4e 15 52 44 25 3d 52  |15.1.-1..N.RD%=R|
00000760  43 25 28 4e 25 29 2a 49  25 2f 31 35 0d 02 58 54  |C%(N%)*I%/15..XT|
00000770  52 25 3d 28 52 31 25 2a  49 25 2b 52 32 25 2a 28  |R%=(R1%*I%+R2%*(|
00000780  31 35 2d 49 25 29 29 2f  31 35 3a 47 25 3d 28 47  |15-I%))/15:G%=(G|
00000790  31 25 2a 49 25 2b 47 32  25 2a 28 31 35 2d 49 25  |1%*I%+G2%*(15-I%|
000007a0  29 29 2f 31 35 3a 42 25  3d 28 42 31 25 2a 49 25  |))/15:B%=(B1%*I%|
000007b0  2b 42 32 25 2a 28 31 35  2d 49 25 29 29 2f 31 35  |+B2%*(15-I%))/15|
000007c0  0d 02 62 2c f2 52 47 42  28 52 25 2c 47 25 2c 42  |..b,.RGB(R%,G%,B|
000007d0  25 29 3a c8 8f 20 c8 90  20 52 58 25 28 4e 25 29  |%):.. .. RX%(N%)|
000007e0  2c 52 59 25 28 4e 25 29  2c 52 44 25 0d 02 6c 06  |,RY%(N%),RD%..l.|
000007f0  ed 2c 0d 02 76 05 e1 0d  02 80 04 0d 02 8a 17 dd  |.,..v...........|
00000800  f2 54 52 45 45 28 58 2c  59 2c 5a 2c 41 2c 4f 50  |.TREE(X,Y,Z,A,OP|
00000810  25 29 0d 02 94 25 ea 20  58 31 2c 59 31 3a 58 31  |%)...%. X1,Y1:X1|
00000820  3d 58 2b 5a 2a b5 b2 28  41 29 3a 59 31 3d 59 2b  |=X+Z*..(A):Y1=Y+|
00000830  5a 2a 9b b2 28 41 29 0d  02 9e 0f 86 20 58 2c 59  |Z*..(A)..... X,Y|
00000840  2c 58 31 2c 59 31 0d 02  a8 09 50 25 2b 3d 31 0d  |,X1,Y1....P%+=1.|
00000850  02 b2 4d 58 31 25 28 50  25 29 3d 58 3a 59 31 25  |..MX1%(P%)=X:Y1%|
00000860  28 50 25 29 3d 59 3a 58  32 25 28 50 25 29 3d 58  |(P%)=Y:X2%(P%)=X|
00000870  31 3a 59 32 25 28 50 25  29 3d 59 31 3a 42 25 28  |1:Y2%(P%)=Y1:B%(|
00000880  50 25 29 3d b6 28 28 58  2d 58 31 29 5e 32 2b 28  |P%)=.((X-X1)^2+(|
00000890  59 2d 59 31 29 5e 32 29  2f 32 2e 35 0d 02 bc 0c  |Y-Y1)^2)/2.5....|
000008a0  e7 20 50 25 3d 31 20 8c  0d 02 c6 4f f5 3a 52 31  |. P%=1 ....O.:R1|
000008b0  25 28 50 25 29 3d b3 28  32 35 35 29 3a 47 31 25  |%(P%)=.(255):G1%|
000008c0  28 50 25 29 3d b3 28 32  35 35 29 3a 42 31 25 28  |(P%)=.(255):B1%(|
000008d0  50 25 29 3d b3 28 32 35  35 29 3a fd 52 31 25 28  |P%)=.(255):.R1%(|
000008e0  50 25 29 2b 47 31 25 28  50 25 29 2b 42 31 25 28  |P%)+G1%(P%)+B1%(|
000008f0  50 25 29 3c 31 32 37 0d  02 d0 4f f5 3a 52 32 25  |P%)<127...O.:R2%|
00000900  28 50 25 29 3d b3 28 32  35 35 29 3a 47 32 25 28  |(P%)=.(255):G2%(|
00000910  50 25 29 3d b3 28 32 35  35 29 3a 42 32 25 28 50  |P%)=.(255):B2%(P|
00000920  25 29 3d b3 28 32 35 35  29 3a fd 52 32 25 28 50  |%)=.(255):.R2%(P|
00000930  25 29 2b 47 32 25 28 50  25 29 2b 42 32 25 28 50  |%)+G2%(P%)+B2%(P|
00000940  25 29 3e 34 30 30 0d 02  da 05 cc 0d 02 e4 36 52  |%)>400........6R|
00000950  31 25 28 50 25 29 3d 52  33 25 28 4f 50 25 29 3a  |1%(P%)=R3%(OP%):|
00000960  47 31 25 28 50 25 29 3d  47 33 25 28 4f 50 25 29  |G1%(P%)=G3%(OP%)|
00000970  3a 42 31 25 28 50 25 29  3d 42 33 25 28 4f 50 25  |:B1%(P%)=B3%(OP%|
00000980  29 0d 02 ee 36 52 32 25  28 50 25 29 3d 52 34 25  |)...6R2%(P%)=R4%|
00000990  28 4f 50 25 29 3a 47 32  25 28 50 25 29 3d 47 34  |(OP%):G2%(P%)=G4|
000009a0  25 28 4f 50 25 29 3a 42  32 25 28 50 25 29 3d 42  |%(OP%):B2%(P%)=B|
000009b0  34 25 28 4f 50 25 29 0d  02 f8 05 cd 0d 03 02 4f  |4%(OP%)........O|
000009c0  f5 3a 52 33 25 28 50 25  29 3d b3 28 32 35 35 29  |.:R3%(P%)=.(255)|
000009d0  3a 47 33 25 28 50 25 29  3d b3 28 32 35 35 29 3a  |:G3%(P%)=.(255):|
000009e0  42 33 25 28 50 25 29 3d  b3 28 32 35 35 29 3a fd  |B3%(P%)=.(255):.|
000009f0  52 33 25 28 50 25 29 2b  47 33 25 28 50 25 29 2b  |R3%(P%)+G3%(P%)+|
00000a00  42 33 25 28 50 25 29 3c  31 32 37 0d 03 0c 4f f5  |B3%(P%)<127...O.|
00000a10  3a 52 34 25 28 50 25 29  3d b3 28 32 35 35 29 3a  |:R4%(P%)=.(255):|
00000a20  47 34 25 28 50 25 29 3d  b3 28 32 35 35 29 3a 42  |G4%(P%)=.(255):B|
00000a30  34 25 28 50 25 29 3d b3  28 32 35 35 29 3a fd 52  |4%(P%)=.(255):.R|
00000a40  34 25 28 50 25 29 2b 47  34 25 28 50 25 29 2b 42  |4%(P%)+G4%(P%)+B|
00000a50  34 25 28 50 25 29 3e 34  30 30 0d 03 16 0c e7 20  |4%(P%)>400..... |
00000a60  5a 3c 4c 25 20 8c 0d 03  20 55 50 52 25 2b 3d 31  |Z<L% ... UPR%+=1|
00000a70  3a 52 43 25 28 50 52 25  29 3d b3 28 4c 25 2f 32  |:RC%(PR%)=.(L%/2|
00000a80  29 2b 38 3a 52 58 25 28  50 52 25 29 3d 58 2b 28  |)+8:RX%(PR%)=X+(|
00000a90  5a 2b 52 43 25 28 50 52  25 29 29 2a b5 b2 41 3a  |Z+RC%(PR%))*..A:|
00000aa0  52 59 25 28 50 52 25 29  3d 59 2b 28 5a 2b 52 43  |RY%(PR%)=Y+(Z+RC|
00000ab0  25 28 50 52 25 29 29 2a  9b b2 41 0d 03 2a 05 cc  |%(PR%))*..A..*..|
00000ac0  0d 03 34 0a 4f 50 25 3d  50 25 0d 03 3e 2e f2 54  |..4.OP%=P%..>..T|
00000ad0  52 45 45 28 58 31 2c 59  31 2c 5a 2f 28 31 2e 32  |REE(X1,Y1,Z/(1.2|
00000ae0  2b b3 28 31 29 2a 2e 36  29 2c 41 2b 33 30 2b b3  |+.(1)*.6),A+30+.|
00000af0  28 33 30 29 2c 50 25 29  0d 03 48 2f f2 54 52 45  |(30),P%)..H/.TRE|
00000b00  45 28 58 31 2c 59 31 2c  5a 2f 28 31 2e 32 2b b3  |E(X1,Y1,Z/(1.2+.|
00000b10  28 31 29 2a 2e 36 29 2c  41 2d 33 30 2d b3 28 33  |(1)*.6),A-30-.(3|
00000b20  30 29 2c 4f 50 25 29 0d  03 52 05 cd 0d 03 5c 05  |0),OP%)..R....\.|
00000b30  e1 0d 03 66 04 0d 03 70  31 dd f2 4c 49 4e 45 28  |...f...p1..LINE(|
00000b40  58 31 2c 59 31 2c 52 31  25 2c 47 31 25 2c 42 31  |X1,Y1,R1%,G1%,B1|
00000b50  25 2c 58 32 2c 59 32 2c  52 32 25 2c 47 32 25 2c  |%,X2,Y2,R2%,G2%,|
00000b60  42 32 25 2c 42 29 0d 03  7a 26 ea 20 4c 2c 4b 25  |B2%,B)..z&. L,K%|
00000b70  2c 4e 25 2c 4e 31 25 2c  58 41 2c 59 41 2c 58 42  |,N%,N1%,XA,YA,XB|
00000b80  2c 59 42 2c 52 25 2c 47  25 2c 42 25 0d 03 84 1c  |,YB,R%,G%,B%....|
00000b90  4c 3d b6 28 28 58 32 2d  58 31 29 5e 32 2b 28 59  |L=.((X2-X1)^2+(Y|
00000ba0  32 2d 59 31 29 5e 32 29  0d 03 8e 21 4b 25 3d 4c  |2-Y1)^2)...!K%=L|
00000bb0  2f 38 2b b3 28 38 29 3a  e7 4b 25 3c 33 32 20 4b  |/8+.(8):.K%<32 K|
00000bc0  25 3d 32 34 2b b3 28 38  29 0d 03 98 1d 58 41 3d  |%=24+.(8)....XA=|
00000bd0  28 58 31 2b 58 32 29 2f  32 3a 59 41 3d 28 59 31  |(X1+X2)/2:YA=(Y1|
00000be0  2b 59 32 29 2f 32 0d 03  a2 35 4a 43 25 21 30 3d  |+Y2)/2...5JC%!0=|
00000bf0  26 30 31 30 30 30 30 3a  f2 52 47 42 28 52 31 25  |&010000:.RGB(R1%|
00000c00  2c 47 31 25 2c 42 31 25  29 3a f2 4c 28 58 31 2c  |,G1%,B1%):.L(X1,|
00000c10  59 31 2c 58 41 2c 59 41  2c 42 29 0d 03 ac 35 4a  |Y1,XA,YA,B)...5J|
00000c20  43 25 21 30 3d 26 30 30  30 31 30 30 3a f2 52 47  |C%!0=&000100:.RG|
00000c30  42 28 52 32 25 2c 47 32  25 2c 42 32 25 29 3a f2  |B(R2%,G2%,B2%):.|
00000c40  4c 28 58 41 2c 59 41 2c  58 32 2c 59 32 2c 42 29  |L(XA,YA,X2,Y2,B)|
00000c50  0d 03 b6 11 4a 43 25 21  30 3d 26 30 30 30 30 30  |....JC%!0=&00000|
00000c60  30 0d 03 c0 16 e3 4e 25  3d 32 b8 4b 25 3a 4e 31  |0.....N%=2.K%:N1|
00000c70  25 3d 4b 25 2d 4e 25 0d  03 ca 41 58 41 3d 28 58  |%=K%-N%...AXA=(X|
00000c80  31 25 2a 28 4e 25 2d 32  29 2b 58 32 25 2a 28 4e  |1%*(N%-2)+X2%*(N|
00000c90  31 25 2b 32 29 29 2f 4b  25 3a 59 41 3d 28 59 31  |1%+2))/K%:YA=(Y1|
00000ca0  25 2a 28 4e 25 2d 32 29  2b 59 32 25 2a 28 4e 31  |%*(N%-2)+Y2%*(N1|
00000cb0  25 2b 32 29 29 2f 4b 25  0d 03 d4 2d 58 42 3d 28  |%+2))/K%...-XB=(|
00000cc0  58 31 2a 4e 25 2b 58 32  2a 4e 31 25 29 2f 4b 25  |X1*N%+X2*N1%)/K%|
00000cd0  3a 59 42 3d 28 59 31 2a  4e 25 2b 59 32 2a 4e 31  |:YB=(Y1*N%+Y2*N1|
00000ce0  25 29 2f 4b 25 0d 03 de  41 52 25 3d 28 28 4e 25  |%)/K%...AR%=((N%|
00000cf0  2d 32 29 2a 52 31 25 2b  28 4e 31 25 2b 32 29 2a  |-2)*R1%+(N1%+2)*|
00000d00  52 32 25 29 2f 4b 25 3a  47 25 3d 28 28 4e 25 2d  |R2%)/K%:G%=((N%-|
00000d10  32 29 2a 47 31 25 2b 28  4e 31 25 2b 32 29 2a 47  |2)*G1%+(N1%+2)*G|
00000d20  32 25 29 2f 4b 25 0d 03  e8 31 42 25 3d 28 28 4e  |2%)/K%...1B%=((N|
00000d30  25 2d 32 29 2a 42 31 25  2b 28 4e 31 25 2b 32 29  |%-2)*B1%+(N1%+2)|
00000d40  2a 42 32 25 29 2f 4b 25  3a f2 52 47 42 28 52 25  |*B2%)/K%:.RGB(R%|
00000d50  2c 47 25 2c 42 25 29 0d  03 f2 15 f2 4c 28 58 41  |,G%,B%).....L(XA|
00000d60  2c 59 41 2c 58 42 2c 59  42 2c 42 29 0d 03 fc 05  |,YA,XB,YB,B)....|
00000d70  ed 0d 04 06 3d 58 41 3d  28 58 31 25 2a 28 4b 25  |....=XA=(X1%*(K%|
00000d80  2d 31 29 2b 58 32 25 29  2f 4b 25 3a 59 41 3d 28  |-1)+X2%)/K%:YA=(|
00000d90  59 31 25 2a 28 4b 25 2d  31 29 2b 59 32 25 29 2f  |Y1%*(K%-1)+Y2%)/|
00000da0  4b 25 3a 58 42 3d 58 31  3a 59 42 3d 59 31 0d 04  |K%:XB=X1:YB=Y1..|
00000db0  10 31 52 25 3d 28 28 4b  25 2d 31 29 2a 52 31 25  |.1R%=((K%-1)*R1%|
00000dc0  2b 52 32 25 29 2f 4b 25  3a 47 25 3d 28 28 4b 25  |+R2%)/K%:G%=((K%|
00000dd0  2d 31 29 2a 47 31 25 2b  47 32 25 29 2f 4b 25 0d  |-1)*G1%+G2%)/K%.|
00000de0  04 1a 29 42 25 3d 28 28  4b 25 2d 31 29 2a 42 31  |..)B%=((K%-1)*B1|
00000df0  25 2b 42 32 25 29 2f 4b  25 3a f2 52 47 42 28 52  |%+B2%)/K%:.RGB(R|
00000e00  25 2c 47 25 2c 42 25 29  0d 04 24 15 f2 4c 28 58  |%,G%,B%)..$..L(X|
00000e10  41 2c 59 41 2c 58 42 2c  59 42 2c 42 29 0d 04 2e  |A,YA,XB,YB,B)...|
00000e20  05 e1 0d 04 38 04 0d 04  42 16 dd f2 4c 28 58 31  |....8...B...L(X1|
00000e30  2c 59 31 2c 58 32 2c 59  32 2c 42 29 0d 04 4c 0b  |,Y1,X2,Y2,B)..L.|
00000e40  ea 20 50 50 25 2c 57 0d  04 56 2b 58 31 3d 32 35  |. PP%,W..V+X1=25|
00000e50  36 2a 58 31 3a 59 31 3d  32 35 36 2a 59 31 3a 58  |6*X1:Y1=256*Y1:X|
00000e60  32 3d 32 35 36 2a 58 32  3a 59 32 3d 32 35 36 2a  |2=256*X2:Y2=256*|
00000e70  59 32 0d 04 60 3e 50 41  54 48 25 21 50 50 25 3d  |Y2..`>PATH%!PP%=|
00000e80  32 3a 50 50 25 2b 3d 34  3a 50 41 54 48 25 21 50  |2:PP%+=4:PATH%!P|
00000e90  50 25 3d 58 31 3a 50 50  25 2b 3d 34 3a 50 41 54  |P%=X1:PP%+=4:PAT|
00000ea0  48 25 21 50 50 25 3d 59  31 3a 50 50 25 2b 3d 34  |H%!PP%=Y1:PP%+=4|
00000eb0  0d 04 6a 3e 50 41 54 48  25 21 50 50 25 3d 38 3a  |..j>PATH%!PP%=8:|
00000ec0  50 50 25 2b 3d 34 3a 50  41 54 48 25 21 50 50 25  |PP%+=4:PATH%!PP%|
00000ed0  3d 58 32 3a 50 50 25 2b  3d 34 3a 50 41 54 48 25  |=X2:PP%+=4:PATH%|
00000ee0  21 50 50 25 3d 59 32 3a  50 50 25 2b 3d 34 0d 04  |!PP%=Y2:PP%+=4..|
00000ef0  74 24 50 41 54 48 25 21  50 50 25 3d 30 3a 50 50  |t$PATH%!PP%=0:PP|
00000f00  25 2b 3d 34 3a 50 41 54  48 25 21 50 50 25 3d 50  |%+=4:PATH%!PP%=P|
00000f10  50 25 0d 04 7e 0b 57 3d  32 35 36 2a 42 0d 04 88  |P%..~.W=256*B...|
00000f20  27 c8 99 22 44 72 61 77  5f 53 74 72 6f 6b 65 22  |'.."Draw_Stroke"|
00000f30  2c 50 41 54 48 25 2c 30  2c 30 2c 30 2c 57 2c 4a  |,PATH%,0,0,0,W,J|
00000f40  43 25 2c 30 0d 04 92 05  e1 0d 04 9c 04 0d 04 a6  |C%,0............|
00000f50  13 dd f2 52 47 42 28 52  25 2c 47 25 2c 42 25 29  |...RGB(R%,G%,B%)|
00000f60  0d 04 b0 25 ea 20 43 25  3a 43 25 3d 28 52 25 3c  |...%. C%:C%=(R%<|
00000f70  3c 38 29 2b 28 47 25 3c  3c 31 36 29 2b 28 42 25  |<8)+(G%<<16)+(B%|
00000f80  3c 3c 32 34 29 0d 04 ba  28 c8 99 20 22 43 6f 6c  |<<24)...(.. "Col|
00000f90  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00000fa0  22 2c 43 25 2c 2c 2c 26  31 30 30 2c 30 0d 04 c4  |",C%,,,&100,0...|
00000fb0  05 e1 0d ff                                       |....|
00000fb4

Our privacy policy is here.
Last updated: 01 Jun 2026, 20:16 UTC
Website designed by .