' BASIC Anywhere Machine program by Charlie Veniot
' mod of rel7.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.22
'Lightmapping by RelSoft 2003
'Http:RelSoft.ath.cx
'Sorry about this not being able to compile ;*(
'BC sez: "expression too complex" Guess Qb has its limits after all!!!
1 IF I& = 0 THEN SCREEN 13 ELSE IF I& < 256 THEN PALETTE I&, _rgb2bgr(_rgb32((I& \ 4),(I& \ 4),(I& \ 4) )) ' 65536 * (I& \ 4) + 256 * (I& \ 4) + (I& \ 4)
2 I& = (I& + 1) AND &H7FFFFFFF
3 Var$ = "" + CHR$(100 + COS((I& MOD 360) * 3.141593 / 180) * 100) + CHR$(60 + SIN((I& MOD 360) * 3.141593 / 180) * 60)
4 FOR yy% = 0 TO 99
5 FOR xx% = 0 TO 99
6 H2% = ((xx% - 50) * (xx% - 50) + (yy% - 50) * (yy% - 50))
7 IF (H2% < 2500) AND (I& > 255) THEN PSET (100 + (ASC(MID$(Var$, 1, 1)) - 100) + xx%, 60 + (ASC(MID$(Var$, 2, 1)) - 60) + yy%), (((255 - (SQR(H2%) * (SQR(SQR(H2%))))) + ((((ASC(MID$(Var$, 1, 1)) - 100) + xx%) OR ((ASC(MID$(Var$, 2, 1)) - 60) + yy%) ) AND 127)) \ 2) * -((((255 - (SQR(H2%) * (SQR(SQR(H2%))))) + ((((ASC(MID$(Var$, 1, 1)) - 100) + xx%) OR ((ASC(MID$(Var$, 2, 1)) - 60) + yy%)) AND 127)) \ 2) > 0) ELSE IF (I& > 255) THEN PSET (100 + (ASC(MID$(Var$, 1, 1)) - 100) + xx%, 60 + (ASC( MID$(Var$, 2, 1)) - 60) + yy%), 0
8 NEXT xx%, yy%
9 IF INKEY$ = "" THEN 1