From 74246cf8c80717989476fc0d97da505fe00e1483 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
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(-)

(limited to 'shockwave.bb')

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