From 74246cf8c80717989476fc0d97da505fe00e1483 Mon Sep 17 00:00:00 2001 From: Ian C Date: Mon, 6 Feb 2006 01:20:00 +0000 Subject: Fixed bug with image buffers (could be from new Blitz 3D) --- shockwave.bb | 27 ++++++++------------------- 1 file changed, 8 insertions(+), 19 deletions(-) diff --git a/shockwave.bb b/shockwave.bb index c01fc2e..6ce26c7 100644 --- a/shockwave.bb +++ b/shockwave.bb @@ -18,7 +18,7 @@ ; ; ------------------------------------------------------------------------- ; -; $Id: shockwave.bb,v 1.11 2005-05-08 23:44:30 ianc Exp $ +; $Id: shockwave.bb,v 1.12 2006-02-06 01:20:00 ianc Exp $ ; Include "gfx/font.bb" @@ -541,6 +541,7 @@ Repeat EndIf ProcessQSounds() + ;Info() Flip WaitTimer(timer) @@ -680,8 +681,8 @@ End Function Function Info() Color 255,255,255 - Text 0,0,"M:"+MeshWidth(ship)+","+MeshHeight(ship)+","+MeshDepth(ship) - Text 0,10,"S:"+MeshWidth(sw\id)+","+MeshHeight(sw\id)+","+MeshDepth(sw\id) + Text 0,100,"M:"+MeshWidth(ship)+","+MeshHeight(ship)+","+MeshDepth(ship) + Text 0,110,"S:"+MeshWidth(sw\id)+","+MeshHeight(sw\id)+","+MeshDepth(sw\id) End Function Function AddScore(s) @@ -1377,9 +1378,8 @@ End Function Function CreateVectex() s=256 t=CreateTexture(s,s,1+4+8+256) - i=CreateImage(s,s) b=BackBuffer() - SetBuffer ImageBuffer(i) + SetBuffer TextureBuffer(t) Color 128,128,128 Rect 0,0,s,s,True For f=0 To 128 @@ -1387,8 +1387,6 @@ Function CreateVectex() Rect f,f,s-f*2,s-f*2,False Next SetBuffer b - CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t) - FreeImage i Return t End Function @@ -1438,9 +1436,8 @@ End Function Function CreateAsttex() s=256 t=CreateTexture(s,s,1+4+8+256) - i=CreateImage(s,s) b=BackBuffer() - SetBuffer ImageBuffer(i) + SetBuffer TextureBuffer(t) Color 0,0,128 Rect 0,0,s,s,True Color 64,64,255 @@ -1449,8 +1446,6 @@ Function CreateAsttex() Rect 0,f,256,4,True Next SetBuffer b - CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t) - FreeImage i Return t End Function @@ -1468,9 +1463,8 @@ End Function Function CreatePowertex() s=256 t=CreateTexture(s,s,1+4+8+256) - i=CreateImage(s,s) b=BackBuffer() - SetBuffer ImageBuffer(i) + SetBuffer TextureBuffer(t) Color 128,128,0 Rect 0,0,s,s,True Color 255,255,0 @@ -1479,8 +1473,6 @@ Function CreatePowertex() Rect 0,f,256,4,True Next SetBuffer b - CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t) - FreeImage i Return t End Function @@ -1562,9 +1554,8 @@ End Function Function CreateMaptex() s=256 t=CreateTexture(s,s,1+4+8+256) - i=CreateImage(s,s) b=BackBuffer() - SetBuffer ImageBuffer(i) + SetBuffer TextureBuffer(t) Color 0,0,64 Rect 0,0,s,s,True For f=0 To 128 @@ -1585,8 +1576,6 @@ Function CreateMaptex() Color 0,0,128 Rect 0,0,s,s,False SetBuffer b - CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t) - FreeImage i Return t End Function -- cgit v1.2.3