-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|569|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

// RayTrace Movie (Atari 8bit) // by D. Scott Williamson // Converted by Jayenkai // Created 2024/6/12 // GotoJSE.com/3KNGNgjp.BAS // Original at // https://bunsen.itch.io/raytrace-movie-atari-8bit-by-d-scott-williamson 1 Graphics 160,192,3;A=2 2 For N=0 to jscrh;for m=0 to jscrw X=0:Y=-A/25:Z=A:I=SGN(M-80.5) 3 U=(M-80.5)/(40*1.3):V=(N-80.5)/(80*1.3):W=1/SQR(U*U+V*V+1):U=U*W:V=V*W:G=1 4 E=X-I:F=Y-I:P=U*E+V*F-W*Z:D=P*P-E*E-F*F-Z*Z+1 if D<=0 then goto 8 5 T=-P-SQR(D) If T<=0 then goto 8 6 X=X+T*U:Y=Y+T*V:Z=Z-T*W:E=X-I:F=Y-I:G=Z:P=2*(U*E+V*F-W*G) 7 U=U-P*E:V=V-P*F:W=W+P*G:I=-I:Goto 4 8 IF V<0 THEN P=(Y+2)/V:S=INT(X-U*P)+INT(Z-W*P):S=S-INT(S/2)*2:V=0-V*(S/2+.3)+.2 9 d=v*512;SetCol d,d*0.5,Sin(d*0.75)*255 Plot M,jscrh-N Next;Next a=a-0.1;if a<=-1 then a=10 flip;Goto 2