Ο Nyyrikki από το
http://www.msx.org forum είχε κάνει post για 3d σε msx basic.
αν και όχι raytraycing,είναι εντυπωσιακό.
εδω είναι και το source του για msx μηχανήματα χρειάζεται να έχει κάνει κανείς msx nestorbasic add on και 3d glasses και το βλέπει
το nestorbasic το κατεβάζει κανείς από εδώ
http://www.konamiman.com/msx/msx-e.html
10 COLOR 3,0,0
20 SCREEN 6
30 OPEN "GRP:" FOR OUTPUT AS #1
40 PSET (190,32),0
50 PRINT #1,"Made By : NYYRIKKI"
60 SET PAGE ,1:CLS
70 PSET (190,32),0
80 PRINT #1,"Made By :"
90 _TURBO ON
100 DEFINT C-Z
110 DIM XP(100),YP(100),ZP(100),LX(100),LY(100)
120 COLOR=(1,0,0,7)
130 COLOR=(2,4,0,0)
140 COLOR=(3,4,0,7)
150 S0=0:S1=1
160 FOR K=0 TO 1
170 RESTORE
180 FOR W=0 TO 9
190 I=W+K*10
200 READ XP(I),YP(I):XP(I)=XP(I)*10:YP(I)=YP(I)*10:ZP(I)=(K *2-1)*5
210 NEXT W,K
220 '
230 AZ=AZ+.08:AY=AY+.065:AX=AX+.097: D=SIN(R/15)*50+110:R=R+1
240 B1=COS(AX):B2=SIN(AX):B3=COS(AY):B4=SIN(AY):B5=COS (AZ):B6=SIN(AZ)
250 SET PAGE S0,S1:SWAP S0,S1
260 'CLS
270 LINE (112,40)-(399,190),0,BF
280 FOR K=0 TO 1
290 FOR I=0 TO 19
300 X=XP(I):Y=YP(I):Z=ZP(I)
310 GOSUB 400
320 LX(I)=X*2+256-K*13:LY(I)=Y+106
330 NEXT I
340 FOR I2=0 TO 9
350 LINE (LX(I2),LY(I2))-(LX((I2+1)MOD10),LY((I2+1)MOD10)),K+1,,OR
360 LINE (LX(I2+10),LY(I2+10))-(LX(I2),LY(I2)),K+1,,OR
370 LINE (LX(I2+10),LY(I2+10))-(LX(((I2+1)MOD10)+10),LY(((I2+1)MOD10)+10)),K+1,,O R
380 NEXT I2,K
390 GOTO 220
400 'x axis
410 Y2=B1*Y-B2*Z
420 Z=B1*Z+B2*Y
430 'y axis
440 X2=B3*X+B4*Z
450 Z=B3*Z-B4*X
460 'z axis
470 X=B5*X2-B6*Y2
480 Y=B5*Y2+B6*X2
490 'X=X2:Y=Y2
500 X=(X+K*5)*D/(Z+120)
510 Y=Y*D/(Z+120)
520 RETURN
530 DATA -2,2 ,-2,-2 ,-1,-2 ,1,0 ,1,-2 ,2,-2 ,2,2 ,1,2 ,-1,0 ,-1,2
εδώ είναι και το video σε youtube [ame=http://www.youtube.com/watch?v=oxJPGVqLSEE&feature=related]YouTube - 3D in MSX-BASIC .Φανταστείτε να έπαιζε κώδικας μηχανής.
Πάντως κάπου είχε πάρει το μάτι μου ένα raytracing demo για msx2 μηχανήματα.Θα ψάξω και θα σας κάνω post αν το βρω.
UPDATE:Το βρήκα
http://www.msxarchive.nl/pub/msx/demos/raydemo.pma (θέλει pma extractor)
http://www.purose.net/befis/halloffame/msx_demo/Raytrace/ (screenshots για το demo)
Επίσης ο Nyyrikki δείνει και ένα demo για msx που είναι μόνο 512 bytes,και είναι απίστευτο!
Z80 machine code forever!
UPDATE 2:Texture mapping σε z80,r800 turbo r msx μηχάνημα.Δείτε αυτό το demo κάπου προς το τέλος,έχει έναν κύβο με διάφορα textures που περιστρέφεται.
Made by Nyyrikkihttp://www.youtube.com/watch?v=D54mei15BA0&feature=related