pourtant c´est pas si compliquer regardez voici une parti d´un code de Basic:
` Init Buffer Names / numbers
MainScreen=AC(1)
TextureBuffer=AC(1)
FakeBuffer=AC(1)
BackDropBuffer=AC(1)
PrecalcFloor=AC(1)
TempTextureBuffer=AC(1)
Dim TileMap(Map_Width,Map_Depth)
Dim
WallPolygonDefs(Active_Vertex_count*4,WallPoly_str
ucturesize)
MakeBitmapFont 1,$ffffff
CreateImage PrecalcFloor,screen_width,screen_height
RenderToImage PrecalcFloor
TL=RGB(0,15,25)
TR=RGB(0,15,25)
BL=RGB(15,75,155)
BR=RGB(15,75,155)
; TL=RGB(25,15,0)
; TR=RGB(25,15,0)
; BL=RGB(155,75,15)
; BR=RGB(155,75,15)
ShadeBox 0,0,screen_width,screen_height/2,BL,BR,TR,TL
ShadeBox
0,screen_height/2,screen_width,screen_height,TL,TR
,BR,BL
RenderToScreen