Atari 8-bit Raytracer

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|515\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> Atari 8-bit Raytracer
Wed, 12 Jun 2024, 11:56
Jayenkai	Atari 8-bit Raytracer Discovered an Atari 8-bit "Raytracer", written in Atari BASIC (a 10 liner, at that!) https://bunsen.itch.io/raytrace-movie-atari-8bit-by-d-scott-williamson So, of course, I tried it out in JSE.. > Reveal 🔎 // 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)/(401.3):V=(N-80.5)/(801.3):W=1/SQR(UU+VV+1):U=UW:V=VW:G=1 4 E=X-I:F=Y-I:P=UE+VF-WZ:D=PP-EE-FF-ZZ+1 if D<=0 then goto 8 5 T=-P-SQR(D) If T<=0 then goto 8 6 X=X+TU:Y=Y+TV:Z=Z-TW:E=X-I:F=Y-I:G=Z:P=2(UE+VF-WG) 7 U=U-PE:V=V-PF:W=W+PG:I=-I:Goto 4 8 IF V<0 THEN P=(Y+2)/V:S=INT(X-UP)+INT(Z-WP):S=S-INT(S/2)2:V=0-V(S/2+.3)+.2 9 d=v512;SetCol d,d0.5,Sin(d0.75)*255 Plot M,jscrh-N Next;Next a=a-0.1;if a<=-1 then a=10 flip;Goto 2 --v -=-=- ''Load, Next List!''