From 49091f65da52a0a186467f78677dcb1294c422a5 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 15 May 2005 22:59:22 +0000
Subject: *** empty log message ***

---
 imagefont/test.bmx | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/imagefont/test.bmx b/imagefont/test.bmx
index 4c064c9..c587247 100644
--- a/imagefont/test.bmx
+++ b/imagefont/test.bmx
@@ -73,9 +73,11 @@ While False ' Not KeyHit(KEY_ESCAPE)
 	
 Wend
 
-sc=10
+sc=20
 t$="THIS IS SOME VERY, VERY, *VERY* ~~LARGE SCROLLING TEXT....."
 x#=0
+ang#=0
+angi#=0.2
 
 While Not KeyHit(KEY_ESCAPE)
 	Cls
@@ -89,12 +91,16 @@ While Not KeyHit(KEY_ESCAPE)
 	DrawText("x="+x+"  width="+(-fnt.TextWidth(t[0..1]))+"  mem="+MemAlloced(),0,100)
 	DrawText("t="+t,0,110)
 	
-	SetTransform(0,sc,sc)
+	SetTransform(ang,sc,sc)
+	
+	ang:+angi
+	
+	If ang<=-10 Or ang>=10 Then angi=-angi
 
-	fnt.Draw(t$,x,200)
+	fnt.DrawColoured(t$,x,200,255,128,128)
 	
 	If Not KeyDown(KEY_P)
-		x:-sc
+		x:-5
 		
 		If x<-fnt.TextWidth(t[0..1])
 			x:+fnt.TextWidth(t[0..1])
-- 
cgit v1.2.3