(For some reason I called it ray casting...)
Code: Select all
1MO.2:P.'" Ray caster":H=.23:J=H*H:F.V=4TO32:F.U=0TO19:X=(U-10)/10:Y=(16-V)/20:Z=1/SQR(X*X+Y*Y+1):X=X*Z:Y=Y*Z
2D=4*Z*Z+J*Y*Y-3-J:B=0:IFD>0T=2*Z-H*Y-SQRD:X=T*X:Y=T*Y+H:Z=T*Z-2:B=4
3IFY<0P=(Y+2)/Y:C=((INT(X*P)+INT(Z*P))A.1)+B:EL.C=6:IFD>0C=C-(RND(1)>1-X-Y+Z)
4C.128+C:V.32:N.,
Code: Select all
1MO.2:F.V=255TO0S.-1:F.U=0TO159:X=(U-80)/80:Y=(V-128)/160:Z=1/SQR(X*X+Y*Y+1):X=X*Z:Y=Y*Z
2D=4*Z*Z+.04*Y*Y-3.04:B=0:IFD>0T=2*Z-.2*Y-SQRD:X=T*X:Y=T*Y+.2:Z=T*Z-2:B=4
3IFY<0P=(Y+2)/Y:C=((INT(X*P)+INT(Z*P))A.1)+B:EL.C=6:IFD>0C=C-(RND(1)>1-X-Y+Z)
4GC.0,C:PL.69,8*U,4*V:N.,